[squeak-dev] Merge Request: deleteUnusedPrefs.1.cs

christoph.thiede at student.hpi.uni-potsdam.de christoph.thiede at student.hpi.uni-potsdam.de
Sat Nov 6 20:10:52 UTC 2021


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

Change Set:        deleteUnusedPrefs
Date:            2 November 2021
Author:            Christoph Thiede

This changeset removes all unusued preferences and their users from the preference registry. I have searched for relevant senders of all (non-pragma and pragma) preferences in the image and found 30 unused non-pragma and pragma preferences. In particular, please consider the postscript.

See also Monticello-ct.756 and ShoutCore-ct.88 which reconnect two previously unused preferences.

=============== Postscript =============== 

#(#abbreviatedBrowserButtons #allowEtoyUserCustomEvents #alternativeButtonsInScrollBars #compressFlashImages #defaultFileOutFormatMacRoman #dragNDropWithAnimation #extractFlashInHighestQuality #extractFlashInHighQuality #menuButtonInToolPane #translationWithBabel) do: [:sel | Preferences removePreference: sel].

=============== Diff =============== 

Preferences class>>abbreviatedBrowserButtons {standard queries} · (removed)
- abbreviatedBrowserButtons
-     ^ self
-         valueOfFlag: #abbreviatedBrowserButtons
-         ifAbsent: [ false ]

Preferences class>>alternativeButtonsInScrollBars {standard queries} · (removed)
- alternativeButtonsInScrollBars
-     ^ self
-         valueOfFlag: #alternativeButtonsInScrollBars
-         ifAbsent: [ false ]

Preferences class>>cambridge {*Etoys-Squeakland-themes} · ct 11/2/2021 14:27 (changed)
cambridge
    "A theme for Squeakland and OLPC project"
    "Preferences cambridge"
    "This method has three parts. Don't forget to look at the stuff at the bottom."

    self setPreferencesFrom: #(
        (allowCelesteTell false)
        (alternativeScrollbarLook true)
        (alternativeWindowLook true)
        (annotationPanes true)
        (automaticKeyGeneration true)
        (biggerHandles true)
        (blinkParen false)
        (browseWithDragNDrop true)
        (canRecordWhilePlaying true)
        (classicNavigatorEnabled false)
        (compactViewerFlaps true)
        (enableLocalSave false)
-         (escapeKeyProducesMenu false)
        (eToyFriendly true)
        (eToyLoginEnabled true)
        (extraDebuggerButtons false)
        (gradientMenu false)
        (haloTransitions false)
        (honorDesktopCmdKeys true)
        (includeSoundControlInNavigator true)
        (magicHalos false)
        (menuAppearance3d false)
        (menuKeyboardControl false)
        (modalColorPickers true)
        (mouseOverHalos false)
        (mvcProjectsAllowed false)
        (preserveTrash true)
        (projectViewsInWindows false)
        (promptForUpdateServer false)
        (propertySheetFromHalo false)
        (roundedMenuCorners false)
        (roundedWindowCorners false)
        (securityChecksEnabled true)
        (standaloneSecurityChecksEnabled true)
        (duplicateControlAndAltKeys true)
        (showDirectionHandles false)
        (showDirectionForSketches true)
        (showProjectNavigator false)
        (showSecurityStatus false)
        (soundQuickStart true)    "see setPlatformPreferences"
        (soundReverb false)
        (soundStopWhenDone true)     "see setPlatformPreferences"
        (startInUntrustedDirectory true)
        (sugarAutoSave false)
        (swapControlAndAltKeys false)    "see setPlatformPreferences"
        (uniqueNamesInHalos true)
        (unlimitedPaintArea false)
        (useArtificialSweetenerBar true)
        (useBiggerPaintingBox true)
        (useFormsInPaintBox false)
        (useLocale true)
        (usePangoRenderer false)
-         (usePlatformFonts false)
        (usePopUpArrows true)
        (warnAboutInsecureContent false)

    "The following is to make sure the default is set properly."

-     (abbreviatedBrowserButtons false)
    (allowEtoyUserCustomEvents false)
    (alphabeticalProjectMenu false)
    (alternativeBrowseIt false)
-     (alternativeButtonsInScrollBars false)
    (alternativeWindowBoxesLook true)
    (alwaysHideHScrollbar false)
    (alwaysShowConnectionVocabulary false)
    (alwaysShowHScrollbar false)
    (alwaysShowVScrollbar true)
-     (ansiAssignmentOperatorWhenPrettyPrinting true)
    (areaFillsAreTolerant false)
    (areaFillsAreVeryTolerant false)
-     (autoAccessors false)
    (automaticFlapLayout true)
    (automaticPlatformSettings true)    "enables setPlatformPreferences"
    (automaticViewerPlacement true)
    (balloonHelpEnabled true)
    (balloonHelpInMessageLists false)
    (batchPenTrails false)
    (biggerCursors true)
