; View defaultStyle:#iris

;

; silicon graphics style

; (somwehat like motif, but with smooth edges and bells&whistles)

;

; $Header$

is3D                            true

borderWidth                     0

viewBackground                  =viewGrey

#if (Screen current serverVendor = 'microsoft')

popup.shadow                    false

#else

popup.shadow                    true

#endif

popup.level                     1

popup.borderWidth               1

#if (Screen current serverVendor = 'microsoft')

font                             Font family:'courier' size:10

#endif

text.font                        Font family:'courier' size:12

text.lightColor                  =viewGrey

text.alternativeSelectionForegroundColor    Color black

text.alternativeSelectionBackgroundColor    (Color redByte:150 "255" greenByte:255 blueByte:100 "204")

#if Screen current hasColors

textSelection.foregroundColor    Color black

textSelection.backgroundColor    Color green

#endif

textCursor.foregroundColor       Color white

#if Screen current hasColors

textCursor.backgroundColor       Color red

#else

textCursor.backgroundColor       Color black

#endif

#if (Screen current hasColors and:[Screen current depth > 4])

transcript.foregroundColor       =veryLightGray

transcript.backgroundColor       Color red:0 green:0 blue:25

transcript.cursorForegroundColor =transcript.backgroundColor

transcript.cursorBackgroundColor Color green

#else

transcript.foregroundColor       Color white

transcript.backgroundColor       Color black

transcript.cursorForegroundColor =transcript.backgroundColor

transcript.cursorBackgroundColor =transcript.foregroundColor

#endif

#if Screen current hasColors

; editField.backgroundColor           Color red:100 green:75 blue:75

; editField.backgroundColor           (Color scaledRed:16rB9B9 scaledGreen:16r8E8E scaledBlue:16r8E8E) exactOrNearestOn:(Screen current)

editField.backgroundColor           (Color scaledRed:16rB9B9 scaledGreen:16r8E8E scaledBlue:16r8E8E) exactOrNearestOn:(Screen current)

editField.selectionBackgroundColor  Color white

editField.selectionForegroundColor  Color black

#endif

#if (Screen current serverVendor = 'Silicon Graphics' and:[(Font family:'screen' face:'bold' style:'roman' size:16) existsOn:Screen current])

editField.font                   Font family:'screen' face:'bold' style:'roman' size:16

#else

editField.font                   Font family:'courier' face:'medium' style:'roman' size:12

#endif

#if (Screen current serverVendor = 'microsoft')

variableFont                     Font family:'helvetica' face:'medium' style:'roman' size:10

#else

variableFont                     Font family:'helvetica' face:'medium' style:'roman' size:12

#endif

selection.font                   =variableFont

label.font                       =variableFont

#if Screen current hasColors

toggle.showLamp                  true

toggle.lampColor                 Color yellow

checkToggle.checkColor           Color red

checkToggle.bitmapFile           'CheckOnColor.xpm'

checkToggle.labelOverMargin      true

checkToggle.activeBackgroundColor =viewGrey

radioButton.showLamp             false

#endif

scroller.level                   -1

scroller.thumbLevel              3

scroller.thumbColor              =viewGrey

#if Screen current hasGreyscales

scroller.thumbEnteredColor       =veryLightGray

#endif

scroller.thumbEdgeStyle          #soft

scroller.NTallyMarks             3

scroller.tallyLevel              1

scroller.ghostColor              =mediumGray

scroller.ghostLevel              -1

#if Screen current hasGreyscales not

scroller.viewBackground          Color white

#endif

scroller.middleButtonJump        true

slider.NTallyMarks               1

slider.tallyLevel                1

button.edgeStyle                 #soft

button.activeLevel               -1

button.passiveLevel              3

button.disabledForegroundColor   =darkGray

#if Screen current hasGreyscales

button.enteredBackgroundColor    =veryLightGray

button.activeBackgroundColor     nil

button.activeForegroundColor     Color black

#else

button.enteredBackgroundColor    Color white

button.activeForegroundColor     Color white

button.activeBackgroundColor     Color black

#endif

#if (Screen current serverVendor = 'Silicon Graphics')

menu.font                        Font family:'helvetica' face:'bold' style:'oblique' size:10

#else

menu.font                        Font family:'helvetica' face:'bold' style:'roman' size:12

#endif

#if (Screen current serverVendor = 'microsoft')

menu.font                        Font family:'helvetica' face:'bold' style:'roman' size:10

text.font                        Font family:'courier' size:10

variableFont                     Font family:'helvetica' face:'medium' style:'roman' size:10

selection.font                   =variableFont

label.font                       =variableFont

#endif

noteBook.halfLightColor          Color red

noteBook.halfShadowColor         Color green

noteBook.shadowColor             =darkGray

noteBook.lightColor              =veryLightGray

"/ noteBook.foregroundColor           Color red

"/ noteBook.disabledForegroundColor   Color red darkened

noteBook.canvasFrameLevel          1

noteBook.edgeStyle                 #soft

menu.hilightBackgroundColor      Color white

menu.hilightForegroundColor      Color black

menu.hilightLevel                1

; menuShowAccelerators            false

#if Screen current hasColors

menu.checkColor                  Color red

#endif

menu.mainMenu.tabable            true

menu.extraMargin                    2

menu.suppressSeparatingLinesInToolbar        true

;menu.buttonPassiveLevel        1

;menu.buttonActiveLevel         -1

;menu.buttonEnteredLevel        1

pullDownMenu.font                =menu.font

pullDownMenu.menuLevel           2

pullDownMenu.level               1

;; pullDownMenu.level               0

pullDownMenu.hilightLevel        2

pullDownMenu.edgeStyle           #soft

variablePanel.handleColor        =darkGray

#if Screen current hasGreyscales

variablePanel.handleEnteredColor =veryLightGray

#endif

variablePanel.barHeight          10

activeHelp.backgroundColor         Color yellow lightened

activeHelp.borderWidth             2

#if Screen current hasGrayscales not

html.anchorUnderline                true

html.anchorForegroundColor          Color black

html.backgroundColor                Color white

html.activeAnchorForegroundColor    Color black

html.activeAnchorBackgroundColor    =html.backgroundColor

html.visitedAnchorForegroundColor   Color black

html.exampleAnchorForegroundColor   Color black

#endif

#if Screen current width > 800

viewSpacing                      3 "/ pixels

arrowButton.downFormFile         'ScrollDn.14.xbm'

arrowButton.upFormFile           'ScrollUp.14.xbm'

arrowButton.leftFormFile         'ScrollLt.14.xbm'

arrowButton.rightFormFile        'ScrollRt.14.xbm'

comboView.downFormFile           'ComboDn.14.xbm'

#endif

#if Screen current width <= 800

viewSpacing                      2 "/ pixels

arrowButton.downFormFile         'ScrollDn.12.xbm'

arrowButton.upFormFile           'ScrollUp.12.xbm'

arrowButton.leftFormFile         'ScrollLt.12.xbm'

arrowButton.rightFormFile        'ScrollRt.12.xbm'

comboView.downFormFile           'ComboDn.12.xbm'

#endif

#if Screen current width <= 640

arrowButton.downFormFile         'ScrollDn.8.xbm'

arrowButton.upFormFile           'ScrollUp.8.xbm'

arrowButton.leftFormFile         'ScrollLt.8.xbm'

arrowButton.rightFormFile        'ScrollRt.8.xbm'

comboView.downFormFile           'ComboDn.8.xbm'

#endif

comboView.button.activeLevel    -1