summaryrefslogtreecommitdiff
path: root/Build/source/texk/xdvik/translations.h
blob: 8d26b91029be037bc5f8545cb80df49f5d7bde12 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
/* key translations */
#include "xdvi.h"
#include "version.h"

static const char base_key_translations[] =
/* note: more specific key bindings must always come first
   (i.e. `alt ctrl' before `ctrl' before unmodified)
   `:' at start of description means that case matters
*/
    "<Key>0:		digit(0)\n"
    "<Key>1:		digit(1)\n"
    "<Key>2:		digit(2)\n"
    "<Key>3:		digit(3)\n"
    "<Key>4:		digit(4)\n"
    "<Key>5:		digit(5)\n"
    "<Key>6:		digit(6)\n"
    "<Key>7:		digit(7)\n"
    "<Key>8:		digit(8)\n"
    "<Key>9:		digit(9)\n"
    "Ctrl<Key>]:	pagehistory-delete-forward()\n"
    "Ctrl<Key>[:	pagehistory-delete-backward()\n"
/* it seems the following is needed for compatibility with german, french,
   italian, spanish and other keyboards that have [, ] on right Alt key? */
    "Ctrl Mod2<Key>]:	pagehistory-delete-forward()\n"
    "Ctrl Mod2<Key>[:	pagehistory-delete-backward()\n"
    "Mod2<Key>]:	pagehistory-forward()\n"
    "Mod2<Key>[:	pagehistory-back()\n"
    "<Key>]:		pagehistory-forward()\n"
    "<Key>[:		pagehistory-back()\n"
    "Alt Ctrl<Key>+:	change-density(10)\n" /* case insensitive, otherwise too hard to type */
    ":Alt Ctrl<Key>-:	change-density(-10)\n"
    "Ctrl<Key>+:	set-shrink-factor(+)\n" /* case insensitive, otherwise too hard to type */
    ":Ctrl<Key>-:	set-shrink-factor(-)\n"
    ":<Key>-:		minus()\n"
    ":<Key>?:		help()\n"
/*     ":<Key>/:		incremental-find()\n" */
    ":<Key>>:		goto-page()\n"
    ":<Key><:		goto-page(1)\n"
    ":<Key>^:		home()\n"
    "<Key>space:	unpause-or-next()\n"
    ":<Key>B:		htex-back()\n"
    ":<Key>b:		back-page()\n"
/* removed, redundant and gets in the way
    ":Ctrl<Key>c:	quit()\n" */
#if COLOR
    ":<Key>C:		set-color()\n"
#endif
    ":<Key>c:		center()\n"
/* removed, redundant and gets in the way
    ":Ctrl<Key>d:	quit()\n" */
    ":<Key>D:		toggle-grid-mode()\n"
    ":<Key>d:		down()\n"
    "Ctrl<Key>f:	find()\n"
    ":<Key>F:		htex-forward()\n"
    ":~Alt<Key>f:	forward-page()\n"
    "Ctrl<Key>g:	find-next()\n"
#ifdef GREY
    ":<Key>G:		set-greyscaling()\n"
