[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
|