The Inbox: System-tfel.303.mcz

> A new version of System was added to project The Inbox:
> http://source.squeak.org/inbox/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]!
>
>