; View defaultStyle:#mswindowsVista
;
; $Header$

name                    #winVista

comment                 'Vista lookalike'
previewFileName         'viewStyleSample_winvista.png'

#if (Language == #german) or:[Language == #de]
comment  'an Windows Vista angelehnter Stil'
#endif

#if (Language == #french) or:[Language == #fr]
comment  'Un style qui résemble Windows Vista'
#endif

scroller.vista3DStyle           false

ToolbarIconLibrary              ?(Smalltalk at:#VistaToolbarIconLibrary) ? (Smalltalk at:#XPToolbarIconLibrary) ? GenericToolbarIconLibrary
useQuestForHelp                 false

;
; unfinished
;

;
; notice: the values below
; are not used when running under native Windows
; (uses system-settings values then)
;
#if Screen current hasGreyscales

selectionBlue                   (Color red:20.0 green:60.0 blue:100.0) exactOrNearestOn:(Screen current)

viewGrey                        (Color grey:95)  exactOrNearestOn:(Screen current)
viewLightGrey                   Color white
lightColor                      Color white
halfShadowColor                 (Color grey:80) exactOrNearestOn:(Screen current)
halfLightColor                  =viewGrey
shadowColor                     (Color grey:60) exactOrNearestOn:(Screen current)

#else

selectionBlue                   Color black
viewGrey                        Color white
viewLightGrey                   Color white
lightColor                      Color grey:50
shadowColor                     Color black

#endif

#if Screen current platformName = 'WIN32'

selectionBlue                   [Screen current getSystemColor:#'COLOR_HIGHLIGHT']
menu.backgroundColor            [Screen current getSystemColor:#'COLOR_MENU'     ]
menu.foregroundColor            [Screen current getSystemColor:#'COLOR_MENUTEXT' ]
viewGrey                        [Screen current getSystemColor:#'COLOR_BTNFACE'  ]
lightenedViewGrey               [(Screen current getSystemColor:#'COLOR_BTNFACE') lightened ]
darkenedViewGrey                [(Screen current getSystemColor:#'COLOR_BTNFACE') darkened ]

#else

lightenedViewGrey               Color redByte:240 greenByte:240 blueByte:240
darkenedViewGrey                Color redByte:150 greenByte:150 blueByte:150

#endif

#include 'mswindows95.common'

menu.enteredLevel               0
; menu.buttonEnteredLevel         2   "/ sigh - does not work

;; enable this, when old menuView cares for it also
;; menu.itemMargin                          1
menu.selectionFollowsMouse                  true
menu.enteredBackgroundColor                 =menu.hilightBackgroundColor
menu.enteredForegroundColor                 =menu.hilightForegroundColor
menu.iconIndicationOn.bitmapFile            'CheckOn_xp.xpm'
menu.iconIndicationOff.bitmapFile           'CheckOff_xp.xpm'
menu.iconRadioOn.bitmap                     (VistaToolbarIconLibrary radioOn12x12Icon)
menu.iconRadioOff.bitmap                    (VistaToolbarIconLibrary radioOff12x12Icon)
menu.iconDisabledIndicationOn.bitmapFile    'CheckOn_disabled_xp.xpm'
menu.iconDisabledIndicationOff.bitmapFile   'CheckOff_disabled_xp.xpm'
menu.iconDisabledRadioOn.bitmap             (VistaToolbarIconLibrary radioOnDisabled12x12Icon)
menu.iconDisabledRadioOff.bitmap            (VistaToolbarIconLibrary radioOffDisabled12x12Icon)

;button.edgeStyle                       #soft
;button.activeLevel                     -1
;button.passiveLevel                    3
;button.enteredBackgroundColor          [ (Screen current getSystemColor:#'COLOR_BTNFACE') lightened ]

comboView.downForm                      (VistaToolbarIconLibrary scrollDownOffIcon)
comboView.disabledDownForm              (VistaToolbarIconLibrary scrollDownOffIcon)
comboView.enteredDownForm               (VistaToolbarIconLibrary scrollDownOffEntered2Icon)
comboView.activeDownForm                (VistaToolbarIconLibrary scrollDownActiveIcon)
; comboView.downFormFile                  'ComboDn_xp.xpm'.
; comboView.disabledDownFormFile          'ComboDn_disabled_xp.xpm'.
; comboView.activeDownFormFile            'ComboDn_active_xp.xpm'.
; comboView.enteredDownFormFile           'ComboDn_entered_xp.xpm'.
comboView.button.activeLevel            0
comboView.button.passiveLevel           0
comboView.button.activeBackgroundColor  =viewGrey
; comboView.button.activeBackgroundColor  (Color white)
; comboView.button.backgroundColor        (Color white)
; comboView.level                         0

; selection.highlightEnterItem       true         "/ underline-highlight item under cursor

scroller.viewBackground          (Color redByte:16rEF greenByte:16rEF blueByte:16rEF)
scroller.thumbColor              (Color redByte:192 greenByte:192 blueByte:192)
"/ scroller.thumbLightColor         (Color redByte:16rCF greenByte:16rDD blueByte:16rFD)
scroller.thumbLightColor         (Color redByte:238 greenByte:244 blueByte:254)
scroller.thumbShadowColor        (Color redByte:16r83 greenByte:16r9E blueByte:16rD8)
scroller.thumbEnteredColor       (Color red:64 green:75 blue:98)
scroller.thumbActiveColor        (Color red:42 green:76 blue:91)
scroller.thumbLevel              0
scroller.thumbInset              1
; scroller.thumbFrameColor         Color white "/ (Color redByte:175 greenByte:190 blueByte:240) darkened
scroller.thumbFrameColor         (Color redByte:192 greenByte:192 blueByte:192)
; scroller.thumbFrameColor2        (Color redByte:16rEF greenByte:16rEF blueByte:16rEF)
scroller.thumbEdgeStyle          #edged
scroller.NTallyMarks             4
scroller.tallyLevel              1
scroller.tallyInset              6
scroller.tallyDistance           2
scroller.snapBackDistance        100
scroller.minThumbSize            16

scroller.vista3DStyle           true

miniScroller.size               3     "/ in millimeters


arrowButton.upForm                  (VistaToolbarIconLibrary scrollUpOffIcon)
arrowButton.enteredUpForm           (VistaToolbarIconLibrary scrollUpOffEntered2Icon)
arrowButton.activeUpForm            (VistaToolbarIconLibrary scrollUpActiveIcon)
arrowButton.disabledUpForm          (VistaToolbarIconLibrary scrollUpOffIcon)

arrowButton.downForm                (VistaToolbarIconLibrary scrollDownOffIcon)
arrowButton.enteredDownForm         (VistaToolbarIconLibrary scrollDownOffEntered2Icon)
arrowButton.activeDownForm          (VistaToolbarIconLibrary scrollDownActiveIcon)
arrowButton.disabledDownForm        (VistaToolbarIconLibrary scrollDownOffIcon)

arrowButton.leftForm                (VistaToolbarIconLibrary scrollLeftOffIcon)
arrowButton.enteredLeftForm         (VistaToolbarIconLibrary scrollLeftOffEntered2Icon)
arrowButton.activeLeftForm          (VistaToolbarIconLibrary scrollLeftActiveIcon)
arrowButton.disabledLeftForm        (VistaToolbarIconLibrary scrollLeftOffIcon)

arrowButton.rightForm               (VistaToolbarIconLibrary scrollRightOffIcon)
arrowButton.enteredRightForm        (VistaToolbarIconLibrary scrollRightOffEntered2Icon)
arrowButton.activeRightForm         (VistaToolbarIconLibrary scrollRightActiveIcon)
arrowButton.disabledRightForm       (VistaToolbarIconLibrary scrollRightOffIcon)


arrowButton.leftFormFile          'ScrollLt.xp.xpm'
arrowButton.enteredLeftFormFile   'ScrollLt_entered.xp.xpm'
arrowButton.activeLeftFormFile    'ScrollLt_active.xp.xpm'
arrowButton.disabledLeftFormFile  'ScrollLt_disabled.xp.xpm'

arrowButton.rightFormFile         'ScrollRt.xp.xpm'
arrowButton.enteredRightFormFile  'ScrollRt_entered.xp.xpm'
arrowButton.activeRightFormFile   'ScrollRt_active.xp.xpm'
arrowButton.disabledRightFormFile 'ScrollRt_disabled.xp.xpm'

arrowButton.passiveLevel          0
arrowButton.activeLevel           0
arrowButton.backgroundColor       =scroller.viewBackground
arrowButton.activeBackgroundColor =scroller.viewBackground

noteBook.backgroundColor          =lightenedViewGrey
noteBook.activeBackgroundColor    =viewBackground
noteBook.foregroundColor          Color black
noteBook.lightColor               =darkenedViewGrey
noteBook.shadowColor              =darkenedViewGrey
noteBook.passiveBackgroundColor   =lightenedViewGrey

checkToggle.bitmapFile            'CheckOn10_xp.xpm'
radioButton.passiveImage          (VistaToolbarIconLibrary radioOff12x12Icon)
radioButton.activeImage           (VistaToolbarIconLibrary radioOn12x12Icon)
radioButton.enteredPassiveImage   (VistaToolbarIconLibrary radioOffEntered12x12Icon)
radioButton.enteredActiveImage    (VistaToolbarIconLibrary radioOnEntered12x12Icon)
radioButton.disabledPassiveImage  (VistaToolbarIconLibrary radioOffDisabled12x12Icon)
radioButton.disabledActiveImage   (VistaToolbarIconLibrary radioOnDisabled12x12Icon)
checkToggle.disabledActiveImage   (VistaToolbarIconLibrary checkToggleOnDisabledIcon)
checkToggle.disabledPassiveImage  (VistaToolbarIconLibrary checkToggleOffDisabledIcon)
checkToggle.activeImage           (VistaToolbarIconLibrary checkToggleOnIcon)
checkToggle.passiveImage          (VistaToolbarIconLibrary checkToggleOffIcon)
checkToggle.enteredPassiveImage   (VistaToolbarIconLibrary checkToggleOffEnteredIcon)
checkToggle.enteredActiveImage    (VistaToolbarIconLibrary checkToggleOnEnteredIcon)
checkToggle.activeLevel           0
checkToggle.passiveLevel          0
checkToggle.disabledBackgroundColor     =viewGrey
checkToggle.backgroundColor             =viewGrey
checkToggle.activeBackgroundColor       =viewGrey

menu.iconIndicationOn             (VistaToolbarIconLibrary checkToggleOnIcon)
menu.iconIndicationOff            (VistaToolbarIconLibrary checkToggleOffIcon)
menu.iconDisabledIndicationOn     (VistaToolbarIconLibrary checkToggleOffDisabledIcon)
menu.iconDisabledIndicationOff    (VistaToolbarIconLibrary checkToggleOffIcon)

noteBook.activeTabMarkerColor       (Color red:100 green:78 blue:23)

popup.borderColor                   (Color grey:50)
popup.borderWidth                   1
editField.level                     0
editField.borderWidth               1
editField.borderColor               (Color redByte:175 greenByte:190 blueByte:240)

; does not work
; comboView.level                   0
; comboView.borderWidth             1
; comboView.borderColor             (Color redByte:175 greenByte:190 blueByte:240)

; label.foregroundColor             (Color redByte:0 greenByte:70 blueByte:213)
; button.foregroundColor            (Color black)
; radioButton.foregroundColor       (Color black)
; checkBox.labelForegroundColor     (Color black)

; noteBook.foregroundColor          (Color redByte:0 greenByte:70 blueByte:213)
framedBox.foregroundColor         (Color redByte:0 greenByte:70 blueByte:213)

variablePanel.handleLevel       0

infoBox.iconFile                'bitmaps/Information_XP.xpm'
warningBox.iconFile             'bitmaps/Warning_XP.xpm'
requestBox.iconFile             'bitmaps/Request_XP.xpm'
errorBox.iconFile               'bitmaps/Error_XP.xpm'

selection.backgroundColor       (Color white)

;selection.hilightForegroundColor    (Color black)
;selection.hilightBackgroundColor    (Color rgbValue:16rDFF0F8)
;selection.hilightFrameColor         (Color rgbValue:16r96D9F9)

;;;menu.hilightForegroundColor         (Color black)
;;;menu.hilightBackgroundColor         (Color rgbValue:16rDAEBF3)
;;;menu.hilightFrameColor              (Color rgbValue:16rA8D8EB)

editField.selectionBackgroundColor   =selectionBlue
editField.selectionForegroundColor   (Color white)

scrolledView.level      0
