[Pkg] The Trunk: System-mt.1023.mcz
commits at source.squeak.org
commits at source.squeak.org
Sun May 6 13:07:08 UTC 2018
Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.1023.mcz
==================== Summary ====================
Name: System-mt.1023
Author: mt
Time: 6 May 2018, 3:07:01.547836 pm
UUID: 933c0495-6c3e-3947-9be9-c461397fe4e5
Ancestors: System-kfr.1022
Supplement to refactoring in Morphic-mt.1427.
=============== Diff against System-kfr.1022 ===============
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 simple;
- 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: #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 white!
Item was changed:
----- Method: MonokaiTheme class>>addDarkMenusAndDockingBars: (in category 'instance creation') -----
addDarkMenusAndDockingBars: theme
"self createDark apply."
theme
set: #borderWidth for: #MenuMorph to: 1;
set: #borderColor for: #MenuMorph to: self invisibleColor;
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 simple;
- set: #lineStyle for: #MenuMorph to: BorderStyle default;
set: #lineWidth for: #MenuMorph to: 1.
theme
set: #textColor for: #MenuItemMorph to: self foregroundColor;
set: #disabledTextColor for: #MenuItemMorph to: self grayLight;
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 changed:
----- Method: SolarizedTheme class>>addDarkMenusAndDockingBars: (in category 'instance creation') -----
addDarkMenusAndDockingBars: theme
"self createDark apply."
theme
set: #borderWidth for: #MenuMorph to: 1;
set: #borderColor for: #MenuMorph to: self darkBackgroundHighlights;
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 simple;
- set: #lineStyle for: #MenuMorph to: BorderStyle default;
set: #lineWidth for: #MenuMorph to: 1.
theme
set: #textColor for: #MenuItemMorph to: self darkContentEmphasized;
set: #disabledTextColor for: #MenuItemMorph to: self darkContentSecondary;
set: #selectionColor for: #MenuItemMorph to: self darkSelectionColor;
set: #selectionTextColor for: #MenuItemMorph to: self darkSelectionTextColor.
"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 changed:
----- Method: SolarizedTheme class>>addLightMenusAndDockingBars: (in category 'instance creation') -----
addLightMenusAndDockingBars: theme
"self createLight apply."
theme
set: #borderWidth for: #MenuMorph to: 1;
set: #borderColor for: #MenuMorph to: self lightBackgroundHighlights;
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 simple;
- set: #lineStyle for: #MenuMorph to: BorderStyle default;
set: #lineWidth for: #MenuMorph to: 1.
theme
set: #textColor for: #MenuItemMorph to: self lightContentEmphasized;
set: #disabledTextColor for: #MenuItemMorph to: self lightContentSecondary;
set: #selectionColor for: #MenuItemMorph to: self lightBackgroundHighlights darker;
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 changed:
----- 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 simple;
- 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).
"And the three-phase button."
theme
derive: #color for: #ThreePhaseButtonMorph from: #PluggableButtonMorph at: #textColor;
derive: #font for: #ThreePhaseButtonMorph from: #PluggableButtonMorph;
derive: #textColor for: #ThreePhaseButtonMorph from: #PluggableButtonMorph.!
Item was changed:
----- Method: SqueakTheme class>>addDialogs: (in category 'instance creation') -----
addDialogs: theme
"self create apply."
theme
set: #borderColor for: #DialogWindow to: Color gray;
set: #borderWidth for: #DialogWindow to: 1;
+ set: #borderStyle for: #DialogWindow to: BorderStyle simple;
- 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.
theme
derive: #borderColor for: #BalloonMorph from: #NewBalloonMorph;
set: #borderWidth for: #BalloonMorph to: 0;
derive: #color for: #BalloonMorph from: #NewBalloonMorph;
derive: #font for: #BalloonMorph from: #NewBalloonMorph;
derive: #textColor for: #BalloonMorph from: #NewBalloonMorph.
"And the transfer morphs."
theme
derive: #borderColor for: #TransferMorph from: #NewBalloonMorph;
derive: #borderWidth for: #TransferMorph from: #NewBalloonMorph;
derive: #color for: #TransferMorph from: #NewBalloonMorph;
derive: #font for: #TransferMorph from: #NewBalloonMorph;
derive: #textColor for: #TransferMorph from: #NewBalloonMorph. !
Item was changed:
----- 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 simple;
- 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 simple;
- 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: #disabledTextColor for: #MenuItemMorph to: Color gray;
set: #selectionColor for: #MenuItemMorph to: (Color r: 0.4 g: 0.5 b: 0.7);
set: #selectionTextColor for: #MenuItemMorph to: Color white.
"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 changed:
----- 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 simple;
- 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 standardSystemFont];
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;
set: #frameAdornmentWidth for: #PluggableTextMorph to: 1.
theme
set: #balloonTextColor for: #PluggableTextMorphPlus to: (Color gray: 0.7);
derive: #balloonTextFont for: #PluggableTextMorphPlus from: #PluggableTextMorph at: #font.!
Item was changed:
----- Method: SqueakTheme class>>addToolColors: (in category 'instance creation') -----
addToolColors: theme
"Tool-specific colors."
"SUnit's TestRunner."
theme
set: #failureColor for: #TestRunner to: Color yellow;
set: #errorColor for: #TestRunner to: Color red;
set: #passColor for: #TestRunner to: Color green;
derive: #failureTextColor for: #TestRunner from: #PluggableTextMorph at: #textColor;
derive: #errorTextColor for: #TestRunner from: #PluggableTextMorph at: #textColor;
derive: #passTextColor for: #TestRunner from: #PluggableTextMorph at: #textColor.
"Monticello Tools."
theme
set: #revertedOperationAttributes for: #MCOperationsBrowser to: {TextEmphasis struckOut};
set: #ignoredOperationAttributes for: #MCOperationsBrowser to: {TextColor color: Color gray}.
"set: #rejectedOperationAttributes for: #MCOperationsBrowser to: {TextEmphasis struckOut};
set: #acceptedOperationAttributes for: #MCOperationsBrowser to: {TextEmphasis underlined};
set: #conflictingOperationAttributes for: #MCOperationsBrowser to: {TextEmphasis bold}."
"Halos."
theme
derive: #borderColor for: #HaloMorph from: #MenuItemMorph at: #selectionColor do: [:c | c alpha: 0.8];
derive: #borderColor for: #SelectionMorph from: #MenuItemMorph at: #selectionColor do: [:c | c twiceDarker alpha: 0.75];
derive: #color for: #SelectionMorph from: #MenuItemMorph at: #selectionColor do: [:c | c alpha: 0.08].
"Browser."
+ theme set: #noClassCommentColor for: #Browser to: Color red.
+
+ "Objects Tool."
+ theme
+ derive: #borderWidth for: #ObjectsTool from: #MenuMorph;
+ derive: #borderColor for: #ObjectsTool from: #MenuMorph;
+ derive: #borderStyle for: #ObjectsTool from: #MenuMorph;
+ derive: #color for: #ObjectsTool from: #MenuMorph.!
- theme set: #noClassCommentColor for: #Browser to: Color red.!
Item was changed:
----- Method: TrimTheme class>>addButtons: (in category 'instance creation') -----
addButtons: theme
theme
set: #borderColor for: #PluggableButtonMorph to: self gray102;
set: #borderWidth for: #PluggableButtonMorph to: 1;
+ set: #borderStyle for: #PluggableButtonMorph to: BorderStyle simple;
- set: #borderStyle for: #PluggableButtonMorph to: BorderStyle default;
set: #color for: #PluggableButtonMorph to: self gray76;
set: #textColor for: #PluggableButtonMorph to: self white;
set: #selectionModifier for: #PluggableButtonMorph to: [ [:c | self gray39] ];
set: #hoverModifier for: #PluggableButtonMorph to: [ [:c | self gray51] ];
set: #feedbackModifier for: #PluggableButtonMorph to: [ [:c | self gray39] ].
"And the plus-version."
theme
set: #disabledColor for: #PluggableButtonMorphPlus to: Color transparent;
set: #disabledTextColor for: #PluggableButtonMorphPlus to: self gray128.!
Item was changed:
----- Method: TrimTheme class>>addDialogs: (in category 'instance creation') -----
addDialogs: theme
"self create apply."
theme
set: #borderColor for: #DialogWindow to: self gray59;
set: #borderWidth for: #DialogWindow to: 0;
+ set: #borderStyle for: #DialogWindow to: BorderStyle simple;
- set: #borderStyle for: #DialogWindow to: BorderStyle default;
set: #color for: #DialogWindow to: self gray64;
set: #titleBorderColor for: #DialogWindow to: self gray59;
set: #titleBorderWidth for: #DialogWindow to: 0;
+ set: #titleBorderStyle for: #DialogWindow to: BorderStyle simple;
- set: #titleBorderStyle for: #DialogWindow to: BorderStyle default;
set: #titleColor for: #DialogWindow to: self gray51;
set: #titleTextColor for: #DialogWindow to: self white;
set: #textColor for: #DialogWindow to: self white;
set: #okColor for: #DialogWindow to: self green;
set: #cancelColor for: #DialogWindow to: self red;
set: #buttonColor for: #DialogWindow to: self gray59;
set: #selectionModifier for: #DialogWindow to: [ [:c | self blue ] ].
"The List Chooser is a dialog, too."
theme
set: #addColor for: #ListChooser to: self yellow;
set: #disabledColor for: #ListChooser to: Color transparent.
"And the system progress bar."
theme
set: #borderColor for: #SystemProgressBarMorph to: Color transparent;
set: #borderWidth for: #SystemProgressBarMorph to: 0;
+ set: #borderStyle for: #SystemProgressBarMorph to: BorderStyle simple;
- set: #borderStyle for: #SystemProgressBarMorph to: BorderStyle default;
set: #color for: #SystemProgressBarMorph to: self gray64;
set: #barColor for: #SystemProgressBarMorph to: self blue.
"And the balloon morphs."
theme
set: #borderColor for: #NewBalloonMorph to: self gray168;
set: #borderWidth for: #NewBalloonMorph to: 1;
set: #color for: #NewBalloonMorph to: self gray102;
set: #textColor for: #NewBalloonMorph to: self white.!
Item was changed:
----- Method: TrimTheme class>>addMenusAndDockingBars: (in category 'instance creation') -----
addMenusAndDockingBars: theme
theme
set: #borderColor for: #MenuMorph to: self gray51;
set: #borderWidth for: #MenuMorph to: 1;
+ set: #borderStyle for: #MenuMorph to: BorderStyle simple;
- set: #borderStyle for: #MenuMorph to: BorderStyle default;
set: #color for: #MenuMorph to: self gray27;
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 simple;
- set: #titleBorderStyle for: #MenuMorph to: BorderStyle default;
set: #titleColor for: #MenuMorph to: Color transparent;
set: #titleTextColor for: #MenuMorph to: self white;
set: #lineColor for: #MenuMorph to: self gray51;
set: #lineStyle for: #MenuMorph to: BorderStyle simple;
set: #lineWidth for: #MenuMorph to: 1.
theme
set: #textColor for: #MenuItemMorph to: self white;
set: #disabledTextColor for: #MenuItemMorph to: self gray128;
set: #selectionColor for: #MenuItemMorph to: self gray102;
set: #selectionTextColor for: #MenuItemMorph to: self white.
"The world main docking bar."
theme
set: #logoColor for: #TheWorldMainDockingBar to: self white;
set: #selectionLogoColor for: #TheWorldMainDockingBar to: self white.!
Item was changed:
----- Method: TrimTheme class>>addScrollables: (in category 'instance creation') -----
addScrollables: theme
"self create apply"
"Sliders"
theme
set: #borderColor for: #Slider to: self gray76;
set: #borderWidth for: #Slider to: 1;
set: #color for: #Slider to: self gray61;
set: #thumbBorderColor for: #Slider to: self gray61;
set: #thumbBorderWidth for: #Slider to: 1;
set: #thumbColor for: #Slider to: self gray128;
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 adjustBrightness: 0.2] ];
"set: #pagingAreaColorModifier for: #ScrollBar to: [ [:c | self gray51] ];"
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: #borderColor for: #ScrollPane to: self gray76;
set: #borderWidth for: #ScrollPane to: 1;
+ set: #borderStyle for: #ScrollPane to: BorderStyle simple;
- set: #borderStyle for: #ScrollPane to: BorderStyle default;
set: #color for: #ScrollPane to: self gray51.
"List widgets"
theme
set: #textColor for: #PluggableListMorph to: self white;
set: #selectionColor for: #PluggableListMorph to: self blue;
derive: #multiSelectionColor for: #PluggableListMorph from: #PluggableListMorph at: #selectionColor do: [:c | c lighter];
set: #selectionTextColor for: #PluggableListMorph to: self white;
set: #filterColor for: #PluggableListMorph to: self orange;
set: #filterTextColor for: #PluggableListMorph to: self white;
set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | c alpha: 0.3] ];
set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c darker alpha: 0.3] ].
"Tree widgets"
theme
set: #higlightTextColor for: #SimpleHierarchicalListMorph to: self red;
set: #lineColor for: #SimpleHierarchicalListMorph to: self gray168.
"Text widgets"
theme
set: #textColor for: #PluggableTextMorph to: self white;
set: #caretColor for: #PluggableTextMorph to: self white;
set: #selectionColor for: #PluggableTextMorph to: (self blue alpha: 0.4);
set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | self blue alpha: 0.3] ];
set: #adornmentReadOnly for: #PluggableTextMorph to: self black;
set: #adornmentRefuse for: #PluggableTextMorph to: self blue;
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;
set: #frameAdornmentWidth for: #PluggableTextMorph to: 1.
theme
set: #balloonTextColor for: #PluggableTextMorphPlus to: self gray102.!
Item was changed:
+ (PackageInfo named: 'System') postscript: 'UserInterfaceTheme cleanUp: true.
+ (UserInterfaceTheme named: UserInterfaceTheme current name) apply.'!
- (PackageInfo named: 'System') postscript: '"Ensure that only classes are stored in the SoundService app registry."
- SoundService default: SoundService defaultOrNil.'!
More information about the Packages
mailing list