<div id="__MailbirdStyleContent" style="font-size: 12pt;font-family: calibri;color: #000000">
<img src="cid:5643c22a-8f6a-4002-b8e3-75422fa621de" width="auto"></img><div class="mb_sig"></div>
<blockquote class="history_container" type="cite" style="border-left-style: solid;border-width: 1px;margin-top: 20px;margin-left: 0px;padding-left: 10px;min-width: 500px">
<p style="color: #AAAAAA; margin-top: 10px;">Am 03.04.2018 08:07:45 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p>Marcel Taeumel uploaded a new version of System to project The Trunk:<br>http://source.squeak.org/trunk/System-mt.1010.mcz<br><br>==================== Summary ====================<br><br>Name: System-mt.1010<br>Author: mt<br>Time: 3 April 2018, 8:07:14.69082 am<br>UUID: 322ad26c-26ac-0046-8e31-9db174de998e<br>Ancestors: System-cmm.1009<br><br>Adds an alternate gray-based dark UI theme.<br><br>=============== Diff against System-cmm.1009 ===============<br><br>Item was added:<br>+ UserInterfaceTheme subclass: #TrimTheme<br>+ instanceVariableNames: ''<br>+ classVariableNames: ''<br>+ poolDictionaries: ''<br>+ category: 'System-Support'!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>addButtons: (in category 'instance creation') -----<br>+ addButtons: theme<br>+ <br>+ theme<br>+ set: #borderColor for: #PluggableButtonMorph to: self gray102;<br>+ set: #borderWidth for: #PluggableButtonMorph to: 1;<br>+ set: #borderStyle for: #PluggableButtonMorph to: BorderStyle default;<br>+ set: #color for: #PluggableButtonMorph to: self gray76;<br>+ <br>+ set: #textColor for: #PluggableButtonMorph to: self white;<br>+ <br>+ set: #selectionModifier for: #PluggableButtonMorph to: [ [:c | self gray39] ];<br>+ set: #hoverModifier for: #PluggableButtonMorph to: [ [:c | self gray51] ];<br>+ set: #feedbackModifier for: #PluggableButtonMorph to: [ [:c | self gray39] ].<br>+ <br>+ "And the plus-version."<br>+ theme<br>+ set: #disabledColor for: #PluggableButtonMorphPlus to: Color transparent;<br>+ set: #disabledTextColor for: #PluggableButtonMorphPlus to: self gray128.!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>addDialogs: (in category 'instance creation') -----<br>+ addDialogs: theme<br>+ "self create apply."<br>+ <br>+ theme<br>+ set: #borderColor for: #DialogWindow to: self gray59;<br>+ set: #borderWidth for: #DialogWindow to: 0;<br>+ set: #borderStyle for: #DialogWindow to: BorderStyle default;<br>+ set: #color for: #DialogWindow to: self gray64;<br>+ <br>+ set: #titleBorderColor for: #DialogWindow to: self gray59;<br>+ set: #titleBorderWidth for: #DialogWindow to: 0;<br>+ set: #titleBorderStyle for: #DialogWindow to: BorderStyle default;<br>+ set: #titleColor for: #DialogWindow to: self gray51;<br>+ set: #titleTextColor for: #DialogWindow to: self white;<br>+ <br>+ set: #textColor for: #DialogWindow to: self white;<br>+ <br>+ set: #okColor for: #DialogWindow to: self green;<br>+ set: #cancelColor for: #DialogWindow to: self red;<br>+ set: #buttonColor for: #DialogWindow to: self gray59;<br>+ set: #selectionModifier for: #DialogWindow to: [ [:c | self blue ] ].<br>+ <br>+ "The List Chooser is a dialog, too."<br>+ theme<br>+ set: #addColor for: #ListChooser to: self yellow;<br>+ set: #disabledColor for: #ListChooser to: Color transparent.<br>+ <br>+ <br>+ "And the system progress bar."<br>+ theme <br>+ set: #borderColor for: #SystemProgressBarMorph to: Color transparent;<br>+ set: #borderWidth for: #SystemProgressBarMorph to: 0;<br>+ set: #borderStyle for: #SystemProgressBarMorph to: BorderStyle default;<br>+ set: #color for: #SystemProgressBarMorph to: self gray64;<br>+ set: #barColor for: #SystemProgressBarMorph to: self blue.<br>+ <br>+ "And the balloon morphs."<br>+ theme<br>+ set: #borderColor for: #NewBalloonMorph to: self gray168;<br>+ set: #borderWidth for: #NewBalloonMorph to: 1;<br>+ set: #color for: #NewBalloonMorph to: self gray102;<br>+ set: #textColor for: #NewBalloonMorph to: self white.!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>addFonts: (in category 'instance creation') -----<br>+ addFonts: theme<br>+ <br>+ "Set-up fonts."<br>+ theme<br>+ set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7);<br>+ set: #standardButtonFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7);<br>+ set: #standardCodeFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9);<br>+ set: #standardFlapFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode);<br>+ set: #haloLabelFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9);<br>+ set: #standardListFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9);<br>+ set: #standardMenuFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9);<br>+ set: #standardSystemFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9);<br>+ set: #windowTitleFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9).!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>addMenusAndDockingBars: (in category 'instance creation') -----<br>+ addMenusAndDockingBars: theme<br>+ <br>+ theme<br>+ set: #borderColor for: #MenuMorph to: self gray51;<br>+ set: #borderWidth for: #MenuMorph to: 1;<br>+ set: #borderStyle for: #MenuMorph to: BorderStyle default;<br>+ set: #color for: #MenuMorph to: self gray27;<br>+ <br>+ set: #titleBorderColor for: #MenuMorph to: (Color r: 0.6 g: 0.7 b: 1);<br>+ set: #titleBorderWidth for: #MenuMorph to: 0;<br>+ set: #titleBorderStyle for: #MenuMorph to: BorderStyle default;<br>+ set: #titleColor for: #MenuMorph to: Color transparent;<br>+ set: #titleTextColor for: #MenuMorph to: self white;<br>+ <br>+ set: #lineColor for: #MenuMorph to: self gray51;<br>+ set: #lineStyle for: #MenuMorph to: BorderStyle simple;<br>+ set: #lineWidth for: #MenuMorph to: 1.<br>+ <br>+ theme<br>+ set: #textColor for: #MenuItemMorph to: self white;<br>+ set: #disabledTextColor for: #MenuItemMorph to: self gray128;<br>+ set: #selectionColor for: #MenuItemMorph to: self gray102;<br>+ set: #selectionTextColor for: #MenuItemMorph to: self white.<br>+ <br>+ "The world main docking bar."<br>+ theme<br>+ set: #logoColor for: #TheWorldMainDockingBar to: self white;<br>+ set: #selectionLogoColor for: #TheWorldMainDockingBar to: self white.!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>addScrollables: (in category 'instance creation') -----<br>+ addScrollables: theme<br>+ "self create apply"<br>+ <br>+ "Sliders"<br>+ theme<br>+ set: #borderColor for: #Slider to: self gray76;<br>+ set: #borderWidth for: #Slider to: 1;<br>+ set: #color for: #Slider to: self gray61;<br>+ set: #thumbBorderColor for: #Slider to: self gray61;<br>+ set: #thumbBorderWidth for: #Slider to: 1;<br>+ set: #thumbColor for: #Slider to: self gray128;<br>+ set: #thumbShadowModifier for: #Slider to: [ [:c | c alpha: 0.7] ].<br>+ <br>+ "Scroll bars"<br>+ theme<br>+ set: #thumbBorderWidth for: #ScrollBar to: 1;<br>+ set: #thumbColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: 0.2] ];<br>+ "set: #pagingAreaColorModifier for: #ScrollBar to: [ [:c | self gray51] ];"<br>+ set: #borderColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: 0.2] ].<br>+ <br>+ "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets."<br>+ theme<br>+ set: #borderColor for: #ScrollPane to: self gray76;<br>+ set: #borderWidth for: #ScrollPane to: 1;<br>+ set: #borderStyle for: #ScrollPane to: BorderStyle default;<br>+ set: #color for: #ScrollPane to: self gray51.<br>+ <br>+ "List widgets"<br>+ theme<br>+ set: #textColor for: #PluggableListMorph to: self white;<br>+ set: #selectionColor for: #PluggableListMorph to: self blue;<br>+ derive: #multiSelectionColor for: #PluggableListMorph from: #PluggableListMorph at: #selectionColor do: [:c | c lighter];<br>+ set: #selectionTextColor for: #PluggableListMorph to: self white;<br>+ set: #filterColor for: #PluggableListMorph to: self orange;<br>+ set: #filterTextColor for: #PluggableListMorph to: self white;<br>+ set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | c alpha: 0.3] ];<br>+ set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c darker alpha: 0.3] ].<br>+ <br>+ "Tree widgets"<br>+ theme <br>+ set: #higlightTextColor for: #SimpleHierarchicalListMorph to: self red;<br>+ set: #lineColor for: #SimpleHierarchicalListMorph to: self gray168.<br>+ <br>+ "Text widgets"<br>+ theme<br>+ set: #textColor for: #PluggableTextMorph to: self white;<br>+ set: #caretColor for: #PluggableTextMorph to: self white;<br>+ set: #selectionColor for: #PluggableTextMorph to: (self blue alpha: 0.4);<br>+ set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | self blue alpha: 0.3] ];<br>+ set: #adornmentReadOnly for: #PluggableTextMorph to: self black;<br>+ set: #adornmentRefuse for: #PluggableTextMorph to: self blue;<br>+ set: #adornmentConflict for: #PluggableTextMorph to: self red;<br>+ set: #adornmentDiff for: #PluggableTextMorph to: self green;<br>+ set: #adornmentNormalEdit for: #PluggableTextMorph to: self orange;<br>+ set: #adornmentDiffEdit for: #PluggableTextMorph to: self yellow;<br>+ set: #frameAdornmentWidth for: #PluggableTextMorph to: 1.<br>+ theme<br>+ set: #balloonTextColor for: #PluggableTextMorphPlus to: self gray102.!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>addSyntaxHighlighting: (in category 'instance creation') -----<br>+ addSyntaxHighlighting: theme<br>+ "self createDark apply."<br>+ <br>+ theme<br>+ set: #color for: #TextAction to: self blue;<br>+ <br>+ set: #default for: #SHTextStylerST80 to: {self white};<br>+ set: #invalid for: #SHTextStylerST80 to: {self red};<br>+ set: #excessCode for: #SHTextStylerST80 to: {self red};<br>+ set: #comment for: #SHTextStylerST80 to: {self cyan};<br>+ set: #unfinishedComment for: #SHTextStylerST80 to: {self red. TextEmphasis italic};<br>+ set: #'$' for: #SHTextStylerST80 to: {self yellow};<br>+ set: #character for: #SHTextStylerST80 to: {self yellow};<br>+ set: #integer for: #SHTextStylerST80 to: {self yellow};<br>+ set: #number for: #SHTextStylerST80 to: {self yellow}; <br>+ set: #- for: #SHTextStylerST80 to: {self yellow};<br>+ set: #symbol for: #SHTextStylerST80 to: {self orange}; <br>+ set: #stringSymbol for: #SHTextStylerST80 to: {self orange}; <br>+ set: #literalArray for: #SHTextStylerST80 to: {self orange};<br>+ set: #string for: #SHTextStylerST80 to: {self magenta. TextEmphasis normal};<br>+ set: #unfinishedString for: #SHTextStylerST80 to: {self red. TextEmphasis normal};<br>+ set: #assignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold};<br>+ set: #ansiAssignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold};<br>+ set: #literal for: #SHTextStylerST80 to: {nil. TextEmphasis italic};<br>+ set: #keyword for: #SHTextStylerST80 to: {self blue};<br>+ set: #binary for: #SHTextStylerST80 to: {self blue}; <br>+ set: #unary for: #SHTextStylerST80 to: {self blue};<br>+ set: #incompleteKeyword for: #SHTextStylerST80 to: {self white. TextEmphasis underlined};<br>+ set: #incompleteBinary for: #SHTextStylerST80 to: {self white. TextEmphasis underlined}; <br>+ set: #incompleteUnary for: #SHTextStylerST80 to: {self white. TextEmphasis underlined};<br>+ set: #undefinedKeyword for: #SHTextStylerST80 to: {self red};<br>+ set: #undefinedBinary for: #SHTextStylerST80 to: {self red}; <br>+ set: #undefinedUnary for: #SHTextStylerST80 to: {self red}; <br>+ set: #patternKeyword for: #SHTextStylerST80 to: {nil};<br>+ set: #patternBinary for: #SHTextStylerST80 to: {nil};<br>+ set: #patternUnary for: #SHTextStylerST80 to: {nil}; <br>+ set: #self for: #SHTextStylerST80 to: {self gray168};<br>+ set: #super for: #SHTextStylerST80 to: {self gray168}; <br>+ set: #true for: #SHTextStylerST80 to: {self red};<br>+ set: #false for: #SHTextStylerST80 to: {self red};<br>+ set: #nil for: #SHTextStylerST80 to: {self red};<br>+ set: #thisContext for: #SHTextStylerST80 to: {self red};<br>+ set: #return for: #SHTextStylerST80 to: {self red};<br>+ set: #patternArg for: #SHTextStylerST80 to: {self gray168}; <br>+ set: #methodArg for: #SHTextStylerST80 to: {self gray168};<br>+ set: #blockPatternArg for: #SHTextStylerST80 to: {self gray168};<br>+ set: #blockArg for: #SHTextStylerST80 to: {self gray168};<br>+ set: #argument for: #SHTextStylerST80 to: {self gray168};<br>+ set: #blockArgColon for: #SHTextStylerST80 to: {self white}; <br>+ set: #leftParenthesis for: #SHTextStylerST80 to: {self white}; <br>+ set: #rightParenthesis for: #SHTextStylerST80 to: {self white}; <br>+ set: #leftParenthesis1 for: #SHTextStylerST80 to: {self gray168}; <br>+ set: #rightParenthesis1 for: #SHTextStylerST80 to: {self gray168}; <br>+ set: #leftParenthesis2 for: #SHTextStylerST80 to: {self gray128}; <br>+ set: #rightParenthesis2 for: #SHTextStylerST80 to: {self gray128}; <br>+ set: #leftParenthesis3 for: #SHTextStylerST80 to: {self gray102}; <br>+ set: #rightParenthesis3 for: #SHTextStylerST80 to: {self gray102}; <br>+ set: #leftParenthesis4 for: #SHTextStylerST80 to: {self gray76}; <br>+ set: #rightParenthesis4 for: #SHTextStylerST80 to: {self gray76}; <br>+ set: #leftParenthesis5 for: #SHTextStylerST80 to: {self gray102}; <br>+ set: #rightParenthesis5 for: #SHTextStylerST80 to: {self gray102}; <br>+ set: #leftParenthesis6 for: #SHTextStylerST80 to: {self gray128}; <br>+ set: #rightParenthesis6 for: #SHTextStylerST80 to: {self gray128}; <br>+ set: #leftParenthesis7 for: #SHTextStylerST80 to: {self gray168}; <br>+ set: #rightParenthesis7 for: #SHTextStylerST80 to: {self gray168}; <br>+ set: #blockStart for: #SHTextStylerST80 to: {self white}; <br>+ set: #blockEnd for: #SHTextStylerST80 to: {self white}; <br>+ set: #blockStart1 for: #SHTextStylerST80 to: {self gray168}; <br>+ set: #blockEnd1 for: #SHTextStylerST80 to: {self gray168}; <br>+ set: #blockStart2 for: #SHTextStylerST80 to: {self gray128}; <br>+ set: #blockEnd2 for: #SHTextStylerST80 to: {self gray128}; <br>+ set: #blockStart3 for: #SHTextStylerST80 to: {self gray102}; <br>+ set: #blockEnd3 for: #SHTextStylerST80 to: {self gray102}; <br>+ set: #blockStart4 for: #SHTextStylerST80 to: {self gray76}; <br>+ set: #blockEnd4 for: #SHTextStylerST80 to: {self gray76}; <br>+ set: #blockStart5 for: #SHTextStylerST80 to: {self gray102}; <br>+ set: #blockEnd5 for: #SHTextStylerST80 to: {self gray102}; <br>+ set: #blockStart6 for: #SHTextStylerST80 to: {self gray128}; <br>+ set: #blockEnd6 for: #SHTextStylerST80 to: {self gray128}; <br>+ set: #blockStart7 for: #SHTextStylerST80 to: {self gray168}; <br>+ set: #blockEnd7 for: #SHTextStylerST80 to: {self gray168}; <br>+ set: #arrayStart for: #SHTextStylerST80 to: {self white}; <br>+ set: #arrayEnd for: #SHTextStylerST80 to: {self white}; <br>+ set: #arrayStart1 for: #SHTextStylerST80 to: {self white}; <br>+ set: #arrayEnd1 for: #SHTextStylerST80 to: {self white}; <br>+ set: #byteArrayStart for: #SHTextStylerST80 to: {self white}; <br>+ set: #byteArrayEnd for: #SHTextStylerST80 to: {self white}; <br>+ set: #byteArrayStart1 for: #SHTextStylerST80 to: {self white}; <br>+ set: #byteArrayEnd1 for: #SHTextStylerST80 to: {self white}; <br>+ set: #leftBrace for: #SHTextStylerST80 to: {self white}; <br>+ set: #rightBrace for: #SHTextStylerST80 to: {self white}; <br>+ set: #cascadeSeparator for: #SHTextStylerST80 to: {self white}; <br>+ set: #statementSeparator for: #SHTextStylerST80 to: {self white}; <br>+ set: #externalCallType for: #SHTextStylerST80 to: {self white}; <br>+ set: #externalCallTypePointerIndicator for: #SHTextStylerST80 to: {self white}; <br>+ set: #primitiveOrExternalCallStart for: #SHTextStylerST80 to: {self white}; <br>+ set: #primitiveOrExternalCallEnd for: #SHTextStylerST80 to: {self white};<br>+ set: #methodTempBar for: #SHTextStylerST80 to: {self white}; <br>+ set: #blockTempBar for: #SHTextStylerST80 to: {self white};<br>+ set: #blockArgsBar for: #SHTextStylerST80 to: {self white};<br>+ set: #primitive for: #SHTextStylerST80 to: {self green. TextEmphasis bold};<br>+ set: #pragmaKeyword for: #SHTextStylerST80 to: {self green. TextEmphasis bold};<br>+ set: #pragmaUnary for: #SHTextStylerST80 to: {self green. TextEmphasis bold};<br>+ set: #pragmaBinary for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; <br>+ set: #externalFunctionCallingConvention for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; <br>+ set: #module for: #SHTextStylerST80 to: {self green. TextEmphasis bold};<br>+ set: #blockTempVar for: #SHTextStylerST80 to: {self white};<br>+ set: #blockPatternTempVar for: #SHTextStylerST80 to: {self white};<br>+ set: #instVar for: #SHTextStylerST80 to: {self white};<br>+ set: #workspaceVar for: #SHTextStylerST80 to: {self white};<br>+ set: #undefinedIdentifier for: #SHTextStylerST80 to: {self red};<br>+ set: #incompleteIdentifier for: #SHTextStylerST80 to: {self white. {TextEmphasis italic. TextEmphasis underlined}};<br>+ set: #tempVar for: #SHTextStylerST80 to: {self white};<br>+ set: #patternTempVar for: #SHTextStylerST80 to: {self white};<br>+ set: #poolConstant for: #SHTextStylerST80 to: {self white};<br>+ set: #classVar for: #SHTextStylerST80 to: {self white};<br>+ set: #globalVar for: #SHTextStylerST80 to: {self white}.<br>+ <br>+ "And the text differ"<br>+ theme <br>+ set: #insertTextAttributes for: #TextDiffBuilder to: { TextColor color: self green };<br>+ set: #removeTextAttributes for: #TextDiffBuilder to: { TextEmphasis struckOut. TextColor color: self red };<br>+ set: #normalTextAttributes for: #TextDiffBuilder to: { TextEmphasis normal }.!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>addToolColors: (in category 'instance creation') -----<br>+ addToolColors: theme<br>+ "Tool-specific colors."<br>+ <br>+ "SUnit's TestRunner."<br>+ theme <br>+ set: #failureColor for: #TestRunner to: self yellow;<br>+ set: #errorColor for: #TestRunner to: self red;<br>+ set: #passColor for: #TestRunner to: self green.<br>+ <br>+ "Monticello Tools."<br>+ theme<br>+ set: #revertedOperationAttributes for: #MCOperationsBrowser to: {TextEmphasis struckOut};<br>+ set: #ignoredOperationAttributes for: #MCOperationsBrowser to: {TextColor color: self gray128}.<br>+ <br>+ "Browser."<br>+ theme set: #noClassCommentColor for: #Browser to: self red.!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>addWindowColors: (in category 'instance creation') -----<br>+ addWindowColors: theme<br>+ <br>+ | windowColorBrightnessAdjustment |<br>+ windowColorBrightnessAdjustment := -0.35.<br>+ theme <br>+ set: #titleFont for: #SystemWindow to: [Preferences windowTitleFont];<br>+ set: #borderColorModifier for: #SystemWindow to: [ [:c | c adjustBrightness: -0.1] ];<br>+ set: #borderColorModifier for: #ScrollPane to: [ [:c | c adjustBrightness: 0.1] ];<br>+ set: #borderWidth for: #SystemWindow to: 1;<br>+ <br>+ set: #uniformWindowColor for: #Model to: self gray76;<br>+ <br>+ set: #unfocusedWindowColorModifier for: #SystemWindow to: [ [:color | color alphaMixed: 0.5 with: self gray40] ];<br>+ set: #unfocusedLabelColor for: #SystemWindow to: self gray168;<br>+ set: #focusedLabelColor for: #SystemWindow to: Color white;<br>+ <br>+ set: #customWindowColor for: #Browser to: ((Color r: 0.764 g: 0.9 b: 0.63) adjustBrightness: windowColorBrightnessAdjustment);<br>+ set: #customWindowColor for: #ChangeList to: ((Color r: 0.719 g: 0.9 b: 0.9) adjustBrightness: windowColorBrightnessAdjustment);<br>+ set: #customWindowColor for: #ChangeSorter to: ((Color r: 0.719 g: 0.9 b: 0.9) adjustBrightness: windowColorBrightnessAdjustment);<br>+ set: #customWindowColor for: #ChatNotes to: ((Color r: 1.0 g: 0.7 b: 0.8) adjustBrightness: windowColorBrightnessAdjustment);<br>+ set: #customWindowColor for: #ClassCommentVersionsBrowser to: ((Color r: 0.753 g: 0.677 b: 0.9) adjustBrightness: windowColorBrightnessAdjustment);<br>+ set: #customWindowColor for: #Debugger to: ((Color r: 0.9 g: 0.719 b: 0.719) adjustBrightness: windowColorBrightnessAdjustment);<br>+ set: #customWindowColor for: #DualChangeSorter to: ((Color r: 0.719 g: 0.9 b: 0.9) adjustBrightness: windowColorBrightnessAdjustment);<br>+ set: #customWindowColor for: #FileContentsBrowser to: ((Color r: 0.7 g: 0.7 b: 0.508) adjustBrightness: windowColorBrightnessAdjustment);<br>+ set: #customWindowColor for: #FileList to: ((Color r: 0.65 g: 0.65 b: 0.65) adjustBrightness: windowColorBrightnessAdjustment);<br>+ set: #customWindowColor for: #InstanceBrowser to: ((Color r: 0.726 g: 0.9 b: 0.9) adjustBrightness: windowColorBrightnessAdjustment);<br>+ set: #customWindowColor for: #Lexicon to: ((Color r: 0.79 g: 0.9 b: 0.79) adjustBrightness: windowColorBrightnessAdjustment);<br>+ set: #customWindowColor for: #MCTool to: ((Color r: 0.65 g: 0.691 b: 0.876) adjustBrightness: windowColorBrightnessAdjustment);<br>+ set: #customWindowColor for: #MessageNames to: ((Color r: 0.639 g: 0.9 b: 0.497) adjustBrightness: windowColorBrightnessAdjustment);<br>+ set: #customWindowColor for: #MessageSet to: ((Color r: 0.719 g: 0.9 b: 0.9) adjustBrightness: windowColorBrightnessAdjustment);<br>+ set: #customWindowColor for: #PackagePaneBrowser to: ((Color r: 0.9 g: 0.9 b: 0.63) adjustBrightness: windowColorBrightnessAdjustment);<br>+ set: #customWindowColor for: #PluggableFileList to: (Color lightYellow adjustBrightness: windowColorBrightnessAdjustment);<br>+ set: #customWindowColor for: #PreferenceBrowser to: ((Color r: 0.671 g: 0.9 b: 0.9) adjustBrightness: windowColorBrightnessAdjustment);<br>+ set: #customWindowColor for: #SMLoader to: ((Color r: 0.801 g: 0.801 b: 0.614) adjustBrightness: windowColorBrightnessAdjustment);<br>+ set: #customWindowColor for: #SMLoaderPlus to: ((Color r: 0.801 g: 0.801 b: 0.614) adjustBrightness: windowColorBrightnessAdjustment);<br>+ set: #customWindowColor for: #SMReleaseBrowser to: ((Color r: 0.801 g: 0.801 b: 0.614) adjustBrightness: windowColorBrightnessAdjustment);<br>+ set: #customWindowColor for: #ScriptingDomain to: ((Color r: 0.91 g: 0.91 b: 0.91) adjustBrightness: windowColorBrightnessAdjustment);<br>+ set: #customWindowColor for: #SelectorBrowser to: ((Color r: 0.45 g: 0.9 b: 0.9) adjustBrightness: windowColorBrightnessAdjustment);<br>+ set: #customWindowColor for: #StringHolder to: ((Color r: 0.9 g: 0.9 b: 0.719) adjustBrightness: windowColorBrightnessAdjustment);<br>+ set: #customWindowColor for: #TestRunner to: ((Color r: 0.9 g: 0.576 b: 0.09) adjustBrightness: windowColorBrightnessAdjustment);<br>+ set: #customWindowColor for: #TranscriptStream to: ((Color r: 0.9 g: 0.75 b: 0.45) adjustBrightness: windowColorBrightnessAdjustment);<br>+ set: #customWindowColor for: #VersionsBrowser to: ((Color r: 0.782 g: 0.677 b: 0.9) adjustBrightness: windowColorBrightnessAdjustment).!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>backgroundForm (in category 'instance creation') -----<br>+ backgroundForm<br>+ <br>+ | ref |<br>+ ref := self gray39.<br>+ <br>+ ^ (SqueakTheme linenblue asFormOfDepth: 32) collectColors: [:c | <br>+ Color<br>+ h:ref hue<br>+ s: ref saturation<br>+ v: c brightness - 0.12<br>+ alpha: c alpha]!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>black (in category 'colors') -----<br>+ black<br>+ <br>+ ^ self gray27!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>blue (in category 'colors') -----<br>+ blue<br>+ <br>+ ^ Color r: 94 / 255 g: 140 / 255 b: 204 / 255!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>create (in category 'instance creation') -----<br>+ create<br>+ "doIt: [self create apply.]"<br>+ <br>+ | themeName |<br>+ themeName := 'Trim (dark)'.<br>+ ^ (self named: themeName) in: [:theme |<br>+ theme merge: (self named: 'Squeak') overwrite: true.<br>+ theme name: themeName.<br>+ <br>+ "General morph stuff."<br>+ theme<br>+ set: #keyboardFocusColor for: #Morph to: self blue;<br>+ set: #keyboardFocusWidth for: #Morph to: 2.<br>+ <br>+ theme set: #background for: #MorphicProject to: self backgroundForm.<br>+ <br>+ self addFonts: theme.<br>+ self addWindowColors: theme.<br>+ self addSyntaxHighlighting: theme.<br>+ self addMenusAndDockingBars: theme.<br>+ self addDialogs: theme.<br>+ self addButtons: theme.<br>+ self addScrollables: theme.<br>+ self addToolColors: theme.<br>+ <br>+ theme]!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>cyan (in category 'colors') -----<br>+ cyan<br>+ <br>+ ^ Color fromString: '#2aa198'!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>gray102 (in category 'colors - gray') -----<br>+ gray102<br>+ <br>+ ^ Color gray: 102 / 255!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>gray128 (in category 'colors - gray') -----<br>+ gray128<br>+ <br>+ ^ Color gray: 128 / 255!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>gray168 (in category 'colors - gray') -----<br>+ gray168<br>+ <br>+ ^ Color gray: 168 / 255!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>gray27 (in category 'colors - gray') -----<br>+ gray27<br>+ <br>+ ^ Color gray: 27 / 255!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>gray34 (in category 'colors - gray') -----<br>+ gray34<br>+ <br>+ ^ Color gray: 34 / 255!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>gray39 (in category 'colors - gray') -----<br>+ gray39<br>+ <br>+ ^ Color gray: 39 / 255!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>gray40 (in category 'colors - gray') -----<br>+ gray40<br>+ <br>+ ^ Color gray: 40 / 255!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>gray51 (in category 'colors - gray') -----<br>+ gray51<br>+ <br>+ ^ Color gray: 51 / 255!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>gray59 (in category 'colors - gray') -----<br>+ gray59<br>+ <br>+ ^ Color gray: 59 / 255!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>gray61 (in category 'colors - gray') -----<br>+ gray61<br>+ <br>+ ^ Color gray: 61 / 255!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>gray64 (in category 'colors - gray') -----<br>+ gray64<br>+ <br>+ ^ Color gray: 64 / 255!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>gray76 (in category 'colors - gray') -----<br>+ gray76<br>+ <br>+ ^ Color gray: 76 / 255!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>green (in category 'colors') -----<br>+ green<br>+ <br>+ ^ Color fromString: '#859900'!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>magenta (in category 'colors') -----<br>+ magenta<br>+ <br>+ ^ (Color r: 0.917 g: 0.317 b: 0.607)!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>orange (in category 'colors') -----<br>+ orange<br>+ <br>+ ^ (Color r: 0.886 g: 0.383 b: 0.175)!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>red (in category 'colors') -----<br>+ red<br>+ <br>+ ^ (Color r: 0.952 g: 0.3 b: 0.288)!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>violet (in category 'colors') -----<br>+ violet<br>+ <br>+ ^ Color fromString: '#6c71c4'!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>white (in category 'colors') -----<br>+ white<br>+ <br>+ ^ Color gray: 240 / 255!<br><br>Item was added:<br>+ ----- Method: TrimTheme class>>yellow (in category 'colors') -----<br>+ yellow<br>+ <br>+ ^ Color fromString: '#b58900'!<br><br>Item was changed:<br> ----- Method: UserInterfaceTheme class>>cleanUp: (in category 'initialize-release') -----<br> cleanUp: aggressive<br> <br> aggressive ifTrue: [<br> All := nil.<br> SqueakTheme create; createDuller.<br> SolarizedTheme createDark; createLight.<br> MonokaiTheme createDark.<br>+ CommunityTheme createDark.<br>+ TrimTheme create].!<br>- CommunityTheme createDark].!<br><br><br>
</blockquote></div>