|
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 |
*"
|
|
|
20 |
"/ View defaultStyle:#osx. "/ non-existing
|
|
1359
|
21 |
View defaultStyle:#Adwaita.
|
|
638
|
22 |
!
|
|
|
23 |
|
|
|
24 |
"*
|
|
|
25 |
* keyboard mapping
|
|
|
26 |
*"
|
|
|
27 |
|map|
|
|
|
28 |
|
|
|
29 |
map := Display keyboardMap.
|
|
|
30 |
map bindValue:#Alt to:#'Meta_L'.
|
|
|
31 |
map bindValue:#Alt to:#'Meta_L'.
|
|
|
32 |
|
|
|
33 |
map bindValue:(Character value:16r2260) to:#'notequal'.
|
|
|
34 |
map bindValue:(Character value:16r201E) to:#'doublelowquotemark'.
|
|
|
35 |
map bindValue:(Character value:16r201C) to:#'leftdoublequotemark'.
|
|
|
36 |
map bindValue:(Character value:16r201D) to:#'rightdoublequotemark'.
|
|
|
37 |
map bindValue:(Character value:16r2018) to:#'leftsinglequotemark'.
|
|
639
|
38 |
map bindValue:(Character value:16r2264) to:#'lessthanequal'.
|
|
|
39 |
map bindValue:(Character value:16r2265) to:#'greaterthanequal'.
|
|
638
|
40 |
!
|
|
639
|
41 |
|
|
|
42 |
Display buttonPressTimeForMenu:1.
|
|
|
43 |
!
|
|
1281
|
44 |
|
|
|
45 |
"/ does not seem to have a good set of unicode fonts available...
|
|
|
46 |
FontDescription defaultEncoding: #'iso8859-1'.
|
|
|
47 |
!
|