equal
deleted
inserted
replaced
31 |
31 |
32 "* |
32 "* |
33 * lefthanders can use: |
33 * lefthanders can use: |
34 *" |
34 *" |
35 "/ Screen buttonTranslation:#(2 2 1). |
35 "/ Screen buttonTranslation:#(2 2 1). |
|
36 ! |
|
37 |
|
38 "/ common keyboard setup; |
|
39 "/ might be changed later by a display-specific |
|
40 "/ rc file (especially, d_windows does this) |
|
41 |
|
42 "/ 'display.rc [info]: reading ''keyboard.rc'' ...' infoPrintCR. |
|
43 Smalltalk fileIn:'keyboard.rc'. |
36 ! |
44 ! |
37 |
45 |
38 "* |
46 "* |
39 * define extensions for image files (i.e. extension-to-readerClass |
47 * define extensions for image files (i.e. extension-to-readerClass |
40 * mappings). Some of the readers are autoloaded (see patches file). |
48 * mappings). Some of the readers are autoloaded (see patches file). |
387 Display supportsDeepIcons:false. |
395 Display supportsDeepIcons:false. |
388 Smalltalk isStandAloneApp ifFalse:[ |
396 Smalltalk isStandAloneApp ifFalse:[ |
389 ('display.rc [info]: trying display setup ''d_' , displayType , '.rc'' ...') infoPrintCR. |
397 ('display.rc [info]: trying display setup ''d_' , displayType , '.rc'' ...') infoPrintCR. |
390 ]. |
398 ]. |
391 |
399 |
392 "/ common keyboard setup; |
|
393 "/ might be changed later by a display-specific |
|
394 "/ rc file (especially, d_windows does this) |
|
395 |
|
396 "/ 'display.rc [info]: reading ''keyboard.rc'' ...' infoPrintCR. |
|
397 Smalltalk fileIn:'keyboard.rc'. |
|
398 |
|
399 Smalltalk fileIn:('d_' , displayType , '.rc') |
400 Smalltalk fileIn:('d_' , displayType , '.rc') |
400 ]. |
401 ]. |
401 Smalltalk at:#'_ImageDisplayName' put:displayType |
402 Smalltalk at:#'_ImageDisplayName' put:displayType |
402 ] |
403 ] |
403 ! |
404 ! |