The Trunk: System-nice.639.mcz

Nicolas Cellier uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-nice.639.mcz

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

Name: System-nice.639
Author: nice
Time: 8 December 2013, 2:28:27.307 pm
UUID: 4cb13fd7-f981-42f2-8290-9f53c80bd6a1
Ancestors: System-nice.638

Remove duplicated Preferences related to updateStream sice they moved to UpdateStreamDownloader..

=============== Diff against System-nice.638 ===============

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)
                (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)
                (stopSoundWhenDone false)
                (soundEnabled 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 removed:
- ----- Method: Preferences class>>promptForUpdateServer (in category 'standard queries') -----
- promptForUpdateServer
-       ^ self
-               valueOfFlag: #promptForUpdateServer
-               ifAbsent: [ true ]!

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

#defaultValueTableForCurrentRelease should be on ReleaseBuilder, not
on Preferences though.

While there might be some collateral damage, the pragma based
preferences are _infinitely_ better than the old style ones.

frank

On 8 December 2013 13:40, Nicolas Cellier

<[hidden email]> wrote:
> Note that this is a little drawback of Preferences scattering:
> - it's increasing a little bit the complexity of releasing
> - Per Project Preferences also is harder to implement (it was not upgraded)
>
>
> 2013/12/8 <[hidden email]>
>
>> Nicolas Cellier uploaded a new version of System to project The Trunk:
>> http://source.squeak.org/trunk/System-nice.639.mcz
>>
>> ==================== Summary ====================
>>
>> Name: System-nice.639
>> Author: nice
>> Time: 8 December 2013, 2:28:27.307 pm
>> UUID: 4cb13fd7-f981-42f2-8290-9f53c80bd6a1
>> Ancestors: System-nice.638
>>
>> Remove duplicated Preferences related to updateStream sice they moved to
>> UpdateStreamDownloader..
>>
>> =============== Diff against System-nice.638 ===============
>>
>> 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)
>>                 (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)
>>                 (stopSoundWhenDone false)
>>                 (soundEnabled 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 removed:
>> - ----- Method: Preferences class>>promptForUpdateServer (in category
>> 'standard queries') -----
>> - promptForUpdateServer
>> -       ^ self
>> -               valueOfFlag: #promptForUpdateServer
>> -               ifAbsent: [ true ]!
>>
>> Item was removed:
>> - ----- Method: Preferences class>>updateSavesFile (in category 'standard
>> queries') -----
>> - updateSavesFile
>> -       ^ self
>> -               valueOfFlag: #updateSavesFile
>> -               ifAbsent: [ false ]!
>>
>>
>
>
>
>