equal
deleted
inserted
replaced
9 * display related configuration: |
9 * display related configuration: |
10 * first do some common setup, then try to figure out |
10 * first do some common setup, then try to figure out |
11 * the kind of display and find a |
11 * the kind of display and find a |
12 * display specific initialization file. |
12 * display specific initialization file. |
13 *" |
13 *" |
14 |
|
15 "/ common keyboard setup; |
|
16 "/ might be changed later by a display-specific |
|
17 "/ rc file (especially, d_windows does this) |
|
18 |
|
19 'display.rc [info]: reading ''keyboard.rc'' ...' infoPrintCR. |
|
20 Smalltalk fileIn:'keyboard.rc'. |
|
21 ! |
|
22 |
14 |
23 "* |
15 "* |
24 * mouse-button translation |
16 * mouse-button translation |
25 * |
17 * |
26 * (currently, allowed are 1 2 and #paste) |
18 * (currently, allowed are 1 2 and #paste) |
257 ] |
249 ] |
258 ] |
250 ] |
259 ]. |
251 ]. |
260 |
252 |
261 "/ if no host specific info, |
253 "/ if no host specific info, |
262 "/ take the display vendow information, |
254 "/ take the display vendor information, |
263 "/ to read d_<vendor>.rc |
255 "/ to read d_<vendor>.rc |
264 |
256 |
265 display isNil ifTrue:[ |
257 display isNil ifTrue:[ |
266 isWindowsDisplay ifTrue:[ |
258 isWindowsDisplay ifTrue:[ |
267 display := 'win32' |
259 display := 'win32' |
394 " |
386 " |
395 Display supportsDeepIcons:false. |
387 Display supportsDeepIcons:false. |
396 Smalltalk isStandAloneApp ifFalse:[ |
388 Smalltalk isStandAloneApp ifFalse:[ |
397 ('display.rc [info]: trying display setup ''d_' , displayType , '.rc'' ...') infoPrintCR. |
389 ('display.rc [info]: trying display setup ''d_' , displayType , '.rc'' ...') infoPrintCR. |
398 ]. |
390 ]. |
|
391 |
|
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') |
399 Smalltalk fileIn:('d_' , displayType , '.rc') |
400 ]. |
400 ]. |
401 Smalltalk at:#'_ImageDisplayName' put:displayType |
401 Smalltalk at:#'_ImageDisplayName' put:displayType |
402 ] |
402 ] |
403 ! |
403 ! |