Packages August 2016

packages@lists.squeakfoundation.org

1 participants
528 discussions

The Trunk: Morphic-mt.1233.mcz
by commits＠source.squeak.org 05 Aug '16

05 Aug '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1233.mcz ==================== Summary ==================== Name: Morphic-mt.1233 Author: mt Time: 5 August 2016, 9:23:54.647358 am UUID: be26790a-5bb5-0e4e-ab1d-7bbf50cd334c Ancestors: Morphic-mt.1232 Fixes a bug in dialog windows that occured when setting a keyboard shortcut for buttons whose labels begin with the same letters. =============== Diff against Morphic-mt.1232 =============== Item was changed: ----- Method: DialogWindow>>registerKeyboardShortcutFor: (in category 'constructing') ----- registerKeyboardShortcutFor: button "Take the first alpha-numeric character that is not already used as a shortcut, and use it as a shortcut." (button valueOfProperty: #normalLabel) asString in: [:normalLabel | normalLabel do: [:char | char isAlphaNumeric ifTrue: [ keyMap at: char asLowercase + ifPresent: [:ea | "Ignore"] - ifPresent: [] ifAbsent: [ button setProperty: #normalLabel toValue: ('{1} ({2})' format: {normalLabel. char asLowercase}). button label: (button valueOfProperty: #normalLabel). ^ keyMap at: char asLowercase put: button ] ] ] ]!

1 0

The Trunk: Morphic-mt.1232.mcz
by commits＠source.squeak.org 05 Aug '16

05 Aug '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1232.mcz ==================== Summary ==================== Name: Morphic-mt.1232 Author: mt Time: 5 August 2016, 9:22:12.860358 am UUID: 2ba4947f-a05c-8545-95e4-5d6b8b470a52 Ancestors: Morphic-mt.1231 Old-style balloon morph should be themeable, too. I heard so. :-) =============== Diff against Morphic-mt.1231 =============== Item was changed: ----- Method: BalloonMorph class>>balloonColor (in category 'preferences') ----- balloonColor self flag: #remove. "mt: We should remove this additional getter in the future and use UI themes instead:" + ^ (UserInterfaceTheme current get: #color for: #BalloonMorph) ifNil: [(TranslucentColor r: 0.92 g: 0.92 b: 0.706 alpha: 0.749)]! - ^ (UserInterfaceTheme current get: #color for: #NewBalloonMorph) ifNil: [(TranslucentColor r: 0.92 g: 0.92 b: 0.706 alpha: 0.749)]! Item was changed: ----- Method: BalloonMorph class>>balloonColor: (in category 'preferences') ----- balloonColor: aColor self flag: #remove. "mt: We should remove this additional setter in the future and use UI themes instead:" + UserInterfaceTheme current set: #color for: #BalloonMorph to: aColor.! - UserInterfaceTheme current set: #color for: #NewBalloonMorph to: aColor.! Item was changed: ----- Method: BalloonMorph class>>balloonFont (in category 'utility') ----- balloonFont self flag: #remove. "mt: We should remove this additional getter in the future and use UI themes instead:" + ^ (UserInterfaceTheme current get: #font for: #BalloonMorph) ifNil: [TextStyle defaultFont]! - ^ (UserInterfaceTheme current get: #font for: #NewBalloonMorph) ifNil: [TextStyle defaultFont]! Item was added: + ----- Method: BalloonMorph class>>balloonTextColor (in category 'preferences') ----- + balloonTextColor + + self flag: #remove. "mt: We should remove this additional getter in the future and use UI themes instead:" + ^ (UserInterfaceTheme current get: #textColor for: #BalloonMorph) ifNil: [Color black]! Item was added: + ----- Method: BalloonMorph class>>balloonTextColor: (in category 'preferences') ----- + balloonTextColor: aColor + + self flag: #remove. "mt: We should remove this additional setter in the future and use UI themes instead:" + UserInterfaceTheme current set: #textColor for: #BalloonMorph to: aColor.! Item was changed: ----- Method: BalloonMorph class>>getTextMorph:for: (in category 'private') ----- getTextMorph: aStringOrMorph for: balloonOwner "Construct text morph." | m text | aStringOrMorph isMorph ifTrue: [m := aStringOrMorph] ifFalse: [BalloonFont ifNil: [text := aStringOrMorph] + ifNotNil: [text := aStringOrMorph asText + addAttribute: (TextFontReference toFont: balloonOwner balloonFont); + addAttribute: (TextColor color: self balloonTextColor)]. - ifNotNil: [text := Text - string: aStringOrMorph - attribute: (TextFontReference toFont: balloonOwner balloonFont)]. m := (TextMorph new contents: text) centered]. m setToAdhereToEdge: #adjustedCenter. ^ m! Item was changed: ----- Method: BalloonMorph class>>setBalloonFontTo: (in category 'utility') ----- setBalloonFontTo: aFont self flag: #remove. "mt: We should remove this additional setter in the future and use UI themes instead:" + UserInterfaceTheme current set: #font for: #BalloonMorph to: aFont.! - UserInterfaceTheme current set: #font for: #NewBalloonMorph to: aFont.! Item was added: + ----- Method: BalloonMorph class>>themeProperties (in category 'preferences') ----- + themeProperties + + ^ super themeProperties, { + { #borderColor. 'Colors'. 'Color of the balloon''s border.' }. + { #borderWidth. 'Borders'. 'Width of the balloon''s border.' }. + { #color. 'Colors', 'Color for the balloon background.' }. + { #font. 'Fonts'. 'Font for balloon text if not overridden by text attributes.' }. + { #textColor. 'Colors'. 'Color for the balloon text if not overridden by text attributes.' }. + }! Item was added: + ----- Method: BalloonMorph>>applyUserInterfaceTheme (in category 'updating') ----- + applyUserInterfaceTheme + + super applyUserInterfaceTheme. + self setDefaultParameters.! Item was removed: - ----- Method: BalloonMorph>>defaultBorderColor (in category 'initialization') ----- - defaultBorderColor - ^ self userInterfaceTheme borderColor ifNil: [self defaultColor muchDarker]! Item was removed: - ----- Method: BalloonMorph>>defaultBorderWidth (in category 'initialization') ----- - defaultBorderWidth - ^ self userInterfaceTheme borderWidth ifNil: [0]! Item was removed: - ----- Method: BalloonMorph>>defaultColor (in category 'initialization') ----- - defaultColor - "answer the default color/fill style for the receiver" - ^ self userInterfaceTheme color ifNil: [self class balloonColor]! Item was changed: ----- Method: BalloonMorph>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" super initialize. "" self beSmoothCurve. + offsetFromTarget := 0 @ 0. + + self setDefaultParameters.! - offsetFromTarget := 0 @ 0! Item was added: + ----- Method: BalloonMorph>>setDefaultParameters (in category 'initialization') ----- + setDefaultParameters + + self + borderWidth: (self userInterfaceTheme borderWidth ifNil: [0]); + borderColor: (self userInterfaceTheme borderColor ifNil: [Color black]); + color: (self userInterfaceTheme color ifNil: [TranslucentColor r: 0.92 g: 0.92 b: 0.706 alpha: 0.749]).!

