472 "/ Notice: normally, the below is not needed, since the style |
472 "/ Notice: normally, the below is not needed, since the style |
473 "/ is always set by the d_xxx.rc file. |
473 "/ is always set by the d_xxx.rc file. |
474 "/ Except, when the d_xxx.rc is not present. |
474 "/ Except, when the d_xxx.rc is not present. |
475 "/ |
475 "/ |
476 |
476 |
477 |type wm| |
477 |type wm style| |
478 |
478 |
479 View defaultStyle isNil ifTrue:[ |
479 View defaultStyle isNil ifTrue:[ |
|
480 style := #mswindows95. |
480 type := OperatingSystem getSystemType. |
481 type := OperatingSystem getSystemType. |
481 type = 'sunos' ifTrue:[ |
482 type = 'sunos' ifTrue:[ |
482 "/ CG: now obsolete; use windows-style here |
483 "/ CG: now obsolete; use windows-style here |
483 "/ View defaultStyle:#openwin |
484 "/ View defaultStyle:#openwin |
484 View defaultStyle:#mswindows95 |
485 style := #mswindows95 |
485 ]. |
486 ]. |
486 type = 'next' ifTrue:[ |
487 type = 'next' ifTrue:[ |
487 View defaultStyle:#next |
488 style := #next |
488 ]. |
489 ]. |
489 type = 'iris' ifTrue:[ |
490 type = 'iris' ifTrue:[ |
490 View defaultStyle:#iris |
491 style := #iris |
491 ]. |
|
492 type = 'exceed' ifTrue:[ |
|
493 View defaultStyle:#mswindows95 |
|
494 ]. |
|
495 type = 'linux' ifTrue:[ |
|
496 View defaultStyle:#mswindows95 |
|
497 ]. |
|
498 type = 'hpux' ifTrue:[ |
|
499 View defaultStyle:#motif |
|
500 ]. |
|
501 type = 'ultrix' ifTrue:[ |
|
502 View defaultStyle:#'motif_dec2' |
|
503 ]. |
492 ]. |
504 type = 'os2' ifTrue:[ |
493 type = 'os2' ifTrue:[ |
505 View defaultStyle:#os2 |
494 style := #os2 |
506 ]. |
495 ]. |
507 (type = 'win32') ifTrue:[ |
496 View defaultStyle:style |
508 View defaultStyle:#'mswindows95' |
497 'display.rc [info]: no style set - default to ' infoPrint. style infoPrintCR. |
509 ]. |
|
510 |
|
511 "/ final fallBack ... |
|
512 |
|
513 View defaultStyle isNil ifTrue:[ |
|
514 (Display notNil and:[Display hasGreyscales]) ifTrue:[ |
|
515 "/ CG: now obsolete; use windows-style here |
|
516 "/ View defaultStyle:#iris |
|
517 View defaultStyle:#'mswindows95' |
|
518 ] ifFalse:[ |
|
519 View defaultStyle:#normal |
|
520 ] |
|
521 ]. |
|
522 'display.rc [info]: no style set - default to ' infoPrint. |
|
523 View defaultStyle infoPrintCR |
|
524 ] |
498 ] |
525 ! |
499 ! |