The Trunk: System-tfel.303.mcz

Andreas Raab uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-tfel.303.mcz

==================== Summary ====================

Name: System-tfel.303
Author: tfel
Time: 27 March 2010, 9:57:46.948 pm
UUID: 5a917360-5aea-4468-96ab-399184018b96
Ancestors: System-ar.302

* Make the gray for the windows a little darker, that's easier on the eyes
* Set the default window title font size to 9 (new Squeakers will appreciate this, I believe)

=============== Diff against System-ar.302 ===============

Item was changed:
  ----- Method: Preferences class>>restoreDefaultFonts (in category 'fonts') -----
  restoreDefaultFonts
  "Since this is called from menus, we can take the opportunity to prompt for missing font styles."
  "
  Preferences restoreDefaultFonts
  "
 
  self setDefaultFonts: #(
  (setSystemFontTo: 'Bitmap DejaVu Sans' 9)
  (setListFontTo: 'Bitmap DejaVu Sans' 9)
  (setFlapsFontTo: Accushi 12)
  (setEToysFontTo: BitstreamVeraSansBold 9)
  (setPaintBoxButtonFontTo: BitstreamVeraSansBold 9)
  (setMenuFontTo: 'Bitmap DejaVu Sans' 9)
+ (setWindowTitleFontTo: 'Bitmap DejaVu Sans Bold' 9)
- (setWindowTitleFontTo: 'Bitmap DejaVu Sans Bold' 12)
  (setBalloonHelpFontTo: Accujen 9)
  (setCodeFontTo: 'Bitmap DejaVu Sans' 9)
  (setButtonFontTo: BitstreamVeraSansMono 9)
  )
  !

Item was changed:
  ----- Method: Preferences class>>lexiconWindowColor (in category 'standard queries') -----
  lexiconWindowColor
  ^ self
  valueOfFlag: #lexiconWindowColor
  ifAbsent: [Color
+ r: 0.875
+ g: 0.875
+ b: 0.875]!
- r: 0.971
- g: 0.971
- b: 0.971]!

Item was changed:
  ----- Method: Preferences class>>instanceBrowserWindowColor (in category 'standard queries') -----
  instanceBrowserWindowColor
  ^ self
  valueOfFlag: #instanceBrowserWindowColor
  ifAbsent: [Color
+ r: 0.875
+ g: 0.875
+ b: 0.875]!
- r: 0.971
- g: 0.971
- b: 0.971]!

Item was changed:
  ----- Method: Preferences class>>fileListWindowColor (in category 'standard queries') -----
  fileListWindowColor
  ^ self
  valueOfFlag: #fileListWindowColor
  ifAbsent: [Color
+ r: 0.875
+ g: 0.875
+ b: 0.875]!
- r: 0.971
- g: 0.971
- b: 0.971]!

Item was changed:
  ----- Method: Preferences class>>debuggerWindowColor (in category 'standard queries') -----
  debuggerWindowColor
  ^ self
  valueOfFlag: #debuggerWindowColor
  ifAbsent: [Color
+ r: 0.875
+ g: 0.875
+ b: 0.875]!
- r: 0.971
- g: 0.971
- b: 0.971]!

Item was changed:
  ----- Method: Preferences class>>defaultWindowColor (in category 'standard queries') -----
  defaultWindowColor
  ^ self
  valueOfFlag: #defaultWindowColor
  ifAbsent: [Color
+ r: 0.875
+ g: 0.875
+ b: 0.875]!
- r: 0.971
- g: 0.971
- b: 0.971]!

Item was changed:
  ----- Method: Preferences class>>workspaceWindowColor (in category 'standard queries') -----
  workspaceWindowColor
  ^ self
  valueOfFlag: #workspaceWindowColor
  ifAbsent: [Color
+ r: 0.875
+ g: 0.875
+ b: 0.875]!
- r: 0.971
- g: 0.971
- b: 0.971]!

Item was changed:
  ----- Method: Preferences class>>classCommentVersionsBrowserWindowColor (in category 'standard queries') -----
  classCommentVersionsBrowserWindowColor
  ^ self
  valueOfFlag: #classCommentVersionsBrowserWindowColor
  ifAbsent: [Color
+ r: 0.875
+ g: 0.875
+ b: 0.875]!
- r: 0.971
- g: 0.971
- b: 0.971]!

Item was changed:
  ----- Method: Preferences class>>fileContentsBrowserWindowColor (in category 'standard queries') -----
  fileContentsBrowserWindowColor
  ^ self
  valueOfFlag: #fileContentsBrowserWindowColor
  ifAbsent: [Color
+ r: 0.875
+ g: 0.875
+ b: 0.875]!
- r: 0.971
- g: 0.971
- b: 0.971]!

Item was changed:
  ----- Method: Preferences class>>versionsBrowserWindowColor (in category 'standard queries') -----
  versionsBrowserWindowColor
  ^ self
  valueOfFlag: #versionsBrowserWindowColor
  ifAbsent: [Color
+ r: 0.875
+ g: 0.875
+ b: 0.875]!
- r: 0.971
- g: 0.971
- b: 0.971]!

