styles/iris.common
author Claus Gittinger <cg@exept.de>
Fri, 12 Jun 1998 16:31:52 +0200
changeset 2145 cf7ecfe69551
parent 2135 bdf4d055eadd
child 2162 1171a830024c
permissions -rw-r--r--
dont try to load screen font on non-sgi displays
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2115
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
; View defaultStyle:#iris 
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
;
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
; silicon graphics style
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
; (somwehat like motif, but with smooth edges and bells&whistles)
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
;
2145
cf7ecfe69551 dont try to load screen font on non-sgi displays
Claus Gittinger <cg@exept.de>
parents: 2135
diff changeset
     6
; $Header: /cvs/stx/stx/libview/styles/iris.common,v 1.3 1998-06-12 14:31:52 cg Exp $
2115
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
is3D                            true
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
borderWidth                     0
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
viewBackground                  =viewGrey
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
popup.shadow                    true
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
popup.level                     2     
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
popup.borderWidth               1     
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
text.font                        Font family:'courier' size:12 
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
text.lightColor                  =viewGrey
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
#if Display hasColors   
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
textSelection.foregroundColor    Color black
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
textSelection.backgroundColor    Color green
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
#endif
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
textCursor.foregroundColor       Color white
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
#if Display hasColors
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
textCursor.backgroundColor       Color red
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
#else
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
textCursor.backgroundColor       Color black
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
#endif
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
#if (Display hasColors and:[Display depth > 4])
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
transcript.foregroundColor       =veryLightGray
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
transcript.backgroundColor       Color red:0 green:0 blue:25
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
transcript.cursorForegroundColor =transcript.backgroundColor
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
transcript.cursorBackgroundColor Color green
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
#else
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
transcript.foregroundColor       Color white
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
transcript.backgroundColor       Color black
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
transcript.cursorForegroundColor =transcript.backgroundColor 
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
transcript.cursorBackgroundColor =transcript.foregroundColor
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
#endif
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
#if Display hasColors   
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
; editField.backgroundColor           Color red:100 green:75 blue:75
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
; editField.backgroundColor           (Color scaledRed:16rB9B9 scaledGreen:16r8E8E scaledBlue:16r8E8E) exactOrNearestOn:(Screen current)
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
editField.backgroundColor           (Color scaledRed:16rB9B9 scaledGreen:16r8E8E scaledBlue:16r8E8E) exactOrNearestOn:(Screen current)
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
editField.selectionBackgroundColor  Color white
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
editField.selectionForegroundColor  Color black
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
#endif
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
2145
cf7ecfe69551 dont try to load screen font on non-sgi displays
Claus Gittinger <cg@exept.de>
parents: 2135
diff changeset
    53
#if (Display serverVendor = 'Silicon Graphics' and:[(Font family:'screen' face:'bold' style:'roman' size:16) existsOn:Display])
2115
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
editField.font                   Font family:'screen' face:'bold' style:'roman' size:16
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
#else
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
editField.font                   Font family:'courier' face:'medium' style:'roman' size:12
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
#endif
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
variableFont                    Font family:'helvetica' face:'medium' style:'roman' size:12
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
selection.font                   =variableFont
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
label.font                       =variableFont
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
#if Display hasColors   
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
toggle.showLamp                  true
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
toggle.lampColor                 Color yellow
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
checkToggle.checkColor           Color red
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
checkToggle.bitmapFile           'CheckOnColor.xpm'
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
checkToggle.labelOverMargin      true
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
radioButton.showLamp             false
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
#endif
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
scroller.level                   -1
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
scroller.thumbLevel              3
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
scroller.thumbColor              =viewGrey
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
#if Display hasGreyscales
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
scroller.thumbEnteredColor       =veryLightGray
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
#endif
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
scroller.thumbEdgeStyle          #soft
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
scroller.NTallyMarks             3
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
scroller.tallyLevel              1
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
scroller.ghostColor              =mediumGray
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
scroller.ghostLevel              -1
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
#if Display hasGreyscales not
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
scroller.viewBackground          Color white
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
#endif
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
scroller.middleButtonJump        true
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    88
slider.NTallyMarks               1
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
slider.tallyLevel                1
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    91
button.edgeStyle                 #soft
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
button.activeLevel               -1
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
button.passiveLevel              3
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
button.disabledForegroundColor   =darkGray
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
#if Display hasGreyscales
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
button.enteredBackgroundColor    =veryLightGray
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
button.activeBackgroundColor     nil
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
button.activeForegroundColor     Color black
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    99
#else
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   100
button.enteredBackgroundColor    Color white
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   101
button.activeForegroundColor     Color white
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
button.activeBackgroundColor     Color black
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   103
#endif
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   104
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   105
#if OperatingSystem getOSType = 'irix'
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   106
menu.font                        Font family:'helvetica' face:'bold' style:'oblique' size:10
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   107
#else
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   108
menu.font                        Font family:'helvetica' face:'bold' style:'roman' size:12
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   109
#endif
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   110
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   111
menu.hilightBackgroundColor      Color white
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   112
menu.hilightForegroundColor      Color black
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   113
menu.hilightLevel                1
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   114
; menuShowAccelerators            false
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   115
#if Display hasColors   
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   116
menu.checkColor                  Color red
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   117
#endif
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   118
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   119
pullDownMenu.font                =menu.font
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   120
pullDownMenu.level               0
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   121
pullDownMenu.hilightLevel        2
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   122
pullDownMenu.edgeStyle           #soft
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   123
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   124
variablePanel.handleColor        =darkGray
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   125
#if Display hasGreyscales
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   126
variablePanel.handleEnteredColor =veryLightGray
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   127
#endif
2135
bdf4d055eadd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2115
diff changeset
   128
variablePanel.barHeight          10
2115
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   129
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   130
activeHelp.backgroundColor         Color yellow lightened
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   131
activeHelp.borderWidth             2
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   132
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   133
#if Display hasGrayscales not
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   134
html.anchorUnderline                true
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   135
html.anchorForegroundColor          Color black
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   136
html.backgroundColor                Color white
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   137
html.activeAnchorForegroundColor    Color black
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   138
html.activeAnchorBackgroundColor    =html.backgroundColor
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   139
html.visitedAnchorForegroundColor   Color black
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   140
html.exampleAnchorForegroundColor   Color black
aa706aa0298c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   141
#endif