The Trunk: System-cmm.582.mcz

Chris Muller uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-cmm.582.mcz

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

Name: System-cmm.582
Author: cmm
Time: 7 August 2013, 5:00:42.385 pm
UUID: 57938f0c-ead3-4dba-9155-0812c9c1b7d7
Ancestors: System-fbs.581

- Fix #thoroughSenders preference.
- SpaceTally items print your spaceForIntances tersely to be more easily readable.

=============== Diff against System-fbs.581 ===============

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 bindingOf: 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:
  ----- 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 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: $).
  !

On 7 August 2013 23:00,  <[hidden email]> wrote:
The change looks fine. I wonder why the diff is so very noisy, though.
It looks like almost all the Preferences changes are whitespace
changes? Tabs to spaces, maybe?

I don't know how many things use #thoroughSenders. If it's mainly a
SystemNavigation thing I'd like to see it turned into a pragma
preference.

Given that almost all the action in this method involves sending
messages to self systemNavigation, The method looks like it wants to
move to SystemNavigation, in other words.

With these two things, we'd see the Preferences conditional above
looking like this:

    blah blah ,
        (self class thoroughSenders
            ifTrue: [ self allCallsOn: theClass name ]
            ifFalse: [ OrderedCollection new ]) ,
        blah blah

frank

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Am 08.08.2013 um 10:14 schrieb Frank Shearar <[hidden email]>:

On 7 August 2013 23:00,  <[hidden email]> wrote:
Chris Muller uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-cmm.582.mcz

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

Name: System-cmm.582
Author: cmm
Time: 7 August 2013, 5:00:42.385 pm
UUID: 57938f0c-ead3-4dba-9155-0812c9c1b7d7
Ancestors: System-fbs.581

- - Fix #thoroughSenders preference.
- - SpaceTally items print your spaceForIntances tersely to be more easily readable.

=============== Diff against System-fbs.581 ===============

The change looks fine. I wonder why the diff is so very noisy, though.
It looks like almost all the Preferences changes are whitespace
changes? Tabs to spaces, maybe?

seems all [false] got [ false ] and all [true] got [ true ].
I personally dislike this, but who am I to complain, especially
about generated code :)


-----BEGIN PGP SIGNATURE-----
Version: GnuPG/MacGPG2 v2.0.20 (Darwin)

iEYEARECAAYFAlIDXZQACgkQcPVIrP6PLKv6JACcC+qIXd618V9pRr9Rrmul3bKH
7BgAniQkBflCiKXPXBRt1FjkDHh1wTan
=Ccl6
-----END PGP SIGNATURE-----

On 8 August 2013 09:57, Tobias Pape <[hidden email]> wrote:
Ah yes, I'd forgotten that these are generated. I belatedly remember
Chris and Bert discussing this very topic a while ago.

frank

On Thu, 8 Aug 2013, Frank Shearar wrote:

Generated methods should go to the *generated category (or similar), or
compiled silently.


Levente

>
> frank
>
>