styles/st80.style
author Claus Gittinger <cg@exept.de>
Thu, 14 Dec 1995 16:16:13 +0100
changeset 309 8cc4d0e7b41b
parent 274 30d54aac94a7
child 498 ca1d11e446ce
permissions -rw-r--r--
germanism
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
;
309
8cc4d0e7b41b germanism
Claus Gittinger <cg@exept.de>
parents: 274
diff changeset
     5
; $Header: /cvs/stx/stx/libview/styles/st80.style,v 1.6 1995-12-14 15:16:12 cg Exp $
144
claus
parents: 122
diff changeset
     6
claus
parents: 122
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]
8cc4d0e7b41b germanism
Claus Gittinger <cg@exept.de>
parents: 274
diff changeset
    10
comment  'An früheres ST-80 angelehnt'
8cc4d0e7b41b germanism
Claus Gittinger <cg@exept.de>
parents: 274
diff changeset
    11
#endif
8cc4d0e7b41b germanism
Claus Gittinger <cg@exept.de>
parents: 274
diff changeset
    12
122
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    13
name            #st80
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    14
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    15
;
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    16
; take a smaller font on VGA displays
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    17
;
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    18
#if Display width == 640
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    19
; take smaller fonts on VGA screens
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    20
font               Font family:'courier' face:'medium' style:'roman' size:10
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    21
selectionFont      Font family:'helvetica' face:'medium' style:'roman' size:10
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    22
#else
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    23
selectionFont      Font family:'helvetica' face:'medium' style:'roman' size:12
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    24
#endif
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    25
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    26
#if Display hasGreyscales
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    27
is3D                      true
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    28
borderWidth               0
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    29
viewGrey                  Color grey:80
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    30
#else
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    31
viewGrey                  Color white
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    32
lightColor                Color grey:50
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    33
borderWidth               1
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    34
#endif
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    35
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    36
viewBackground            =viewGrey
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    37
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    38
scrollBarPosition         #right
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    39
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    40
scrollBarButtonPositions  #around     
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    41
scrollBarLevel            0
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    42
scrollBarElementSpacing   0
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    43
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    44
scrollerLevel             1
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    45
scrollerViewBackground    =viewGrey
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    46
scrollerThumbColor        Color black
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    47
scrollerThumbFrameColor   nil
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    48
scrollerThumbLevel        0
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    49
scrollerThumbInset        3
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    50
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    51
textCursorType                   #solidCaret
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    52
textCursorBackgroundColor        Color black
274
30d54aac94a7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 153
diff changeset
    53
30d54aac94a7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 153
diff changeset
    54
#if Display hasColors
30d54aac94a7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 153
diff changeset
    55
textSelectionBackgroundColor     Color green
122
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    56
textSelectionForegroundColor     Color black
274
30d54aac94a7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 153
diff changeset
    57
#else
30d54aac94a7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 153
diff changeset
    58
# if Display hasGreyscales
30d54aac94a7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 153
diff changeset
    59
textSelectionBackgroundColor     =viewGrey "Color grey"
30d54aac94a7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 153
diff changeset
    60
textSelectionForegroundColor     Color black
30d54aac94a7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 153
diff changeset
    61
# endif
122
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    62
#endif
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    63
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    64
popupBorderWidth                 1     
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    65
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    66
arrowButtonStyle                 #st80 
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    67
arrowButtonActiveForegroundColor Color white   
153
claus
parents: 152
diff changeset
    68
; buttonActiveForegroundColor      Color white
claus
parents: 152
diff changeset
    69
buttonActiveBackgroundColor      Color grey
122
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    70
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    71
menuViewBackground               Color white
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    72
menuForegroundColor              Color black
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    73
menuBackgroundColor              Color white
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    74
menuHilightForegroundColor       =menuBackgroundColor
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    75
menuHilightBackgroundColor       =menuForegroundColor
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    76
menuHighlightLevel               0
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    77
menuSeparatingLineLevel          0
152
claus
parents: 144
diff changeset
    78
menuSeparatingLineInset          0
122
c84d8d1e8d48 Initial revision
claus
parents:
diff changeset
    79
153
claus
parents: 152
diff changeset
    80
pullDownMenuViewBackground       =viewGrey
claus
parents: 152
diff changeset
    81
pullDownMenuLevel                1
claus
parents: 152
diff changeset
    82
pullDownMenuHilightLevel         -1
claus
parents: 152
diff changeset
    83
pullDownMenuHilightBackgroundColor  Color grey