; View defaultStyle:#kde
;
; kde look-alike style
;
;; $Header: /cvs/stx/stx/libview/styles/kde.style,v 1.2 2000-04-17 08:22:54 cg Exp $
#if Screen current hasGreyscales
;
; use #nearestOn to avoid dithered view backgrounds
;
viewGrey (Color redByte:192 greenByte:192 blueByte:192) exactOrNearestOn:(Screen current)
lightColor (Color white)
shadowColor (Color grey:25) exactOrNearestOn:(Screen current)
mediumColor (Color grey:50) exactOrNearestOn:(Screen current)
slightlyDarkerGrey (Color redByte:160 greenByte:160 blueByte:160) exactOrNearestOn:(Screen current)
#else
viewGrey Color white
lightColor Color grey:75
shadowColor Color black
mediumColor Color grey:50.
slightlyDarkerGrey =viewGrey
#endif
#include 'motif.common'
comment '`kde'' look alike.'
#if (Language == #german) or:[Language == #de]
comment 'An `kde'' angelehnter Stil'
#endif
#if (Language == #french) or:[Language == #fr]
comment 'Un style qui resemble `kde'''
#endif
menuFont Font family:'helvetica' face:'medium' style:'roman' size:12
selectionFont =menuFont
labelFont =menuFont
menuFont =menuFont
#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 Screen current hasColors
editField.backgroundColor (Color white)
editField.selectionBackgroundColor Color white
editField.selectionForegroundColor Color black
#else
# if Screen current hasGrayscales not
editField.backgroundColor Color white
# endif
#endif
checkToggle.activeBackgroundColor =slightlyDarkerGrey
scroller.viewBackground =slightlyDarkerGrey
arrowButton.activeBackgroundColor =slightlyDarkerGrey
button.activeBackgroundColor =slightlyDarkerGrey