;
; Common definitions for Adwaita theme variants
;
#if $variant = 'dark'
ToolbarIconLibrary ?(Smalltalk at:#AdwaitaDarkToolbarIconLibrary) ? (Smalltalk at:#VistaToolbarIconLibrary) ? (Smalltalk at:#XPToolbarIconLibrary) ? GenericToolbarIconLibrary
#else
ToolbarIconLibrary ?(Smalltalk at:#AdwaitaToolbarIconLibrary) ? (Smalltalk at:#VistaToolbarIconLibrary) ? (Smalltalk at:#XPToolbarIconLibrary) ? GenericToolbarIconLibrary
#endif
useQuestForHelp false
; Default fonts
font XftFontDescription named:'Cantarell-14'.
textFont XftFontDescription named:'Sans-14'.
button.font =font
; Colors
selectionBlue $theme_selected_bg_color
backgroundColor $theme_bg_color
foregroundColor $theme_fg_color
viewGrey $theme_bg_color
viewLightGrey $theme_bg_color lighter
halfShadowColor ?(Color grey:80) exactOrNearestOn:(Screen current)
halfLightColor =viewGrey
#if $variant = 'dark'
lightColor $insensitive_fg_color
shadowColor Color black
#else
lightColor ?Color white
shadowColor ?(Color grey:60) exactOrNearestOn:(Screen current)
#endif
lightenedViewGrey ?Color redByte:240 greenByte:240 blueByte:240
darkenedViewGrey ?Color redByte:150 greenByte:150 blueByte:150
is3D false
borderWidth 0
viewBackground =viewGrey
focusStyle #win95
focusHighlightStyle #win95
popup.shadow false
popup.level 1
focus.showBorder false
focus.takeOnClick true
checkToggle.activeLevel -2
checkToggle.passiveLevel -2
checkToggle.foregroundColor Color black
checkToggle.backgroundColor Color white
checkToggle.activeForegroundColor Color black
checkToggle.activeBackgroundColor Color white
checkToggle.bitmapFile 'CheckOn10.xbm'
variablePanel.handlePosition #left
variablePanel.trackingStyle #dottedLine
variablePanel.showHandle false "/ the default; can be overwritten by UI-spec
; variablePanel.barHeight 4
; variablePanel.handleLevel 0
variablePanel.barHeight 8
variablePanel.handleLevel 1
variablePanel.handleStyle #full
scrollableView.level -1
; scrollableView.backgroundColor =viewLightGrey
scrolledView.borderWidth nil
scrolledView.level 0
scrolledView.margin 1
scrolledView.zeroOffsets true
scrollBar.level 0
scrollBar.spacing 0
scrollBar.hiding true
; scrollBar.neverMini true
scrollBar.position #right
scrollBar.buttonPositions #around
scrollBar.viewBackground =viewLightGrey
scrollBar.elementSpacing 0
scroller.viewBackground =viewLightGrey
scroller.thumbColor =viewGrey
; scroller.thumbEdgeStyle #soft
scroller.thumbEdgeStyle #softWin95
scroller.thumbLightColor =viewGrey
scroller.thumbHalfLightColor Color white
scroller.thumbLevel 2
# scroller.borderWidth 1
scroller.borderWidth 0
scroller.level 0
scroller.ghostFrameColor Color darkGrey
scroller.snapBack true
;button.activeLevel 1
button.activeLevel -1 "/ 0
button.passiveLevel 2
; button.edgeStyle #soft
button.edgeStyle #softWin95
; button.activeForegroundColor Color black
; button.activeBackgroundColor Color white
; button.enteredBackgroundColor Color lightGrey
; button.halfShadowColor =viewGrey darkened exactOrNearestOn:(Screen current)
button.halfShadowColor =halfShadowColor
button.halfLightColor Color white
radioButton.style #image
radioButton.passiveImageFile 'RadioOff_w95.xpm'
radioButton.activeImageFile 'RadioOnBits_w95.xbm'
; arrowButton.upFormFile 'ScrollUp.w95.14.xbm'.
; arrowButton.downFormFile 'ScrollDn.w95.14.xbm'.
; arrowButton.leftFormFile 'ScrollLt.w95.14.xbm'.
; arrowButton.rightFormFile 'ScrollRt.w95.14.xbm'.
arrowButton.upFormFile 'ScrollUp.w95.11.xbm'.
arrowButton.downFormFile 'ScrollDn.w95.11.xbm'.
arrowButton.leftFormFile 'ScrollLt.w95.11.xbm'.
arrowButton.rightFormFile 'ScrollRt.w95.11.xbm'.
comboView.level -1
comboView.downFormFile 'ScrollDn.w95.11.xbm'.
comboView.disabledDownFormFile 'ScrollDn_disabled.w95.11.xpm'.
html.backgroundColor Color white
; html.anchorForegroundColor Color green darkened
; html.visitedAnchorForegroundColor =html.anchorForegroundColor darkened darkened
html.visitedAnchorForegroundColor Color red:50 green:0 blue:50
; html.anchorUnderlines true
dataSet.labelView.level 0
activeHelp.backgroundColor $text_view_bg
activeHelp.borderWidth 1
activeHelp.borderColor $borders
scroller.vScrollerWidth 16 "/ [Screen current getSystemMetrics:#'SM_CXVSCROLL' ]
scroller.hScrollerHeight 16 "/ [Screen current getSystemMetrics:#'SM_CYHSCROLL' ]
scrollBar.vScrollBarWidth 16 "/ [Screen current getSystemMetrics:#'SM_CXVSCROLL' ]
scrollBar.hScrollBarHeight 16 "/ [Screen current getSystemMetrics:#'SM_CYHSCROLL' ]
warningBox.iconFile 'bitmaps/Warning_w95.xpm'
requestBox.iconFile 'bitmaps/Request_w95.xpm'
errorBox.iconFile 'bitmaps/Error_w95.xpm'
menu.enteredLevel 0
menu.buttonEnteredLevel 0
menu.buttonPassiveLevel 0
menu.buttonActiveLevel 0
menu.buttonItemSpace 2
menu.itemSpace 5
; windows does NOT align the help-group at the right end of the menu
menuPanel.ignoreConditionalStartGroupRight true
;; enable this, when old menuView cares for it also
;; menu.itemMargin 1
menu.selectionFollowsMouse true
menu.backgroundColor $theme_bg_color
menu.foregroundColor $theme_fg_color
menu.hilightBackgroundColor $theme_selected_bg_color
menu.hilightForegroundColor $theme_selected_fg_color
menu.enteredBackgroundColor =menu.hilightBackgroundColor
menu.enteredForegroundColor =menu.hilightForegroundColor
menu.disabledForegroundColor $insensitive_fg_color
menu.iconIndicationOn.bitmapFile 'CheckOn_xp.xpm'
menu.iconIndicationOff.bitmapFile 'CheckOff_xp.xpm'
menu.iconRadioOn.bitmap (ToolbarIconLibrary radioOnIcon)
menu.iconRadioOff.bitmap (ToolbarIconLibrary radioOffIcon)
menu.iconDisabledIndicationOn.bitmapFile 'CheckOn_disabled_xp.xpm'
menu.iconDisabledIndicationOff.bitmapFile 'CheckOff_disabled_xp.xpm'
menu.iconDisabledRadioOn.bitmap (ToolbarIconLibrary radioOnDisabledIcon)
menu.iconDisabledRadioOff.bitmap (ToolbarIconLibrary radioOffDisabledIcon)
menu.iconIndicationOn [ToolbarIconLibrary checkToggleOnIcon]
menu.iconIndicationOff [ToolbarIconLibrary checkToggleOffIcon]
menu.iconDisabledIndicationOn [ToolbarIconLibrary checkToggleOffDisabledIcon]
menu.iconDisabledIndicationOff [ToolbarIconLibrary checkToggleOffIcon]
;
; Style for window main menus and toolbars
;
pullDownMenu.separatingLines false
pullDownMenu.level 0
pullDownMenu.borderWidth 0
comboView.downForm [ToolbarIconLibrary scrollDownOffIcon]
comboView.disabledDownForm [ToolbarIconLibrary scrollDownOffIcon]
comboView.enteredDownForm [ToolbarIconLibrary scrollDownOffEntered2Icon]
comboView.activeDownForm [ToolbarIconLibrary scrollDownActiveIcon]
comboView.button.activeLevel 0
comboView.button.passiveLevel 0
comboView.button.activeBackgroundColor =viewGrey
scroller.viewBackground $theme_bg_color
scroller.thumbColor $theme_unfocused_fg_color
"/ 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 $theme_fg_color
scroller.thumbActiveColor =selectionBlue
scroller.thumbLevel 0
scroller.thumbInset 1
scroller.thumbFrameColor $theme_bg_color
scroller.thumbEdgeStyle #edged
scroller.NTallyMarks 3
scroller.tallyInset 6
scroller.tallyDistance 3
scroller.tallyLevel 0
scroller.snapBackDistance 100
scroller.minThumbSize 16
;scroller.vista3DStyle true
;scroller.vista3DStyleLightColor (Color rgbValue:16rBDD4EF)
scroller.thumbFrameColor (Color grey:65)
scroller.thumbFrameColor2 nil
miniScroller.size 3 "/ in millimeters
arrowButton.upForm [ToolbarIconLibrary scrollUpOffIcon]
arrowButton.enteredUpForm [ToolbarIconLibrary scrollUpOffEntered2Icon]
arrowButton.activeUpForm [ToolbarIconLibrary scrollUpActiveIcon]
arrowButton.disabledUpForm [ToolbarIconLibrary scrollUpOffIcon]
arrowButton.downForm [ToolbarIconLibrary scrollDownOffIcon]
arrowButton.enteredDownForm [ToolbarIconLibrary scrollDownOffEntered2Icon]
arrowButton.activeDownForm [ToolbarIconLibrary scrollDownActiveIcon]
arrowButton.disabledDownForm [ToolbarIconLibrary scrollDownOffIcon]
arrowButton.leftForm [ToolbarIconLibrary scrollLeftOffIcon]
arrowButton.enteredLeftForm [ToolbarIconLibrary scrollLeftOffEntered2Icon]
arrowButton.activeLeftForm [ToolbarIconLibrary scrollLeftActiveIcon]
arrowButton.disabledLeftForm [ToolbarIconLibrary scrollLeftOffIcon]
arrowButton.rightForm [ToolbarIconLibrary scrollRightOffIcon]
arrowButton.enteredRightForm [ToolbarIconLibrary scrollRightOffEntered2Icon]
arrowButton.activeRightForm [ToolbarIconLibrary scrollRightActiveIcon]
arrowButton.disabledRightForm [ToolbarIconLibrary 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.tabTopMargin 1
noteBook.backgroundColor $theme_bg_color
noteBook.foregroundColor $theme_fg_color
noteBook.activeBackgroundColor $text_view_bg
noteBook.lightColor $theme_bg_color
noteBook.shadowColor $theme_bg_color
noteBook.passiveBackgroundColor $theme_bg_color
noteBook.activeTabMarkerColor =selectionBlue
noteBook.activeTabMarkerColor2 =selectionBlue
checkToggle.bitmapFile 'CheckOn10_xp.xpm'
radioButton.passiveImage [ToolbarIconLibrary radioOffIcon]
radioButton.activeImage [ToolbarIconLibrary radioOnIcon]
radioButton.enteredPassiveImage [ToolbarIconLibrary radioOffEnteredIcon]
radioButton.enteredActiveImage [ToolbarIconLibrary radioOnEnteredIcon]
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]
checkToggle.activeLevel 0
checkToggle.passiveLevel 0
checkToggle.disabledBackgroundColor =viewGrey
checkToggle.backgroundColor =viewGrey
checkToggle.activeBackgroundColor =viewGrey
#if $variant = 'dark'
popup.borderColor (Color black)
#else
popup.borderColor (Color grey:50)
#endif
popup.borderWidth 1
; 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
variablePanel.snapLevel 0
variablePanel.snapEnterLevel 1
variablePanel.selectedLevel -1
infoBox.iconFile 'bitmaps/Information_XP.xpm'
warningBox.iconFile 'bitmaps/Warning_XP.xpm'
requestBox.iconFile 'bitmaps/Request_XP.xpm'
errorBox.iconFile 'bitmaps/Error_XP.xpm'
; List views
selection.backgroundColor $text_view_bg
selection.hilightStyle #win95
selection.hilightForegroundColor $theme_selected_fg_color
selection.hilightBackgroundColor $theme_selected_bg_color
selection.hilightFrameColor $theme_selected_bg_color
selection.rightArrowLevel 0
selection.rightArrowStyle #solid
selection.rightArrowForm Image extent:16@12 depth:1 \
bits:#[ \
2r00000000 2r00000000 \
2r00000000 2r00000000 \
2r00000000 2r00000000 \
2r00000010 2r00000000 \
2r00000011 2r00000000 \
2r00000011 2r10000000 \
2r00000011 2r11000000 \
2r00000011 2r10000000 \
2r00000011 2r00000000 \
2r00000010 2r00000000 \
2r00000000 2r00000000 \
2r00000000 2r00000000 \
] \
pad:8
; Data set widget
textForegroundColor $theme_fg_color
;
; Text editors & Lists (!!!)
;
textCursor.type #ibeam
textCursor.backgroundColor $theme_fg_color
textCursor.foregroundColor $theme_fg_color
textCursor.noFocusForegroundColor $theme_unfocused_fg_color
textView.background $text_view_bg
text.backgroundColor $text_view_bg
text.foregroundColor $theme_fg_color
text.selectionBackgroundColor $theme_selected_bg_color
text.selectionForegroundColor $theme_selected_fg_color
text.borderWidth 1
text.borderColor $borders
;
; Input fields
;
editField.backgroundColor $text_view_bg
editField.selectionBackgroundColor $theme_selected_bg_color
editField.selectionForegroundColor $theme_selected_fg_color
editField.level 0
editField.borderWidth 1
editField.borderColor $borders
scrolledView.level 0
; See https://developer.gnome.org/hig/stable/dialogs.html.en
dialogBox.okAtLeft (OperatingSystem isOSXlike) "false"
horizontalPanel.okCancelBox #fitSpace
launcher.editorLevel 1