"*
 * $Header$
 *
 * ST/X startup configuration file:
 *
 * display configuration - for a b&w notebook or portable-pc (gas plasma/LCD b&w vga)
 * This is only required, since my Xserver does not know the exact screen
 * dimensions and also thinks its running on a color display (although the 
 * display can only show greyscales)
 *
 * You probably dont have one of those ...
 * ... if your display is the above, create a symbolic link
 * d_<hostname-of-display>.rc -> d_bw_vga.rc
 *
 *"

"*
 * view style
 *"

"*
 * its VGA hardware, but displays only grey
 * in 4-plane servers, dont try greyscales (its not worth it)
 *"
Display hasColors:false.
Display depth < 8 ifTrue:[
    Display hasGreyscales:false
].

"*
 * for a small gas plasma display
 *"
"/ Display heightInMillimeter:160.
"/ Display widthInMillimeter:212.

"*
 * for a small LCD display
 *"
Display heightInMillimeter:130.
Display widthInMillimeter:170.

View defaultStyle:#normal.
!

"*
 * 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\'.

!