author | Claus Gittinger <cg@exept.de> |
Sat, 13 Oct 2018 18:17:08 +0200 | |
changeset 1583 | 825a2629e6d7 |
parent 715 | 529ebe47d1e9 |
permissions | -rw-r--r-- |
0 | 1 |
"* |
609 | 2 |
* Encoding: iso8859-1 |
3 |
* |
|
0 | 4 |
* $Header$ |
84 | 5 |
* |
399 | 6 |
* MIMEType: application/x-smalltalk-source |
7 |
* |
|
209 | 8 |
* ST/X startup configuration file: |
0 | 9 |
* display configuration - sun |
100 | 10 |
* |
11 |
* If your display is the above, create a symbolic link |
|
12 |
* d_<hostname-of-display>.rc -> d_sun.rc |
|
13 |
* |
|
0 | 14 |
*" |
15 |
||
199 | 16 |
"/ |
17 |
"/ the following helps to avoid the annoying click |
|
18 |
"/ on newly opened windows ... |
|
19 |
"/ |
|
20 |
StandardSystemView takeFocusWhenMapped:true. |
|
21 |
||
22 |
||
5 | 23 |
"* |
24 |
* view style - uncomment the one you like |
|
25 |
*" |
|
7 | 26 |
|
8 | 27 |
"/ actually, openwin-style is not finished yet |
615 | 28 |
"/ you may prefer #iris, #motif |
8 | 29 |
|
715
529ebe47d1e9
Change default window style to #mswindowsXP
Stefan Vogel <sv@exept.de>
parents:
615
diff
changeset
|
30 |
View defaultStyle:#mswindowsXP. |
615 | 31 |
"/ View defaultStyle:#openwin. |
8 | 32 |
"/ View defaultStyle:#iris. |
33 |
"/ View defaultStyle:#motif. |
|
0 | 34 |
! |
35 |
||
36 |
" |
|
37 |
define suns left-function keys |
|
38 |
(this really should be done by xmodmap/server) |
|
39 |
" |
|
40 |
|map| |
|
41 |
||
42 |
map := Display keyboardMap. |
|
43 |
||
44 |
map bindValue:#Find to:#F19. |
|
45 |
map bindValue:#Cut to:#F20. |
|
46 |
map bindValue:#Paste to:#F18. |
|
47 |
map bindValue:#Open to:#F17. |
|
48 |
map bindValue:#Copy to:#F16. |
|
49 |
map bindValue:#Undo to:#F14. |
|
50 |
map bindValue:#Props to:#F13. |
|
51 |
map bindValue:#Again to:#F12. |
|
52 |
map bindValue:#Prior to:#F29. |
|
53 |
map bindValue:#Next to:#F35. |
|
54 |
map bindValue:#Home to:#F27. |
|
55 |
map bindValue:#End to:#R13. |
|
356 | 56 |
|
57 |
"/ a kludge: some Xservers send #Delete for both the backspace |
|
58 |
"/ and the Delete key. In this case, we use the Backspace function |
|
59 |
"/ for both keys. If your Xserver does not do this (it should not) |
|
60 |
"/ remove or comment the following 'bindValue:#BackSpace'-line: |
|
61 |
"/ |
|
62 |
||
63 |
map bindValue:#BackSpace to:#Delete. |
|
64 |
||
0 | 65 |
! |