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

Nicolas Cellier nicolas.cellier.aka.nice at gmail.com
Thu Dec 19 21:08:22 UTC 2013


I failed to see the difference...


2013/12/19 <commits at source.squeak.org>

> 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]].!
>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20131219/2eb332e9/attachment.htm


More information about the Squeak-dev mailing list