; 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