equal
deleted
inserted
replaced
448 "/ Notice: normally, the below is not needed, since the style |
448 "/ Notice: normally, the below is not needed, since the style |
449 "/ is always set by the d_xxx.rc file. |
449 "/ is always set by the d_xxx.rc file. |
450 "/ Except, when the d_xxx.rc is not present. |
450 "/ Except, when the d_xxx.rc is not present. |
451 "/ |
451 "/ |
452 |
452 |
453 |type| |
453 |type wm| |
454 |
454 |
455 View defaultStyle isNil ifTrue:[ |
455 View defaultStyle isNil ifTrue:[ |
456 type := OperatingSystem getSystemType. |
456 type := OperatingSystem getSystemType. |
457 type = 'sunos' ifTrue:[ |
457 type = 'sunos' ifTrue:[ |
458 View defaultStyle:#openwin |
458 View defaultStyle:#openwin |
464 View defaultStyle:#iris |
464 View defaultStyle:#iris |
465 ]. |
465 ]. |
466 type = 'linux' ifTrue:[ |
466 type = 'linux' ifTrue:[ |
467 "/ if on the local display, and WINDOWMANAGER is fvwm95, |
467 "/ if on the local display, and WINDOWMANAGER is fvwm95, |
468 "/ use win95 style as default. |
468 "/ use win95 style as default. |
|
469 wm := OperatingSystem getEnvironment:'WINDOWMANAGER'. |
469 (((OperatingSystem getEnvironment:'DISPLAY') = ':0') |
470 (((OperatingSystem getEnvironment:'DISPLAY') = ':0') |
470 and:[((OperatingSystem getEnvironment:'WINDOWMANAGER') endsWith:'fvwm95')]) |
471 and:[wm notNil |
|
472 and:[wm endsWith:'fvwm95']]) |
471 ifTrue:[ |
473 ifTrue:[ |
472 View defaultStyle:#mswindows95 |
474 View defaultStyle:#mswindows95 |
473 ] ifFalse:[ |
475 ] ifFalse:[ |
474 View defaultStyle:#iris |
476 View defaultStyle:#iris |
475 ] |
477 ] |