[Pkg] The Trunk: System-cmm.871.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Aug 9 02:58:34 UTC 2016 

Chris Muller uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-cmm.871.mcz

==================== Summary ====================

Name: System-cmm.871
Author: cmm
Time: 8 August 2016, 9:58:01.729579 pm
UUID: 835252c8-ee56-40c1-81cd-bbb46022ca45
Ancestors: System-mt.870

Some CommunityTheme #dark tweaks and fixes after an evening working with it:
	- Dialogs were completely gray, gave them a little color.
	- A font and dbBackground adjustment for better clarity and contrast with text.
	- Selected menu items are easier to read (brightened #selectionTextColor).
	- Softer filter indication provides better contrast in the filter-indication of lists.
	- Some of the window colors were too bright, darkened them.
	- The search box delineation was too bright, eliminated it.
	- Keyboard focus color was too bright, subtlized it.
	- However, a bolder and brighter dbSelection (dbAqua) has improved stepping through code in the debugger, especially long methods.

=============== Diff against System-mt.870 ===============

Item was changed:
  ----- Method: CommunityTheme class>>addDarkDialogs: (in category 'instance creation') -----
  addDarkDialogs: aUserInterfaceTheme
  	"self createDark apply."
  	aUserInterfaceTheme
+ 		set: #borderColor for: #DialogWindow to: self dbSelection;
+ 		set: #color for: #DialogWindow to: (self dbBlue adjustSaturation: -0.20 brightness: -0.30);
- 		set: #borderColor for: #DialogWindow to: Color darkGray;
- 		set: #color for: #DialogWindow to: Color gray;
  
+ 		set: #titleColor for: #DialogWindow to: self dbBlue twiceDarker;
+ 		set: #titleTextColor for: #DialogWindow to: Color veryLightGray;
- 		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 ] ].
  	"The List Chooser is a dialog, too."
  	aUserInterfaceTheme
  		set: #addColor for: #ListChooser to: self dbBlue;
  		set: #disabledColor for: #ListChooser to: Color transparent.
  	"And the system progress bar."
  	aUserInterfaceTheme
  		set: #color for: #SystemProgressBarMorph to: Color transparent;
  		set: #barColor for: #SystemProgressBarMorph to: self dbSelection.
  	"And the balloon morphs."
  	aUserInterfaceTheme
  		set: #borderColor for: #NewBalloonMorph to: Color transparent ;
  		set: #color for: #NewBalloonMorph to: (self dbOrange twiceDarker alpha: 0.9) ;
  		set: #textColor for: #NewBalloonMorph to: Color white .!

Item was changed:
  ----- Method: CommunityTheme class>>addDarkFonts: (in category 'instance creation') -----
  addDarkFonts: aUserInterfaceTheme
  	"Set-up fonts."
  	aUserInterfaceTheme
  		set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis italic emphasisCode);
  		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: #standardFlapFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode);
- 		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: 'Bitmap DejaVu Sans' pointSize: 9 emphasized: TextEmphasis bold emphasisCode)!
- 		set: #windowTitleFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9)!

Item was changed:
  ----- Method: CommunityTheme class>>addDarkMenusAndDockingBars: (in category 'instance creation') -----
  addDarkMenusAndDockingBars: aUserInterfaceTheme
  	"self createDark apply."
  	aUserInterfaceTheme
  		set: #borderWidth for: #MenuMorph to: 0;
  		set: #color for: #MenuMorph to: Color darkGray twiceDarker;
  		set: #titleTextColor for: #MenuMorph to: Color white;
  		set: #lineColor for: #MenuMorph to: Color darkGray;
  		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: Color white ;
- 		set: #selectionTextColor for: #MenuItemMorph to: self dbForeground ;
  		set: #disabledTextColor for: #MenuItemMorph to: self dbForeground muchDarker.
  		"set: #subMenuMarker for: #MenuItemMorph to: nil." "Use hard-coded default. See MenuItemMorph."
  	"The world main docking bar."
  	aUserInterfaceTheme
  "		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 changed:
  ----- Method: CommunityTheme class>>addDarkScrollables: (in category 'instance creation') -----
  addDarkScrollables: aUserInterfaceTheme
  	"self createDark apply."
  	"Scroll bars"
  	aUserInterfaceTheme
  		set: #thumbColor for: #ScrollBar to: self dbGray;
  		set: #thumbBorderColor for: #ScrollBar to: self dbGray twiceDarker.
  	"Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets."
  	aUserInterfaceTheme