1 0

The Trunk: System-mt.865.mcz
by commits＠source.squeak.org 05 Aug '16

05 Aug '16

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.865.mcz ==================== Summary ==================== Name: System-mt.865 Author: mt Time: 5 August 2016, 8:53:50.188358 am UUID: 11d47b5b-9af6-ca46-859d-f57957cb482c Ancestors: System-cmm.864 Apply latest theme additions (#disabledTextColor for menus and #frameAdornmentWidth for text fields) to all themes. =============== Diff against System-cmm.864 =============== 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: #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.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. - set: #frameAdornmentWidth for: PluggableTextMorph to: 2. aUserInterfaceTheme set: #balloonTextColor for: #PluggableTextMorphPlus to: Color lightGray! 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 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 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 darkBackgroundHighlights; set: #selectionTextColor for: #MenuItemMorph to: self darkContentEmphasizedMore. "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 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; 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: SolarizedTheme class>>addLightScrollables: (in category 'instance creation') ----- addLightScrollables: theme "self createLight apply." "Scroll bars" theme set: #thumbColor for: #ScrollBar to: self lightBackground; set: #thumbBorderColor for: #ScrollBar to: self lightBackground; set: #thumbBorderWidth for: #ScrollBar to: 1; set: #thumbColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.1] ]; set: #pagingAreaColorModifier for: #ScrollBar to: [ [:c | Color transparent ] ]; set: #borderColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.1] ]. "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets." theme set: #borderWidth for: #ScrollPane to: 0; " set: #borderColor for: #ScrollPane to: Color transparent;" set: #color for: #ScrollPane to: self lightBackground. "List widgets" theme set: #textColor for: #PluggableListMorph to: self lightContentEmphasized; set: #selectionColor for: #PluggableListMorph to: self lightBackgroundHighlights; set: #selectionTextColor for: #PluggableListMorph to: self lightContentEmphasizedMore; + derive: #multiSelectionColor for: #PluggableListMorph from: #PluggableListMorph at: #selectionColor do: [:c | c darker]; set: #filterColor for: #PluggableListMorph to: self yellow; set: #filterTextColor for: #PluggableListMorph to: self lightBackground; set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | c darker alpha: 0.5 ] ]; set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c darker alpha: 0.5 ] ]. "Tree widgets" theme set: #highlightTextColor for: #SimpleHierarchicalListMorph to: self yellow lighter lighter; set: #lineColor for: #SimpleHierarchicalListMorph to: self lightContentSecondary. "Text widgets" theme set: #textColor for: #PluggableTextMorph to: self lightContentPrimary; set: #caretColor for: #PluggableTextMorph to: self lightContentEmphasizedMore; set: #selectionColor for: #PluggableTextMorph to: self lightBackgroundHighlights; set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | (Color r: 0.933 g: 0.909 b: 0.835) "light background highlights"] ]; set: #adornmentReadOnly for: #PluggableTextMorph to: self magenta; set: #adornmentRefuse for: #PluggableTextMorph to: self cyan; 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. theme set: #balloonTextColor for: #PluggableTextMorphPlus to: self lightContentSecondary.! 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 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 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; set: #subMenuMarker for: #MenuItemMorph to: nil. "Use hard-coded default. See MenuItemMorph." "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 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 standardDefaultTextFont]; 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. - set: #adornmentDiffEdit for: #PluggableTextMorph to: Color yellow. theme set: #balloonTextColor for: #PluggableTextMorphPlus to: (Color gray: 0.7); derive: #balloonTextFont for: #PluggableTextMorphPlus from: #PluggableTextMorph at: #font.!

1 0

The Trunk: Morphic-mt.1231.mcz
by commits＠source.squeak.org 05 Aug '16

05 Aug '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1231.mcz ==================== Summary ==================== Name: Morphic-mt.1231 Author: mt Time: 5 August 2016, 8:51:01.425358 am UUID: 82f5a015-c062-9d4d-b6cd-fec7ca11a239 Ancestors: Morphic-cmm.1230 Fix use of theme properties #disabledTextColor in menus and #frameAdornmentWidth in text fields. =============== Diff against Morphic-cmm.1230 =============== Item was changed: ----- Method: MenuItemMorph class>>themeProperties (in category 'preferences') ----- themeProperties ^ super themeProperties, { { #font. 'Fonts'. 'Font for menu items.' }. { #textColor. 'Colors'. 'Color for the menu item''s labels.' }. + { #disabledTextColor. 'Colors'. 'Color to use for disabled menu item labels.' }. { #selectionColor. 'Colors'. 'Color used for items when hovering or selecting them.' }. { #selectionTextColor. 'Colors'. 'Color used for label when hovering or selecting them.' }. { #subMenuMarker. 'Forms'. 'The form to be used to indicate a submenu.' }. }! Item was changed: ----- Method: MenuItemMorph>>isEnabled: (in category 'accessing') ----- + isEnabled: aBoolean + + | colorToUse | - isEnabled: aBoolean isEnabled = aBoolean ifTrue: [^ self]. isEnabled := aBoolean. + + colorToUse := isEnabled + ifTrue: [self userInterfaceTheme textColor ifNil: [Color black]] + ifFalse: [self userInterfaceTheme disabledTextColor ifNil: [Color gray]]. + + self color: colorToUse.! - self color: - (self userInterfaceTheme perform: - (aBoolean - ifTrue: [#textColor] - ifFalse: [#disabledTextColor]))! Item was changed: ----- Method: PluggableTextMorph class>>themeProperties (in category 'preferences') ----- themeProperties ^ super themeProperties, { { #font. 'Fonts'. 'Font for text if not styled.' }. { #textColor. 'Colors'. 'Color for text if not styled.' }. { #caretColor. 'Colors'. 'The color of the text cursor.' }. { #selectionColor. 'Colors'. 'The color of the text selection.' }. { #unfocusedSelectionModifier. 'Colors'. 'How to derive the text selection color if not focused.' }. { #adornmentReadOnly. 'Color'. 'How to indicate read-only contents.' }. { #adornmentRefuse. 'Color'. 'How to indicate that the model refuses to accept.' }. { #adornmentConflict. 'Color'. 'How to indicate that there are editing conflicts.' }. { #adornmentDiff. 'Color'. 'How to indicate that the model wants diff feedback.' }. { #adornmentNormalEdit. 'Color'. 'How to indicate that there are unaccepted edits.' }. { #adornmentDiffEdit. 'Color'. 'How to indicate that there are unaccepted edits in a diff view.' }. { #wrapBorderColorModifier. 'Color'. 'How to indicate a specific wrap border.' }. + { #frameAdornmentWidth. 'Geometry'. 'Width of simple frame adornments.' }. }! Item was changed: ----- Method: PluggableTextMorph>>drawFrameAdornment:on: (in category 'drawing') ----- drawFrameAdornment: aColor on: aCanvas "Indicate edit status for the text editor" self class simpleFrameAdornments ifTrue: [ aCanvas frameRectangle: self innerBounds + width: (self valueOfProperty: #frameAdornmentWidth ifAbsent: [1]) - width: (self userInterfaceTheme frameAdornmentWidth ifNil: [1]) color: aColor. aCanvas frameRectangle: (self innerBounds insetBy: 1) + width: (self valueOfProperty: #frameAdornmentWidth ifAbsent: [1]) - width: (self userInterfaceTheme frameAdornmentWidth ifNil: [1]) color: (aColor alpha: aColor alpha / 3.0) ] ifFalse: [ | form | "Class-side adornment cache is currently using pre-multiplied alpha, so we need to use rule 34 which works for < 32bpp, too." form := self class adornmentWithColor: aColor. aCanvas image: form at: self innerBounds topRight - (form width @ 0) sourceRect: form boundingBox rule: 34 ]! Item was changed: ----- Method: PluggableTextMorph>>setDefaultParameters (in category 'initialization') ----- setDefaultParameters super setDefaultParameters. self font: (self userInterfaceTheme font ifNil: [TextStyle defaultFont]); setTextColor: (self userInterfaceTheme textColor ifNil: [Color black]). self wrapBorderColor: ((self userInterfaceTheme wrapBorderColorModifier ifNil: [ [:c | c muchLighter alpha: 0.3] ]) value: self borderColor). self setProperty: #adornmentReadOnly toValue: (self userInterfaceTheme adornmentReadOnly ifNil: [Color black]); setProperty: #adornmentRefuse toValue: (self userInterfaceTheme adornmentRefuse ifNil: [Color tan]); setProperty: #adornmentConflict toValue: (self userInterfaceTheme adornmentConflict ifNil: [Color red]); setProperty: #adornmentDiff toValue: (self userInterfaceTheme adornmentDiff ifNil: [Color green]); setProperty: #adornmentNormalEdit toValue: (self userInterfaceTheme adornmentNormalEdit ifNil: [Color orange]); setProperty: #adornmentDiffEdit toValue: (self userInterfaceTheme adornmentDiffEdit ifNil: [Color yellow]). + + self + setProperty: #frameAdornmentWidth + toValue: (self userInterfaceTheme frameAdornmentWidth ifNil: [1]). textMorph caretColor: (self userInterfaceTheme caretColor ifNil: [Color red]); selectionColor: (self userInterfaceTheme selectionColor ifNil: [TranslucentColor r: 0.0 g: 0.0 b: 0.8 alpha: 0.2]); unfocusedSelectionColor: ((self userInterfaceTheme unfocusedSelectionModifier ifNil: [ [:c | Color gray: 0.9] ]) value: textMorph selectionColor).!

1 0

The Trunk: System-cmm.864.mcz
by commits＠source.squeak.org 05 Aug '16

05 Aug '16

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.864.mcz ==================== Summary ==================== Name: System-cmm.864 Author: cmm Time: 5 August 2016, 12:01:20.43151 am UUID: e6f24858-8b39-4658-8dcd-881caedfa6e4 Ancestors: System-cmm.863 Use #dbBackground logical color instead of hard-coded color. =============== Diff against System-cmm.863 =============== 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: #color for: #ScrollPane to: self dbBackground. - set: #color for: #ScrollPane to: (Color gray: 0.1). "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.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>>dbBackground (in category 'colors by purpose') ----- dbBackground "Emptiness." + ^Color gray: 0.1! - ^Color r: 0.1 g: 0.1 b: 0.1!

1 0

The Trunk: Morphic-cmm.1230.mcz
by commits＠source.squeak.org 05 Aug '16

05 Aug '16

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.1230.mcz ==================== Summary ==================== Name: Morphic-cmm.1230 Author: cmm Time: 4 August 2016, 11:45:46.19494 pm UUID: 75ecc9d2-3132-4933-ba03-98810bd1e903 Ancestors: Morphic-pre.1229 Community Dark Theme. =============== Diff against Morphic-pre.1229 =============== Item was changed: ----- Method: BalloonMorph class>>string:for:corner: (in category 'instance creation') ----- string: str for: morph corner: cornerName "Make up and return a balloon for morph. Find the quadrant that clips the text the least, using cornerName as a tie-breaker. tk 9/12/97" + | text vertices balloon | + balloon := self new. + text := self - | tm vertices | - tm := self getTextMorph: (str asString withNoLineLongerThan: Preferences maxBalloonHelpLineLength) for: morph. + balloon userInterfaceTheme textColor ifNotNil: + [:col | text color: col]. + balloon userInterfaceTheme font ifNotNil: [ : font | text font: font ]. + vertices := self getVertices: text bounds. - vertices := self getVertices: tm bounds. vertices := self + getBestLocation: vertices + for: morph + corner: cornerName. + ^ balloon + color: morph balloonColor ; + setVertices: vertices ; + addMorph: text ; - getBestLocation: vertices - for: morph - corner: cornerName. - ^ self new color: morph balloonColor; - setVertices: vertices; - addMorph: tm; setTarget: morph! Item was changed: ----- Method: BalloonMorph>>defaultBorderColor (in category 'initialization') ----- defaultBorderColor + ^ self userInterfaceTheme borderColor ifNil: [self defaultColor muchDarker]! - "answer the default border color/fill style for the receiver" - ^ self defaultColor muchDarker"Color black"! Item was changed: ----- Method: BalloonMorph>>defaultBorderWidth (in category 'initialization') ----- defaultBorderWidth + ^ self userInterfaceTheme borderWidth ifNil: [0]! - "0 is appropriate for balloons because they are transient and wispy, not a solid object deserving a border." - ^ 0! Item was changed: ----- Method: BalloonMorph>>defaultColor (in category 'initialization') ----- defaultColor "answer the default color/fill style for the receiver" + ^ self userInterfaceTheme color ifNil: [self class balloonColor]! - ^ self class balloonColor! Item was changed: ----- Method: BalloonMorph>>popUp (in category 'initialization') ----- popUp - | w worldBounds | - target ifNil: [^ self]. target isInWorld ifFalse: [^ self]. - w := target world. + self prepareToOpen. + "So that if the translation below makes it overlap the receiver, it won't interfere with the rootMorphsAt: logic and hence cause flashing. Without this, flashing happens, believe me!!" - - self lock. - self fullBounds. "force layout" - self setProperty: #morphicLayerNumber toValue: self morphicLayerNumber. - "So that if the translation below makes it overlap the receiver, it won't - interfere with the rootMorphsAt: logic and hence cause flashing. Without - this, flashing happens, believe me!!" ((worldBounds := w bounds) containsRect: self bounds) ifFalse: [self bounds: (self bounds translatedToBeWithin: worldBounds)]. - self openInWorld. w activeHand addBalloonHelp: self. ! Item was changed: ----- Method: BalloonMorph>>popUpForHand: (in category 'initialization') ----- popUpForHand: aHand "Pop up the receiver as balloon help for the given hand" | worldBounds | + self prepareToOpen. - - self lock. - self fullBounds. "force layout" - self setProperty: #morphicLayerNumber toValue: self morphicLayerNumber. aHand world addMorphFront: self. "So that if the translation below makes it overlap the receiver, it won't interfere with the rootMorphsAt: logic and hence cause flashing. Without this, flashing happens, believe me!!" ((worldBounds := aHand world bounds) containsRect: self bounds) ifFalse: [self bounds: (self bounds translatedToBeWithin: worldBounds)]. aHand resetBalloonHelp: self. ! Item was added: + ----- Method: BalloonMorph>>prepareToOpen (in category 'private') ----- + prepareToOpen + "Override the color if not already set." + self userInterfaceTheme color ifNotNil: [ : col | self color: col]. + self + lock ; + fullBounds ; + setProperty: #morphicLayerNumber + toValue: self morphicLayerNumber! Item was changed: ----- Method: MenuItemMorph>>isEnabled: (in category 'accessing') ----- + isEnabled: aBoolean - isEnabled: aBoolean - isEnabled = aBoolean ifTrue: [^ self]. isEnabled := aBoolean. + self color: + (self userInterfaceTheme perform: + (aBoolean + ifTrue: [#textColor] + ifFalse: [#disabledTextColor]))! - self color: (aBoolean ifTrue: [Color black] ifFalse: [Color lightGray]). - ! Item was changed: ----- Method: PluggableTextMorph>>drawFrameAdornment:on: (in category 'drawing') ----- drawFrameAdornment: aColor on: aCanvas "Indicate edit status for the text editor" self class simpleFrameAdornments ifTrue: [ aCanvas frameRectangle: self innerBounds + width: (self userInterfaceTheme frameAdornmentWidth ifNil: [1]) - width: 1 color: aColor. aCanvas frameRectangle: (self innerBounds insetBy: 1) + width: (self userInterfaceTheme frameAdornmentWidth ifNil: [1]) - width: 1 color: (aColor alpha: aColor alpha / 3.0) ] ifFalse: [ | form | "Class-side adornment cache is currently using pre-multiplied alpha, so we need to use rule 34 which works for < 32bpp, too." form := self class adornmentWithColor: aColor. aCanvas image: form at: self innerBounds topRight - (form width @ 0) sourceRect: form boundingBox rule: 34 ]! Item was changed: ----- Method: SearchBar>>scratchPad (in category 'accessing') ----- scratchPad ^ scratchPad ifNil: [ scratchPad := TextMorphForEditView new. "we should be able to use TextMorph here; fix later" scratchPad " on: #keyboardFocusChange send: #removeScratchPad to: self ;" on: #mouseLeave send: #removeScratchPad to: self ; on: #keyStroke send: #handleScratchPadKey: to: self ; margins: (5@0 corner: 5@0); backgroundColor: (BalloonMorph balloonColor alpha: 1.0) ; setEditView: PluggableTextMorph new ; "dummy" autoFit: true ; wrapFlag: true ; newContents: '--scratch area--' ; font: ((UserInterfaceTheme current get: #font for: #PluggableTextMorph) ifNil: [TextStyle defaultFont]); textColor: ((UserInterfaceTheme current get: #textColor for: #PluggableTextMorph) ifNil: [Color black]); caretColor: ((UserInterfaceTheme current get: #caretColor for: #PluggableTextMorph) ifNil: [Color red]); + selectionColor: ((UserInterfaceTheme current get: #selectionColor for: #PluggableTextMorph) ifNil: [Color blue muchDarker] ifNotNil: [ : col | col twiceLighter ]); - selectionColor: ((UserInterfaceTheme current get: #selectionColor for: #PluggableTextMorph) ifNil: [Color blue]) muchDarker; yourself. self layoutScratchPad. Preferences menuAppearance3d ifTrue: [ scratchPad addDropShadow ]. scratchPad ]!

1 0

The Trunk: System-cmm.863.mcz
by commits＠source.squeak.org 05 Aug '16

05 Aug '16

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.863.mcz ==================== Summary ==================== Name: System-cmm.863 Author: cmm Time: 4 August 2016, 11:45:16.067202 pm UUID: 6ebf00a2-b037-4d71-a877-e905acb5fdd6 Ancestors: System-mt.862 Community Dark Theme. =============== Diff against System-mt.862 =============== Item was changed: ----- Method: CommunityTheme class>>addDarkButtons: (in category 'instance creation') ----- + addDarkButtons: aUserInterfaceTheme - addDarkButtons: theme "self createDark apply." + aUserInterfaceTheme + set: #borderColor for: #PluggableButtonMorph to: Color darkGray darker ; + set: #color for: #PluggableButtonMorph to: Color gray darker ; - theme - set: #borderColor for: #PluggableButtonMorph to: Color gray ; - set: #color for: #PluggableButtonMorph to: Color darkGray ; set: #textColor for: #PluggableButtonMorph to: Color white; + set: #selectionModifier for: #PluggableButtonMorph to: [ [:c | self dbSelection twiceDarker] ]; - set: #selectionModifier for: #PluggableButtonMorph to: [ [:c | self dbAqua twiceDarker] ]; set: #hoverModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: 0.2] ]; set: #feedbackModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: 0.3] ]. - "And the plus-version." + aUserInterfaceTheme set: #disabledTextColor for: #PluggableButtonMorphPlus to: Color lightGray! - theme set: #disabledTextColor for: #PluggableButtonMorphPlus to: Color gray. - ! Item was changed: ----- Method: CommunityTheme class>>addDarkDialogs: (in category 'instance creation') ----- + addDarkDialogs: aUserInterfaceTheme - addDarkDialogs: theme "self createDark apply." + aUserInterfaceTheme - theme set: #borderColor for: #DialogWindow to: Color darkGray; set: #color for: #DialogWindow to: Color gray; 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 ] ]. - set: #selectionModifier for: #DialogWindow to: [ [:c | c adjustBrightness: 0.2 ] ]. - "The List Chooser is a dialog, too." + aUserInterfaceTheme - theme set: #addColor for: #ListChooser to: self dbBlue; set: #disabledColor for: #ListChooser to: Color transparent. - - "And the system progress bar." + aUserInterfaceTheme - theme set: #color for: #SystemProgressBarMorph to: Color transparent; + set: #barColor for: #SystemProgressBarMorph to: self dbSelection. - set: #barColor for: #SystemProgressBarMorph to: Color darkGray. - "And the balloon morphs." + aUserInterfaceTheme + set: #borderColor for: #BalloonMorph to: Color transparent ; + set: #color for: #BalloonMorph to: (self dbOrange twiceDarker alpha: 0.9) ; + set: #textColor for: #BalloonMorph to: Color white ; + set: #font for: #BalloonMorph to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis italic emphasisCode) ; + derive: #borderColor for: #NewBalloonMorph from: #BalloonMorph at: #borderColor ; + derive: #color for: #NewBalloonMorph from: #BalloonMorph at: #color! - theme - set: #borderColor for: #NewBalloonMorph to: Color black; - set: #color for: #NewBalloonMorph to: (Color cyan muchDarker alpha: 0.7).! Item was changed: ----- Method: CommunityTheme class>>addDarkFonts: (in category 'instance creation') ----- + addDarkFonts: aUserInterfaceTheme - addDarkFonts: theme - "Set-up fonts." + aUserInterfaceTheme + set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis italic emphasisCode); - theme - set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7); 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: #standardCodeFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardDefaultTextFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); 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: 'Darkmap DejaVu Sans' pointSize: 9)! - set: #standardListFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardMenuFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardSystemFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #windowTitleFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9).! Item was changed: ----- Method: CommunityTheme class>>addDarkMenusAndDockingBars: (in category 'instance creation') ----- + addDarkMenusAndDockingBars: aUserInterfaceTheme - addDarkMenusAndDockingBars: theme "self createDark apply." + aUserInterfaceTheme - theme set: #borderWidth for: #MenuMorph to: 0; + set: #color for: #MenuMorph to: Color darkGray twiceDarker; - set: #color for: #MenuMorph to: Color darkGray; set: #titleTextColor for: #MenuMorph to: Color white; + set: #lineColor for: #MenuMorph to: Color darkGray; - set: #lineColor for: #MenuMorph to: Color lightGray; 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: self dbForeground ; + set: #disabledTextColor for: #MenuItemMorph to: self dbForeground muchDarker. - - theme - set: #textColor for: #MenuItemMorph to: Color white; - set: #selectionColor for: #MenuItemMorph to: self dbAqua; - set: #selectionTextColor for: #MenuItemMorph to: Color white. "set: #subMenuMarker for: #MenuItemMorph to: nil." "Use hard-coded default. See MenuItemMorph." - "The world main docking bar." + aUserInterfaceTheme - theme " 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! - set: #selectionLogoColor for: #TheWorldMainDockingBar to: Color black.! Item was changed: ----- Method: CommunityTheme class>>addDarkScrollables: (in category 'instance creation') ----- + addDarkScrollables: aUserInterfaceTheme - addDarkScrollables: theme "self createDark apply." - "Scroll bars" + aUserInterfaceTheme + set: #thumbColor for: #ScrollBar to: self dbGray; + set: #thumbBorderColor for: #ScrollBar to: self dbGray twiceDarker. - theme - set: #thumbColor for: #ScrollBar to: Color gray; - set: #thumbBorderColor for: #ScrollBar to: Color darkGray. - "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets." + aUserInterfaceTheme - theme set: #color for: #ScrollPane to: (Color gray: 0.1). - "List widgets" + aUserInterfaceTheme - theme set: #textColor for: #PluggableListMorph to: (Color gray: 0.9); + set: #selectionColor for: #PluggableListMorph to: self dbSelection; + derive: #selectionTextColor for: #PluggableListMorph from: #PluggableListMorph at: #textColor ; - set: #selectionColor for: #PluggableListMorph to: self dbAqua; - 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.5); + derive: #filterTextColor for: #PluggableListMorph from: #PluggableListMorph at: #textColor ; - set: #filterTextColor for: #PluggableListMorph to: Color white; set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | c twiceDarker ] ]; set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c twiceDarker alpha: 0.5 ] ]. - "Tree widgets" + aUserInterfaceTheme - theme set: #highlightTextColor for: #SimpleHierarchicalListMorph to: self dbYellow lighter lighter; set: #lineColor for: #SimpleHierarchicalListMorph to: Color gray. - "Text widgets" + aUserInterfaceTheme - theme 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: #caretColor for: #PluggableTextMorph to: Color white; - set: #selectionColor for: #PluggableTextMorph to: (Color r: 0.15 g: 0.4 b: 0.15 alpha: 1.0); 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! - set: #adornmentDiffEdit for: #PluggableTextMorph to: self dbYellow. - theme - set: #balloonTextColor for: #PluggableTextMorphPlus to: Color darkGray.! Item was changed: ----- Method: CommunityTheme class>>addDarkSyntaxHighlighting: (in category 'instance creation') ----- + addDarkSyntaxHighlighting: aUserInterfaceTheme - addDarkSyntaxHighlighting: theme "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 - theme 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. underlined. darkMap}; + set: #patternBinary for: #SHTextStylerST80 to: {nil. bold}; + 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: #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: #invalid for: #SHTextStylerST80 to: {self dbRed}; - set: #excessCode for: #SHTextStylerST80 to: {self dbRed}; - set: #comment for: #SHTextStylerST80 to: {Color gray: 0.3}; - set: #unfinishedComment for: #SHTextStylerST80 to: {self dbRed. TextEmphasis italic}; - set: #'$' for: #SHTextStylerST80 to: {self dbRed}; - set: #character for: #SHTextStylerST80 to: {self dbRed}; - set: #integer for: #SHTextStylerST80 to: {self dbRed}; - set: #number for: #SHTextStylerST80 to: {self dbRed}; - set: #- for: #SHTextStylerST80 to: {self dbRed}; - set: #symbol for: #SHTextStylerST80 to: {self dbBlue}; - set: #stringSymbol for: #SHTextStylerST80 to: {self dbBlue}; - set: #literalArray for: #SHTextStylerST80 to: {self dbBlue}; - set: #string for: #SHTextStylerST80 to: {self dbPurple. TextEmphasis normal}; - set: #unfinishedString for: #SHTextStylerST80 to: {self dbRed. TextEmphasis normal}; - set: #assignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold}; - set: #ansiAssignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold}; - set: #literal for: #SHTextStylerST80 to: {nil. TextEmphasis italic}; - set: #keyword for: #SHTextStylerST80 to: {self dbBlue}; - set: #binary for: #SHTextStylerST80 to: {self dbBlue}; - set: #unary for: #SHTextStylerST80 to: {self dbBlue}; - set: #incompleteKeyword for: #SHTextStylerST80 to: {self dbForeground. TextEmphasis underlined}; - set: #incompleteBinary for: #SHTextStylerST80 to: {self dbForeground. TextEmphasis underlined}; - set: #incompleteUnary for: #SHTextStylerST80 to: {self dbForeground. TextEmphasis underlined}; - set: #undefinedKeyword for: #SHTextStylerST80 to: {self dbRed}; - set: #undefinedBinary for: #SHTextStylerST80 to: {self dbRed}; - set: #undefinedUnary for: #SHTextStylerST80 to: {self dbRed}; - set: #patternKeyword for: #SHTextStylerST80 to: {nil. TextEmphasis bold}; - set: #patternBinary for: #SHTextStylerST80 to: {nil. TextEmphasis bold}; - set: #patternUnary for: #SHTextStylerST80 to: {nil. TextEmphasis bold}; - set: #self for: #SHTextStylerST80 to: {self dbRed}; - set: #super for: #SHTextStylerST80 to: {self dbRed}; - set: #true for: #SHTextStylerST80 to: {self dbRed}; - set: #false for: #SHTextStylerST80 to: {self dbRed}; - set: #nil for: #SHTextStylerST80 to: {self dbRed}; - set: #thisContext for: #SHTextStylerST80 to: {self dbRed}; - set: #return for: #SHTextStylerST80 to: {self dbRed}; - set: #patternArg for: #SHTextStylerST80 to: {self dbBlue}; - set: #methodArg for: #SHTextStylerST80 to: {self dbBlue}; - set: #blockPatternArg for: #SHTextStylerST80 to: {self dbBlue}; - set: #blockArg for: #SHTextStylerST80 to: {self dbBlue}; - set: #argument for: #SHTextStylerST80 to: {self dbBlue}; - set: #blockArgColon for: #SHTextStylerST80 to: {self dbForeground}; - set: #leftParenthesis for: #SHTextStylerST80 to: {self dbForeground}; - set: #rightParenthesis for: #SHTextStylerST80 to: {self dbForeground}; 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: #blockStart for: #SHTextStylerST80 to: {self dbForeground}; - set: #blockEnd for: #SHTextStylerST80 to: {self dbForeground}; 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: #arrayStart for: #SHTextStylerST80 to: {self dbForeground}; - set: #arrayEnd for: #SHTextStylerST80 to: {self dbForeground}; 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. 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. darkMap}. - set: #methodTempBar for: #SHTextStylerST80 to: {self dbForeground}; - set: #blockTempBar for: #SHTextStylerST80 to: {self dbForeground}; - set: #blockArgsBar for: #SHTextStylerST80 to: {self dbForeground}; - set: #primitive for: #SHTextStylerST80 to: {self dbGreen. TextEmphasis bold}; - set: #pragmaKeyword for: #SHTextStylerST80 to: {self dbGreen. TextEmphasis bold}; - set: #pragmaUnary for: #SHTextStylerST80 to: {self dbGreen. TextEmphasis bold}; - set: #pragmaBinary for: #SHTextStylerST80 to: {self dbGreen. TextEmphasis bold}; - set: #externalFunctionCallingConvention for: #SHTextStylerST80 to: {self dbGreen. TextEmphasis bold}; - set: #module for: #SHTextStylerST80 to: {self dbGreen. TextEmphasis bold}; - set: #blockTempVar for: #SHTextStylerST80 to: {self dbForeground}; - set: #blockPatternTempVar for: #SHTextStylerST80 to: {self dbForeground}; - set: #instVar for: #SHTextStylerST80 to: {self dbForeground}; - set: #workspaceVar for: #SHTextStylerST80 to: {self dbForeground}; - set: #undefinedIdentifier for: #SHTextStylerST80 to: {self dbRed}; - set: #incompleteIdentifier for: #SHTextStylerST80 to: {self dbForeground. {TextEmphasis italic. TextEmphasis underlined}}; - set: #tempVar for: #SHTextStylerST80 to: {self dbForeground}; - set: #patternTempVar for: #SHTextStylerST80 to: {self dbForeground}; - set: #poolConstant for: #SHTextStylerST80 to: {self dbForeground}; - set: #classVar for: #SHTextStylerST80 to: {self dbForeground}; - set: #globalVar for: #SHTextStylerST80 to: {self dbForeground}. - "And the text differ" + aUserInterfaceTheme - theme 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 - addDarkWindowColors: theme "self createDark apply." + aUserInterfaceTheme - theme 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: #Browser to: self dbGreen; set: #customWindowColor for: #ChangeList to: self dbBlue; set: #customWindowColor for: #ChangeSorter to: self dbBlue; 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; + 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: #DualChangeSorter to: self dbBlue; - set: #customWindowColor for: #FileContentsBrowser to: self dbYellow; - set: #customWindowColor for: #FileList to: self dbYellow; - set: #customWindowColor for: #InstanceBrowser to: self dbBlue; - set: #customWindowColor for: #Lexicon to: self dbBlue; - set: #customWindowColor for: #MCTool to: self dbPurple; 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: #MessageSet to: self dbBlue; - set: #customWindowColor for: #PackagePaneBrowser to: self dbGreen; - set: #customWindowColor for: #PluggableFileList to: self dbYellow; set: #customWindowColor for: #PreferenceBrowser to: self dbBlue; 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: #ScriptingDomain to: self dbYellow; set: #customWindowColor for: #SelectorBrowser to: self dbBlue; + set: #customWindowColor for: #StringHolder to: self dbGray; - set: #customWindowColor for: #StringHolder to: self dbYellow; set: #customWindowColor for: #TestRunner to: self dbOrange; + set: #customWindowColor for: #TranscriptStream to: self dbGray; + set: #customWindowColor for: #VersionsBrowser to: self dbPurple; + set: #customWindowColor for: #Workspace to: self dbGray.! - set: #customWindowColor for: #TranscriptStream to: self dbOrange; - set: #customWindowColor for: #VersionsBrowser to: self dbPurple.! 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: #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.02); - set: #keyboardFocusColor for: #Morph to: Color white; - set: #keyboardFocusWidth for: #Morph to: 1; - set: #softShadowColor for: #Morph to: (Color white alpha: 0.03); set: #softShadowOffset for: #Morph to: (10@8 corner: 10@12); + set: #hardShadowColor for: #Morph to: (self dbSelection muchLighter alpha: 0.02); - set: #hardShadowColor for: #Morph to: (Color white alpha: 0.5); set: #hardShadowOffset for: #Morph to: 1@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') ----- - ----- Method: CommunityTheme class>>dbAqua (in category 'colors by purpose') ----- 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 r: 0.1 g: 0.1 b: 0.1! - dbBackground - ^Color r: 0.113 g: 0.121 b: 0.129 - ! Item was added: + ----- Method: CommunityTheme class>>dbBedrock (in category 'colors by purpose') ----- + dbBedrock + "Basic syntactical matter which users cannot change." + ^ self dbForeground! Item was changed: + ----- Method: CommunityTheme class>>dbBlue (in category 'colors') ----- - ----- Method: CommunityTheme class>>dbBlue (in category 'colors by purpose') ----- dbBlue ^Color r: 0.406 g: 0.535 b: 0.645! Item was added: + ----- Method: CommunityTheme class>>dbClass (in category 'colors by purpose') ----- + dbClass + ^ self dbBlue! Item was changed: ----- Method: CommunityTheme class>>dbComment (in category 'colors by purpose') ----- + dbComment + "The code should speak for itself. Where it cannot, any comments should just be subtle, clarifying whispers." + ^ Color gray darker! - dbComment - ^Color r: 0.588 g: 0.596 b: 0.588 - ! Item was added: + ----- Method: CommunityTheme class>>dbConstant (in category 'colors by purpose') ----- + dbConstant + "Let unparameterized constants stand out in red." + ^ self dbRed! Item was removed: - ----- Method: CommunityTheme class>>dbCurrentLine (in category 'colors by purpose') ----- - dbCurrentLine - ^Color r:0.156 g: 0.164 b: 0.181! Item was changed: ----- Method: CommunityTheme class>>dbForeground (in category 'colors by purpose') ----- + dbForeground + "Not too bright." + ^Color r: 0.764 g: 0.776 b: 0.768! - dbForeground - ^Color r: 0.772 g: 0.784 b: 0.776! Item was added: + ----- Method: CommunityTheme class>>dbGray (in category 'colors') ----- + dbGray + ^ Color gray slightlyDarker! Item was changed: + ----- Method: CommunityTheme class>>dbGreen (in category 'colors') ----- - ----- Method: CommunityTheme class>>dbGreen (in category 'colors by purpose') ----- dbGreen ^(Color r: 0.33 g: 0.542 b: 0.287)! Item was added: + ----- 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 twiceDarker! Item was added: + ----- Method: CommunityTheme class>>dbLocal (in category 'colors by purpose') ----- + dbLocal + "Local variables can be descriptive, sometimes saving the need for a comment." + ^ self dbPink! Item was added: + ----- Method: CommunityTheme class>>dbMessage (in category 'colors by purpose') ----- + dbMessage + "Green is the universal color for okay, positive, go. In Squeak, sending messages are what make objects 'go'." + ^ self dbGreen + adjustSaturation: 0.05 + brightness: 0.10! Item was changed: + ----- Method: CommunityTheme class>>dbOrange (in category 'colors') ----- - ----- Method: CommunityTheme class>>dbOrange (in category 'colors by purpose') ----- dbOrange + ^Color r: 0.871 g: 0.577 b: 0.372! - ^Color r: 0.4 g: 0.2666 b: 0.172! Item was added: + ----- Method: CommunityTheme class>>dbPink (in category 'colors') ----- + dbPink + ^ (Color r: 0.739 g: 0.552 b: 0.652)! Item was changed: + ----- Method: CommunityTheme class>>dbPurple (in category 'colors') ----- - ----- Method: CommunityTheme class>>dbPurple (in category 'colors by purpose') ----- dbPurple ^Color r: 0.698 g: 0.581 b: 0.733! Item was changed: + ----- Method: CommunityTheme class>>dbRed (in category 'colors') ----- - ----- Method: CommunityTheme class>>dbRed (in category 'colors by purpose') ----- dbRed ^Color r: 0.6 g: 0.3 b: 0.3! Item was added: + ----- Method: CommunityTheme class>>dbReference (in category 'colors by purpose') ----- + dbReference + "References to other objects. Yellow like gold." + ^ self dbYellow! 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.10! - dbSelection - ^Color r: 0.216 g: 0.232 b: 0.255! Item was changed: + ----- Method: CommunityTheme class>>dbYellow (in category 'colors') ----- - ----- Method: CommunityTheme class>>dbYellow (in category 'colors by purpose') ----- dbYellow + ^ (Color r: 0.675 g: 0.632 b: 0.16)! - ^ (Color r: 0.554 g: 0.488 b: 0.134)!

1 0

The Trunk: MorphicTests-mt.35.mcz
by commits＠source.squeak.org 04 Aug '16

04 Aug '16

Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-mt.35.mcz ==================== Summary ==================== Name: MorphicTests-mt.35 Author: mt Time: 4 August 2016, 1:36:40.325068 pm UUID: 73892cc3-1745-5e41-8e59-26010520922e Ancestors: MorphicTests-mt.34 Fixes a test. There are no side-effects in pluggable buttons anymore. =============== Diff against MorphicTests-mt.34 =============== Item was changed: ----- Method: MorphicToolBuilderTests>>expectedButtonSideEffects (in category 'support') ----- expectedButtonSideEffects + ^#()! - ^#(getColor getState getEnabled)!

1 0

The Trunk: MorphicTests-mt.34.mcz
by commits＠source.squeak.org 04 Aug '16

04 Aug '16

Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-mt.34.mcz ==================== Summary ==================== Name: MorphicTests-mt.34 Author: mt Time: 4 August 2016, 1:34:30.435068 pm UUID: 3eb4d2c9-273f-054e-8199-367bc3fdf5cc Ancestors: MorphicTests-mt.33 Fixes a test. Pluggable button's color tests can only work if the state of the button is off. Most of our buttons are in the off state and hence that's what the color defines. =============== Diff against MorphicTests-mt.33 =============== Item was added: + ----- Method: MorphicToolBuilderTests>>getState (in category 'support') ----- + getState + queries add: #getState. + ^false!

1 0

The Trunk: EToys-pre.141.mcz
by commits＠source.squeak.org 04 Aug '16

04 Aug '16

Patrick Rein uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-pre.141.mcz ==================== Summary ==================== Name: EToys-pre.141 Author: pre Time: 4 August 2016, 12:47:41.822407 pm UUID: 7f4ea675-0382-3e4e-a28e-5bffa94563d3 Ancestors: EToys-mt.140 Same fix applied to TrashCanBin applied to etoys morphs. =============== Diff against EToys-mt.140 =============== Item was changed: ----- Method: StandardScriptingSystem>>goButton (in category '*Etoys-script-control') ----- goButton | aButton | aButton := ThreePhaseButtonMorph new. + aButton - aButton image: (ScriptingSystem formAtKey: 'GoPicOn'); offImage: (ScriptingSystem formAtKey: 'GoPic'); pressedImage: (ScriptingSystem formAtKey: 'GoPicOn'); + image: (ScriptingSystem formAtKey: 'GoPicOn'); actionSelector: #goUp:with:; arguments: (Array with: nil with: aButton); actWhen: #buttonUp; target: self; setNameTo: 'Go Button'; setBalloonText: 'Resume running all paused scripts' translated. ^ aButton! Item was changed: ----- Method: StandardScriptingSystem>>stepButton (in category '*Etoys-script-control') ----- stepButton | aButton | self flag: #deferred. "ambiguity about recipients" aButton := ThreePhaseButtonMorph new. aButton - image: (ScriptingSystem formAtKey: 'StepPicOn'); offImage: (ScriptingSystem formAtKey: 'StepPic'); pressedImage: (ScriptingSystem formAtKey: 'StepPicOn'); + image: (ScriptingSystem formAtKey: 'StepPicOn'); arguments: (Array with: nil with: aButton); actionSelector: #stepStillDown:with:; target: self; setNameTo: 'Step Button'; actWhen: #whilePressed; on: #mouseDown send: #stepDown:with: to: self; on: #mouseStillDown send: #stepStillDown:with: to: self; on: #mouseUp send: #stepUp:with: to: self; setBalloonText: 'Run every paused script exactly once. Keep the mouse button down over "Step" and everything will keep running until you release it' translated. ^ aButton! Item was changed: ----- Method: StandardScriptingSystem>>stopButton (in category '*Etoys-script-control') ----- stopButton "Answer a new button that can serve as a stop button" | aButton | aButton := ThreePhaseButtonMorph new. aButton - image: (ScriptingSystem formAtKey: 'StopPic'); offImage: (ScriptingSystem formAtKey: 'StopPic'); + pressedImage: (ScriptingSystem formAtKey: 'StopPicOn'); + image: (ScriptingSystem formAtKey: 'StopPic'). - pressedImage: (ScriptingSystem formAtKey: 'StopPicOn'). aButton actionSelector: #stopUp:with:; arguments: (Array with: nil with: aButton); actWhen: #buttonUp; target: self; setNameTo: 'Stop Button'; setBalloonText: 'Pause all ticking scripts.' translated. ^ aButton!

1 0

← Newer
1
...
46
47
48
49
50
51
52
53
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2016