author | Claus Gittinger <cg@exept.de> |
Sat, 13 Oct 2018 18:17:08 +0200 | |
changeset 1583 | 825a2629e6d7 |
parent 1568 | ae79d5416996 |
child 1597 | e6215fb6ec7c |
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 |
1127
601cd02e5a4b
ctrlbackspace is deleteword, not shift-backspace
Claus Gittinger <cg@exept.de>
parents:
1121
diff
changeset
|
19 |
* in the current directory. After a change, file it in the running st/x, |
601cd02e5a4b
ctrlbackspace is deleteword, not shift-backspace
Claus Gittinger <cg@exept.de>
parents:
1121
diff
changeset
|
20 |
* using the fileBrowser's fileIn function. |
54 | 21 |
* |
719 | 22 |
* These are my personal preferrences which may not be |
402 | 23 |
* correct for your environment. |
24 |
* |
|
609 | 25 |
* WARNING: |
402 | 26 |
* please keep the expressions below free from manipulating |
27 |
* global state - all that should be done here is to set up the current |
|
1497 | 28 |
* screen's keyboard map. |
1535 | 29 |
* Reason: in multihead applications, this will be consulted for each |
30 |
* new display screen. |
|
31 |
* |
|
32 |
* Notice: |
|
33 |
* on some systems, some key-combinations are already taken/reserved |
|
34 |
* by the window manager or operating system. In particular, this applies |
|
35 |
* to the MaxOSX version, where many CMD-key combinations are already |
|
36 |
* eaten by XQuartz or the system. Therefore, you'll find duplicate |
|
37 |
* associations where both CTRL-x and CMD-x (and sometimes even ALT-x) |
|
38 |
* are assigned to the same logical keyboard function. |
|
39 |
* |
|
40 |
* Also Notice: |
|
41 |
* keyboard macros are little code-snippets to be executed whenever a |
|
42 |
* macro key is pressed. This is done in a two step translation process: |
|
43 |
* first the physical key is xlated to a logical key (in the map below), |
|
44 |
* then a corresponding macro association is looked up. |
|
45 |
* Macros are defined in a separate file named 'keyboardMacros.rc'. |
|
41 | 46 |
*" |
1243
1fc6b3f01e48
End chung after initial comment / encoding spec
Stefan Vogel <sv@exept.de>
parents:
1196
diff
changeset
|
47 |
! |
719 | 48 |
Smalltalk fileIn:'keyboardMacros.rc'. |
86 | 49 |
! |
50 |
||
92 | 51 |
"* |
52 |
* key bindings common to all display types |
|
53 |
* use event monitor, to see what the Xserver sends us; |
|
54 |
* put display-specific stuff into a d_hostName.rc file. |
|
55 |
*" |
|
402 | 56 |
|map screen| |
86 | 57 |
|
402 | 58 |
screen := Screen current. |
59 |
map := screen keyboardMap. |
|
86 | 60 |
|
1277 | 61 |
#( |
1313 | 62 |
#Cmd #Alt |
1277 | 63 |
#Cmd #Menu |
1472
125a66fb0d16
zoominall/zoomoutall (CTRL-SHIFT-+ and CTRL-SHIFT--)
Claus Gittinger <cg@exept.de>
parents:
1436
diff
changeset
|
64 |
"/ #Cmd #Mode_switch |
1277 | 65 |
#Menu #Appl |
66 |
#Menu #CtrlAppl |
|
67 |
#Menu #CmdAppl |
|
68 |
||
69 |
"/ #'Hardcopy' #'Super_R' |
|
70 |
#'Alt' #'Super_L' |
|
71 |
#'Alt' #'Hyper_R' |
|
72 |
||
73 |
#UserInterrupt #Break "WIN" |
|
74 |
#UserAbort #CtrlCancel "WIN: abort window process, but no debugger" |
|
75 |
#UserAbort #CtrlPause |
|
76 |
#UserAbort #CtrlBreak "X11: abort window process, but no debugger" |
|
1340 | 77 |
#UserAbort #CmdY |
1277 | 78 |
#FlushInput #CtrlX "flush typeahead input" |
79 |
#DestroyView #CmdCtrlX "to destroy dead views" |
|
80 |
#DestroyTopView #CmdCtrlx "to destroy dead views" |
|
81 |
||
82 |
#CloseWindowRequest #CmdF4 |
|
83 |
||
84 |
#DoIt #Cmdd "i e Cmd-d / Alt-d (sometimes Meta-d)" |
|
85 |
#DoIt #Ctrld |
|
86 |
#InspectIt #Cmdi "evaluate & inspect result" |
|
87 |
#InspectIt #Ctrlq |
|
88 |
#PrintIt #Cmdp "evaluate and paste result" |
|
89 |
#PrintIt #Ctrlp |
|
90 |
#ReplaceIt #CmdP "evaluate and replace selection by result" |
|
91 |
#BrowseIt #CmdB |
|
92 |
#BrowseIt #CtrlB |
|
93 |
#ImplementorsOfIt #CtrlI |
|
94 |
#ImplementorsOfIt #CmdI |
|
1535 | 95 |
"/ #SendersOfIt #CtrlS |
96 |
"/ #SendersOfIt #CmdS |
|
1277 | 97 |
|
1382
e225333e9318
Ctrl-Insert is #Copy, Shift-Insert is #Paset and Alt-Insert is #ToggleInsertMode
Stefan Vogel <sv@exept.de>
parents:
1373
diff
changeset
|
98 |
#ToggleInsertMode #AltInsert |
e225333e9318
Ctrl-Insert is #Copy, Shift-Insert is #Paset and Alt-Insert is #ToggleInsertMode
Stefan Vogel <sv@exept.de>
parents:
1373
diff
changeset
|
99 |
#Copy #CtrlInsert |
e225333e9318
Ctrl-Insert is #Copy, Shift-Insert is #Paset and Alt-Insert is #ToggleInsertMode
Stefan Vogel <sv@exept.de>
parents:
1373
diff
changeset
|
100 |
#Paste #ShiftInsert |
1277 | 101 |
|
102 |
#Copy #Cmdc "copy selection to buffer" |
|
1382
e225333e9318
Ctrl-Insert is #Copy, Shift-Insert is #Paset and Alt-Insert is #ToggleInsertMode
Stefan Vogel <sv@exept.de>
parents:
1373
diff
changeset
|
103 |
#Copy #Ctrlc "copy selection to buffer" |
1277 | 104 |
|
105 |
#Cut #Cmdx "cut selection into buffer" |
|
106 |
#Cut #Ctrlx |
|
107 |
#Paste #Cmdv "paste buffer or external selection" |
|
108 |
#Paste #Ctrlv |
|
1306 | 109 |
#PasteFromHistory #CmdV "show paste history" |
110 |
#PasteFromHistory #CtrlV "show paste history" |
|
1277 | 111 |
#Replace #Cmdr |
112 |
#Replace #Ctrlr |
|
113 |
#Join #Ctrlj "join lines" |
|
114 |
#Join #Cmdj "join lines" |
|
115 |
#Find #Cmds "open searchbox" |
|
116 |
#Find #Ctrlf |
|
117 |
#FindNext #Cmdf "search fwd for last searchpattern or selection" |
|
118 |
#FindPrev #Cmdb "search bwd for last searchpattern or selection" |
|
119 |
#FindPrev #Ctrlb |
|
1568 | 120 |
#FindNext #Altf "search fwd for last searchpattern or selection" |
121 |
#FindPrev #Altb "search bwd for last searchpattern or selection" |
|
1277 | 122 |
#SelectAll #CmdA "that is Alt-shift-a" |
123 |
#SelectAll #Ctrla |
|
124 |
#GotoLine #Ctrll |
|
125 |
#GotoLine #Ctrlg |
|
126 |
#SelectWord #Cmdw "select word under cursor" |
|
127 |
#Undo #Ctrlz |
|
128 |
#Redo #Ctrly |
|
129 |
||
130 |
#Accept #Cmda |
|
131 |
#Accept #Ctrls |
|
132 |
||
133 |
#Explain #Cmde |
|
134 |
#Explain #Cmdh |
|
135 |
#Format #CmdF "that is Alt-shift-F" |
|
136 |
"/ #Format #CtrlF "that is Ctrl-shift-F" |
|
137 |
||
138 |
"/ #DeleteLine #CtrlX |
|
139 |
||
140 |
#NextPage #Next "typically labelled PageDown on keyboard" |
|
141 |
#PreviousPage #Prior "typically labelled PageUp on keyboard" |
|
931 | 142 |
|
1277 | 143 |
"/ #PreviousPage #Ctrlb "vi behavior" |
144 |
"/ #NextPage #Ctrlf "vi behavior" |
|
145 |
"/ #HalfPageUp #Ctrlu |
|
146 |
"/ #HalfPageDown #Ctrld |
|
147 |
||
148 |
"/ old setting: |
|
149 |
"/ #BeginOfText #Home "some prefer to bind #BeginOfLine to #Home" |
|
150 |
"/ #EndOfText #End "some prefer to bind #EndOfLine to #End" |
|
151 |
"/ |
|
152 |
"/ new setting: |
|
153 |
#BeginOfLine #Home |
|
154 |
#EndOfLine #End |
|
155 |
#BeginOfText #CtrlHome |
|
156 |
#EndOfText #CtrlEnd |
|
157 |
||
1559 | 158 |
#SelectFromBeginning #ShiftHome |
159 |
#SelectToEnd #ShiftEnd |
|
160 |
||
1277 | 161 |
#EndOfLine #Ctrle |
162 |
#NextWord #Ctrlw |
|
163 |
#EndOfWord #CtrlW |
|
164 |
||
165 |
#NextWord #CtrlCursorRight |
|
166 |
#PreviousWord #CtrlCursorLeft |
|
167 |
||
1522 | 168 |
#OpenWorkspaceOnIt Ctrlo |
169 |
||
1277 | 170 |
#ScrollUp #CtrlCursorUp |
1535 | 171 |
#ScrollUp #CmdCursorUp |
1277 | 172 |
#ScrollDown #CtrlCursorDown |
1535 | 173 |
#ScrollDown #CmdCursorDown |
1277 | 174 |
|
175 |
#SearchMatchingParent #Ctrlm |
|
176 |
#SelectMatchingParents #Cmdm |
|
177 |
||
178 |
#SelectToEnd #CtrlE "that is ctrl-shift-e" |
|
179 |
#SelectFromBeginning #CtrlA "that is ctrl-shift-a" |
|
180 |
#ExpandSelectionByLine #Cmdl "try multiple Cmd-l's ..." |
|
1472
125a66fb0d16
zoominall/zoomoutall (CTRL-SHIFT-+ and CTRL-SHIFT--)
Claus Gittinger <cg@exept.de>
parents:
1436
diff
changeset
|
181 |
#ExpandSelectionByWord #CmdW "try multiple Cmd-w's ..." |
125a66fb0d16
zoominall/zoomoutall (CTRL-SHIFT-+ and CTRL-SHIFT--)
Claus Gittinger <cg@exept.de>
parents:
1436
diff
changeset
|
182 |
"/ #ExpandSelectionByWord #CtrlW "that is ctrl-shift-w" |
1277 | 183 |
|
1472
125a66fb0d16
zoominall/zoomoutall (CTRL-SHIFT-+ and CTRL-SHIFT--)
Claus Gittinger <cg@exept.de>
parents:
1436
diff
changeset
|
184 |
#ZoomIn #'Ctrl+' |
1277 | 185 |
#ZoomOut #'Ctrl-' |
1472
125a66fb0d16
zoominall/zoomoutall (CTRL-SHIFT-+ and CTRL-SHIFT--)
Claus Gittinger <cg@exept.de>
parents:
1436
diff
changeset
|
186 |
#ZoomInAll #'Ctrl*' |
125a66fb0d16
zoominall/zoomoutall (CTRL-SHIFT-+ and CTRL-SHIFT--)
Claus Gittinger <cg@exept.de>
parents:
1436
diff
changeset
|
187 |
#ZoomOutAll #'Ctrlunderscore' |
252
5d4a68556e45
ESC & Compose keys on DEC keyboards
Claus Gittinger <cg@exept.de>
parents:
209
diff
changeset
|
188 |
|
1277 | 189 |
"Notice: |
190 |
Cmd-CursorLeft/Right and Alt-CursorLeft/Right |
|
191 |
are also used by some winmdowmanagers (fvwm) |
|
192 |
if this is the case on your system, either |
|
193 |
change the following to use different keys, |
|
194 |
or change the windowmanagers configuration file |
|
195 |
(usr/lib/X11/xxxwm/*rc) |
|
196 |
The above is the reason that the following defines Ctrl-xxx |
|
197 |
as an alternative (mwm in the INDY also uses the alt-sequences) |
|
198 |
" |
|
199 |
||
200 |
#FocusNext #CmdCursorRight "experimental" |
|
201 |
#FocusPrevious #CmdCursorLeft "experimental" |
|
202 |
#FocusNext #CmdCursorDown "experimental" |
|
203 |
#FocusPrevious #CmdCursorUp "experimental" |
|
204 |
||
205 |
#FocusNext #AltCursorRight "experimental" |
|
206 |
#FocusPrevious #AltCursorLeft "experimental" |
|
207 |
#FocusNext #AltCursorDown "experimental" |
|
208 |
#FocusPrevious #AltCursorUp "experimental" |
|
209 |
"/ #FocusNext #CtrlCursorRight "experimental" |
|
210 |
"/ #FocusPrevious #CtrlCursorLeft "experimental" |
|
211 |
||
212 |
||
213 |
#NonInsertingTab #ShiftTab |
|
214 |
#BackTab #CtrlTab |
|
215 |
#NonInsertingTab #'ISO_Left_Tab' |
|
216 |
"/ #ToggleTabs #CtrlTab |
|
217 |
||
1559 | 218 |
#FocusNext #AltTab "experimental" |
1277 | 219 |
#FocusNext #CmdTab "experimental" |
220 |
#FocusPrevious #'CmdISO_Left_Tab' |
|
221 |
"/ map bindValue:#Tab #'ISO_Left_Tab' |
|
222 |
#Menu #Cmdz |
|
223 |
) pairWiseDo:[:symbolic :key | |
|
224 |
map bindValue:symbolic to:key. |
|
609 | 225 |
]. |
252
5d4a68556e45
ESC & Compose keys on DEC keyboards
Claus Gittinger <cg@exept.de>
parents:
209
diff
changeset
|
226 |
|
1196
72b2cb293f6a
abort key under mswindows (strange)
Claus Gittinger <cg@exept.de>
parents:
1127
diff
changeset
|
227 |
OperatingSystem isMSWINDOWSlike ifTrue:[ |
1277 | 228 |
map bindValue:#UserAbort to:#Pause. |
1196
72b2cb293f6a
abort key under mswindows (strange)
Claus Gittinger <cg@exept.de>
parents:
1127
diff
changeset
|
229 |
] ifFalse:[ |
1277 | 230 |
map bindValue:#UserInterrupt to:#Pause. "X11" |
1196
72b2cb293f6a
abort key under mswindows (strange)
Claus Gittinger <cg@exept.de>
parents:
1127
diff
changeset
|
231 |
]. |
92 | 232 |
|
122 | 233 |
"* |
1277 | 234 |
* ISO LATIN 1 symbolic characters - map to iso8859-1/unicode values |
122 | 235 |
* not all Xservers send those correctly. |
236 |
* As a fall back, dieresis mappings using Alt-key sequences are found at |
|
237 |
* the end. |
|
92 | 238 |
*" |
122 | 239 |
|
240 |
#( |
|
241 |
"/ dieresis characters |
|
242 |
||
243 |
Udiaeresis 16rDC |
|
244 |
Adiaeresis 16rC4 |
|
245 |
Odiaeresis 16rD6 |
|
246 |
udiaeresis 16rFC |
|
247 |
adiaeresis 16rE4 |
|
248 |
odiaeresis 16rF6 |
|
249 |
ydiaeresis 16rFF |
|
250 |
||
251 |
"/ grave |
|
252 |
||
253 |
Agrave 16rC0 |
|
254 |
Egrave 16rC8 |
|
255 |
Igrave 16rCC |
|
256 |
Ograve 16rCC |
|
257 |
Ugrave 16rD9 |
|
258 |
agrave 16rE0 |
|
259 |
egrave 16rE8 |
|
260 |
igrave 16rEC |
|
261 |
ograve 16rF2 |
|
262 |
ugrave 16rF9 |
|
263 |
||
264 |
"/ acute |
|
265 |
||
266 |
Aacute 16rC1 |
|
267 |
Eacute 16rC9 |
|
268 |
Iacute 16rCD |
|
269 |
Oacute 16rD3 |
|
270 |
Uacute 16rDA |
|
271 |
Yacute 16rDD |
|
272 |
aacute 16rE1 |
|
273 |
eacute 16rE9 |
|
274 |
iacute 16rED |
|
275 |
oacute 16rF3 |
|
276 |
uacute 16rFA |
|
277 |
yacute 16rFD |
|
278 |
||
279 |
"/ circumflex |
|
280 |
||
281 |
Acircumflex 16rC2 |
|
609 | 282 |
Ecircumflex 16rCA |
283 |
Icircumflex 16rCE |
|
284 |
Ocircumflex 16rD4 |
|
285 |
Ucircumflex 16rDB |
|
286 |
acircumflex 16rE2 |
|
287 |
ecircumflex 16rEA |
|
288 |
icircumflex 16rEE |
|
289 |
ocircumflex 16rF4 |
|
290 |
ucircumflex 16rFB |
|
122 | 291 |
|
292 |
"/ tilde |
|
293 |
||
609 | 294 |
Atilde 16rC3 |
295 |
Ntilde 16rD1 |
|
296 |
atilde 16rE3 |
|
297 |
ntilde 16rF1 |
|
122 | 298 |
|
299 |
"/ ring |
|
300 |
||
609 | 301 |
Aring 16rC4 |
302 |
aring 16rE4 |
|
122 | 303 |
|
304 |
"/ ligatures |
|
305 |
||
1491 | 306 |
AE 16rC6 |
307 |
ae 16rE6 |
|
122 | 308 |
ssharp 16rDF |
1491 | 309 |
oe 16r153 |
310 |
OE 16r152 |
|
122 | 311 |
|
312 |
"/ cedilla |
|
313 |
||
609 | 314 |
Ccedilla 16rC7 |
315 |
ccedilla 16rE7 |
|
122 | 316 |
|
317 |
"/ slashed |
|
318 |
||
609 | 319 |
Ooblique 16rD8 |
320 |
oslash 16rF8 |
|
122 | 321 |
|
322 |
"/ misc (if on your keyboard) |
|
323 |
||
1279 | 324 |
Eth 16rD0 "/ some old servers still use this |
609 | 325 |
ETH 16rD0 |
326 |
eth 16rF0 |
|
327 |
multiply 16rD7 |
|
122 | 328 |
Thorn 16rDE "/ some old servers still use this |
329 |
THORN 16rDE "/ some old servers still use this |
|
1278 | 330 |
acute 16rEF |
609 | 331 |
division 16rF7 |
332 |
thorn 16rFE |
|
1491 | 333 |
infinity 16r221E |
1522 | 334 |
"/ ellipsis 16r2026 -- very disturbing |
1491 | 335 |
endash 16r2013 |
336 |
dagger 16r2020 |
|
337 |
approxeq 16r2248 |
|
1492 | 338 |
radical 16r221A |
1491 | 339 |
|
340 |
guillemotleft 16rAB |
|
341 |
guillemotright 16rBF |
|
342 |
||
343 |
enfilledcircbullet 16r2022 |
|
122 | 344 |
|
345 |
section 16rA7 |
|
1279 | 346 |
rightdoublequotemark 16rAB |
347 |
leftdoublequotemark 16rBB |
|
348 |
notsign 16rAC |
|
122 | 349 |
degree 16rB0 |
350 |
twosuperior 16rB2 |
|
351 |
threesuperior 16rB3 |
|
352 |
mu 16rB5 |
|
1279 | 353 |
cedilla 16rB8 |
354 |
onesuperior 16rB9 |
|
355 |
onequarter 16rBC |
|
356 |
onehalf 16rBD |
|
357 |
threequarter 16rBE |
|
1491 | 358 |
|
359 |
copyright 16rA9 |
|
360 |
registered 16rAE |
|
361 |
||
362 |
Greek_pi 16r03c0 |
|
363 |
Greek_Pi 16r220F |
|
364 |
Greek_OMEGA 16r03a9 |
|
365 |
||
1277 | 366 |
EuroSign 16r20AC |
1491 | 367 |
yen 16rA5 |
122 | 368 |
) pairWiseDo:[:symbolic :numeric | |
369 |
map bindValue:(Character value:numeric) to:symbolic. |
|
370 |
]. |
|
92 | 371 |
|
372 |
"* |
|
122 | 373 |
* need more here (katakana, arabic, cyrillic, greek etc.) |
92 | 374 |
*" |
375 |
||
376 |
"* |
|
377 |
* numeric keypad - binding to normal numeric keys |
|
378 |
*" |
|
379 |
"/ map bindValue:$0 to:#'KP_Insert'. |
|
380 |
"/ map bindValue:$1 to:#'KP_End'. |
|
381 |
"/ map bindValue:$2 to:#'KP_Down'. |
|
382 |
"/ map bindValue:$3 to:#'KP_Next'. |
|
383 |
"/ map bindValue:$4 to:#'KP_Left'. |
|
384 |
"/ map bindValue:$5 to:#'KP_Begin'. |
|
385 |
"/ map bindValue:$6 to:#'KP_Right'. |
|
386 |
"/ map bindValue:$7 to:#'KP_Home'. |
|
387 |
"/ map bindValue:$8 to:#'KP_Up'. |
|
388 |
"/ map bindValue:$9 to:#'KP_Prior'. |
|
380 | 389 |
map bindValue:#Return to:#'KP_Enter'. |
390 |
map bindValue:#Delete to:#'KP_Delete'. |
|
92 | 391 |
|
392 |
||
86 | 393 |
"/ remove these lines, if your keyboard has a COMPOSE-key. |
394 |
"/ None of our Xdisplays here has one - so we simulate it using CTRL-R ... |
|
609 | 395 |
"/ which on some (of our) servers comes pretranslated as Multi_key, |
327 | 396 |
"/ CtrlMulti_key or even Mode_switch. |
86 | 397 |
|
1436 | 398 |
"/ 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
|
399 |
"/ map bindValue:#Compose to:#'Control_L'. "/ the right compose key |
327 | 400 |
map bindValue:#Compose to:#'Multi_key'. "/ the right compose key |
1436 | 401 |
"/ map bindValue:#Compose to:#'CtrlMulti_key'. "/ the right compose key |
609 | 402 |
"/ map bindValue:#Compose to:#'Mode_switch'. |
86 | 403 |
|
404 |
||
405 |
"/ a kludge: some Xservers send #Delete for both the backspace |
|
406 |
"/ and the Delete key. In this case, we use the Backspace function |
|
407 |
"/ for both keys. If your Xserver does not do this (it should not) |
|
408 |
"/ remove or comment the following 'bindValue:#BackSpace'-line: |
|
409 |
"/ |
|
410 |
||
356 | 411 |
"/ map bindValue:#BackSpace to:#Delete. |
1127
601cd02e5a4b
ctrlbackspace is deleteword, not shift-backspace
Claus Gittinger <cg@exept.de>
parents:
1121
diff
changeset
|
412 |
map bindValue:#DeleteWordBeforeCursor to:#CtrlBackSpace. |
1253
c4fe978d8015
ALT-Backspace is Delete (for reduced keyboards)
Claus Gittinger <cg@exept.de>
parents:
1243
diff
changeset
|
413 |
map bindValue:#Delete to:#CmdBackSpace. |
86 | 414 |
|
41 | 415 |
"/ |
416 |
"/ my personal preferences - comment it, if you do not like them |
|
417 |
"/ bind function and other keys as: |
|
418 |
"/ |
|
715
529ebe47d1e9
Change default window style to #mswindowsXP
Stefan Vogel <sv@exept.de>
parents:
705
diff
changeset
|
419 |
"/ F1 - help |
1063 | 420 |
"/ F2 - rename (old: completion) |
1561 | 421 |
"/ F3 - search again |
422 |
"/ F4 - comment-it |
|
423 |
"/ F5 - uncomment-it |
|
424 |
"/ F6 - paste shell output |
|
715
529ebe47d1e9
Change default window style to #mswindowsXP
Stefan Vogel <sv@exept.de>
parents:
705
diff
changeset
|
425 |
"/ F8 - again |
41 | 426 |
"/ F9 - undent by 4 |
427 |
"/ F10 - indent by 4 |
|
428 |
"/ Control-R - Compose key |
|
429 |
"/ Break - UserInterrupt |
|
430 |
||
431 |
"/ |
|
432 |
"/ convenient functions on the keyboard |
|
433 |
"/ |
|
942 | 434 |
map bindValue:#Help to:#F1. |
435 |
map bindValue:#Again to:#F8. |
|
89 | 436 |
"/ map bindValue:#PrintIt to:#Print. "/ called PrintScreen on most keyboards |
437 |
"/ map bindValue:#InspectIt to:#Execute. "/ called SysReq on most keyboards |
|
41 | 438 |
|
922 | 439 |
map bindValue:#SaveAs to:#CtrlS. |
88 | 440 |
map bindValue:#SaveAs to:#CmdS. |
441 |
||
481 | 442 |
"/ xxxF5 -> macro ReplaceSelectionByUnixCommandsOutput (unix command output paste) |
460 | 443 |
"/ CtrlTab -> macro ToggleTabs (toggle 4/8 tabs) |
444 |
"/ F10 -> macro IndentBy4 (indent by 4) |
|
445 |
"/ F9 -> macro UndentBy4 (undent by 4) |
|
446 |
"/ F12 -> macro IndentBy1 (indent by 1) |
|
447 |
"/ F11 -> macro UndentBy1 (undent by 1) |
|
1561 | 448 |
"/ F2 -> rename |
449 |
"/ F4 -> commentSelection |
|
450 |
"/ F5 -> uncommentSelection |
|
41 | 451 |
|
481 | 452 |
"/ map bindValue:#ReplaceSelectionByUnixCommandsOutput to:#F5. |
41 | 453 |
"/ map bindValue:#CmdF97 to:#F7. |
454 |
"/ map bindValue:#CmdF96 to:#F6. |
|
643 | 455 |
|
460 | 456 |
map bindValue:#IndentBy4 to:#F10. |
457 |
map bindValue:#UndentBy4 to:#F9. |
|
41 | 458 |
|
460 | 459 |
map bindValue:#IndentBy1 to:#F12. |
460 |
map bindValue:#UndentBy1 to:#F11. |
|
292 | 461 |
|
726 | 462 |
map bindValue:#ConvertSelectionToLowercaseOrUppercaseOrUppercaseFirst to:#F6. |
728 | 463 |
map bindValue:#ConvertSelectionToUppercase to:#CtrlF6. |
457 | 464 |
|
1063 | 465 |
map bindValue:#Rename to:#F2. |
1561 | 466 |
map bindValue:#FindAgain to:#F3. "/ search again in same direction |
467 |
map bindValue:#CommentSelection to:#F4. |
|
468 |
map bindValue:#UncommentSelection to:#F5. |
|
41 | 469 |
|
719 | 470 |
map bindValue:#ParenthizeSelection to:#'Cmd('. |
471 |
map bindValue:#UnparenthizeSelection to:#'Cmd)'. |
|
472 |
||
699 | 473 |
map bindValue:#LearnKeyboardMacro to:#CtrlF2. |
474 |
map bindValue:#ExecuteKeyboardMacro to:#CmdF2. |
|
1561 | 475 |
map bindValue:#ExecuteKeyboardMacro to:#CtrlF3. |
1373 | 476 |
map bindValue:#LearnKeyboardMacro to:#CmdL. |
477 |
map bindValue:#ExecuteKeyboardMacro to:#CmdM. |
|
438 | 478 |
|
1318 | 479 |
map bindValue:#CodeCompletion to:#'Ctrl '. "that is Ctrl-Space" |
480 |
map bindValue:#CodeCompletion to:#'Ctrlspace'. "mhmh - why is this sent on linux, and the above on windows (must check) ?" |
|
942 | 481 |
|
943 | 482 |
map bindValue:#ExpandAbbreviation to:#'Cmd '. "that is Alt-Space" |
1568 | 483 |
map bindValue:#ExpandAbbreviation to:#nobreakspace. |
438 | 484 |
|
609 | 485 |
"/ map bindValue:#PasteBlockEvaluationsOutput to:#CmdV. |
487 | 486 |
|
41 | 487 |
"/ |
488 |
"/ since some of my machines have german keyboards ;-) |
|
489 |
"/ and I like to be able to edit my files on all machines, |
|
490 |
"/ I need a translation in both ways. |
|
491 |
"/ you'd normally not define things in both directions. |
|
492 |
"/ |
|
1497 | 493 |
"/ actually, these things belong into the server's modmap or |
57 | 494 |
"/ into a display specific d_<displayName>.rc ... |
41 | 495 |
"/ |
496 |
"/ german national characters on a US keyboard: |
|
140 | 497 |
"/ comment this, if you have a german keyboard. |
41 | 498 |
"/ |
140 | 499 |
"/map bindValue:(Character value:16rFC) to:#'Cmd['. "/ u dieresis |
500 |
"/map bindValue:(Character value:16rE4) to:#'Cmd'''. "/ a dieresis |
|
501 |
"/map bindValue:(Character value:16rF6) to:#'Cmd;'. "/ o dieresis |
|
502 |
"/map bindValue:(Character value:16rDC) to:#'Cmd{'. "/ U dieresis |
|
503 |
"/map bindValue:(Character value:16rC4) to:#'Cmd"'. "/ A dieresis |
|
504 |
"/map bindValue:(Character value:16rD6) to:#'Cmd:'. "/ O dieresis |
|
505 |
"/map bindValue:(Character value:16rDF) to:#'Cmd-'. "/ s-sharp |
|
41 | 506 |
|
507 |
"/ |
|
122 | 508 |
"/ US characters on national keyboards: |
509 |
"/ (on many national keyboards, the x-server does NOT correctly |
|
510 |
"/ xlate characters .... on others, it does and you may remove/comment |
|
511 |
"/ the following.) |
|
41 | 512 |
"/ |
1472
125a66fb0d16
zoominall/zoomoutall (CTRL-SHIFT-+ and CTRL-SHIFT--)
Claus Gittinger <cg@exept.de>
parents:
1436
diff
changeset
|
513 |
OperatingSystem isOSXlike ifFalse:[ |
125a66fb0d16
zoominall/zoomoutall (CTRL-SHIFT-+ and CTRL-SHIFT--)
Claus Gittinger <cg@exept.de>
parents:
1436
diff
changeset
|
514 |
map bindValue:$[ to:#'Alt['. |
125a66fb0d16
zoominall/zoomoutall (CTRL-SHIFT-+ and CTRL-SHIFT--)
Claus Gittinger <cg@exept.de>
parents:
1436
diff
changeset
|
515 |
map bindValue:$] to:#'Alt]'. |
125a66fb0d16
zoominall/zoomoutall (CTRL-SHIFT-+ and CTRL-SHIFT--)
Claus Gittinger <cg@exept.de>
parents:
1436
diff
changeset
|
516 |
map bindValue:$| to:#'Alt|'. |
125a66fb0d16
zoominall/zoomoutall (CTRL-SHIFT-+ and CTRL-SHIFT--)
Claus Gittinger <cg@exept.de>
parents:
1436
diff
changeset
|
517 |
map bindValue:${ to:#'Alt{'. |
125a66fb0d16
zoominall/zoomoutall (CTRL-SHIFT-+ and CTRL-SHIFT--)
Claus Gittinger <cg@exept.de>
parents:
1436
diff
changeset
|
518 |
map bindValue:$} to:#'Alt}'. |
125a66fb0d16
zoominall/zoomoutall (CTRL-SHIFT-+ and CTRL-SHIFT--)
Claus Gittinger <cg@exept.de>
parents:
1436
diff
changeset
|
519 |
map bindValue:$\ to:#'Alt\'. |
125a66fb0d16
zoominall/zoomoutall (CTRL-SHIFT-+ and CTRL-SHIFT--)
Claus Gittinger <cg@exept.de>
parents:
1436
diff
changeset
|
520 |
map bindValue:$~ to:#'Alt~'. |
125a66fb0d16
zoominall/zoomoutall (CTRL-SHIFT-+ and CTRL-SHIFT--)
Claus Gittinger <cg@exept.de>
parents:
1436
diff
changeset
|
521 |
map bindValue:$@ to:#'Alt@'. |
125a66fb0d16
zoominall/zoomoutall (CTRL-SHIFT-+ and CTRL-SHIFT--)
Claus Gittinger <cg@exept.de>
parents:
1436
diff
changeset
|
522 |
|
125a66fb0d16
zoominall/zoomoutall (CTRL-SHIFT-+ and CTRL-SHIFT--)
Claus Gittinger <cg@exept.de>
parents:
1436
diff
changeset
|
523 |
map bindValue:$[ to:#'Cmd['. |
125a66fb0d16
zoominall/zoomoutall (CTRL-SHIFT-+ and CTRL-SHIFT--)
Claus Gittinger <cg@exept.de>
parents:
1436
diff
changeset
|
524 |
map bindValue:$] to:#'Cmd]'. |
125a66fb0d16
zoominall/zoomoutall (CTRL-SHIFT-+ and CTRL-SHIFT--)
Claus Gittinger <cg@exept.de>
parents:
1436
diff
changeset
|
525 |
map bindValue:$| to:#'Cmd|'. |
125a66fb0d16
zoominall/zoomoutall (CTRL-SHIFT-+ and CTRL-SHIFT--)
Claus Gittinger <cg@exept.de>
parents:
1436
diff
changeset
|
526 |
map bindValue:${ to:#'Cmd{'. |
125a66fb0d16
zoominall/zoomoutall (CTRL-SHIFT-+ and CTRL-SHIFT--)
Claus Gittinger <cg@exept.de>
parents:
1436
diff
changeset
|
527 |
map bindValue:$} to:#'Cmd}'. |
125a66fb0d16
zoominall/zoomoutall (CTRL-SHIFT-+ and CTRL-SHIFT--)
Claus Gittinger <cg@exept.de>
parents:
1436
diff
changeset
|
528 |
map bindValue:$\ to:#'Cmd\'. |
125a66fb0d16
zoominall/zoomoutall (CTRL-SHIFT-+ and CTRL-SHIFT--)
Claus Gittinger <cg@exept.de>
parents:
1436
diff
changeset
|
529 |
map bindValue:$~ to:#'Cmd~'. |
125a66fb0d16
zoominall/zoomoutall (CTRL-SHIFT-+ and CTRL-SHIFT--)
Claus Gittinger <cg@exept.de>
parents:
1436
diff
changeset
|
530 |
map bindValue:$@ to:#'Cmd@'. |
125a66fb0d16
zoominall/zoomoutall (CTRL-SHIFT-+ and CTRL-SHIFT--)
Claus Gittinger <cg@exept.de>
parents:
1436
diff
changeset
|
531 |
map bindValue:$# to:#'Cmd#'. |
125a66fb0d16
zoominall/zoomoutall (CTRL-SHIFT-+ and CTRL-SHIFT--)
Claus Gittinger <cg@exept.de>
parents:
1436
diff
changeset
|
532 |
]. |
140 | 533 |
|
1497 | 534 |
OperatingSystem isOSXlike ifTrue:[ |
535 |
map bindValue:#Delete to:#'AltBackSpace'. |
|
536 |
]. |
|
537 |
||
690 | 538 |
map bindValue:#UserInterrupt to:#'Cmd.' . "/ for squeak compatibility |
1330
5a64cf920fd2
CTRL-. is also user interrupt
Claus Gittinger <cg@exept.de>
parents:
1318
diff
changeset
|
539 |
map bindValue:#UserInterrupt to:#'Ctrl.' . "/ for vw compatibility |
122 | 540 |
|
41 | 541 |
! |