-     (browserNagIfNoClassComment true)
-     (browserShowsPackagePane false)
-     (browseWithPrettyPrint false)
    (capitalizedReferences true)
    (caseSensitiveFinds false)
    (cautionBeforeClosing false)
    (celesteHasStatusPane false)
    (celesteShowsAttachmentsFlag false)
    (changeSetVersionNumbers true)
    (checkForSlips true)
    (checkForUnsavedProjects true)
-     (classicNewMorphMenu false)
    (clickOnLabelToEdit false)
    (cmdDotEnabled true)
    (collapseWindowsInPlace false)
    (colorWhenPrettyPrinting false)
-     (compressFlashImages false)
    (confirmFirstUseOfStyle true)
    (conversionMethodsAtFileOut false)
-     (cpuWatcherEnabled false)
    (debugHaloHandle false)
    (debugPrintSpaceLog false)
    (debugShowDamage false)
    (decorateBrowserButtons true)
-     (defaultFileOutFormatMacRoman false)
    (diffsInChangeList true)
    (diffsWithPrettyPrint false)
    (dismissAllOnOptionClose false)
    (dismissEventTheatreUponPublish true)
-     (dragNDropWithAnimation false)
    (dropProducesWatcher true)
    (duplicateControlAndAltKeys false)
    (easySelection false)
-     (enableInternetConfig false)
    (enablePortraitMode false)
    (enableVirtualOLPCDisplay false)
    (expandedPublishing true)
-     (extractFlashInHighestQuality false)
-     (extractFlashInHighQuality true)
    (fastDragWindowForMorphic true)
    (fenceEnabled true)
    (fenceSoundEnabled false)
    (fullScreenLeavesDeskMargins true)
    (gradientScrollBars true)
    (haloEnclosesFullBounds false)
    (higherPerformance false)
    (ignoreStyleIfOnlyBold true)
    (implicitSelfInTiles false)
    (inboardScrollbars true)
    (infiniteUndo false)
    (keepTickingWhilePainting false)
    (logDebuggerStackToFile true)
-     (menuButtonInToolPane false)
    (menuColorFromWorld false)
    (menuWithIcons true)
-     (morphicProgressStyle true)
    (mouseOverForKeyboardFocus false)
    (navigatorOnLeftEdge true)
    (noviceMode false)
    (okToReinitializeFlaps true)
    (oliveHandleForScriptedObjects false)
    (optionalButtons true)
    (passwordsOnPublish false)
    (personalizedWorldMenu true)
    (postscriptStoredAsEPS false)
    (printAlternateSyntax false)
    (projectsSentToDisk false)
    (projectZoom true)
    (readDocumentAtStartup true)
    (restartAlsoProceeds false)
    (reverseWindowStagger true)
    (rotationAndScaleHandlesInPaintBox false)
    (scrollBarsNarrow false)
    (scrollBarsOnRight true)
    (scrollBarsWithoutMenuButton false)
    (selectionsMayShrink true)
    (selectiveHalos true)
    (showAdvancedNavigatorButtons false)
    (showBoundsInHalo false)
    (showDeprecationWarnings false)
    (showFlapsWhenPublishing false)
-     (showLinesInHierarchyViews true)
    (showSharedFlaps true)
    (signProjectFiles true)
    (simpleMenus false)
    (slideDismissalsToTrash true)
    (smartUpdating true)
-     (soundsEnabled true)
    (swapMouseButtons false)
    (systemWindowEmbedOK false)
    (tabAmongFields true)
-     (testRunnerShowAbstractClasses false)
    (tileTranslucentDrag true)
    (timeStampsInMenuTitles true)
-     (translationWithBabel false)
    (turnOffPowerManager false)
    (twentyFourHourFileStamps true)
-     (twoSidedPoohTextures true)
    (typeCheckingInTileScripting true)
-     (unifyNestedProgressBars true)
    (uniTilesClassic true)
    (universalTiles false)
    (updateFromServerAtStartup false)
    (updateSavesFile false)
    (useButtonPropertiesToFire false)
-     (useFileList2 true)
-     (useSmartLabels false)
    (useUndo true)
    (useVectorVocabulary false)
    (viewersInFlaps true)
    (warnIfNoChangesFile false)
    (warnIfNoSourcesFile false)
-     (warningForMacOSFileNameLength false)
    (wordStyleCursorMovement true)

    ).

Preferences setPreference: #haloTheme toValue: #iconicHaloSpecifications.


Preferences class>>compressFlashImages {standard queries} · (removed)
- compressFlashImages
-     ^ self
-         valueOfFlag: #compressFlashImages
-         ifAbsent: [ false ]

Preferences class>>defaultFileOutFormatMacRoman {standard queries} · (removed)
- defaultFileOutFormatMacRoman
-     ^ self
-         valueOfFlag: #defaultFileOutFormatMacRoman
-         ifAbsent: [ false ]

