; View defaultStyle:#mswindows8
;
; $Header$

name                            #win8
comment                         'Windows8 lookalike (unfinished)'
previewFileName                 'viewStyleSample_win8.png'

#if (Language == #german) or:[Language == #de]
comment                         'an Windows8 angelehnter Stil (unvollständig)'
#endif

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


iconLibrary                     ?(Smalltalk at:#Windows8ToolbarIconLibrary) ? (Smalltalk at:#XPToolbarIconLibrary) ? GenericToolbarIconLibrary
ToolbarIconLibrary              =iconLibrary
useQuestForHelp                 true

;
; 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                     =iconLibrary radioOn12x12Icon
menu.iconRadioOff.bitmap                    =iconLibrary radioOff12x12Icon
menu.iconDisabledIndicationOn.bitmapFile    'CheckOn_disabled_xp.xpm'
menu.iconDisabledIndicationOff.bitmapFile   'CheckOff_disabled_xp.xpm'
menu.iconDisabledRadioOn.bitmap             =iconLibrary radioOnDisabled12x12Icon
menu.iconDisabledRadioOff.bitmap            =iconLibrary radioOffDisabled12x12Icon

button.edgeStyle                            nil
button.borderWidth                          1
button.activeLevel                          0
button.passiveLevel                         0

button.frameColor                       (Color redByte:16rAC greenByte:16rAC blueByte:16rAC)
button.enteredFrameColor                (Color red:50 green:70 blue:92)
button.activeFrameColor                 (Color red:34 green:62 blue:90)
button.enteredBackgroundColor           ((GradientBackground vertical:(Color rgbValue:16rEBF3FB) to:(Color rgbValue:16rDCEBFB)) usedLength:24)
button.activeBackgroundColor            ((GradientBackground vertical:(Color rgbValue:16rDAEBFB) to:(Color rgbValue:16rC3E0FB)) usedLength:24)
button.activeForegroundColor            (Color black)

arrowButton.borderWidth                 0
checkToggle.borderWidth                 0
radioButton.borderWidth                 0
comboView.button.borderWidth            0

comboView.downForm                      =iconLibrary scrollDownOffIcon
comboView.disabledDownForm              =iconLibrary scrollDownOffIcon
comboView.enteredDownForm               =iconLibrary scrollDownOffEntered2Icon
comboView.activeDownForm                =iconLibrary 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:16rF0 greenByte:16rF0 blueByte:16rF0)
scroller.thumbColor                 (Color redByte:16rC0 greenByte:16rC0 blueByte:16rC0)
scroller.thumbLightColor            =scroller.thumbColor
scroller.thumbShadowColor           =scroller.thumbColor
scroller.thumbEnteredColor          (Color redByte:16rA6 greenByte:16rA6 blueByte:16rA6)
scroller.thumbActiveColor           (Color redByte:16r60 greenByte:16r60 blueByte:16r60)
scroller.thumbLevel                 0
; scroller.thumbInset                 1
scroller.thumbInset                 0
scroller.thumbFrameColor            nil
scroller.thumbEdgeStyle             nil
scroller.NTallyMarks                nil
scroller.tallyLevel                 nil
scroller.tallyInset                 nil
scroller.tallyDistance              nil
scroller.snapBackDistance           100
scroller.minThumbSize               16

scroller.vista3DStyle           false

miniScroller.size               3     "/ in millimeters


arrowButton.upForm                  =iconLibrary scrollUpOffIcon
arrowButton.enteredUpForm           =iconLibrary scrollUpOffEntered2Icon
arrowButton.activeUpForm            =iconLibrary scrollUpActiveIcon
arrowButton.disabledUpForm          =iconLibrary scrollUpOffIcon

arrowButton.downForm                =iconLibrary scrollDownOffIcon
arrowButton.enteredDownForm         =iconLibrary scrollDownOffEntered2Icon
arrowButton.activeDownForm          =iconLibrary scrollDownActiveIcon
arrowButton.disabledDownForm        =iconLibrary scrollDownOffIcon

arrowButton.leftForm                =iconLibrary scrollLeftOffIcon
arrowButton.enteredLeftForm         =iconLibrary scrollLeftOffEntered2Icon
arrowButton.activeLeftForm          =iconLibrary scrollLeftActiveIcon
arrowButton.disabledLeftForm        =iconLibrary scrollLeftOffIcon

arrowButton.rightForm               =iconLibrary scrollRightOffIcon
arrowButton.enteredRightForm        =iconLibrary scrollRightOffEntered2Icon
arrowButton.activeRightForm         =iconLibrary scrollRightActiveIcon
arrowButton.disabledRightForm       =iconLibrary 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          =iconLibrary radioOff12x12Icon
radioButton.activeImage           =iconLibrary radioOn12x12Icon
radioButton.enteredPassiveImage   =iconLibrary radioOffEntered12x12Icon
radioButton.enteredActiveImage    =iconLibrary radioOnEntered12x12Icon
radioButton.disabledPassiveImage  =iconLibrary radioOffDisabled12x12Icon
radioButton.disabledActiveImage   =iconLibrary radioOnDisabled12x12Icon
checkToggle.disabledActiveImage   =iconLibrary checkToggleOnDisabledIcon
checkToggle.disabledPassiveImage  =iconLibrary checkToggleOffDisabledIcon
checkToggle.activeImage           =iconLibrary checkToggleOnIcon
checkToggle.passiveImage          =iconLibrary checkToggleOffIcon
checkToggle.enteredPassiveImage   =iconLibrary checkToggleOffEnteredIcon
checkToggle.enteredActiveImage    =iconLibrary checkToggleOnEnteredIcon
checkToggle.activeLevel           0
checkToggle.passiveLevel          0
checkToggle.disabledBackgroundColor     =viewGrey
checkToggle.backgroundColor             =viewGrey
checkToggle.activeBackgroundColor       =viewGrey

menu.iconIndicationOn               =iconLibrary checkToggleOnIcon
menu.iconIndicationOff              =iconLibrary checkToggleOffIcon
menu.iconDisabledIndicationOn       =iconLibrary checkToggleOffDisabledIcon
menu.iconDisabledIndicationOff      =iconLibrary 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)

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)
; framedBox.frameLineOnly               true

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
variablePanel.snapLevel        0      "only if not #line"
infobar.level                           0