styles/decWindows.style
author Stefan Vogel <sv@exept.de>
Tue, 26 Oct 1999 19:54:09 +0200
changeset 2981 8d92596d703d
parent 2965 063920a0e4c6
child 2982 b52d24260115
permissions -rw-r--r--
Fix Dispalay usage (support nil displays).
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2571
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
; View defaultStyle:#'decWindows' 
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
;
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
; dec's motif style (as seen on an OSF-alpha system)
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
; like motif
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
;
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
;
2981
8d92596d703d Fix Dispalay usage (support nil displays).
Stefan Vogel <sv@exept.de>
parents: 2965
diff changeset
     7
; $Header: /cvs/stx/stx/libview/styles/decWindows.style,v 1.5 1999-10-26 17:54:08 stefan Exp $
2571
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
2981
8d92596d703d Fix Dispalay usage (support nil displays).
Stefan Vogel <sv@exept.de>
parents: 2965
diff changeset
     9
#if Display isNil or:[Display hasGreyscales]
2571
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
viewGrey                    (Color grey:59.6078) 
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
scrollerVB                  (Color grey:50.1961)
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
selectionInListColor        (Color red:40.7843 green:42.3529 blue:50.1961)
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
#endif
2981
8d92596d703d Fix Dispalay usage (support nil displays).
Stefan Vogel <sv@exept.de>
parents: 2965
diff changeset
    14
#if Display isNil or:[Display hasColors]
2571
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
orange                      (Color red:90.9804 green:65.8824 blue:43.9216)
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
#endif
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
shadowColor                 (Color grey:50.1961)
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
lightColor                  (Color grey:81.5686)
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
mediumColor                 (Color grey:59.6078)
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
2965
063920a0e4c6 Use 14-point fonts for decWindows style
Stefan Vogel <sv@exept.de>
parents: 2812
diff changeset
    22
selectionFont        Font family:'lucidabright' face:'medium' style:'roman' size:14
063920a0e4c6 Use 14-point fonts for decWindows style
Stefan Vogel <sv@exept.de>
parents: 2812
diff changeset
    23
labelFont            Font family:'lucidabright' face:'medium' style:'roman' size:14
063920a0e4c6 Use 14-point fonts for decWindows style
Stefan Vogel <sv@exept.de>
parents: 2812
diff changeset
    24
menuFont             Font family:'lucidabright' face:'medium' style:'roman' size:14
063920a0e4c6 Use 14-point fonts for decWindows style
Stefan Vogel <sv@exept.de>
parents: 2812
diff changeset
    25
textFont             Font family:'courier' size:14 
2571
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
#include 'motif.common'
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
comment  'DEC-windows look alike'
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
#if (Language == #german) or:[Language == #de]
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
comment  'Angelehnt an DEC-windows.'
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
#endif
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
#if (Language == #french) or:[Language == #fr]
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
comment  'Comme DEC-windows'
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
#endif
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
lightColor                Color grey:85
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
shadowColor               Color grey:30
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
textCursor.type            #block
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
scroller.viewBackground    =scrollerVB 
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
scroller.thumbColor        =viewGrey
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
scroller.thumbLevel        1
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
scrollBar.level            -1
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
selection.foregroundColor  Color black
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
label.foregroundColor      Color black
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
button.activeBackgroundColor      =scrollerVB
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
button.foregroundColor            Color white
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
button.activeForegroundColor      Color white
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
button.activeLevel                -1
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
button.passiveLevel               1
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
button.font                       =menuFont
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
label.font                       =menuFont
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
label.foregroundColor            Color white
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
arrowButton.activeForegroundColor =viewGrey  
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
checkToggle.bitmapFile                  'CheckOn14Dec.xbm'
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
checkToggle.activeBackgroundColor       =scrollerVB
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
checkToggle.backgroundColor             =viewGrey
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
checkToggle.disabledForegroundColor     Color gray:33
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
checkToggle.activeLevel                 -1
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
checkBoxStyle                           #dummy
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
menu.viewBackgroundColor         =viewGrey
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
menu.backgroundColor             =viewGrey
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
menu.foregroundColor             Color white
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
menu.disabledForegroundColor     Color darkGrey
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
; menu.hilightLevel                -1
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
; menu.hilightFrameColor           nil
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
selection.backgroundColor        =selectionInListColor
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
selection.foregroundColor        Color white
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
selection.hilightForegroundColor =selectionInListColor
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
selection.hilightBackgroundColor Color white
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
; selection.hilightFrameColor      =orange
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
selection.hilightFrameColor      nil
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
selection.font                   =menuFont
2803
4c35c0de7b5a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2571
diff changeset
    85
selection.disabledForegroundColor     Color gray:25
2571
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
editField.backgroundColor        =selectionInListColor
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    88
editField.foregroundColor        Color white
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
editField.hilightForegroundColor =selectionInListColor
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
editField.hilightBackgroundColor Color white
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    91
editField.cursorType             #Ibeam
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
editField.cursorForegroundColor  nil
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
editField.cursorBackgroundColor  Color white
2812
04df47b0ef93 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2803
diff changeset
    94
editField.disabledForegroundColor  Color gray:33
2571
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
ruler.backgroundColor            =scrollerVB
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
focusBorderWidth                 2
2981
8d92596d703d Fix Dispalay usage (support nil displays).
Stefan Vogel <sv@exept.de>
parents: 2965
diff changeset
    98
#if Display isNil or:[Display hasColors]
2571
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    99
focusColor                       =orange
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   100
#endif
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   101
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
framedBox.foregroundColor        Color white
78dd8b6609a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   103
framedBox.font                   =menuFont