"*

 * $Header$

 * display related configuration

 * first do some common setup, then try to find a

 * display specific initialization file.

 *"

"*

 * key bindings common to all display types

 *"

|map|

map := Display keyboardMap.

map bindValue:#Copy      to:#Cmdc.

map bindValue:#Cut       to:#Cmdx.

map bindValue:#Paste     to:#Cmdv.

map bindValue:#Replace   to:#Cmdr.

map bindValue:#Find      to:#Cmds.

map bindValue:#FindNext  to:#Cmdf.

map bindValue:#FindPrev  to:#Cmdb.

map bindValue:#SelectAll to:#CmdA.      "that is cmd-shift-a"

map bindValue:#Accept    to:#Cmda.

map bindValue:#Explain   to:#Cmde.

map bindValue:#BeginOfLine to:#Ctrla.

map bindValue:#EndOfLine   to:#Ctrle.

map bindValue:#SelectToEnd to:#CtrlE.           "that is ctrl-shift-e"

map bindValue:#SelectFromBeginning to:#CtrlA.   "that is ctrl-shift-a"

"*

 * international characters - map to iso8859 values

 *"

map bindValue:(Character value:16rFC) to:#udiaeresis.

map bindValue:(Character value:16rE4) to:#adiaeresis.

map bindValue:(Character value:16rF6) to:#odiaeresis.

map bindValue:(Character value:16rDC) to:#Udiaeresis.

map bindValue:(Character value:16rC4) to:#Adiaeresis.

map bindValue:(Character value:16rD6) to:#Odiaeresis.

map bindValue:(Character value:16rDF) to:#ssharp.

"*

 * need more here (french ...)

 *"

"*

 * misc characters

 *"

map bindValue:(Character value:16rA7) to:#section.

map bindValue:(Character value:16rB0) to:#degree.

map bindValue:(Character value:16rB2) to:#twosuperior.

map bindValue:(Character value:16rB3) to:#threesuperior.

map bindValue:(Character value:16rB5) to:#mu.

!

"*

 * take a smaller font on small (i.e. vga) screens

 *"

|sz|

sz := 12.

Display width < 800 ifTrue:[

    sz := 10

].

"*

 * this defines the default font for all views (actually for all GC's)

 *"

GraphicsContext defaultFont:(Font family:'courier' face:'medium' style:'roman' size:sz).

"*

 * this defines the default font for menu views

 *"

(View defaultStyle == #openwin) ifTrue:[

    MenuView defaultFont:(Font family:'lucida' face:'medium' style:'roman' size:sz).

    Launcher defaultFont:(Font family:'lucida' face:'medium' style:'roman' size:sz).

] ifFalse:[

    (View defaultStyle == #iris) ifTrue:[

        MenuView defaultFont:(Font family:'helvetica' face:'bold' style:'oblique' size:sz).

        SelectionInListView defaultFont:(Font family:'helvetica' face:'medium' style:'roman' size:sz).

        Launcher defaultFont:(Font family:'helvetica' face:'bold' style:'oblique' size:sz).

    ] ifFalse:[

        MenuView defaultFont:(Font family:'helvetica' face:'bold' style:'roman' size:sz).

        Launcher defaultFont:(Font family:'helvetica' face:'bold' style:'roman' size:sz).

    ]

].

"*

 * this defines the default font for code views

 *"

CodeView defaultFont:(Font family:'courier' face:'medium' style:'roman' size:sz).

' '

!

"*

 * find out, on what type of display we run

 * (they should have added this to the x-protocol)

 *

 * look for a file named 'd_<displays-hostname>.rc' and file it in

 *"

|displayVar display displayType s idx|

"find display name from environment or -display argument"

idx := Arguments indexOf:'-display'.

idx ~~ 0 ifTrue:[

    displayVar := Arguments at:idx + 1.

] ifFalse:[

    displayVar := OperatingSystem getEnvironment:'DISPLAY'.

].

display := displayVar.

displayVar notNil ifTrue:[

    ((displayVar startsWith:':0') or:[displayVar startsWith:'unix:0'])  ifTrue:[

        display := OperatingSystem getHostName.

    ] ifFalse:[

        (displayVar endsWith:':0') ifTrue:[

            display := displayVar copyTo:(displayVar size - 2)

        ]

    ].

    display isNil ifTrue:[

    ] ifFalse:[

        "if there is a corresponding file ..."

        s := Smalltalk systemFileStreamFor:('d_' , display , '.rc').

        s notNil ifTrue:[

            displayType := display.

            s close.

        ].

        "otherwise ..."

        displayType isNil ifTrue:[

            "just an example - stuff could also be hardwired here ..."

            display notNil ifTrue:[

                (display startsWith:'clam') ifTrue:[

                    displayType := 'next'

                ].

                (display startsWith:'porty') ifTrue:[

                    displayType := 'portable'

                ].

                (display startsWith:'blue') ifTrue:[

                    displayType := 'iris'

                ].

                (display startsWith:'sun') ifTrue:[

                    displayType := 'sun'

                ].

                (display startsWith:'slsv') ifTrue:[

                    "all those machines here at SEL are suns"

                    displayType := 'sun'

                ].

            ].

        ].

    ].

    displayType isNil ifTrue:[

        "use type of machine smalltalk is running on as default ..."

        (displayVar startsWith:':0') ifTrue:[

            displayType := OperatingSystem getSystemType.

        ]

    ]

].

displayType notNil ifTrue:[

    ('reading display setup d_' , displayType , '.rc ...') printNewline.

    Smalltalk fileIn:('d_' , displayType , '.rc')

].

!

"*

 * set a default style, if not been set by rc-file

 * this is set acc. the system we are running on

 *"

|type|

View defaultStyle isNil ifTrue:[

    type := OperatingSystem getSystemType.

    type = 'sunos' ifTrue:[

        View defaultStyle:#openwin

    ].

    type = 'next' ifTrue:[

        View defaultStyle:#next

    ].

    type = 'iris' ifTrue:[

        View defaultStyle:#iris

    ].

]

!