Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.901.mcz ==================== Summary ==================== Name: System-mt.901 Author: mt Time: 16 August 2016, 6:07:56.634602 pm UUID: c2315def-8477-364e-a56f-68e5d0bbec94 Ancestors: System-mt.900 Removes new dependency System -> Balloon. =============== Diff against System-mt.900 =============== Item was changed: ----- Method: MonokaiTheme class>>createDark (in category 'instance creation') ----- 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: #MorphicProject to: self darkBackgroundForm. - theme set: #background for: #MorphicProject to: (BitmapFillStyle fromForm: self darkBackgroundForm). self addDarkFonts: theme; addDarkWindowColors: theme; addDarkSyntaxHighlighting: theme; addDarkScrollables: theme; addDarkButtons: theme; addDarkDialogs: theme; addDarkMenusAndDockingBars: theme; addDarkToolColors: theme. theme]! Item was changed: ----- Method: SolarizedTheme class>>createDark (in category 'instance creation') ----- createDark "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 lightBackgroundForm. - theme set: #background for: #MorphicProject to: (BitmapFillStyle fromForm: self lightBackgroundForm). self addDarkFonts: theme; addDarkWindowColors: theme; addDarkSyntaxHighlighting: theme; addDarkScrollables: theme; addDarkButtons: theme; addDarkDialogs: theme; addDarkMenusAndDockingBars: theme; addDarkToolColors: theme. theme]! Item was changed: ----- Method: SolarizedTheme class>>createLight (in category 'instance creation') ----- createLight "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 darkBackgroundForm. - theme set: #background for: #MorphicProject to: (BitmapFillStyle fromForm: self darkBackgroundForm). self addLightFonts: theme; addLightWindowColors: theme; addLightSyntaxHighlighting: theme; addLightScrollables: theme; addLightButtons: theme; addLightDialogs: theme; addLightMenusAndDockingBars: theme; addLightToolColors: theme. theme]! Item was changed: ----- Method: SqueakTheme class>>create (in category 'instance creation') ----- create "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: 3; 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. - theme set: #background for: #MorphicProject to: (BitmapFillStyle fromForm: self linenblue). self addFonts: theme; addWindowColors: theme; addSyntaxHighlighting: theme; addMenusAndDockingBars: theme; addDialogs: theme; addButtons: theme; addScrollables: theme; addToolColors: theme. theme]! |
Free forum by Nabble | Edit this page |