[squeak-dev] The Trunk: System-ar.298.mczcommits at source.squeak.org commits at source.squeak.orgThu Mar 25 04:13:26 UTC 2010
Andreas Raab uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ar.298.mcz ==================== Summary ==================== Name: System-ar.298 Author: ar Time: 24 March 2010, 9:12:20.149 pm UUID: 909e1052-a5f7-be45-8b7c-4c903b88a915 Ancestors: System-ar.297 Updated default window color preferences. =============== Diff against System-ar.297 =============== Item was changed: ----- Method: Preferences class>>lexiconWindowColor (in category 'standard queries') ----- lexiconWindowColor ^ self valueOfFlag: #lexiconWindowColor ifAbsent: [Color + r: 0.971 + g: 0.971 + b: 0.971]! - r: 0.878 - g: 1.0 - b: 0.878]! Item was changed: ----- Method: Preferences class>>instanceBrowserWindowColor (in category 'standard queries') ----- instanceBrowserWindowColor ^ self valueOfFlag: #instanceBrowserWindowColor ifAbsent: [Color + r: 0.971 + g: 0.971 + b: 0.971]! - r: 0.806 - g: 1.0 - b: 1.0]! Item was changed: ----- Method: Preferences class>>fileListWindowColor (in category 'standard queries') ----- fileListWindowColor ^ self valueOfFlag: #fileListWindowColor ifAbsent: [Color + r: 0.971 + g: 0.971 + b: 0.971]! - r: 1.0 - g: 0.8 - b: 1.0]! Item was changed: ----- Method: Preferences class>>debuggerWindowColor (in category 'standard queries') ----- debuggerWindowColor ^ self valueOfFlag: #debuggerWindowColor ifAbsent: [Color + r: 0.971 + g: 0.971 + b: 0.971]! - r: 1.0 - g: 0.8 - b: 0.8]! Item was changed: ----- Method: Preferences class>>defaultWindowColor (in category 'standard queries') ----- defaultWindowColor ^ self valueOfFlag: #defaultWindowColor ifAbsent: [Color + r: 0.971 + g: 0.971 + b: 0.971]! - r: 1.0 - g: 1.0 - b: 1.0]! Item was changed: ----- Method: Preferences class>>workspaceWindowColor (in category 'standard queries') ----- workspaceWindowColor ^ self valueOfFlag: #workspaceWindowColor ifAbsent: [Color + r: 0.971 + g: 0.971 + b: 0.971]! - r: 1.0 - g: 1.0 - b: 0.8]! Item was changed: ----- Method: Preferences class>>windowColorHelp (in category 'window colors') ----- windowColorHelp "Provide help for the window-color panel" | helpString | helpString := 'The "Window Colors" panel lets you select colors for many kinds of standard Squeak windows. You can change your color preference for any particular tool by clicking on the color swatch and then selecting the desired color from the resulting color-picker. + The three buttons entitled "Bright", "Pastel", and "Gray" let you revert to any of three different standard color schemes. - The three buttons entitled "Bright", "Pastel", and "White" let you revert to any of three different standard color schemes. The choices you make in the Window Colors panel only affect the colors of new windows that you open. You can make other tools have their colors governed by this panel by simply implementing #windowColorSpecification on the class side of the model -- consult implementors of that method to see examples of how to do this.'. (StringHolder new contents: helpString) openLabel: 'About Window Colors' "Preferences windowColorHelp"! Item was changed: ----- Method: Preferences class>>classCommentVersionsBrowserWindowColor (in category 'standard queries') ----- classCommentVersionsBrowserWindowColor ^ self valueOfFlag: #classCommentVersionsBrowserWindowColor ifAbsent: [Color + r: 0.971 + g: 0.971 + b: 0.971]! - r: 0.769 - g: 0.653 - b: 1.0]! Item was changed: ----- Method: Preferences class>>fileContentsBrowserWindowColor (in category 'standard queries') ----- fileContentsBrowserWindowColor ^ self valueOfFlag: #fileContentsBrowserWindowColor ifAbsent: [Color + r: 0.971 + g: 0.971 + b: 0.971]! - r: 0.8 - g: 0.8 - b: 0.5]! Item was changed: ----- Method: Preferences class>>versionsBrowserWindowColor (in category 'standard queries') ----- versionsBrowserWindowColor ^ self valueOfFlag: #versionsBrowserWindowColor ifAbsent: [Color + r: 0.971 + g: 0.971 + b: 0.971]! - r: 0.869 - g: 0.753 - b: 1.0]! Item was changed: ----- Method: Preferences class>>testRunnerWindowColor (in category 'standard queries') ----- testRunnerWindowColor ^ self valueOfFlag: #testRunnerWindowColor ifAbsent: [Color + r: 0.971 + g: 0.971 + b: 0.971]! - r: 0.65 - g: 0.753 - b: 0.976]! Item was changed: ----- Method: Preferences class>>dualChangeSorterWindowColor (in category 'standard queries') ----- dualChangeSorterWindowColor ^ self valueOfFlag: #dualChangeSorterWindowColor ifAbsent: [Color + r: 0.971 + g: 0.971 + b: 0.971]! - r: 0.8 - g: 1.0 - b: 1.0]! Item was changed: ----- Method: Preferences class>>messageListWindowColor (in category 'standard queries') ----- messageListWindowColor ^ self valueOfFlag: #messageListWindowColor ifAbsent: [Color + r: 0.971 + g: 0.971 + b: 0.971]! - r: 0.8 - g: 1.0 - b: 1.0]! Item was changed: ----- Method: Preferences class>>messageNamesWindowColor (in category 'standard queries') ----- messageNamesWindowColor ^ self valueOfFlag: #messageNamesWindowColor ifAbsent: [Color + r: 0.971 + g: 0.971 + b: 0.971]! - r: 0.645 - g: 1.0 - b: 0.452]! Item was changed: ----- Method: Preferences class>>browserWindowColor (in category 'standard queries') ----- browserWindowColor ^ self valueOfFlag: #browserWindowColor ifAbsent: [Color + r: 0.971 + g: 0.971 + b: 0.971]! - r: 0.8 - g: 1.0 - b: 0.6]! Item was added: + ----- Method: Preferences class>>packageLoaderWindowColor (in category 'standard queries') ----- + packageLoaderWindowColor + ^ self + valueOfFlag: #packageLoaderWindowColor + ifAbsent: [Color + r: 0.971 + g: 0.971 + b: 0.971]! Item was changed: ----- Method: Preferences class>>transcriptWindowColor (in category 'standard queries') ----- transcriptWindowColor ^ self valueOfFlag: #transcriptWindowColor ifAbsent: [Color + r: 0.971 + g: 0.971 + b: 0.971]! - r: 1.0 - g: 0.8 - b: 0.4]! Item was changed: ----- Method: Preferences class>>installWindowColorsVia: (in category 'window colors') ----- installWindowColorsVia: colorSpecBlock "Install windows colors using colorSpecBlock to deliver the color source for each element; the block is handed a WindowColorSpec object" "Preferences installBrightWindowColors" + WindowColorRegistry refresh. self windowColorTable do: [:aColorSpec | | color | color := (Color colorFrom: (colorSpecBlock value: aColorSpec)). + self setWindowColorFor: aColorSpec classSymbol to: color]. + SystemWindow withAllSubclasses do: [:c | + c allInstances do: [:w | w refreshWindowColor]]. - self setWindowColorFor: aColorSpec classSymbol to: color] ! Item was changed: ----- Method: Preferences class>>changeSorterWindowColor (in category 'standard queries') ----- changeSorterWindowColor ^ self valueOfFlag: #changeSorterWindowColor ifAbsent: [Color + r: 0.971 + g: 0.971 + b: 0.971]! - r: 0.8 - g: 1.0 - b: 1.0]! Item was changed: ----- Method: Preferences class>>methodFinderWindowColor (in category 'standard queries') ----- methodFinderWindowColor ^ self valueOfFlag: #methodFinderWindowColor ifAbsent: [Color + r: 0.971 + g: 0.971 + b: 0.971]! - r: 0.4 - g: 1.0 - b: 1.0]! Item was changed: ----- Method: Preferences class>>changeListWindowColor (in category 'standard queries') ----- changeListWindowColor ^ self valueOfFlag: #changeListWindowColor ifAbsent: [Color + r: 0.971 + g: 0.971 + b: 0.971]! - r: 0.8 - g: 1.0 - b: 1.0]! Item was changed: ----- Method: Preferences class>>preferenceBrowserWindowColor (in category 'standard queries') ----- preferenceBrowserWindowColor ^ self valueOfFlag: #preferenceBrowserWindowColor ifAbsent: [Color + r: 0.971 + g: 0.971 + b: 0.971]! - r: 0.645 - g: 1.0 - b: 1.0]! Item was changed: ----- Method: Preferences class>>packageBrowserWindowColor (in category 'standard queries') ----- packageBrowserWindowColor ^ self valueOfFlag: #packageBrowserWindowColor ifAbsent: [Color + r: 0.971 + g: 0.971 + b: 0.971]! - r: 1.0 - g: 1.0 - b: 0.6]! Item was changed: ----- Method: Preferences class>>installUniformWindowColors (in category 'window colors') ----- installUniformWindowColors "Install the factory-provided uniform window colors for all tools" "Preferences installUniformWindowColors" + self installWindowColorsVia: [:aQuad | Color veryVeryLightGray muchLighter]! - self installWindowColorsVia: [:aQuad | #white]! Item was added: + ----- Method: Preferences class>>monticelloToolWindowColor (in category 'standard queries') ----- + monticelloToolWindowColor + ^ self + valueOfFlag: #monticelloToolWindowColor + ifAbsent: [Color + r: 0.971 + g: 0.971 + b: 0.971]! Item was removed: - ----- Method: Preferences class>>clickOnLabelToEdit (in category 'standard queries') ----- - clickOnLabelToEdit - ^ self - valueOfFlag: #clickOnLabelToEdit - ifAbsent: [false]!
More information about the Squeak-dev mailing list |