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