<div dir="ltr"><div>And I just went through these to use the pragma preferences where available.</div><div><br></div><div>Karl</div><div><br></div><div class="gmail_extra"><div class="gmail_quote">On Tue, May 5, 2015 at 5:25 PM, Chris Muller <span dir="ltr"><<a href="mailto:asqueaker@gmail.com" target="_blank">asqueaker@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Annnd, it looks like you are aware of that. :) Please disregard my<br>
last note, I'm reading chronologically.<br>
<div><div><br>
On Tue, May 5, 2015 at 9:21 AM, <<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>> wrote:<br>
> Karl Ramberg uploaded a new version of System to project The Trunk:<br>
> <a href="http://source.squeak.org/trunk/System-kfr.735.mcz" target="_blank">http://source.squeak.org/trunk/System-kfr.735.mcz</a><br>
><br>
> ==================== Summary ====================<br>
><br>
> Name: System-kfr.735<br>
> Author: kfr<br>
> Time: 5 May 2015, 4:21:01.607 pm<br>
> UUID: 6facccb7-8706-c243-a18d-f94b87f4513e<br>
> Ancestors: System-topa.734<br>
><br>
> Changes to use SystemNavigation thoroughSenders: true<br>
><br>
> =============== Diff against System-topa.734 ===============<br>
><br>
> Item was changed:<br>
> ----- Method: Preferences class>>defaultValueTableForCurrentRelease (in category 'misc') -----<br>
> defaultValueTableForCurrentRelease<br>
> "Answer a table defining default values for all the preferences in the release. Returns a list of (pref-symbol, boolean-symbol) pairs"<br>
><br>
> ^ #(<br>
> (abbreviatedBrowserButtons false)<br>
> (alternativeBrowseIt false)<br>
> (annotationPanes false)<br>
> (areaFillsAreTolerant false)<br>
> (areaFillsAreVeryTolerant false)<br>
> (automaticFlapLayout true)<br>
> (automaticKeyGeneration false)<br>
> (automaticPlatformSettings true)<br>
> (automaticViewerPlacement true)<br>
> (balloonHelpEnabled true)<br>
> (balloonHelpInMessageLists false)<br>
> (batchPenTrails false)<br>
> (canRecordWhilePlaying false)<br>
> (capitalizedReferences true)<br>
> (caseSensitiveFinds false)<br>
> (cautionBeforeClosing false)<br>
> (changeSetVersionNumbers true)<br>
> (checkForSlips true)<br>
> (checkForUnsavedProjects true)<br>
> (classicNavigatorEnabled false)<br>
> (clickOnLabelToEdit false)<br>
> (cmdDotEnabled true)<br>
> (collapseWindowsInPlace false)<br>
> (compactViewerFlaps false)<br>
> (compressFlashImages false)<br>
> (confirmFirstUseOfStyle true)<br>
> (conversionMethodsAtFileOut false)<br>
> (debugHaloHandle true)<br>
> (debugPrintSpaceLog false)<br>
> (debugShowDamage false)<br>
> (decorateBrowserButtons true)<br>
> (diffsInChangeList true)<br>
> (diffsWithPrettyPrint false)<br>
> (dismissAllOnOptionClose false)<br>
> (dragNDropWithAnimation false)<br>
> (eToyFriendly false)<br>
> (eToyLoginEnabled false)<br>
> (enableLocalSave true)<br>
> (extractFlashInHighQuality true)<br>
> (extractFlashInHighestQuality false)<br>
> (fastDragWindowForMorphic true)<br>
> (fenceEnabled true)<br>
> (fullScreenLeavesDeskMargins true)<br>
> (haloTransitions false)<br>
> (hiddenScrollBars false)<br>
> (higherPerformance false)<br>
> (honorDesktopCmdKeys true)<br>
> (ignoreStyleIfOnlyBold true)<br>
> (includeSoundControlInNavigator false)<br>
> (infiniteUndo false)<br>
> (logDebuggerStackToFile true)<br>
> (magicHalos false)<br>
> (menuButtonInToolPane false)<br>
> (menuColorFromWorld false)<br>
> (menuKeyboardControl false)<br>
> (modalColorPickers true)<br>
> (mouseOverForKeyboardFocus false)<br>
> (mouseOverHalos false)<br>
> (mvcProjectsAllowed true)<br>
> (navigatorOnLeftEdge true)<br>
> (noviceMode false)<br>
> (okToReinitializeFlaps true)<br>
> (optionalButtons true)<br>
> (passwordsOnPublish false)<br>
> (personalizedWorldMenu true)<br>
> (postscriptStoredAsEPS false)<br>
> (projectViewsInWindows true)<br>
> (projectZoom true)<br>
> (projectsSentToDisk false)<br>
> (propertySheetFromHalo false)<br>
> (readDocumentAtStartup true)<br>
> (restartAlsoProceeds false)<br>
> (reverseWindowStagger true)<br>
> (roundedMenuCorners true)<br>
> (roundedWindowCorners true)<br>
> (scrollBarsNarrow false)<br>
> (scrollBarsOnRight true)<br>
> (scrollBarsWithoutMenuButton false)<br>
> (gradientScrollBars true)<br>
> (securityChecksEnabled false)<br>
> (selectiveHalos false)<br>
> (showBoundsInHalo false)<br>
> (showDirectionForSketches false)<br>
> (showDirectionHandles false)<br>
> (showFlapsWhenPublishing false)<br>
> (showProjectNavigator false)<br>
> (showSecurityStatus true)<br>
> (showSharedFlaps true)<br>
> (signProjectFiles true)<br>
> (simpleMenus false)<br>
> (smartUpdating true)<br>
> (soundQuickStart false)<br>
> (stopSoundWhenDone false)<br>
> (soundEnabled true)<br>
> (startInUntrustedDirectory false)<br>
> (systemWindowEmbedOK false)<br>
> - (thoroughSenders true)<br>
> (tileTranslucentDrag true)<br>
> (timeStampsInMenuTitles true)<br>
> (turnOffPowerManager false)<br>
> (twentyFourHourFileStamps true)<br>
> (typeCheckingInTileScripting true)<br>
> (uniTilesClassic true)<br>
> (uniqueNamesInHalos false)<br>
> (universalTiles false)<br>
> (unlimitedPaintArea false)<br>
> (useButtonProprtiesToFire false)<br>
> (useUndo true)<br>
> (viewersInFlaps true)<br>
> (warnAboutInsecureContent true)<br>
> (warnIfNoChangesFile true)<br>
> (warnIfNoSourcesFile true))<br>
><br>
><br>
> "<br>
> Preferences defaultValueTableForCurrentRelease do:<br>
> [:pair | (Preferences preferenceAt: pair first ifAbsent: [nil]) ifNotNilDo:<br>
> [:pref | pref defaultValue: (pair last == true)]].<br>
> Preferences chooseInitialSettings.<br>
> "!<br>
><br>
> Item was changed:<br>
> ----- Method: Preferences class>>outOfTheBox (in category 'themes') -----<br>
> outOfTheBox<br>
> "The default out-of-the-box preference settings for Squeak 3.2. The 'alternative' window-look and scrollbar-look are used. Button panes are used but not annotation panes. Scrollbars are on the right and do not flop out."<br>
><br>
> + self setPreferencesFrom: self defaultValueTableForCurrentRelease.<br>
> + SystemNavigation thoroughSenders: true!<br>
> - self setPreferencesFrom: self defaultValueTableForCurrentRelease!<br>
><br>
><br>
<br>
</div></div></blockquote></div><br></div></div>