#REFACTORING by stefan
class: Font
changed: #setFamily:face:style:size:sizeUnit:encoding:device:
; View defaultStyle:#macosx_yosemite
;
; how ugly!
; mac is looking more and more like windows8!
;
; $Header$
ToolbarIconLibrary (Smalltalk at:#ToolbarIconLibrary put:(Smalltalk at:#MacOSX2ToolbarIconLibrary))
viewGrey ?(Color rgbValue:16rF1F1F2)
viewLightGrey Color white
magentaT (Color rgbValue:16rE01476)
magentaBrightT (Color rgbValue:16rFBE1ED)
#include 'macosx.style'
name #macosx_yosemite
ToolbarIconLibrary (Smalltalk at:#ToolbarIconLibrary put:(Smalltalk at:#MacOSX2ToolbarIconLibrary))
viewGrey (Color rgbValue:16rF2F2F5)
halfLightColor =viewGrey
;
; unfinished
;
comment 'OSX Yosemite lookalike (unfinished)'
previewFileName 'viewStyleSample_macosx_yosemite.png'
#if (Language == #german) or:[Language == #de]
comment 'an MacOSX Yosemite angelehnter Stil (unvollständig)'
#endif
#if (Language == #french) or:[Language == #fr]
comment 'Un style qui résemble MacOSX Yosemite (incomplet)'
#endif
selection.backgroundColor (Color white)
; selection.backgroundColor (Color rgbValue:16rf0f1f4)
; selection.hilightBackgroundColor (Color rgbValue:16rf0f1f4)
#if ((Smalltalk at:#'Expecco::ExpeccoPreferences') notNil and:[(Smalltalk at:#'Expecco::ExpeccoPreferences') introStyle endsWith:'_T'])
selection.hilightBackgroundColorNoFocus =magentaBrightT
#endif
menu.iconIndicationOn.bitmap (ToolbarIconLibrary checkToggleOnIcon)
menu.iconIndicationOff.bitmap (ToolbarIconLibrary checkToggleOffIcon)
menu.iconDisabledIndicationOn.bitmapFile (ToolbarIconLibrary checkToggleOnDisabledIcon)
menu.iconDisabledIndicationOff.bitmapFile (ToolbarIconLibrary checkToggleOffDisabledIcon)
menu.iconRadioOn.bitmap (ToolbarIconLibrary radioOnIcon)
menu.iconRadioOff.bitmap (ToolbarIconLibrary radioOffIcon)
menu.iconDisabledRadioOn.bitmap (ToolbarIconLibrary radioOnDisabledIcon)
menu.iconDisabledRadioOff.bitmap (ToolbarIconLibrary radioOffDisabledIcon)
menu.backgroundColor =viewGrey
; menu.backgroundColor (Color grey:95)
#if ((Smalltalk at:#'Expecco::ExpeccoPreferences') notNil and:[(Smalltalk at:#'Expecco::ExpeccoPreferences') introStyle endsWith:'_T'])
menu.enteredForegoundColor (Color rgbValue:16rd7dce1)
#endif
comboView.downForm (ToolbarIconLibrary scrollDownOffIcon)
comboView.disabledDownForm (ToolbarIconLibrary scrollDownOffIcon)
comboView.enteredDownForm (ToolbarIconLibrary scrollDownOffEntered2Icon)
comboView.activeDownForm (ToolbarIconLibrary scrollDownActiveIcon)
radioButton.passiveImage (ToolbarIconLibrary radioOffIcon)
radioButton.activeImage (ToolbarIconLibrary radioOnIcon)
radioButton.enteredPassiveImage (ToolbarIconLibrary radioOffIcon)
radioButton.enteredActiveImage (ToolbarIconLibrary radioOnIcon)
radioButton.disabledPassiveImage (ToolbarIconLibrary radioOffDisabledIcon)
radioButton.disabledActiveImage (ToolbarIconLibrary radioOnDisabledIcon)
checkToggle.disabledActiveImage (ToolbarIconLibrary checkToggleOnDisabledIcon)
checkToggle.disabledPassiveImage (ToolbarIconLibrary checkToggleOffDisabledIcon)
checkToggle.activeImage (ToolbarIconLibrary checkToggleOnIcon)
checkToggle.passiveImage (ToolbarIconLibrary checkToggleOffIcon)
checkToggle.enteredPassiveImage (ToolbarIconLibrary checkToggleOffEnteredIcon)
checkToggle.enteredActiveImage (ToolbarIconLibrary checkToggleOnEnteredIcon)
;
menu.iconIndicationOn (ToolbarIconLibrary checkToggleOnIcon)
menu.iconIndicationOff (ToolbarIconLibrary checkToggleOffIcon)
menu.iconDisabledIndicationOn (ToolbarIconLibrary checkToggleOffDisabledIcon)
menu.iconDisabledIndicationOff (ToolbarIconLibrary checkToggleOffIcon)
button.style #MacOSX
button.borderStyle #MacFlatButtonBorder
button.borderWidth 0
button.level 0
button.activeLevel 0
button.passiveLevel 0
button.enteredLevel 0
button.ignoreLevel true
button.activeBackgroundColor1 (Color rgbValue:16r6EB2F7)
button.activeBackgroundColor2 (Color rgbValue:16r2A7FFB)
button.activeBackgroundColor (GradientBackground vertical:(Color rgbValue:16r6EB2F7) to:(Color rgbValue:16r2A7FFB))
; button.backgroundColor Color white
button.passiveBackgroundColor1 (Color rgbValue:16rFFFFFF)
button.passiveBackgroundColor2 (Color rgbValue:16rF2F2F2)
button.passiveBackgroundColor (GradientBackground vertical:(Color rgbValue:16rF2F2F2) to:(Color rgbValue:16rFFFFFF))
;button.passiveBorderColor Color white
; button.activeBorderColor =button.activeBackgroundColor2
button.passiveBorderColor nil
; ((GradientBackground vertical:(Color rgbValue:16r6EB2F7) to:(Color rgbValue:16r2A7FFB)) usedLength:24)
;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 white)
;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.upForm [ToolbarIconLibrary scrollUpIcon]
arrowButton.enteredUpForm [ToolbarIconLibrary scrollUpEnteredIcon]
arrowButton.activeUpForm [ToolbarIconLibrary scrollUpActiveIcon]
arrowButton.disabledUpForm [ToolbarIconLibrary scrollUpDisabledIcon]
arrowButton.downForm [ToolbarIconLibrary scrollDownIcon]
arrowButton.enteredDownForm [ToolbarIconLibrary scrollDownEnteredIcon]
arrowButton.activeDownForm [ToolbarIconLibrary scrollDownActiveIcon]
arrowButton.disabledDownForm [ToolbarIconLibrary scrollDownDisabledIcon]
arrowButton.leftForm [ToolbarIconLibrary scrollLeftIcon]
arrowButton.enteredLeftForm [ToolbarIconLibrary scrollLeftEnteredIcon]
arrowButton.activeLeftForm [ToolbarIconLibrary scrollLeftActiveIcon]
arrowButton.disabledLeftForm [ToolbarIconLibrary scrollLeftDisabledIcon]
arrowButton.rightForm [ToolbarIconLibrary scrollRightIcon]
arrowButton.enteredRightForm [ToolbarIconLibrary scrollRightEnteredIcon]
arrowButton.activeRightForm [ToolbarIconLibrary scrollRightActiveIcon]
arrowButton.disabledRightForm [ToolbarIconLibrary scrollRightDisabledIcon]
scroller.viewBackground (Color rgbValue:16rfafafa) "/ Color white
scrollableView.level 0
scrolledView.level 0
; currently has trouble on win machines
; scrollBar.hideIfPointerOutside true
arrowButton.backgroundColor =scroller.viewBackground
arrowButton.activeBackgroundColor =scroller.viewBackground
arrowButton.enteredBackgroundColor =scroller.viewBackground
; button.enteredBackgroundColor (Color grey:85)
#if ((Smalltalk at:#'Expecco::ExpeccoPreferences') notNil and:[(Smalltalk at:#'Expecco::ExpeccoPreferences') introStyle endsWith:'_T'])
menu.enteredBackgroundColor =viewGrey
menu.enteredForegroundColor =magentaT
menu.hilightBackgroundColor =magentaT
menu.hilightForegroundColor Color white
menu.selectionBackgroundColor =magentaT
menu.selectionForegroundColor Color white
menu.activeBackgroundColor =magentaT
menu.activeForegroundColor Color white
#else
menu.enteredBackgroundColor (Color grey:85)
menu.enteredForegroundColor (Color black)
#endif
menu.enteredLevel 0
menu.buttonEnteredLevel 0
menu.ignoreIsButton true
comboView.downForm [ToolbarIconLibrary comboViewIcon]
comboView.disabledDownForm [ToolbarIconLibrary comboViewDisabledIcon]
comboView.enteredDownForm [ToolbarIconLibrary comboViewEnteredIcon]
comboView.activeDownForm [ToolbarIconLibrary comboViewActiveIcon]
variablePanel.barHeight 8
variablePanel.barWidth 8
variablePanel.minBarHeight 8
variablePanel.showHandleWhenEntered true
framedBox.3DFrame false
framedBox.frameColor Color grey
;; framedBox.MacRoundFrame true
;;
;; no: that is really too ugly
;; activeHelp.backgroundColor (Color grey:95)
activeHelp.borderColor (Color grey:70)
activeHelp.backgroundColor (Color grey:98)
activeHelp.font (Font family:'helvetica' face:'roman' style:'medium' size:10)
dataSet.labelView.backgroundColor (Color rgbValue:16rF2F2F2)
launcher.editorLevel 0
;; #if ((Smalltalk at:#'Expecco::ExpeccoPreferences') notNil and:[(Smalltalk at:#'Expecco::ExpeccoPreferences') introStyle endsWith:'_T'])
;; textCursor.noFocusForegroundColor =magentaBrightT
;; #else
textCursor.noFocusForegroundColor (Color gray:70)
;; #endif
;; textCursor.noFocusForegroundColor (Color white)