[squeak-dev] The Inbox: System-cmm.524.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Jul 5 02:08:47 UTC 2013


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



More information about the Squeak-dev mailing list