styles/mswindows10.style
author Stefan Vogel <sv@exept.de>
Wed, 26 Feb 2020 14:50:44 +0100
changeset 9009 1b4dfccafd87
parent 9003 de9be1ccbdb4
permissions -rw-r--r--
#REFACTORING by stefan class: DisplayRootView changed: #initialize

; View defaultStyle:#mswindows10
;
; $Header$

iconLibrary                         ?(Smalltalk at:#Windows10ToolbarIconLibrary) ? (Smalltalk at:#Windows8ToolbarIconLibrary) ? (Smalltalk at:#XPToolbarIconLibrary) ? GenericToolbarIconLibrary

#include 'mswindows8.style'

name                                #win10
comment                             'Windows10 lookalike (unfinished)'
previewFileName                     'viewStyleSample_win10.png'

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

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

;
; unfinished
;

menu.enteredLevel                   0
embeddedToolBar.level               0

selection.hilightForegroundColor            Color black
selection.hilightBackgroundColor            (Color rgbValue:16rCCE8FF)
selection.hilightForegroundColorNoFocus     Color black
selection.hilightBackgroundColorNoFocus     (Color rgbValue:16rD9D9D9)

selection.hilightFrameColor                 (Color rgbValue:16r99D1FF)
selection.hilightFrameColorNoFocus          (Color rgbValue:16rD9D9D9)
selection.hilightMode                       #line

scrollableView.level                0
scrolledView.level                  0
scroller.thumbInset                 0
scrollBar.disableButtons            true
scrollBar.vScrollBarWidth           (OperatingSystem isMSWINDOWSlike ifTrue:[ (Display getSystemMetrics:#SM_CXHTHUMB)-2 ] ifFalse:[15])
scrollBar.hScrollBarHeight          (OperatingSystem isMSWINDOWSlike ifTrue:[ (Display getSystemMetrics:#SM_CYVTHUMB)-2 ] ifFalse:[15])
; currently has trouble on win machines
; scrollBar.hideIfPointerOutside      true

variablePanel.barSideLineColor      (Color rgbValue:16rF0F0F0)
variablePanel.backgroundColor       Color white

arrowButton.backgroundColor         (Color rgbValue:16rF0F0F0)
arrowButton.foregroundColor         (Color rgbValue:16r606060)

arrowButton.enteredBackgroundColor  (Color rgbValue:16rDADADA)
arrowButton.enteredForegroundColor  (Color black)

arrowButton.activeBackgroundColor   (Color rgbValue:16r606060)
arrowButton.activeForegroundColor   (Color white)

arrowButton.disabledBackgroundColor (Color rgbValue:16r606060)
arrowButton.disabledForegroundColor (Color grey:80)

arrowButton.upForm                  =iconLibrary scrollUpIcon
arrowButton.downForm                =iconLibrary scrollDownIcon
arrowButton.leftForm                =iconLibrary scrollLeftIcon
arrowButton.rightForm               =iconLibrary scrollRightIcon

;arrowButton.upForm                  =iconLibrary scrollUpOffIcon
;arrowButton.enteredUpForm           =iconLibrary scrollUpOffEnteredIcon
;arrowButton.activeUpForm            =iconLibrary scrollUpActiveIcon
;arrowButton.disabledUpForm          =iconLibrary scrollUpDisabledIcon
;
;arrowButton.downForm                =iconLibrary scrollDownOffIcon
;arrowButton.enteredDownForm         =iconLibrary scrollDownOffEnteredIcon
;arrowButton.activeDownForm          =iconLibrary scrollDownActiveIcon
;arrowButton.disabledDownForm        =iconLibrary scrollDownDisabledIcon
;
;arrowButton.leftForm                =iconLibrary scrollLeftOffIcon
;arrowButton.enteredLeftForm         =iconLibrary scrollLeftOffEnteredIcon
;arrowButton.activeLeftForm          =iconLibrary scrollLeftActiveIcon
;arrowButton.disabledLeftForm        =iconLibrary scrollLeftDisabledIcon
;
;arrowButton.rightForm               =iconLibrary scrollRightOffIcon
;arrowButton.enteredRightForm        =iconLibrary scrollRightOffEnteredIcon
;arrowButton.activeRightForm         =iconLibrary scrollRightActiveIcon
;arrowButton.disabledRightForm       =iconLibrary scrollRightDisabledIcon

arrowButton.enteredUpForm     nil
arrowButton.activeUpForm      nil
arrowButton.disabledUpForm    nil

arrowButton.enteredDownForm    nil
arrowButton.activeDownForm     nil
arrowButton.disabledDownForm   nil

arrowButton.enteredLeftForm     nil
arrowButton.activeLeftForm      nil
arrowButton.disabledLeftForm    nil

arrowButton.enteredRightForm    nil
arrowButton.activeRightForm     nil
arrowButton.disabledRightForm   nil

arrowButton.upFormFile            nil
arrowButton.enteredUpFormFile     nil
arrowButton.activeUpFormFile      nil
arrowButton.disabledUpFormFile    nil

arrowButton.downFormFile           nil
arrowButton.enteredDownFormFile    nil
arrowButton.activeDownFormFile     nil
arrowButton.disabledDownFormFile   nil

arrowButton.leftFormFile            nil
arrowButton.enteredLeftFormFile     nil
arrowButton.activeLeftFormFile      nil
arrowButton.disabledLeftFormFile    nil

arrowButton.rightFormFile           nil
arrowButton.enteredRightFormFile    nil
arrowButton.activeRightFormFile     nil
arrowButton.disabledRightFormFile   nil

; splitterLine: F7