+ 		set: #borderColor for: #ScrollPane to: (Color transparent) ; "So the search box isn't outlined."
  		set: #color for: #ScrollPane to: self dbBackground.
  	"List widgets"
  	aUserInterfaceTheme
  		set: #textColor for: #PluggableListMorph to: (Color gray: 0.9);
  		set: #selectionColor for: #PluggableListMorph to: self dbSelection;
  		derive: #selectionTextColor for: #PluggableListMorph from: #PluggableListMorph at: #textColor ;
  		derive: #multiSelectionColor for: #PluggableListMorph from: #PluggableListMorph at: #selectionColor do: [:c | c twiceDarker];
+ 		set: #filterColor for: #PluggableListMorph to: (self dbYellow alpha: 0.4);
- 		set: #filterColor for: #PluggableListMorph to: (self dbYellow alpha: 0.5);
  		derive: #filterTextColor for: #PluggableListMorph from: #PluggableListMorph at: #textColor ;
  		set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | c twiceDarker ] ];
  		set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c twiceDarker alpha: 0.5 ] ].
  	"Tree widgets"
  	aUserInterfaceTheme
  		set: #highlightTextColor for: #SimpleHierarchicalListMorph to: self dbYellow lighter lighter;
  		set: #lineColor for: #SimpleHierarchicalListMorph to: Color gray.
  	"Text widgets"
  	aUserInterfaceTheme
  		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: #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!

Item was changed:
  ----- Method: CommunityTheme class>>addDarkSyntaxHighlighting: (in category 'instance creation') -----
  addDarkSyntaxHighlighting: aUserInterfaceTheme
  	"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	
  		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.  {bold. underlined}};
- 		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.  {bold. underlined}};	
- 		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: #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: #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: #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: #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 };
+ 		set: #workspaceVar 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}.
- 		set: #globalVar for: #SHTextStylerST80 to: {self dbClass. normal. darkMap}.
  	"And the text differ"
  	aUserInterfaceTheme	
  		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
  	"self createDark apply."
  	aUserInterfaceTheme
  		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: #ChangeList to: self dbBlue;
  		set: #customWindowColor for: #ChangeSorter to: self dbBlue;
+ 		set: #customWindowColor for: #ChatNotes to: self dbPurple twiceDarker;
+ 		set: #customWindowColor for: #ClassCommentVersionsBrowser to: self dbPurple twiceDarker;
- 		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 twiceDarker;
- 		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: #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: #PreferenceBrowser to: self dbBlue;
+ 		set: #customWindowColor for: #ProcesBrowser to: self dbAqua;
+ 		set: #customWindowColor for: #SMLoader to: self dbOrange twiceDarker;
+ 		set: #customWindowColor for: #SMLoaderPlus to: self dbOrange twiceDarker;
+ 		set: #customWindowColor for: #SMReleaseBrowser to: self dbOrange twiceDarker;
- 		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: #SelectorBrowser to: self dbBlue;
  		set: #customWindowColor for: #StringHolder to: self dbGray;
+ 		set: #customWindowColor for: #TestRunner to: self dbPink darker;
- 		set: #customWindowColor for: #TestRunner to: self dbOrange;
  		set: #customWindowColor for: #TranscriptStream to: self dbGray;
+ 		set: #customWindowColor for: #VersionsBrowser to: self dbPurple twiceDarker;
+ 		set: #customWindowColor for: #Workspace to: self dbPink darker.!
- 		set: #customWindowColor for: #VersionsBrowser to: self dbPurple;
- 		set: #customWindowColor for: #Workspace to: self dbGray.!

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: #borderColor for: #ScrollPane to: (Color transparent) ;
+ 			set: #keyboardFocusColor for: #Morph to: (self dbSelection adjustSaturation: -0.3 brightness: 0.10);
- 			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.025);
- 			set: #softShadowColor for: #Morph to: (self dbSelection muchLighter alpha: 0.02);
  			set: #softShadowOffset for: #Morph to: (10 at 8 corner: 10 at 12);
  			set: #hardShadowColor for: #Morph to: (self dbSelection muchLighter alpha: 0.02);
  			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') -----
+ dbAqua
+ 	"Suitably saturated to serve as dbSelection."
+ 	^ Color r: 0.1 g: 0.5 b: 0.5!
- 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 black!
- 	^Color gray: 0.1!

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.08!
- 	^ self dbAqua adjustSaturation: 0.10 brightness: 0.10!

More information about the Packages mailing list