[squeak-dev] The Trunk: System-cmm.863.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Aug 5 04:45:46 UTC 2016
Chris Muller uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-cmm.863.mcz
==================== Summary ====================
Name: System-cmm.863
Author: cmm
Time: 4 August 2016, 11:45:16.067202 pm
UUID: 6ebf00a2-b037-4d71-a877-e905acb5fdd6
Ancestors: System-mt.862
Community Dark Theme.
=============== Diff against System-mt.862 ===============
Item was changed:
----- Method: CommunityTheme class>>addDarkButtons: (in category 'instance creation') -----
+ addDarkButtons: aUserInterfaceTheme
- addDarkButtons: theme
"self createDark apply."
+ aUserInterfaceTheme
+ set: #borderColor for: #PluggableButtonMorph to: Color darkGray darker ;
+ set: #color for: #PluggableButtonMorph to: Color gray darker ;
- theme
- set: #borderColor for: #PluggableButtonMorph to: Color gray ;
- set: #color for: #PluggableButtonMorph to: Color darkGray ;
set: #textColor for: #PluggableButtonMorph to: Color white;
+ set: #selectionModifier for: #PluggableButtonMorph to: [ [:c | self dbSelection twiceDarker] ];
- set: #selectionModifier for: #PluggableButtonMorph to: [ [:c | self dbAqua twiceDarker] ];
set: #hoverModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: 0.2] ];
set: #feedbackModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: 0.3] ].
-
"And the plus-version."
+ aUserInterfaceTheme set: #disabledTextColor for: #PluggableButtonMorphPlus to: Color lightGray!
- theme set: #disabledTextColor for: #PluggableButtonMorphPlus to: Color gray.
- !
Item was changed:
----- Method: CommunityTheme class>>addDarkDialogs: (in category 'instance creation') -----
+ addDarkDialogs: aUserInterfaceTheme
- addDarkDialogs: theme
"self createDark apply."
+ aUserInterfaceTheme
- 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 | self dbSelection twiceDarker ] ].
- set: #selectionModifier for: #DialogWindow to: [ [:c | c adjustBrightness: 0.2 ] ].
-
"The List Chooser is a dialog, too."
+ aUserInterfaceTheme
- theme
set: #addColor for: #ListChooser to: self dbBlue;
set: #disabledColor for: #ListChooser to: Color transparent.
-
-
"And the system progress bar."
+ aUserInterfaceTheme
- theme
set: #color for: #SystemProgressBarMorph to: Color transparent;
+ set: #barColor for: #SystemProgressBarMorph to: self dbSelection.
- set: #barColor for: #SystemProgressBarMorph to: Color darkGray.
-
"And the balloon morphs."
+ aUserInterfaceTheme
+ set: #borderColor for: #BalloonMorph to: Color transparent ;
+ set: #color for: #BalloonMorph to: (self dbOrange twiceDarker alpha: 0.9) ;
+ set: #textColor for: #BalloonMorph to: Color white ;
+ set: #font for: #BalloonMorph to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis italic emphasisCode) ;
+ derive: #borderColor for: #NewBalloonMorph from: #BalloonMorph at: #borderColor ;
+ derive: #color for: #NewBalloonMorph from: #BalloonMorph at: #color!
- theme
- set: #borderColor for: #NewBalloonMorph to: Color black;
- set: #color for: #NewBalloonMorph to: (Color cyan muchDarker alpha: 0.7).!
Item was changed:
----- Method: CommunityTheme class>>addDarkFonts: (in category 'instance creation') -----
+ addDarkFonts: aUserInterfaceTheme
- addDarkFonts: theme
-
"Set-up fonts."
+ aUserInterfaceTheme
+ set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis italic emphasisCode);
- 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: 'Bitmap DejaVu Sans' pointSize: 9);
+ set: #standardDefaultTextFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9);
- 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: '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: '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 changed:
----- Method: CommunityTheme class>>addDarkMenusAndDockingBars: (in category 'instance creation') -----
+ addDarkMenusAndDockingBars: aUserInterfaceTheme
- addDarkMenusAndDockingBars: theme
"self createDark apply."
+ aUserInterfaceTheme
- theme
set: #borderWidth for: #MenuMorph to: 0;
+ set: #color for: #MenuMorph to: Color darkGray twiceDarker;
- set: #color for: #MenuMorph to: Color darkGray;
set: #titleTextColor for: #MenuMorph to: Color white;
+ set: #lineColor for: #MenuMorph to: Color darkGray;
- set: #lineColor for: #MenuMorph to: Color lightGray;
set: #lineStyle for: #MenuMorph to: BorderStyle default;
set: #lineWidth for: #MenuMorph to: 1.
+ aUserInterfaceTheme
+ set: #textColor for: #MenuItemMorph to: self dbForeground;
+ set: #selectionColor for: #MenuItemMorph to: self dbSelection;
+ set: #selectionTextColor for: #MenuItemMorph to: self dbForeground ;
+ set: #disabledTextColor for: #MenuItemMorph to: self dbForeground muchDarker.
-
- theme
- set: #textColor for: #MenuItemMorph to: Color white;
- set: #selectionColor for: #MenuItemMorph to: self dbAqua;
- set: #selectionTextColor for: #MenuItemMorph to: Color white.
"set: #subMenuMarker for: #MenuItemMorph to: nil." "Use hard-coded default. See MenuItemMorph."
-
"The world main docking bar."
+ aUserInterfaceTheme
- 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!
- set: #selectionLogoColor for: #TheWorldMainDockingBar to: Color black.!
Item was changed:
----- Method: CommunityTheme class>>addDarkScrollables: (in category 'instance creation') -----
+ addDarkScrollables: aUserInterfaceTheme
- addDarkScrollables: theme
"self createDark apply."
-
"Scroll bars"
+ aUserInterfaceTheme
+ set: #thumbColor for: #ScrollBar to: self dbGray;
+ set: #thumbBorderColor for: #ScrollBar to: self dbGray twiceDarker.
- 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."
+ aUserInterfaceTheme
- theme
set: #color for: #ScrollPane to: (Color gray: 0.1).
-
"List widgets"
+ aUserInterfaceTheme
- theme
set: #textColor for: #PluggableListMorph to: (Color gray: 0.9);
+ set: #selectionColor for: #PluggableListMorph to: self dbSelection;
+ derive: #selectionTextColor for: #PluggableListMorph from: #PluggableListMorph at: #textColor ;
- set: #selectionColor for: #PluggableListMorph to: self dbAqua;
- set: #selectionTextColor for: #PluggableListMorph to: Color white;
derive: #multiSelectionColor for: #PluggableListMorph from: #PluggableListMorph at: #selectionColor do: [:c | c twiceDarker];
set: #filterColor for: #PluggableListMorph to: (self dbYellow alpha: 0.5);
+ derive: #filterTextColor for: #PluggableListMorph from: #PluggableListMorph at: #textColor ;
- set: #filterTextColor for: #PluggableListMorph to: Color white;
set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | c twiceDarker ] ];
set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c twiceDarker alpha: 0.5 ] ].
-
"Tree widgets"
+ aUserInterfaceTheme
- theme
set: #highlightTextColor for: #SimpleHierarchicalListMorph to: self dbYellow lighter lighter;
set: #lineColor for: #SimpleHierarchicalListMorph to: Color gray.
-
"Text widgets"
+ aUserInterfaceTheme
- theme
set: #textColor for: #PluggableTextMorph to: (Color gray: 0.9);
+ set: #caretColor for: #PluggableTextMorph to: Color orange darker;
+ set: #selectionColor for: #PluggableTextMorph to: (self dbSelection darker duller);
- 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;
+ set: #frameAdornmentWidth for: PluggableTextMorph to: 2.
+ aUserInterfaceTheme
+ set: #balloonTextColor for: #PluggableTextMorphPlus to: Color lightGray!
- set: #adornmentDiffEdit for: #PluggableTextMorph to: self dbYellow.
- theme
- set: #balloonTextColor for: #PluggableTextMorphPlus to: Color darkGray.!
Item was changed:
----- Method: CommunityTheme class>>addDarkSyntaxHighlighting: (in category 'instance creation') -----
+ addDarkSyntaxHighlighting: aUserInterfaceTheme
- addDarkSyntaxHighlighting: theme
"self createDark apply."
+ | normal bold italic underlined darkMap | normal := TextEmphasis normal. bold:=TextEmphasis bold. italic:=TextEmphasis italic. underlined := TextEmphasis underlined. darkMap := StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9.
+ aUserInterfaceTheme
- theme
set: #default for: #SHTextStylerST80 to: {self dbForeground};
+ set: #invalid for: #SHTextStylerST80 to: {self dbInvalid};
+ set: #excessCode for: #SHTextStylerST80 to: {self dbInvalid twiceDarker};
+ "Descriptive text for humans, italicized."
+ set: #comment for: #SHTextStylerST80 to: {self dbComment. italic};
+ set: #unfinishedComment for: #SHTextStylerST80 to: {self dbComment darker. italic};
+ set: #'$' for: #SHTextStylerST80 to: {self dbConstant};
+ set: #character for: #SHTextStylerST80 to: {self dbConstant};
+ set: #integer for: #SHTextStylerST80 to: {self dbConstant};
+ set: #number for: #SHTextStylerST80 to: {self dbConstant};
+ set: #- for: #SHTextStylerST80 to: {self dbForeground. bold};
+ set: #= for: #SHTextStylerST80 to: {self dbForeground. bold};
+ set: #symbol for: #SHTextStylerST80 to: {self dbBedrock};
+ set: #stringSymbol for: #SHTextStylerST80 to: {self dbBedrock};
+ set: #literalArray for: #SHTextStylerST80 to: {self dbForeground};
+ set: #string for: #SHTextStylerST80 to: {self dbConstant};
+ set: #unfinishedString for: #SHTextStylerST80 to: {self dbConstant darker};
+ set: #assignment for: #SHTextStylerST80 to: {nil. bold};
+ set: #ansiAssignment for: #SHTextStylerST80 to: {nil. bold};
+ set: #literal for: #SHTextStylerST80 to: {nil. bold};
+ set: #keyword for: #SHTextStylerST80 to: {self dbMessage};
+ set: #binary for: #SHTextStylerST80 to: {self dbForeground. bold};
+ set: #unary for: #SHTextStylerST80 to: {self dbMessage};
+ set: #incompleteKeyword for: #SHTextStylerST80 to: {self dbMessage darker. {underlined. bold}};
+ set: #incompleteBinary for: #SHTextStylerST80 to: {self dbMessage darker. underlined};
+ set: #incompleteUnary for: #SHTextStylerST80 to: {self dbMessage darker. underlined};
+ set: #undefinedKeyword for: #SHTextStylerST80 to: {self dbInvalid};
+ set: #undefinedBinary for: #SHTextStylerST80 to: {self dbInvalid};
+ set: #undefinedUnary for: #SHTextStylerST80 to: {self dbInvalid};
+ "Delineate the selector (good for new users), and make the method look like a mini-document with a title."
+ set: #patternKeyword for: #SHTextStylerST80 to: {self dbMessage lighter. underlined. darkMap};
+ set: #patternBinary for: #SHTextStylerST80 to: {nil. bold};
+ set: #patternUnary for: #SHTextStylerST80 to: {self dbMessage lighter. underlined. darkMap};
+ set: #self for: #SHTextStylerST80 to: {self dbBedrock. bold};
+ set: #super for: #SHTextStylerST80 to: {self dbBedrock. bold};
+ set: #true for: #SHTextStylerST80 to: {self dbBedrock. bold};
+ set: #false for: #SHTextStylerST80 to: {self dbBedrock. bold};
+ set: #nil for: #SHTextStylerST80 to: {self dbBedrock. bold};
+ set: #thisContext for: #SHTextStylerST80 to: {self dbBedrock. bold};
+ set: #return for: #SHTextStylerST80 to: {self dbForeground. bold};
+ set: #patternArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter. TextEmphasis normal. darkMap};
+ set: #methodArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter. TextEmphasis normal. darkMap};
+ set: #blockPatternArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter};
+ set: #blockArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter};
+ set: #argument for: #SHTextStylerST80 to: {self dbSelection twiceLighter};
+ set: #blockArgColon for: #SHTextStylerST80 to: {self dbBedrock};
+ set: #leftParenthesis for: #SHTextStylerST80 to: {self dbBedrock};
+ set: #rightParenthesis for: #SHTextStylerST80 to: {self dbBedrock};
- 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 dbBedrock};
+ set: #blockEnd for: #SHTextStylerST80 to: {self dbBedrock};
- 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 dbBedrock};
+ set: #arrayEnd for: #SHTextStylerST80 to: {self dbBedrock};
- 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 dbBedrock};
+ set: #blockTempBar for: #SHTextStylerST80 to: {self dbBedrock};
+ set: #blockArgsBar for: #SHTextStylerST80 to: {self dbBedrock};
+ set: #primitive for: #SHTextStylerST80 to: {self dbGreen lighter. bold};
+ set: #pragmaKeyword for: #SHTextStylerST80 to: {self dbGreen. bold};
+ set: #pragmaUnary for: #SHTextStylerST80 to: {self dbGreen. bold};
+ set: #pragmaBinary for: #SHTextStylerST80 to: {self dbGreen. bold};
+ set: #externalFunctionCallingConvention for: #SHTextStylerST80 to: {self dbGreen. bold};
+ set: #module for: #SHTextStylerST80 to: {self dbGreen. bold};
+ set: #blockTempVar for: #SHTextStylerST80 to: {self dbLocal. italic};
+ set: #blockPatternTempVar for: #SHTextStylerST80 to: {self dbLocal. italic};
+ set: #instVar for: #SHTextStylerST80 to: {self dbYellow. normal. darkMap};
+ set: #workspaceVar for: #SHTextStylerST80 to: {self dbLocal. italic. darkMap};
+ set: #undefinedIdentifier for: #SHTextStylerST80 to: {self dbInvalid};
+ set: #incompleteIdentifier for: #SHTextStylerST80 to: {self dbGray. underlined};
+ set: #tempVar for: #SHTextStylerST80 to: {self dbLocal. italic};
+ set: #patternTempVar for: #SHTextStylerST80 to: {self dbLocal. italic};
+ set: #poolConstant for: #SHTextStylerST80 to: {self dbConstant };
+ set: #classVar for: #SHTextStylerST80 to: {self dbReference};
+ set: #globalVar for: #SHTextStylerST80 to: {self dbClass. normal. darkMap}.
- 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"
+ aUserInterfaceTheme
- 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 changed:
----- Method: CommunityTheme class>>addDarkWindowColors: (in category 'instance creation') -----
+ addDarkWindowColors: aUserInterfaceTheme
- addDarkWindowColors: theme
"self createDark apply."
+ aUserInterfaceTheme
- theme
set: #uniformWindowColor for: #Model to: Color darkGray;
set: #unfocusedWindowColorModifier for: #SystemWindow to: [ [:color | color darker] ];
set: #unfocusedLabelColor for: #SystemWindow to: Color veryLightGray;
set: #focusedLabelColor for: #SystemWindow to: Color white;
+ set: #customWindowColor for: #Browser to: self dbBlue;
- 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 dbOrange;
+ set: #customWindowColor for: #FileContentsBrowser to: self dbGray;
+ set: #customWindowColor for: #FileList to: self dbGray;
+ set: #customWindowColor for: #Inspector to: self dbYellow duller;
+ set: #customWindowColor for: #InstanceBrowser to: self dbYellow duller;
+ set: #customWindowColor for: #Lexicon to: self dbGreen;
+ set: #customWindowColor for: #MCTool to: self dbOrange twiceDarker;
- 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 dbGreen;
+ set: #customWindowColor for: #ObjectExplorer to: self dbYellow duller;
+ set: #customWindowColor for: #PackagePaneBrowser to: self dbBlue;
+ set: #customWindowColor for: #PluggableFileList to: self dbGray;
- 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 duller;
- set: #customWindowColor for: #ScriptingDomain to: self dbYellow;
set: #customWindowColor for: #SelectorBrowser to: self dbBlue;
+ set: #customWindowColor for: #StringHolder to: self dbGray;
- set: #customWindowColor for: #StringHolder to: self dbYellow;
set: #customWindowColor for: #TestRunner to: self dbOrange;
+ set: #customWindowColor for: #TranscriptStream to: self dbGray;
+ set: #customWindowColor for: #VersionsBrowser to: self dbPurple;
+ set: #customWindowColor for: #Workspace to: self dbGray.!
- set: #customWindowColor for: #TranscriptStream to: self dbOrange;
- set: #customWindowColor for: #VersionsBrowser to: self dbPurple.!
Item was changed:
----- 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: (self dbSelection adjustSaturation: -0.5 brightness: 0.25);
+ set: #keyboardFocusWidth for: #Morph to: 2;
+ set: #softShadowColor for: #Morph to: (self dbSelection muchLighter alpha: 0.02);
- 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: (self dbSelection muchLighter alpha: 0.02);
- 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 changed:
+ ----- Method: CommunityTheme class>>dbAqua (in category 'colors') -----
- ----- Method: CommunityTheme class>>dbAqua (in category 'colors by purpose') -----
dbAqua
^ Color r: 0.2 g: 0.4 b: 0.4!
Item was changed:
----- Method: CommunityTheme class>>dbBackground (in category 'colors by purpose') -----
+ dbBackground
+ "Emptiness."
+ ^Color r: 0.1 g: 0.1 b: 0.1!
- dbBackground
- ^Color r: 0.113 g: 0.121 b: 0.129
- !
Item was added:
+ ----- Method: CommunityTheme class>>dbBedrock (in category 'colors by purpose') -----
+ dbBedrock
+ "Basic syntactical matter which users cannot change."
+ ^ self dbForeground!
Item was changed:
+ ----- Method: CommunityTheme class>>dbBlue (in category 'colors') -----
- ----- Method: CommunityTheme class>>dbBlue (in category 'colors by purpose') -----
dbBlue
^Color r: 0.406 g: 0.535 b: 0.645!
Item was added:
+ ----- Method: CommunityTheme class>>dbClass (in category 'colors by purpose') -----
+ dbClass
+ ^ self dbBlue!
Item was changed:
----- Method: CommunityTheme class>>dbComment (in category 'colors by purpose') -----
+ dbComment
+ "The code should speak for itself. Where it cannot, any comments should just be subtle, clarifying whispers."
+ ^ Color gray darker!
- dbComment
- ^Color r: 0.588 g: 0.596 b: 0.588
- !
Item was added:
+ ----- Method: CommunityTheme class>>dbConstant (in category 'colors by purpose') -----
+ dbConstant
+ "Let unparameterized constants stand out in red."
+ ^ self dbRed!
Item was removed:
- ----- Method: CommunityTheme class>>dbCurrentLine (in category 'colors by purpose') -----
- dbCurrentLine
- ^Color r:0.156 g: 0.164 b: 0.181!
Item was changed:
----- Method: CommunityTheme class>>dbForeground (in category 'colors by purpose') -----
+ dbForeground
+ "Not too bright."
+ ^Color r: 0.764 g: 0.776 b: 0.768!
- dbForeground
- ^Color r: 0.772 g: 0.784 b: 0.776!
Item was added:
+ ----- Method: CommunityTheme class>>dbGray (in category 'colors') -----
+ dbGray
+ ^ Color gray slightlyDarker!
Item was changed:
+ ----- Method: CommunityTheme class>>dbGreen (in category 'colors') -----
- ----- Method: CommunityTheme class>>dbGreen (in category 'colors by purpose') -----
dbGreen
^(Color r: 0.33 g: 0.542 b: 0.287)!
Item was added:
+ ----- Method: CommunityTheme class>>dbInvalid (in category 'colors by purpose') -----
+ dbInvalid
+ "Purposefully bright, so that it conflicts with the rest of the palette, visually indicative of a problem."
+ ^ Color magenta twiceDarker!
Item was added:
+ ----- Method: CommunityTheme class>>dbLocal (in category 'colors by purpose') -----
+ dbLocal
+ "Local variables can be descriptive, sometimes saving the need for a comment."
+ ^ self dbPink!
Item was added:
+ ----- Method: CommunityTheme class>>dbMessage (in category 'colors by purpose') -----
+ dbMessage
+ "Green is the universal color for okay, positive, go. In Squeak, sending messages are what make objects 'go'."
+ ^ self dbGreen
+ adjustSaturation: 0.05
+ brightness: 0.10!
Item was changed:
+ ----- Method: CommunityTheme class>>dbOrange (in category 'colors') -----
- ----- Method: CommunityTheme class>>dbOrange (in category 'colors by purpose') -----
dbOrange
+ ^Color r: 0.871 g: 0.577 b: 0.372!
- ^Color r: 0.4 g: 0.2666 b: 0.172!
Item was added:
+ ----- Method: CommunityTheme class>>dbPink (in category 'colors') -----
+ dbPink
+ ^ (Color r: 0.739 g: 0.552 b: 0.652)!
Item was changed:
+ ----- Method: CommunityTheme class>>dbPurple (in category 'colors') -----
- ----- Method: CommunityTheme class>>dbPurple (in category 'colors by purpose') -----
dbPurple
^Color r: 0.698 g: 0.581 b: 0.733!
Item was changed:
+ ----- Method: CommunityTheme class>>dbRed (in category 'colors') -----
- ----- Method: CommunityTheme class>>dbRed (in category 'colors by purpose') -----
dbRed
^Color r: 0.6 g: 0.3 b: 0.3!
Item was added:
+ ----- Method: CommunityTheme class>>dbReference (in category 'colors by purpose') -----
+ dbReference
+ "References to other objects. Yellow like gold."
+ ^ self dbYellow!
Item was changed:
----- Method: CommunityTheme class>>dbSelection (in category 'colors by purpose') -----
+ dbSelection
+ "Selections are transient, like electricity, so a good neon color. The arguments passed to methods and blocks could be considered as much, 'selections', as those made from a list or menu."
+ ^ self dbAqua adjustSaturation: 0.10 brightness: 0.10!
- dbSelection
- ^Color r: 0.216 g: 0.232 b: 0.255!
Item was changed:
+ ----- Method: CommunityTheme class>>dbYellow (in category 'colors') -----
- ----- Method: CommunityTheme class>>dbYellow (in category 'colors by purpose') -----
dbYellow
+ ^ (Color r: 0.675 g: 0.632 b: 0.16)!
- ^ (Color r: 0.554 g: 0.488 b: 0.134)!
More information about the Squeak-dev
mailing list
|