Preferences class>>defaultValueTableForCurrentRelease {defaults} · ct 11/2/2021 13:32 (changed)
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)
        (capitalizedReferences true)
        (caseSensitiveFinds false)
        (cautionBeforeClosing false)
        (changeSetVersionNumbers true)
        (checkForSlips true)
        (checkForUnsavedProjects true)
        (classicNavigatorEnabled false)
        (cmdDotEnabled true)
        (collapseWindowsInPlace false)
        (compactViewerFlaps false)
-         (compressFlashImages false)
        (confirmFirstUseOfStyle true)
        (conversionMethodsAtFileOut 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)
        (higherPerformance false)
        (honorDesktopCmdKeys 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)
        (projectViewsInWindows true)
        (projectZoom true)
        (projectsSentToDisk false)
        (propertySheetFromHalo false)
        (readDocumentAtStartup true)
        (restartAlsoProceeds false)
        (reverseWindowStagger true)
        (roundedMenuCorners true)
        (scrollBarsNarrow false)
        (scrollBarsOnRight true)
        (securityChecksEnabled false)
        (selectiveHalos false)
        (showBoundsInHalo false)
        (showDirectionForSketches false)
        (showDirectionHandles false)
        (showFlapsWhenPublishing false)
        (showProjectNavigator false)
        (showSecurityStatus true)
        (showSharedFlaps true)
        (signProjectFiles true)
        (simpleMenus false)
        (smartUpdating true)
        (startInUntrustedDirectory false)
        (systemWindowEmbedOK false)
        (tileTranslucentDrag true)
        (timeStampsInMenuTitles true)
        (turnOffPowerManager false)
        (twentyFourHourFileStamps true)
        (typeCheckingInTileScripting true)
        (uniTilesClassic true)
        (uniqueNamesInHalos false)
        (universalTiles false)
        (unlimitedPaintArea false)
        (useButtonPropertiesToFire 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.
"

Preferences class>>dragNDropWithAnimation {standard queries} · (removed)
- dragNDropWithAnimation
-     ^ self
-         valueOfFlag: #dragNDropWithAnimation
-         ifAbsent: [ false ]

Preferences class>>extractFlashInHighQuality {standard queries} · (removed)
- extractFlashInHighQuality
-     ^ self
-         valueOfFlag: #extractFlashInHighQuality
-         ifAbsent: [ true ]

Preferences class>>extractFlashInHighestQuality {standard queries} · (removed)
- extractFlashInHighestQuality
-     ^ self
-         valueOfFlag: #extractFlashInHighestQuality
-         ifAbsent: [ false ]

Preferences class>>menuButtonInToolPane {standard queries} · (removed)
- menuButtonInToolPane
-     ^ self
-         valueOfFlag: #menuButtonInToolPane
-         ifAbsent: [ false ]

Preferences class>>readOnlyMode {standard queries} · (removed)
- readOnlyMode
-     ^ self
-         valueOfFlag: #readOnlyMode
-         ifAbsent: [ false ]

StandardScriptingSystem>>installOLPCFontsAndPreferences {*Etoys-Squeakland-font & color choices} · ct 11/2/2021 13:49 (changed)
installOLPCFontsAndPreferences
    "Assures that some of the standard olpc font and scrolling choices are installed. This is for private use by developers who may have changed some font and scrolling preferences, for the benefit of development work."

    Preferences restoreDefaultFonts.

    Preferences enable: #inboardScrollbars.
    Preferences enable: #scrollBarsOnRight.

    Preferences enable: #mouseOverHalos.
    Preferences enable: #biggerHandles.
-     Preferences disable: #escapeKeyProducesMenu.

    Preferences setParameter: #fontForBlueFileListTitle to: ((StrikeFont familyName: 'Accujen' size: 30) emphasized: 1).
    Preferences setParameter: #fontForBlueFileListButtons to: ((StrikeFont familyName: 'Accujen' size: 22) emphasized: 1).

    false ifTrue: [ScriptingSystem installOLPCFontsAndPreferences] "to have a sender"

"
ScriptingSystem installOLPCFontsAndPreferences.
"

SugarLauncher>>active: {commands} · ct 11/2/2021 13:58 (changed)
active: aBoolean
    "Etoys activity received or lost focus"

-     Preferences setPreference: #soundsEnabled toValue: aBoolean.
    aBoolean
        ifTrue: [
            UISema ifNotNil: [:s | s signal].
        ] 
        ifFalse: [
            SoundPlayer shutDown.
            SoundRecorder anyActive ifTrue: [SoundRecorder allSubInstancesDo: [:r | r stopRecording]].
            Smalltalk at: #VideoDevice ifPresent: [:vd | vd shutDown: true].

            UISema ifNil: [UISema := Semaphore new].
            UISema initSignals.
            WorldState addDeferredUIMessage: [UISema wait].
        ].


---
Sent from Squeak Inbox Talk
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20211106/155e3ce9/attachment-0001.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: deleteUnusedPrefs.1.cs
Type: application/octet-stream
Size: 11418 bytes
Desc: not available
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20211106/155e3ce9/attachment-0001.obj>


More information about the Squeak-dev mailing list