<div dir="ltr">Hi Karl,<div><br></div><div>In the dark theme the window titles are supposed to be "lit" when they have focus, and neutral ("unlit") when they don't. Like in the world of Tron. I would like to not lose that from CommunityTheme class>>#addDarkWindowColors:. Would you please "light it" but in a more refined and subdued way than before, instead of "darkening" the base color for unfocused?</div><div><br></div><div>Something like:</div><div><br></div><div> set: #focusedLabelColor for: #SystemWindow to: self dbText lighter; "<--- the 'base' color needs to be 'lit' here..."<br></div><div><br></div><div>Thanks,</div><div> Chris</div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Tue, Jul 23, 2019 at 5:53 PM Chris Muller <<a href="mailto:asqueaker@gmail.com" target="_blank">asqueaker@gmail.com</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="ltr">Thanks Karl. Yeah, especially with modern monitors with higher conrast (OLED?) a full rgb 1.0 might stand out as "bright".<div><br></div><div>I used "save image as..." to make a second image with the same windows in exactly the same positions so I could flip back and forth between them.</div><div><br></div><div><div>What I noticed on my IPS display was a slight blue'ish tint to the text which caused some of the corners of letters to appear less crisp. Lowercase "u" seems particularly affected.</div><br class="gmail-m_1918920312488984164gmail-m_-8058542590574796046m_-5678728725590086917gmail-Apple-interchange-newline"></div><div><img src="cid:ii_jyge667k1" alt="subdued.png" width="128" height="125"><br></div><div><br></div><div>I hate to disagree on a point of taste, but it feels too colorful, too blue. This "base text" component of the theme is supposed to be a neutral "white". So I did also look at 0.768 x 0.768 x 0.768 but it still seemed a bit too gray'ish, even with my laptop brightness turned all the way up. I do think we need a bit more than that..</div><div><br></div><div>I don't want the full 1.0 to be distractingly bright, so if you're willing to meet somewhere in the middle (hopefully the mid 0.80's or so) I won't object.</div><div><br></div><div><img src="cid:ii_jyge44n60" alt="bright.png" width="130" height="125"><br></div><div><br></div><div>Thanks,</div><div> Chris</div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Sun, Jul 21, 2019 at 7:38 AM <<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">A new version of System was added to project The Inbox:<br>
<a href="http://source.squeak.org/inbox/System-kfr.1072.mcz" rel="noreferrer" target="_blank">http://source.squeak.org/inbox/System-kfr.1072.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: System-kfr.1072<br>
Author: kfr<br>
Time: 21 July 2019, 2:25:06.897679 pm<br>
UUID: 184b8ba9-d093-584c-9409-ad52206e82b7<br>
Ancestors: System-mt.1071<br>
<br>
Use a subdued text color instead of plain white in community dark theme. Rename dbForeground to dbText<br>
<br>
=============== Diff against System-mt.1071 ===============<br>
<br>
Item was changed:<br>
----- Method: CommunityTheme class>>addDarkButtons: (in category 'instance creation') -----<br>
addDarkButtons: aUserInterfaceTheme<br>
"self createDark apply."<br>
aUserInterfaceTheme<br>
set: #borderColor for: #PluggableButtonMorph to: Color darkGray darker ;<br>
set: #color for: #PluggableButtonMorph to: Color gray darker ;<br>
+ set: #textColor for: #PluggableButtonMorph to: self dbText;<br>
- set: #textColor for: #PluggableButtonMorph to: Color white;<br>
<br>
set: #selectionModifier for: #PluggableButtonMorph to: [ [:c | self dbSelection twiceDarker] ];<br>
+ set: #hoverModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.1] ];<br>
+ set: #feedbackModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.1] ].<br>
- set: #hoverModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: 0.2] ];<br>
- set: #feedbackModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: 0.3] ].<br>
"And the plus-version."<br>
+ aUserInterfaceTheme set: #disabledTextColor for: #PluggableButtonMorphPlus to: Color gray!<br>
- aUserInterfaceTheme set: #disabledTextColor for: #PluggableButtonMorphPlus to: Color lightGray!<br>
<br>
Item was changed:<br>
----- Method: CommunityTheme class>>addDarkMenusAndDockingBars: (in category 'instance creation') -----<br>
addDarkMenusAndDockingBars: aUserInterfaceTheme<br>
"self createDark apply."<br>
aUserInterfaceTheme<br>
set: #borderWidth for: #MenuMorph to: 0;<br>
set: #color for: #MenuMorph to: Color darkGray twiceDarker;<br>
+ set: #titleTextColor for: #MenuMorph to: self dbText;<br>
- set: #titleTextColor for: #MenuMorph to: Color white;<br>
set: #lineColor for: #MenuMorph to: Color darkGray;<br>
set: #lineStyle for: #MenuMorph to: BorderStyle simple;<br>
set: #lineWidth for: #MenuMorph to: 1.<br>
aUserInterfaceTheme<br>
+ set: #textColor for: #MenuItemMorph to: self dbText;<br>
- set: #textColor for: #MenuItemMorph to: self dbForeground;<br>
set: #selectionColor for: #MenuItemMorph to: self dbSelection;<br>
set: #selectionTextColor for: #MenuItemMorph to: Color white ;<br>
+ set: #disabledTextColor for: #MenuItemMorph to: self dbText muchDarker.<br>
- set: #disabledTextColor for: #MenuItemMorph to: self dbForeground muchDarker.<br>
"set: #subMenuMarker for: #MenuItemMorph to: nil." "Use hard-coded default. See MenuItemMorph."<br>
"The world main docking bar."<br>
aUserInterfaceTheme<br>
" set: #color for: #DockingBarMorph to: Color darkGray;"<br>
" set: #selectionColor for: #DockingBarItemMorph to: self darkContentSecondary;"<br>
+ set: #logoColor for: #TheWorldMainDockingBar to: self dbText;<br>
- set: #logoColor for: #TheWorldMainDockingBar to: Color white;<br>
set: #selectionLogoColor for: #TheWorldMainDockingBar to: Color white!<br>
<br>
Item was changed:<br>
----- Method: CommunityTheme class>>addDarkScrollables: (in category 'instance creation') -----<br>
addDarkScrollables: aUserInterfaceTheme<br>
"self createDark apply."<br>
"Scroll bars"<br>
aUserInterfaceTheme<br>
set: #thumbColor for: #ScrollBar to: self dbGray;<br>
set: #thumbBorderColor for: #ScrollBar to: self dbGray twiceDarker.<br>
"Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets."<br>
aUserInterfaceTheme<br>
set: #borderColor for: #ScrollPane to: (Color transparent) ; "So the search box isn't outlined."<br>
set: #color for: #ScrollPane to: self dbBackground.<br>
"List widgets"<br>
aUserInterfaceTheme<br>
+ set: #textColor for: #PluggableListMorph to: self dbText;<br>
- set: #textColor for: #PluggableListMorph to: (Color gray: 0.9);<br>
set: #selectionColor for: #PluggableListMorph to: self dbSelection;<br>
+ set: #selectionTextColor for: #PluggableListMorph to: self dbText;<br>
- set: #selectionTextColor for: #PluggableListMorph to: Color white ;<br>
derive: #multiSelectionColor for: #PluggableListMorph from: #PluggableListMorph at: #selectionColor do: [:c | c twiceDarker];<br>
set: #filterColor for: #PluggableListMorph to: (self dbYellow alpha: 0.4);<br>
derive: #filterTextColor for: #PluggableListMorph from: #PluggableListMorph at: #textColor ;<br>
set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | c twiceDarker ] ];<br>
set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c twiceDarker alpha: 0.5 ] ].<br>
"Tree widgets"<br>
aUserInterfaceTheme<br>
set: #highlightTextColor for: #SimpleHierarchicalListMorph to: self dbYellow lighter lighter;<br>
set: #lineColor for: #SimpleHierarchicalListMorph to: Color gray.<br>
"Text widgets"<br>
aUserInterfaceTheme<br>
+ set: #textColor for: #PluggableTextMorph to: self dbText;<br>
- set: #textColor for: #PluggableTextMorph to: (Color gray: 0.9);<br>
set: #caretColor for: #PluggableTextMorph to: Color orange darker;<br>
set: #selectionColor for: #PluggableTextMorph to: (self dbSelection duller duller);<br>
set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | c duller] ];<br>
set: #adornmentReadOnly for: #PluggableTextMorph to: self dbPurple;<br>
set: #adornmentRefuse for: #PluggableTextMorph to: self dbBlue;<br>
set: #adornmentConflict for: #PluggableTextMorph to: self dbRed;<br>
set: #adornmentDiff for: #PluggableTextMorph to: self dbGreen;<br>
set: #adornmentNormalEdit for: #PluggableTextMorph to: self dbOrange;<br>
set: #adornmentDiffEdit for: #PluggableTextMorph to: self dbYellow;<br>
set: #frameAdornmentWidth for: #PluggableTextMorph to: 2.<br>
aUserInterfaceTheme<br>
+ set: #balloonTextColor for: #PluggableTextMorphPlus to: self dbText!<br>
- set: #balloonTextColor for: #PluggableTextMorphPlus to: Color lightGray!<br>
<br>
Item was changed:<br>
----- Method: CommunityTheme class>>addDarkSyntaxHighlighting: (in category 'instance creation') -----<br>
addDarkSyntaxHighlighting: aUserInterfaceTheme<br>
"self createDark apply."<br>
| normal bold italic underlined darkMap | normal := TextEmphasis normal. bold:=TextEmphasis bold. italic:=TextEmphasis italic. underlined := TextEmphasis underlined. darkMap := StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9.<br>
aUserInterfaceTheme<br>
set: #color for: #TextAction to: self dbBlue;<br>
<br>
+ set: #default for: #SHTextStylerST80 to: {self dbText};<br>
- set: #default for: #SHTextStylerST80 to: {self dbForeground};<br>
set: #invalid for: #SHTextStylerST80 to: {self dbInvalid};<br>
set: #excessCode for: #SHTextStylerST80 to: {self dbInvalid twiceDarker};<br>
"Descriptive text for humans, italicized."<br>
set: #comment for: #SHTextStylerST80 to: {self dbComment. italic};<br>
set: #unfinishedComment for: #SHTextStylerST80 to: {self dbComment darker. italic};<br>
set: #'$' for: #SHTextStylerST80 to: {self dbConstant};<br>
set: #character for: #SHTextStylerST80 to: {self dbConstant};<br>
set: #integer for: #SHTextStylerST80 to: {self dbConstant};<br>
set: #number for: #SHTextStylerST80 to: {self dbConstant};<br>
+ set: #- for: #SHTextStylerST80 to: {self dbText. bold};<br>
+ set: #= for: #SHTextStylerST80 to: {self dbText. bold};<br>
- set: #- for: #SHTextStylerST80 to: {self dbForeground. bold};<br>
- set: #= for: #SHTextStylerST80 to: {self dbForeground. bold};<br>
set: #symbol for: #SHTextStylerST80 to: {self dbBedrock};<br>
set: #stringSymbol for: #SHTextStylerST80 to: {self dbBedrock};<br>
+ set: #literalArray for: #SHTextStylerST80 to: {self dbText};<br>
- set: #literalArray for: #SHTextStylerST80 to: {self dbForeground};<br>
set: #string for: #SHTextStylerST80 to: {self dbConstant};<br>
set: #unfinishedString for: #SHTextStylerST80 to: {self dbConstant darker};<br>
set: #assignment for: #SHTextStylerST80 to: {nil. bold};<br>
set: #ansiAssignment for: #SHTextStylerST80 to: {nil. bold};<br>
set: #literal for: #SHTextStylerST80 to: {nil. bold};<br>
set: #keyword for: #SHTextStylerST80 to: {self dbMessage};<br>
+ set: #binary for: #SHTextStylerST80 to: {self dbText. bold};<br>
- set: #binary for: #SHTextStylerST80 to: {self dbForeground. bold};<br>
set: #unary for: #SHTextStylerST80 to: {self dbMessage};<br>
set: #incompleteKeyword for: #SHTextStylerST80 to: {self dbMessage darker. {underlined. bold}};<br>
set: #incompleteBinary for: #SHTextStylerST80 to: {self dbMessage darker. underlined};<br>
set: #incompleteUnary for: #SHTextStylerST80 to: {self dbMessage darker. underlined};<br>
set: #undefinedKeyword for: #SHTextStylerST80 to: {self dbInvalid};<br>
set: #undefinedBinary for: #SHTextStylerST80 to: {self dbInvalid};<br>
set: #undefinedUnary for: #SHTextStylerST80 to: {self dbInvalid};<br>
"Delineate the selector (good for new users), and make the method look like a mini-document with a title."<br>
set: #patternKeyword for: #SHTextStylerST80 to: {self dbMessage lighter. {bold. underlined}};<br>
set: #patternBinary for: #SHTextStylerST80 to: {nil. bold};<br>
set: #patternUnary for: #SHTextStylerST80 to: {self dbMessage lighter. {bold. underlined}}; <br>
set: #self for: #SHTextStylerST80 to: {self dbBedrock. bold};<br>
set: #super for: #SHTextStylerST80 to: {self dbBedrock. bold}; <br>
set: #true for: #SHTextStylerST80 to: {self dbBedrock. bold};<br>
set: #false for: #SHTextStylerST80 to: {self dbBedrock. bold};<br>
set: #nil for: #SHTextStylerST80 to: {self dbBedrock. bold};<br>
set: #thisContext for: #SHTextStylerST80 to: {self dbBedrock. bold};<br>
+ set: #return for: #SHTextStylerST80 to: {self dbText. bold};<br>
- set: #return for: #SHTextStylerST80 to: {self dbForeground. bold};<br>
set: #patternArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter. TextEmphasis normal. "darkMap"}; <br>
set: #methodArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter. TextEmphasis normal. "darkMap"};<br>
set: #blockPatternArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter};<br>
set: #blockArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter};<br>
set: #argument for: #SHTextStylerST80 to: {self dbSelection twiceLighter};<br>
set: #blockArgColon for: #SHTextStylerST80 to: {self dbBedrock}; <br>
set: #leftParenthesis for: #SHTextStylerST80 to: {self dbBedrock muchLighter}; <br>
set: #rightParenthesis for: #SHTextStylerST80 to: {self dbBedrock muchLighter}; <br>
set: #leftParenthesis1 for: #SHTextStylerST80 to: {self dbBedrock twiceLighter}; <br>
set: #rightParenthesis1 for: #SHTextStylerST80 to: {self dbBedrock twiceLighter}; <br>
set: #leftParenthesis2 for: #SHTextStylerST80 to: {self dbBedrock}; <br>
set: #rightParenthesis2 for: #SHTextStylerST80 to: {self dbBedrock}; <br>
set: #leftParenthesis3 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; <br>
set: #rightParenthesis3 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; <br>
set: #leftParenthesis4 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; <br>
set: #rightParenthesis4 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; <br>
set: #leftParenthesis5 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; <br>
set: #rightParenthesis5 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; <br>
set: #leftParenthesis6 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; <br>
set: #rightParenthesis6 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; <br>
set: #leftParenthesis7 for: #SHTextStylerST80 to: {Color yellow}; <br>
set: #rightParenthesis7 for: #SHTextStylerST80 to: {Color yellow}; <br>
set: #blockStart for: #SHTextStylerST80 to: {self dbBedrock muchLighter}; <br>
set: #blockEnd for: #SHTextStylerST80 to: {self dbBedrock muchLighter}; <br>
set: #blockStart1 for: #SHTextStylerST80 to: {self dbBedrock twiceLighter}; <br>
set: #blockEnd1 for: #SHTextStylerST80 to: {self dbBedrock twiceLighter}; <br>
set: #blockStart2 for: #SHTextStylerST80 to: {self dbBedrock}; <br>
set: #blockEnd2 for: #SHTextStylerST80 to: {self dbBedrock}; <br>
set: #blockStart3 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; <br>
set: #blockEnd3 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; <br>
set: #blockStart4 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; <br>
set: #blockEnd4 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; <br>
set: #blockStart5 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; <br>
set: #blockEnd5 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; <br>
set: #blockStart6 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; <br>
set: #blockEnd6 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; <br>
set: #blockStart7 for: #SHTextStylerST80 to: {Color yellow}; <br>
set: #blockEnd7 for: #SHTextStylerST80 to: {Color yellow}; <br>
set: #arrayStart for: #SHTextStylerST80 to: {self dbBedrock}; <br>
set: #arrayEnd for: #SHTextStylerST80 to: {self dbBedrock}; <br>
+ set: #arrayStart1 for: #SHTextStylerST80 to: {self dbText}; <br>
+ set: #arrayEnd1 for: #SHTextStylerST80 to: {self dbText}; <br>
+ set: #byteArrayStart for: #SHTextStylerST80 to: {self dbText}; <br>
+ set: #byteArrayEnd for: #SHTextStylerST80 to: {self dbText}; <br>
+ set: #byteArrayStart1 for: #SHTextStylerST80 to: {self dbText}; <br>
+ set: #byteArrayEnd1 for: #SHTextStylerST80 to: {self dbText}; <br>
+ set: #leftBrace for: #SHTextStylerST80 to: {self dbText}; <br>
+ set: #rightBrace for: #SHTextStylerST80 to: {self dbText}; <br>
+ set: #cascadeSeparator for: #SHTextStylerST80 to: {self dbText}; <br>
+ set: #statementSeparator for: #SHTextStylerST80 to: {self dbText}; <br>
+ set: #externalCallType for: #SHTextStylerST80 to: {self dbText}; <br>
+ set: #externalCallTypePointerIndicator for: #SHTextStylerST80 to: {self dbText}; <br>
+ set: #primitiveOrExternalCallStart for: #SHTextStylerST80 to: {self dbText}; <br>
+ set: #primitiveOrExternalCallEnd for: #SHTextStylerST80 to: {self dbText};<br>
- set: #arrayStart1 for: #SHTextStylerST80 to: {self dbForeground}; <br>
- set: #arrayEnd1 for: #SHTextStylerST80 to: {self dbForeground}; <br>
- set: #byteArrayStart for: #SHTextStylerST80 to: {self dbForeground}; <br>
- set: #byteArrayEnd for: #SHTextStylerST80 to: {self dbForeground}; <br>
- set: #byteArrayStart1 for: #SHTextStylerST80 to: {self dbForeground}; <br>
- set: #byteArrayEnd1 for: #SHTextStylerST80 to: {self dbForeground}; <br>
- set: #leftBrace for: #SHTextStylerST80 to: {self dbForeground}; <br>
- set: #rightBrace for: #SHTextStylerST80 to: {self dbForeground}; <br>
- set: #cascadeSeparator for: #SHTextStylerST80 to: {self dbForeground}; <br>
- set: #statementSeparator for: #SHTextStylerST80 to: {self dbForeground}; <br>
- set: #externalCallType for: #SHTextStylerST80 to: {self dbForeground}; <br>
- set: #externalCallTypePointerIndicator for: #SHTextStylerST80 to: {self dbForeground}; <br>
- set: #primitiveOrExternalCallStart for: #SHTextStylerST80 to: {self dbForeground}; <br>
- set: #primitiveOrExternalCallEnd for: #SHTextStylerST80 to: {self dbForeground};<br>
set: #methodTempBar for: #SHTextStylerST80 to: {self dbBedrock};<br>
set: #blockTempBar for: #SHTextStylerST80 to: {self dbBedrock};<br>
set: #blockArgsBar for: #SHTextStylerST80 to: {self dbBedrock};<br>
set: #primitive for: #SHTextStylerST80 to: {self dbGreen lighter. bold};<br>
set: #pragmaKeyword for: #SHTextStylerST80 to: {self dbGreen. bold};<br>
set: #pragmaUnary for: #SHTextStylerST80 to: {self dbGreen. bold};<br>
set: #pragmaBinary for: #SHTextStylerST80 to: {self dbGreen. bold}; <br>
set: #externalFunctionCallingConvention for: #SHTextStylerST80 to: {self dbGreen. bold}; <br>
set: #module for: #SHTextStylerST80 to: {self dbGreen. bold};<br>
set: #blockTempVar for: #SHTextStylerST80 to: {self dbLocal. italic};<br>
set: #blockPatternTempVar for: #SHTextStylerST80 to: {self dbLocal. italic};<br>
set: #instVar for: #SHTextStylerST80 to: {self dbYellow. normal };<br>
set: #workspaceVar for: #SHTextStylerST80 to: {self dbLocal. italic};<br>
set: #undefinedIdentifier for: #SHTextStylerST80 to: {self dbInvalid};<br>
set: #incompleteIdentifier for: #SHTextStylerST80 to: {self dbGray. underlined};<br>
set: #tempVar for: #SHTextStylerST80 to: {self dbLocal. italic};<br>
set: #patternTempVar for: #SHTextStylerST80 to: {self dbLocal. italic};<br>
set: #poolConstant for: #SHTextStylerST80 to: {self dbConstant };<br>
set: #classVar for: #SHTextStylerST80 to: {self dbReference};<br>
set: #globalVar for: #SHTextStylerST80 to: {self dbClass. normal}.<br>
"And the text differ"<br>
aUserInterfaceTheme <br>
set: #insertTextAttributes for: #TextDiffBuilder to: { TextColor color: self dbRed };<br>
set: #removeTextAttributes for: #TextDiffBuilder to: { TextEmphasis struckOut. TextColor color: self dbBlue };<br>
set: #normalTextAttributes for: #TextDiffBuilder to: { TextEmphasis normal }.!<br>
<br>
Item was changed:<br>
----- Method: CommunityTheme class>>addDarkWindowColors: (in category 'instance creation') -----<br>
addDarkWindowColors: aUserInterfaceTheme<br>
"self createDark apply."<br>
aUserInterfaceTheme<br>
set: #uniformWindowColor for: #Model to: Color darkGray;<br>
<br>
set: #unfocusedWindowColorModifier for: #SystemWindow to: [ [:color | color darker] ];<br>
+ set: #unfocusedLabelColor for: #SystemWindow to: self dbText darker;<br>
+ set: #focusedLabelColor for: #SystemWindow to: self dbText;<br>
- set: #unfocusedLabelColor for: #SystemWindow to: Color veryLightGray;<br>
- set: #focusedLabelColor for: #SystemWindow to: Color white;<br>
<br>
set: #customWindowColor for: #Browser to: self dbBlue;<br>
set: #customWindowColor for: #ChangeList to: self dbBlue;<br>
set: #customWindowColor for: #ChangeSorter to: self dbBlue;<br>
set: #customWindowColor for: #ChatNotes to: self dbPurple twiceDarker;<br>
set: #customWindowColor for: #ClassCommentVersionsBrowser to: self dbPurple twiceDarker;<br>
set: #customWindowColor for: #Debugger to: self dbRed;<br>
set: #customWindowColor for: #DualChangeSorter to: self dbOrange twiceDarker;<br>
set: #customWindowColor for: #FileContentsBrowser to: self dbGray;<br>
set: #customWindowColor for: #FileList to: self dbGray;<br>
set: #customWindowColor for: #Inspector to: self dbYellow duller;<br>
set: #customWindowColor for: #InstanceBrowser to: self dbYellow duller;<br>
set: #customWindowColor for: #Lexicon to: self dbGreen;<br>
set: #customWindowColor for: #MCTool to: self dbOrange twiceDarker;<br>
set: #customWindowColor for: #MessageNames to: self dbGreen;<br>
set: #customWindowColor for: #MessageSet to: self dbGreen;<br>
set: #customWindowColor for: #ObjectExplorer to: self dbYellow duller;<br>
set: #customWindowColor for: #PackagePaneBrowser to: self dbBlue;<br>
set: #customWindowColor for: #PluggableFileList to: self dbGray;<br>
set: #customWindowColor for: #PreferenceBrowser to: self dbBlue;<br>
set: #customWindowColor for: #ProcesBrowser to: self dbAqua;<br>
set: #customWindowColor for: #SMLoader to: self dbOrange twiceDarker;<br>
set: #customWindowColor for: #SMLoaderPlus to: self dbOrange twiceDarker;<br>
set: #customWindowColor for: #SMReleaseBrowser to: self dbOrange twiceDarker;<br>
set: #customWindowColor for: #ScriptingDomain to: self dbYellow duller;<br>
set: #customWindowColor for: #SelectorBrowser to: self dbBlue;<br>
set: #customWindowColor for: #StringHolder to: self dbGray;<br>
set: #customWindowColor for: #TestRunner to: self dbPink darker;<br>
set: #customWindowColor for: #TranscriptStream to: self dbGray;<br>
set: #customWindowColor for: #VersionsBrowser to: self dbPurple twiceDarker;<br>
set: #customWindowColor for: #Workspace to: self dbPink darker.!<br>
<br>
Item was changed:<br>
----- Method: CommunityTheme class>>dbBedrock (in category 'colors by purpose') -----<br>
dbBedrock<br>
"Basic syntactical matter which users cannot change."<br>
+ ^ self dbText!<br>
- ^ self dbForeground!<br>
<br>
Item was added:<br>
+ ----- Method: CommunityTheme class>>dbText (in category 'colors by purpose') -----<br>
+ dbText<br>
+ "Not too bright."<br>
+ ^Color r: 0.764 g: 0.776 b: 0.768!<br>
<br>
<br>
</blockquote></div>
</blockquote></div>