The Trunk: System-ar.298.mcz

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]!