[squeak-dev] The Trunk: System-cmm.646.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Dec 19 20:59:38 UTC 2013


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

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

Name: System-cmm.646
Author: cmm
Time: 19 December 2013, 2:58:37.962 pm
UUID: 837ae54e-53d7-41df-9daa-1e24c8c9a1c9
Ancestors: System-nice.645

Another RecentMessages fix.

=============== Diff against System-nice.645 ===============

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 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>>capitalizedReferences (in category 'standard queries') -----
  capitalizedReferences
  	^ self
  		valueOfFlag: #capitalizedReferences
+ 		ifAbsent: [ true ]!
- 		ifAbsent: [true]!

Item was changed:
  ----- Method: RecentMessages>>event: (in category 'change logging') -----
+ event: anEvent 
- event: anEvent
  	"Hook for SystemChangeNotifier"
+ 	(anEvent isCommented and: [ anEvent itemKind = SystemChangeNotifier classKind ]) ifTrue:
+ 		[ self
+ 			recordSelector: #Comment
+ 			forClass: anEvent item
+ 			inEnvironment: anEvent itemEnvironment ].
+ 	((anEvent isAdded or: [ anEvent isModified ]) and: [ anEvent itemKind = SystemChangeNotifier methodKind ]) ifTrue:
+ 		[ anEvent itemRequestor ifNotNil:
+ 			[ self
+ 				recordSelector: anEvent itemSelector
+ 				forClass: anEvent itemClass
+ 				inEnvironment: anEvent itemEnvironment ].
+ 		InMidstOfFileinNotification signal ifFalse: [ Utilities changed: #recentMethodSubmissions ] ]!
- 
- 	(anEvent isCommented and: [anEvent itemKind = SystemChangeNotifier classKind])
- 		ifTrue: [self recordSelector: #Comment forClass: anEvent item inEnvironment: anEvent environment].
- 	((anEvent isAdded or: [anEvent isModified]) and: [anEvent itemKind = SystemChangeNotifier methodKind])
- 		ifTrue: [
- 			anEvent itemRequestor
- 				ifNotNil: [self recordSelector: anEvent itemSelector forClass: anEvent itemClass inEnvironment: anEvent itemEnvironment].
- 			InMidstOfFileinNotification signal
- 				ifFalse: [Utilities changed: #recentMethodSubmissions]].!



More information about the Squeak-dev mailing list