#endif
    ":<Key>g:		goto-page()\n"
    "Ctrl<Key>h:	back-page()\n"
    ":~Alt<Key>h:	help()\n"
    ":<Key>i:		htex-anchorinfo()\n"
    "Ctrl<Key>j:	forward-page()\n"
    ":<Key>k:		set-keep-flag()\n"
    "Ctrl<Key>l:	fullscreen()\n"
    ":<Key>l:		left()\n"
    "Ctrl<Key>m:	switch-mode()\n"
    ":<Key>M:		set-margins()\n"
    ":~Alt<Key>m:	toggle-mark()\n"
    "~Alt Ctrl<Key>n:	toggle-mark()forward-page()\n"
    ":~Alt<Key>n:	forward-page()\n"
    "Ctrl<Key>o:	select-dvi-file()\n"
    ":~Alt<Key>o:	ruler-snap-origin()\n"
    /* this used to be show-display-attributes() - use the output of `-debug PK' instead */
    "Ctrl<Key>p:	print()\n"
    ":<Key>P:		declare-page-number()\n"
    ":<Key>p:		back-page()\n"
    ":<Key>q:		quit()\n"
    "Ctrl<Key>r:	forward-page(0)\n" /* redraw page */
    ":<Key>R:		reread-dvi-file()\n"
    ":<Key>r:		right()\n"
    "Ctrl<Key>s:	save()\n"
    ":<Key>S:		set-density()\n"
    ":<Key>s:		set-shrink-factor()\n"
    ":<Key>T:		use-tex-pages(toggle)\n"
    ":<Key>t:		switch-magnifier-units()\n"
    "Ctrl<Key>u:	back-page()toggle-mark()\n"
    ":<Key>u:		up()\n"
    "Ctrl<Key>v:	show-source-specials()\n"
#ifdef PS_GS
    ":<Key>V:		set-gs-alpha()\n"
#endif /* PS_GS */
#ifdef PS
    ":<Key>v:		set-ps()\n"
#endif
    "Ctrl<Key>x:	source-what-special()\n"
    ":<Key>x:		set-expert-mode()\n"
#ifdef VMS
    "~Alt Ctrl<Key>z:	quit()\n"
#endif
    "<Key>Return:	forward-page()\n"
    "<Key>Delete:	up-or-previous()\n"
    "<Key>BackSpace:	back-page()\n"
#ifdef MOTIF
    "<Key>osfDelete:	up-or-previous()\n"
    "<Key>osfBackSpace:	back-page()\n"
    "Ctrl<Key>osfBeginLine:	goto-page(1)\n"
    "Ctrl<Key>osfEndLine:	goto-page()\n"
    "<Key>osfBeginLine:	home-or-top()\n"
    "<Key>osfEndLine:	end-or-bottom()\n"
    "<Key>osfLeft:	left(0.015)\n"
    "<Key>osfUp:	up(0.015)\n"
    "<Key>osfRight:	right(0.015)\n"
    "<Key>osfDown:	down(0.015)\n"
    "<Key>osfPageUp:	back-page()\n"
    "<Key>osfPageDown:	forward-page()\n"
    "<Key>osfCancel:	discard-number()\n"
#else
    "Ctrl<Key>Home:	goto-page(1)\n"
    "Ctrl<Key>End:	goto-page()\n"
    "<Key>Home:		home-or-top()\n"
    "<Key>End:		end-or-bottom()\n"
    "<Key>Left:		left(0.015)\n"
    "<Key>Up:		up(0.015)\n"
    "<Key>Right:	right(0.015)\n"
    "<Key>Down:		down(0.015)\n"
    "<Key>Prior:	back-page()\n"
    "<Key>Next:		forward-page()\n"
    "<Key>Escape:	discard-number()\n"
#endif
#ifdef XK_KP_Left
    "~@Num_Lock<Key>KP_Home:home()\n"
    "~@Num_Lock<Key>KP_Left:left(0.015)\n"
    "~@Num_Lock<Key>KP_Begin:center()\n"
    "~@Num_Lock<Key>KP_Up:up(0.015)\n"
    "~@Num_Lock<Key>KP_Right:right(0.015)\n"
    "~@Num_Lock<Key>KP_Down:down(0.015)\n"
    "~@Num_Lock<Key>KP_Prior:back-page()\n"
    "~@Num_Lock<Key>KP_Next:forward-page()\n"
    "<Key>KP_Enter:forward-page()\n"
    "<Key>KP_Delete:up-or-previous()\n"
    "<Key>KP_1:digit(1)\n"
    "<Key>KP_2:digit(2)\n"
    "<Key>KP_3:digit(3)\n"
    "<Key>KP_4:digit(4)\n"
    "<Key>KP_5:digit(5)\n"
    "<Key>KP_6:digit(6)\n"
    "<Key>KP_7:digit(7)\n"
    "<Key>KP_8:digit(8)\n"
    "<Key>KP_9:digit(9)\n"
    "<Key>KP_0:digit(0)\n"
