[squeak-dev] The Trunk: System-rss.134.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Aug 23 20:26:40 UTC 2009


Andreas Raab uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-rss.134.mcz

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

Name: System-rss.134
Author: rss
Time: 23 August 2009, 1:16:51 am
UUID: 7fa112cd-50f3-417a-83de-6362827ff54e
Ancestors: System-rkrk.133

Removing cruft left over from colorPrint browser option and colorWhenPrettyPrinting preference.

=============== Diff against System-rkrk.133 ===============

Item was changed:
  ----- Method: SystemDictionary>>testFormatter2 (in category 'housekeeping') -----
  testFormatter2
  	"Smalltalk testFormatter2"
  
  	"Reformats the source for every method in the system, and
  	then verifies that the order of source tokens is unchanged.
  	The formatting used will be either classic monochrome or
  	fancy polychrome, depending on the setting of the preference
  	#colorWhenPrettyPrinting. "
+ 	
+ 	"Note: removed references to Preferences colorWhenPrettyPrinting and replaced them simply with false, as I've been removing this preference lately. --Ron Spengler 8/23/09"
  
  	| newCodeString badOnes n oldCodeString oldTokens newTokens |
  	badOnes := OrderedCollection new.
  	self forgetDoIts.
  	'Formatting all classes...' 
  		displayProgressAt: Sensor cursorPoint
  		from: 0
  		to: CompiledMethod instanceCount
  		during: 
  			[:bar | 
  			n := 0.
  			self systemNavigation allBehaviorsDo: 
  					[:cls | 
  					"Transcript cr; show: cls name."
  
  					cls selectors do: 
  							[:selector | 
  							(n := n + 1) \\ 100 = 0 ifTrue: [bar value: n].
  							oldCodeString := (cls sourceCodeAt: selector) asString.
  							newCodeString := cls prettyPrinterClass 
  										format: oldCodeString
  										in: cls
  										notifying: nil
+ 										decorated: false.
- 										decorated: Preferences colorWhenPrettyPrinting.
  							oldTokens := oldCodeString findTokens: Character separators.
  							newTokens := newCodeString findTokens: Character separators.
  							oldTokens = newTokens 
  								ifFalse: 
  									[Transcript
  										cr;
  										show: '***' , cls name , ' ' , selector.
  									badOnes add: cls name , ' ' , selector]]]].
  	self systemNavigation browseMessageList: badOnes asSortedCollection
  		name: 'Formatter Discrepancies'!

Item was changed:
  ----- Method: Preferences class>>defaultValueTableForCurrentRelease (in category 'misc') -----
  defaultValueTableForCurrentRelease
  	"Answer a table defining default values for all the preferences in the release.  Returns a list of (pref-symbol, boolean-symbol) pairs"
  
  	^  #(
  		(abbreviatedBrowserButtons false)
  		(alternativeBrowseIt false)
  		(annotationPanes false)
  		(areaFillsAreTolerant false)
  		(areaFillsAreVeryTolerant false)
  		(automaticFlapLayout true)
  		(automaticKeyGeneration false)
  		(automaticPlatformSettings true)
  		(automaticViewerPlacement true)
  		(balloonHelpEnabled true)
  		(balloonHelpInMessageLists false)
  		(batchPenTrails false)
  		(browseWithDragNDrop false)
  		(browseWithPrettyPrint false)
  		(browserShowsPackagePane false)
  		(canRecordWhilePlaying false)
  		(capitalizedReferences true)
  		(caseSensitiveFinds false)
  		(cautionBeforeClosing false)
  		(changeSetVersionNumbers true)
  		(checkForSlips true)
  		(checkForUnsavedProjects true)
  		(classicNavigatorEnabled false)
  		(clickOnLabelToEdit false)
  		(cmdDotEnabled true)
  		(collapseWindowsInPlace false)
