; View defaultStyle:#motif 
;
; muddy color motif style, as found on HP greyscale machines
; you may want to change the colors to brighter ones - they
; are so pessimistic ;-)
;
; on VGA displays, where the colors are a bit darkish,
; use motif_light
;
; $Header: /cvs/stx/stx/libview/styles/motif.style,v 1.15 1999-03-24 23:24:12 cg Exp $

#if Display hasGreyscales
;
; use #nearestOn to avoid dithered view backgrounds
;
viewGrey                (Color grey:61) exactOrNearestOn:(Screen current)
lightColor              (Color grey:84) exactOrNearestOn:(Screen current)
shadowColor             (Color grey:33) exactOrNearestOn:(Screen current)
mediumColor             (Color grey:52) exactOrNearestOn:(Screen current)
#else
viewGrey                Color white
lightColor              Color grey:75
shadowColor             Color black
mediumColor             Color grey:50.
#endif

;
; use systemColors if running on windows native

#if Display platformName = 'WIN32'

; selectionBlue                   Display getSystemColor:#COLOR_HIGHLIGHT
; menu.backgroundColor            Display getSystemColor:#COLOR_MENU
; menu.foregroundColor            Display getSystemColor:#COLOR_MENUTEXT 
; pullDownMenu.backgroundColor    =menu.backgroundColor
; viewGrey                        Display getSystemColor:#COLOR_BTNFACE

; lightColor              Color white
; shadowColor             Color black
; mediumColor             (Form width:8 height:8 fromArray:(Color ditherBits at:32) on:Display) colorMap:(Array with:Color black with:(Display getSystemColor:#COLOR_BTNFACE) )

#endif


#include 'motif.common'

comment  '`motif'' look alike.'

#if (Language == #german) or:[Language == #de]
comment  'An `motif'' angelehnter Stil'
#endif
#if (Language == #french) or:[Language == #fr]
comment  'Un style qui resemble `motif'''
#endif

fatFont                     Font family:'helvetica' face:'bold' style:'roman' size:12

#if (Display platformName = 'WIN32' and:[Display width <= 640])
fatFont          Font family:'helvetica' face:'bold' style:'roman' size:8
#endif

#if (Display platformName = 'WIN32' and:[Display width > 640 and:[Display width <= 800]])
fatFont          Font family:'helvetica' face:'bold' style:'roman' size:10
#endif

selectionFont               =fatFont
labelFont                   =fatFont
menuFont                    =fatFont

#try this:
#variablePanel.handleLevel    -1

#or, try that:
#variablePanel.handleLevel    0
#variablePanel.handleColor    Color black
#variablePanel.handleStyle    #iris 

;
; although the following is not really motif, it looks much better ...
;
#if Display hasColors   
editField.backgroundColor           (Color red:100 green:75 blue:75) exactOrNearestOn:(Screen current)
editField.selectionBackgroundColor  Color white
editField.selectionForegroundColor  Color black
#else
# if Display hasGrayscales not
editField.backgroundColor           Color white
# endif
#endif