638
|
1 |
"*
|
|
2 |
* Encoding: iso8859-1
|
|
3 |
*
|
|
4 |
* $Header$
|
|
5 |
*
|
|
6 |
* MIMEType: application/x-smalltalk-source
|
|
7 |
*
|
|
8 |
* ST/X startup configuration file:
|
|
9 |
*
|
|
10 |
* display configuration - OSX (MAC-OS-10 with X-server), only tried with german keyboard)
|
|
11 |
*
|
|
12 |
* If your display is the above, create a symbolic link
|
|
13 |
* d_<hostname-of-display>.rc -> d_next.rc
|
|
14 |
*
|
|
15 |
*"
|
|
16 |
|
|
17 |
"*
|
|
18 |
* view style
|
|
19 |
*"
|
1386
|
20 |
"/ View defaultStyle:#mswindowsVista.
|
|
21 |
"/ View defaultStyle:#mswindows8.
|
|
22 |
"/ View defaultStyle:#Adwaita.
|
|
23 |
"/ View defaultStyle:#'macosx'.
|
|
24 |
View defaultStyle:#'macosx_yosemite'.
|
638
|
25 |
!
|
|
26 |
|
1521
|
27 |
"/ notice that Shift-Wheel is not passed to XQuartz apps (bug or feature??)
|
|
28 |
"/ configure horizontal scroll to be done with ALT-wheel
|
|
29 |
UserPreferences current metaIsMouseWheelZoom:false.
|
|
30 |
!
|
|
31 |
|
638
|
32 |
"*
|
|
33 |
* keyboard mapping
|
|
34 |
*"
|
|
35 |
|map|
|
|
36 |
|
|
37 |
map := Display keyboardMap.
|
|
38 |
map bindValue:#Alt to:#'Meta_L'.
|
|
39 |
map bindValue:#Alt to:#'Meta_L'.
|
|
40 |
|
|
41 |
map bindValue:(Character value:16r2260) to:#'notequal'.
|
|
42 |
map bindValue:(Character value:16r201E) to:#'doublelowquotemark'.
|
1502
|
43 |
map bindValue:(Character value:16r201A) to:#'singlelowquotemark'.
|
638
|
44 |
map bindValue:(Character value:16r201C) to:#'leftdoublequotemark'.
|
|
45 |
map bindValue:(Character value:16r201D) to:#'rightdoublequotemark'.
|
|
46 |
map bindValue:(Character value:16r2018) to:#'leftsinglequotemark'.
|
639
|
47 |
map bindValue:(Character value:16r2264) to:#'lessthanequal'.
|
|
48 |
map bindValue:(Character value:16r2265) to:#'greaterthanequal'.
|
1502
|
49 |
map bindValue:(Character value:16r00AB) to:#'guillemotleft'.
|
|
50 |
map bindValue:(Character value:16r00BB) to:#'guillemotright'.
|
|
51 |
map bindValue:(Character value:16r00B7) to:#'periodcentered'.
|
|
52 |
map bindValue:(Character value:16r00A1) to:#'exclamdown'.
|
|
53 |
map bindValue:(Character value:16r00BF) to:#'questiondown'.
|
|
54 |
map bindValue:(Character value:16r00A3) to:#'sterling'.
|
|
55 |
map bindValue:(Character value:16r00A2) to:#'cent'.
|
|
56 |
map bindValue:(Character value:16r2122) to:#'trademark'.
|
|
57 |
map bindValue:(Character value:16r2020) to:#'dagger'.
|
|
58 |
map bindValue:(Character value:16r2021) to:#'doubledagger'.
|
|
59 |
map bindValue:(Character value:16r2202) to:#'partialderivative'.
|
|
60 |
map bindValue:(Character value:16r00CF) to:#'Idiaeresis'.
|
638
|
61 |
!
|
639
|
62 |
|
|
63 |
Display buttonPressTimeForMenu:1.
|
|
64 |
!
|
1281
|
65 |
|
|
66 |
"/ does not seem to have a good set of unicode fonts available...
|
|
67 |
FontDescription defaultEncoding: #'iso8859-1'.
|
|
68 |
!
|