Item was changed:
  ----- Method: Preferences class>>traceMessages (in category 'standard queries') -----
  traceMessages
  ^ self
  valueOfFlag: #traceMessages
+ ifAbsent: [false]!
- ifAbsent: [ false ]!

Item was changed:
  ----- Method: Preferences class>>testRunnerWindowColor (in category 'standard queries') -----
  testRunnerWindowColor
  ^ self
  valueOfFlag: #testRunnerWindowColor
  ifAbsent: [Color
+ r: 0.875
+ g: 0.875
+ b: 0.875]!
- r: 0.971
- g: 0.971
- b: 0.971]!

Item was changed:
  ----- Method: Preferences class>>dualChangeSorterWindowColor (in category 'standard queries') -----
  dualChangeSorterWindowColor
  ^ self
  valueOfFlag: #dualChangeSorterWindowColor
  ifAbsent: [Color
+ r: 0.875
+ g: 0.875
+ b: 0.875]!
- r: 0.971
- g: 0.971
- b: 0.971]!

Item was changed:
  ----- Method: Preferences class>>messageListWindowColor (in category 'standard queries') -----
  messageListWindowColor
  ^ self
  valueOfFlag: #messageListWindowColor
  ifAbsent: [Color
+ r: 0.875
+ g: 0.875
+ b: 0.875]!
- r: 0.971
- g: 0.971
- b: 0.971]!

Item was changed:
  ----- Method: Preferences class>>messageNamesWindowColor (in category 'standard queries') -----
  messageNamesWindowColor
  ^ self
  valueOfFlag: #messageNamesWindowColor
  ifAbsent: [Color
+ r: 0.875
+ g: 0.875
+ b: 0.875]!
- r: 0.971
- g: 0.971
- b: 0.971]!

Item was changed:
  ----- Method: Preferences class>>browserWindowColor (in category 'standard queries') -----
  browserWindowColor
  ^ self
  valueOfFlag: #browserWindowColor
  ifAbsent: [Color
+ r: 0.875
+ g: 0.875
+ b: 0.875]!
- r: 0.971
- g: 0.971
- b: 0.971]!

Item was changed:
  ----- Method: Preferences class>>packageLoaderWindowColor (in category 'standard queries') -----
  packageLoaderWindowColor
  ^ self
  valueOfFlag: #packageLoaderWindowColor
  ifAbsent: [Color
+ r: 0.875
+ g: 0.875
+ b: 0.875]!
- 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.875
+ g: 0.875
+ b: 0.875]!
- r: 0.971
- g: 0.971
- b: 0.971]!

Item was changed:
  ----- Method: Preferences class>>changeSorterWindowColor (in category 'standard queries') -----
  changeSorterWindowColor
  ^ self
  valueOfFlag: #changeSorterWindowColor
  ifAbsent: [Color
+ r: 0.875
+ g: 0.875
+ b: 0.875]!
- r: 0.971
- g: 0.971
- b: 0.971]!

Item was changed:
+ (PackageInfo named: 'System') postscript: 'Preferences restoreDefaultFonts.'!
- (PackageInfo named: 'System') postscript: ''!

Item was changed:
  ----- Method: Preferences class>>methodFinderWindowColor (in category 'standard queries') -----
  methodFinderWindowColor
  ^ self
  valueOfFlag: #methodFinderWindowColor
  ifAbsent: [Color
+ r: 0.875
+ g: 0.875
+ b: 0.875]!
- r: 0.971
- g: 0.971
- b: 0.971]!

Item was changed:
  ----- Method: Preferences class>>changeListWindowColor (in category 'standard queries') -----
  changeListWindowColor
  ^ self
  valueOfFlag: #changeListWindowColor
  ifAbsent: [Color
+ r: 0.875
+ g: 0.875
+ b: 0.875]!
- r: 0.971
- g: 0.971
- b: 0.971]!

Item was changed:
  ----- Method: Preferences class>>preferenceBrowserWindowColor (in category 'standard queries') -----
  preferenceBrowserWindowColor
  ^ self
  valueOfFlag: #preferenceBrowserWindowColor
  ifAbsent: [Color
+ r: 0.875
+ g: 0.875
+ b: 0.875]!
- r: 0.971
- g: 0.971
- b: 0.971]!

Item was changed:
  ----- Method: Preferences class>>packageBrowserWindowColor (in category 'standard queries') -----
  packageBrowserWindowColor
  ^ self
  valueOfFlag: #packageBrowserWindowColor
  ifAbsent: [Color
+ r: 0.875
+ g: 0.875
+ b: 0.875]!
- r: 0.971
- g: 0.971
- b: 0.971]!

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]!
- self installWindowColorsVia: [:aQuad | Color veryVeryLightGray muchLighter]!

Item was changed:
  ----- Method: Preferences class>>monticelloToolWindowColor (in category 'standard queries') -----
  monticelloToolWindowColor
  ^ self
  valueOfFlag: #monticelloToolWindowColor
  ifAbsent: [Color
+ r: 0.875
+ g: 0.875
+ b: 0.875]!
- r: 0.971
- g: 0.971
- b: 0.971]!