#endif
    "";


static const char base_mouse_translations[] =
    "Shift<Btn1Down>:	mouse-modes(\"drag(+)\")\n"
    "Shift<Btn2Down>:	mouse-modes(\"drag(|)\")\n"
    "Shift<Btn3Down>:	mouse-modes(\"drag(-)\")\n"
    "Ctrl<Btn1Down>:	mouse-modes(\"source-special()\", \"source-special()\", \"source-special()\")\n"
    "<Btn1Down>:	mouse-modes(\"do-href()magnifier(*2)\", \"text-selection()\", \"ruler()\")\n"
    "<Btn2Down>:	mouse-modes(\"do-href-newwindow()magnifier(*2)\", \"text-selection()\", \"ruler()\")\n"
    "<Btn3Down>:	mouse-modes(\"magnifier(*3)\")\n"
    "<Btn4Down>:	mouse-modes(\"wheel(-0.2)\")\n"
    "<Btn5Down>:	mouse-modes(\"wheel(0.2)\")\n"
    "<Btn6Down>:	mouse-modes(\"hwheel(-0.2)\")\n"
    "<Btn7Down>:	mouse-modes(\"hwheel(0.2)\")\n"
    "";


/*  #if defined(NEW_MENU_CREATION) || defined(MOTIF) */

/*
  BNF-like Syntax of the entries:

  entry ::= entry-line `\n' ( entry )*
  entry-line ::= menu-spec `:' button-type `:' mnemonic `:' action
  menu-spec ::= menu-name ( `>' menu-name )*
  menu-name ::= menu-title `|' accelerator

  menu-title ::= String
  mnemonic ::= <empty> | String
  action ::= <empty> | String
  accelerator ::= `A'|`B'|`C'|...|`a'|`b'|`c'|...
  button-type ::= `PUSH' | `RADIO' | `CHECK' | `SEP'

  Notes:
     - In entry-line, every occurrence of `:' that's not a separator has to be
       escaped like this: `\:'; similar for `>' in menu-spec and `|' in menu-title.
     - Every `>' in menu-spec creates a submenu for the corresponding menu.
     - mnemonic is the key binding for the action, displayed as mnemonic string in
       the Motif menus (not yet in the Xaw version, since Xaw doesn't provide for
       such mnemonics).
     - accelerator is the Motif menu accelerator key.
 */
static const char default_menu_config[] =
    "File|F > Open ...|O		:PUSH	:Ctrl-o	:select-dvi-file()\n"
    "File|F > Open Recent|R		:PUSH	:	:recent-files()\n"
    "File|F > Reload|l			:PUSH	:R	:reread-dvi-file()\n"
    "File|F				:SEP	::\n"
    "File|F > Find ...|F		:PUSH	:Ctrl-f :find()\n"
    "File|F > Find Next ...|N		:PUSH	:Ctrl-g :find-next()\n"
    "File|F				:SEP	::\n"
    "File|F > Print ...|P		:PUSH	:Ctrl-p :print()\n"
    "File|F > Save As ...|S		:PUSH	:Ctrl-s	:save()\n"
    "File|F				:SEP	::\n"
    "File|F > Quit|Q			:PUSH	:q	:quit()\n"
/* ========== */			
    "Navigate|N > Page-10|		:PUSH	:10 p	:back-page(10)\n"
    "Navigate|N > Page-5|		:PUSH	:5 p	:back-page(5)\n"
    "Navigate|N > Prev|P		:PUSH	:p	:back-page(1)\n"
    "Navigate|N > Next|N		:PUSH	:n	:forward-page(1)\n"
    "Navigate|N > Page+5|		:PUSH	:5 n	:forward-page(5)\n"
    "Navigate|N > Page+10|		:PUSH	:10 n	:forward-page(10)\n"
    "Navigate|N				:SEP	::\n"
    "Navigate|N > First Page|F		:PUSH	:1 g	:goto-page(1)\n"
    "Navigate|N > Last Page|L		:PUSH	:g	:goto-page()\n"
    "Navigate|N				:SEP	::\n"
    "Navigate|N > Page History Back|	:PUSH	:[	:pagehistory-back()\n"
    "Navigate|N > Page History Forward| :PUSH	:]	:pagehistory-forward()\n"
