The Trunk: System-cmm.863.mcz
Locked
 
|
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)! |
«
Return to Squeak - Dev
|
1 view|%1 views
| Free forum by Nabble | Edit this page |