The Inbox: System-cmm.524.mcz

> A new version of System was added to project The Inbox:
> http://source.squeak.org/inbox/System-cmm.524.mcz
>
> ==================== Summary ====================
>
> Name: System-cmm.524
> Author: cmm
> Time: 4 July 2013, 9:08:05.176 pm
> UUID: 4556a090-d1b1-43c9-9db0-1f79ce45d31d
> Ancestors: System-bf.523
>
> - Use environment bindingOf: rather than associationAt:.
> - Fix thoroughSenders preference.
> - Make ColorTheme a concrete, attributable object.
> - Set the default theme to a new instance of ColorTheme.
> - This will help us disengage from SmalllandTheme dependency.
>
> =============== Diff against System-bf.523 ===============
>
> Item was changed:
>   ----- Method: Behavior>>allCallsOn (in category '*System-Support') -----
>   allCallsOn
>         "Answer a SortedCollection of all the methods that refer to me by name or as part of an association in a global dict."
> -
>         | theClass |
>         theClass := self theNonMetaClass.
> +       ^ (self systemNavigation allCallsOn: (self environment bindingOf: theClass name)) ,
> +               (Preferences thoroughSenders
> +                       ifTrue: [ self systemNavigation allCallsOn: theClass name ]
> +                       ifFalse: [ OrderedCollection new ]) ,
> +               (self systemNavigation allClasses
> +                       select:
> +                               [ : c | c sharedPools includes: theClass ]
> +                       thenCollect:
> +                               [ : c | ClassReference new
> +                                       setClassSymbol: c name
> +                                       classIsMeta: false
> +                                       stringVersion: c name ])!
> -       ^(self  systemNavigation allCallsOn:  (self environment associationAt: theClass name)),
> -         (Preferences thoroughSenders
> -               ifTrue: [OrderedCollection new]
> -               ifFalse: [self  systemNavigation allCallsOn: theClass name]),
> -         (self systemNavigation allClasses
> -               select: [:c| c sharedPools includes: theClass]
> -               thenCollect:
> -                       [:c|
> -                       ClassReference new
> -                               setClassSymbol: c name
> -                               classIsMeta: false
> -                               stringVersion: c name])!
>
> Item was changed:
> + AttributableObject subclass: #ColorTheme
> - Object subclass: #ColorTheme
>         instanceVariableNames: ''
>         classVariableNames: 'Current'
>         poolDictionaries: ''
>         category: 'System-Support'!
>
> Item was changed:
>   ----- Method: ColorTheme class>>defaultTheme (in category 'accessing') -----
>   defaultTheme
> +       ^ self new!
> -       Smalltalk
> -               at: #YellowSmallLandColorTheme
> -               ifPresent: [:yellowSmallLandColorTheme | ^ yellowSmallLandColorTheme].
> -       ^ (self allSubclasses
> -               select: [:each | each subclasses isEmpty]) anyOne!
>
> Item was changed:
>   ----- Method: ColorTheme>>balloonColor (in category 'theme') -----
>   balloonColor
> +       ^ (self attributeNamed: #balloonColor) ifNil:
> +               [ TranslucentColor
> +                       r: 0.92
> +                       g: 0.92
> +                       b: 0.706
> +                       alpha: 0.75 ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>balloonColor: (in category 'theme') -----
> + balloonColor: aColor
> +       self
> +               attributeNamed: #balloonColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>cancelColor (in category 'theme') -----
>   cancelColor
> +       ^ (self attributeNamed: #cancelColor) ifNil: [ Color lightRed ]!
> -       ^ Color lightRed!
>
> Item was added:
> + ----- Method: ColorTheme>>cancelColor: (in category 'theme') -----
> + cancelColor: aColor
> +       self
> +               attributeNamed: #cancelColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>defaultWorldColor (in category 'theme') -----
>   defaultWorldColor
> +       ^ (self attributeNamed: #defaultWorldColor) ifNil: [ Color blue muchLighter ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>defaultWorldColor: (in category 'theme') -----
> + defaultWorldColor: aColor
> +       self
> +               attributeNamed: #defaultWorldColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>dialog3DTitles (in category 'theme - dialogs') -----
>   dialog3DTitles
> +       ^ (self attributeNamed: #dialog3DTitles) ifNil: [ false ]!
> -       ^ true!
>
> Item was added:
> + ----- Method: ColorTheme>>dialog3DTitles: (in category 'theme - dialogs') -----
> + dialog3DTitles: aBoolean
> +       self
> +               attributeNamed: #dialog3DTitles
> +               put: aBoolean!
>
> Item was changed:
>   ----- Method: ColorTheme>>dialogBorderColor (in category 'theme - dialogs') -----
>   dialogBorderColor
> +       ^ (self attributeNamed: #dialogBorderColor)
> +               ifNil: [ Color r: 0.9 g: 0.801 b: 0.2 ]!
> -       ^ Color fromArray: #(0.355 0.516 1.0 )!
>
> Item was added:
> + ----- Method: ColorTheme>>dialogBorderColor: (in category 'theme - dialogs') -----
> + dialogBorderColor: aBoolean
> +       self
> +               attributeNamed: #dialogBorderColor
> +               put: aBoolean!
>
> Item was changed:
>   ----- Method: ColorTheme>>dialogBorderWidth (in category 'theme - dialogs') -----
>   dialogBorderWidth
> +       ^ (self attributeNamed: #dialogBorderWidth) ifNil: [ 2 ]!
> -       ^ 4!
>
> Item was added:
> + ----- Method: ColorTheme>>dialogBorderWidth: (in category 'theme - dialogs') -----
> + dialogBorderWidth: aBoolean
> +       self
> +               attributeNamed: #dialogBorderWidth
> +               put: aBoolean!
>
> Item was changed:
>   ----- Method: ColorTheme>>dialogButtonBorderWidth (in category 'theme - dialogs') -----
>   dialogButtonBorderWidth
> +       ^ (self attributeNamed: #dialogButtonBorderWidth) ifNil: [ 1 ]!
> -       ^ 0!
>
> Item was added:
> + ----- Method: ColorTheme>>dialogButtonBorderWidth: (in category 'theme - dialogs') -----
> + dialogButtonBorderWidth: aBoolean
> +       self
> +               attributeNamed: #dialogButtonBorderWidth
> +               put: aBoolean!
>
> Item was changed:
>   ----- Method: ColorTheme>>dialogColor (in category 'theme - dialogs') -----
>   dialogColor
> +       ^ (self attributeNamed: #dialogColor) ifNil: [ Color r: 1 g: 0.85 b: 0.975 ]!
> -       ^ Color paleYellow!
>
> Item was added:
> + ----- Method: ColorTheme>>dialogColor: (in category 'theme - dialogs') -----
> + dialogColor: aBoolean
> +       self
> +               attributeNamed: #dialogColor
> +               put: aBoolean!
>
> Item was changed:
>   ----- Method: ColorTheme>>dialogPaneBorderColor (in category 'theme - dialogs') -----
>   dialogPaneBorderColor
> +       ^ (self attributeNamed: #dialogPaneBorderColor) ifNil: [ Color r: 0.6 g: 0.7 b: 1 ]!
> -       ^ Color black
> - !
>
> Item was added:
> + ----- Method: ColorTheme>>dialogPaneBorderColor: (in category 'theme - dialogs') -----
> + dialogPaneBorderColor: aBoolean
> +       self
> +               attributeNamed: #dialogPaneBorderColor
> +               put: aBoolean!
>
> Item was changed:
>   ----- Method: ColorTheme>>dialogPaneBorderWidth (in category 'theme - dialogs') -----
>   dialogPaneBorderWidth
> +       ^ (self attributeNamed: #dialogPaneBorderWidth) ifNil: [ 1 ]!
> -       ^ 0!
>
> Item was added:
> + ----- Method: ColorTheme>>dialogPaneBorderWidth: (in category 'theme - dialogs') -----
> + dialogPaneBorderWidth: aBoolean
> +       self
> +               attributeNamed: #dialogPaneBorderWidth
> +               put: aBoolean!
>
> Item was changed:
>   ----- Method: ColorTheme>>dialogPaneRampOrColor (in category 'theme - dialogs') -----
>   dialogPaneRampOrColor
> +       ^ (self attributeNamed: #dialogPaneRampOrColor) ifNil:
> +               [ { 0.0 -> (Color r: 0.742 g: 0.871 b: 1.0).
> +               1.0 -> (Color r: 0.516  g: 0.645 b: 1.0) } ]!
> -       ^ {0.0 -> (Color r: 0.742 g: 0.871 b: 1.0).
> -               1.0 -> (Color r: 0.516 g: 0.645 b: 1.0)}!
>
> Item was added:
> + ----- Method: ColorTheme>>dialogPaneRampOrColor: (in category 'theme - dialogs') -----
> + dialogPaneRampOrColor: aBoolean
> +       self
> +               attributeNamed: #dialogPaneRampOrColor
> +               put: aBoolean!
>
> Item was changed:
>   ----- Method: ColorTheme>>dialogRampOrColor (in category 'theme - dialogs') -----
>   dialogRampOrColor
> +       self deprecated: 'Use #dialogColor.'.
> +       ^ self dialogColor!
> -       ^ {0.0 -> (Color r: 0.516 g: 0.645 b: 1.0).
> -               1.0 -> (Color r: 0.742 g: 0.871 b: 1.0)}!
>
> Item was changed:
>   ----- Method: ColorTheme>>dialogTextBoxBorderColor (in category 'theme - dialogs') -----
>   dialogTextBoxBorderColor
> +       ^ (self attributeNamed: #dialogTextBoxBorderColor) ifNil: [ Color r: 0.6 g: 0.7 b: 1 ]!
> -       ^ Color black!
>
> Item was added:
> + ----- Method: ColorTheme>>dialogTextBoxBorderColor: (in category 'theme - dialogs') -----
> + dialogTextBoxBorderColor: aBoolean
> +       self
> +               attributeNamed: #dialogTextBoxBorderColor
> +               put: aBoolean!
>
> Item was changed:
>   ----- Method: ColorTheme>>dialogTextBoxColor (in category 'theme - dialogs') -----
>   dialogTextBoxColor
> +       ^ (self attributeNamed: #dialogTextBoxColor) ifNil: [ Color r: 0.85 g: 0.9 b: 1 ]!
> -       ^ Color white!
>
> Item was added:
> + ----- Method: ColorTheme>>dialogTextBoxColor: (in category 'theme - dialogs') -----
> + dialogTextBoxColor: aBoolean
> +       self
> +               attributeNamed: #dialogTextBoxColor
> +               put: aBoolean!
>
> Item was changed:
>   ----- Method: ColorTheme>>disabledColor (in category 'theme') -----
>   disabledColor
> +       ^ (self attributeNamed: #disabledColor) ifNil: [ Color lightGray ]!
> -       ^ Color lightGray!
>
> Item was added:
> + ----- Method: ColorTheme>>disabledColor: (in category 'theme') -----
> + disabledColor: aColor
> +       self
> +               attributeNamed: #disabledColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>dockingBarAutoGradient (in category 'theme - dockingbar') -----
>   dockingBarAutoGradient
> +       ^ (self attributeNamed: #dockingBarAutoGradient) ifNil: [ true ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>dockingBarAutoGradient: (in category 'theme - dockingbar') -----
> + dockingBarAutoGradient: aBoolean
> +       self
> +               attributeNamed: #dockingBarAutoGradient
> +               put: aBoolean!
>
> Item was changed:
>   ----- Method: ColorTheme>>dockingBarColor (in category 'theme - dockingbar') -----
>   dockingBarColor
> +       ^ (self attributeNamed: #dockingBarColor) ifNil: [ Color r: 0.6 g: 0.7 b: 1 ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>dockingBarColor: (in category 'theme - dockingbar') -----
> + dockingBarColor: aColor
> +       self
> +               attributeNamed: #dockingBarColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>dockingBarGradientRamp (in category 'theme - dockingbar') -----
>   dockingBarGradientRamp
> +       ^ (self attributeNamed: #dockingBarGradientRamp) ifNil:
> +               [ { 0.0 -> Color white.
> +               1.0 -> (Color r: 0.6 g: 0.7 b: 1) } ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>dockingBarGradientRamp: (in category 'theme - dockingbar') -----
> + dockingBarGradientRamp: anArray
> +       self
> +               attributeNamed: #dockingBarGradientRamp
> +               put: anArray!
>
> Item was changed:
>   ----- Method: ColorTheme>>helpColor (in category 'theme') -----
>   helpColor
> +       ^ (self attributeNamed: #helpColor) ifNil: [ Color lightGreen ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>helpColor: (in category 'theme') -----
> + helpColor: aColor
> +       self
> +               attributeNamed: #helpColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>insertionPointColor (in category 'theme') -----
>   insertionPointColor
> +       ^ (self attributeNamed: #insertionPointColor) ifNil: [ Color red ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>insertionPointColor: (in category 'theme') -----
> + insertionPointColor: aColor
> +       self
> +               attributeNamed: #insertionPointColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>keyboardFocusColor (in category 'theme') -----
>   keyboardFocusColor
> +       ^ (self attributeNamed: #keyboardFocusColor) ifNil: [ Color r: 0.6 g: 1 b: 1 ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>keyboardFocusColor: (in category 'theme') -----
> + keyboardFocusColor: aColor
> +       self
> +               attributeNamed: #keyboardFocusColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>menuBorderColor (in category 'theme - menus') -----
>   menuBorderColor
> +       ^ (self attributeNamed: #menuBorderColor) ifNil: [ Color r: 0.2 g: 0.3 b: 0.9 ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>menuBorderColor: (in category 'theme - menus') -----
> + menuBorderColor: aColor
> +       self
> +               attributeNamed: #menuBorderColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>menuBorderWidth (in category 'theme - menus') -----
>   menuBorderWidth
> +       ^ (self attributeNamed: #menuBorderWidth) ifNil: [ 2 ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>menuBorderWidth: (in category 'theme - menus') -----
> + menuBorderWidth: aColor
> +       self
> +               attributeNamed: #menuBorderWidth
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>menuColor (in category 'theme - menus') -----
>   menuColor
> +       ^ (self attributeNamed: #menuColor) ifNil: [ Color r: 0.85 g: 0.9 b: 1 ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>menuColor: (in category 'theme - menus') -----
> + menuColor: aColor
> +       self
> +               attributeNamed: #menuColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>menuLineColor (in category 'theme - menus') -----
>   menuLineColor
> +       ^ (self attributeNamed: #menuLineColor) ifNil: [ Color r: 0.6 g: 0.7 b: 1 ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>menuLineColor: (in category 'theme - menus') -----
> + menuLineColor: aColor
> +       self
> +               attributeNamed: #menuLineColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>menuSelectionColor (in category 'theme - menus') -----
>   menuSelectionColor
> +       ^ (self attributeNamed: #menuSelectionColor) ifNil: [ Color r: 0.2 g: 0.3 b: 0.9 ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>menuSelectionColor: (in category 'theme - menus') -----
> + menuSelectionColor: aColor
> +       self
> +               attributeNamed: #menuSelectionColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>menuTitleBorderColor (in category 'theme - menus') -----
>   menuTitleBorderColor
> +       ^ (self attributeNamed: #menuTitleBorderColor) ifNil: [ Color r: 0.6 g: 0.7 b: 1 ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>menuTitleBorderColor: (in category 'theme - menus') -----
> + menuTitleBorderColor: aColor
> +       self
> +               attributeNamed: #menuTitleBorderColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>menuTitleBorderWidth (in category 'theme - menus') -----
>   menuTitleBorderWidth
> +       ^ (self attributeNamed: #menuTitleBorderWidth) ifNil: [ 6 ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>menuTitleBorderWidth: (in category 'theme - menus') -----
> + menuTitleBorderWidth: aColor
> +       self
> +               attributeNamed: #menuTitleBorderWidth
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>menuTitleColor (in category 'theme - menus') -----
>   menuTitleColor
> +       ^ (self attributeNamed: #menuTitleColor) ifNil: [ Color r: 0.6 g: 0.7 b: 1 ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>menuTitleColor: (in category 'theme - menus') -----
> + menuTitleColor: aColor
> +       self
> +               attributeNamed: #menuTitleColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>okColor (in category 'theme') -----
>   okColor
> +       ^ (self attributeNamed: #okColor) ifNil: [ Color lightGreen ]!
> -       ^ Color lightGreen!
>
> Item was added:
> + ----- Method: ColorTheme>>okColor: (in category 'theme') -----
> + okColor: aColor
> +       self
> +               attributeNamed: #okColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>textHighlightColor (in category 'theme') -----
>   textHighlightColor
> +       ^ (self attributeNamed: #textHighlightColor) ifNil: [ Color blue muchLighter alpha: 0.7 ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>textHighlightColor: (in category 'theme') -----
> + textHighlightColor: aColor
> +       self
> +               attributeNamed: #textHighlightColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: Preferences class>>Curvier (in category 'standard queries') -----
>   Curvier
>         ^ self
>                 valueOfFlag: #Curvier
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>abbreviatedBrowserButtons (in category 'standard queries') -----
>   abbreviatedBrowserButtons
>         ^ self
>                 valueOfFlag: #abbreviatedBrowserButtons
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>alphabeticalProjectMenu (in category 'standard queries') -----
>   alphabeticalProjectMenu
>         ^ self
>                 valueOfFlag: #alphabeticalProjectMenu
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>alternateHandlesLook (in category 'standard queries') -----
>   alternateHandlesLook
>         ^ self
>                 valueOfFlag: #alternateHandlesLook
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>alternativeBrowseIt (in category 'standard queries') -----
>   alternativeBrowseIt
>         ^ self
>                 valueOfFlag: #alternativeBrowseIt
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>alternativeButtonsInScrollBars (in category 'standard queries') -----
>   alternativeButtonsInScrollBars
>         ^ self
>                 valueOfFlag: #alternativeButtonsInScrollBars
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>alwaysHideHScrollbar (in category 'standard queries') -----
>   alwaysHideHScrollbar
>         ^ self
>                 valueOfFlag: #alwaysHideHScrollbar
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was removed:
> - ----- Method: Preferences class>>alwaysShowConnectionVocabulary (in category 'standard queries') -----
> - alwaysShowConnectionVocabulary
> -       ^ self
> -               valueOfFlag: #alwaysShowConnectionVocabulary
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>alwaysShowHScrollbar (in category 'standard queries') -----
>   alwaysShowHScrollbar
>         ^ self
>                 valueOfFlag: #alwaysShowHScrollbar
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>alwaysShowVScrollbar (in category 'standard queries') -----
>   alwaysShowVScrollbar
>         ^ self
>                 valueOfFlag: #alwaysShowVScrollbar
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>areaFillsAreTolerant (in category 'standard queries') -----
>   areaFillsAreTolerant
>         ^ self
>                 valueOfFlag: #areaFillsAreTolerant
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>areaFillsAreVeryTolerant (in category 'standard queries') -----
>   areaFillsAreVeryTolerant
>         ^ self
>                 valueOfFlag: #areaFillsAreVeryTolerant
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>automaticFlapLayout (in category 'standard queries') -----
>   automaticFlapLayout
>         ^ self
>                 valueOfFlag: #automaticFlapLayout
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>automaticKeyGeneration (in category 'standard queries') -----
>   automaticKeyGeneration
>         ^ self
>                 valueOfFlag: #automaticKeyGeneration
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>automaticPlatformSettings (in category 'standard queries') -----
>   automaticPlatformSettings
>         ^ self
>                 valueOfFlag: #automaticPlatformSettings
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>automaticViewerPlacement (in category 'standard queries') -----
>   automaticViewerPlacement
>         ^ self
>                 valueOfFlag: #automaticViewerPlacement
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>balloonHelpEnabled (in category 'standard queries') -----
>   balloonHelpEnabled
>         ^ self
>                 valueOfFlag: #balloonHelpEnabled
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>balloonHelpInMessageLists (in category 'standard queries') -----
>   balloonHelpInMessageLists
>         ^ self
>                 valueOfFlag: #balloonHelpInMessageLists
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>batchPenTrails (in category 'standard queries') -----
>   batchPenTrails
>         ^ self
>                 valueOfFlag: #batchPenTrails
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>bigDisplay (in category 'standard queries') -----
>   bigDisplay
>         ^ self
>                 valueOfFlag: #bigDisplay
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>biggerHandles (in category 'standard queries') -----
>   biggerHandles
>         ^ self
>                 valueOfFlag: #biggerHandles
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>browseWithDragNDrop (in category 'standard queries') -----
>   browseWithDragNDrop
>         ^ self
>                 valueOfFlag: #browseWithDragNDrop
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>browseWithPrettyPrint (in category 'standard queries') -----
>   browseWithPrettyPrint
>         ^ self
>                 valueOfFlag: #browseWithPrettyPrint
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>browserShowsPackagePane (in category 'standard queries') -----
>   browserShowsPackagePane
>         ^ self
>                 valueOfFlag: #browserShowsPackagePane
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>capitalizedReferences (in category 'standard queries') -----
>   capitalizedReferences
>         ^ self
>                 valueOfFlag: #capitalizedReferences
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>caseSensitiveFinds (in category 'standard queries') -----
>   caseSensitiveFinds
>         ^ self
>                 valueOfFlag: #caseSensitiveFinds
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>cautionBeforeClosing (in category 'standard queries') -----
>   cautionBeforeClosing
>         ^ self
>                 valueOfFlag: #cautionBeforeClosing
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>changeSetVersionNumbers (in category 'standard queries') -----
>   changeSetVersionNumbers
>         ^ self
>                 valueOfFlag: #changeSetVersionNumbers
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>checkForSlips (in category 'standard queries') -----
>   checkForSlips
>         ^ self
>                 valueOfFlag: #checkForSlips
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>checkForUnsavedProjects (in category 'standard queries') -----
>   checkForUnsavedProjects
>         ^ self
>                 valueOfFlag: #checkForUnsavedProjects
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>classicNavigatorEnabled (in category 'standard queries') -----
>   classicNavigatorEnabled
>         ^ self
>                 valueOfFlag: #classicNavigatorEnabled
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>cmdDotEnabled (in category 'standard queries') -----
>   cmdDotEnabled
>         ^ self
>                 valueOfFlag: #cmdDotEnabled
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>collapseWindowsInPlace (in category 'standard queries') -----
>   collapseWindowsInPlace
>         ^ self
>                 valueOfFlag: #collapseWindowsInPlace
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>compactViewerFlaps (in category 'standard queries') -----
>   compactViewerFlaps
>         ^ self
>                 valueOfFlag: #compactViewerFlaps
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>compressFlashImages (in category 'standard queries') -----
>   compressFlashImages
>         ^ self
>                 valueOfFlag: #compressFlashImages
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>confirmFirstUseOfStyle (in category 'standard queries') -----
>   confirmFirstUseOfStyle
>         ^ self
>                 valueOfFlag: #confirmFirstUseOfStyle
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>conversionMethodsAtFileOut (in category 'standard queries') -----
>   conversionMethodsAtFileOut
>         ^ self
>                 valueOfFlag: #conversionMethodsAtFileOut
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>cpuWatcherEnabled (in category 'standard queries') -----
>   cpuWatcherEnabled
>         ^ self
>                 valueOfFlag: #cpuWatcherEnabled
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>debugHaloHandle (in category 'standard queries') -----
>   debugHaloHandle
>         ^ self
>                 valueOfFlag: #debugHaloHandle
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>debugPrintSpaceLog (in category 'standard queries') -----
>   debugPrintSpaceLog
>         ^ self
>                 valueOfFlag: #debugPrintSpaceLog
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>debugShowDamage (in category 'standard queries') -----
>   debugShowDamage
>         ^ self
>                 valueOfFlag: #debugShowDamage
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>decorateBrowserButtons (in category 'standard queries') -----
>   decorateBrowserButtons
>         ^ self
>                 valueOfFlag: #decorateBrowserButtons
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>defaultFileOutFormatMacRoman (in category 'standard queries') -----
>   defaultFileOutFormatMacRoman
>         ^ self
>                 valueOfFlag: #defaultFileOutFormatMacRoman
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>diffsInChangeList (in category 'standard queries') -----
>   diffsInChangeList
>         ^ self
>                 valueOfFlag: #diffsInChangeList
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>diffsWithPrettyPrint (in category 'standard queries') -----
>   diffsWithPrettyPrint
>         ^ self
>                 valueOfFlag: #diffsWithPrettyPrint
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>dismissAllOnOptionClose (in category 'standard queries') -----
>   dismissAllOnOptionClose
>         ^ self
>                 valueOfFlag: #dismissAllOnOptionClose
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>dragNDropWithAnimation (in category 'standard queries') -----
>   dragNDropWithAnimation
>         ^ self
>                 valueOfFlag: #dragNDropWithAnimation
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>dropProducesWatcher (in category 'standard queries') -----
>   dropProducesWatcher
>         ^ self
>                 valueOfFlag: #dropProducesWatcher
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>duplicateAllControlAndAltKeys (in category 'standard queries') -----
>   duplicateAllControlAndAltKeys
>         ^ self
>                 valueOfFlag: #duplicateAllControlAndAltKeys
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>duplicateControlAndAltKeys (in category 'standard queries') -----
>   duplicateControlAndAltKeys
>         ^ self
>                 valueOfFlag: #duplicateControlAndAltKeys
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>eToyFriendly (in category 'standard queries') -----
>   eToyFriendly
>         ^ self
>                 valueOfFlag: #eToyFriendly
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>eToyLoginEnabled (in category 'standard queries') -----
>   eToyLoginEnabled
>         ^ self
>                 valueOfFlag: #eToyLoginEnabled
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>easySelection (in category 'standard queries') -----
>   easySelection
>         ^ self
>                 valueOfFlag: #easySelection
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>enableLocalSave (in category 'standard queries') -----
>   enableLocalSave
>         ^ self
>                 valueOfFlag: #enableLocalSave
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>expandedPublishing (in category 'standard queries') -----
>   expandedPublishing
>         ^ self
>                 valueOfFlag: #expandedPublishing
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>extraDebuggerButtons (in category 'standard queries') -----
>   extraDebuggerButtons
>         ^ self
>                 valueOfFlag: #extraDebuggerButtons
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>extractFlashInHighQuality (in category 'standard queries') -----
>   extractFlashInHighQuality
>         ^ self
>                 valueOfFlag: #extractFlashInHighQuality
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>extractFlashInHighestQuality (in category 'standard queries') -----
>   extractFlashInHighestQuality
>         ^ self
>                 valueOfFlag: #extractFlashInHighestQuality
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>fastDragWindowForMorphic (in category 'standard queries') -----
>   fastDragWindowForMorphic
>         ^ self
>                 valueOfFlag: #fastDragWindowForMorphic
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>fenceEnabled (in category 'standard queries') -----
>   fenceEnabled
>         ^ self
>                 valueOfFlag: #fenceEnabled
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>fenceSoundEnabled (in category 'standard queries') -----
>   fenceSoundEnabled
>         ^ self
>                 valueOfFlag: #fenceSoundEnabled
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>fullScreenLeavesDeskMargins (in category 'standard queries') -----
>   fullScreenLeavesDeskMargins
>         ^ self
>                 valueOfFlag: #fullScreenLeavesDeskMargins
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>generalizedYellowButtonMenu (in category 'standard queries') -----
>   generalizedYellowButtonMenu
>         ^ self
>                 valueOfFlag: #generalizedYellowButtonMenu
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>gradientMenu (in category 'standard queries') -----
>   gradientMenu
>         ^ self
>                 valueOfFlag: #gradientMenu
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>gradientScrollBars (in category 'standard queries') -----
>   gradientScrollBars
>         ^ self
>                 valueOfFlag: #gradientScrollBars
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>haloEnclosesFullBounds (in category 'standard queries') -----
>   haloEnclosesFullBounds
>         ^ self
>                 valueOfFlag: #haloEnclosesFullBounds
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>haloTheme (in category 'halos') -----
>   haloTheme
>         ^ self
>                 valueOfFlag: #haloTheme
> +               ifAbsent: [ #iconicHaloSpecifications ]!
> -               ifAbsent: [#iconicHaloSpecifications]!
>
> Item was changed:
>   ----- Method: Preferences class>>haloTransitions (in category 'standard queries') -----
>   haloTransitions
>         ^ self
>                 valueOfFlag: #haloTransitions
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>higherPerformance (in category 'standard queries') -----
>   higherPerformance
>         ^ self
>                 valueOfFlag: #higherPerformance
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>honorDesktopCmdKeys (in category 'standard queries') -----
>   honorDesktopCmdKeys
>         ^ self
>                 valueOfFlag: #honorDesktopCmdKeys
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>ignoreStyleIfOnlyBold (in category 'standard queries') -----
>   ignoreStyleIfOnlyBold
>         ^ self
>                 valueOfFlag: #ignoreStyleIfOnlyBold
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>includeSoundControlInNavigator (in category 'standard queries') -----
>   includeSoundControlInNavigator
>         ^ self
>                 valueOfFlag: #includeSoundControlInNavigator
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>infiniteUndo (in category 'standard queries') -----
>   infiniteUndo
>         ^ self
>                 valueOfFlag: #infiniteUndo
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>inlineServicesInMenu (in category 'standard queries') -----
>   inlineServicesInMenu
>         ^ self
>                 valueOfFlag: #inlineServicesInMenu
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>keepTickingWhilePainting (in category 'standard queries') -----
>   keepTickingWhilePainting
>         ^ self
>                 valueOfFlag: #keepTickingWhilePainting
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>logDebuggerStackToFile (in category 'standard queries') -----
>   logDebuggerStackToFile
>         ^ self
>                 valueOfFlag: #logDebuggerStackToFile
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>magicHalos (in category 'standard queries') -----
>   magicHalos
>         ^ self
>                 valueOfFlag: #magicHalos
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>maintainHalos (in category 'standard queries') -----
>   maintainHalos
>         ^ self
>                 valueOfFlag: #maintainHalos
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>menuAppearance3d (in category 'standard queries') -----
>   menuAppearance3d
>         ^ self
>                 valueOfFlag: #menuAppearance3d
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>menuButtonInToolPane (in category 'standard queries') -----
>   menuButtonInToolPane
>         ^ self
>                 valueOfFlag: #menuButtonInToolPane
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>menuKeyboardControl (in category 'standard queries') -----
>   menuKeyboardControl
>         ^ self
>                 valueOfFlag: #menuKeyboardControl
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>menuWithIcons (in category 'standard queries') -----
>   menuWithIcons
>         ^ self
>                 valueOfFlag: #menuWithIcons
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>modalColorPickers (in category 'standard queries') -----
>   modalColorPickers
>         ^ self
>                 valueOfFlag: #modalColorPickers
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>mouseOverForKeyboardFocus (in category 'standard queries') -----
>   mouseOverForKeyboardFocus
>         ^ self
>                 valueOfFlag: #mouseOverForKeyboardFocus
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>mouseOverHalos (in category 'standard queries') -----
>   mouseOverHalos
>         ^ self
>                 valueOfFlag: #mouseOverHalos
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>multipleTextUndo (in category 'standard queries') -----
>   multipleTextUndo
>         ^ self
>                 valueOfFlag: #multipleTextUndo
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>mvcProjectsAllowed (in category 'standard queries') -----
>   mvcProjectsAllowed
>         ^ self
>                 valueOfFlag: #mvcProjectsAllowed
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>navigatorOnLeftEdge (in category 'standard queries') -----
>   navigatorOnLeftEdge
>         ^ self
>                 valueOfFlag: #navigatorOnLeftEdge
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>noviceMode (in category 'standard queries') -----
>   noviceMode
>         ^ self
>                 valueOfFlag: #noviceMode
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>okToReinitializeFlaps (in category 'standard queries') -----
>   okToReinitializeFlaps
>         ^ self
>                 valueOfFlag: #okToReinitializeFlaps
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>oliveHandleForScriptedObjects (in category 'standard queries') -----
>   oliveHandleForScriptedObjects
>         ^ self
>                 valueOfFlag: #oliveHandleForScriptedObjects
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>optionalButtons (in category 'standard queries') -----
>   optionalButtons
>         ^ self
>                 valueOfFlag: #optionalButtons
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>passwordsOnPublish (in category 'standard queries') -----
>   passwordsOnPublish
>         ^ self
>                 valueOfFlag: #passwordsOnPublish
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>personalizedWorldMenu (in category 'standard queries') -----
>   personalizedWorldMenu
>         ^ self
>                 valueOfFlag: #personalizedWorldMenu
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>postscriptStoredAsEPS (in category 'standard queries') -----
>   postscriptStoredAsEPS
>         ^ self
>                 valueOfFlag: #postscriptStoredAsEPS
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>preferencesPanelWindowColor (in category 'standard queries') -----
>   preferencesPanelWindowColor
>         ^ self
>                 valueOfFlag: #preferencesPanelWindowColor
> +               ifAbsent:
> +                       [ Color
> -               ifAbsent: [Color
>                                 r: 0.645
>                                 g: 1.0
> +                               b: 1.0 ]!
> -                               b: 1.0]!
>
> Item was changed:
>   ----- Method: Preferences class>>preserveTrash (in category 'standard queries') -----
>   preserveTrash
>         ^ self
>                 valueOfFlag: #preserveTrash
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>projectViewsInWindows (in category 'standard queries') -----
>   projectViewsInWindows
>         ^ self
>                 valueOfFlag: #projectViewsInWindows
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>projectZoom (in category 'standard queries') -----
>   projectZoom
>         ^ self
>                 valueOfFlag: #projectZoom
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>projectsSentToDisk (in category 'standard queries') -----
>   projectsSentToDisk
>         ^ self
>                 valueOfFlag: #projectsSentToDisk
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>promptForUpdateServer (in category 'standard queries') -----
>   promptForUpdateServer
>         ^ self
>                 valueOfFlag: #promptForUpdateServer
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>propertySheetFromHalo (in category 'standard queries') -----
>   propertySheetFromHalo
>         ^ self
>                 valueOfFlag: #propertySheetFromHalo
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>purgeUndoOnQuit (in category 'standard queries') -----
>   purgeUndoOnQuit
>         ^ self
>                 valueOfFlag: #purgeUndoOnQuit
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>readDocumentAtStartup (in category 'standard queries') -----
>   readDocumentAtStartup
>         ^ self
>                 valueOfFlag: #readDocumentAtStartup
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>readOnlyMode (in category 'standard queries') -----
>   readOnlyMode
>         ^ self
>                 valueOfFlag: #readOnlyMode
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>restartAlsoProceeds (in category 'standard queries') -----
>   restartAlsoProceeds
>         ^ self
>                 valueOfFlag: #restartAlsoProceeds
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>reverseWindowStagger (in category 'standard queries') -----
>   reverseWindowStagger
>         ^ self
>                 valueOfFlag: #reverseWindowStagger
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>roundedMenuCorners (in category 'standard queries') -----
>   roundedMenuCorners
>         ^ self
>                 valueOfFlag: #roundedMenuCorners
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>roundedWindowCorners (in category 'standard queries') -----
>   roundedWindowCorners
>         ^ self
>                 valueOfFlag: #roundedWindowCorners
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>scrollBarsNarrow (in category 'standard queries') -----
>   scrollBarsNarrow
>         ^ self
>                 valueOfFlag: #scrollBarsNarrow
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>scrollBarsOnRight (in category 'standard queries') -----
>   scrollBarsOnRight
>         ^ self
>                 valueOfFlag: #scrollBarsOnRight
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>scrollBarsWithoutMenuButton (in category 'standard queries') -----
>   scrollBarsWithoutMenuButton
>         ^ self
>                 valueOfFlag: #scrollBarsWithoutMenuButton
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>securityChecksEnabled (in category 'standard queries') -----
>   securityChecksEnabled
>         ^ self
>                 valueOfFlag: #securityChecksEnabled
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>selectiveHalos (in category 'standard queries') -----
>   selectiveHalos
>         ^ self
>                 valueOfFlag: #selectiveHalos
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>showAdvancedNavigatorButtons (in category 'standard queries') -----
>   showAdvancedNavigatorButtons
>         ^ self
>                 valueOfFlag: #showAdvancedNavigatorButtons
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>showDeprecationWarnings (in category 'standard queries') -----
>   showDeprecationWarnings
>         ^ self
>                 valueOfFlag: #showDeprecationWarnings
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>showDirectionForSketches (in category 'standard queries') -----
>   showDirectionForSketches
>         ^ self
>                 valueOfFlag: #showDirectionForSketches
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>showDirectionHandles (in category 'standard queries') -----
>   showDirectionHandles
>         ^ self
>                 valueOfFlag: #showDirectionHandles
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>showFlapsWhenPublishing (in category 'standard queries') -----
>   showFlapsWhenPublishing
>         ^ self
>                 valueOfFlag: #showFlapsWhenPublishing
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>showProjectNavigator (in category 'standard queries') -----
>   showProjectNavigator
>         ^ self
>                 valueOfFlag: #showProjectNavigator
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>showSecurityStatus (in category 'standard queries') -----
>   showSecurityStatus
>         ^ self
>                 valueOfFlag: #showSecurityStatus
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>showSharedFlaps (in category 'standard queries') -----
>   showSharedFlaps
>         ^ self
>                 valueOfFlag: #showSharedFlaps
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>signProjectFiles (in category 'standard queries') -----
>   signProjectFiles
>         ^ self
>                 valueOfFlag: #signProjectFiles
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>simpleMenus (in category 'standard queries') -----
>   simpleMenus
>         ^ self
>                 valueOfFlag: #simpleMenus
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>slideDismissalsToTrash (in category 'standard queries') -----
>   slideDismissalsToTrash
>         ^ self
>                 valueOfFlag: #slideDismissalsToTrash
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>smartUpdating (in category 'standard queries') -----
>   smartUpdating
>         ^ self
>                 valueOfFlag: #smartUpdating
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>startInUntrustedDirectory (in category 'standard queries') -----
>   startInUntrustedDirectory
>         ^ self
>                 valueOfFlag: #startInUntrustedDirectory
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>swapControlAndAltKeys (in category 'standard queries') -----
>   swapControlAndAltKeys
>         ^ self
>                 valueOfFlag: #swapControlAndAltKeys
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>swapMouseButtons (in category 'standard queries') -----
>   swapMouseButtons
>         ^ self
>                 valueOfFlag: #swapMouseButtons
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>syntaxHighlightingAsYouType (in category 'standard queries') -----
>   syntaxHighlightingAsYouType
>         ^ self
>                 valueOfFlag: #syntaxHighlightingAsYouType
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>syntaxHighlightingAsYouTypeAnsiAssignment (in category 'standard queries') -----
>   syntaxHighlightingAsYouTypeAnsiAssignment
>         ^ self
>                 valueOfFlag: #syntaxHighlightingAsYouTypeAnsiAssignment
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>syntaxHighlightingAsYouTypeLeftArrowAssignment (in category 'standard queries') -----
>   syntaxHighlightingAsYouTypeLeftArrowAssignment
>         ^ self
>                 valueOfFlag: #syntaxHighlightingAsYouTypeLeftArrowAssignment
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>systemWindowEmbedOK (in category 'standard queries') -----
>   systemWindowEmbedOK
>         ^ self
>                 valueOfFlag: #systemWindowEmbedOK
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>tabAmongFields (in category 'standard queries') -----
>   tabAmongFields
>         ^ self
>                 valueOfFlag: #tabAmongFields
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>thoroughSenders (in category 'standard queries') -----
>   thoroughSenders
>         ^ self
>                 valueOfFlag: #thoroughSenders
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>tileTranslucentDrag (in category 'standard queries') -----
>   tileTranslucentDrag
>         ^ self
>                 valueOfFlag: #tileTranslucentDrag
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>timeStampsInMenuTitles (in category 'standard queries') -----
>   timeStampsInMenuTitles
>         ^ self
>                 valueOfFlag: #timeStampsInMenuTitles
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>tinyDisplay (in category 'standard queries') -----
>   tinyDisplay
>         ^ self
>                 valueOfFlag: #tinyDisplay
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>turnOffPowerManager (in category 'standard queries') -----
>   turnOffPowerManager
>         ^ self
>                 valueOfFlag: #turnOffPowerManager
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>twentyFourHourFileStamps (in category 'standard queries') -----
>   twentyFourHourFileStamps
>         ^ self
>                 valueOfFlag: #twentyFourHourFileStamps
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>typeCheckingInTileScripting (in category 'standard queries') -----
>   typeCheckingInTileScripting
>         ^ self
>                 valueOfFlag: #typeCheckingInTileScripting
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>uniTilesClassic (in category 'standard queries') -----
>   uniTilesClassic
>         ^ self
>                 valueOfFlag: #uniTilesClassic
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>uniqueNamesInHalos (in category 'standard queries') -----
>   uniqueNamesInHalos
>         ^ self
>                 valueOfFlag: #uniqueNamesInHalos
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>unlimitedPaintArea (in category 'standard queries') -----
>   unlimitedPaintArea
>         ^ self
>                 valueOfFlag: #unlimitedPaintArea
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>updateFromServerAtStartup (in category 'standard queries') -----
>   updateFromServerAtStartup
>         ^ self
>                 valueOfFlag: #updateFromServerAtStartup
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>updateSavesFile (in category 'standard queries') -----
>   updateSavesFile
>         ^ self
>                 valueOfFlag: #updateSavesFile
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>upgradeIsMerge (in category 'standard queries') -----
>   upgradeIsMerge
>         ^ self
>                 valueOfFlag: #upgradeIsMerge
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>useButtonProprtiesToFire (in category 'standard queries') -----
>   useButtonProprtiesToFire
>         ^ self
>                 valueOfFlag: #useButtonProprtiesToFire
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>useOnlyServicesInMenu (in category 'standard queries') -----
>   useOnlyServicesInMenu
>         ^ self
>                 valueOfFlag: #useOnlyServicesInMenu
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>useServicesInBrowserButtonBar (in category 'standard queries') -----
>   useServicesInBrowserButtonBar
>         ^ self
>                 valueOfFlag: #useServicesInBrowserButtonBar
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was removed:
> - ----- Method: Preferences class>>useSmartLabels (in category 'standard queries') -----
> - useSmartLabels
> -       ^ self
> -               valueOfFlag: #useSmartLabels
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>useUndo (in category 'standard queries') -----
>   useUndo
>         ^ self
>                 valueOfFlag: #useUndo
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>useVectorVocabulary (in category 'standard queries') -----
>   useVectorVocabulary
>         ^ self
>                 valueOfFlag: #useVectorVocabulary
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>viewersInFlaps (in category 'standard queries') -----
>   viewersInFlaps
>         ^ self
>                 valueOfFlag: #viewersInFlaps
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>visualExplorer (in category 'standard queries') -----
>   visualExplorer
>         ^ self
>                 valueOfFlag: #visualExplorer
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>warnAboutInsecureContent (in category 'standard queries') -----
>   warnAboutInsecureContent
>         ^ self
>                 valueOfFlag: #warnAboutInsecureContent
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>warnIfNoChangesFile (in category 'standard queries') -----
>   warnIfNoChangesFile
>         ^ self
>                 valueOfFlag: #warnIfNoChangesFile
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>warnIfNoSourcesFile (in category 'standard queries') -----
>   warnIfNoSourcesFile
>         ^ self
>                 valueOfFlag: #warnIfNoSourcesFile
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>wordStyleCursorMovement (in category 'standard queries') -----
>   wordStyleCursorMovement
>         ^ self
>                 valueOfFlag: #wordStyleCursorMovement
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: SpaceTallyItem>>printOn: (in category 'printing') -----
>   printOn: aStream
>
>         analyzedClassName
>                 ifNotNil: [ aStream nextPutAll: analyzedClassName asString].
>         aStream nextPutAll: ' ('.
>         codeSize
>                 ifNotNil: [ aStream nextPutAll: 'code size: ' ;  nextPutAll: codeSize asString].
>         instanceCount
>                 ifNotNil: [ aStream nextPutAll: ' instance count: ' ;  nextPutAll: instanceCount asString].
>         spaceForInstances
> +               ifNotNil: [ aStream nextPutAll: ' space for instances: ' ;  nextPutAll: spaceForInstances asBytesDescription].
> -               ifNotNil: [ aStream nextPutAll: ' space for instances: ' ;  nextPutAll: spaceForInstances asString].
>         aStream nextPut: $).
>         !
>
> Item was changed:
>   (PackageInfo named: 'System') postscript: '"Remove instance of NaturalLanguageTranslator in InternalTranslator, since it breaks its own startup method."
>   InternalTranslator resetCaches.
>   "Remove obsolete preferences."
>   #(allowUnderscoreAssignment allowBlockArgumentAssignment soundsEnabled soundQuickStart soundStopWhenDone canRecordWhilePlaying)
> +       do: [ :each | Preferences removePreference: each ].
> + ColorTheme current: nil'!
> -       do: [ :each | Preferences removePreference: each ].'!
>
>

> A new version of System was added to project The Inbox:
> http://source.squeak.org/inbox/System-cmm.524.mcz
>
> ==================== Summary ====================
>
> Name: System-cmm.524
> Author: cmm
> Time: 4 July 2013, 9:08:05.176 pm
> UUID: 4556a090-d1b1-43c9-9db0-1f79ce45d31d
> Ancestors: System-bf.523
>
> - Use environment bindingOf: rather than associationAt:.
> - Fix thoroughSenders preference.
> - Make ColorTheme a concrete, attributable object.
> - Set the default theme to a new instance of ColorTheme.
> - This will help us disengage from SmalllandTheme dependency.
>
> =============== Diff against System-bf.523 ===============
>
> Item was changed:
>   ----- Method: Behavior>>allCallsOn (in category '*System-Support') -----
>   allCallsOn
>         "Answer a SortedCollection of all the methods that refer to me by name or as part of an association in a global dict."
> -
>         | theClass |
>         theClass := self theNonMetaClass.
> +       ^ (self systemNavigation allCallsOn: (self environment bindingOf: theClass name)) ,
> +               (Preferences thoroughSenders
> +                       ifTrue: [ self systemNavigation allCallsOn: theClass name ]
> +                       ifFalse: [ OrderedCollection new ]) ,
> +               (self systemNavigation allClasses
> +                       select:
> +                               [ : c | c sharedPools includes: theClass ]
> +                       thenCollect:
> +                               [ : c | ClassReference new
> +                                       setClassSymbol: c name
> +                                       classIsMeta: false
> +                                       stringVersion: c name ])!
> -       ^(self  systemNavigation allCallsOn:  (self environment associationAt: theClass name)),
> -         (Preferences thoroughSenders
> -               ifTrue: [OrderedCollection new]
> -               ifFalse: [self  systemNavigation allCallsOn: theClass name]),
> -         (self systemNavigation allClasses
> -               select: [:c| c sharedPools includes: theClass]
> -               thenCollect:
> -                       [:c|
> -                       ClassReference new
> -                               setClassSymbol: c name
> -                               classIsMeta: false
> -                               stringVersion: c name])!
>
> Item was changed:
> + AttributableObject subclass: #ColorTheme
> - Object subclass: #ColorTheme
>         instanceVariableNames: ''
>         classVariableNames: 'Current'
>         poolDictionaries: ''
>         category: 'System-Support'!
>
> Item was changed:
>   ----- Method: ColorTheme class>>defaultTheme (in category 'accessing') -----
>   defaultTheme
> +       ^ self new!
> -       Smalltalk
> -               at: #YellowSmallLandColorTheme
> -               ifPresent: [:yellowSmallLandColorTheme | ^ yellowSmallLandColorTheme].
> -       ^ (self allSubclasses
> -               select: [:each | each subclasses isEmpty]) anyOne!
>
> Item was changed:
>   ----- Method: ColorTheme>>balloonColor (in category 'theme') -----
>   balloonColor
> +       ^ (self attributeNamed: #balloonColor) ifNil:
> +               [ TranslucentColor
> +                       r: 0.92
> +                       g: 0.92
> +                       b: 0.706
> +                       alpha: 0.75 ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>balloonColor: (in category 'theme') -----
> + balloonColor: aColor
> +       self
> +               attributeNamed: #balloonColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>cancelColor (in category 'theme') -----
>   cancelColor
> +       ^ (self attributeNamed: #cancelColor) ifNil: [ Color lightRed ]!
> -       ^ Color lightRed!
>
> Item was added:
> + ----- Method: ColorTheme>>cancelColor: (in category 'theme') -----
> + cancelColor: aColor
> +       self
> +               attributeNamed: #cancelColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>defaultWorldColor (in category 'theme') -----
>   defaultWorldColor
> +       ^ (self attributeNamed: #defaultWorldColor) ifNil: [ Color blue muchLighter ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>defaultWorldColor: (in category 'theme') -----
> + defaultWorldColor: aColor
> +       self
> +               attributeNamed: #defaultWorldColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>dialog3DTitles (in category 'theme - dialogs') -----
>   dialog3DTitles
> +       ^ (self attributeNamed: #dialog3DTitles) ifNil: [ false ]!
> -       ^ true!
>
> Item was added:
> + ----- Method: ColorTheme>>dialog3DTitles: (in category 'theme - dialogs') -----
> + dialog3DTitles: aBoolean
> +       self
> +               attributeNamed: #dialog3DTitles
> +               put: aBoolean!
>
> Item was changed:
>   ----- Method: ColorTheme>>dialogBorderColor (in category 'theme - dialogs') -----
>   dialogBorderColor
> +       ^ (self attributeNamed: #dialogBorderColor)
> +               ifNil: [ Color r: 0.9 g: 0.801 b: 0.2 ]!
> -       ^ Color fromArray: #(0.355 0.516 1.0 )!
>
> Item was added:
> + ----- Method: ColorTheme>>dialogBorderColor: (in category 'theme - dialogs') -----
> + dialogBorderColor: aBoolean
> +       self
> +               attributeNamed: #dialogBorderColor
> +               put: aBoolean!
>
> Item was changed:
>   ----- Method: ColorTheme>>dialogBorderWidth (in category 'theme - dialogs') -----
>   dialogBorderWidth
> +       ^ (self attributeNamed: #dialogBorderWidth) ifNil: [ 2 ]!
> -       ^ 4!
>
> Item was added:
> + ----- Method: ColorTheme>>dialogBorderWidth: (in category 'theme - dialogs') -----
> + dialogBorderWidth: aBoolean
> +       self
> +               attributeNamed: #dialogBorderWidth
> +               put: aBoolean!
>
> Item was changed:
>   ----- Method: ColorTheme>>dialogButtonBorderWidth (in category 'theme - dialogs') -----
>   dialogButtonBorderWidth
> +       ^ (self attributeNamed: #dialogButtonBorderWidth) ifNil: [ 1 ]!
> -       ^ 0!
>
> Item was added:
> + ----- Method: ColorTheme>>dialogButtonBorderWidth: (in category 'theme - dialogs') -----
> + dialogButtonBorderWidth: aBoolean
> +       self
> +               attributeNamed: #dialogButtonBorderWidth
> +               put: aBoolean!
>
> Item was changed:
>   ----- Method: ColorTheme>>dialogColor (in category 'theme - dialogs') -----
>   dialogColor
> +       ^ (self attributeNamed: #dialogColor) ifNil: [ Color r: 1 g: 0.85 b: 0.975 ]!
> -       ^ Color paleYellow!
>
> Item was added:
> + ----- Method: ColorTheme>>dialogColor: (in category 'theme - dialogs') -----
> + dialogColor: aBoolean
> +       self
> +               attributeNamed: #dialogColor
> +               put: aBoolean!
>
> Item was changed:
>   ----- Method: ColorTheme>>dialogPaneBorderColor (in category 'theme - dialogs') -----
>   dialogPaneBorderColor
> +       ^ (self attributeNamed: #dialogPaneBorderColor) ifNil: [ Color r: 0.6 g: 0.7 b: 1 ]!
> -       ^ Color black
> - !
>
> Item was added:
> + ----- Method: ColorTheme>>dialogPaneBorderColor: (in category 'theme - dialogs') -----
> + dialogPaneBorderColor: aBoolean
> +       self
> +               attributeNamed: #dialogPaneBorderColor
> +               put: aBoolean!
>
> Item was changed:
>   ----- Method: ColorTheme>>dialogPaneBorderWidth (in category 'theme - dialogs') -----
>   dialogPaneBorderWidth
> +       ^ (self attributeNamed: #dialogPaneBorderWidth) ifNil: [ 1 ]!
> -       ^ 0!
>
> Item was added:
> + ----- Method: ColorTheme>>dialogPaneBorderWidth: (in category 'theme - dialogs') -----
> + dialogPaneBorderWidth: aBoolean
> +       self
> +               attributeNamed: #dialogPaneBorderWidth
> +               put: aBoolean!
>
> Item was changed:
>   ----- Method: ColorTheme>>dialogPaneRampOrColor (in category 'theme - dialogs') -----
>   dialogPaneRampOrColor
> +       ^ (self attributeNamed: #dialogPaneRampOrColor) ifNil:
> +               [ { 0.0 -> (Color r: 0.742 g: 0.871 b: 1.0).
> +               1.0 -> (Color r: 0.516  g: 0.645 b: 1.0) } ]!
> -       ^ {0.0 -> (Color r: 0.742 g: 0.871 b: 1.0).
> -               1.0 -> (Color r: 0.516 g: 0.645 b: 1.0)}!
>
> Item was added:
> + ----- Method: ColorTheme>>dialogPaneRampOrColor: (in category 'theme - dialogs') -----
> + dialogPaneRampOrColor: aBoolean
> +       self
> +               attributeNamed: #dialogPaneRampOrColor
> +               put: aBoolean!
>
> Item was changed:
>   ----- Method: ColorTheme>>dialogRampOrColor (in category 'theme - dialogs') -----
>   dialogRampOrColor
> +       self deprecated: 'Use #dialogColor.'.
> +       ^ self dialogColor!
> -       ^ {0.0 -> (Color r: 0.516 g: 0.645 b: 1.0).
> -               1.0 -> (Color r: 0.742 g: 0.871 b: 1.0)}!
>
> Item was changed:
>   ----- Method: ColorTheme>>dialogTextBoxBorderColor (in category 'theme - dialogs') -----
>   dialogTextBoxBorderColor
> +       ^ (self attributeNamed: #dialogTextBoxBorderColor) ifNil: [ Color r: 0.6 g: 0.7 b: 1 ]!
> -       ^ Color black!
>
> Item was added:
> + ----- Method: ColorTheme>>dialogTextBoxBorderColor: (in category 'theme - dialogs') -----
> + dialogTextBoxBorderColor: aBoolean
> +       self
> +               attributeNamed: #dialogTextBoxBorderColor
> +               put: aBoolean!
>
> Item was changed:
>   ----- Method: ColorTheme>>dialogTextBoxColor (in category 'theme - dialogs') -----
>   dialogTextBoxColor
> +       ^ (self attributeNamed: #dialogTextBoxColor) ifNil: [ Color r: 0.85 g: 0.9 b: 1 ]!
> -       ^ Color white!
>
> Item was added:
> + ----- Method: ColorTheme>>dialogTextBoxColor: (in category 'theme - dialogs') -----
> + dialogTextBoxColor: aBoolean
> +       self
> +               attributeNamed: #dialogTextBoxColor
> +               put: aBoolean!
>
> Item was changed:
>   ----- Method: ColorTheme>>disabledColor (in category 'theme') -----
>   disabledColor
> +       ^ (self attributeNamed: #disabledColor) ifNil: [ Color lightGray ]!
> -       ^ Color lightGray!
>
> Item was added:
> + ----- Method: ColorTheme>>disabledColor: (in category 'theme') -----
> + disabledColor: aColor
> +       self
> +               attributeNamed: #disabledColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>dockingBarAutoGradient (in category 'theme - dockingbar') -----
>   dockingBarAutoGradient
> +       ^ (self attributeNamed: #dockingBarAutoGradient) ifNil: [ true ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>dockingBarAutoGradient: (in category 'theme - dockingbar') -----
> + dockingBarAutoGradient: aBoolean
> +       self
> +               attributeNamed: #dockingBarAutoGradient
> +               put: aBoolean!
>
> Item was changed:
>   ----- Method: ColorTheme>>dockingBarColor (in category 'theme - dockingbar') -----
>   dockingBarColor
> +       ^ (self attributeNamed: #dockingBarColor) ifNil: [ Color r: 0.6 g: 0.7 b: 1 ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>dockingBarColor: (in category 'theme - dockingbar') -----
> + dockingBarColor: aColor
> +       self
> +               attributeNamed: #dockingBarColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>dockingBarGradientRamp (in category 'theme - dockingbar') -----
>   dockingBarGradientRamp
> +       ^ (self attributeNamed: #dockingBarGradientRamp) ifNil:
> +               [ { 0.0 -> Color white.
> +               1.0 -> (Color r: 0.6 g: 0.7 b: 1) } ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>dockingBarGradientRamp: (in category 'theme - dockingbar') -----
> + dockingBarGradientRamp: anArray
> +       self
> +               attributeNamed: #dockingBarGradientRamp
> +               put: anArray!
>
> Item was changed:
>   ----- Method: ColorTheme>>helpColor (in category 'theme') -----
>   helpColor
> +       ^ (self attributeNamed: #helpColor) ifNil: [ Color lightGreen ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>helpColor: (in category 'theme') -----
> + helpColor: aColor
> +       self
> +               attributeNamed: #helpColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>insertionPointColor (in category 'theme') -----
>   insertionPointColor
> +       ^ (self attributeNamed: #insertionPointColor) ifNil: [ Color red ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>insertionPointColor: (in category 'theme') -----
> + insertionPointColor: aColor
> +       self
> +               attributeNamed: #insertionPointColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>keyboardFocusColor (in category 'theme') -----
>   keyboardFocusColor
> +       ^ (self attributeNamed: #keyboardFocusColor) ifNil: [ Color r: 0.6 g: 1 b: 1 ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>keyboardFocusColor: (in category 'theme') -----
> + keyboardFocusColor: aColor
> +       self
> +               attributeNamed: #keyboardFocusColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>menuBorderColor (in category 'theme - menus') -----
>   menuBorderColor
> +       ^ (self attributeNamed: #menuBorderColor) ifNil: [ Color r: 0.2 g: 0.3 b: 0.9 ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>menuBorderColor: (in category 'theme - menus') -----
> + menuBorderColor: aColor
> +       self
> +               attributeNamed: #menuBorderColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>menuBorderWidth (in category 'theme - menus') -----
>   menuBorderWidth
> +       ^ (self attributeNamed: #menuBorderWidth) ifNil: [ 2 ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>menuBorderWidth: (in category 'theme - menus') -----
> + menuBorderWidth: aColor
> +       self
> +               attributeNamed: #menuBorderWidth
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>menuColor (in category 'theme - menus') -----
>   menuColor
> +       ^ (self attributeNamed: #menuColor) ifNil: [ Color r: 0.85 g: 0.9 b: 1 ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>menuColor: (in category 'theme - menus') -----
> + menuColor: aColor
> +       self
> +               attributeNamed: #menuColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>menuLineColor (in category 'theme - menus') -----
>   menuLineColor
> +       ^ (self attributeNamed: #menuLineColor) ifNil: [ Color r: 0.6 g: 0.7 b: 1 ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>menuLineColor: (in category 'theme - menus') -----
> + menuLineColor: aColor
> +       self
> +               attributeNamed: #menuLineColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>menuSelectionColor (in category 'theme - menus') -----
>   menuSelectionColor
> +       ^ (self attributeNamed: #menuSelectionColor) ifNil: [ Color r: 0.2 g: 0.3 b: 0.9 ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>menuSelectionColor: (in category 'theme - menus') -----
> + menuSelectionColor: aColor
> +       self
> +               attributeNamed: #menuSelectionColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>menuTitleBorderColor (in category 'theme - menus') -----
>   menuTitleBorderColor
> +       ^ (self attributeNamed: #menuTitleBorderColor) ifNil: [ Color r: 0.6 g: 0.7 b: 1 ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>menuTitleBorderColor: (in category 'theme - menus') -----
> + menuTitleBorderColor: aColor
> +       self
> +               attributeNamed: #menuTitleBorderColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>menuTitleBorderWidth (in category 'theme - menus') -----
>   menuTitleBorderWidth
> +       ^ (self attributeNamed: #menuTitleBorderWidth) ifNil: [ 6 ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>menuTitleBorderWidth: (in category 'theme - menus') -----
> + menuTitleBorderWidth: aColor
> +       self
> +               attributeNamed: #menuTitleBorderWidth
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>menuTitleColor (in category 'theme - menus') -----
>   menuTitleColor
> +       ^ (self attributeNamed: #menuTitleColor) ifNil: [ Color r: 0.6 g: 0.7 b: 1 ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>menuTitleColor: (in category 'theme - menus') -----
> + menuTitleColor: aColor
> +       self
> +               attributeNamed: #menuTitleColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>okColor (in category 'theme') -----
>   okColor
> +       ^ (self attributeNamed: #okColor) ifNil: [ Color lightGreen ]!
> -       ^ Color lightGreen!
>
> Item was added:
> + ----- Method: ColorTheme>>okColor: (in category 'theme') -----
> + okColor: aColor
> +       self
> +               attributeNamed: #okColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: ColorTheme>>textHighlightColor (in category 'theme') -----
>   textHighlightColor
> +       ^ (self attributeNamed: #textHighlightColor) ifNil: [ Color blue muchLighter alpha: 0.7 ]!
> -       ^ self subclassResponsibility!
>
> Item was added:
> + ----- Method: ColorTheme>>textHighlightColor: (in category 'theme') -----
> + textHighlightColor: aColor
> +       self
> +               attributeNamed: #textHighlightColor
> +               put: aColor!
>
> Item was changed:
>   ----- Method: Preferences class>>Curvier (in category 'standard queries') -----
>   Curvier
>         ^ self
>                 valueOfFlag: #Curvier
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>abbreviatedBrowserButtons (in category 'standard queries') -----
>   abbreviatedBrowserButtons
>         ^ self
>                 valueOfFlag: #abbreviatedBrowserButtons
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>alphabeticalProjectMenu (in category 'standard queries') -----
>   alphabeticalProjectMenu
>         ^ self
>                 valueOfFlag: #alphabeticalProjectMenu
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>alternateHandlesLook (in category 'standard queries') -----
>   alternateHandlesLook
>         ^ self
>                 valueOfFlag: #alternateHandlesLook
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>alternativeBrowseIt (in category 'standard queries') -----
>   alternativeBrowseIt
>         ^ self
>                 valueOfFlag: #alternativeBrowseIt
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>alternativeButtonsInScrollBars (in category 'standard queries') -----
>   alternativeButtonsInScrollBars
>         ^ self
>                 valueOfFlag: #alternativeButtonsInScrollBars
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>alwaysHideHScrollbar (in category 'standard queries') -----
>   alwaysHideHScrollbar
>         ^ self
>                 valueOfFlag: #alwaysHideHScrollbar
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was removed:
> - ----- Method: Preferences class>>alwaysShowConnectionVocabulary (in category 'standard queries') -----
> - alwaysShowConnectionVocabulary
> -       ^ self
> -               valueOfFlag: #alwaysShowConnectionVocabulary
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>alwaysShowHScrollbar (in category 'standard queries') -----
>   alwaysShowHScrollbar
>         ^ self
>                 valueOfFlag: #alwaysShowHScrollbar
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>alwaysShowVScrollbar (in category 'standard queries') -----
>   alwaysShowVScrollbar
>         ^ self
>                 valueOfFlag: #alwaysShowVScrollbar
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>areaFillsAreTolerant (in category 'standard queries') -----
>   areaFillsAreTolerant
>         ^ self
>                 valueOfFlag: #areaFillsAreTolerant
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>areaFillsAreVeryTolerant (in category 'standard queries') -----
>   areaFillsAreVeryTolerant
>         ^ self
>                 valueOfFlag: #areaFillsAreVeryTolerant
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>automaticFlapLayout (in category 'standard queries') -----
>   automaticFlapLayout
>         ^ self
>                 valueOfFlag: #automaticFlapLayout
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>automaticKeyGeneration (in category 'standard queries') -----
>   automaticKeyGeneration
>         ^ self
>                 valueOfFlag: #automaticKeyGeneration
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>automaticPlatformSettings (in category 'standard queries') -----
>   automaticPlatformSettings
>         ^ self
>                 valueOfFlag: #automaticPlatformSettings
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>automaticViewerPlacement (in category 'standard queries') -----
>   automaticViewerPlacement
>         ^ self
>                 valueOfFlag: #automaticViewerPlacement
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>balloonHelpEnabled (in category 'standard queries') -----
>   balloonHelpEnabled
>         ^ self
>                 valueOfFlag: #balloonHelpEnabled
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>balloonHelpInMessageLists (in category 'standard queries') -----
>   balloonHelpInMessageLists
>         ^ self
>                 valueOfFlag: #balloonHelpInMessageLists
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>batchPenTrails (in category 'standard queries') -----
>   batchPenTrails
>         ^ self
>                 valueOfFlag: #batchPenTrails
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>bigDisplay (in category 'standard queries') -----
>   bigDisplay
>         ^ self
>                 valueOfFlag: #bigDisplay
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>biggerHandles (in category 'standard queries') -----
>   biggerHandles
>         ^ self
>                 valueOfFlag: #biggerHandles
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>browseWithDragNDrop (in category 'standard queries') -----
>   browseWithDragNDrop
>         ^ self
>                 valueOfFlag: #browseWithDragNDrop
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>browseWithPrettyPrint (in category 'standard queries') -----
>   browseWithPrettyPrint
>         ^ self
>                 valueOfFlag: #browseWithPrettyPrint
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>browserShowsPackagePane (in category 'standard queries') -----
>   browserShowsPackagePane
>         ^ self
>                 valueOfFlag: #browserShowsPackagePane
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>capitalizedReferences (in category 'standard queries') -----
>   capitalizedReferences
>         ^ self
>                 valueOfFlag: #capitalizedReferences
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>caseSensitiveFinds (in category 'standard queries') -----
>   caseSensitiveFinds
>         ^ self
>                 valueOfFlag: #caseSensitiveFinds
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>cautionBeforeClosing (in category 'standard queries') -----
>   cautionBeforeClosing
>         ^ self
>                 valueOfFlag: #cautionBeforeClosing
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>changeSetVersionNumbers (in category 'standard queries') -----
>   changeSetVersionNumbers
>         ^ self
>                 valueOfFlag: #changeSetVersionNumbers
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>checkForSlips (in category 'standard queries') -----
>   checkForSlips
>         ^ self
>                 valueOfFlag: #checkForSlips
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>checkForUnsavedProjects (in category 'standard queries') -----
>   checkForUnsavedProjects
>         ^ self
>                 valueOfFlag: #checkForUnsavedProjects
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>classicNavigatorEnabled (in category 'standard queries') -----
>   classicNavigatorEnabled
>         ^ self
>                 valueOfFlag: #classicNavigatorEnabled
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>cmdDotEnabled (in category 'standard queries') -----
>   cmdDotEnabled
>         ^ self
>                 valueOfFlag: #cmdDotEnabled
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>collapseWindowsInPlace (in category 'standard queries') -----
>   collapseWindowsInPlace
>         ^ self
>                 valueOfFlag: #collapseWindowsInPlace
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>compactViewerFlaps (in category 'standard queries') -----
>   compactViewerFlaps
>         ^ self
>                 valueOfFlag: #compactViewerFlaps
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>compressFlashImages (in category 'standard queries') -----
>   compressFlashImages
>         ^ self
>                 valueOfFlag: #compressFlashImages
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>confirmFirstUseOfStyle (in category 'standard queries') -----
>   confirmFirstUseOfStyle
>         ^ self
>                 valueOfFlag: #confirmFirstUseOfStyle
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>conversionMethodsAtFileOut (in category 'standard queries') -----
>   conversionMethodsAtFileOut
>         ^ self
>                 valueOfFlag: #conversionMethodsAtFileOut
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>cpuWatcherEnabled (in category 'standard queries') -----
>   cpuWatcherEnabled
>         ^ self
>                 valueOfFlag: #cpuWatcherEnabled
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>debugHaloHandle (in category 'standard queries') -----
>   debugHaloHandle
>         ^ self
>                 valueOfFlag: #debugHaloHandle
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>debugPrintSpaceLog (in category 'standard queries') -----
>   debugPrintSpaceLog
>         ^ self
>                 valueOfFlag: #debugPrintSpaceLog
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>debugShowDamage (in category 'standard queries') -----
>   debugShowDamage
>         ^ self
>                 valueOfFlag: #debugShowDamage
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>decorateBrowserButtons (in category 'standard queries') -----
>   decorateBrowserButtons
>         ^ self
>                 valueOfFlag: #decorateBrowserButtons
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>defaultFileOutFormatMacRoman (in category 'standard queries') -----
>   defaultFileOutFormatMacRoman
>         ^ self
>                 valueOfFlag: #defaultFileOutFormatMacRoman
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>diffsInChangeList (in category 'standard queries') -----
>   diffsInChangeList
>         ^ self
>                 valueOfFlag: #diffsInChangeList
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>diffsWithPrettyPrint (in category 'standard queries') -----
>   diffsWithPrettyPrint
>         ^ self
>                 valueOfFlag: #diffsWithPrettyPrint
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>dismissAllOnOptionClose (in category 'standard queries') -----
>   dismissAllOnOptionClose
>         ^ self
>                 valueOfFlag: #dismissAllOnOptionClose
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>dragNDropWithAnimation (in category 'standard queries') -----
>   dragNDropWithAnimation
>         ^ self
>                 valueOfFlag: #dragNDropWithAnimation
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>dropProducesWatcher (in category 'standard queries') -----
>   dropProducesWatcher
>         ^ self
>                 valueOfFlag: #dropProducesWatcher
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>duplicateAllControlAndAltKeys (in category 'standard queries') -----
>   duplicateAllControlAndAltKeys
>         ^ self
>                 valueOfFlag: #duplicateAllControlAndAltKeys
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>duplicateControlAndAltKeys (in category 'standard queries') -----
>   duplicateControlAndAltKeys
>         ^ self
>                 valueOfFlag: #duplicateControlAndAltKeys
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>eToyFriendly (in category 'standard queries') -----
>   eToyFriendly
>         ^ self
>                 valueOfFlag: #eToyFriendly
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>eToyLoginEnabled (in category 'standard queries') -----
>   eToyLoginEnabled
>         ^ self
>                 valueOfFlag: #eToyLoginEnabled
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>easySelection (in category 'standard queries') -----
>   easySelection
>         ^ self
>                 valueOfFlag: #easySelection
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>enableLocalSave (in category 'standard queries') -----
>   enableLocalSave
>         ^ self
>                 valueOfFlag: #enableLocalSave
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>expandedPublishing (in category 'standard queries') -----
>   expandedPublishing
>         ^ self
>                 valueOfFlag: #expandedPublishing
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>extraDebuggerButtons (in category 'standard queries') -----
>   extraDebuggerButtons
>         ^ self
>                 valueOfFlag: #extraDebuggerButtons
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>extractFlashInHighQuality (in category 'standard queries') -----
>   extractFlashInHighQuality
>         ^ self
>                 valueOfFlag: #extractFlashInHighQuality
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>extractFlashInHighestQuality (in category 'standard queries') -----
>   extractFlashInHighestQuality
>         ^ self
>                 valueOfFlag: #extractFlashInHighestQuality
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>fastDragWindowForMorphic (in category 'standard queries') -----
>   fastDragWindowForMorphic
>         ^ self
>                 valueOfFlag: #fastDragWindowForMorphic
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>fenceEnabled (in category 'standard queries') -----
>   fenceEnabled
>         ^ self
>                 valueOfFlag: #fenceEnabled
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>fenceSoundEnabled (in category 'standard queries') -----
>   fenceSoundEnabled
>         ^ self
>                 valueOfFlag: #fenceSoundEnabled
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>fullScreenLeavesDeskMargins (in category 'standard queries') -----
>   fullScreenLeavesDeskMargins
>         ^ self
>                 valueOfFlag: #fullScreenLeavesDeskMargins
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>generalizedYellowButtonMenu (in category 'standard queries') -----
>   generalizedYellowButtonMenu
>         ^ self
>                 valueOfFlag: #generalizedYellowButtonMenu
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>gradientMenu (in category 'standard queries') -----
>   gradientMenu
>         ^ self
>                 valueOfFlag: #gradientMenu
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>gradientScrollBars (in category 'standard queries') -----
>   gradientScrollBars
>         ^ self
>                 valueOfFlag: #gradientScrollBars
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>haloEnclosesFullBounds (in category 'standard queries') -----
>   haloEnclosesFullBounds
>         ^ self
>                 valueOfFlag: #haloEnclosesFullBounds
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>haloTheme (in category 'halos') -----
>   haloTheme
>         ^ self
>                 valueOfFlag: #haloTheme
> +               ifAbsent: [ #iconicHaloSpecifications ]!
> -               ifAbsent: [#iconicHaloSpecifications]!
>
> Item was changed:
>   ----- Method: Preferences class>>haloTransitions (in category 'standard queries') -----
>   haloTransitions
>         ^ self
>                 valueOfFlag: #haloTransitions
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>higherPerformance (in category 'standard queries') -----
>   higherPerformance
>         ^ self
>                 valueOfFlag: #higherPerformance
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>honorDesktopCmdKeys (in category 'standard queries') -----
>   honorDesktopCmdKeys
>         ^ self
>                 valueOfFlag: #honorDesktopCmdKeys
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>ignoreStyleIfOnlyBold (in category 'standard queries') -----
>   ignoreStyleIfOnlyBold
>         ^ self
>                 valueOfFlag: #ignoreStyleIfOnlyBold
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>includeSoundControlInNavigator (in category 'standard queries') -----
>   includeSoundControlInNavigator
>         ^ self
>                 valueOfFlag: #includeSoundControlInNavigator
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>infiniteUndo (in category 'standard queries') -----
>   infiniteUndo
>         ^ self
>                 valueOfFlag: #infiniteUndo
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>inlineServicesInMenu (in category 'standard queries') -----
>   inlineServicesInMenu
>         ^ self
>                 valueOfFlag: #inlineServicesInMenu
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>keepTickingWhilePainting (in category 'standard queries') -----
>   keepTickingWhilePainting
>         ^ self
>                 valueOfFlag: #keepTickingWhilePainting
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>logDebuggerStackToFile (in category 'standard queries') -----
>   logDebuggerStackToFile
>         ^ self
>                 valueOfFlag: #logDebuggerStackToFile
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>magicHalos (in category 'standard queries') -----
>   magicHalos
>         ^ self
>                 valueOfFlag: #magicHalos
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>maintainHalos (in category 'standard queries') -----
>   maintainHalos
>         ^ self
>                 valueOfFlag: #maintainHalos
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>menuAppearance3d (in category 'standard queries') -----
>   menuAppearance3d
>         ^ self
>                 valueOfFlag: #menuAppearance3d
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>menuButtonInToolPane (in category 'standard queries') -----
>   menuButtonInToolPane
>         ^ self
>                 valueOfFlag: #menuButtonInToolPane
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>menuKeyboardControl (in category 'standard queries') -----
>   menuKeyboardControl
>         ^ self
>                 valueOfFlag: #menuKeyboardControl
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>menuWithIcons (in category 'standard queries') -----
>   menuWithIcons
>         ^ self
>                 valueOfFlag: #menuWithIcons
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>modalColorPickers (in category 'standard queries') -----
>   modalColorPickers
>         ^ self
>                 valueOfFlag: #modalColorPickers
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>mouseOverForKeyboardFocus (in category 'standard queries') -----
>   mouseOverForKeyboardFocus
>         ^ self
>                 valueOfFlag: #mouseOverForKeyboardFocus
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>mouseOverHalos (in category 'standard queries') -----
>   mouseOverHalos
>         ^ self
>                 valueOfFlag: #mouseOverHalos
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>multipleTextUndo (in category 'standard queries') -----
>   multipleTextUndo
>         ^ self
>                 valueOfFlag: #multipleTextUndo
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>mvcProjectsAllowed (in category 'standard queries') -----
>   mvcProjectsAllowed
>         ^ self
>                 valueOfFlag: #mvcProjectsAllowed
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>navigatorOnLeftEdge (in category 'standard queries') -----
>   navigatorOnLeftEdge
>         ^ self
>                 valueOfFlag: #navigatorOnLeftEdge
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>noviceMode (in category 'standard queries') -----
>   noviceMode
>         ^ self
>                 valueOfFlag: #noviceMode
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>okToReinitializeFlaps (in category 'standard queries') -----
>   okToReinitializeFlaps
>         ^ self
>                 valueOfFlag: #okToReinitializeFlaps
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>oliveHandleForScriptedObjects (in category 'standard queries') -----
>   oliveHandleForScriptedObjects
>         ^ self
>                 valueOfFlag: #oliveHandleForScriptedObjects
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>optionalButtons (in category 'standard queries') -----
>   optionalButtons
>         ^ self
>                 valueOfFlag: #optionalButtons
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>passwordsOnPublish (in category 'standard queries') -----
>   passwordsOnPublish
>         ^ self
>                 valueOfFlag: #passwordsOnPublish
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>personalizedWorldMenu (in category 'standard queries') -----
>   personalizedWorldMenu
>         ^ self
>                 valueOfFlag: #personalizedWorldMenu
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>postscriptStoredAsEPS (in category 'standard queries') -----
>   postscriptStoredAsEPS
>         ^ self
>                 valueOfFlag: #postscriptStoredAsEPS
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>preferencesPanelWindowColor (in category 'standard queries') -----
>   preferencesPanelWindowColor
>         ^ self
>                 valueOfFlag: #preferencesPanelWindowColor
> +               ifAbsent:
> +                       [ Color
> -               ifAbsent: [Color
>                                 r: 0.645
>                                 g: 1.0
> +                               b: 1.0 ]!
> -                               b: 1.0]!
>
> Item was changed:
>   ----- Method: Preferences class>>preserveTrash (in category 'standard queries') -----
>   preserveTrash
>         ^ self
>                 valueOfFlag: #preserveTrash
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>projectViewsInWindows (in category 'standard queries') -----
>   projectViewsInWindows
>         ^ self
>                 valueOfFlag: #projectViewsInWindows
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>projectZoom (in category 'standard queries') -----
>   projectZoom
>         ^ self
>                 valueOfFlag: #projectZoom
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>projectsSentToDisk (in category 'standard queries') -----
>   projectsSentToDisk
>         ^ self
>                 valueOfFlag: #projectsSentToDisk
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>promptForUpdateServer (in category 'standard queries') -----
>   promptForUpdateServer
>         ^ self
>                 valueOfFlag: #promptForUpdateServer
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>propertySheetFromHalo (in category 'standard queries') -----
>   propertySheetFromHalo
>         ^ self
>                 valueOfFlag: #propertySheetFromHalo
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>purgeUndoOnQuit (in category 'standard queries') -----
>   purgeUndoOnQuit
>         ^ self
>                 valueOfFlag: #purgeUndoOnQuit
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>readDocumentAtStartup (in category 'standard queries') -----
>   readDocumentAtStartup
>         ^ self
>                 valueOfFlag: #readDocumentAtStartup
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>readOnlyMode (in category 'standard queries') -----
>   readOnlyMode
>         ^ self
>                 valueOfFlag: #readOnlyMode
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>restartAlsoProceeds (in category 'standard queries') -----
>   restartAlsoProceeds
>         ^ self
>                 valueOfFlag: #restartAlsoProceeds
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>reverseWindowStagger (in category 'standard queries') -----
>   reverseWindowStagger
>         ^ self
>                 valueOfFlag: #reverseWindowStagger
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>roundedMenuCorners (in category 'standard queries') -----
>   roundedMenuCorners
>         ^ self
>                 valueOfFlag: #roundedMenuCorners
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>roundedWindowCorners (in category 'standard queries') -----
>   roundedWindowCorners
>         ^ self
>                 valueOfFlag: #roundedWindowCorners
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>scrollBarsNarrow (in category 'standard queries') -----
>   scrollBarsNarrow
>         ^ self
>                 valueOfFlag: #scrollBarsNarrow
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>scrollBarsOnRight (in category 'standard queries') -----
>   scrollBarsOnRight
>         ^ self
>                 valueOfFlag: #scrollBarsOnRight
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>scrollBarsWithoutMenuButton (in category 'standard queries') -----
>   scrollBarsWithoutMenuButton
>         ^ self
>                 valueOfFlag: #scrollBarsWithoutMenuButton
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>securityChecksEnabled (in category 'standard queries') -----
>   securityChecksEnabled
>         ^ self
>                 valueOfFlag: #securityChecksEnabled
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>selectiveHalos (in category 'standard queries') -----
>   selectiveHalos
>         ^ self
>                 valueOfFlag: #selectiveHalos
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>showAdvancedNavigatorButtons (in category 'standard queries') -----
>   showAdvancedNavigatorButtons
>         ^ self
>                 valueOfFlag: #showAdvancedNavigatorButtons
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>showDeprecationWarnings (in category 'standard queries') -----
>   showDeprecationWarnings
>         ^ self
>                 valueOfFlag: #showDeprecationWarnings
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>showDirectionForSketches (in category 'standard queries') -----
>   showDirectionForSketches
>         ^ self
>                 valueOfFlag: #showDirectionForSketches
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>showDirectionHandles (in category 'standard queries') -----
>   showDirectionHandles
>         ^ self
>                 valueOfFlag: #showDirectionHandles
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>showFlapsWhenPublishing (in category 'standard queries') -----
>   showFlapsWhenPublishing
>         ^ self
>                 valueOfFlag: #showFlapsWhenPublishing
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>showProjectNavigator (in category 'standard queries') -----
>   showProjectNavigator
>         ^ self
>                 valueOfFlag: #showProjectNavigator
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>showSecurityStatus (in category 'standard queries') -----
>   showSecurityStatus
>         ^ self
>                 valueOfFlag: #showSecurityStatus
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>showSharedFlaps (in category 'standard queries') -----
>   showSharedFlaps
>         ^ self
>                 valueOfFlag: #showSharedFlaps
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>signProjectFiles (in category 'standard queries') -----
>   signProjectFiles
>         ^ self
>                 valueOfFlag: #signProjectFiles
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>simpleMenus (in category 'standard queries') -----
>   simpleMenus
>         ^ self
>                 valueOfFlag: #simpleMenus
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>slideDismissalsToTrash (in category 'standard queries') -----
>   slideDismissalsToTrash
>         ^ self
>                 valueOfFlag: #slideDismissalsToTrash
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>smartUpdating (in category 'standard queries') -----
>   smartUpdating
>         ^ self
>                 valueOfFlag: #smartUpdating
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>startInUntrustedDirectory (in category 'standard queries') -----
>   startInUntrustedDirectory
>         ^ self
>                 valueOfFlag: #startInUntrustedDirectory
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>swapControlAndAltKeys (in category 'standard queries') -----
>   swapControlAndAltKeys
>         ^ self
>                 valueOfFlag: #swapControlAndAltKeys
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>swapMouseButtons (in category 'standard queries') -----
>   swapMouseButtons
>         ^ self
>                 valueOfFlag: #swapMouseButtons
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>syntaxHighlightingAsYouType (in category 'standard queries') -----
>   syntaxHighlightingAsYouType
>         ^ self
>                 valueOfFlag: #syntaxHighlightingAsYouType
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>syntaxHighlightingAsYouTypeAnsiAssignment (in category 'standard queries') -----
>   syntaxHighlightingAsYouTypeAnsiAssignment
>         ^ self
>                 valueOfFlag: #syntaxHighlightingAsYouTypeAnsiAssignment
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>syntaxHighlightingAsYouTypeLeftArrowAssignment (in category 'standard queries') -----
>   syntaxHighlightingAsYouTypeLeftArrowAssignment
>         ^ self
>                 valueOfFlag: #syntaxHighlightingAsYouTypeLeftArrowAssignment
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>systemWindowEmbedOK (in category 'standard queries') -----
>   systemWindowEmbedOK
>         ^ self
>                 valueOfFlag: #systemWindowEmbedOK
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>tabAmongFields (in category 'standard queries') -----
>   tabAmongFields
>         ^ self
>                 valueOfFlag: #tabAmongFields
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>thoroughSenders (in category 'standard queries') -----
>   thoroughSenders
>         ^ self
>                 valueOfFlag: #thoroughSenders
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>tileTranslucentDrag (in category 'standard queries') -----
>   tileTranslucentDrag
>         ^ self
>                 valueOfFlag: #tileTranslucentDrag
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>timeStampsInMenuTitles (in category 'standard queries') -----
>   timeStampsInMenuTitles
>         ^ self
>                 valueOfFlag: #timeStampsInMenuTitles
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>tinyDisplay (in category 'standard queries') -----
>   tinyDisplay
>         ^ self
>                 valueOfFlag: #tinyDisplay
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>turnOffPowerManager (in category 'standard queries') -----
>   turnOffPowerManager
>         ^ self
>                 valueOfFlag: #turnOffPowerManager
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>twentyFourHourFileStamps (in category 'standard queries') -----
>   twentyFourHourFileStamps
>         ^ self
>                 valueOfFlag: #twentyFourHourFileStamps
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>typeCheckingInTileScripting (in category 'standard queries') -----
>   typeCheckingInTileScripting
>         ^ self
>                 valueOfFlag: #typeCheckingInTileScripting
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>uniTilesClassic (in category 'standard queries') -----
>   uniTilesClassic
>         ^ self
>                 valueOfFlag: #uniTilesClassic
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>uniqueNamesInHalos (in category 'standard queries') -----
>   uniqueNamesInHalos
>         ^ self
>                 valueOfFlag: #uniqueNamesInHalos
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>unlimitedPaintArea (in category 'standard queries') -----
>   unlimitedPaintArea
>         ^ self
>                 valueOfFlag: #unlimitedPaintArea
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>updateFromServerAtStartup (in category 'standard queries') -----
>   updateFromServerAtStartup
>         ^ self
>                 valueOfFlag: #updateFromServerAtStartup
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>updateSavesFile (in category 'standard queries') -----
>   updateSavesFile
>         ^ self
>                 valueOfFlag: #updateSavesFile
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>upgradeIsMerge (in category 'standard queries') -----
>   upgradeIsMerge
>         ^ self
>                 valueOfFlag: #upgradeIsMerge
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>useButtonProprtiesToFire (in category 'standard queries') -----
>   useButtonProprtiesToFire
>         ^ self
>                 valueOfFlag: #useButtonProprtiesToFire
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>useOnlyServicesInMenu (in category 'standard queries') -----
>   useOnlyServicesInMenu
>         ^ self
>                 valueOfFlag: #useOnlyServicesInMenu
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>useServicesInBrowserButtonBar (in category 'standard queries') -----
>   useServicesInBrowserButtonBar
>         ^ self
>                 valueOfFlag: #useServicesInBrowserButtonBar
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was removed:
> - ----- Method: Preferences class>>useSmartLabels (in category 'standard queries') -----
> - useSmartLabels
> -       ^ self
> -               valueOfFlag: #useSmartLabels
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>useUndo (in category 'standard queries') -----
>   useUndo
>         ^ self
>                 valueOfFlag: #useUndo
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>useVectorVocabulary (in category 'standard queries') -----
>   useVectorVocabulary
>         ^ self
>                 valueOfFlag: #useVectorVocabulary
> +               ifAbsent: [ false ]!
> -               ifAbsent: [false]!
>
> Item was changed:
>   ----- Method: Preferences class>>viewersInFlaps (in category 'standard queries') -----
>   viewersInFlaps
>         ^ self
>                 valueOfFlag: #viewersInFlaps
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>visualExplorer (in category 'standard queries') -----
>   visualExplorer
>         ^ self
>                 valueOfFlag: #visualExplorer
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>warnAboutInsecureContent (in category 'standard queries') -----
>   warnAboutInsecureContent
>         ^ self
>                 valueOfFlag: #warnAboutInsecureContent
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>warnIfNoChangesFile (in category 'standard queries') -----
>   warnIfNoChangesFile
>         ^ self
>                 valueOfFlag: #warnIfNoChangesFile
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>warnIfNoSourcesFile (in category 'standard queries') -----
>   warnIfNoSourcesFile
>         ^ self
>                 valueOfFlag: #warnIfNoSourcesFile
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: Preferences class>>wordStyleCursorMovement (in category 'standard queries') -----
>   wordStyleCursorMovement
>         ^ self
>                 valueOfFlag: #wordStyleCursorMovement
> +               ifAbsent: [ true ]!
> -               ifAbsent: [true]!
>
> Item was changed:
>   ----- Method: SpaceTallyItem>>printOn: (in category 'printing') -----
>   printOn: aStream
>
>         analyzedClassName
>                 ifNotNil: [ aStream nextPutAll: analyzedClassName asString].
>         aStream nextPutAll: ' ('.
>         codeSize
>                 ifNotNil: [ aStream nextPutAll: 'code size: ' ;  nextPutAll: codeSize asString].
>         instanceCount
>                 ifNotNil: [ aStream nextPutAll: ' instance count: ' ;  nextPutAll: instanceCount asString].
>         spaceForInstances
> +               ifNotNil: [ aStream nextPutAll: ' space for instances: ' ;  nextPutAll: spaceForInstances asBytesDescription].
> -               ifNotNil: [ aStream nextPutAll: ' space for instances: ' ;  nextPutAll: spaceForInstances asString].
>         aStream nextPut: $).
>         !
>
> Item was changed:
>   (PackageInfo named: 'System') postscript: '"Remove instance of NaturalLanguageTranslator in InternalTranslator, since it breaks its own startup method."
>   InternalTranslator resetCaches.
>   "Remove obsolete preferences."
>   #(allowUnderscoreAssignment allowBlockArgumentAssignment soundsEnabled soundQuickStart soundStopWhenDone canRecordWhilePlaying)
> +       do: [ :each | Preferences removePreference: each ].
> + ColorTheme current: nil'!
> -       do: [ :each | Preferences removePreference: each ].'!
>
>

> On 04.07.2013, at 19:31, Chris Muller <[hidden email]> wrote:
>
>> BTW, does anyone know what causes the spurious changes in the bunch of
>> Preferences methods?  Looks like a space was added, almost as if the
>> formatter was invoked..
>>>  ----- Method: Preferences class>>warnIfNoSourcesFile (in category 'standard queries') -----
>>>  warnIfNoSourcesFile
>>>        ^ self
>>>                valueOfFlag: #warnIfNoSourcesFile
>>> +               ifAbsent: [ true ]!
>>> -               ifAbsent: [true]!
>
>
> Or maybe you played with all preferences? Or recreated them? These methods are generated automatically (and really should be in a "*generated" protocol to not make the MCZ package dirty)
>
> - Bert -
>
>

>
>
> On Sat, Jul 6, 2013 at 1:45 PM, Bert Freudenberg <[hidden email]> wrote:
>> On 04.07.2013, at 19:31, Chris Muller <[hidden email]> wrote:
>>
>>> BTW, does anyone know what causes the spurious changes in the bunch of
>>> Preferences methods?  Looks like a space was added, almost as if the
>>> formatter was invoked..
>>>>  ----- Method: Preferences class>>warnIfNoSourcesFile (in category 'standard queries') -----
>>>>  warnIfNoSourcesFile
>>>>        ^ self
>>>>                valueOfFlag: #warnIfNoSourcesFile
>>>> +               ifAbsent: [ true ]!
>>>> -               ifAbsent: [true]!
>>
>>
>> Or maybe you played with all preferences? Or recreated them? These methods are generated automatically (and really should be in a "*generated" protocol to not make the MCZ package dirty)
>>
>> - Bert -
>>
>>
>
>