/*     "Navigate|N				:SEP	::\n" */
/*     "Navigate|N	> Clear Page History|	:PUSH	:	:pagehistory-clear()\n" */
    "Navigate|N				:SEP	::\n"
    "Navigate|N > Back Hyperlink|B	:PUSH	:B	:htex-back()\n"
    "Navigate|N > Forward Hyperlink|F	:PUSH	:F	:htex-forward()\n"
/* ========== */
#ifdef MOTIF /* Motif zoom buttons are more verbose to emphasise the accelerator */
    "Zoom|Z > Shrink by 1|1		:RADIO	:1 s	:set-shrink-factor(1)\n"
    "Zoom|Z > Shrink by 2|2		:RADIO	:2 s	:set-shrink-factor(2)\n"
    "Zoom|Z > Shrink by 3|3		:RADIO	:3 s	:set-shrink-factor(3)\n"
    "Zoom|Z > Shrink by 4|4		:RADIO	:4 s	:set-shrink-factor(4)\n"
    "Zoom|Z > Shrink by 5|5		:RADIO	:5 s	:set-shrink-factor(5)\n"
    "Zoom|Z > Shrink by 6|6		:RADIO	:6 s	:set-shrink-factor(6)\n"
    "Zoom|Z > Shrink by 7|7		:RADIO	:7 s	:set-shrink-factor(7)\n"
    "Zoom|Z > Shrink by 8|8		:RADIO	:8 s	:set-shrink-factor(8)\n"
    "Zoom|Z > Shrink by 9|9		:RADIO	:9 s	:set-shrink-factor(9)\n"
#else
    "Zoom|Z > 1|1			:RADIO	:1 s	:set-shrink-factor(1)\n"
    "Zoom|Z > 2|2			:RADIO	:2 s	:set-shrink-factor(2)\n"
    "Zoom|Z > 3|3			:RADIO	:3 s	:set-shrink-factor(3)\n"
    "Zoom|Z > 4|4			:RADIO	:4 s	:set-shrink-factor(4)\n"
    "Zoom|Z > 5|5			:RADIO	:5 s	:set-shrink-factor(5)\n"
    "Zoom|Z > 6|6			:RADIO	:6 s	:set-shrink-factor(6)\n"
    "Zoom|Z > 7|7			:RADIO	:7 s	:set-shrink-factor(7)\n"
    "Zoom|Z > 8|8			:RADIO	:8 s	:set-shrink-factor(8)\n"
    "Zoom|Z > 9|9			:RADIO	:9 s	:set-shrink-factor(9)\n"
#endif
    "Zoom|Z				:SEP	::\n"
    "Zoom|Z > Fit in Window|F		:PUSH	:s	:set-shrink-factor(a)\n"
    "Zoom|Z				:SEP	::\n"
    "Zoom|Z > Zoom In|I			:PUSH	:Ctrl-+	:set-shrink-factor(+)\n"
    "Zoom|Z > Zoom Out|O		:PUSH	:Ctrl--	:set-shrink-factor(-)\n"
/* ========== */
    "Mark|M > Mark All Pages|M		:PUSH	:-1 m	:toggle-mark(-1)\n"
    "Mark|M > Unmark All Pages|U	:PUSH	:0 m	:toggle-mark(0)\n"
    "Mark|M				:SEP	::\n"
    "Mark|M > Toggle Odd Pages|O	:PUSH	:1 m	:toggle-mark(1)\n"
    "Mark|M > Toggle Even Pages|E	:PUSH	:2 m	:toggle-mark(2)\n"
    "Mark|M > Toggle Current Page|C	:PUSH	:m	:toggle-mark()\n"