- 		(colorWhenPrettyPrinting false)
  		(compactViewerFlaps false)
  		(compressFlashImages false)
  		(confirmFirstUseOfStyle true)
  		(conversionMethodsAtFileOut false)
  		(cpuWatcherEnabled false)
  		(debugHaloHandle true)
  		(debugPrintSpaceLog false)
  		(debugShowDamage false)
  		(decorateBrowserButtons true)
  		(diffsInChangeList true)
  		(diffsWithPrettyPrint false)
  		(dismissAllOnOptionClose false)
  		(dragNDropWithAnimation false)
  		(eToyFriendly false)
  		(eToyLoginEnabled false)
  		(enableLocalSave true)
  		(extractFlashInHighQuality true)
  		(extractFlashInHighestQuality false)
  		(fastDragWindowForMorphic true)
  		(fenceEnabled true)
  		(fullScreenLeavesDeskMargins true)
  		(haloTransitions false)
  		(hiddenScrollBars false)
  		(higherPerformance false)
  		(honorDesktopCmdKeys true)
  		(ignoreStyleIfOnlyBold true)
  		(includeSoundControlInNavigator false)
  		(infiniteUndo false)
  		(logDebuggerStackToFile true)
  		(magicHalos false)
  		(menuButtonInToolPane false)
  		(menuColorFromWorld false)
  		(menuKeyboardControl false)  
  		(modalColorPickers true)
  		(mouseOverForKeyboardFocus false)
  		(mouseOverHalos false)
  		(mvcProjectsAllowed true)
  		(navigatorOnLeftEdge true)
  		(noviceMode false)
  		(okToReinitializeFlaps true)
  		(optionalButtons true)
  		(passwordsOnPublish false)
  		(personalizedWorldMenu true)
  		(postscriptStoredAsEPS false)
  		(preserveTrash true)
  		(projectViewsInWindows true)
  		(projectZoom true)
  		(projectsSentToDisk false)
  		(promptForUpdateServer true)
  		(propertySheetFromHalo false)
  		(readDocumentAtStartup true)
  		(restartAlsoProceeds false)
  		(reverseWindowStagger true)
  		(roundedMenuCorners true)
  		(roundedWindowCorners true)
  		(scrollBarsNarrow false)
  		(scrollBarsOnRight true)
  		(scrollBarsWithoutMenuButton false)
  		(securityChecksEnabled false)
  		(selectiveHalos false)
  		(showBoundsInHalo false)
  		(showDirectionForSketches false)
  		(showDirectionHandles false)
  		(showFlapsWhenPublishing false)
  		(showProjectNavigator false)
  		(showSecurityStatus true)
  		(showSharedFlaps true)
  		(signProjectFiles true)
  		(simpleMenus false)
  		(slideDismissalsToTrash true)
  		(smartUpdating true)
  		(soundQuickStart false)
  		(soundStopWhenDone false)
  		(soundsEnabled true)
  		(startInUntrustedDirectory false)
  		(systemWindowEmbedOK false)
  		(thoroughSenders true)
  		(tileTranslucentDrag true)
  		(timeStampsInMenuTitles true)
  		(turnOffPowerManager false)
  		(twentyFourHourFileStamps true)
  		(typeCheckingInTileScripting true)
  		(uniTilesClassic true)
  		(uniqueNamesInHalos false)
  		(universalTiles false)
  		(unlimitedPaintArea false)
  		(updateSavesFile false)
  		(useButtonProprtiesToFire false)
  		(useUndo true)
  		(viewersInFlaps true)
  		(warnAboutInsecureContent true)
  		(warnIfNoChangesFile true)
  		(warnIfNoSourcesFile true))
  
  
  "
  Preferences defaultValueTableForCurrentRelease do:
  	[:pair | (Preferences preferenceAt: pair first ifAbsent: [nil]) ifNotNilDo:
  			[:pref | pref defaultValue: (pair last == true)]].
  Preferences chooseInitialSettings.
  "!

Item was changed:
  ----- Method: Preferences class>>smallLandPreferences (in category 'themes - small-land') -----
  smallLandPreferences
  	"Private - change the preferences according to small-land taste"
  
  	self setPreferencesFrom: #(
  		(haloEnclosesFullBounds true)
  		(showBoundsInHalo       true)
  		(cmdGesturesEnabled	false)
  		(easySelection			true)
  		(abbreviatedBrowserButtons       true)
  		(alternativeBrowseIt             true)
  		(alwaysShowVScrollbar            false)
  		(annotationPanes                 true)
  		(balloonHelpInMessageLists       true)
  		(browseWithDragNDrop             true)
  		(browseWithPrettyPrint           true)
  		(classicNewMorphMenu             true)
  		(collapseWindowsInPlace          true)
