"*
 * $Header$
 *
 * ST/X startup configuration file:
 *
 * display configuration - for my portable-pc (gas plasma b&w vga or 8514 color)
 *
 * You probably dont need that one ...
 *
 * Since I run my portably pc with changing VGA cards (dump VGA vs. 8514),
 * the code below guesses on this depending on the resolution.
 * The gas plasma display can only display greyscales - although the Xserver
 * thinks its running on a color display.
 *
 *"

"*
 * view style
 *"
"*
 * figure out if running on plasma or color display
 * (the plasma display works with 640x480 only;
 *  the 8514 has 1024x768 resolution)
 */"
Display width == 640 ifTrue:[
    "*
     * its VGA hardware, but displays only grey
     *"
    Display hasColors:false.

    "*
     * its a small gas plasma display
     *"
    Display heightInMillimeter:160.
    Display widthInMillimeter:212
] ifFalse:[
    "*
     * its a 16 inch display
     *"
    Display heightInMillimeter:208.
    Display widthInMillimeter:275
].

Display depth <= 4 ifTrue:[
    View defaultStyle:#normal
] ifFalse:[
    View defaultStyle:#iris 
]
!

"*
 * add some function key definitions ...
 * (this is of course my private taste)
 *"
|map|

map := Display keyboardMap.

map bindValue:#Again to:#F1.

map bindValue:$[ to:#'Cmd['.
map bindValue:$] to:#'Cmd]'.
map bindValue:${ to:#'Cmd{'.
map bindValue:$} to:#'Cmd}'.
map bindValue:$| to:#'Cmd|'.
map bindValue:$< to:#'Cmd<'.
map bindValue:$> to:#'Cmd>'.
map bindValue:$~ to:#'Cmd~'.
map bindValue:$@ to:#'Cmd@'.
map bindValue:$^ to:#'Cmd^'.
map bindValue:$# to:#'Cmd#'.
map bindValue:$\ to:#'Cmd\'.

!