#ifndef MOTIF /* special `Modes' menu for Xaw */
    "Modes|M > Magnifier|M		:RADIO	:Ctrl-m	:switch-mode(0)\n"
    "Modes|M > Text Selection|T		:RADIO	:Ctrl-m	:switch-mode(1)\n"
    "Modes|M > Ruler|R			:RADIO	:Ctrl-m	:switch-mode(2)\n"
#endif
/* ========== */
    "Options|O > Keep Position|K		:CHECK	:k	:set-keep-flag(toggle)\n"
    "Options|O > Use TeX Page Numbers|T	:CHECK	:T	:use-tex-pages(toggle)\n"
    "Options|O				:SEP	::\n"
/* ---------- */
#ifdef MOTIF /* nested menus are used in Motif only */
#if 0
/* TODO: implement setting paper size at runtime */
    "Options|O > Paper|a > US letter|U  :RADIO	:	:set-papersize(us)\n"
    "Options|O > Paper|a > Legal|L	:RADIO	:	:set-papersize(legal)\n"
    "Options|O > Paper|a > Foolscap|F	:RADIO	:	:set-papersize(foolscap)\n"
    "Options|O > Paper|a > A1|1		:RADIO	:	:set-papersize(a1)\n"
    "Options|O > Paper|a > A2|2		:RADIO	:	:set-papersize(a2)\n"
    "Options|O > Paper|a > A3|3		:RADIO	:	:set-papersize(a3)\n"
    "Options|O > Paper|a > A4|4		:RADIO	:	:set-papersize(a4)\n"
    "Options|O > Paper|a > A5|5		:RADIO	:	:set-papersize(a5)\n"
    "Options|O > Paper|a > A6|5		:RADIO	:	:set-papersize(a6)\n"
    "Options|O > Paper|a > A7|7		:RADIO	:	:set-papersize(a7)\n"
    /* Note: the b* and c* DIN sizes are too rarely used to be exposed here;
       people can still customize the Menu if they really need them. */
    "Options|O > Paper|a		:SEP	::\n"
    "Options|O > Paper|a > Landscape|L	:CHECK	:	:set-paper-landscape(toggle)\n"
#endif /* 0 */
/* ---------- */
# if PS
    "Options|O > Postscript|o > Show PS|S			:RADIO	:1 v	:set-ps(1)\n"
    "Options|O > Postscript|o > Show PS and Bounding Boxes|B	:RADIO	:2 v	:set-ps(2)\n"
    "Options|O > Postscript|o > Show Bounding Boxes Only|O	:RADIO	:0 v	:set-ps(0)\n"
#  ifdef GS_PS
    "Options|O > Postscript|o					:SEP	::\n"
    "Options|O > Postscript|o > Use PS Anti-Aliasing|A		:CHECK	:V	:set-gs-alpha(toggle)\n"
#  endif
# endif
/* ---------- */
    "Options|O > Mouse Mode|M > Magnifier|M			:RADIO	:0 Ctrl-m	:switch-mode(0)\n"
    "Options|O > Mouse Mode|M > Text Selection|T		:RADIO	:1 Ctrl-m	:switch-mode(1)\n"
    "Options|O > Mouse Mode|M > Ruler|R				:RADIO	:2 Ctrl-m	:switch-mode(2)\n"
    "Options|O				:SEP	::\n"
    "Options|O > Preferences ...|P 	:PUSH	:		:prefs-dialog()\n"
#else
    "Options|O > Show PS|S			:RADIO	:1 v	:set-ps(1)\n"
    "Options|O > Show PS and Bounding Boxes|B	:RADIO	:2 v	:set-ps(2)\n"
    "Options|O > Show Bounding Boxes Only|O	:RADIO	:0 v	:set-ps(0)\n"
    "Options|O					:SEP	::\n"
    "Options|O > Use PS Anti-Aliasing|A		:CHECK	:V	:set-gs-alpha(toggle)\n"
    "Options|O					:SEP	::\n"
    "Options|O > Fonts Darker|D			:PUSH	:Alt-Ctrl-+:change-density(5)\n"
    "Options|O > Fonts Lighter|L		:PUSH	:Alt-Ctrl--:change-density(-5)\n"