- 		(colorWhenPrettyPrinting         true)
  		(diffsWithPrettyPrint            true)
  		(dragNDropWithAnimation          true)
  		(duplicateControlAndAltKeys      true)
  		(eToyFriendly                    true)
  		(extraDebuggerButtons            true)
  		(extractFlashInHighestQuality    true)
  		(fastDragWindowForMorphic        false)
  		(includeSoundControlInNavigator  true)
  		(menuKeyboardControl             true)
  		(menuAppearance3d			false)
  		(gradientMenu					false)
  		(mouseOverForKeyboardFocus       true)
  		(optionalButtons                 true)
  		(preserveTrash                   true)
  		(projectViewsInWindows           true)
  		(propertySheetFromHalo           true)
  		(scrollBarsNarrow                true)
  		(scrollBarsOnRight               true)
  		(selectiveHalos                  true)
  		(showDirectionForSketches        true)
  		(showDirectionHandles            true)
  		(slideDismissalsToTrash          true)
  		(translationWithBabel            true)
  		(unlimitedPaintArea              true)
  		(unlimitedPaintArea              true)
  
  		(menuColorFromWorld false)
  		(noviceMode true)
  		(uniqueNamesInHalos true)
  		(infiniteUndo true)
  		(useUndo true)
  		(soundStopWhenDone true)
  	).
  
  	self setParameter: #balloonHelpDelayTime to: 100.
  !

Item was changed:
  ----- Method: SystemDictionary>>testFormatter (in category 'housekeeping') -----
  testFormatter
  	"Smalltalk testFormatter"
  
  	"Reformats the source for every method in the system, and
  	then compiles that source and verifies that it generates
  	identical code. The formatting used will be either classic
  	monochrome or fancy polychrome, depending on the setting
+ 	of the preference #colorWhenPrettyPrinting." 
+ 	
+ 	"Note: removed references to Preferences colorWhenPrettyPrinting and replaced them simply with false, as I've been removing this preference lately. --Ron Spengler 8/23/09"
- 	of the preference #colorWhenPrettyPrinting."
  
  	| newCodeString methodNode oldMethod newMethod badOnes n |
  	badOnes := OrderedCollection new.
  	self forgetDoIts.
  	'Formatting all classes...' 
  		displayProgressAt: Sensor cursorPoint
  		from: 0
  		to: CompiledMethod instanceCount
  		during: 
  			[:bar | 
  			n := 0.
  			self systemNavigation allBehaviorsDo: 
  					[:cls | 
  					"Transcript cr; show: cls name."
  
  					cls selectors do: 
  							[:selector | 
  							(n := n + 1) \\ 100 = 0 ifTrue: [bar value: n].
  							newCodeString := cls prettyPrinterClass 
  										format: (cls sourceCodeAt: selector)
  										in: cls
  										notifying: nil
+ 										decorated: false.
- 										decorated: Preferences colorWhenPrettyPrinting.
  							methodNode := cls compilerClass new 
  										compile: newCodeString
  										in: cls
  										notifying: nil
  										ifFail: [].
  							newMethod := methodNode generate: #(0 0 0 0).
  							oldMethod := cls compiledMethodAt: selector.
  							oldMethod = newMethod 
  								ifFalse: 
  									[Transcript
  										cr;
  										show: '***' , cls name , ' ' , selector.
  									badOnes add: cls name , ' ' , selector]]]].
  	self systemNavigation browseMessageList: badOnes asSortedCollection
  		name: 'Formatter Discrepancies'!

Item was removed:
- ----- Method: Preferences class>>colorWhenPrettyPrinting (in category 'standard queries') -----
- colorWhenPrettyPrinting
- 	^ self
- 		valueOfFlag: #colorWhenPrettyPrinting
- 		ifAbsent: [false]!




More information about the Squeak-dev mailing list