d_osx.rc
author Claus Gittinger <cg@exept.de>
Tue, 18 Jun 2019 21:36:29 +0200
changeset 1597 e6215fb6ec7c
parent 1521 f28d61bbd51d
permissions -rw-r--r--
fix for english mac kbd

"*
 * Encoding: iso8859-1
 *
 * $Header$
 *
 * MIMEType: application/x-smalltalk-source
 *
 * ST/X startup configuration file:
 *
 * display configuration - OSX (MAC-OS-10 with X-server), only tried with german keyboard)
 *
 * If your display is the above, create a symbolic link
 * d_<hostname-of-display>.rc -> d_next.rc
 *
 *"

"*
 * view style
 *"
"/ View defaultStyle:#mswindowsVista.
"/ View defaultStyle:#mswindows8.
"/ View defaultStyle:#Adwaita.
"/ View defaultStyle:#'macosx'.
View defaultStyle:#'macosx_yosemite'.
!

"/ notice that Shift-Wheel is not passed to XQuartz apps (bug or feature??)
"/ configure horizontal scroll to be done with ALT-wheel
UserPreferences current metaIsMouseWheelZoom:false.
!

"*
 * keyboard mapping
 *"
|map|

map := Display keyboardMap.
map bindValue:#Alt to:#'Meta_L'.
map bindValue:#Alt to:#'Meta_L'.

map bindValue:(Character value:16r2260) to:#'notequal'.
map bindValue:(Character value:16r201E) to:#'doublelowquotemark'.
map bindValue:(Character value:16r201A) to:#'singlelowquotemark'.
map bindValue:(Character value:16r201C) to:#'leftdoublequotemark'.
map bindValue:(Character value:16r201D) to:#'rightdoublequotemark'.
map bindValue:(Character value:16r2018) to:#'leftsinglequotemark'.
map bindValue:(Character value:16r2264) to:#'lessthanequal'.
map bindValue:(Character value:16r2265) to:#'greaterthanequal'.
map bindValue:(Character value:16r00AB) to:#'guillemotleft'.
map bindValue:(Character value:16r00BB) to:#'guillemotright'.
map bindValue:(Character value:16r00B7) to:#'periodcentered'.
map bindValue:(Character value:16r00A1) to:#'exclamdown'.
map bindValue:(Character value:16r00BF) to:#'questiondown'.
map bindValue:(Character value:16r00A3) to:#'sterling'.
map bindValue:(Character value:16r00A2) to:#'cent'.
map bindValue:(Character value:16r2122) to:#'trademark'.
map bindValue:(Character value:16r2020) to:#'dagger'.
map bindValue:(Character value:16r2021) to:#'doubledagger'.
map bindValue:(Character value:16r2202) to:#'partialderivative'.
map bindValue:(Character value:16r00CF) to:#'Idiaeresis'.
!

Display buttonPressTimeForMenu:1.
!

"/ does not seem to have a good set of unicode fonts available...
FontDescription defaultEncoding: #'iso8859-1'.
!