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

commits at source.squeak.org commits at source.squeak.org
Sat Aug 13 20:25:05 UTC 2016


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

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

Name: System-cmm.885
Author: cmm
Time: 13 August 2016, 3:24:30.956748 pm
UUID: 15a3a5a3-dad4-4dfd-bdb5-f8eb77d2ba3e
Ancestors: System-mt.884

Theme setting the regular ProgressMorph, thanks Chris Cunningham, and a final tweaks for better visibility of "print it" output (which renders as #dbInvalid when syntax-highlighting is on).

=============== Diff against System-mt.884 ===============

Item was added:
+ ----- Method: CommunityTheme class>>addDarkProgressMorph: (in category 'instance creation') -----
+ addDarkProgressMorph: aUserInterfaceTheme
+ 	"self createDark apply."
+ 	aUserInterfaceTheme
+ 		set: #borderColor for: #ProgressMorph to: Color lightGray ;
+ 		set: #color for: #ProgressMorph 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;
  		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.4);
  		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 duller duller);
- 		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>>createDark (in category 'instance creation') -----
  createDark
  	"self createDark apply."
  	| name |
  	name := 'Community (dark)'.
  	^ (self named: name) in: [:theme |
  		theme merge: (self named: 'Squeak') overwrite: true.
  		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: #keyboardFocusWidth for: #Morph to: 2;
  			set: #softShadowColor for: #Morph to: (self dbSelection muchLighter alpha: 0.025);
  			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;
+ 			addDarkProgressMorph: theme.
- 			addDarkMenusAndDockingBars: theme.
  		theme]!

Item was changed:
  ----- 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 twiceLighter!
- 	^ Color magenta twiceDarker!



More information about the Packages mailing list