Re: [squeak-dev] [ENH] InheritanceButtonInBrowser

9 Dec 2022


      'From Squeak6.1alpha of 7 December 2022 [latest update: #22301] on 9 December 2022 at 2:10:59 pm'!
"Change Set:		InheritanceButtonInBrowser
Date:			9 December 2022
Author:			Pete
Changes to the themes and CodeHolder to use the themes' colors on the Inheritance button. Updated colors in the theme so that the button text looks reasonable. The color changes are in the themes' addToolColors: method.
Added methods to the themes to start with a different font size (a parameter to the new methods).  Mainly a convinience for me to allow me to test with larger font settings as the default ones are microscopic in my display.
Regards 
Pete!
!CodeHolder methodsFor: 'toolbuilder' stamp: 'PAP 12/8/2022 18:53'!
inheritanceButtonColor
    "Check to see if the currently-viewed method has a super send or an override, and if so, change screen feedback, unless the #decorateBrowserButtons says not to."
| flags aColor cm defaultButtonColor |
    defaultButtonColor := (UserInterfaceTheme current get: #color for: #PluggableButtonMorph) ifNil: [Color gray: 0.91].
    cm := currentCompiledMethod.
    ((cm isKindOf: CompiledMethod) and: [Preferences decorateBrowserButtons])
    	ifFalse: [^ defaultButtonColor].
    
    "This table duplicates the old logic, but adds two new colors for the cases where there is a superclass definition, but this method doesn't call it."
flags := 0.
    self isThisAnOverride ifTrue: [ flags := flags bitOr: 4 ].
    cm sendsToSuper ifTrue: [ flags := flags bitOr: 2 ].
    self isThereAnOverride ifTrue: [ flags := flags bitOr: 1 ].
    aColor := {
    	defaultButtonColor.
    	(UserInterfaceTheme current get: #inheritanceButtonColorHasOverride for: #CodeHolder).
    	(UserInterfaceTheme current get: #inheritanceButtonColorSendsSuper for: #CodeHolder).
    	(UserInterfaceTheme current get: #inheritanceButtonColorHasOverrideAndSendsSuper for: #CodeHolder).
    	(UserInterfaceTheme current get: #inheritanceButtonColorIsOverride for: #CodeHolder).	"has super but doesn't call it"
    	(UserInterfaceTheme current get: #inheritanceButtonColorHasOverrideIsOverride for: #CodeHolder).	"has sub; has super but doesn't call it"
    	(UserInterfaceTheme current get: #inheritanceButtonColorIsOverrideAndSendsSuper for: #CodeHolder).
    	(UserInterfaceTheme current get: #inheritanceButtonColorHasOverrideAndSendsSuper for: #CodeHolder).
    } at: flags + 1.
^aColor! !
!CommunityTheme class methodsFor: 'instance creation' stamp: 'PAP 12/9/2022 13:44'!
addDarkFonts: aUserInterfaceTheme withFontSize: size
    "Set-up fonts."
    aUserInterfaceTheme
    	set: #balloonHelpFont to: (StrikeFont familyName: 'BitstreamVeraSansForSqueak' pointSize: 7.5 emphasized: TextEmphasis italic emphasisCode);
    	set: #standardButtonFont to: (StrikeFont familyName: 'BitstreamVeraSansForSqueak' pointSize: size);
    	set: #standardCodeFont to: (StrikeFont familyName: 'BitstreamVeraSansForSqueak' pointSize: size);
    	set: #standardFlapFont to: (StrikeFont familyName: 'BitstreamVeraSansForSqueak' pointSize: 7.5 emphasized: TextEmphasis bold emphasisCode);
    	set: #haloLabelFont to: (StrikeFont familyName: 'BitstreamVeraSansForSqueak' pointSize: 10.5);
    	set: #standardListFont to: (StrikeFont familyName: 'BitstreamVeraSansForSqueak' pointSize: size);
    	set: #standardMenuFont to: (StrikeFont familyName: 'BitstreamVeraSansForSqueak' pointSize: size);
    	set: #standardSystemFont to: (StrikeFont familyName: 'BitstreamVeraSansForSqueak' pointSize: size);
    	set: #windowTitleFont to: (StrikeFont familyName: 'BitstreamVeraSansForSqueak' pointSize: (size/1.3) emphasized: TextEmphasis bold emphasisCode)! !
!CommunityTheme class methodsFor: 'instance creation' stamp: 'PAP 12/9/2022 13:28'!
addDarkToolColors: theme
    "Tool-specific colors."
    
    theme 
    	set: #failureColor for: #TestRunner to: self dbYellow;
    	set: #errorColor for: #TestRunner to: self dbRed;
    	set: #passColor for: #TestRunner to: self dbGreen.
    	
    "Browser."
    theme
    	set: #noClassCommentColor for: #Browser to: self dbRed;
    	set: #deprecatedMessageAttributes for: #CodeHolder to: { TextEmphasis struckOut. TextColor color: self dbGray }.
    	
    "CodeHolder"
    theme
    	set: #inheritanceButtonColorDefault for: #CodeHolder to: self dbBackground;
    	set: #inheritanceButtonColorHasOverride for: #CodeHolder to: Color tan muchDarker;
    	set: #inheritanceButtonColorIsOverride for: #CodeHolder to: Color red  muchDarker;
    	set: #inheritanceButtonColorSendsSuper for: #CodeHolder to: Color green muchDarker;
    	set: #inheritanceButtonColorIsOverrideAndSendsSuper for: #CodeHolder to: Color green muchDarker;
    	set: #inheritanceButtonColorHasOverrideAndSendsSuper for: #CodeHolder to: Color blue muchDarker;
    	set: #inheritanceButtonColorHasOverrideIsOverride for: #CodeHolder to: Color orange muchDarker.
    	! !
!CommunityTheme class methodsFor: 'instance creation' stamp: 'PAP 12/9/2022 11:49'!
createDarkWithFontSize: size
    "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: 1;
    		set: #softShadowColor for: #Morph to: (self dbSelection muchLighter alpha: 0.025);
    		set: #softShadowOffset for: #Morph to: (10@8 corner: 10@12);
    		set: #hardShadowColor for: #Morph to: (self dbSelection muchLighter alpha: 0.02);
    		set: #hardShadowOffset for: #Morph to: 1@1.
    	
    	self
    		addDarkFonts: theme withFontSize: size;
    		addDarkWindowColors: theme;
    		addDarkSyntaxHighlighting: theme;
    		addDarkScrollables: theme;
    		addDarkButtons: theme;
    		addDarkDialogs: theme;
    		addDarkMenusAndDockingBars: theme;
    		addDarkToolColors: theme.
    	theme]! !
!MonokaiTheme class methodsFor: 'instance creation' stamp: 'PAP 12/9/2022 13:05'!
addDarkFonts: theme withFontSize: size
"Set-up fonts."
    theme
    	set: #balloonHelpFont to: (StrikeFont familyName: 'BitstreamVeraSansForSqueak' pointSize: (size/2));
    	set: #standardButtonFont to: (StrikeFont familyName: 'BitstreamVeraSansForSqueak' pointSize: size);
    	set: #standardCodeFont to: (StrikeFont familyName: 'BitstreamVeraSansForSqueak' pointSize: size);
    	set: #standardFlapFont to: (StrikeFont familyName: 'BitstreamVeraSansForSqueak' pointSize: 7.5 emphasized: TextEmphasis bold emphasisCode);
    	set: #haloLabelFont to: (StrikeFont familyName: 'BitstreamVeraSansForSqueak' pointSize: 10.5);
    	set: #standardListFont to: (StrikeFont familyName: 'BitstreamVeraSansForSqueak' pointSize: size);
    	set: #standardMenuFont to: (StrikeFont familyName: 'BitstreamVeraSansForSqueak' pointSize: size);
    	set: #standardSystemFont to: (StrikeFont familyName: 'BitstreamVeraSansForSqueak' pointSize: size);
    	set: #windowTitleFont to: (StrikeFont familyName: 'BitstreamVeraSansForSqueak' pointSize: (size/1.5)).! !
!MonokaiTheme class methodsFor: 'instance creation' stamp: 'PAP 12/9/2022 12:03'!
addDarkToolColors: theme
    "Tool-specific colors."
    
    theme 
    	set: #failureColor for: #TestRunner to: self yellow;
    	set: #errorColor for: #TestRunner to: self red;
    	set: #passColor for: #TestRunner to: self green;
    	
    	set: #failureTextColor for: #TestRunner to: self backgroundColor;
    	set: #errorTextColor for: #TestRunner to: self backgroundColor;
    	set: #passTextColor for: #TestRunner to: self backgroundColor.
    	
    theme
    	set: #ignoredOperationAttributes for: #MCOperationsBrowser to: {TextColor color: self grayLight}.
    	
    "Browser."
    theme
    	set: #noClassCommentColor for: #Browser to: self red;
    	set: #deprecatedMessageAttributes for: #CodeHolder to: { TextEmphasis struckOut. TextColor color: self grayLight }.
    	
    "CodeHolder"
    theme
    	set: #inheritanceButtonColorDefault for: #CodeHolder to: self backgroundColor ;
    	set: #inheritanceButtonColorHasOverride for: #CodeHolder to: (Color r: 0.6 g: 0.6 b: 0.3);
    	set: #inheritanceButtonColorIsOverride for: #CodeHolder to: Color red muchDarker;
    	set: #inheritanceButtonColorSendsSuper for: #CodeHolder to: Color green muchDarker;
    	set: #inheritanceButtonColorIsOverrideAndSendsSuper for: #CodeHolder to: Color green muchDarker;
    	set: #inheritanceButtonColorHasOverrideAndSendsSuper for: #CodeHolder to: Color blue muchDarker;
    	set: #inheritanceButtonColorHasOverrideIsOverride for: #CodeHolder to: Color orange muchDarker.
    	! !
!MonokaiTheme class methodsFor: 'instance creation' stamp: 'mt 8/16/2016 13:24'!
addDarkWindowColors: theme
    "self createDark apply."
    theme
    	set: #uniformWindowColor for: #Model to:( self invisibleColor adjustBrightness: 0.16) "lighter twice";
    	
    	set: #unfocusedWindowColorModifier for: #SystemWindow to: [ [:color | color adjustBrightness: -0.16 "darker twice"] ];
    	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 duller;
    	set: #customWindowColor for: #ChangeList to: self blue duller;
    	set: #customWindowColor for: #ChangeSorter to: self blue duller;
    	set: #customWindowColor for: #ChatNotes to: self magenta duller;
    	set: #customWindowColor for: #ClassCommentVersionsBrowser to: self violet duller;
    	set: #customWindowColor for: #Debugger to: self red duller;
    	set: #customWindowColor for: #DualChangeSorter to: self blue duller;
    	set: #customWindowColor for: #FileContentsBrowser to: self yellow duller;
    	set: #customWindowColor for: #FileList to: self yellow duller;
    	set: #customWindowColor for: #InstanceBrowser to: self cyan duller;
    	set: #customWindowColor for: #Lexicon to: self cyan duller;
    	set: #customWindowColor for: #MCTool to: self violet duller;
    	set: #customWindowColor for: #MessageNames to: self green duller;
    	set: #customWindowColor for: #MessageSet to: self cyan duller;
    	set: #customWindowColor for: #PackagePaneBrowser to: self green duller;
    	set: #customWindowColor for: #PluggableFileList to: self yellow duller;
    	set: #customWindowColor for: #PreferenceBrowser to: self cyan duller;
    	set: #customWindowColor for: #SMLoader to: self orange duller;
    	set: #customWindowColor for: #SMLoaderPlus to: self orange duller;
    	set: #customWindowColor for: #SMReleaseBrowser to: self orange duller;
    	set: #customWindowColor for: #ScriptingDomain to: self yellow duller;
    	set: #customWindowColor for: #SelectorBrowser to: self cyan duller;
    	set: #customWindowColor for: #StringHolder to: self yellow duller;
    	set: #customWindowColor for: #TestRunner to: self orange duller;
    	set: #customWindowColor for: #TranscriptStream to: self orange duller;
    	set: #customWindowColor for: #VersionsBrowser to: self violet duller.! !
!MonokaiTheme class methodsFor: 'instance creation' stamp: 'PAP 12/8/2022 14:37'!
createDark
    "self createDark apply."
    | themeName |
    themeName := 'Monokai (dark)'.
    ^ (self named: themeName) in: [:theme |
    	theme merge: (self named: 'Squeak') overwrite: true.
    	theme name: themeName.
    	
    	"General morph stuff."
    	theme
    		set: #keyboardFocusColor for: #Morph to: self yellow;
    		set: #keyboardFocusWidth for: #Morph to: 1.
theme set: #background for: #SystemWindow to: self backgroundColor.
self
    		addDarkFonts: theme;
    		addDarkWindowColors: theme;
    		addDarkSyntaxHighlighting: theme;
    		addDarkScrollables: theme;
    		addDarkButtons: theme;
    		addDarkDialogs: theme;
    		addDarkMenusAndDockingBars: theme;
    		addDarkToolColors: theme.
theme]! !
!MonokaiTheme class methodsFor: 'instance creation' stamp: 'PAP 12/9/2022 11:46'!
createDarkWithFontSize: size
    "self createDark apply."
    | themeName |
    themeName := 'Monokai (dark)'.
    ^ (self named: themeName) in: [:theme |
    	theme merge: (self named: 'Squeak') overwrite: true.
    	theme name: themeName.
    	
    	"General morph stuff."
    	theme
    		set: #keyboardFocusColor for: #Morph to: self yellow;
    		set: #keyboardFocusWidth for: #Morph to: 1.
theme set: #background for: #SystemWindow to: self backgroundColor.
self
    		addDarkFonts: theme withFontSize: size;
    		addDarkWindowColors: theme;
    		addDarkSyntaxHighlighting: theme;
    		addDarkScrollables: theme;
    		addDarkButtons: theme;
    		addDarkDialogs: theme;
    		addDarkMenusAndDockingBars: theme;
    		addDarkToolColors: theme.
theme]! !
!SolarizedTheme class methodsFor: 'instance creation' stamp: 'PAP 12/9/2022 11:59'!
addDarkFonts: theme withFontSize: size
"Set-up fonts."
    theme
    	set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: (size/2));
    	set: #standardButtonFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: size);
    	set: #standardCodeFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: size);
    	set: #standardFlapFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7.5 emphasized: TextEmphasis bold emphasisCode);
    	set: #haloLabelFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: size);
    	set: #standardListFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: size);
    	set: #standardMenuFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: size);
    	set: #standardSystemFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: size);
    	set: #windowTitleFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: (size/1.5)).! !
!SolarizedTheme class methodsFor: 'instance creation' stamp: 'PAP 12/8/2022 18:30'!
addDarkToolColors: theme
    "Tool-specific colors."
    
    theme 
    	set: #failureColor for: #TestRunner to: self yellow;
    	set: #errorColor for: #TestRunner to: self red;
    	set: #passColor for: #TestRunner to: self green;
    	
    	set: #failureTextColor for: #TestRunner to: self darkBackground;
    	set: #errorTextColor for: #TestRunner to: self darkBackground;
    	set: #passTextColor for: #TestRunner to: self darkBackground.
    	
    theme
    	set: #ignoredOperationAttributes for: #MCOperationsBrowser to: {TextColor color: self darkContentSecondary}.
    
    "Browser."
    theme
    	set: #noClassCommentColor for: #Browser to: self red;
    	set: #deprecatedMessageAttributes for: #CodeHolder to: { TextEmphasis struckOut. TextColor color: self darkContentSecondary }.
    	
    "CodeHolder"
    theme
    	set: #inheritanceButtonColorDefault for: #CodeHolder to: self darkBackground;
    	set: #inheritanceButtonColorHasOverride for: #CodeHolder to: Color tan;
    	set: #inheritanceButtonColorIsOverride for: #CodeHolder to: Color red;
    	set: #inheritanceButtonColorSendsSuper for: #CodeHolder to: Color green;
    	set: #inheritanceButtonColorIsOverrideAndSendsSuper for: #CodeHolder to: Color green darker;
    	set: #inheritanceButtonColorHasOverrideAndSendsSuper for: #CodeHolder to: Color blue;
    	set: #inheritanceButtonColorHasOverrideIsOverride for: #CodeHolder to: Color orange.! !
!SolarizedTheme class methodsFor: 'instance creation' stamp: 'PAP 12/9/2022 11:58'!
addLightFonts: theme withFontSize: size
"Set-up fonts."
    theme
    	set: #balloonHelpFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: (size/2));
    	set: #standardButtonFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: size);
    	set: #standardCodeFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: size);
    	set: #standardFlapFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7.5 emphasized: TextEmphasis bold emphasisCode);
    	set: #haloLabelFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: size);
    	set: #standardListFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: size);
    	set: #standardMenuFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: size);
    	set: #standardSystemFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: size);
    	set: #windowTitleFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: (size/1.5) emphasized: TextEmphasis bold emphasisCode).! !
!SolarizedTheme class methodsFor: 'instance creation' stamp: 'PAP 12/9/2022 12:00'!
createDarkWithFontSize: size
    "doIt: [self createDark apply.]"
| themeName |
    themeName := 'Solarized (dark)'.
    ^ (self named: themeName) in: [:theme |
    	theme merge: (self named: 'Squeak') overwrite: true.
    	theme name: themeName.
"General morph stuff."
    	theme
    		set: #keyboardFocusColor for: #Morph to: self darkContentSecondary;
    		set: #keyboardFocusWidth for: #Morph to: 1.
theme set: #background for: #MorphicProject to: self darkBackgroundForm.
self
    		addDarkFonts: theme withFontSize: size;
    		addDarkWindowColors: theme;
    		addDarkSyntaxHighlighting: theme;
    		addDarkScrollables: theme;
    		addDarkButtons: theme;
    		addDarkDialogs: theme;
    		addDarkMenusAndDockingBars: theme;
    		addDarkToolColors: theme.
theme]! !
!SolarizedTheme class methodsFor: 'instance creation' stamp: 'PAP 12/9/2022 12:00'!
createLightWithFontSize: size
    "You have to create dark first.
    doIt: [self createDark. self createLight apply.]"
| themeName |
    themeName := 'Solarized (light)'.
    ^ (self named: themeName) in: [:theme |
    	theme merge: (self named: 'Solarized (dark)') overwrite: true.
    	theme name: themeName.
"General morph stuff."
    	theme
    		set: #keyboardFocusColor for: #Morph to: self lightContentSecondary;
    		set: #keyboardFocusWidth for: #Morph to: 1.
    	theme set: #background for: #MorphicProject to: self lightBackgroundForm.
self
    		addLightFonts: theme withFontSize: size;
    		addLightWindowColors: theme;
    		addLightSyntaxHighlighting: theme;
    		addLightScrollables: theme;
    		addLightButtons: theme;
    		addLightDialogs: theme;
    		addLightMenusAndDockingBars: theme;
    		addLightToolColors: theme.
theme]! !
!SqueakTheme class methodsFor: 'instance creation' stamp: 'PAP 12/9/2022 13:10'!
addFonts: theme withFontSize: size
theme
    	set: #standardSystemFont to: (StrikeFont familyName: #BitstreamVeraSansForSqueak pointSize: size);
    	set: #standardFixedFont to: (TTCFont familyName: #BitstreamVeraSansMonoForSqueak pointSize: size);
set: #standardCodeFont to: (StrikeFont familyName: #BitstreamVeraSansForSqueak pointSize: size);
    	set: #standardListFont to: (StrikeFont familyName: #BitstreamVeraSansForSqueak pointSize: size);
    	set: #standardButtonFont to: (StrikeFont familyName: #BitstreamVeraSansForSqueak pointSize: size);
    	set: #standardMenuFont to: (StrikeFont familyName: #BitstreamVeraSansForSqueak pointSize: size);
    	set: #standardFlapFont to: (StrikeFont familyName: #BitstreamVeraSansForSqueak pointSize: size emphasized: TextEmphasis bold emphasisCode);
set: #windowTitleFont to: (StrikeFont familyName: #BitstreamVeraSansForSqueak pointSize: (size/1.25) emphasized: TextEmphasis bold emphasisCode);
    	set: #balloonHelpFont to: (StrikeFont familyName: #BitstreamVeraSansForSqueak pointSize: (size/2));
    	set: #haloLabelFont to: (StrikeFont familyName: #BitstreamVeraSansForSqueak pointSize: 10.5);
set: #wizardStandardFont to: (StrikeFont familyName: #BitstreamVeraSansForSqueak pointSize: size);
    	set: #wizardButtonFont to: (StrikeFont familyName: #BitstreamVeraSansForSqueak pointSize: size);
    	set: #wizardHelpFont to: (StrikeFont familyName: #BitstreamVeraSansForSqueak pointSize: size);
    	set: #wizardTitleFont to: (StrikeFont familyName: #BitstreamVeraSansForSqueak pointSize: (size/1.5)).! !
!SqueakTheme class methodsFor: 'instance creation' stamp: 'PAP 12/9/2022 13:19'!
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].
    
    "Code-browsing tools."
    theme
    	set: #noClassCommentColor for: #Browser to: Color red;
    	set: #deprecatedMessageAttributes for: #CodeHolder to: { TextEmphasis struckOut. TextColor gray }.
"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;
    	derive: #textColor for: #ObjectsTool from: #MenuItemMorph;
    	derive: #selectionTextColor for: #ObjectsTool from: #MenuItemMorph.
    
    "CodeHolder"
    theme
    	set: #inheritanceButtonColorDefault for: #CodeHolder to: (Color gray: 0.9);
    	set: #inheritanceButtonColorHasOverride for: #CodeHolder to: Color tan;
    	set: #inheritanceButtonColorIsOverride for: #CodeHolder to: Color red;
    	set: #inheritanceButtonColorSendsSuper for: #CodeHolder to: Color green;
    	set: #inheritanceButtonColorIsOverrideAndSendsSuper for: #CodeHolder to: Color green darker;
    	set: #inheritanceButtonColorHasOverrideAndSendsSuper for: #CodeHolder to: (Color r: 0.3 g:0.3 b: 1.0);
    	set: #inheritanceButtonColorHasOverrideIsOverride for: #CodeHolder to: Color orange.
! !
!SqueakTheme class methodsFor: 'instance creation' stamp: 'PAP 12/9/2022 13:24'!
createDullerWithFontSize: size
    "self createDuller apply"
    
    | name |
    name := 'Squeak (duller)'.
    ^ (self named:name) in: [:theme |
    	theme merge: (self named: 'Squeak') overwrite: true.
    	theme name: name.
    	self
    		addFonts: theme withFontSize: size; 
    		addDullerWindowColors: theme;
    		addDullerScrollables: theme;
    		addDullerDialogs: theme;
    		addDullerMenusAndDockingBars: theme;
    		addDullerButtons: theme;
    		addDullerToolColors: theme.
    		
    	theme set: #color for: #TextAction to: Color ocean.
    	
    	theme]! !
!SqueakTheme class methodsFor: 'instance creation' stamp: 'PAP 12/9/2022 11:57'!
createWithFontSize: size
    "This is the default theme for Squeak.
    
    self create apply. "
    
    ^ (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: 2;
    		set: #softShadowColor for: #Morph to: (Color black alpha: 0.01);
    		set: #softShadowOffset for: #Morph to: (10@8 corner: 10@12);
    		set: #hardShadowColor for: #Morph to: (Color black alpha: 0.5);
    		set: #hardShadowOffset for: #Morph to: 1@1.
    		
    	theme set: #background for: #MorphicProject to: self linenblue.
    		
    	self
    		addFonts: theme withFontSize: size;
    		addWindowColors: theme;
    		addSyntaxHighlighting: theme;
    		addMenusAndDockingBars: theme;
    		addDialogs: theme;
    		addButtons: theme;
    		addScrollables: theme;
    		addToolColors: theme;
    		addMVC: theme.
    	
    	theme]! !
!TrimTheme class methodsFor: 'instance creation' stamp: 'PAP 12/9/2022 13:09'!
addFonts: theme withFontSize: size
"Set-up fonts."
    theme
    	set: #balloonHelpFont to: (StrikeFont familyName: 'BitstreamVeraSansForSqueak' pointSize: (size/2));
    	set: #standardButtonFont to: (StrikeFont familyName: 'BitstreamVeraSansForSqueak' pointSize: size);
    	set: #standardCodeFont to: (StrikeFont familyName: 'BitstreamVeraSansForSqueak' pointSize: size);
    	set: #standardFlapFont to: (StrikeFont familyName: 'BitstreamVeraSansForSqueak' pointSize: 7.5 emphasized: TextEmphasis bold emphasisCode);
    	set: #haloLabelFont to: (StrikeFont familyName: 'BitstreamVeraSansForSqueak' pointSize: 10.5);
    	set: #standardListFont to: (StrikeFont familyName: 'BitstreamVeraSansForSqueak' pointSize: size);
    	set: #standardMenuFont to: (StrikeFont familyName: 'BitstreamVeraSansForSqueak' pointSize: size);
    	set: #standardSystemFont to: (StrikeFont familyName: 'BitstreamVeraSansForSqueak' pointSize: size);
    	set: #windowTitleFont to: (StrikeFont familyName: 'BitstreamVeraSansForSqueak' pointSize: size).! !
!TrimTheme class methodsFor: 'instance creation' stamp: 'PAP 12/9/2022 13:22'!
addToolColors: theme
    "Tool-specific colors."
    
    "SUnit's TestRunner."
    theme 
    	set: #failureColor for: #TestRunner to: self yellow;
    	set: #errorColor for: #TestRunner to: self red;
    	set: #passColor for: #TestRunner to: self green.
    	
    "Monticello Tools."
    theme
    	set: #revertedOperationAttributes for: #MCOperationsBrowser to: {TextEmphasis struckOut};
    	set: #ignoredOperationAttributes for: #MCOperationsBrowser to: {TextColor color: self gray128}.
    	
    "Browser."
    theme
    	set: #noClassCommentColor for: #Browser to: self red;
    	set: #deprecatedMessageAttributes for: #CodeHolder to: { TextEmphasis struckOut. TextColor color: self gray128 }.
    	
    theme
    	set: #inheritanceButtonColorDefault for: #CodeHolder to: self gray27;
    	set: #inheritanceButtonColorHasOverride for: #CodeHolder to:  (Color r: 0.533 g: 0.533 b: 0.333);
    	set: #inheritanceButtonColorIsOverride for: #CodeHolder to: self red;
    	set: #inheritanceButtonColorSendsSuper for: #CodeHolder to: self green;
    	set: #inheritanceButtonColorIsOverrideAndSendsSuper for: #CodeHolder to: self green;
    	set: #inheritanceButtonColorHasOverrideAndSendsSuper for: #CodeHolder to: self blue;
    	set: #inheritanceButtonColorHasOverrideIsOverride for: #CodeHolder to: self orange.
! !
!TrimTheme class methodsFor: 'instance creation' stamp: 'PAP 12/9/2022 11:56'!
createWithFontSize: size
    "doIt: [self create apply.]"
| themeName |
    themeName := 'Trim (dark)'.
    ^ (self named: themeName) in: [:theme |
    	theme merge: (self named: 'Squeak') overwrite: true.
    	theme name: themeName.
"General morph stuff."
    	theme
    		set: #keyboardFocusColor for: #Morph to: self blue;
    		set: #keyboardFocusWidth for: #Morph to: 1.
theme set: #background for: #MorphicProject to: self backgroundForm.
self addFonts: theme withFontSize: size.
    	self addWindowColors: theme.
    	self addSyntaxHighlighting: theme.
    	self addMenusAndDockingBars: theme.
    	self addDialogs: theme.
    	self addButtons: theme.
    	self addScrollables: theme.
    	self addToolColors: theme.
theme]! !
SqueakTheme class removeSelector: #createwithFontSize:!