#endif /* MOTIF */
/* ========== */
    "Help|H > Introduction ...|I	:PUSH	:		:help(Introduction)\n"
    "Help|H > Page Motion ...|P		:PUSH	:		:help(Page Motion)\n"
    "Help|H > Other Commands ...|O	:PUSH	:		:help(Other Commands)\n"
    "Help|H > Hyperlinks ...|H		:PUSH	:		:help(Hyperlinks)\n"
    "Help|H > Mouse Buttons ...|M	:PUSH	:		:help(Mouse Buttons)\n"
    "Help|H > Mouse Modes ...|d		:PUSH	:		:help(Mouse Modes)\n"
    "Help|H > String Search ...|e	:PUSH	:		:help(String Search)\n"
    "Help|H > Printing and Saving ...|S	:PUSH	:		:help(Printing and Saving)\n"
    "Help|H > Source Specials ...|r	:PUSH	:		:help(Source Specials)\n"
    "Help|H				:SEP	::\n"
    "Help|H > New Features in this Version|F:PUSH::load-url(http\\://xdvi.sourceforge.net/releases.html#" XDVI_VERSION ")\n"
    "Help|H > Submit a Bug Report|B	:PUSH	::load-url(http\\://sourceforge.net/tracker/?func=add&group_id=23164&atid=377580)\n"
    "";


static const char default_toolbar_translations[] =
/*  index	statusline-text					tooltip		action */
    "SPACER(5)\n"
    "0:	Open a new file   (Key\\: Ctrl-o):			Open file:	select-dvi-file()\n"
    "SPACER(10)\n"
    "1:	Reload this file   (Key\\: R):				Reload file:	reread-dvi-file()\n"
    "SPACER(10)\n"
    "2:	Go to the first page of this file   (Key\\: 1g):	First page:	goto-page(1)\n"
    "3:	Go to the previous page of this file   (Key\\: p):	Previous page:	back-page(1)\n"
    "4:	Go to the next page of this file   (Key\\: n):	Next page:	forward-page(1)\n"
    "5:	Go to the last page of this file   (Key\\: g):	Last page:	goto-page(e)\n"
    "SPACER(10)\n"
    "8:	Back to previous page in history   (Key\\: [):	Page History back:	pagehistory-back()\n"
    "9:	Forward to next page in history   (Key\\: ]):	Page History forward:	pagehistory-forward()\n"
    "SPACER(10)\n"
    "6:	Zoom in   (Key\\: Ctrl-+):		Zoom in:		set-shrink-factor(+)\n"
    "7:	Zoom out   (Key\\: Ctrl--):		Zoom out:		set-shrink-factor(-)\n"
    "SPACER(10)\n"
    "11:Print this DVI file:Print:print()\n"
    "SPACER(10)\n"
    "16:Find in DVI file   (Key\\: Ctrl-f):	Find in file:	find()\n"
    "SPACER(10)\n"
    "12:Toggle marks of odd pages   (Key\\: 1m):	Toggle odd pages:	toggle-mark(1)\n"
    "13:Toggle marks of even pages   (Key\\: 2m):	Toggle even pages:	toggle-mark(2)\n"
    "14:Toggle mark of current page   (Key\\: 2m):	Toggle current page:	toggle-mark()\n"
    "15:Unmark all pages   (Key\\: 0m):			Unmark all pages:	toggle-mark(0)\n"
    "SPACER(10)\n"
    "19:Display fonts darker   (Key\\: Alt-Ctrl-+):	Fonts darker:		change-density(5)\n"
    "20:Display fonts lighter   (Key\\: Alt-Ctrl--):	Fonts lighter:		change-density(-5)\n"
    "";