styles/kde.style
author Claus Gittinger <cg@exept.de>
Tue, 15 Aug 2000 16:51:36 +0200
changeset 3255 ddafc3268624
parent 3197 65e2cd11fcd2
child 3350 549439bc381a
permissions -rw-r--r--
*** empty log message ***

; View defaultStyle:#kde 
;
; kde look-alike style
;
;; $Header: /cvs/stx/stx/libview/styles/kde.style,v 1.4 2000-08-15 14:51:36 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 blue darkened
editField.selectionForegroundColor  Color white
#else
# if Screen current hasGrayscales not
editField.backgroundColor           Color white
editField.selectionBackgroundColor  Color black
editField.selectionForegroundColor  Color white
# endif
#endif

checkToggle.activeBackgroundColor   =slightlyDarkerGrey
scroller.viewBackground             =slightlyDarkerGrey
arrowButton.activeBackgroundColor   =slightlyDarkerGrey
button.activeBackgroundColor        =slightlyDarkerGrey

scrollBar.level              -1
menuPanel.verticalInset      8
menu.itemSpace               10

menuPanel.enteredLevel             1
menuPanel.activeLevel              -1