; 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

ToolbarIconLibrary              ?(Smalltalk at:#Windows8ToolbarIconLibrary) ? (Smalltalk at:#XPToolbarIconLibrary) ? GenericToolbarIconLibrary

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                     (Windows8ToolbarIconLibrary radioOn12x12Icon)

menu.iconRadioOff.bitmap                    (Windows8ToolbarIconLibrary radioOff12x12Icon)

menu.iconDisabledIndicationOn.bitmapFile    'CheckOn_disabled_xp.xpm'

menu.iconDisabledIndicationOff.bitmapFile   'CheckOff_disabled_xp.xpm'

menu.iconDisabledRadioOn.bitmap             (Windows8ToolbarIconLibrary radioOnDisabled12x12Icon)

menu.iconDisabledRadioOff.bitmap            (Windows8ToolbarIconLibrary 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                      (Windows8ToolbarIconLibrary scrollDownOffIcon)

comboView.disabledDownForm              (Windows8ToolbarIconLibrary scrollDownOffIcon)

comboView.enteredDownForm               (Windows8ToolbarIconLibrary scrollDownOffEntered2Icon)

comboView.activeDownForm                (Windows8ToolbarIconLibrary 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:16rCD greenByte:16rCD blueByte:16rCD)

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.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                  (Windows8ToolbarIconLibrary scrollUpOffIcon)

arrowButton.enteredUpForm           (Windows8ToolbarIconLibrary scrollUpOffEntered2Icon)

arrowButton.activeUpForm            (Windows8ToolbarIconLibrary scrollUpActiveIcon)

arrowButton.disabledUpForm          (Windows8ToolbarIconLibrary scrollUpOffIcon)

arrowButton.downForm                (Windows8ToolbarIconLibrary scrollDownOffIcon)

arrowButton.enteredDownForm         (Windows8ToolbarIconLibrary scrollDownOffEntered2Icon)

arrowButton.activeDownForm          (Windows8ToolbarIconLibrary scrollDownActiveIcon)

arrowButton.disabledDownForm        (Windows8ToolbarIconLibrary scrollDownOffIcon)

arrowButton.leftForm                (Windows8ToolbarIconLibrary scrollLeftOffIcon)

arrowButton.enteredLeftForm         (Windows8ToolbarIconLibrary scrollLeftOffEntered2Icon)

arrowButton.activeLeftForm          (Windows8ToolbarIconLibrary scrollLeftActiveIcon)

arrowButton.disabledLeftForm        (Windows8ToolbarIconLibrary scrollLeftOffIcon)

arrowButton.rightForm               (Windows8ToolbarIconLibrary scrollRightOffIcon)

arrowButton.enteredRightForm        (Windows8ToolbarIconLibrary scrollRightOffEntered2Icon)

arrowButton.activeRightForm         (Windows8ToolbarIconLibrary scrollRightActiveIcon)

arrowButton.disabledRightForm       (Windows8ToolbarIconLibrary 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          (Windows8ToolbarIconLibrary radioOff12x12Icon)

radioButton.activeImage           (Windows8ToolbarIconLibrary radioOn12x12Icon)

radioButton.enteredPassiveImage   (Windows8ToolbarIconLibrary radioOffEntered12x12Icon)

radioButton.enteredActiveImage    (Windows8ToolbarIconLibrary radioOnEntered12x12Icon)

radioButton.disabledPassiveImage  (Windows8ToolbarIconLibrary radioOffDisabled12x12Icon)

radioButton.disabledActiveImage   (Windows8ToolbarIconLibrary radioOnDisabled12x12Icon)

checkToggle.disabledActiveImage   (Windows8ToolbarIconLibrary checkToggleOnDisabledIcon)

checkToggle.disabledPassiveImage  (Windows8ToolbarIconLibrary checkToggleOffDisabledIcon)

checkToggle.activeImage           (Windows8ToolbarIconLibrary checkToggleOnIcon)

checkToggle.passiveImage          (Windows8ToolbarIconLibrary checkToggleOffIcon)

checkToggle.enteredPassiveImage   (Windows8ToolbarIconLibrary checkToggleOffEnteredIcon)

checkToggle.enteredActiveImage    (Windows8ToolbarIconLibrary checkToggleOnEnteredIcon)

checkToggle.activeLevel           0

checkToggle.passiveLevel          0

checkToggle.disabledBackgroundColor     =viewGrey

checkToggle.backgroundColor             =viewGrey

checkToggle.activeBackgroundColor       =viewGrey

menu.iconIndicationOn             (Windows8ToolbarIconLibrary checkToggleOnIcon)

menu.iconIndicationOff            (Windows8ToolbarIconLibrary checkToggleOffIcon)

menu.iconDisabledIndicationOn     (Windows8ToolbarIconLibrary checkToggleOffDisabledIcon)

menu.iconDisabledIndicationOff    (Windows8ToolbarIconLibrary 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)

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