equal
deleted
inserted
replaced
219 #FocusNext #CmdTab "experimental" |
219 #FocusNext #CmdTab "experimental" |
220 #FocusPrevious #'CmdISO_Left_Tab' |
220 #FocusPrevious #'CmdISO_Left_Tab' |
221 "/ map bindValue:#Tab #'ISO_Left_Tab' |
221 "/ map bindValue:#Tab #'ISO_Left_Tab' |
222 #Menu #Cmdz |
222 #Menu #Cmdz |
223 ) pairWiseDo:[:symbolic :key | |
223 ) pairWiseDo:[:symbolic :key | |
224 map bindValue:symbolic to:key. |
224 map bindValue:symbolic to:key. |
225 ]. |
225 ]. |
226 |
226 |
227 OperatingSystem isMSWINDOWSlike ifTrue:[ |
227 OperatingSystem isMSWINDOWSlike ifTrue:[ |
228 map bindValue:#UserAbort to:#Pause. |
228 map bindValue:#UserAbort to:#Pause. |
229 ] ifFalse:[ |
229 ] ifFalse:[ |
230 map bindValue:#UserInterrupt to:#Pause. "X11" |
230 map bindValue:#UserInterrupt to:#Pause. "X11" |
|
231 ]. |
|
232 |
|
233 OperatingSystem isOSXlike ifTrue:[ |
|
234 "/ Screen current keyboardMap bindValue:#ToggleInsertMode to:#CtrlO |
|
235 map bindValue:#ToggleInsertMode to:#CtrlO. |
231 ]. |
236 ]. |
232 |
237 |
233 "* |
238 "* |
234 * ISO LATIN 1 symbolic characters - map to iso8859-1/unicode values |
239 * ISO LATIN 1 symbolic characters - map to iso8859-1/unicode values |
235 * not all Xservers send those correctly. |
240 * not all Xservers send those correctly. |