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]].! |
I failed to see the difference... 2013/12/19 <[hidden email]> Chris Muller uploaded a new version of System to project The Trunk: |
Yeah, SS should format before diffing. This is the fix.
- inEnvironment: anEvent environment ]. + inEnvironment: anEvent itemEnvironment ]. On Thu, Dec 19, 2013 at 3:08 PM, Nicolas Cellier <[hidden email]> wrote: > I failed to see the difference... > > > 2013/12/19 <[hidden email]> > >> 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]].! >> >> > > > > |
Free forum by Nabble | Edit this page |