styles/st80.style
author Claus Gittinger <cg@exept.de>
Thu, 20 Feb 1997 13:03:38 +0100
changeset 1360 574d47019176
parent 961 0e24492a7eef
child 1438 43a7c484413d
permissions -rw-r--r--
better noFocus cursors
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
122
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
     1
; View defaultStyle:#st80 
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
     2
;
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
     3
; simulation of the old st80 style - looks somewhat like os2
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
     4
;
1360
574d47019176 better noFocus cursors
Claus Gittinger <cg@exept.de>
parents: 961
diff changeset
     5
; $Header: /cvs/stx/stx/libview/styles/st80.style,v 1.10 1997-02-20 12:03:38 cg Exp $
144
claus
parents: 122
diff changeset
     6
498
ca1d11e446ce some french strings
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
     7
comment  'old `ST80'' 3D look alike'
122
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
     8
309
8cc4d0e7b41b germanism
Claus Gittinger <cg@exept.de>
parents: 274
diff changeset
     9
#if (Language == #german) or:[Language == #de]
498
ca1d11e446ce some french strings
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
    10
comment  'An früheres `ST-80'' angelehnt'
ca1d11e446ce some french strings
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
    11
#endif
ca1d11e446ce some french strings
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
    12
#if (Language == #french) or:[Language == #fr]
ca1d11e446ce some french strings
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
    13
comment  'Comme `ST-80'''
309
8cc4d0e7b41b germanism
Claus Gittinger <cg@exept.de>
parents: 274
diff changeset
    14
#endif
8cc4d0e7b41b germanism
Claus Gittinger <cg@exept.de>
parents: 274
diff changeset
    15
122
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    16
name            #st80
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    17
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    18
;
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    19
; take a smaller font on VGA displays
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    20
;
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    21
#if Display width == 640
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    22
; take smaller fonts on VGA screens
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    23
font               Font family:'courier' face:'medium' style:'roman' size:10
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    24
selectionFont      Font family:'helvetica' face:'medium' style:'roman' size:10
961
0e24492a7eef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 688
diff changeset
    25
boldFont           Font family:'helvetica' face:'bold' style:'roman' size:10
122
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    26
#else
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    27
selectionFont      Font family:'helvetica' face:'medium' style:'roman' size:12
961
0e24492a7eef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 688
diff changeset
    28
boldFont           Font family:'helvetica' face:'bold' style:'roman' size:12
122
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    29
#endif
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    30
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    31
#if Display hasGreyscales
688
128cddddf1a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 498
diff changeset
    32
is3D                            true
128cddddf1a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 498
diff changeset
    33
borderWidth                     0
128cddddf1a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 498
diff changeset
    34
viewGrey                        Color grey:80
128cddddf1a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 498
diff changeset
    35
selectionHilightForegroundColor Color black
128cddddf1a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 498
diff changeset
    36
selectionHilightBackgroundColor Color grey:50
122
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    37
#else
688
128cddddf1a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 498
diff changeset
    38
viewGrey                        Color white
128cddddf1a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 498
diff changeset
    39
lightColor                      Color grey:50
122
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    40
borderWidth               1
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    41
#endif
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    42
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    43
viewBackground            =viewGrey
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    44
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    45
scrollBarPosition         #right
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    46
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    47
scrollBarButtonPositions  #around     
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    48
scrollBarLevel            0
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    49
scrollBarElementSpacing   0
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    50
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    51
scrollerLevel             1
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    52
scrollerViewBackground    =viewGrey
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    53
scrollerThumbColor        Color black
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    54
scrollerThumbFrameColor   nil
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    55
scrollerThumbLevel        0
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    56
scrollerThumbInset        3
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    57
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    58
textCursorType                   #solidCaret
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    59
textCursorBackgroundColor        Color black
1360
574d47019176 better noFocus cursors
Claus Gittinger <cg@exept.de>
parents: 961
diff changeset
    60
textCursorNoFocusForegroundColor Color grey
274
30d54aac94a7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 153
diff changeset
    61
30d54aac94a7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 153
diff changeset
    62
#if Display hasColors
30d54aac94a7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 153
diff changeset
    63
textSelectionBackgroundColor     Color green
122
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    64
textSelectionForegroundColor     Color black
274
30d54aac94a7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 153
diff changeset
    65
#else
30d54aac94a7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 153
diff changeset
    66
# if Display hasGreyscales
30d54aac94a7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 153
diff changeset
    67
textSelectionBackgroundColor     =viewGrey "Color grey"
30d54aac94a7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 153
diff changeset
    68
textSelectionForegroundColor     Color black
30d54aac94a7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 153
diff changeset
    69
# endif
122
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    70
#endif
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    71
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    72
popupBorderWidth                 1     
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    73
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    74
arrowButtonStyle                 #st80 
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    75
arrowButtonActiveForegroundColor Color white   
153
claus
parents: 152
diff changeset
    76
; buttonActiveForegroundColor      Color white
claus
parents: 152
diff changeset
    77
buttonActiveBackgroundColor      Color grey
122
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    78
961
0e24492a7eef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 688
diff changeset
    79
menuFont                         =boldFont
122
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    80
menuViewBackground               Color white
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    81
menuForegroundColor              Color black
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    82
menuBackgroundColor              Color white
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    83
menuHilightForegroundColor       =menuBackgroundColor
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    84
menuHilightBackgroundColor       =menuForegroundColor
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    85
menuHighlightLevel               0
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    86
menuSeparatingLineLevel          0
152
claus
parents: 144
diff changeset
    87
menuSeparatingLineInset          0
122
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    88
961
0e24492a7eef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 688
diff changeset
    89
pullDownMenuFont                 =boldFont
153
claus
parents: 152
diff changeset
    90
pullDownMenuViewBackground       =viewGrey
961
0e24492a7eef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 688
diff changeset
    91
pullDownMenuLevel                0
153
claus
parents: 152
diff changeset
    92
pullDownMenuHilightLevel         -1
claus
parents: 152
diff changeset
    93
pullDownMenuHilightBackgroundColor  Color grey
961
0e24492a7eef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 688
diff changeset
    94
pullDownMenuSeparatingLines         false
0e24492a7eef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 688
diff changeset
    95
; pullDownMenuKeepMenu                true
0e24492a7eef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 688
diff changeset
    96