The Trunk: System-mt.843.mcz

Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.843.mcz

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

Name: System-mt.843
Author: mt
Time: 28 July 2016, 11:17:49.223276 am
UUID: fd2a497a-5f3f-dc4e-8790-4bab7415b3cc
Ancestors: System-mt.842

Removes old-style preference for rounded window corners.

=============== Diff against System-mt.842 ===============

Item was changed:
  ----- Method: Preferences class>>defaultValueTableForCurrentRelease (in category 'defaults') -----
  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)
- (roundedWindowCorners true)
  (scrollBarsNarrow false)
  (scrollBarsOnRight true)
  (gradientScrollBars 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.
  "!

Item was removed:
- ----- Method: Preferences class>>roundedCornersString (in category 'support - misc') -----
- roundedCornersString
- ^ (((self valueOfFlag: #roundedWindowCorners)
- ifTrue: ['stop']
- ifFalse: ['start']) , ' rounding window corners') translated!

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

Item was changed:
  ----- Method: Preferences class>>setNotificationParametersForStandardPreferences (in category 'initialization - misc') -----
  setNotificationParametersForStandardPreferences
  "Set up the notification parameters for the standard preferences that require need them.  When adding new Preferences that require use of the notification mechanism, users declare the notifcation info as part of the call that adds the preference, or afterwards -- the two relevant methods for doing that are:
    Preferences.addPreference:categories:default:balloonHelp:projectLocal:changeInformee:changeSelector:   and
  Preference changeInformee:changeSelector:"
 
  "Preferences setNotificationParametersForStandardPreferences"
 
 
  #(
  (annotationPanes annotationPanesChanged)
  (eToyFriendly eToyFriendlyChanged)
  (infiniteUndo infiniteUndoChanged)
  (uniTilesClassic classicTilesSettingToggled)
  (optionalButtons optionalButtonsChanged)
- (roundedWindowCorners roundedWindowCornersChanged)
  (showProjectNavigator showProjectNavigatorChanged)
  (smartUpdating smartUpdatingChanged)
  (universalTiles universalTilesSettingToggled)
  (showSharedFlaps sharedFlapsSettingChanged)
  (noviceMode noviceModeSettingChanged)
  )  do:
 
  [:pair | | aPreference |
  aPreference := self preferenceAt: pair first.
  aPreference changeInformee: self changeSelector: pair second]!

Item was changed:
+ (PackageInfo named: 'System') postscript: 'Preferences removePreference: #roundedWindowCorners.'!
- (PackageInfo named: 'System') postscript: '" Convert SoundService registeredClasses to classes if necessary "
- [ | currentSoundSystem |
- currentSoundSystem := SoundService defaultOrNil.
- (SoundService registeredClasses copy collect: [:ss |
- SoundService unregister: ss.
- ss isBehavior
- ifTrue: [ss]
- ifFalse: [ss class]]
- ) do: [:ssClass |
- SoundService register: ssClass].
- SoundService default: (currentSoundSystem
- ifNotNil: [:css| css isBehavior ifTrue: [css] ifFalse: [css class]]).
- ] value.
-
- "Convert preferences dictionary from class var to inst var if necessary."
- (Preferences instVarNamed: ''preferencesDictionary'') ifNil:
- [(Preferences classPool at: #DictionaryOfPreferences) ifNotNil:
- [:dictionary|
- Preferences
- instVarNamed: ''preferencesDictionary''
- put: dictionary]].
-
- (Smalltalk classNamed: #ServicePreferences) ifNotNil:
- [:sp|
- (sp instVarNamed: ''preferencesDictionary'') ifNil:
- [(sp classPool at: #ServiceDictionaryOfPreferences) ifNotNil:
- [:dictionary|
- sp
- instVarNamed: ''preferencesDictionary''
- put: dictionary]]]'!