[Pkg] The Trunk: System-mt.855.mcz
commits at source.squeak.org
commits at source.squeak.org
Sun Jul 31 09:41:24 UTC 2016
Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.855.mcz
==================== Summary ====================
Name: System-mt.855
Author: mt
Time: 31 July 2016, 11:40:58.296418 am
UUID: 287165d6-2a28-bb42-be40-fc47bdd29a36
Ancestors: System-mt.854
*** Widget Refactorings and UI Themes (Part 11 of 11) ***
Some UI themes. :-)
=============== Diff against System-mt.854 ===============
Item was added:
+ UserInterfaceTheme subclass: #CommunityTheme
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'System-Support'!
+
+ !CommunityTheme commentStamp: 'mt 7/26/2016 16:22' prior: 0!
+ A dark theme designed by members the Squeak community such as Karl Ramberg, Chris Muller, and Marcel Taeumel.!
Item was added:
+ ----- Method: CommunityTheme class>>addDarkButtons: (in category 'instance creation') -----
+ addDarkButtons: theme
+ "self createDark apply."
+ theme
+ set: #borderColor for: #PluggableButtonMorph to: Color darkGray darker;
+ set: #color for: #PluggableButtonMorph to: Color gray;
+ set: #textColor for: #PluggableButtonMorph to: Color white;
+
+ set: #selectionModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.2] ];
+ set: #hoverModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.2] ];
+ set: #feedbackModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.3] ].
+
+ "And the plus-version."
+ theme set: #disabledTextColor for: #PluggableButtonMorphPlus to: Color gray.
+ !
Item was added:
+ ----- Method: CommunityTheme class>>addDarkDialogs: (in category 'instance creation') -----
+ addDarkDialogs: theme
+ "self createDark apply."
+ theme
+ set: #borderColor for: #DialogWindow to: Color darkGray;
+ set: #color for: #DialogWindow to: Color gray;
+
+ set: #titleColor for: #DialogWindow to: Color darkGray;
+ set: #titleTextColor for: #DialogWindow to: Color white;
+
+ set: #textColor for: #DialogWindow to: (Color gray: 0.9);
+
+ set: #okColor for: #DialogWindow to: self dbGreen;
+ set: #cancelColor for: #DialogWindow to: self dbOrange;
+ set: #buttonColor for: #DialogWindow to: Color darkGray;
+ set: #selectionModifier for: #DialogWindow to: [ [:c | c adjustBrightness: 0.2 ] ].
+
+ "The List Chooser is a dialog, too."
+ theme
+ set: #addColor for: #ListChooser to: self dbBlue;
+ set: #disabledColor for: #ListChooser to: Color transparent.
+
+
+ "And the system progress bar."
+ theme
+ set: #color for: #SystemProgressBarMorph to: Color transparent;
+ set: #barColor for: #SystemProgressBarMorph to: Color darkGray.
+
+ "And the balloon morphs."
+ theme
+ set: #borderColor for: #NewBalloonMorph to: Color black;
+ set: #color for: #NewBalloonMorph to: (Color cyan muchDarker alpha: 0.7).!
Item was added:
+ ----- Method: CommunityTheme class>>addDarkFonts: (in category 'instance creation') -----
+ addDarkFonts: theme
+
+ "Set-up fonts."
+ theme
+ set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7);
+ set: #standardButtonFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7);
+ set: #standardCodeFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9);
+ set: #standardDefaultTextFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9);
+ set: #standardFlapFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode);
+ set: #haloLabelFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9);
+ set: #standardListFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9);
+ set: #standardMenuFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9);
+ set: #standardSystemFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9);
+ set: #windowTitleFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9).!
Item was added:
+ ----- Method: CommunityTheme class>>addDarkMenusAndDockingBars: (in category 'instance creation') -----
+ addDarkMenusAndDockingBars: theme
+ "self createDark apply."
+ theme
+ set: #borderWidth for: #MenuMorph to: 0;
+ set: #color for: #MenuMorph to: Color darkGray;
+ set: #titleTextColor for: #MenuMorph to: Color white;
+ set: #lineColor for: #MenuMorph to: Color lightGray;
+ set: #lineStyle for: #MenuMorph to: BorderStyle default;
+ set: #lineWidth for: #MenuMorph to: 1.
+
+ theme
+ set: #textColor for: #MenuItemMorph to: Color white;
+ set: #selectionColor for: #MenuItemMorph to: Color white;
+ set: #selectionTextColor for: #MenuItemMorph to: Color black.
+ "set: #subMenuMarker for: #MenuItemMorph to: nil." "Use hard-coded default. See MenuItemMorph."
+
+ "The world main docking bar."
+ theme
+ " set: #color for: #DockingBarMorph to: Color darkGray;"
+ " set: #selectionColor for: #DockingBarItemMorph to: self darkContentSecondary;"
+ set: #logoColor for: #TheWorldMainDockingBar to: Color white;
+ set: #selectionLogoColor for: #TheWorldMainDockingBar to: Color black.!
Item was added:
+ ----- Method: CommunityTheme class>>addDarkScrollables: (in category 'instance creation') -----
+ addDarkScrollables: theme
+ "self createDark apply."
+
+ "Scroll bars"
+ theme
+ set: #thumbColor for: #ScrollBar to: Color gray;
+ set: #thumbBorderColor for: #ScrollBar to: Color darkGray.
+
+ "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets."
+ theme
+ set: #color for: #ScrollPane to: (Color gray: 0.1).
+
+ "List widgets"
+ theme
+ set: #textColor for: #PluggableListMorph to: (Color gray: 0.9);
+ set: #selectionColor for: #PluggableListMorph to: (Color r: 0.15 g: 0.4 b: 0.15 alpha: 1.0);
+ set: #selectionTextColor for: #PluggableListMorph to: Color white;
+ set: #filterColor for: #PluggableListMorph to: self dbYellow;
+ set: #filterTextColor for: #PluggableListMorph to: Color black;
+ set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | c lighter alpha: 0.5 ] ];
+ set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c lighter alpha: 0.5 ] ].
+
+ "Tree widgets"
+ theme
+ set: #highlightTextColor for: #SimpleHierarchicalListMorph to: self dbYellow lighter lighter;
+ set: #lineColor for: #SimpleHierarchicalListMorph to: Color gray.
+
+ "Text widgets"
+ theme
+ set: #textColor for: #PluggableTextMorph to: (Color gray: 0.9);
+ set: #caretColor for: #PluggableTextMorph to: Color white;
+ set: #selectionColor for: #PluggableTextMorph to: (Color r: 0.15 g: 0.4 b: 0.15 alpha: 1.0);
+ set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | c duller] ];
+ set: #adornmentReadOnly for: #PluggableTextMorph to: self dbPurple;
+ set: #adornmentRefuse for: #PluggableTextMorph to: self dbBlue;
+ set: #adornmentConflict for: #PluggableTextMorph to: self dbRed;
+ set: #adornmentDiff for: #PluggableTextMorph to: self dbGreen;
+ set: #adornmentNormalEdit for: #PluggableTextMorph to: self dbOrange;
+ set: #adornmentDiffEdit for: #PluggableTextMorph to: self dbYellow.
+ theme
+ set: #balloonTextColor for: #PluggableTextMorphPlus to: Color darkGray.!
Item was added:
+ ----- Method: CommunityTheme class>>addDarkSyntaxHighlighting: (in category 'instance creation') -----
+ addDarkSyntaxHighlighting: theme
+ "self createDark apply."
+ theme
+ set: #default for: #SHTextStylerST80 to: {self dbForeground};
+ set: #invalid for: #SHTextStylerST80 to: {self dbRed};
+ set: #excessCode for: #SHTextStylerST80 to: {self dbRed};
+ set: #comment for: #SHTextStylerST80 to: {Color gray: 0.3};
+ set: #unfinishedComment for: #SHTextStylerST80 to: {self dbRed. TextEmphasis italic};
+ set: #'$' for: #SHTextStylerST80 to: {self dbRed};
+ set: #character for: #SHTextStylerST80 to: {self dbRed};
+ set: #integer for: #SHTextStylerST80 to: {self dbRed};
+ set: #number for: #SHTextStylerST80 to: {self dbRed};
+ set: #- for: #SHTextStylerST80 to: {self dbRed};
+ set: #symbol for: #SHTextStylerST80 to: {self dbBlue};
+ set: #stringSymbol for: #SHTextStylerST80 to: {self dbBlue};
+ set: #literalArray for: #SHTextStylerST80 to: {self dbBlue};
+ set: #string for: #SHTextStylerST80 to: {self dbPurple. TextEmphasis normal};
+ set: #unfinishedString for: #SHTextStylerST80 to: {self dbRed. TextEmphasis normal};
+ set: #assignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
+ set: #ansiAssignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
+ set: #literal for: #SHTextStylerST80 to: {nil. TextEmphasis italic};
+ set: #keyword for: #SHTextStylerST80 to: {self dbBlue};
+ set: #binary for: #SHTextStylerST80 to: {self dbBlue};
+ set: #unary for: #SHTextStylerST80 to: {self dbBlue};
+ set: #incompleteKeyword for: #SHTextStylerST80 to: {self dbForeground. TextEmphasis underlined};
+ set: #incompleteBinary for: #SHTextStylerST80 to: {self dbForeground. TextEmphasis underlined};
+ set: #incompleteUnary for: #SHTextStylerST80 to: {self dbForeground. TextEmphasis underlined};
+ set: #undefinedKeyword for: #SHTextStylerST80 to: {self dbRed};
+ set: #undefinedBinary for: #SHTextStylerST80 to: {self dbRed};
+ set: #undefinedUnary for: #SHTextStylerST80 to: {self dbRed};
+ set: #patternKeyword for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
+ set: #patternBinary for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
+ set: #patternUnary for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
+ set: #self for: #SHTextStylerST80 to: {self dbRed};
+ set: #super for: #SHTextStylerST80 to: {self dbRed};
+ set: #true for: #SHTextStylerST80 to: {self dbRed};
+ set: #false for: #SHTextStylerST80 to: {self dbRed};
+ set: #nil for: #SHTextStylerST80 to: {self dbRed};
+ set: #thisContext for: #SHTextStylerST80 to: {self dbRed};
+ set: #return for: #SHTextStylerST80 to: {self dbRed};
+ set: #patternArg for: #SHTextStylerST80 to: {self dbBlue};
+ set: #methodArg for: #SHTextStylerST80 to: {self dbBlue};
+ set: #blockPatternArg for: #SHTextStylerST80 to: {self dbBlue};
+ set: #blockArg for: #SHTextStylerST80 to: {self dbBlue};
+ set: #argument for: #SHTextStylerST80 to: {self dbBlue};
+ set: #blockArgColon for: #SHTextStylerST80 to: {self dbForeground};
+ set: #leftParenthesis for: #SHTextStylerST80 to: {self dbForeground};
+ set: #rightParenthesis for: #SHTextStylerST80 to: {self dbForeground};
+ set: #leftParenthesis1 for: #SHTextStylerST80 to: {self dbGreen};
+ set: #rightParenthesis1 for: #SHTextStylerST80 to: {self dbGreen};
+ set: #leftParenthesis2 for: #SHTextStylerST80 to: {self dbPurple};
+ set: #rightParenthesis2 for: #SHTextStylerST80 to: {self dbPurple};
+ set: #leftParenthesis3 for: #SHTextStylerST80 to: {self dbRed};
+ set: #rightParenthesis3 for: #SHTextStylerST80 to: {self dbRed};
+ set: #leftParenthesis4 for: #SHTextStylerST80 to: {self dbGreen};
+ set: #rightParenthesis4 for: #SHTextStylerST80 to: {self dbGreen};
+ set: #leftParenthesis5 for: #SHTextStylerST80 to: {self dbOrange};
+ set: #rightParenthesis5 for: #SHTextStylerST80 to: {self dbOrange};
+ set: #leftParenthesis6 for: #SHTextStylerST80 to: {self dbPurple};
+ set: #rightParenthesis6 for: #SHTextStylerST80 to: {self dbPurple};
+ set: #leftParenthesis7 for: #SHTextStylerST80 to: {self dbBlue};
+ set: #rightParenthesis7 for: #SHTextStylerST80 to: {self dbBlue};
+ set: #blockStart for: #SHTextStylerST80 to: {self dbForeground};
+ set: #blockEnd for: #SHTextStylerST80 to: {self dbForeground};
+ set: #blockStart1 for: #SHTextStylerST80 to: {self dbGreen};
+ set: #blockEnd1 for: #SHTextStylerST80 to: {self dbGreen};
+ set: #blockStart2 for: #SHTextStylerST80 to: {self dbPurple};
+ set: #blockEnd2 for: #SHTextStylerST80 to: {self dbPurple};
+ set: #blockStart3 for: #SHTextStylerST80 to: {self dbRed};
+ set: #blockEnd3 for: #SHTextStylerST80 to: {self dbRed};
+ set: #blockStart4 for: #SHTextStylerST80 to: {self dbGreen};
+ set: #blockEnd4 for: #SHTextStylerST80 to: {self dbGreen};
+ set: #blockStart5 for: #SHTextStylerST80 to: {self dbOrange};
+ set: #blockEnd5 for: #SHTextStylerST80 to: {self dbOrange};
+ set: #blockStart6 for: #SHTextStylerST80 to: {self dbPurple};
+ set: #blockEnd6 for: #SHTextStylerST80 to: {self dbPurple};
+ set: #blockStart7 for: #SHTextStylerST80 to: {self dbBlue};
+ set: #blockEnd7 for: #SHTextStylerST80 to: {self dbBlue};
+ set: #arrayStart for: #SHTextStylerST80 to: {self dbForeground};
+ set: #arrayEnd for: #SHTextStylerST80 to: {self dbForeground};
+ set: #arrayStart1 for: #SHTextStylerST80 to: {self dbForeground};
+ set: #arrayEnd1 for: #SHTextStylerST80 to: {self dbForeground};
+ set: #byteArrayStart for: #SHTextStylerST80 to: {self dbForeground};
+ set: #byteArrayEnd for: #SHTextStylerST80 to: {self dbForeground};
+ set: #byteArrayStart1 for: #SHTextStylerST80 to: {self dbForeground};
+ set: #byteArrayEnd1 for: #SHTextStylerST80 to: {self dbForeground};
+ set: #leftBrace for: #SHTextStylerST80 to: {self dbForeground};
+ set: #rightBrace for: #SHTextStylerST80 to: {self dbForeground};
+ set: #cascadeSeparator for: #SHTextStylerST80 to: {self dbForeground};
+ set: #statementSeparator for: #SHTextStylerST80 to: {self dbForeground};
+ set: #externalCallType for: #SHTextStylerST80 to: {self dbForeground};
+ set: #externalCallTypePointerIndicator for: #SHTextStylerST80 to: {self dbForeground};
+ set: #primitiveOrExternalCallStart for: #SHTextStylerST80 to: {self dbForeground};
+ set: #primitiveOrExternalCallEnd for: #SHTextStylerST80 to: {self dbForeground};
+ set: #methodTempBar for: #SHTextStylerST80 to: {self dbForeground};
+ set: #blockTempBar for: #SHTextStylerST80 to: {self dbForeground};
+ set: #blockArgsBar for: #SHTextStylerST80 to: {self dbForeground};
+ set: #primitive for: #SHTextStylerST80 to: {self dbGreen. TextEmphasis bold};
+ set: #pragmaKeyword for: #SHTextStylerST80 to: {self dbGreen. TextEmphasis bold};
+ set: #pragmaUnary for: #SHTextStylerST80 to: {self dbGreen. TextEmphasis bold};
+ set: #pragmaBinary for: #SHTextStylerST80 to: {self dbGreen. TextEmphasis bold};
+ set: #externalFunctionCallingConvention for: #SHTextStylerST80 to: {self dbGreen. TextEmphasis bold};
+ set: #module for: #SHTextStylerST80 to: {self dbGreen. TextEmphasis bold};
+ set: #blockTempVar for: #SHTextStylerST80 to: {self dbForeground};
+ set: #blockPatternTempVar for: #SHTextStylerST80 to: {self dbForeground};
+ set: #instVar for: #SHTextStylerST80 to: {self dbForeground};
+ set: #workspaceVar for: #SHTextStylerST80 to: {self dbForeground};
+ set: #undefinedIdentifier for: #SHTextStylerST80 to: {self dbRed};
+ set: #incompleteIdentifier for: #SHTextStylerST80 to: {self dbForeground. {TextEmphasis italic. TextEmphasis underlined}};
+ set: #tempVar for: #SHTextStylerST80 to: {self dbForeground};
+ set: #patternTempVar for: #SHTextStylerST80 to: {self dbForeground};
+ set: #poolConstant for: #SHTextStylerST80 to: {self dbForeground};
+ set: #classVar for: #SHTextStylerST80 to: {self dbForeground};
+ set: #globalVar for: #SHTextStylerST80 to: {self dbForeground}.
+
+ "And the text differ"
+ theme
+ set: #insertTextAttributes for: #TextDiffBuilder to: { TextColor color: self dbRed };
+ set: #removeTextAttributes for: #TextDiffBuilder to: { TextEmphasis struckOut. TextColor color: self dbBlue };
+ set: #normalTextAttributes for: #TextDiffBuilder to: { TextEmphasis normal }.!
Item was added:
+ ----- Method: CommunityTheme class>>addDarkWindowColors: (in category 'instance creation') -----
+ addDarkWindowColors: theme
+ "self createDark apply."
+ theme
+ set: #uniformWindowColor for: #Model to: Color darkGray;
+
+ set: #unfocusedWindowColorModifier for: #SystemWindow to: [ [:color | color darker] ];
+ set: #unfocusedLabelColor for: #SystemWindow to: Color gray;
+ set: #focusedLabelColor for: #SystemWindow to: Color white;
+
+ set: #customWindowColor for: #Browser to: self dbGreen;
+ set: #customWindowColor for: #ChangeList to: self dbBlue;
+ set: #customWindowColor for: #ChangeSorter to: self dbBlue;
+ set: #customWindowColor for: #ChatNotes to: self dbPurple;
+ set: #customWindowColor for: #ClassCommentVersionsBrowser to: self dbPurple;
+ set: #customWindowColor for: #Debugger to: self dbRed;
+ set: #customWindowColor for: #DualChangeSorter to: self dbBlue;
+ set: #customWindowColor for: #FileContentsBrowser to: self dbYellow;
+ set: #customWindowColor for: #FileList to: self dbYellow;
+ set: #customWindowColor for: #InstanceBrowser to: self dbBlue;
+ set: #customWindowColor for: #Lexicon to: self dbBlue;
+ set: #customWindowColor for: #MCTool to: self dbPurple;
+ set: #customWindowColor for: #MessageNames to: self dbGreen;
+ set: #customWindowColor for: #MessageSet to: self dbBlue;
+ set: #customWindowColor for: #PackagePaneBrowser to: self dbGreen;
+ set: #customWindowColor for: #PluggableFileList to: self dbYellow;
+ set: #customWindowColor for: #PreferenceBrowser to: self dbBlue;
+ set: #customWindowColor for: #SMLoader to: self dbOrange;
+ set: #customWindowColor for: #SMLoaderPlus to: self dbOrange;
+ set: #customWindowColor for: #SMReleaseBrowser to: self dbOrange;
+ set: #customWindowColor for: #ScriptingDomain to: self dbYellow;
+ set: #customWindowColor for: #SelectorBrowser to: self dbBlue;
+ set: #customWindowColor for: #StringHolder to: self dbYellow;
+ set: #customWindowColor for: #TestRunner to: self dbOrange;
+ set: #customWindowColor for: #TranscriptStream to: self dbOrange;
+ set: #customWindowColor for: #VersionsBrowser to: self dbPurple.!
Item was added:
+ ----- Method: CommunityTheme class>>createDark (in category 'instance creation') -----
+ createDark
+ "self createDark apply."
+ | name |
+ name := 'Community (dark)'.
+ ^ (self named: name) in: [:theme |
+ theme merge: (self named: 'Squeak').
+ theme name: name.
+
+ "General morph stuff."
+ theme
+ set: #keyboardFocusColor for: #Morph to: Color white;
+ set: #keyboardFocusWidth for: #Morph to: 1;
+ set: #softShadowColor for: #Morph to: (Color white alpha: 0.03);
+ set: #softShadowOffset for: #Morph to: (10 at 8 corner: 10 at 12);
+ set: #hardShadowColor for: #Morph to: (Color white alpha: 0.5);
+ set: #hardShadowOffset for: #Morph to: 1 at 1.
+
+ self
+ addDarkFonts: theme;
+ addDarkWindowColors: theme;
+ addDarkSyntaxHighlighting: theme;
+ addDarkScrollables: theme;
+ addDarkButtons: theme;
+ addDarkDialogs: theme;
+ addDarkMenusAndDockingBars: theme.
+
+ theme]!
Item was added:
+ ----- Method: CommunityTheme class>>dbAqua (in category 'colors by purpose') -----
+ dbAqua
+ ^Color r: 0.542 g: 0.745 b: 0.717!
Item was added:
+ ----- Method: CommunityTheme class>>dbBackground (in category 'colors by purpose') -----
+ dbBackground
+ ^Color r: 0.113 g: 0.121 b: 0.129
+ !
Item was added:
+ ----- Method: CommunityTheme class>>dbBlue (in category 'colors by purpose') -----
+ dbBlue
+ ^Color r: 0.506 g: 0.635 b: 0.745!
Item was added:
+ ----- Method: CommunityTheme class>>dbComment (in category 'colors by purpose') -----
+ dbComment
+ ^Color r: 0.588 g: 0.596 b: 0.588
+ !
Item was added:
+ ----- Method: CommunityTheme class>>dbCurrentLine (in category 'colors by purpose') -----
+ dbCurrentLine
+ ^Color r:0.156 g: 0.164 b: 0.181!
Item was added:
+ ----- Method: CommunityTheme class>>dbForeground (in category 'colors by purpose') -----
+ dbForeground
+ ^Color r: 0.772 g: 0.784 b: 0.776!
Item was added:
+ ----- Method: CommunityTheme class>>dbGreen (in category 'colors by purpose') -----
+ dbGreen
+ ^Color r: 0.71 g: 0.741 b: 0.408!
Item was added:
+ ----- Method: CommunityTheme class>>dbOrange (in category 'colors by purpose') -----
+ dbOrange
+ ^Color r: 0.871 g: 0.577 b: 0.372!
Item was added:
+ ----- Method: CommunityTheme class>>dbPurple (in category 'colors by purpose') -----
+ dbPurple
+ ^Color r: 0.698 g: 0.581 b: 0.733!
Item was added:
+ ----- Method: CommunityTheme class>>dbRed (in category 'colors by purpose') -----
+ dbRed
+ ^Color r: 0.8 g: 0.4 b: 0.4!
Item was added:
+ ----- Method: CommunityTheme class>>dbSelection (in category 'colors by purpose') -----
+ dbSelection
+ ^Color r: 0.216 g: 0.232 b: 0.255!
Item was added:
+ ----- Method: CommunityTheme class>>dbYellow (in category 'colors by purpose') -----
+ dbYellow
+ ^Color r: 0.941 g: 0.776 b: 0.455!
Item was added:
+ UserInterfaceTheme subclass: #MonokaiTheme
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'System-Support'!
Item was added:
+ ----- Method: MonokaiTheme class>>addDarkButtons: (in category 'instance creation') -----
+ addDarkButtons: theme
+ "self createDark apply."
+ theme
+ set: #borderColor for: #PluggableButtonMorph to: self backgroundColor;
+ set: #color for: #PluggableButtonMorph to: self invisibleColor;
+ set: #textColor for: #PluggableButtonMorph to: self yellow;
+
+ set: #selectionModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.1] ];
+ set: #hoverModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.1] ];
+ set: #feedbackModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.3] ].
+
+ "And the plus-version."
+ theme set: #disabledTextColor for: #PluggableButtonMorphPlus to: self grayLight.
+ !
Item was added:
+ ----- Method: MonokaiTheme class>>addDarkDialogs: (in category 'instance creation') -----
+ addDarkDialogs: theme
+ "self createDark apply."
+ theme
+ set: #borderColor for: #DialogWindow to: self backgroundColor muchDarker;
+ set: #color for: #DialogWindow to: self invisibleColor;
+
+ set: #titleColor for: #DialogWindow to: self backgroundColor;
+ set: #titleTextColor for: #DialogWindow to: self foregroundColor;
+
+ set: #textColor for: #DialogWindow to: self yellow;
+
+ set: #okColor for: #DialogWindow to: self green muchDarker;
+ set: #cancelColor for: #DialogWindow to: self orange muchDarker;
+ set: #buttonColor for: #DialogWindow to: self invisibleColor;
+ set: #selectionModifier for: #DialogWindow to: [ [:c | c adjustBrightness: -0.1 ] ].
+
+ "The List Chooser is a dialog, too."
+ theme
+ set: #addColor for: #ListChooser to: self blue;
+ set: #disabledColor for: #ListChooser to: Color transparent.
+
+
+ "And the system progress bar."
+ theme
+ set: #color for: #SystemProgressBarMorph to: Color transparent;
+ set: #barColor for: #SystemProgressBarMorph to: self foregroundColor.
+
+ "And the balloon morphs."
+ theme
+ set: #borderColor for: #NewBalloonMorph to: self backgroundColor muchDarker;
+ set: #color for: #NewBalloonMorph to: self invisibleColor.!
Item was added:
+ ----- Method: MonokaiTheme class>>addDarkFonts: (in category 'instance creation') -----
+ addDarkFonts: theme
+
+ "Set-up fonts."
+ theme
+ set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7);
+ set: #standardButtonFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7);
+ set: #standardCodeFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9);
+ set: #standardDefaultTextFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9);
+ set: #standardFlapFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode);
+ set: #haloLabelFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9);
+ set: #standardListFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9);
+ set: #standardMenuFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9);
+ set: #standardSystemFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9);
+ set: #windowTitleFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9).!
Item was added:
+ ----- Method: MonokaiTheme class>>addDarkMenusAndDockingBars: (in category 'instance creation') -----
+ addDarkMenusAndDockingBars: theme
+ "self createDark apply."
+ theme
+ set: #borderWidth for: #MenuMorph to: 0;
+ set: #color for: #MenuMorph to: self backgroundColor;
+ set: #titleTextColor for: #MenuMorph to: self yellow;
+ set: #lineColor for: #MenuMorph to: self invisibleColor;
+ set: #lineStyle for: #MenuMorph to: BorderStyle default;
+ set: #lineWidth for: #MenuMorph to: 1.
+
+ theme
+ set: #textColor for: #MenuItemMorph to: self foregroundColor;
+ set: #selectionColor for: #MenuItemMorph to: self invisibleColor;
+ set: #selectionTextColor for: #MenuItemMorph to: self yellow.
+ "set: #subMenuMarker for: #MenuItemMorph to: nil." "Use hard-coded default. See MenuItemMorph."
+
+ "The world main docking bar."
+ theme
+ set: #color for: #DockingBarMorph to: self invisibleColor;
+ set: #selectionColor for: #DockingBarItemMorph to: self grayLight;
+ set: #logoColor for: #TheWorldMainDockingBar to: self foregroundColor;
+ set: #selectionLogoColor for: #TheWorldMainDockingBar to: self yellow.!
Item was added:
+ ----- Method: MonokaiTheme class>>addDarkScrollables: (in category 'instance creation') -----
+ addDarkScrollables: theme
+ "self createDark apply."
+
+ "Scroll bars"
+ theme
+ set: #thumbColor for: #ScrollBar to: self backgroundColor;
+ set: #thumbBorderColor for: #ScrollBar to: self backgroundColor;
+ set: #thumbBorderWidth for: #ScrollBar to: 1;
+ set: #thumbColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.2] ];
+ set: #pagingAreaColorModifier for: #ScrollBar to: [ [:c | Color transparent ] ];
+ set: #borderColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.2] ].
+
+ "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets."
+ theme
+ set: #borderWidth for: #ScrollPane to: 0;
+ " set: #borderColor for: #ScrollPane to: Color transparent;"
+ set: #color for: #ScrollPane to: self backgroundColor.
+
+ "List widgets"
+ theme
+ set: #textColor for: #PluggableListMorph to: self foregroundColor;
+ set: #selectionColor for: #PluggableListMorph to: self invisibleColor;
+ set: #selectionTextColor for: #PluggableListMorph to: self yellow;
+ set: #filterColor for: #PluggableListMorph to: self yellow;
+ set: #filterTextColor for: #PluggableListMorph to: self backgroundColor;
+ set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | c lighter alpha: 0.5 ] ];
+ set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c lighter alpha: 0.5 ] ].
+
+ "Tree widgets"
+ theme
+ set: #highlightTextColor for: #SimpleHierarchicalListMorph to: self yellow lighter lighter;
+ set: #lineColor for: #SimpleHierarchicalListMorph to: self grayLight.
+
+ "Text widgets"
+ theme
+ set: #textColor for: #PluggableTextMorph to: self foregroundColor;
+ set: #caretColor for: #PluggableTextMorph to: self yellow;
+ set: #selectionColor for: #PluggableTextMorph to: self invisibleColor;
+ set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | (Color r: 0.285 g: 0.282 b: 0.242) "invisible color"] ];
+ set: #adornmentReadOnly for: #PluggableTextMorph to: self magenta;
+ set: #adornmentRefuse for: #PluggableTextMorph to: self cyan;
+ set: #adornmentConflict for: #PluggableTextMorph to: self red;
+ set: #adornmentDiff for: #PluggableTextMorph to: self green;
+ set: #adornmentNormalEdit for: #PluggableTextMorph to: self orange;
+ set: #adornmentDiffEdit for: #PluggableTextMorph to: self yellow.
+ theme
+ set: #balloonTextColor for: #PluggableTextMorphPlus to: self grayLight.!
Item was added:
+ ----- Method: MonokaiTheme class>>addDarkSyntaxHighlighting: (in category 'instance creation') -----
+ addDarkSyntaxHighlighting: theme
+ "self createDark apply."
+ theme
+ set: #default for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #invalid for: #SHTextStylerST80 to: {self red};
+ set: #excessCode for: #SHTextStylerST80 to: {self red};
+ set: #comment for: #SHTextStylerST80 to: {self commentColor};
+ set: #unfinishedComment for: #SHTextStylerST80 to: {self red. TextEmphasis italic};
+ set: #'$' for: #SHTextStylerST80 to: {self red};
+ set: #character for: #SHTextStylerST80 to: {self numberColor};
+ set: #integer for: #SHTextStylerST80 to: {self numberColor};
+ set: #number for: #SHTextStylerST80 to: {self numberColor};
+ set: #- for: #SHTextStylerST80 to: {self red};
+ set: #symbol for: #SHTextStylerST80 to: {self blue};
+ set: #stringSymbol for: #SHTextStylerST80 to: {self blue};
+ set: #literalArray for: #SHTextStylerST80 to: {self blue};
+ set: #string for: #SHTextStylerST80 to: {self stringColor. TextEmphasis normal};
+ set: #unfinishedString for: #SHTextStylerST80 to: {self red. TextEmphasis normal};
+ set: #assignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
+ set: #ansiAssignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
+ set: #literal for: #SHTextStylerST80 to: {nil. TextEmphasis italic};
+ set: #keyword for: #SHTextStylerST80 to: {self blue};
+ set: #binary for: #SHTextStylerST80 to: {self blue};
+ set: #unary for: #SHTextStylerST80 to: {self blue};
+ set: #incompleteKeyword for: #SHTextStylerST80 to: {self foregroundColor. TextEmphasis underlined};
+ set: #incompleteBinary for: #SHTextStylerST80 to: {self foregroundColor. TextEmphasis underlined};
+ set: #incompleteUnary for: #SHTextStylerST80 to: {self foregroundColor. TextEmphasis underlined};
+ set: #undefinedKeyword for: #SHTextStylerST80 to: {self red};
+ set: #undefinedBinary for: #SHTextStylerST80 to: {self red};
+ set: #undefinedUnary for: #SHTextStylerST80 to: {self red};
+ set: #patternKeyword for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
+ set: #patternBinary for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
+ set: #patternUnary for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
+ set: #self for: #SHTextStylerST80 to: {self red};
+ set: #super for: #SHTextStylerST80 to: {self red};
+ set: #true for: #SHTextStylerST80 to: {self red};
+ set: #false for: #SHTextStylerST80 to: {self red};
+ set: #nil for: #SHTextStylerST80 to: {self red};
+ set: #thisContext for: #SHTextStylerST80 to: {self red};
+ set: #return for: #SHTextStylerST80 to: {self red};
+ set: #patternArg for: #SHTextStylerST80 to: {self blue};
+ set: #methodArg for: #SHTextStylerST80 to: {self blue};
+ set: #blockPatternArg for: #SHTextStylerST80 to: {self blue};
+ set: #blockArg for: #SHTextStylerST80 to: {self blue};
+ set: #argument for: #SHTextStylerST80 to: {self blue};
+ set: #blockArgColon for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #leftParenthesis for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #rightParenthesis for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #leftParenthesis1 for: #SHTextStylerST80 to: {self green};
+ set: #rightParenthesis1 for: #SHTextStylerST80 to: {self green};
+ set: #leftParenthesis2 for: #SHTextStylerST80 to: {self magenta};
+ set: #rightParenthesis2 for: #SHTextStylerST80 to: {self magenta};
+ set: #leftParenthesis3 for: #SHTextStylerST80 to: {self red};
+ set: #rightParenthesis3 for: #SHTextStylerST80 to: {self red};
+ set: #leftParenthesis4 for: #SHTextStylerST80 to: {self green};
+ set: #rightParenthesis4 for: #SHTextStylerST80 to: {self green};
+ set: #leftParenthesis5 for: #SHTextStylerST80 to: {self orange};
+ set: #rightParenthesis5 for: #SHTextStylerST80 to: {self orange};
+ set: #leftParenthesis6 for: #SHTextStylerST80 to: {self magenta};
+ set: #rightParenthesis6 for: #SHTextStylerST80 to: {self magenta};
+ set: #leftParenthesis7 for: #SHTextStylerST80 to: {self blue};
+ set: #rightParenthesis7 for: #SHTextStylerST80 to: {self blue};
+ set: #blockStart for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #blockEnd for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #blockStart1 for: #SHTextStylerST80 to: {self green};
+ set: #blockEnd1 for: #SHTextStylerST80 to: {self green};
+ set: #blockStart2 for: #SHTextStylerST80 to: {self magenta};
+ set: #blockEnd2 for: #SHTextStylerST80 to: {self magenta};
+ set: #blockStart3 for: #SHTextStylerST80 to: {self red};
+ set: #blockEnd3 for: #SHTextStylerST80 to: {self red};
+ set: #blockStart4 for: #SHTextStylerST80 to: {self green};
+ set: #blockEnd4 for: #SHTextStylerST80 to: {self green};
+ set: #blockStart5 for: #SHTextStylerST80 to: {self orange};
+ set: #blockEnd5 for: #SHTextStylerST80 to: {self orange};
+ set: #blockStart6 for: #SHTextStylerST80 to: {self magenta};
+ set: #blockEnd6 for: #SHTextStylerST80 to: {self magenta};
+ set: #blockStart7 for: #SHTextStylerST80 to: {self blue};
+ set: #blockEnd7 for: #SHTextStylerST80 to: {self blue};
+ set: #arrayStart for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #arrayEnd for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #arrayStart1 for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #arrayEnd1 for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #byteArrayStart for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #byteArrayEnd for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #byteArrayStart1 for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #byteArrayEnd1 for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #leftBrace for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #rightBrace for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #cascadeSeparator for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #statementSeparator for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #externalCallType for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #externalCallTypePointerIndicator for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #primitiveOrExternalCallStart for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #primitiveOrExternalCallEnd for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #methodTempBar for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #blockTempBar for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #blockArgsBar for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #primitive for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
+ set: #pragmaKeyword for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
+ set: #pragmaUnary for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
+ set: #pragmaBinary for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
+ set: #externalFunctionCallingConvention for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
+ set: #module for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
+ set: #blockTempVar for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #blockPatternTempVar for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #instVar for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #workspaceVar for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #undefinedIdentifier for: #SHTextStylerST80 to: {self red};
+ set: #incompleteIdentifier for: #SHTextStylerST80 to: {self foregroundColor. {TextEmphasis italic. TextEmphasis underlined}};
+ set: #tempVar for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #patternTempVar for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #poolConstant for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #classVar for: #SHTextStylerST80 to: {self foregroundColor};
+ set: #globalVar for: #SHTextStylerST80 to: {self foregroundColor}.
+
+ "And the text differ"
+ theme
+ set: #insertTextAttributes for: #TextDiffBuilder to: { TextColor color: self red };
+ set: #removeTextAttributes for: #TextDiffBuilder to: { TextEmphasis struckOut. TextColor color: self blue };
+ set: #normalTextAttributes for: #TextDiffBuilder to: { TextEmphasis normal }.!
Item was added:
+ ----- Method: MonokaiTheme class>>addDarkWindowColors: (in category 'instance creation') -----
+ addDarkWindowColors: theme
+ "self createDark apply."
+ theme
+ set: #uniformWindowColor for: #Model to: self invisibleColor;
+
+ set: #unfocusedWindowColorModifier for: #SystemWindow to: [ [:color |
+ Model useColorfulWindows
+ ifTrue: [color darker]
+ ifFalse: [(Color r: 0.152 g: 0.156 b: 0.133) "background color"] ] ];
+ set: #unfocusedLabelColor for: #SystemWindow to: [
+ Model useColorfulWindows
+ ifTrue: [(Color r: 0.285 g: 0.282 b: 0.242) "invisible color"]
+ ifFalse: [(Color r: 0.972 g: 0.972 b: 0.948) "foreground color"] ];
+ set: #focusedLabelColor for: #SystemWindow to: [
+ Model useColorfulWindows
+ ifTrue: [(Color r: 0.152 g: 0.156 b: 0.133) "background color"]
+ ifFalse: [(Color r: 0.901 g: 0.858 b: 0.455) "yellow"] ];
+
+ set: #customWindowColor for: #Browser to: self green;
+ set: #customWindowColor for: #ChangeList to: self blue;
+ set: #customWindowColor for: #ChangeSorter to: self blue;
+ set: #customWindowColor for: #ChatNotes to: self magenta;
+ set: #customWindowColor for: #ClassCommentVersionsBrowser to: self violet;
+ set: #customWindowColor for: #Debugger to: self red;
+ set: #customWindowColor for: #DualChangeSorter to: self blue;
+ set: #customWindowColor for: #FileContentsBrowser to: self yellow;
+ set: #customWindowColor for: #FileList to: self yellow;
+ set: #customWindowColor for: #InstanceBrowser to: self cyan;
+ set: #customWindowColor for: #Lexicon to: self cyan;
+ set: #customWindowColor for: #MCTool to: self violet;
+ set: #customWindowColor for: #MessageNames to: self green;
+ set: #customWindowColor for: #MessageSet to: self cyan;
+ set: #customWindowColor for: #PackagePaneBrowser to: self green;
+ set: #customWindowColor for: #PluggableFileList to: self yellow;
+ set: #customWindowColor for: #PreferenceBrowser to: self cyan;
+ set: #customWindowColor for: #SMLoader to: self orange;
+ set: #customWindowColor for: #SMLoaderPlus to: self orange;
+ set: #customWindowColor for: #SMReleaseBrowser to: self orange;
+ set: #customWindowColor for: #ScriptingDomain to: self yellow;
+ set: #customWindowColor for: #SelectorBrowser to: self cyan;
+ set: #customWindowColor for: #StringHolder to: self yellow;
+ set: #customWindowColor for: #TestRunner to: self orange;
+ set: #customWindowColor for: #TranscriptStream to: self orange;
+ set: #customWindowColor for: #VersionsBrowser to: self violet.!
Item was added:
+ ----- Method: MonokaiTheme class>>argumentColor (in category 'colors by purpose') -----
+ argumentColor
+
+ ^ Color fromString: '#FD971F'!
Item was added:
+ ----- Method: MonokaiTheme class>>backgroundColor (in category 'colors by purpose') -----
+ backgroundColor
+
+ ^ Color fromString: '#272822'!
Item was added:
+ ----- Method: MonokaiTheme class>>blue (in category 'colors by accent') -----
+ blue
+
+ ^ self globalColor!
Item was added:
+ ----- Method: MonokaiTheme class>>caretColor (in category 'colors by purpose') -----
+ caretColor
+ "invalid foreground, invalid deprecated foreground ..."
+
+ ^ Color fromString: '#F8F8F0'!
Item was added:
+ ----- Method: MonokaiTheme class>>classColor (in category 'colors by purpose') -----
+ classColor
+ "inherited class, function name, tag attribute, ..."
+
+ ^ Color fromString: '#A6E22E'!
Item was added:
+ ----- Method: MonokaiTheme class>>commentColor (in category 'colors by purpose') -----
+ commentColor
+
+ ^ Color fromString: '#75715E'!
Item was added:
+ ----- Method: MonokaiTheme class>>createDark (in category 'instance creation') -----
+ createDark
+ "self createDark apply."
+ | name |
+ name := 'Monokai (dark)'.
+ ^ (self named: name) in: [:theme |
+ theme merge: (self named: 'Squeak').
+ theme name: name.
+
+ "General morph stuff."
+ theme
+ set: #keyboardFocusColor for: #Morph to: self yellow;
+ set: #keyboardFocusWidth for: #Morph to: 1.
+
+ self
+ addDarkFonts: theme;
+ addDarkWindowColors: theme;
+ addDarkSyntaxHighlighting: theme;
+ addDarkScrollables: theme;
+ addDarkButtons: theme;
+ addDarkDialogs: theme;
+ addDarkMenusAndDockingBars: theme.
+
+ theme]!
Item was added:
+ ----- Method: MonokaiTheme class>>cyan (in category 'colors by accent') -----
+ cyan
+
+ ^ SolarizedTheme cyan!
Item was added:
+ ----- Method: MonokaiTheme class>>foregroundColor (in category 'colors by purpose') -----
+ foregroundColor
+
+ ^ Color fromString: '#F8F8F2'!
Item was added:
+ ----- Method: MonokaiTheme class>>globalColor (in category 'colors by purpose') -----
+ globalColor
+ "library function, library constant, library class type, ..."
+
+ ^ Color fromString: '#66D9EF'!
Item was added:
+ ----- Method: MonokaiTheme class>>grayDarker (in category 'colors by purpose') -----
+ grayDarker
+
+ ^ Color fromString: '#383830'!
Item was added:
+ ----- Method: MonokaiTheme class>>grayLight (in category 'colors by purpose') -----
+ grayLight
+
+ ^ Color fromString: '#595959'!
Item was added:
+ ----- Method: MonokaiTheme class>>grayLightest (in category 'colors by purpose') -----
+ grayLightest
+
+ ^ Color fromString: '#E6E6E6'!
Item was added:
+ ----- Method: MonokaiTheme class>>green (in category 'colors by accent') -----
+ green
+
+ ^ self classColor!
Item was added:
+ ----- Method: MonokaiTheme class>>invisibleColor (in category 'colors by purpose') -----
+ invisibleColor
+ "line highlight, selection, ..."
+
+ ^ Color fromString: '#49483E'!
Item was added:
+ ----- Method: MonokaiTheme class>>keywordColor (in category 'colors by purpose') -----
+ keywordColor
+ "tag name, invalid background, ..."
+
+ ^ Color fromString: '#F92672'!
Item was added:
+ ----- Method: MonokaiTheme class>>magenta (in category 'colors by accent') -----
+ magenta
+
+ ^ self keywordColor!
Item was added:
+ ----- Method: MonokaiTheme class>>numberColor (in category 'colors by purpose') -----
+ numberColor
+ "Constant, invalid deprecated background, ..."
+ "purple"
+
+ ^ Color fromString: '#AE81FF'!
Item was added:
+ ----- Method: MonokaiTheme class>>orange (in category 'colors by accent') -----
+ orange
+
+ ^ self argumentColor!
Item was added:
+ ----- Method: MonokaiTheme class>>red (in category 'colors by accent') -----
+ red
+
+ ^ SolarizedTheme red!
Item was added:
+ ----- Method: MonokaiTheme class>>stringColor (in category 'colors by purpose') -----
+ stringColor
+
+ ^ Color fromString: '#E6DB74'!
Item was added:
+ ----- Method: MonokaiTheme class>>violet (in category 'colors by accent') -----
+ violet
+
+ ^ self numberColor!
Item was added:
+ ----- Method: MonokaiTheme class>>yellow (in category 'colors by accent') -----
+ yellow
+
+ ^ self stringColor!
Item was added:
+ UserInterfaceTheme subclass: #SolarizedTheme
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'System-Support'!
+
+ !SolarizedTheme commentStamp: 'mt 7/26/2016 15:08' prior: 0!
+ The Solarized color palette.
+
+ http://ethanschoonover.com/solarized
+
+ SOLARIZED HEX 16/8 TERMCOL XTERM/HEX L*A*B RGB HSB
+ --------- ------- ---- ------- ----------- ---------- ----------- -----------
+ base03 #002b36 8/4 brblack 234 #1c1c1c 15 -12 -12 0 43 54 193 100 21
+ base02 #073642 0/4 black 235 #262626 20 -12 -12 7 54 66 192 90 26
+ base01 #586e75 10/7 brgreen 240 #585858 45 -07 -07 88 110 117 194 25 46
+ base00 #657b83 11/7 bryellow 241 #626262 50 -07 -07 101 123 131 195 23 51
+ base0 #839496 12/6 brblue 244 #808080 60 -06 -03 131 148 150 186 13 59
+ base1 #93a1a1 14/4 brcyan 245 #8a8a8a 65 -05 -02 147 161 161 180 9 63
+ base2 #eee8d5 7/7 white 254 #e4e4e4 92 -00 10 238 232 213 44 11 93
+ base3 #fdf6e3 15/7 brwhite 230 #ffffd7 97 00 10 253 246 227 44 10 99
+ yellow #b58900 3/3 yellow 136 #af8700 60 10 65 181 137 0 45 100 71
+ orange #cb4b16 9/3 brred 166 #d75f00 50 50 55 203 75 22 18 89 80
+ red #dc322f 1/1 red 160 #d70000 50 65 45 220 50 47 1 79 86
+ magenta #d33682 5/5 magenta 125 #af005f 50 65 -05 211 54 130 331 74 83
+ violet #6c71c4 13/5 brmagenta 61 #5f5faf 50 15 -45 108 113 196 237 45 77
+ blue #268bd2 4/4 blue 33 #0087ff 55 -10 -45 38 139 210 205 82 82
+ cyan #2aa198 6/6 cyan 37 #00afaf 60 -35 -05 42 161 152 175 74 63
+ green #859900 2/2 green 64 #5f8700 60 -20 65 133 153 0 68 100 60!
Item was added:
+ ----- Method: SolarizedTheme class>>addDarkButtons: (in category 'instance creation') -----
+ addDarkButtons: theme
+ "self createDark apply."
+ theme
+ set: #borderColor for: #PluggableButtonMorph to: self darkBackground;
+ set: #color for: #PluggableButtonMorph to: self darkBackgroundHighlights;
+ set: #textColor for: #PluggableButtonMorph to: self darkContentEmphasizedMore;
+
+ set: #selectionModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.1] ];
+ set: #hoverModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.1] ];
+ set: #feedbackModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.3] ].
+
+ "And the plus-version."
+ theme set: #disabledTextColor for: #PluggableButtonMorphPlus to: self darkContentEmphasized.
+ !
Item was added:
+ ----- Method: SolarizedTheme class>>addDarkDialogs: (in category 'instance creation') -----
+ addDarkDialogs: theme
+ "self createDark apply."
+ theme
+ set: #borderColor for: #DialogWindow to: self darkBackground muchDarker;
+ set: #color for: #DialogWindow to: self darkBackgroundHighlights;
+
+ set: #titleColor for: #DialogWindow to: self darkBackground;
+ set: #titleTextColor for: #DialogWindow to: self darkContentEmphasized;
+
+ set: #textColor for: #DialogWindow to: self darkContentEmphasizedMore;
+
+ set: #okColor for: #DialogWindow to: self green;
+ set: #cancelColor for: #DialogWindow to: self orange;
+ set: #buttonColor for: #DialogWindow to: self darkBackgroundHighlights;
+ set: #selectionModifier for: #DialogWindow to: [ [:c | c adjustBrightness: -0.1 ] ].
+
+ "The List Chooser is a dialog, too."
+ theme
+ set: #addColor for: #ListChooser to: self blue;
+ set: #disabledColor for: #ListChooser to: Color transparent.
+
+
+ "And the system progress bar."
+ theme
+ set: #color for: #SystemProgressBarMorph to: Color transparent;
+ set: #barColor for: #SystemProgressBarMorph to: self darkContentEmphasized.
+
+ "And the balloon morphs."
+ theme
+ set: #borderColor for: #NewBalloonMorph to: self darkBackground muchDarker;
+ set: #color for: #NewBalloonMorph to: self darkBackgroundHighlights.!
Item was added:
+ ----- Method: SolarizedTheme class>>addDarkFonts: (in category 'instance creation') -----
+ addDarkFonts: theme
+
+ "Set-up fonts."
+ theme
+ set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7);
+ set: #standardButtonFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7);
+ set: #standardCodeFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9);
+ set: #standardDefaultTextFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9);
+ set: #standardFlapFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode);
+ set: #haloLabelFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9);
+ set: #standardListFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9);
+ set: #standardMenuFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9);
+ set: #standardSystemFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9);
+ set: #windowTitleFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9).!
Item was added:
+ ----- Method: SolarizedTheme class>>addDarkMenusAndDockingBars: (in category 'instance creation') -----
+ addDarkMenusAndDockingBars: theme
+ "self createDark apply."
+ theme
+ set: #borderWidth for: #MenuMorph to: 0;
+ set: #color for: #MenuMorph to: self darkBackground;
+ set: #titleTextColor for: #MenuMorph to: self darkContentEmphasizedMore;
+ set: #lineColor for: #MenuMorph to: self darkBackgroundHighlights;
+ set: #lineStyle for: #MenuMorph to: BorderStyle default;
+ set: #lineWidth for: #MenuMorph to: 1.
+
+ theme
+ set: #textColor for: #MenuItemMorph to: self darkContentEmphasized;
+ set: #selectionColor for: #MenuItemMorph to: self darkBackgroundHighlights;
+ set: #selectionTextColor for: #MenuItemMorph to: self darkContentEmphasizedMore.
+ "set: #subMenuMarker for: #MenuItemMorph to: nil." "Use hard-coded default. See MenuItemMorph."
+
+ "The world main docking bar."
+ theme
+ set: #color for: #DockingBarMorph to: self darkBackgroundHighlights;
+ set: #selectionColor for: #DockingBarItemMorph to: self darkContentSecondary;
+ set: #logoColor for: #TheWorldMainDockingBar to: self darkContentEmphasized;
+ set: #selectionLogoColor for: #TheWorldMainDockingBar to: self darkContentEmphasizedMore.!
Item was added:
+ ----- Method: SolarizedTheme class>>addDarkScrollables: (in category 'instance creation') -----
+ addDarkScrollables: theme
+ "self createDark apply."
+
+ "Scroll bars"
+ theme
+ set: #thumbColor for: #ScrollBar to: self darkBackground;
+ set: #thumbBorderColor for: #ScrollBar to: self darkBackground;
+ set: #thumbBorderWidth for: #ScrollBar to: 1;
+ set: #thumbColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.1] ];
+ set: #pagingAreaColorModifier for: #ScrollBar to: [ [:c | Color transparent ] ];
+ set: #borderColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.1] ].
+
+ "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets."
+ theme
+ set: #borderWidth for: #ScrollPane to: 0;
+ " set: #borderColor for: #ScrollPane to: Color transparent;"
+ set: #color for: #ScrollPane to: self darkBackground.
+
+ "List widgets"
+ theme
+ set: #textColor for: #PluggableListMorph to: self darkContentEmphasized;
+ set: #selectionColor for: #PluggableListMorph to: self darkBackgroundHighlights;
+ set: #selectionTextColor for: #PluggableListMorph to: self darkContentEmphasizedMore;
+ set: #filterColor for: #PluggableListMorph to: self yellow;
+ set: #filterTextColor for: #PluggableListMorph to: self base03;
+ set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | c lighter alpha: 0.5 ] ];
+ set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c lighter alpha: 0.5 ] ].
+
+ "Tree widgets"
+ theme
+ set: #highlightTextColor for: #SimpleHierarchicalListMorph to: self yellow lighter lighter;
+ set: #lineColor for: #SimpleHierarchicalListMorph to: self darkContentSecondary.
+
+ "Text widgets"
+ theme
+ set: #textColor for: #PluggableTextMorph to: self darkContentPrimary;
+ set: #caretColor for: #PluggableTextMorph to: self darkContentEmphasizedMore;
+ set: #selectionColor for: #PluggableTextMorph to: self darkBackgroundHighlights;
+ set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | (Color r: 0.027 g: 0.211 b: 0.258) "dark background highlights"] ];
+ set: #adornmentReadOnly for: #PluggableTextMorph to: self magenta;
+ set: #adornmentRefuse for: #PluggableTextMorph to: self cyan;
+ set: #adornmentConflict for: #PluggableTextMorph to: self red;
+ set: #adornmentDiff for: #PluggableTextMorph to: self green;
+ set: #adornmentNormalEdit for: #PluggableTextMorph to: self orange;
+ set: #adornmentDiffEdit for: #PluggableTextMorph to: self yellow.
+ theme
+ set: #balloonTextColor for: #PluggableTextMorphPlus to: self darkContentSecondary.!
Item was added:
+ ----- Method: SolarizedTheme class>>addDarkSyntaxHighlighting: (in category 'instance creation') -----
+ addDarkSyntaxHighlighting: theme
+ "self createDark apply."
+ theme
+ set: #default for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #invalid for: #SHTextStylerST80 to: {self red};
+ set: #excessCode for: #SHTextStylerST80 to: {self red};
+ set: #comment for: #SHTextStylerST80 to: {self cyan};
+ set: #unfinishedComment for: #SHTextStylerST80 to: {self red. TextEmphasis italic};
+ set: #'$' for: #SHTextStylerST80 to: {self red};
+ set: #character for: #SHTextStylerST80 to: {self red};
+ set: #integer for: #SHTextStylerST80 to: {self red};
+ set: #number for: #SHTextStylerST80 to: {self red};
+ set: #- for: #SHTextStylerST80 to: {self red};
+ set: #symbol for: #SHTextStylerST80 to: {self blue};
+ set: #stringSymbol for: #SHTextStylerST80 to: {self blue};
+ set: #literalArray for: #SHTextStylerST80 to: {self blue};
+ set: #string for: #SHTextStylerST80 to: {self magenta. TextEmphasis normal};
+ set: #unfinishedString for: #SHTextStylerST80 to: {self red. TextEmphasis normal};
+ set: #assignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
+ set: #ansiAssignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
+ set: #literal for: #SHTextStylerST80 to: {nil. TextEmphasis italic};
+ set: #keyword for: #SHTextStylerST80 to: {self blue};
+ set: #binary for: #SHTextStylerST80 to: {self blue};
+ set: #unary for: #SHTextStylerST80 to: {self blue};
+ set: #incompleteKeyword for: #SHTextStylerST80 to: {self darkContentPrimary. TextEmphasis underlined};
+ set: #incompleteBinary for: #SHTextStylerST80 to: {self darkContentPrimary. TextEmphasis underlined};
+ set: #incompleteUnary for: #SHTextStylerST80 to: {self darkContentPrimary. TextEmphasis underlined};
+ set: #undefinedKeyword for: #SHTextStylerST80 to: {self red};
+ set: #undefinedBinary for: #SHTextStylerST80 to: {self red};
+ set: #undefinedUnary for: #SHTextStylerST80 to: {self red};
+ set: #patternKeyword for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
+ set: #patternBinary for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
+ set: #patternUnary for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
+ set: #self for: #SHTextStylerST80 to: {self red};
+ set: #super for: #SHTextStylerST80 to: {self red};
+ set: #true for: #SHTextStylerST80 to: {self red};
+ set: #false for: #SHTextStylerST80 to: {self red};
+ set: #nil for: #SHTextStylerST80 to: {self red};
+ set: #thisContext for: #SHTextStylerST80 to: {self red};
+ set: #return for: #SHTextStylerST80 to: {self red};
+ set: #patternArg for: #SHTextStylerST80 to: {self blue};
+ set: #methodArg for: #SHTextStylerST80 to: {self blue};
+ set: #blockPatternArg for: #SHTextStylerST80 to: {self blue};
+ set: #blockArg for: #SHTextStylerST80 to: {self blue};
+ set: #argument for: #SHTextStylerST80 to: {self blue};
+ set: #blockArgColon for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #leftParenthesis for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #rightParenthesis for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #leftParenthesis1 for: #SHTextStylerST80 to: {self green};
+ set: #rightParenthesis1 for: #SHTextStylerST80 to: {self green};
+ set: #leftParenthesis2 for: #SHTextStylerST80 to: {self magenta};
+ set: #rightParenthesis2 for: #SHTextStylerST80 to: {self magenta};
+ set: #leftParenthesis3 for: #SHTextStylerST80 to: {self red};
+ set: #rightParenthesis3 for: #SHTextStylerST80 to: {self red};
+ set: #leftParenthesis4 for: #SHTextStylerST80 to: {self green};
+ set: #rightParenthesis4 for: #SHTextStylerST80 to: {self green};
+ set: #leftParenthesis5 for: #SHTextStylerST80 to: {self orange};
+ set: #rightParenthesis5 for: #SHTextStylerST80 to: {self orange};
+ set: #leftParenthesis6 for: #SHTextStylerST80 to: {self magenta};
+ set: #rightParenthesis6 for: #SHTextStylerST80 to: {self magenta};
+ set: #leftParenthesis7 for: #SHTextStylerST80 to: {self blue};
+ set: #rightParenthesis7 for: #SHTextStylerST80 to: {self blue};
+ set: #blockStart for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #blockEnd for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #blockStart1 for: #SHTextStylerST80 to: {self green};
+ set: #blockEnd1 for: #SHTextStylerST80 to: {self green};
+ set: #blockStart2 for: #SHTextStylerST80 to: {self magenta};
+ set: #blockEnd2 for: #SHTextStylerST80 to: {self magenta};
+ set: #blockStart3 for: #SHTextStylerST80 to: {self red};
+ set: #blockEnd3 for: #SHTextStylerST80 to: {self red};
+ set: #blockStart4 for: #SHTextStylerST80 to: {self green};
+ set: #blockEnd4 for: #SHTextStylerST80 to: {self green};
+ set: #blockStart5 for: #SHTextStylerST80 to: {self orange};
+ set: #blockEnd5 for: #SHTextStylerST80 to: {self orange};
+ set: #blockStart6 for: #SHTextStylerST80 to: {self magenta};
+ set: #blockEnd6 for: #SHTextStylerST80 to: {self magenta};
+ set: #blockStart7 for: #SHTextStylerST80 to: {self blue};
+ set: #blockEnd7 for: #SHTextStylerST80 to: {self blue};
+ set: #arrayStart for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #arrayEnd for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #arrayStart1 for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #arrayEnd1 for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #byteArrayStart for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #byteArrayEnd for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #byteArrayStart1 for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #byteArrayEnd1 for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #leftBrace for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #rightBrace for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #cascadeSeparator for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #statementSeparator for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #externalCallType for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #externalCallTypePointerIndicator for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #primitiveOrExternalCallStart for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #primitiveOrExternalCallEnd for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #methodTempBar for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #blockTempBar for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #blockArgsBar for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #primitive for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
+ set: #pragmaKeyword for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
+ set: #pragmaUnary for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
+ set: #pragmaBinary for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
+ set: #externalFunctionCallingConvention for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
+ set: #module for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
+ set: #blockTempVar for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #blockPatternTempVar for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #instVar for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #workspaceVar for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #undefinedIdentifier for: #SHTextStylerST80 to: {self red};
+ set: #incompleteIdentifier for: #SHTextStylerST80 to: {self darkContentPrimary. {TextEmphasis italic. TextEmphasis underlined}};
+ set: #tempVar for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #patternTempVar for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #poolConstant for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #classVar for: #SHTextStylerST80 to: {self darkContentPrimary};
+ set: #globalVar for: #SHTextStylerST80 to: {self darkContentPrimary}.
+
+ "And the text differ"
+ theme
+ set: #insertTextAttributes for: #TextDiffBuilder to: { TextColor color: self red };
+ set: #removeTextAttributes for: #TextDiffBuilder to: { TextEmphasis struckOut. TextColor color: self blue };
+ set: #normalTextAttributes for: #TextDiffBuilder to: { TextEmphasis normal }.!
Item was added:
+ ----- Method: SolarizedTheme class>>addDarkWindowColors: (in category 'instance creation') -----
+ addDarkWindowColors: theme
+ "self createDark apply."
+ theme
+ set: #uniformWindowColor for: #Model to: self darkBackgroundHighlights;
+
+ set: #unfocusedWindowColorModifier for: #SystemWindow to: [ [:color |
+ Model useColorfulWindows
+ ifTrue: [color darker]
+ ifFalse: [(Color r: 0.0 g: 0.168 b: 0.211) "dark background"] ] ];
+ set: #unfocusedLabelColor for: #SystemWindow to: self darkContentEmphasized;
+ set: #focusedLabelColor for: #SystemWindow to: self darkContentEmphasizedMore;
+
+ set: #customWindowColor for: #Browser to: self green;
+ set: #customWindowColor for: #ChangeList to: self blue;
+ set: #customWindowColor for: #ChangeSorter to: self blue;
+ set: #customWindowColor for: #ChatNotes to: self magenta;
+ set: #customWindowColor for: #ClassCommentVersionsBrowser to: self violet;
+ set: #customWindowColor for: #Debugger to: self red;
+ set: #customWindowColor for: #DualChangeSorter to: self blue;
+ set: #customWindowColor for: #FileContentsBrowser to: self yellow;
+ set: #customWindowColor for: #FileList to: self yellow;
+ set: #customWindowColor for: #InstanceBrowser to: self cyan;
+ set: #customWindowColor for: #Lexicon to: self cyan;
+ set: #customWindowColor for: #MCTool to: self violet;
+ set: #customWindowColor for: #MessageNames to: self green;
+ set: #customWindowColor for: #MessageSet to: self cyan;
+ set: #customWindowColor for: #PackagePaneBrowser to: self green;
+ set: #customWindowColor for: #PluggableFileList to: self yellow;
+ set: #customWindowColor for: #PreferenceBrowser to: self cyan;
+ set: #customWindowColor for: #SMLoader to: self orange;
+ set: #customWindowColor for: #SMLoaderPlus to: self orange;
+ set: #customWindowColor for: #SMReleaseBrowser to: self orange;
+ set: #customWindowColor for: #ScriptingDomain to: self yellow;
+ set: #customWindowColor for: #SelectorBrowser to: self cyan;
+ set: #customWindowColor for: #StringHolder to: self yellow;
+ set: #customWindowColor for: #TestRunner to: self orange;
+ set: #customWindowColor for: #TranscriptStream to: self orange;
+ set: #customWindowColor for: #VersionsBrowser to: self violet.!
Item was added:
+ ----- Method: SolarizedTheme class>>addLightButtons: (in category 'instance creation') -----
+ addLightButtons: theme
+ "self createDark apply."
+ theme
+ set: #borderColor for: #PluggableButtonMorph to: self lightBackground;
+ set: #color for: #PluggableButtonMorph to: self lightBackgroundHighlights;
+ set: #textColor for: #PluggableButtonMorph to: self lightContentEmphasizedMore;
+
+ set: #selectionModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.1] ];
+ set: #hoverModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.1] ];
+ set: #feedbackModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.3] ].
+
+ "And the plus-version."
+ theme set: #disabledTextColor for: #PluggableButtonMorphPlus to: self lightContentEmphasized.
+ !
Item was added:
+ ----- Method: SolarizedTheme class>>addLightDialogs: (in category 'instance creation') -----
+ addLightDialogs: theme
+ "self createLight apply."
+ theme
+ set: #borderColor for: #DialogWindow to: self lightBackground muchDarker;
+ set: #color for: #DialogWindow to: self lightBackgroundHighlights;
+
+ set: #titleColor for: #DialogWindow to: self lightBackground;
+ set: #titleTextColor for: #DialogWindow to: self lightContentEmphasized;
+
+ set: #textColor for: #DialogWindow to: self lightContentEmphasizedMore;
+
+ set: #okColor for: #DialogWindow to: self green;
+ set: #cancelColor for: #DialogWindow to: self orange;
+ set: #buttonColor for: #DialogWindow to: self lightBackgroundHighlights;
+ set: #selectionModifier for: #DialogWindow to: [ [:c | c adjustBrightness: -0.1 ] ].
+
+ "The List Chooser is a dialog, too."
+ theme
+ set: #addColor for: #ListChooser to: self blue;
+ set: #disabledColor for: #ListChooser to: Color transparent.
+
+
+ "And the system progress bar."
+ theme
+ set: #color for: #SystemProgressBarMorph to: Color transparent;
+ set: #barColor for: #SystemProgressBarMorph to: self lightContentEmphasized.
+
+ "And the balloon morphs."
+ theme
+ set: #borderColor for: #NewBalloonMorph to: self lightBackground muchDarker;
+ set: #color for: #NewBalloonMorph to: self lightBackgroundHighlights.!
Item was added:
+ ----- Method: SolarizedTheme class>>addLightFonts: (in category 'instance creation') -----
+ addLightFonts: theme
+
+ "Set-up fonts."
+ theme
+ set: #balloonHelpFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7);
+ set: #standardButtonFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7);
+ set: #standardCodeFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9);
+ set: #standardDefaultTextFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9);
+ set: #standardFlapFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode);
+ set: #haloLabelFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9);
+ set: #standardListFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9);
+ set: #standardMenuFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9);
+ set: #standardSystemFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9);
+ set: #windowTitleFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9 emphasized: TextEmphasis bold emphasisCode).!
Item was added:
+ ----- Method: SolarizedTheme class>>addLightMenusAndDockingBars: (in category 'instance creation') -----
+ addLightMenusAndDockingBars: theme
+ "self createLight apply."
+ theme
+ set: #borderWidth for: #MenuMorph to: 0;
+ set: #color for: #MenuMorph to: self lightBackground;
+ set: #titleTextColor for: #MenuMorph to: self lightContentEmphasizedMore;
+ set: #lineColor for: #MenuMorph to: self lightBackgroundHighlights;
+ set: #lineStyle for: #MenuMorph to: BorderStyle default;
+ set: #lineWidth for: #MenuMorph to: 1.
+
+ theme
+ set: #textColor for: #MenuItemMorph to: self lightContentEmphasized;
+ set: #selectionColor for: #MenuItemMorph to: self lightBackgroundHighlights;
+ set: #selectionTextColor for: #MenuItemMorph to: self lightContentEmphasizedMore.
+ "set: #subMenuMarker for: #MenuItemMorph to: nil." "Use hard-coded default. See MenuItemMorph."
+
+ "The world main docking bar."
+ theme
+ set: #color for: #DockingBarMorph to: self lightBackgroundHighlights;
+ set: #selectionColor for: #DockingBarItemMorph to: self lightContentSecondary;
+ set: #logoColor for: #TheWorldMainDockingBar to: self lightContentEmphasized;
+ set: #selectionLogoColor for: #TheWorldMainDockingBar to: self lightContentEmphasizedMore.!
Item was added:
+ ----- Method: SolarizedTheme class>>addLightScrollables: (in category 'instance creation') -----
+ addLightScrollables: theme
+ "self createLight apply."
+
+ "Scroll bars"
+ theme
+ set: #thumbColor for: #ScrollBar to: self lightBackground;
+ set: #thumbBorderColor for: #ScrollBar to: self lightBackground;
+ set: #thumbBorderWidth for: #ScrollBar to: 1;
+ set: #thumbColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.1] ];
+ set: #pagingAreaColorModifier for: #ScrollBar to: [ [:c | Color transparent ] ];
+ set: #borderColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.1] ].
+
+ "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets."
+ theme
+ set: #borderWidth for: #ScrollPane to: 0;
+ " set: #borderColor for: #ScrollPane to: Color transparent;"
+ set: #color for: #ScrollPane to: self lightBackground.
+
+ "List widgets"
+ theme
+ set: #textColor for: #PluggableListMorph to: self lightContentEmphasized;
+ set: #selectionColor for: #PluggableListMorph to: self lightBackgroundHighlights;
+ set: #selectionTextColor for: #PluggableListMorph to: self lightContentEmphasizedMore;
+ set: #filterColor for: #PluggableListMorph to: self yellow;
+ set: #filterTextColor for: #PluggableListMorph to: self lightBackground;
+ set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | c darker alpha: 0.5 ] ];
+ set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c darker alpha: 0.5 ] ].
+
+ "Tree widgets"
+ theme
+ set: #highlightTextColor for: #SimpleHierarchicalListMorph to: self yellow lighter lighter;
+ set: #lineColor for: #SimpleHierarchicalListMorph to: self lightContentSecondary.
+
+ "Text widgets"
+ theme
+ set: #textColor for: #PluggableTextMorph to: self lightContentPrimary;
+ set: #caretColor for: #PluggableTextMorph to: self lightContentEmphasizedMore;
+ set: #selectionColor for: #PluggableTextMorph to: self lightBackgroundHighlights;
+ set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | (Color r: 0.933 g: 0.909 b: 0.835) "light background highlights"] ];
+ set: #adornmentReadOnly for: #PluggableTextMorph to: self magenta;
+ set: #adornmentRefuse for: #PluggableTextMorph to: self cyan;
+ set: #adornmentConflict for: #PluggableTextMorph to: self red;
+ set: #adornmentDiff for: #PluggableTextMorph to: self green;
+ set: #adornmentNormalEdit for: #PluggableTextMorph to: self orange;
+ set: #adornmentDiffEdit for: #PluggableTextMorph to: self yellow.
+ theme
+ set: #balloonTextColor for: #PluggableTextMorphPlus to: self lightContentSecondary.!
Item was added:
+ ----- Method: SolarizedTheme class>>addLightSyntaxHighlighting: (in category 'instance creation') -----
+ addLightSyntaxHighlighting: theme
+ "self createLight apply."
+ theme
+ set: #default for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #invalid for: #SHTextStylerST80 to: {self red};
+ set: #excessCode for: #SHTextStylerST80 to: {self red};
+ set: #comment for: #SHTextStylerST80 to: {self cyan};
+ set: #unfinishedComment for: #SHTextStylerST80 to: {self red. TextEmphasis italic};
+ set: #'$' for: #SHTextStylerST80 to: {self red};
+ set: #character for: #SHTextStylerST80 to: {self red};
+ set: #integer for: #SHTextStylerST80 to: {self red};
+ set: #number for: #SHTextStylerST80 to: {self red};
+ set: #- for: #SHTextStylerST80 to: {self red};
+ set: #symbol for: #SHTextStylerST80 to: {self blue};
+ set: #stringSymbol for: #SHTextStylerST80 to: {self blue};
+ set: #literalArray for: #SHTextStylerST80 to: {self blue};
+ set: #string for: #SHTextStylerST80 to: {self magenta. TextEmphasis normal};
+ set: #unfinishedString for: #SHTextStylerST80 to: {self red. TextEmphasis normal};
+ set: #assignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
+ set: #ansiAssignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
+ set: #literal for: #SHTextStylerST80 to: {nil. TextEmphasis italic};
+ set: #keyword for: #SHTextStylerST80 to: {self blue};
+ set: #binary for: #SHTextStylerST80 to: {self blue};
+ set: #unary for: #SHTextStylerST80 to: {self blue};
+ set: #incompleteKeyword for: #SHTextStylerST80 to: {self lightContentPrimary. TextEmphasis underlined};
+ set: #incompleteBinary for: #SHTextStylerST80 to: {self lightContentPrimary. TextEmphasis underlined};
+ set: #incompleteUnary for: #SHTextStylerST80 to: {self lightContentPrimary. TextEmphasis underlined};
+ set: #undefinedKeyword for: #SHTextStylerST80 to: {self red};
+ set: #undefinedBinary for: #SHTextStylerST80 to: {self red};
+ set: #undefinedUnary for: #SHTextStylerST80 to: {self red};
+ set: #patternKeyword for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
+ set: #patternBinary for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
+ set: #patternUnary for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
+ set: #self for: #SHTextStylerST80 to: {self red};
+ set: #super for: #SHTextStylerST80 to: {self red};
+ set: #true for: #SHTextStylerST80 to: {self red};
+ set: #false for: #SHTextStylerST80 to: {self red};
+ set: #nil for: #SHTextStylerST80 to: {self red};
+ set: #thisContext for: #SHTextStylerST80 to: {self red};
+ set: #return for: #SHTextStylerST80 to: {self red};
+ set: #patternArg for: #SHTextStylerST80 to: {self blue};
+ set: #methodArg for: #SHTextStylerST80 to: {self blue};
+ set: #blockPatternArg for: #SHTextStylerST80 to: {self blue};
+ set: #blockArg for: #SHTextStylerST80 to: {self blue};
+ set: #argument for: #SHTextStylerST80 to: {self blue};
+ set: #blockArgColon for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #leftParenthesis for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #rightParenthesis for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #leftParenthesis1 for: #SHTextStylerST80 to: {self green};
+ set: #rightParenthesis1 for: #SHTextStylerST80 to: {self green};
+ set: #leftParenthesis2 for: #SHTextStylerST80 to: {self magenta};
+ set: #rightParenthesis2 for: #SHTextStylerST80 to: {self magenta};
+ set: #leftParenthesis3 for: #SHTextStylerST80 to: {self red};
+ set: #rightParenthesis3 for: #SHTextStylerST80 to: {self red};
+ set: #leftParenthesis4 for: #SHTextStylerST80 to: {self green};
+ set: #rightParenthesis4 for: #SHTextStylerST80 to: {self green};
+ set: #leftParenthesis5 for: #SHTextStylerST80 to: {self orange};
+ set: #rightParenthesis5 for: #SHTextStylerST80 to: {self orange};
+ set: #leftParenthesis6 for: #SHTextStylerST80 to: {self magenta};
+ set: #rightParenthesis6 for: #SHTextStylerST80 to: {self magenta};
+ set: #leftParenthesis7 for: #SHTextStylerST80 to: {self blue};
+ set: #rightParenthesis7 for: #SHTextStylerST80 to: {self blue};
+ set: #blockStart for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #blockEnd for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #blockStart1 for: #SHTextStylerST80 to: {self green};
+ set: #blockEnd1 for: #SHTextStylerST80 to: {self green};
+ set: #blockStart2 for: #SHTextStylerST80 to: {self magenta};
+ set: #blockEnd2 for: #SHTextStylerST80 to: {self magenta};
+ set: #blockStart3 for: #SHTextStylerST80 to: {self red};
+ set: #blockEnd3 for: #SHTextStylerST80 to: {self red};
+ set: #blockStart4 for: #SHTextStylerST80 to: {self green};
+ set: #blockEnd4 for: #SHTextStylerST80 to: {self green};
+ set: #blockStart5 for: #SHTextStylerST80 to: {self orange};
+ set: #blockEnd5 for: #SHTextStylerST80 to: {self orange};
+ set: #blockStart6 for: #SHTextStylerST80 to: {self magenta};
+ set: #blockEnd6 for: #SHTextStylerST80 to: {self magenta};
+ set: #blockStart7 for: #SHTextStylerST80 to: {self blue};
+ set: #blockEnd7 for: #SHTextStylerST80 to: {self blue};
+ set: #arrayStart for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #arrayEnd for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #arrayStart1 for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #arrayEnd1 for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #byteArrayStart for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #byteArrayEnd for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #byteArrayStart1 for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #byteArrayEnd1 for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #leftBrace for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #rightBrace for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #cascadeSeparator for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #statementSeparator for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #externalCallType for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #externalCallTypePointerIndicator for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #primitiveOrExternalCallStart for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #primitiveOrExternalCallEnd for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #methodTempBar for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #blockTempBar for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #blockArgsBar for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #primitive for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
+ set: #pragmaKeyword for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
+ set: #pragmaUnary for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
+ set: #pragmaBinary for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
+ set: #externalFunctionCallingConvention for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
+ set: #module for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
+ set: #blockTempVar for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #blockPatternTempVar for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #instVar for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #workspaceVar for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #undefinedIdentifier for: #SHTextStylerST80 to: {self red};
+ set: #incompleteIdentifier for: #SHTextStylerST80 to: {self lightContentPrimary. {TextEmphasis italic. TextEmphasis underlined}};
+ set: #tempVar for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #patternTempVar for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #poolConstant for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #classVar for: #SHTextStylerST80 to: {self lightContentPrimary};
+ set: #globalVar for: #SHTextStylerST80 to: {self lightContentPrimary}.
+
+ "And the text differ"
+ theme
+ set: #insertTextAttributes for: #TextDiffBuilder to: { TextColor color: self red };
+ set: #removeTextAttributes for: #TextDiffBuilder to: { TextEmphasis struckOut. TextColor color: self blue };
+ set: #normalTextAttributes for: #TextDiffBuilder to: { TextEmphasis normal }.!
Item was added:
+ ----- Method: SolarizedTheme class>>addLightWindowColors: (in category 'instance creation') -----
+ addLightWindowColors: theme
+ "self createLight apply."
+ theme
+ set: #uniformWindowColor for: #Model to: self lightBackgroundHighlights;
+
+ set: #unfocusedWindowColorModifier for: #SystemWindow to: [ [:color |
+ Model useColorfulWindows
+ ifTrue: [color darker]
+ ifFalse: [Color r: 0.991 g: 0.964 b: 0.89 "light background"] ] ];
+ set: #unfocusedLabelColor for: #SystemWindow to: self lightContentEmphasized;
+ set: #focusedLabelColor for: #SystemWindow to: self lightContentEmphasizedMore;
+
+ set: #customWindowColor for: #Browser to: self green;
+ set: #customWindowColor for: #ChangeList to: self blue;
+ set: #customWindowColor for: #ChangeSorter to: self blue;
+ set: #customWindowColor for: #ChatNotes to: self magenta;
+ set: #customWindowColor for: #ClassCommentVersionsBrowser to: self violet;
+ set: #customWindowColor for: #Debugger to: self red;
+ set: #customWindowColor for: #DualChangeSorter to: self blue;
+ set: #customWindowColor for: #FileContentsBrowser to: self yellow;
+ set: #customWindowColor for: #FileList to: self yellow;
+ set: #customWindowColor for: #InstanceBrowser to: self cyan;
+ set: #customWindowColor for: #Lexicon to: self cyan;
+ set: #customWindowColor for: #MCTool to: self violet;
+ set: #customWindowColor for: #MessageNames to: self green;
+ set: #customWindowColor for: #MessageSet to: self cyan;
+ set: #customWindowColor for: #PackagePaneBrowser to: self green;
+ set: #customWindowColor for: #PluggableFileList to: self yellow;
+ set: #customWindowColor for: #PreferenceBrowser to: self cyan;
+ set: #customWindowColor for: #SMLoader to: self orange;
+ set: #customWindowColor for: #SMLoaderPlus to: self orange;
+ set: #customWindowColor for: #SMReleaseBrowser to: self orange;
+ set: #customWindowColor for: #ScriptingDomain to: self yellow;
+ set: #customWindowColor for: #SelectorBrowser to: self cyan;
+ set: #customWindowColor for: #StringHolder to: self yellow;
+ set: #customWindowColor for: #TestRunner to: self orange;
+ set: #customWindowColor for: #TranscriptStream to: self orange;
+ set: #customWindowColor for: #VersionsBrowser to: self violet.!
Item was added:
+ ----- Method: SolarizedTheme class>>base0 (in category 'colors by name') -----
+ base0
+
+ ^ Color fromString: '#839496'!
Item was added:
+ ----- Method: SolarizedTheme class>>base00 (in category 'colors by name') -----
+ base00
+
+ ^ Color fromString: '#657b83'!
Item was added:
+ ----- Method: SolarizedTheme class>>base01 (in category 'colors by name') -----
+ base01
+
+ ^ Color fromString: '#586e75'!
Item was added:
+ ----- Method: SolarizedTheme class>>base02 (in category 'colors by name') -----
+ base02
+
+ ^ Color fromString: '#073642'!
Item was added:
+ ----- Method: SolarizedTheme class>>base03 (in category 'colors by name') -----
+ base03
+
+ ^ Color fromString: '#002b36'!
Item was added:
+ ----- Method: SolarizedTheme class>>base1 (in category 'colors by name') -----
+ base1
+
+ ^ Color fromString: '#93a1a1'!
Item was added:
+ ----- Method: SolarizedTheme class>>base2 (in category 'colors by name') -----
+ base2
+
+ ^ Color fromString: '#eee8d5'!
Item was added:
+ ----- Method: SolarizedTheme class>>base3 (in category 'colors by name') -----
+ base3
+
+ ^ Color fromString: '#fdf6e3'!
Item was added:
+ ----- Method: SolarizedTheme class>>blue (in category 'colors for accent') -----
+ blue
+
+ ^ Color fromString: '#268bd2'!
Item was added:
+ ----- Method: SolarizedTheme class>>createDark (in category 'instance creation') -----
+ createDark
+ "self createDark apply."
+ | name |
+ name := 'Solarized (dark)'.
+ ^ (self named: name) in: [:theme |
+ theme merge: (self named: 'Squeak').
+ theme name: name.
+
+ "General morph stuff."
+ theme
+ set: #keyboardFocusColor for: #Morph to: self darkContentSecondary;
+ set: #keyboardFocusWidth for: #Morph to: 1.
+
+ self
+ addDarkFonts: theme;
+ addDarkWindowColors: theme;
+ addDarkSyntaxHighlighting: theme;
+ addDarkScrollables: theme;
+ addDarkButtons: theme;
+ addDarkDialogs: theme;
+ addDarkMenusAndDockingBars: theme.
+
+ theme]!
Item was added:
+ ----- Method: SolarizedTheme class>>createLight (in category 'instance creation') -----
+ createLight
+ "You have to create dark first.
+ self createLight apply."
+
+ | name |
+ name := 'Solarized (light)'.
+ ^ (self named: 'Solarized (light)') in: [:theme |
+ theme merge: (self named: 'Solarized (dark)').
+ theme name: name.
+
+ "General morph stuff."
+ theme
+ set: #keyboardFocusColor for: #Morph to: self lightContentSecondary;
+ set: #keyboardFocusWidth for: #Morph to: 1.
+
+ self
+ addLightFonts: theme;
+ addLightWindowColors: theme;
+ addLightSyntaxHighlighting: theme;
+ addLightScrollables: theme;
+ addLightButtons: theme;
+ addLightDialogs: theme;
+ addLightMenusAndDockingBars: theme.
+
+ theme]!
Item was added:
+ ----- Method: SolarizedTheme class>>cyan (in category 'colors for accent') -----
+ cyan
+
+ ^ Color fromString: '#2aa198'!
Item was added:
+ ----- Method: SolarizedTheme class>>darkBackground (in category 'colors by purpose') -----
+ darkBackground
+ ^ self base03!
Item was added:
+ ----- Method: SolarizedTheme class>>darkBackgroundHighlights (in category 'colors by purpose') -----
+ darkBackgroundHighlights
+
+ ^ self base02!
Item was added:
+ ----- Method: SolarizedTheme class>>darkContentEmphasized (in category 'colors by purpose') -----
+ darkContentEmphasized
+
+ ^ self base1!
Item was added:
+ ----- Method: SolarizedTheme class>>darkContentEmphasizedMore (in category 'colors by purpose') -----
+ darkContentEmphasizedMore
+
+ ^ self base2!
Item was added:
+ ----- Method: SolarizedTheme class>>darkContentPrimary (in category 'colors by purpose') -----
+ darkContentPrimary
+ "body text, default code, ..."
+
+ ^ self base0!
Item was added:
+ ----- Method: SolarizedTheme class>>darkContentSecondary (in category 'colors by purpose') -----
+ darkContentSecondary
+ "comments, keyboard focus indication, ..."
+
+ ^ self base01!
Item was added:
+ ----- Method: SolarizedTheme class>>green (in category 'colors for accent') -----
+ green
+
+ ^ Color fromString: '#859900'!
Item was added:
+ ----- Method: SolarizedTheme class>>lightBackground (in category 'colors by purpose') -----
+ lightBackground
+
+ ^ self base3!
Item was added:
+ ----- Method: SolarizedTheme class>>lightBackgroundHighlights (in category 'colors by purpose') -----
+ lightBackgroundHighlights
+
+ ^ self base2!
Item was added:
+ ----- Method: SolarizedTheme class>>lightContentEmphasized (in category 'colors by purpose') -----
+ lightContentEmphasized
+
+ ^ self base01!
Item was added:
+ ----- Method: SolarizedTheme class>>lightContentEmphasizedMore (in category 'colors by purpose') -----
+ lightContentEmphasizedMore
+
+ ^ self base02!
Item was added:
+ ----- Method: SolarizedTheme class>>lightContentPrimary (in category 'colors by purpose') -----
+ lightContentPrimary
+ "body text, default code, ..."
+
+ ^ self base00!
Item was added:
+ ----- Method: SolarizedTheme class>>lightContentSecondary (in category 'colors by purpose') -----
+ lightContentSecondary
+ "comments, ..."
+
+ ^ self base1!
Item was added:
+ ----- Method: SolarizedTheme class>>magenta (in category 'colors for accent') -----
+ magenta
+
+ ^ Color fromString: '#d33682'!
Item was added:
+ ----- Method: SolarizedTheme class>>orange (in category 'colors for accent') -----
+ orange
+
+ ^ Color fromString: '#cb4b16'!
Item was added:
+ ----- Method: SolarizedTheme class>>red (in category 'colors for accent') -----
+ red
+
+ ^ Color fromString: '#dc322f'!
Item was added:
+ ----- Method: SolarizedTheme class>>violet (in category 'colors for accent') -----
+ violet
+
+ ^ Color fromString: '#6c71c4'!
Item was added:
+ ----- Method: SolarizedTheme class>>yellow (in category 'colors for accent') -----
+ yellow
+
+ ^ Color fromString: '#b58900'!
Item was added:
+ UserInterfaceTheme subclass: #SqueakTheme
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'System-Support'!
Item was added:
+ ----- Method: SqueakTheme class>>addButtons: (in category 'instance creation') -----
+ addButtons: theme
+
+ theme
+ set: #borderColor for: #PluggableButtonMorph to: Color gray;
+ set: #borderWidth for: #PluggableButtonMorph to: 1;
+ set: #borderStyle for: #PluggableButtonMorph to: BorderStyle default;
+ set: #color for: #PluggableButtonMorph to: [Color gray: 0.91];
+
+ set: #font for: #PluggableButtonMorph to: [Preferences standardButtonFont];
+ set: #textColor for: #PluggableButtonMorph to: Color black;
+
+ set: #selectionModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.2] ];
+ set: #hoverModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.1] ];
+ set: #feedbackModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.3] ].
+
+ "And the plus-version."
+ theme
+ set: #disabledColor for: #PluggableButtonMorphPlus to: Color transparent;
+ set: #disabledTextColor for: #PluggableButtonMorphPlus to: (Color gray: 0.6).
+ !
Item was added:
+ ----- Method: SqueakTheme class>>addClassicSyntaxHighlighting: (in category 'instance creation') -----
+ addClassicSyntaxHighlighting: theme
+ "This was the former default highlighting. Just overwrite the different values."
+
+ theme
+ set: #comment for: #SHTextStylerST80 to: {Color green muchDarker. TextEmphasis italic};
+ set: #symbol for: #SHTextStylerST80 to: {Color blue muchDarker. TextEmphasis bold};
+ set: #stringSymbol for: #SHTextStylerST80 to: {Color blue muchDarker. TextEmphasis bold};
+ set: #literalArray for: #SHTextStylerST80 to: {Color blue muchDarker. TextEmphasis bold};
+
+ set: #self for: #SHTextStylerST80 to: {Color red muchDarker. TextEmphasis bold};
+ set: #super for: #SHTextStylerST80 to: {Color red muchDarker. TextEmphasis bold};
+ set: #true for: #SHTextStylerST80 to: {Color red muchDarker. TextEmphasis bold};
+ set: #false for: #SHTextStylerST80 to: {Color red muchDarker. TextEmphasis bold};
+ set: #nil for: #SHTextStylerST80 to: {Color red muchDarker. TextEmphasis bold};
+
+ set: #thisContext for: #SHTextStylerST80 to: {Color red muchDarker. TextEmphasis bold};
+ set: #return for: #SHTextStylerST80 to: {Color red muchDarker. TextEmphasis bold};
+ set: #patternArg for: #SHTextStylerST80 to: {Color blue muchDarker. TextEmphasis italic};
+ set: #methodArg for: #SHTextStylerST80 to: {Color blue muchDarker. TextEmphasis italic};
+ set: #blockPatternArg for: #SHTextStylerST80 to: {Color blue muchDarker. TextEmphasis italic};
+ set: #blockArg for: #SHTextStylerST80 to: {Color blue muchDarker. TextEmphasis italic};
+ set: #argument for: #SHTextStylerST80 to: {Color blue muchDarker. TextEmphasis italic};
+
+ set: #primitiveOrExternalCallStart for: #SHTextStylerST80 to: {Color black. TextEmphasis bold};
+ set: #primitiveOrExternalCallEnd for: #SHTextStylerST80 to: {Color black. TextEmphasis bold};
+
+ set: #blockTempVar for: #SHTextStylerST80 to: {Color gray. TextEmphasis italic};
+ set: #blockPatternTempVar for: #SHTextStylerST80 to: {Color gray. TextEmphasis italic};
+ set: #instVar for: #SHTextStylerST80 to: {Color black. TextEmphasis bold};
+ set: #workspaceVar for: #SHTextStylerST80 to: {Color black. TextEmphasis bold};
+ set: #undefinedIdentifier for: #SHTextStylerST80 to: {Color red. TextEmphasis bold};
+
+ set: #tempVar for: #SHTextStylerST80 to: {Color gray darker. TextEmphasis italic};
+ set: #patternTempVar for: #SHTextStylerST80 to: {Color gray darker. TextEmphasis italic};
+ set: #poolConstant for: #SHTextStylerST80 to: {Color gray muchDarker. TextEmphasis italic};
+ set: #classVar for: #SHTextStylerST80 to: {Color gray muchDarker. TextEmphasis bold};
+ set: #globalVar for: #SHTextStylerST80 to: {Color black. TextEmphasis bold}.!
Item was added:
+ ----- Method: SqueakTheme class>>addDialogs: (in category 'instance creation') -----
+ addDialogs: theme
+
+ theme
+ set: #borderColor for: #DialogWindow to: Color gray;
+ set: #borderWidth for: #DialogWindow to: 1;
+ set: #borderStyle for: #DialogWindow to: BorderStyle default;
+ set: #color for: #DialogWindow to: Color white;
+
+ set: #titleBorderColor for: #DialogWindow to: Color gray;
+ set: #titleBorderWidth for: #DialogWindow to: 0;
+ set: #titleBorderStyle for: #DialogWindow to: BorderStyle default;
+ set: #titleColor for: #DialogWindow to: (Color r: 0.658 g: 0.678 b: 0.78);
+ set: #titleFont for: #DialogWindow to: [Preferences windowTitleFont];
+ set: #titleTextColor for: #DialogWindow to: Color black;
+
+ set: #font for: #DialogWindow to: [Preferences standardSystemFont];
+ set: #textColor for: #DialogWindow to: Color black;
+
+ set: #okColor for: #DialogWindow to: (Color r: 0.49 g: 0.749 b: 0.49);
+ set: #cancelColor for: #DialogWindow to: (Color r: 1 g: 0.6 b: 0.588);
+ set: #buttonColor for: #DialogWindow to: (Color r: 0.658 g: 0.678 b: 0.78) twiceLighter;
+ set: #selectionModifier for: #DialogWindow to: [ [:c | Color orange muchLighter ] ].
+
+ "The List Chooser is a dialog, too."
+ theme
+ derive: #okColor for: #ListChooser from: #DialogWindow;
+ derive: #cancelColor for: #ListChooser from: #DialogWindow;
+ set: #addColor for: #ListChooser to: Color blue muchLighter;
+ set: #disabledColor for: #ListChooser to: Color gray.
+
+ "And the mulitple list chooser."
+ theme
+ derive: #okColor for: #ListMultipleChooser from: #DialogWindow;
+ derive: #cancelColor for: #ListMultipleChooser from: #DialogWindow.
+
+ "And the system progress bar."
+ theme
+ derive: #borderColor for: #SystemProgressMorph from: #MenuMorph;
+ derive: #borderWidth for: #SystemProgressMorph from: #MenuMorph;
+ derive: #borderStyle for: #SystemProgressMorph from: #MenuMorph;
+ derive: #color for: #SystemProgressMorph from: #MenuMorph;
+ derive: #font for: #SystemProgressMorph from: #MenuItemMorph;
+ derive: #textColor for: #SystemProgressMorph from: #MenuItemMorph;
+
+ set: #borderColor for: #SystemProgressBarMorph to: Color transparent;
+ set: #borderWidth for: #SystemProgressBarMorph to: 0;
+ set: #borderStyle for: #SystemProgressBarMorph to: BorderStyle default;
+ set: #color for: #SystemProgressBarMorph to: (Color r: 0.977 g: 0.977 b: 0.977);
+ set: #barColor for: #SystemProgressBarMorph to: (Color r: 0.72 g: 0.72 b: 0.9).
+
+ "And the balloon morphs."
+ theme
+ set: #borderColor for: #NewBalloonMorph to: (Color r: 0.46 g: 0.46 b: 0.353);
+ set: #borderWidth for: #NewBalloonMorph to: 1;
+ set: #color for: #NewBalloonMorph to:(Color r: 0.92 g: 0.92 b: 0.706);
+ set: #font for: #NewBalloonMorph to: [Preferences standardBalloonHelpFont];
+ derive: #textColor for: #NewBalloonMorph from: #PluggableButtonMorph.!
Item was added:
+ ----- Method: SqueakTheme class>>addDullerWindowColors: (in category 'instance creation') -----
+ addDullerWindowColors: theme
+
+ theme
+ set: #uniformWindowColor for: #Model to: Color veryVeryLightGray duller;
+ set: #customWindowColor for: #Browser to: (Color r: 0.764 g: 0.9 b: 0.63) duller;
+ set: #customWindowColor for: #ChangeList to: (Color r: 0.719 g: 0.9 b: 0.9) duller;
+ set: #customWindowColor for: #ChangeSorter to: (Color r: 0.719 g: 0.9 b: 0.9) duller;
+ set: #customWindowColor for: #ChatNotes to: (Color r: 1.0 g: 0.7 b: 0.8) duller;
+ set: #customWindowColor for: #ClassCommentVersionsBrowser to: (Color r: 0.753 g: 0.677 b: 0.9) duller;
+ set: #customWindowColor for: #Debugger to: (Color r: 0.9 g: 0.719 b: 0.719) duller;
+ set: #customWindowColor for: #DualChangeSorter to: (Color r: 0.719 g: 0.9 b: 0.9) duller;
+ set: #customWindowColor for: #FileContentsBrowser to: (Color r: 0.7 g: 0.7 b: 0.508) duller;
+ set: #customWindowColor for: #FileList to: (Color r: 0.65 g: 0.65 b: 0.65) duller;
+ set: #customWindowColor for: #InstanceBrowser to: (Color r: 0.726 g: 0.9 b: 0.9) duller;
+ set: #customWindowColor for: #Lexicon to: (Color r: 0.79 g: 0.9 b: 0.79) duller;
+ set: #customWindowColor for: #MCTool to: (Color r: 0.65 g: 0.691 b: 0.876) duller;
+ set: #customWindowColor for: #MessageNames to: (Color r: 0.639 g: 0.9 b: 0.497) duller;
+ set: #customWindowColor for: #MessageSet to: (Color r: 0.719 g: 0.9 b: 0.9) duller;
+ set: #customWindowColor for: #PackagePaneBrowser to: (Color r: 0.9 g: 0.9 b: 0.63) duller;
+ set: #customWindowColor for: #PluggableFileList to: Color lightYellow duller;
+ set: #customWindowColor for: #PreferenceBrowser to: (Color r: 0.671 g: 0.9 b: 0.9) duller;
+ set: #customWindowColor for: #SMLoader to: (Color r: 0.801 g: 0.801 b: 0.614) duller;
+ set: #customWindowColor for: #SMLoaderPlus to: (Color r: 0.801 g: 0.801 b: 0.614) duller;
+ set: #customWindowColor for: #SMReleaseBrowser to: (Color r: 0.801 g: 0.801 b: 0.614) duller;
+ set: #customWindowColor for: #ScriptingDomain to: (Color r: 0.91 g: 0.91 b: 0.91) duller;
+ set: #customWindowColor for: #SelectorBrowser to: (Color r: 0.45 g: 0.9 b: 0.9) duller;
+ set: #customWindowColor for: #StringHolder to: (Color r: 0.9 g: 0.9 b: 0.719) duller;
+ set: #customWindowColor for: #TestRunner to: (Color r: 0.9 g: 0.576 b: 0.09) duller;
+ set: #customWindowColor for: #TranscriptStream to: (Color r: 0.9 g: 0.75 b: 0.45) duller;
+ set: #customWindowColor for: #VersionsBrowser to: (Color r: 0.782 g: 0.677 b: 0.9) duller.!
Item was added:
+ ----- Method: SqueakTheme class>>addFonts: (in category 'instance creation') -----
+ addFonts: theme
+
+ theme
+ set: #balloonHelpFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7);
+ set: #standardButtonFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7);
+ set: #standardCodeFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9);
+ set: #standardDefaultTextFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9);
+ set: #standardFlapFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode);
+ set: #haloLabelFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9);
+ set: #standardListFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9);
+ set: #standardMenuFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9);
+ set: #standardSystemFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9);
+ set: #windowTitleFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9 emphasized: TextEmphasis bold emphasisCode).
+ !
Item was added:
+ ----- Method: SqueakTheme class>>addMenusAndDockingBars: (in category 'instance creation') -----
+ addMenusAndDockingBars: theme
+
+ theme
+ set: #borderColor for: #MenuMorph to: Color gray;
+ set: #borderWidth for: #MenuMorph to: 1;
+ set: #borderStyle for: #MenuMorph to: BorderStyle default;
+ set: #color for: #MenuMorph to: (Color gray: 0.9);
+
+ set: #titleBorderColor for: #MenuMorph to: (Color r: 0.6 g: 0.7 b: 1);
+ set: #titleBorderWidth for: #MenuMorph to: 0;
+ set: #titleBorderStyle for: #MenuMorph to: BorderStyle default;
+ set: #titleColor for: #MenuMorph to: Color transparent;
+ set: #titleFont for: #MenuMorph to: [Preferences windowTitleFont];
+ set: #titleTextColor for: #MenuMorph to: Color black;
+
+ set: #lineColor for: #MenuMorph to: (Color gray: 0.9);
+ set: #lineStyle for: #MenuMorph to: BorderStyle inset;
+ set: #lineWidth for: #MenuMorph to: 2.
+
+ theme
+ set: #font for: #MenuItemMorph to: [Preferences standardMenuFont];
+ set: #textColor for: #MenuItemMorph to: Color black;
+ set: #selectionColor for: #MenuItemMorph to: (Color r: 0.4 g: 0.5 b: 0.7);
+ set: #selectionTextColor for: #MenuItemMorph to: Color white;
+ set: #subMenuMarker for: #MenuItemMorph to: nil. "Use hard-coded default. See MenuItemMorph."
+
+ "Derive some stuff for the docking bar morph, which looks mostly like a menu morph."
+ theme
+ set: #borderWidth for: #DockingBarMorph to: 0;
+ derive: #borderColor for: #DockingBarMorph from: #MenuMorph;
+ derive: #borderStyle for: #DockingBarMorph from: #MenuMorph;
+ derive: #color for: #DockingBarMorph from: #MenuMorph;
+
+ derive: #lineColor for: #DockingBarMorph from: #MenuMorph;
+ derive: #lineStyle for: #DockingBarMorph from: #MenuMorph;
+ derive: #lineWidth for: #DockingBarMorph from: #MenuMorph.
+
+ "The world main docking bar."
+ theme
+ derive: #font for: #TheWorldMainDockingBar from: #MenuItemMorph;
+ derive: #textColor for: #TheWorldMainDockingBar from: #MenuItemMorph;
+ set: #logoColor for: #TheWorldMainDockingBar to: Color black;
+ set: #selectionLogoColor for: #TheWorldMainDockingBar to: Color white.!
Item was added:
+ ----- Method: SqueakTheme class>>addScrollables: (in category 'instance creation') -----
+ addScrollables: theme
+ "self create apply"
+
+ "Sliders"
+ theme
+ set: #borderColor for: #Slider to: Color gray;
+ set: #borderWidth for: #Slider to: 1;
+ set: #color for: #Slider to: Color lightGray;
+ set: #thumbBorderColor for: #Slider to: [Color gray: 0.6];
+ set: #thumbBorderWidth for: #Slider to: 0;
+ set: #thumbColor for: #Slider to: Color veryVeryLightGray;
+ set: #thumbShadowModifier for: #Slider to: [ [:c | c alpha: 0.7] ].
+
+ "Scroll bars"
+ theme
+ set: #thumbBorderWidth for: #ScrollBar to: 1;
+ set: #thumbColorModifier for: #ScrollBar to: [ [:c | c] ];
+ set: #pagingAreaColorModifier for: #ScrollBar to: [ [:c | c darker alpha: 0.35] ];
+ set: #borderColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.3] ].
+
+ "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets."
+ theme
+ set: #borderColor for: #ScrollPane to: (Color gray: 0.6);
+ set: #borderWidth for: #ScrollPane to: 1;
+ set: #borderStyle for: #ScrollPane to: BorderStyle default;
+ set: #color for: #ScrollPane to: Color white.
+
+ "List widgets"
+ theme
+ set: #font for: #PluggableListMorph to: [Preferences standardListFont];
+ set: #textColor for: #PluggableListMorph to: Color black;
+ set: #selectionColor for: #PluggableListMorph to: (Color r: 0.72 g: 0.72 b: 0.9);
+ derive: #multiSelectionColor for: #PluggableListMorph from: #PluggableListMorph at: #selectionColor do: [:c | c lighter];
+ set: #selectionTextColor for: #PluggableListMorph to: Color black;
+ set: #filterColor for: #PluggableListMorph to: Color yellow paler;
+ set: #filterTextColor for: #PluggableListMorph to: Color black;
+ set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | Color gray: 0.9] ];
+ set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c darker alpha: 0.3] ].
+
+ "Tree widgets"
+ theme
+ derive: #font for: #SimpleHierarchicalListMorph from: #PluggableListMorph;
+ derive: #textColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph;
+ derive: #selectionColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph;
+ derive: #selectionTextColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph;
+ derive: #filterColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph;
+ derive: #filterTextColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph;
+ derive: #hoverSelectionModifier for: #SimpleHierarchicalListMorph from: #PluggableListMorph;
+
+ set: #higlightTextColor for: #SimpleHierarchicalListMorph to: Color red;
+ set: #lineColor for: #SimpleHierarchicalListMorph to: Color veryLightGray.
+
+ "Text widgets"
+ theme
+ set: #font for: #PluggableTextMorph to: [Preferences standardDefaultTextFont];
+ set: #textColor for: #PluggableTextMorph to: Color black;
+ set: #caretColor for: #PluggableTextMorph to: Color red;
+ set: #selectionColor for: #PluggableTextMorph to: (TranslucentColor r: 0.0 g: 0.0 b: 0.8 alpha: 0.2);
+ set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | Color gray: 0.9] ];
+ set: #adornmentReadOnly for: #PluggableTextMorph to: Color black;
+ set: #adornmentRefuse for: #PluggableTextMorph to: Color tan;
+ set: #adornmentConflict for: #PluggableTextMorph to: Color red;
+ set: #adornmentDiff for: #PluggableTextMorph to: Color green;
+ set: #adornmentNormalEdit for: #PluggableTextMorph to: Color orange;
+ set: #adornmentDiffEdit for: #PluggableTextMorph to: Color yellow.
+ theme
+ set: #balloonTextColor for: #PluggableTextMorphPlus to: (Color gray: 0.7);
+ derive: #balloonTextFont for: #PluggableTextMorphPlus from: #PluggableTextMorph at: #font.!
Item was added:
+ ----- Method: SqueakTheme class>>addSyntaxHighlighting: (in category 'instance creation') -----
+ addSyntaxHighlighting: theme
+ "This was the former sub-dued highlighting."
+
+ theme
+ set: #default for: #SHTextStylerST80 to: {Color black};
+ set: #invalid for: #SHTextStylerST80 to: {Color red};
+ set: #excessCode for: #SHTextStylerST80 to: {Color red};
+ set: #comment for: #SHTextStylerST80 to: {Color cyan muchDarker};
+ set: #unfinishedComment for: #SHTextStylerST80 to: {Color red muchDarker. TextEmphasis italic};
+ set: #'$' for: #SHTextStylerST80 to: {Color red muchDarker};
+ set: #character for: #SHTextStylerST80 to: {Color red muchDarker};
+ set: #integer for: #SHTextStylerST80 to: {Color red muchDarker};
+ set: #number for: #SHTextStylerST80 to: {Color red muchDarker};
+ set: #- for: #SHTextStylerST80 to: {Color red muchDarker};
+ set: #symbol for: #SHTextStylerST80 to: {Color blue muchDarker};
+ set: #stringSymbol for: #SHTextStylerST80 to: {Color blue muchDarker};
+ set: #literalArray for: #SHTextStylerST80 to: {Color blue muchDarker};
+ set: #string for: #SHTextStylerST80 to: {Color magenta muchDarker. TextEmphasis normal};
+ set: #unfinishedString for: #SHTextStylerST80 to: {Color red. TextEmphasis normal};
+ set: #assignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
+ set: #ansiAssignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
+ set: #literal for: #SHTextStylerST80 to: {nil. TextEmphasis italic};
+ set: #keyword for: #SHTextStylerST80 to: {Color blue muchDarker};
+ set: #binary for: #SHTextStylerST80 to: {Color blue muchDarker};
+ set: #unary for: #SHTextStylerST80 to: {Color blue muchDarker};
+ set: #incompleteKeyword for: #SHTextStylerST80 to: {Color gray muchDarker. TextEmphasis underlined};
+ set: #incompleteBinary for: #SHTextStylerST80 to: {Color gray muchDarker. TextEmphasis underlined};
+ set: #incompleteUnary for: #SHTextStylerST80 to: {Color gray muchDarker. TextEmphasis underlined};
+ set: #undefinedKeyword for: #SHTextStylerST80 to: {Color red};
+ set: #undefinedBinary for: #SHTextStylerST80 to: {Color red};
+ set: #undefinedUnary for: #SHTextStylerST80 to: {Color red};
+ set: #patternKeyword for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
+ set: #patternBinary for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
+ set: #patternUnary for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
+ set: #self for: #SHTextStylerST80 to: {Color red muchDarker};
+ set: #super for: #SHTextStylerST80 to: {Color red muchDarker};
+ set: #true for: #SHTextStylerST80 to: {Color red muchDarker};
+ set: #false for: #SHTextStylerST80 to: {Color red muchDarker};
+ set: #nil for: #SHTextStylerST80 to: {Color red muchDarker};
+ set: #thisContext for: #SHTextStylerST80 to: {Color red muchDarker};
+ set: #return for: #SHTextStylerST80 to: {Color red muchDarker};
+ set: #patternArg for: #SHTextStylerST80 to: {Color blue muchDarker};
+ set: #methodArg for: #SHTextStylerST80 to: {Color blue muchDarker};
+ set: #blockPatternArg for: #SHTextStylerST80 to: {Color blue muchDarker};
+ set: #blockArg for: #SHTextStylerST80 to: {Color blue muchDarker};
+ set: #argument for: #SHTextStylerST80 to: {Color blue muchDarker};
+ set: #blockArgColon for: #SHTextStylerST80 to: {Color black};
+ set: #leftParenthesis for: #SHTextStylerST80 to: {Color black};
+ set: #rightParenthesis for: #SHTextStylerST80 to: {Color black};
+ set: #leftParenthesis1 for: #SHTextStylerST80 to: {Color green muchDarker};
+ set: #rightParenthesis1 for: #SHTextStylerST80 to: {Color green muchDarker};
+ set: #leftParenthesis2 for: #SHTextStylerST80 to: {Color magenta muchDarker};
+ set: #rightParenthesis2 for: #SHTextStylerST80 to: {Color magenta muchDarker};
+ set: #leftParenthesis3 for: #SHTextStylerST80 to: {Color red muchDarker};
+ set: #rightParenthesis3 for: #SHTextStylerST80 to: {Color red muchDarker};
+ set: #leftParenthesis4 for: #SHTextStylerST80 to: {Color green darker};
+ set: #rightParenthesis4 for: #SHTextStylerST80 to: {Color green darker};
+ set: #leftParenthesis5 for: #SHTextStylerST80 to: {Color orange darker};
+ set: #rightParenthesis5 for: #SHTextStylerST80 to: {Color orange darker};
+ set: #leftParenthesis6 for: #SHTextStylerST80 to: {Color magenta darker};
+ set: #rightParenthesis6 for: #SHTextStylerST80 to: {Color magenta darker};
+ set: #leftParenthesis7 for: #SHTextStylerST80 to: {Color blue};
+ set: #rightParenthesis7 for: #SHTextStylerST80 to: {Color blue};
+ set: #blockStart for: #SHTextStylerST80 to: {Color black};
+ set: #blockEnd for: #SHTextStylerST80 to: {Color black};
+ set: #blockStart1 for: #SHTextStylerST80 to: {Color green muchDarker};
+ set: #blockEnd1 for: #SHTextStylerST80 to: {Color green muchDarker};
+ set: #blockStart2 for: #SHTextStylerST80 to: {Color magenta muchDarker};
+ set: #blockEnd2 for: #SHTextStylerST80 to: {Color magenta muchDarker};
+ set: #blockStart3 for: #SHTextStylerST80 to: {Color red muchDarker};
+ set: #blockEnd3 for: #SHTextStylerST80 to: {Color red muchDarker};
+ set: #blockStart4 for: #SHTextStylerST80 to: {Color green darker};
+ set: #blockEnd4 for: #SHTextStylerST80 to: {Color green darker};
+ set: #blockStart5 for: #SHTextStylerST80 to: {Color orange darker};
+ set: #blockEnd5 for: #SHTextStylerST80 to: {Color orange darker};
+ set: #blockStart6 for: #SHTextStylerST80 to: {Color magenta darker};
+ set: #blockEnd6 for: #SHTextStylerST80 to: {Color magenta darker};
+ set: #blockStart7 for: #SHTextStylerST80 to: {Color blue};
+ set: #blockEnd7 for: #SHTextStylerST80 to: {Color blue};
+ set: #arrayStart for: #SHTextStylerST80 to: {Color black};
+ set: #arrayEnd for: #SHTextStylerST80 to: {Color black};
+ set: #arrayStart1 for: #SHTextStylerST80 to: {Color black};
+ set: #arrayEnd1 for: #SHTextStylerST80 to: {Color black};
+ set: #byteArrayStart for: #SHTextStylerST80 to: {Color black};
+ set: #byteArrayEnd for: #SHTextStylerST80 to: {Color black};
+ set: #byteArrayStart1 for: #SHTextStylerST80 to: {Color black};
+ set: #byteArrayEnd1 for: #SHTextStylerST80 to: {Color black};
+ set: #leftBrace for: #SHTextStylerST80 to: {Color black};
+ set: #rightBrace for: #SHTextStylerST80 to: {Color black};
+ set: #cascadeSeparator for: #SHTextStylerST80 to: {Color black};
+ set: #statementSeparator for: #SHTextStylerST80 to: {Color black};
+ set: #externalCallType for: #SHTextStylerST80 to: {Color black};
+ set: #externalCallTypePointerIndicator for: #SHTextStylerST80 to: {Color black};
+ set: #primitiveOrExternalCallStart for: #SHTextStylerST80 to: {Color black};
+ set: #primitiveOrExternalCallEnd for: #SHTextStylerST80 to: {Color black};
+ set: #methodTempBar for: #SHTextStylerST80 to: {Color gray};
+ set: #blockTempBar for: #SHTextStylerST80 to: {Color gray};
+ set: #blockArgsBar for: #SHTextStylerST80 to: {Color gray};
+ set: #primitive for: #SHTextStylerST80 to: {Color green muchDarker. TextEmphasis bold};
+ set: #pragmaKeyword for: #SHTextStylerST80 to: {Color green muchDarker. TextEmphasis bold};
+ set: #pragmaUnary for: #SHTextStylerST80 to: {Color green muchDarker. TextEmphasis bold};
+ set: #pragmaBinary for: #SHTextStylerST80 to: {Color green muchDarker. TextEmphasis bold};
+ set: #externalFunctionCallingConvention for: #SHTextStylerST80 to: {Color green muchDarker. TextEmphasis bold};
+ set: #module for: #SHTextStylerST80 to: {Color green muchDarker. TextEmphasis bold};
+ set: #blockTempVar for: #SHTextStylerST80 to: {Color gray};
+ set: #blockPatternTempVar for: #SHTextStylerST80 to: {Color gray};
+ set: #instVar for: #SHTextStylerST80 to: {Color black};
+ set: #workspaceVar for: #SHTextStylerST80 to: {Color black};
+ set: #undefinedIdentifier for: #SHTextStylerST80 to: {Color red};
+ set: #incompleteIdentifier for: #SHTextStylerST80 to: {Color gray darker. {TextEmphasis italic. TextEmphasis underlined}};
+ set: #tempVar for: #SHTextStylerST80 to: {Color gray darker};
+ set: #patternTempVar for: #SHTextStylerST80 to: {Color gray darker};
+ set: #poolConstant for: #SHTextStylerST80 to: {Color gray muchDarker};
+ set: #classVar for: #SHTextStylerST80 to: {Color gray muchDarker};
+ set: #globalVar for: #SHTextStylerST80 to: {Color black}.
+
+ "And the text differ"
+ theme
+ set: #insertTextAttributes for: #TextDiffBuilder to: { TextColor red };
+ set: #removeTextAttributes for: #TextDiffBuilder to: { TextEmphasis struckOut. TextColor blue };
+ set: #normalTextAttributes for: #TextDiffBuilder to: { TextEmphasis normal }.!
Item was added:
+ ----- Method: SqueakTheme class>>addWindowColors: (in category 'instance creation') -----
+ addWindowColors: theme
+
+ theme
+ set: #titleFont for: #SystemWindow to: [Preferences windowTitleFont];
+ set: #borderColorModifier for: #SystemWindow to: [ [:c | c adjustBrightness: -0.3] ];
+ set: #borderWidth for: #SystemWindow to: 1;
+
+ set: #uniformWindowColor for: #Model to: Color veryVeryLightGray;
+ derive: #uniformWindowColor for: #TranscriptStream from: #Model;
+
+ set: #unfocusedWindowColorModifier for: #SystemWindow to: [ [:color | color darker] ];
+ set: #unfocusedLabelColor for: #SystemWindow to: Color darkGray;
+ set: #focusedLabelColor for: #SystemWindow to: Color black;
+
+ set: #customWindowColor for: #Browser to: (Color r: 0.764 g: 0.9 b: 0.63);
+ set: #customWindowColor for: #ChangeList to: (Color r: 0.719 g: 0.9 b: 0.9);
+ set: #customWindowColor for: #ChangeSorter to: (Color r: 0.719 g: 0.9 b: 0.9);
+ set: #customWindowColor for: #ChatNotes to: (Color r: 1.0 g: 0.7 b: 0.8);
+ set: #customWindowColor for: #ClassCommentVersionsBrowser to: (Color r: 0.753 g: 0.677 b: 0.9);
+ set: #customWindowColor for: #Debugger to: (Color r: 0.9 g: 0.719 b: 0.719);
+ set: #customWindowColor for: #DualChangeSorter to: (Color r: 0.719 g: 0.9 b: 0.9);
+ set: #customWindowColor for: #FileContentsBrowser to: (Color r: 0.7 g: 0.7 b: 0.508);
+ set: #customWindowColor for: #FileList to: (Color r: 0.65 g: 0.65 b: 0.65);
+ set: #customWindowColor for: #InstanceBrowser to: (Color r: 0.726 g: 0.9 b: 0.9);
+ set: #customWindowColor for: #Lexicon to: (Color r: 0.79 g: 0.9 b: 0.79);
+ set: #customWindowColor for: #MCTool to: (Color r: 0.65 g: 0.691 b: 0.876);
+ set: #customWindowColor for: #MessageNames to: (Color r: 0.639 g: 0.9 b: 0.497);
+ set: #customWindowColor for: #MessageSet to: (Color r: 0.719 g: 0.9 b: 0.9);
+ set: #customWindowColor for: #PackagePaneBrowser to: (Color r: 0.9 g: 0.9 b: 0.63);
+ set: #customWindowColor for: #PluggableFileList to: Color lightYellow;
+ set: #customWindowColor for: #PreferenceBrowser to: (Color r: 0.671 g: 0.9 b: 0.9);
+ set: #customWindowColor for: #SMLoader to: (Color r: 0.801 g: 0.801 b: 0.614);
+ set: #customWindowColor for: #SMLoaderPlus to: (Color r: 0.801 g: 0.801 b: 0.614);
+ set: #customWindowColor for: #SMReleaseBrowser to: (Color r: 0.801 g: 0.801 b: 0.614);
+ set: #customWindowColor for: #ScriptingDomain to: (Color r: 0.91 g: 0.91 b: 0.91);
+ set: #customWindowColor for: #SelectorBrowser to: (Color r: 0.45 g: 0.9 b: 0.9);
+ set: #customWindowColor for: #StringHolder to: (Color r: 0.9 g: 0.9 b: 0.719);
+ set: #customWindowColor for: #TestRunner to: (Color r: 0.9 g: 0.576 b: 0.09);
+ set: #customWindowColor for: #TranscriptStream to: (Color r: 0.9 g: 0.75 b: 0.45);
+ set: #customWindowColor for: #VersionsBrowser to: (Color r: 0.782 g: 0.677 b: 0.9).!
Item was added:
+ ----- Method: SqueakTheme class>>create (in category 'instance creation') -----
+ create
+ "This is the default theme for Squeak.
+
+ self create. "
+
+ ^ (self named: 'Squeak') in: [:theme |
+ "General morph stuff."
+ theme
+ set: #keyboardFocusColor for: #Morph to: (TranslucentColor r: 0.3 g: 0.5 b: 0.5 alpha: 0.5);
+ set: #keyboardFocusWidth for: #Morph to: 3;
+ set: #softShadowColor for: #Morph to: (Color black alpha: 0.01);
+ set: #softShadowOffset for: #Morph to: (10 at 8 corner: 10 at 12);
+ set: #hardShadowColor for: #Morph to: (Color black alpha: 0.5);
+ set: #hardShadowOffset for: #Morph to: 1 at 1.
+
+ self
+ addFonts: theme;
+ addWindowColors: theme;
+ addSyntaxHighlighting: theme;
+ addMenusAndDockingBars: theme;
+ addDialogs: theme;
+ addButtons: theme;
+ addScrollables: theme.
+
+ theme]!
Item was added:
+ ----- Method: SqueakTheme class>>createClassic (in category 'instance creation') -----
+ createClassic
+ "self createClassic"
+
+ ^ (self named: 'Squeak (classic code style)') in: [:theme |
+ theme link: (self named: 'Squeak').
+ self addClassicSyntaxHighlighting: theme.
+ theme]!
Item was added:
+ ----- Method: SqueakTheme class>>createDuller (in category 'instance creation') -----
+ createDuller
+ "self createDuller apply"
+
+ | name |
+ name := 'Squeak (duller windows)'.
+ ^ (self named:name) in: [:theme |
+ theme merge: (self named: 'Squeak').
+ theme name: name.
+ self addDullerWindowColors: theme.
+ theme]!
Item was changed:
+ (PackageInfo named: 'System') postscript: 'SqueakTheme create apply.
+ SqueakTheme createClassic; createDuller.
+ SolarizedTheme createDark; createLight.
+ MonokaiTheme createDark.
+ CommunityTheme createDark.'!
- (PackageInfo named: 'System') postscript: 'Preferences allPreferences
- select: [:ea | ea name endsWith: #WindowColor]
- thenDo: [:ea | Preferences removePreference: ea name].'!
More information about the Packages
mailing list