author | Claus Gittinger <cg@exept.de> |
Tue, 13 May 2008 12:54:19 +0200 | |
changeset 931 | 050dc53ad707 |
parent 927 | f0b00f1c92ae |
child 941 | e21bb7208cb8 |
permissions | -rw-r--r-- |
41 | 1 |
"* |
609 | 2 |
* Encoding: iso8859-1 |
3 |
* |
|
41 | 4 |
* $Header$ |
5 |
* |
|
399 | 6 |
* MIMEType: application/x-smalltalk-source |
7 |
* |
|
209 | 8 |
* ST/X startup configuration file: |
9 |
* |
|
41 | 10 |
* sample keyboard.rc - file |
11 |
* |
|
719 | 12 |
* this file defines some mappings for common function keys. |
13 |
* These definitions used to be in 'private.rc', |
|
41 | 14 |
* but have been extracted into this separate file to allow easier |
15 |
* sharing of rc files (users having different private files, but want |
|
54 | 16 |
* to use the same keyboard mappings / keyboard macros) |
41 | 17 |
* |
719 | 18 |
* A copy of this file can reside in $home/.smalltalk/keyboard.rc or |
54 | 19 |
* in the current directory. |
20 |
* |
|
719 | 21 |
* These are my personal preferrences which may not be |
402 | 22 |
* correct for your environment. |
23 |
* |
|
609 | 24 |
* WARNING: |
402 | 25 |
* please keep the expressions below free from manipulating |
26 |
* global state - all that should be done here is to set up the current |
|
27 |
* screens keyboard map. |
|
28 |
* Reason: in multihead applications, this will be consulted for each |
|
29 |
* new display screen. |
|
41 | 30 |
*" |
31 |
||
719 | 32 |
Smalltalk fileIn:'keyboardMacros.rc'. |
86 | 33 |
! |
34 |
||
92 | 35 |
"* |
36 |
* key bindings common to all display types |
|
37 |
* use event monitor, to see what the Xserver sends us; |
|
38 |
* put display-specific stuff into a d_hostName.rc file. |
|
39 |
*" |
|
402 | 40 |
|map screen| |
86 | 41 |
|
402 | 42 |
screen := Screen current. |
43 |
map := screen keyboardMap. |
|
86 | 44 |
|
931 | 45 |
map bindValue:#Cmd to:#Menu. |
46 |
map bindValue:#Menu to:#Appl. |
|
47 |
||
402 | 48 |
(screen serverVendor startsWith:'DECWINDOWS') ifTrue:[ |
252
5d4a68556e45
ESC & Compose keys on DEC keyboards
Claus Gittinger <cg@exept.de>
parents:
209
diff
changeset
|
49 |
"/ DEC has messed up the ESC key completely. |
5d4a68556e45
ESC & Compose keys on DEC keyboards
Claus Gittinger <cg@exept.de>
parents:
209
diff
changeset
|
50 |
"/ map ALT-` onto ESC for our convenience. |
5d4a68556e45
ESC & Compose keys on DEC keyboards
Claus Gittinger <cg@exept.de>
parents:
209
diff
changeset
|
51 |
"/ |
5d4a68556e45
ESC & Compose keys on DEC keyboards
Claus Gittinger <cg@exept.de>
parents:
209
diff
changeset
|
52 |
"/ also, the right compose key (comes in as 'AltMulti_key' or |
5d4a68556e45
ESC & Compose keys on DEC keyboards
Claus Gittinger <cg@exept.de>
parents:
209
diff
changeset
|
53 |
"/ 'CtrlMulti_key' depending on the keyboard) is mapped |
5d4a68556e45
ESC & Compose keys on DEC keyboards
Claus Gittinger <cg@exept.de>
parents:
209
diff
changeset
|
54 |
"/ to 'Compose'. |
5d4a68556e45
ESC & Compose keys on DEC keyboards
Claus Gittinger <cg@exept.de>
parents:
209
diff
changeset
|
55 |
map bindValue:#Escape to:#'Cmd`'. |
5d4a68556e45
ESC & Compose keys on DEC keyboards
Claus Gittinger <cg@exept.de>
parents:
209
diff
changeset
|
56 |
map bindValue:#Compose to:#'AltMulti_key'. "/ the right compose key |
5d4a68556e45
ESC & Compose keys on DEC keyboards
Claus Gittinger <cg@exept.de>
parents:
209
diff
changeset
|
57 |
|
5d4a68556e45
ESC & Compose keys on DEC keyboards
Claus Gittinger <cg@exept.de>
parents:
209
diff
changeset
|
58 |
map bindValue:#Return to:#'KP_Enter'. "/ the keypads return key |
609 | 59 |
]. |
252
5d4a68556e45
ESC & Compose keys on DEC keyboards
Claus Gittinger <cg@exept.de>
parents:
209
diff
changeset
|
60 |
|
609 | 61 |
"/ map bindValue:#'Hardcopy' to:#'Super_R'. |
62 |
map bindValue:#'Alt' to:#'Super_L'. |
|
63 |
map bindValue:#'Alt' to:#'Hyper_R'. |
|
299 | 64 |
|
694 | 65 |
"/ map bindValue:#UserInterrupt to:#Ctrlc. "interrupt window process" |
290 | 66 |
map bindValue:#UserAbort to:#Ctrly. "abort window process, but no debugger" |
92 | 67 |
map bindValue:#FlushInput to:#CtrlX. "flush typeahead input" |
68 |
map bindValue:#DestroyView to:#CmdCtrlX. "to destroy dead views" |
|
69 |
map bindValue:#DestroyTopView to:#CmdCtrlx. "to destroy dead views" |
|
70 |
||
926
9edc75730fb0
support ALT-F4 (close window)
Claus Gittinger <cg@exept.de>
parents:
925
diff
changeset
|
71 |
map bindValue:#CloseWindowRequest to:#CmdF4. |
9edc75730fb0
support ALT-F4 (close window)
Claus Gittinger <cg@exept.de>
parents:
925
diff
changeset
|
72 |
|
92 | 73 |
map bindValue:#DoIt to:#Cmdd. "i.e. Cmd-d / Alt-d (sometimes Meta-d)" |
697 | 74 |
map bindValue:#DoIt to:#Ctrld. |
92 | 75 |
map bindValue:#InspectIt to:#Cmdi. "evaluate & inspect result" |
697 | 76 |
map bindValue:#InspectIt to:#Ctrlq. |
92 | 77 |
map bindValue:#PrintIt to:#Cmdp. "evaluate and paste result" |
697 | 78 |
map bindValue:#PrintIt to:#Ctrlp. |
916 | 79 |
map bindValue:#ReplaceIt to:#CmdP. "evaluate and replace selection by result" |
455
1bc57270b5d7
added Cmd-Shift-B as BrowseIt shortCut
Claus Gittinger <cg@exept.de>
parents:
442
diff
changeset
|
80 |
map bindValue:#BrowseIt to:#CmdB. |
697 | 81 |
map bindValue:#BrowseIt to:#CtrlB. |
922 | 82 |
map bindValue:#ImplementorsOfIt to:#CtrlI. |
496 | 83 |
map bindValue:#ImplementorsOfIt to:#CmdI. |
922 | 84 |
"/ map bindValue:#SendersOfIt to:#CtrlS. |
85 |
"/ map bindValue:#SendersOfIt to:#CmdS. |
|
92 | 86 |
|
681 | 87 |
map bindValue:#ToggleInsertMode to:#Ctrli. |
88 |
||
92 | 89 |
map bindValue:#Copy to:#Cmdc. "copy selection to buffer" |
694 | 90 |
map bindValue:#Copy to:#Ctrlc. "copy selection to buffer" |
91 |
||
92 | 92 |
map bindValue:#Cut to:#Cmdx. "cut selection into buffer" |
699 | 93 |
map bindValue:#Cut to:#Ctrlx. |
92 | 94 |
map bindValue:#Paste to:#Cmdv. "paste buffer or external selection" |
699 | 95 |
map bindValue:#Paste to:#Ctrlv. |
925 | 96 |
map bindValue:#PasteFromHistory to:#CmdV. "paste buffer or external selection" |
927 | 97 |
map bindValue:#Replace to:#Cmdr. |
697 | 98 |
map bindValue:#Replace to:#Ctrlr. |
923 | 99 |
map bindValue:#Join to:#Ctrlj. "join lines" |
100 |
map bindValue:#Join to:#Cmdj. "join lines" |
|
92 | 101 |
map bindValue:#Find to:#Cmds. "open searchbox" |
697 | 102 |
map bindValue:#Find to:#Ctrlf. |
92 | 103 |
map bindValue:#FindNext to:#Cmdf. "search fwd for last searchpattern or selection" |
104 |
map bindValue:#FindPrev to:#Cmdb. "search bwd for last searchpattern or selection" |
|
697 | 105 |
map bindValue:#FindPrev to:#Ctrlb. |
92 | 106 |
map bindValue:#SelectAll to:#CmdA. "that is Alt-shift-a" |
927 | 107 |
map bindValue:#SelectAll to:#Ctrla. |
925 | 108 |
"/ map bindValue:#GotoLine to:#Cmdg. |
109 |
map bindValue:#GotoLine to:#Ctrll. |
|
92 | 110 |
map bindValue:#SelectWord to:#Cmdw. "select word under cursor" |
725
741bb3230b81
undo is CTRL-z (windows-default)
Claus Gittinger <cg@exept.de>
parents:
719
diff
changeset
|
111 |
"/ map bindValue:#Undo to:#Cmdu. |
741bb3230b81
undo is CTRL-z (windows-default)
Claus Gittinger <cg@exept.de>
parents:
719
diff
changeset
|
112 |
"/ map bindValue:#Undo to:#Ctrlu. |
741bb3230b81
undo is CTRL-z (windows-default)
Claus Gittinger <cg@exept.de>
parents:
719
diff
changeset
|
113 |
map bindValue:#Undo to:#Ctrlz. |
92 | 114 |
|
115 |
map bindValue:#Accept to:#Cmda. |
|
692 | 116 |
map bindValue:#Accept to:#Ctrls. |
922 | 117 |
|
92 | 118 |
map bindValue:#Explain to:#Cmde. |
119 |
map bindValue:#Explain to:#Cmdh. |
|
547 | 120 |
map bindValue:#Format to:#CmdF. "that is Alt-shift-F" |
554 | 121 |
"/ map bindValue:#Format to:#CtrlF. "that is Ctrl-shift-F" |
716
b89dd0c733b0
CtrlBreak for keyboard interrupt
Stefan Vogel <sv@exept.de>
parents:
715
diff
changeset
|
122 |
|
705 | 123 |
"/ map bindValue:#DeleteLine to:#CtrlX. |
92 | 124 |
|
125 |
map bindValue:#NextPage to:#Next. "typically labelled PageDown on keyboard" |
|
126 |
map bindValue:#PreviousPage to:#Prior. "typically labelled PageUp on keyboard" |
|
127 |
||
697 | 128 |
"/ map bindValue:#PreviousPage to:#Ctrlb. "vi behavior" |
129 |
"/ map bindValue:#NextPage to:#Ctrlf. "vi behavior" |
|
130 |
"/ map bindValue:#HalfPageUp to:#Ctrlu. |
|
131 |
"/ map bindValue:#HalfPageDown to:#Ctrld. |
|
92 | 132 |
|
442 | 133 |
"/ old setting: |
134 |
"/ map bindValue:#BeginOfText to:#Home. "some prefer to bind #BeginOfLine to #Home" |
|
135 |
"/ map bindValue:#EndOfText to:#End. "some prefer to bind #EndOfLine to #End" |
|
136 |
"/ |
|
137 |
"/ new setting: |
|
609 | 138 |
map bindValue:#BeginOfLine to:#Home. |
139 |
map bindValue:#EndOfLine to:#End. |
|
140 |
map bindValue:#BeginOfText to:#CtrlHome. |
|
141 |
map bindValue:#EndOfText to:#CtrlEnd. |
|
442 | 142 |
|
694 | 143 |
"/ map bindValue:#BeginOfLine to:#Ctrla. |
92 | 144 |
map bindValue:#EndOfLine to:#Ctrle. |
145 |
map bindValue:#NextWord to:#Ctrlw. |
|
694 | 146 |
map bindValue:#EndOfWord to:#CtrlW. |
609 | 147 |
map bindValue:#NextWord to:#CtrlCursorRight. |
148 |
map bindValue:#PreviousWord to:#CtrlCursorLeft. |
|
92 | 149 |
|
609 | 150 |
map bindValue:#ScrollUp to:#CtrlCursorUp. |
151 |
map bindValue:#ScrollDown to:#CtrlCursorDown. |
|
92 | 152 |
|
153 |
map bindValue:#SearchMatchingParent to:#Ctrlm. |
|
154 |
map bindValue:#SelectMatchingParents to:#Cmdm. |
|
155 |
||
156 |
map bindValue:#SelectToEnd to:#CtrlE. "that is ctrl-shift-e" |
|
157 |
map bindValue:#SelectFromBeginning to:#CtrlA. "that is ctrl-shift-a" |
|
925 | 158 |
map bindValue:#ExpandSelectionByLine to:#Cmdl. "try multiple Cmd-l's ..." |
92 | 159 |
|
160 |
"Notice: |
|
161 |
Cmd-CursorLeft/Right and Alt-CursorLeft/Right |
|
162 |
are also used by some winmdowmanagers (fvwm) |
|
163 |
if this is the case on your system, either |
|
164 |
change the following to use different keys, |
|
165 |
or change the windowmanagers configuration file |
|
166 |
(usr/lib/X11/xxxwm/*rc). |
|
167 |
The above is the reason that the following defines Ctrl-xxx |
|
168 |
as an alternative (mwm in the INDY also uses the alt-sequences) |
|
169 |
" |
|
170 |
map bindValue:#FocusNext to:#CmdCursorRight. "experimental" |
|
171 |
map bindValue:#FocusPrevious to:#CmdCursorLeft. "experimental" |
|
550 | 172 |
map bindValue:#FocusNext to:#CmdCursorDown. "experimental" |
173 |
map bindValue:#FocusPrevious to:#CmdCursorUp. "experimental" |
|
174 |
||
92 | 175 |
map bindValue:#FocusNext to:#AltCursorRight. "experimental" |
176 |
map bindValue:#FocusPrevious to:#AltCursorLeft. "experimental" |
|
255 | 177 |
map bindValue:#FocusNext to:#AltCursorDown. "experimental" |
178 |
map bindValue:#FocusPrevious to:#AltCursorUp. "experimental" |
|
92 | 179 |
"/ map bindValue:#FocusNext to:#CtrlCursorRight. "experimental" |
180 |
"/ map bindValue:#FocusPrevious to:#CtrlCursorLeft. "experimental" |
|
181 |
||
564 | 182 |
|
609 | 183 |
map bindValue:#NonInsertingTab to:#ShiftTab. |
184 |
"/ map bindValue:#BackTab to:#ShiftTab. |
|
185 |
map bindValue:#BackTab to:#CtrlTab. |
|
564 | 186 |
map bindValue:#NonInsertingTab to:#'ISO_Left_Tab'. |
187 |
"/ map bindValue:#ToggleTabs to:#CtrlTab. |
|
188 |
||
189 |
"/ map bindValue:#FocusNext to:#CtrlTab. "experimental" |
|
138 | 190 |
map bindValue:#FocusNext to:#CmdTab. "experimental" |
564 | 191 |
"/ map bindValue:#FocusPrevious to:#'ISO_Left_Tab'. |
192 |
map bindValue:#FocusPrevious to:#'CmdISO_Left_Tab'. |
|
415 | 193 |
"/ map bindValue:#Tab to:#'ISO_Left_Tab'. |
609 | 194 |
map bindValue:#Menu to:#Cmdz. |
92 | 195 |
|
122 | 196 |
"* |
197 |
* ISO LATIN 1 symbolic characters - map to iso8859 values |
|
198 |
* not all Xservers send those correctly. |
|
199 |
* As a fall back, dieresis mappings using Alt-key sequences are found at |
|
200 |
* the end. |
|
92 | 201 |
*" |
122 | 202 |
|
203 |
#( |
|
204 |
"/ dieresis characters |
|
205 |
||
206 |
Udiaeresis 16rDC |
|
207 |
Adiaeresis 16rC4 |
|
208 |
Odiaeresis 16rD6 |
|
209 |
udiaeresis 16rFC |
|
210 |
adiaeresis 16rE4 |
|
211 |
odiaeresis 16rF6 |
|
212 |
ydiaeresis 16rFF |
|
213 |
||
214 |
"/ grave |
|
215 |
||
216 |
Agrave 16rC0 |
|
217 |
Egrave 16rC8 |
|
218 |
Igrave 16rCC |
|
219 |
Ograve 16rCC |
|
220 |
Ugrave 16rD9 |
|
221 |
agrave 16rE0 |
|
222 |
egrave 16rE8 |
|
223 |
igrave 16rEC |
|
224 |
ograve 16rF2 |
|
225 |
ugrave 16rF9 |
|
226 |
||
227 |
"/ acute |
|
228 |
||
229 |
Aacute 16rC1 |
|
230 |
Eacute 16rC9 |
|
231 |
Iacute 16rCD |
|
232 |
Oacute 16rD3 |
|
233 |
Uacute 16rDA |
|
234 |
Yacute 16rDD |
|
235 |
aacute 16rE1 |
|
236 |
eacute 16rE9 |
|
237 |
iacute 16rED |
|
238 |
oacute 16rF3 |
|
239 |
uacute 16rFA |
|
240 |
yacute 16rFD |
|
241 |
||
242 |
"/ circumflex |
|
243 |
||
244 |
Acircumflex 16rC2 |
|
609 | 245 |
Ecircumflex 16rCA |
246 |
Icircumflex 16rCE |
|
247 |
Ocircumflex 16rD4 |
|
248 |
Ucircumflex 16rDB |
|
249 |
acircumflex 16rE2 |
|
250 |
ecircumflex 16rEA |
|
251 |
icircumflex 16rEE |
|
252 |
ocircumflex 16rF4 |
|
253 |
ucircumflex 16rFB |
|
122 | 254 |
|
255 |
"/ tilde |
|
256 |
||
609 | 257 |
Atilde 16rC3 |
258 |
Ntilde 16rD1 |
|
259 |
atilde 16rE3 |
|
260 |
ntilde 16rF1 |
|
122 | 261 |
|
262 |
"/ ring |
|
263 |
||
609 | 264 |
Aring 16rC4 |
265 |
aring 16rE4 |
|
122 | 266 |
|
267 |
"/ ligatures |
|
268 |
||
609 | 269 |
AE 16rC5 |
270 |
ae 16rE5 |
|
122 | 271 |
ssharp 16rDF |
272 |
||
273 |
"/ cedilla |
|
274 |
||
609 | 275 |
Ccedilla 16rC7 |
276 |
ccedilla 16rE7 |
|
122 | 277 |
|
278 |
"/ slashed |
|
279 |
||
609 | 280 |
Ooblique 16rD8 |
281 |
oslash 16rF8 |
|
122 | 282 |
|
283 |
"/ misc (if on your keyboard) |
|
284 |
||
285 |
Eth 16rD0 "/ some old servers still use this |
|
609 | 286 |
ETH 16rD0 |
287 |
eth 16rF0 |
|
288 |
multiply 16rD7 |
|
122 | 289 |
Thorn 16rDE "/ some old servers still use this |
290 |
THORN 16rDE "/ some old servers still use this |
|
609 | 291 |
division 16rF7 |
292 |
thorn 16rFE |
|
122 | 293 |
|
294 |
section 16rA7 |
|
295 |
degree 16rB0 |
|
296 |
twosuperior 16rB2 |
|
297 |
threesuperior 16rB3 |
|
298 |
mu 16rB5 |
|
299 |
) pairWiseDo:[:symbolic :numeric | |
|
300 |
map bindValue:(Character value:numeric) to:symbolic. |
|
301 |
]. |
|
92 | 302 |
|
303 |
"* |
|
122 | 304 |
* need more here (katakana, arabic, cyrillic, greek etc.) |
92 | 305 |
*" |
306 |
||
307 |
"* |
|
308 |
* numeric keypad - binding to normal numeric keys |
|
309 |
*" |
|
310 |
"/ map bindValue:$0 to:#'KP_Insert'. |
|
311 |
"/ map bindValue:$1 to:#'KP_End'. |
|
312 |
"/ map bindValue:$2 to:#'KP_Down'. |
|
313 |
"/ map bindValue:$3 to:#'KP_Next'. |
|
314 |
"/ map bindValue:$4 to:#'KP_Left'. |
|
315 |
"/ map bindValue:$5 to:#'KP_Begin'. |
|
316 |
"/ map bindValue:$6 to:#'KP_Right'. |
|
317 |
"/ map bindValue:$7 to:#'KP_Home'. |
|
318 |
"/ map bindValue:$8 to:#'KP_Up'. |
|
319 |
"/ map bindValue:$9 to:#'KP_Prior'. |
|
380 | 320 |
map bindValue:#Return to:#'KP_Enter'. |
321 |
map bindValue:#Delete to:#'KP_Delete'. |
|
92 | 322 |
|
323 |
||
86 | 324 |
"/ remove these lines, if your keyboard has a COMPOSE-key. |
325 |
"/ None of our Xdisplays here has one - so we simulate it using CTRL-R ... |
|
609 | 326 |
"/ which on some (of our) servers comes pretranslated as Multi_key, |
327 | 327 |
"/ CtrlMulti_key or even Mode_switch. |
86 | 328 |
|
327 | 329 |
map bindValue:#Compose to:#'Control_R'. "/ the right compose key |
455
1bc57270b5d7
added Cmd-Shift-B as BrowseIt shortCut
Claus Gittinger <cg@exept.de>
parents:
442
diff
changeset
|
330 |
"/ map bindValue:#Compose to:#'Control_L'. "/ the right compose key |
327 | 331 |
map bindValue:#Compose to:#'Multi_key'. "/ the right compose key |
332 |
map bindValue:#Compose to:#'CtrlMulti_key'. "/ the right compose key |
|
609 | 333 |
"/ map bindValue:#Compose to:#'Mode_switch'. |
86 | 334 |
|
335 |
||
336 |
"/ a kludge: some Xservers send #Delete for both the backspace |
|
337 |
"/ and the Delete key. In this case, we use the Backspace function |
|
338 |
"/ for both keys. If your Xserver does not do this (it should not) |
|
339 |
"/ remove or comment the following 'bindValue:#BackSpace'-line: |
|
340 |
"/ |
|
341 |
||
356 | 342 |
"/ map bindValue:#BackSpace to:#Delete. |
86 | 343 |
|
41 | 344 |
"/ |
345 |
"/ my personal preferences - comment it, if you do not like them |
|
346 |
"/ bind function and other keys as: |
|
347 |
"/ |
|
715
529ebe47d1e9
Change default window style to #mswindowsXP
Stefan Vogel <sv@exept.de>
parents:
705
diff
changeset
|
348 |
"/ F1 - help |
484 | 349 |
"/ F2 - completion |
41 | 350 |
"/ F3 - comment-it |
351 |
"/ F4 - uncomment-it |
|
352 |
"/ F5 - paste shell output |
|
715
529ebe47d1e9
Change default window style to #mswindowsXP
Stefan Vogel <sv@exept.de>
parents:
705
diff
changeset
|
353 |
"/ F8 - again |
41 | 354 |
"/ F9 - undent by 4 |
355 |
"/ F10 - indent by 4 |
|
356 |
"/ Control-R - Compose key |
|
357 |
"/ Break - UserInterrupt |
|
358 |
||
359 |
"/ |
|
360 |
"/ convenient functions on the keyboard |
|
361 |
"/ |
|
715
529ebe47d1e9
Change default window style to #mswindowsXP
Stefan Vogel <sv@exept.de>
parents:
705
diff
changeset
|
362 |
map bindValue:#Help to:#F1. |
529ebe47d1e9
Change default window style to #mswindowsXP
Stefan Vogel <sv@exept.de>
parents:
705
diff
changeset
|
363 |
map bindValue:#Again to:#F8. |
41 | 364 |
map bindValue:#UserInterrupt to:#Break. |
716
b89dd0c733b0
CtrlBreak for keyboard interrupt
Stefan Vogel <sv@exept.de>
parents:
715
diff
changeset
|
365 |
map bindValue:#UserInterrupt to:#CtrlBreak. |
89 | 366 |
"/ map bindValue:#PrintIt to:#Print. "/ called PrintScreen on most keyboards |
367 |
"/ map bindValue:#InspectIt to:#Execute. "/ called SysReq on most keyboards |
|
41 | 368 |
|
922 | 369 |
map bindValue:#SaveAs to:#CtrlS. |
88 | 370 |
map bindValue:#SaveAs to:#CmdS. |
371 |
||
481 | 372 |
"/ xxxF5 -> macro ReplaceSelectionByUnixCommandsOutput (unix command output paste) |
460 | 373 |
"/ CtrlTab -> macro ToggleTabs (toggle 4/8 tabs) |
374 |
"/ F10 -> macro IndentBy4 (indent by 4) |
|
375 |
"/ F9 -> macro UndentBy4 (undent by 4) |
|
376 |
"/ F12 -> macro IndentBy1 (indent by 1) |
|
377 |
"/ F11 -> macro UndentBy1 (undent by 1) |
|
484 | 378 |
"/ F2 -> completion |
292 | 379 |
"/ F3 -> commentSelection |
380 |
"/ F4 -> uncommentSelection |
|
41 | 381 |
|
481 | 382 |
"/ map bindValue:#ReplaceSelectionByUnixCommandsOutput to:#F5. |
41 | 383 |
"/ map bindValue:#CmdF97 to:#F7. |
384 |
"/ map bindValue:#CmdF96 to:#F6. |
|
643 | 385 |
|
460 | 386 |
map bindValue:#IndentBy4 to:#F10. |
387 |
map bindValue:#UndentBy4 to:#F9. |
|
41 | 388 |
|
460 | 389 |
map bindValue:#IndentBy1 to:#F12. |
390 |
map bindValue:#UndentBy1 to:#F11. |
|
292 | 391 |
|
726 | 392 |
map bindValue:#ConvertSelectionToLowercaseOrUppercaseOrUppercaseFirst to:#F6. |
728 | 393 |
map bindValue:#ConvertSelectionToUppercase to:#CtrlF6. |
457 | 394 |
|
41 | 395 |
map bindValue:#CommentSelection to:#F3. |
396 |
map bindValue:#UncommentSelection to:#F4. |
|
397 |
||
719 | 398 |
map bindValue:#ParenthizeSelection to:#'Cmd('. |
399 |
map bindValue:#UnparenthizeSelection to:#'Cmd)'. |
|
400 |
||
699 | 401 |
map bindValue:#LearnKeyboardMacro to:#CtrlF2. |
402 |
map bindValue:#ExecuteKeyboardMacro to:#CmdF2. |
|
438 | 403 |
|
481 | 404 |
map bindValue:#CodeCompletion to:#F2. |
918 | 405 |
map bindValue:#CodeCompletion to:#'Ctrl '. |
438 | 406 |
|
609 | 407 |
"/ map bindValue:#PasteBlockEvaluationsOutput to:#CmdV. |
487 | 408 |
|
41 | 409 |
"/ |
410 |
"/ since some of my machines have german keyboards ;-) |
|
411 |
"/ and I like to be able to edit my files on all machines, |
|
412 |
"/ I need a translation in both ways. |
|
413 |
"/ you'd normally not define things in both directions. |
|
414 |
"/ |
|
609 | 415 |
"/ actually, these things belong into the servers modmap or |
57 | 416 |
"/ into a display specific d_<displayName>.rc ... |
41 | 417 |
"/ |
418 |
"/ german national characters on a US keyboard: |
|
140 | 419 |
"/ comment this, if you have a german keyboard. |
41 | 420 |
"/ |
140 | 421 |
"/map bindValue:(Character value:16rFC) to:#'Cmd['. "/ u dieresis |
422 |
"/map bindValue:(Character value:16rE4) to:#'Cmd'''. "/ a dieresis |
|
423 |
"/map bindValue:(Character value:16rF6) to:#'Cmd;'. "/ o dieresis |
|
424 |
"/map bindValue:(Character value:16rDC) to:#'Cmd{'. "/ U dieresis |
|
425 |
"/map bindValue:(Character value:16rC4) to:#'Cmd"'. "/ A dieresis |
|
426 |
"/map bindValue:(Character value:16rD6) to:#'Cmd:'. "/ O dieresis |
|
427 |
"/map bindValue:(Character value:16rDF) to:#'Cmd-'. "/ s-sharp |
|
41 | 428 |
|
429 |
"/ |
|
122 | 430 |
"/ US characters on national keyboards: |
431 |
"/ (on many national keyboards, the x-server does NOT correctly |
|
432 |
"/ xlate characters .... on others, it does and you may remove/comment |
|
433 |
"/ the following.) |
|
41 | 434 |
"/ |
435 |
map bindValue:$[ to:#'Alt['. |
|
436 |
map bindValue:$] to:#'Alt]'. |
|
437 |
map bindValue:$| to:#'Alt|'. |
|
438 |
map bindValue:${ to:#'Alt{'. |
|
57 | 439 |
map bindValue:$} to:#'Alt}'. |
122 | 440 |
map bindValue:$\ to:#'Alt\'. |
140 | 441 |
map bindValue:$~ to:#'Alt~'. |
442 |
map bindValue:$@ to:#'Alt@'. |
|
443 |
||
609 | 444 |
map bindValue:$[ to:#'Cmd['. |
140 | 445 |
map bindValue:$] to:#'Cmd]'. |
446 |
map bindValue:$| to:#'Cmd|'. |
|
447 |
map bindValue:${ to:#'Cmd{'. |
|
448 |
map bindValue:$} to:#'Cmd}'. |
|
449 |
map bindValue:$\ to:#'Cmd\'. |
|
450 |
map bindValue:$~ to:#'Cmd~'. |
|
451 |
map bindValue:$@ to:#'Cmd@'. |
|
497 | 452 |
map bindValue:$# to:#'Cmd#'. |
140 | 453 |
|
690 | 454 |
map bindValue:#UserInterrupt to:#'Cmd.' . "/ for squeak compatibility |
122 | 455 |
|
41 | 456 |
! |