styles/mswindows.common
author Claus Gittinger <cg@exept.de>
Mon, 21 Apr 1997 11:08:38 +0200
changeset 1620 49812898bfe2
parent 1448 842f1d283a7b
child 1948 6a9b754ca6d3
permissions -rw-r--r--
html defs for monochrome displays
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
; common for all mswindows-like styles 
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
;
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
; this is not yet completed
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
;
1620
49812898bfe2 html defs for monochrome displays
Claus Gittinger <cg@exept.de>
parents: 1448
diff changeset
     5
; $Header: /cvs/stx/stx/libview/styles/mswindows.common,v 1.4 1997-04-21 09:08:35 cg Exp $
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
name                            #mswindows
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
;this seems not fully true, buttons
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
;and scrollers show some 3D.
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
;anyway, most other views are flat.
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
is3D                            false
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
#if Display hasGreyscales not
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
viewGrey                        Color white
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
#endif
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
borderWidth                     1
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
popupBorderWidth                1     
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
viewBackground                  =viewGrey
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
font                            Font family:'helvetica' face:'bold' style:'roman' size:12
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
textFont                        Font family:'courier' face:'bold' style:'roman' size:12
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
scrollBarPosition               #right 
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
scrollBarButtonPositions        #around     
1438
43a7c484413d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 199
diff changeset
    27
scrollBarSpacing                0
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
scrollerBorderWidth             1
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
#if Display hasGreyscales
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
scrollerViewBackground          Color grey:80 
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
#else
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
scrollerViewBackground          Color white
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
#endif
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
scrollerFullViewBackground      Color white
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
scrollerThumbColor              Color grey:80
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
scrollerThumbLevel              3 "2"
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
scrollerThumbFixHeight          true
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
scrollerThumbEdgeStyle          #soft
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
scrollerThumbFrameColor         Color black
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
scrollerGhostFrameColor         Color darkGrey
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
; variablePanelShowHandle       false
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
framedBoxLabelPosition          #topLeft
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
framedBox3DFrame                false
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
buttonEdgeStyle                 #soft
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
buttonActiveLevel               -1
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
buttonPassiveLevel              4 "3"
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
buttonDisabledForegroundColor   Color darkGrey
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
buttonBorderWidth               0
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
#if Display hasGreyscales
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
buttonForegroundColor           Color black
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
buttonBackgroundColor           Color grey:80
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
buttonActiveForegroundColor     =buttonForegroundColor
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
buttonActiveBackgroundColor     =buttonBackgroundColor
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
#endif
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
buttonReturnButtonHasBorder     true
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
arrowButtonStyle                #mswindows
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
arrowButtonUpFormFile           'ScrollUp_win.xbm'
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
arrowButtonDownFormFile         'ScrollDn_win.xbm'
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
arrowButtonLeftFormFile         'ScrollLt_win.xbm'
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
arrowButtonRightFormFile        'ScrollRt_win.xbm'
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
checkToggleBitmapFile           nil
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
checkToggleStyle                #cross
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
checkToggleActiveLevel          0
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
checkTogglePassiveLevel         0
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
checkToggleBorderWidth          1
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
checkToggleActiveBackgroundColor Color white
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
checkToggleBackgroundColor       Color white
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
;
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
; selection-in-list
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
;
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
#if Display hasColors
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
selectionHilightForegroundColor Color white      
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
selectionHilightBackgroundColor Color blue
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
selectionHilightFrameColor      Color black
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
#endif
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
menuViewBackground              Color white
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    88
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
pullDownMenuKeepMenu            true
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    91
popUpListPopPosition            #below 
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
1620
49812898bfe2 html defs for monochrome displays
Claus Gittinger <cg@exept.de>
parents: 1448
diff changeset
    93
#if Display hasGrayscales not
49812898bfe2 html defs for monochrome displays
Claus Gittinger <cg@exept.de>
parents: 1448
diff changeset
    94
htmlAnchorUnderline                true
49812898bfe2 html defs for monochrome displays
Claus Gittinger <cg@exept.de>
parents: 1448
diff changeset
    95
htmlAnchorForegroundColor          Color black
49812898bfe2 html defs for monochrome displays
Claus Gittinger <cg@exept.de>
parents: 1448
diff changeset
    96
htmlBackgroundColor                Color white
49812898bfe2 html defs for monochrome displays
Claus Gittinger <cg@exept.de>
parents: 1448
diff changeset
    97
htmlActiveAnchorForegroundColor    Color black
49812898bfe2 html defs for monochrome displays
Claus Gittinger <cg@exept.de>
parents: 1448
diff changeset
    98
htmlActiveAnchorBackgroundColor    =htmlBackgroundColor
49812898bfe2 html defs for monochrome displays
Claus Gittinger <cg@exept.de>
parents: 1448
diff changeset
    99
htmlVisitedAnchorForegroundColor   Color black
49812898bfe2 html defs for monochrome displays
Claus Gittinger <cg@exept.de>
parents: 1448
diff changeset
   100
htmlExampleAnchorForegroundColor   Color black
49812898bfe2 html defs for monochrome displays
Claus Gittinger <cg@exept.de>
parents: 1448
diff changeset
   101
#else
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
htmlBackgroundColor               Color white
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   103
htmlAnchorForegroundColor         Color green darkened
1448
842f1d283a7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1438
diff changeset
   104
htmlVisitedAnchorForegroundColor  =htmlAnchorForegroundColor darkened darkened
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   105
htmlAnchorUnderlines              true
1620
49812898bfe2 html defs for monochrome displays
Claus Gittinger <cg@exept.de>
parents: 1448
diff changeset
   106
#endif
49812898bfe2 html defs for monochrome displays
Claus Gittinger <cg@exept.de>
parents: 1448
diff changeset
   107