equal
deleted
inserted
replaced
317 "/ displayType := 'sun' |
317 "/ displayType := 'sun' |
318 "/ ]. |
318 "/ ]. |
319 "/ (display startsWith:'frxt') ifTrue:[ |
319 "/ (display startsWith:'frxt') ifTrue:[ |
320 "/ "all those machines at AEG are xterminals" |
320 "/ "all those machines at AEG are xterminals" |
321 "/ displayType := 'xterminal' |
321 "/ displayType := 'xterminal' |
322 "/ ]. |
|
323 "/ (display startsWith:'frlx') ifTrue:[ |
|
324 "/ "all those machines at AEG are linux boxes with olwm" |
|
325 "/ displayType := 'linux_olwm' |
|
326 "/ ]. |
322 "/ ]. |
327 "/ |
323 "/ |
328 "/ OperatingSystem getDomainName = 'exept.de' ifTrue:[ |
324 "/ OperatingSystem getDomainName = 'exept.de' ifTrue:[ |
329 "/ (display startsWith:'clam') ifTrue:[ |
325 "/ (display startsWith:'clam') ifTrue:[ |
330 "/ displayType := 'next' |
326 "/ displayType := 'next' |
406 "/ rc file (especially, d_windows does this) |
402 "/ rc file (especially, d_windows does this) |
407 |
403 |
408 "/ 'display.rc [info]: reading ''keyboard.rc'' ...' infoPrintCR. |
404 "/ 'display.rc [info]: reading ''keyboard.rc'' ...' infoPrintCR. |
409 Smalltalk fileIn:'keyboard.rc'. |
405 Smalltalk fileIn:'keyboard.rc'. |
410 |
406 |
411 displayDevice supportsDeepIcons:true. |
|
412 Smalltalk isStandAloneApp ifFalse:[ |
407 Smalltalk isStandAloneApp ifFalse:[ |
413 ('display.rc [info]: ') infoPrint. |
408 ('display.rc [info]: ') infoPrint. |
414 (Smalltalk getSystemFileName:('d_' , displayType , '.rc')) isNil ifTrue:[ |
409 (Smalltalk getSystemFileName:('d_' , displayType , '.rc')) isNil ifTrue:[ |
415 'trying' infoPrint. |
410 'trying' infoPrint. |
416 ] ifFalse:[ |
411 ] ifFalse:[ |