Packages November 2021

packages@lists.squeakfoundation.org

1 participants
118 discussions

The Trunk: EToys-mt.450.mcz
by commits＠source.squeak.org 30 Nov '21

30 Nov '21

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.450.mcz ==================== Summary ==================== Name: EToys-mt.450 Author: mt Time: 30 November 2021, 6:05:00.71309 pm UUID: 07898f7c-efb7-8d48-ab46-69846460e859 Ancestors: EToys-ct.449 Complements System-mt.1259 =============== Diff against EToys-ct.449 =============== Item was changed: ----- Method: Preferences class>>cambridge (in category '*Etoys-Squeakland-themes') ----- 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. ! Item was changed: ----- Method: StandardScriptingSystem>>installOLPCFontsAndPreferences (in category '*Etoys-Squeakland-font & color choices') ----- 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. "! Item was changed: ----- Method: SugarLauncher>>active: (in category 'commands') ----- 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]. ].!

1 0

The Trunk: System-mt.1259.mcz
by commits＠source.squeak.org 30 Nov '21

30 Nov '21

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1259.mcz ==================== Summary ==================== Name: System-mt.1259 Author: mt Time: 30 November 2021, 6:03:50.37509 pm UUID: cda6c8b3-69b6-9c4c-88ed-411d84ff9c71 Ancestors: System-ct.1258 Removes unused preferences. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-November/216925… =============== Diff against System-ct.1258 =============== Item was removed: - ----- Method: Preferences class>>abbreviatedBrowserButtons (in category 'standard queries') ----- - abbreviatedBrowserButtons - ^ self - valueOfFlag: #abbreviatedBrowserButtons - ifAbsent: [ false ]! Item was removed: - ----- Method: Preferences class>>alternativeButtonsInScrollBars (in category 'standard queries') ----- - alternativeButtonsInScrollBars - ^ self - valueOfFlag: #alternativeButtonsInScrollBars - ifAbsent: [ false ]! Item was removed: - ----- Method: Preferences class>>compressFlashImages (in category 'standard queries') ----- - compressFlashImages - ^ self - valueOfFlag: #compressFlashImages - ifAbsent: [ false ]! Item was removed: - ----- Method: Preferences class>>defaultFileOutFormatMacRoman (in category 'standard queries') ----- - defaultFileOutFormatMacRoman - ^ self - valueOfFlag: #defaultFileOutFormatMacRoman - ifAbsent: [ false ]! 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) (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. "! Item was removed: - ----- Method: Preferences class>>dragNDropWithAnimation (in category 'standard queries') ----- - dragNDropWithAnimation - ^ self - valueOfFlag: #dragNDropWithAnimation - ifAbsent: [ false ]! Item was removed: - ----- Method: Preferences class>>extractFlashInHighQuality (in category 'standard queries') ----- - extractFlashInHighQuality - ^ self - valueOfFlag: #extractFlashInHighQuality - ifAbsent: [ true ]! Item was removed: - ----- Method: Preferences class>>extractFlashInHighestQuality (in category 'standard queries') ----- - extractFlashInHighestQuality - ^ self - valueOfFlag: #extractFlashInHighestQuality - ifAbsent: [ false ]! Item was removed: - ----- Method: Preferences class>>menuButtonInToolPane (in category 'standard queries') ----- - menuButtonInToolPane - ^ self - valueOfFlag: #menuButtonInToolPane - ifAbsent: [ false ]! Item was removed: - ----- Method: Preferences class>>readOnlyMode (in category 'standard queries') ----- - readOnlyMode - ^ self - valueOfFlag: #readOnlyMode - ifAbsent: [ false ]! Item was changed: + (PackageInfo named: 'System') postscript: ' - (PackageInfo named: 'System') postscript: '"Add the new primitive error codes to the specialObjectsArray if they are not there yet." - Smalltalk primitiveErrorTable size < 26 ifTrue: - [Smalltalk recreateSpecialObjectsArray]. - (Preferences preferenceAt: #debugLogTimestamp) categoryList: #(''debug''). + #(abbreviatedBrowserButtons allowEtoyUserCustomEvents alternativeButtonsInScrollBars automaticPlatformSettings compressFlashImages defaultFileOutFormatMacRoman dragNDropWithAnimation extractFlashInHighestQuality extractFlashInHighQuality menuButtonInToolPane translationWithBabel) + do: [:sel | Preferences removePreference: sel]. + '! - Preferences removePreference: #automaticPlatformSettings.'!

1 0

The Trunk: Monticello-ct.756.mcz
by commits＠source.squeak.org 30 Nov '21

30 Nov '21

Marcel Taeumel uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ct.756.mcz ==================== Summary ==================== Name: Monticello-ct.756 Author: ct Time: 2 November 2021, 2:05:38.669566 pm UUID: 9d6301ac-f912-a742-8779-225931a59ba5 Ancestors: Monticello-ul.753 Honor the preference #checkForNewerVersionsBeforeSave again, which was previously unused. =============== Diff against Monticello-ul.753 =============== Item was changed: ----- Method: MCWorkingCopyBrowser>>saveVersion (in category 'actions') ----- saveVersion | repo | self canSave ifFalse: [^self]. + self class checkForNewerVersionsBeforeSave ==> [self checkForNewerVersions] ifFalse: [^self]. - self checkForNewerVersions ifFalse: [^self]. repo := self repository. (repo == MCRepository trunk and: [SystemVersion current isFeatureFreeze]) ifTrue: [self inform: 'FEATURE FREEZE. A new release is being prepared.\Please do only do bugfixes, but no new features.' translated withCRs]. (repo == MCRepository trunk and: [SystemVersion current isCodeFreeze]) ifTrue: [self inform: 'CODE FREEZE. The new release is almost ready.\Please do only do URGENT fixes, if any.' translated withCRs]. (self withRepository: repo do: [workingCopy newVersion]) ifNotNil: [:v | (MCVersionInspector new version: v) show. Cursor wait showWhile: [repo storeVersion: v]. MCCacheRepository default cacheAllFileNamesDuring: [repo cacheAllFileNamesDuring: [v allAvailableDependenciesDo: [:dep | (repo includesVersionNamed: dep info name) ifFalse: [repo storeVersion: dep]]]]]!

1 0

The Trunk: Monticello-ct.755.mcz
by commits＠source.squeak.org 30 Nov '21

30 Nov '21

Marcel Taeumel uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ct.755.mcz ==================== Summary ==================== Name: Monticello-ct.755 Author: ct Time: 27 October 2021, 7:34:45.607494 pm UUID: beab3269-c89b-7b49-a0d3-987f24acd2b4 Ancestors: Monticello-ul.753 On MCRepositoryGroup, implements further selectors for compatibility with MCRepository (#cacheAllFileNamesDuring: and #isValid). This is required for https://github.com/hpi-swa/Squot/pull/328. (Just asking, would it be possible to backport this to 5.3 and 5.2? This would testing much easier on the Squot side.) =============== Diff against Monticello-ul.753 =============== Item was added: + ----- Method: MCRepositoryGroup>>cacheAllFileNamesDuring: (in category 'private') ----- + cacheAllFileNamesDuring: aBlock + ^ (repositories + inject: aBlock + into: [ :innerBlock :repository | + [ repository cacheAllFileNamesDuring: innerBlock ] + ]) value! Item was added: + ----- Method: MCRepositoryGroup>>isValid (in category 'testing') ----- + isValid + + ^ repositories allSatisfy: #isValid!

1 0

The Trunk: Monticello-ct.754.mcz
by commits＠source.squeak.org 30 Nov '21

30 Nov '21

Marcel Taeumel uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ct.754.mcz ==================== Summary ==================== Name: Monticello-ct.754 Author: ct Time: 27 October 2021, 7:32:31.272494 pm UUID: 03f106f8-ef67-b642-906f-200a39a7ea96 Ancestors: Monticello-ul.753 Fixes a debugger when pressing <cmd>v in a save version dialog while no method is selected. All other hotkeys there are okay, I have checked this. =============== Diff against Monticello-ul.753 =============== Item was changed: ----- Method: MCCodeTool>>browseVersions (in category 'menus') ----- browseVersions "Create and schedule a message set browser on all versions of the currently selected message selector." (ToolSet browseVersionsOf: self selectedClassOrMetaClass + selector: (self selectedMessageName ifNil: [^ self])) ifNil: [self changed: #flash]! - selector: self selectedMessageName) ifNil: [self changed: #flash]!

1 0

The Trunk: Monticello-ct.739.mcz
by commits＠source.squeak.org 30 Nov '21

30 Nov '21

Marcel Taeumel uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ct.739.mcz ==================== Summary ==================== Name: Monticello-ct.739 Author: ct Time: 10 March 2021, 6:55:01.889559 pm UUID: aec2f89c-cf99-ea47-91f4-4cdf2ebd5bb9 Ancestors: Monticello-mt.736 Tweaks 'add to current change set' command to create a changeset from all (non-ignored) items in an operations browser. Also hides the 'browse full' command from the menu if not any item is selected since it does not have any function in this case. =============== Diff against Monticello-mt.736 =============== Item was changed: ----- Method: MCCodeTool>>methodListMenu: (in category 'menus') ----- methodListMenu: aMenu "Build the menu for the selected method, if any." self selectedMessageName ifNil: [items notEmpty ifTrue: [aMenu addList:#( - ('browse full (b)' browseMethodFull) ('fileOut (o)' fileOutMessage))]] ifNotNil: [ aMenu addList:#( ('browse full (b)' browseMethodFull) ('browse hierarchy (h)' browseClassHierarchy) ('browse protocol (p)' browseFullProtocol) - ('fileOut (o)' fileOutMessage) ('printOut' printOutMessage) ('copy selector (c)' copySelector) ('copy reference (C)' copyReference)). aMenu addList: #( - ('browse senders (n)' browseSendersOfMessages) ('browse implementors (m)' browseMessages) ('inheritance (i)' methodHierarchy) ('versions (v)' browseVersions) ('change sets with this method' findMethodInChangeSets) " ('x revert to previous version' revertToPreviousVersion)" ('remove from current change set' removeFromCurrentChanges) " ('x revert & remove from changes' revertAndForget)" ('add to current change set' adoptMessageInCurrentChangeset) " ('x copy up or copy down...' copyUpOrCopyDown)" " ('x remove method (x)' removeMessage)" "-" ). ]. " aMenu addList: #( ('x inst var refs...' browseInstVarRefs) ('x inst var defs...' browseInstVarDefs) ('x class var refs...' browseClassVarRefs) ('x class variables' browseClassVariables) ('x class refs (N)' browseClassRefs) ). " ^ aMenu ! Item was added: + ----- Method: MCOperationsBrowser>>adoptMessageInCurrentChangeset (in category 'menus') ----- + adoptMessageInCurrentChangeset + + selection ifNotNil: [^ super adoptMessageInCurrentChangeset]. + + items do: [:item | + self forItem: item setClassAndSelectorIn: [:class :selector | + ChangeSet current adoptSelector: selector forClass: class]]. + self changed: #annotations.! Item was added: + ----- Method: MCOperationsBrowser>>forItem:setClassAndSelectorIn: (in category 'private') ----- + forItem: item setClassAndSelectorIn: classSelectorBlock + + item definition isMethodDefinition ifFalse: [self halt]. + ^ classSelectorBlock + value: item definition actualClass + value: item definition selector! Item was changed: ----- Method: MCOperationsBrowser>>methodListMenu: (in category 'menus') ----- methodListMenu: aMenu + selection + ifNil: [items ifNotEmpty: [ + aMenu addList: #( + ('add to current change set' adoptMessageInCurrentChangeset))]] + ifNotNil: [aMenu addList: #( - selection ifNotNil: - [aMenu addList: #( ('install' installSelection) ('revert (x)' revertSelection) ('browse origin' browseSelectionOrigin) -)]. self unchangedMethods ifNotEmpty: [aMenu addList: #( ('revert unchanged methods...' revertUnchangedMethods) ('filter out unchanged methods...' filterOutUnchangedMethods) -)]. super methodListMenu: aMenu. ^ aMenu! Item was added: + ----- Method: MCSaveVersionDialog>>adoptMessageInCurrentChangeset (in category 'menus') ----- + adoptMessageInCurrentChangeset + + selection ifNotNil: [^ super adoptMessageInCurrentChangeset]. + + (items copyWithoutAll: ignore) do: [:item | + self forItem: item setClassAndSelectorIn: [:class :selector | + ChangeSet current adoptSelector: selector forClass: class]]. + self changed: #annotations.!

1 0

The Trunk: Monticello-ct.738.mcz
by commits＠source.squeak.org 30 Nov '21

30 Nov '21

Marcel Taeumel uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ct.738.mcz ==================== Summary ==================== Name: Monticello-ct.738 Author: ct Time: 10 March 2021, 6:22:01.061559 pm UUID: 6401b50a-de37-1043-bd96-6821e9ab3434 Ancestors: Monticello-mt.736 Supports author name in and removes redundant spaces from the annotation string of a method definition. Kind of complements Tools-ct.1015, but is loadable stand-alone. =============== Diff against Monticello-mt.736 =============== Item was changed: ----- Method: MCMethodDefinition>>printAnnotations:on: (in category 'annotations') ----- printAnnotations: requests on: aStream "Add a string for an annotation pane, trying to fulfill the annotation requests. These might include anything that Preferences defaultAnnotationRequests might return. Which includes anything in Preferences annotationInfo To edit these, use:" "Preferences editAnnotations" + | annotations | + annotations := requests + collect: [:request | request + caseOf: { + [#timeStamp] -> [self timeStamp]. + [#author] -> [ + | initials | + initials := self timeStamp ifNotNil: [:timeStamp | + timeStamp findTokens ifNotEmpty: [:tokens | tokens first]]. + SystemNavigation authorsInverted + at: initials + ifPresent: [:fullNames | fullNames anyOne] + ifAbsent: ['unknown author' translated]]. + [#messageCategory] -> [self category]. + [#requirements] -> [self requirements joinSeparatedBy: Character space] } + otherwise: []] + thenSelect: [:annotation | annotation isEmptyOrNil not]. + + annotations + do: [:annotation | aStream nextPutAll: annotation] + separatedBy: [aStream space].! - requests do: [ :aRequest | - aRequest == #timeStamp ifTrue: [ aStream nextPutAll: self timeStamp ]. - aRequest == #messageCategory ifTrue: [ aStream nextPutAll: self category ]. - aRequest == #requirements ifTrue: [ - self requirements do: [ :req | - aStream nextPutAll: req ] separatedBy: [ aStream space ]]. - ] separatedBy: [ aStream space ].!

1 0

The Trunk: Monticello-mt.757.mcz
by commits＠source.squeak.org 30 Nov '21

30 Nov '21

Marcel Taeumel uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-mt.757.mcz ==================== Summary ==================== Name: Monticello-mt.757 Author: mt Time: 30 November 2021, 5:16:09.97009 pm UUID: 256d2e17-90f4-8b43-bce0-2592e8c7235c Ancestors: Monticello-ct.738, Monticello-ct.739, Monticello-ct.754, Monticello-ct.755, Monticello-ct.756, Monticello-ul.753 Merge. Merge. Merge. Monticello-ct.738: Supports author name in and removes redundant spaces from the annotation string of a method definition. Monticello-ct.739: Tweaks 'add to current change set' command to create a changeset from all (non-ignored) items in an operations browser. Also hides the 'browse full' command from the menu if not any item is selected since it does not have any function in this case. Monticello-ct.754: Fixes a debugger when pressing <cmd>v in a save version dialog while no method is selected. All other hotkeys there are okay, I have checked this. Monticello-ct.755: On MCRepositoryGroup, implements further selectors for compatibility with MCRepository (#cacheAllFileNamesDuring: and #isValid). This is required for https://github.com/hpi-swa/Squot/pull/328. (Just asking, would it be possible to backport this to 5.3 and 5.2? This would testing much easier on the Squot side.) Monticello-ct.756: Honor the preference #checkForNewerVersionsBeforeSave again, which was previously unused. =============== Diff against Monticello-ul.753 =============== Item was changed: ----- Method: MCCodeTool>>browseVersions (in category 'menus') ----- browseVersions "Create and schedule a message set browser on all versions of the currently selected message selector." (ToolSet browseVersionsOf: self selectedClassOrMetaClass + selector: (self selectedMessageName ifNil: [^ self])) ifNil: [self changed: #flash]! - selector: self selectedMessageName) ifNil: [self changed: #flash]! Item was changed: ----- Method: MCCodeTool>>methodListMenu: (in category 'menus') ----- methodListMenu: aMenu "Build the menu for the selected method, if any." self selectedMessageName ifNil: [items notEmpty ifTrue: [aMenu addList:#( - ('browse full (b)' browseMethodFull) ('fileOut (o)' fileOutMessage))]] ifNotNil: [ aMenu addList:#( ('browse full (b)' browseMethodFull) ('browse hierarchy (h)' browseClassHierarchy) ('browse protocol (p)' browseFullProtocol) - ('fileOut (o)' fileOutMessage) ('printOut' printOutMessage) ('copy selector (c)' copySelector) ('copy reference (C)' copyReference)). aMenu addList: #( - ('browse senders (n)' browseSendersOfMessages) ('browse implementors (m)' browseMessages) ('inheritance (i)' methodHierarchy) ('versions (v)' browseVersions) ('change sets with this method' findMethodInChangeSets) " ('x revert to previous version' revertToPreviousVersion)" ('remove from current change set' removeFromCurrentChanges) " ('x revert & remove from changes' revertAndForget)" ('add to current change set' adoptMessageInCurrentChangeset) " ('x copy up or copy down...' copyUpOrCopyDown)" " ('x remove method (x)' removeMessage)" "-" ). ]. " aMenu addList: #( ('x inst var refs...' browseInstVarRefs) ('x inst var defs...' browseInstVarDefs) ('x class var refs...' browseClassVarRefs) ('x class variables' browseClassVariables) ('x class refs (N)' browseClassRefs) ). " ^ aMenu ! Item was changed: ----- Method: MCMethodDefinition>>printAnnotations:on: (in category 'annotations') ----- printAnnotations: requests on: aStream "Add a string for an annotation pane, trying to fulfill the annotation requests. These might include anything that Preferences defaultAnnotationRequests might return. Which includes anything in Preferences annotationInfo To edit these, use:" "Preferences editAnnotations" + | annotationSeparator annotations | + annotationSeparator := ' · '. "Same as in CodeHolder" + annotations := requests + collect: [:request | request + caseOf: { + [#timeStamp] -> [self timeStamp]. + [#author] -> [ + | initials | + initials := self timeStamp ifNotNil: [:timeStamp | + timeStamp findTokens ifNotEmpty: [:tokens | tokens first]]. + SystemNavigation authorsInverted + at: initials + ifPresent: [:fullNames | fullNames anyOne] + ifAbsent: ['unknown author' translated]]. + [#messageCategory] -> [self category]. + [#requirements] -> [self requirements joinSeparatedBy: Character space] } + otherwise: []] + thenSelect: [:annotation | annotation isEmptyOrNil not]. + + annotations + do: [:annotation | aStream nextPutAll: annotation] + separatedBy: [aStream nextPutAll: annotationSeparator].! - requests do: [ :aRequest | - aRequest == #timeStamp ifTrue: [ aStream nextPutAll: self timeStamp ]. - aRequest == #messageCategory ifTrue: [ aStream nextPutAll: self category ]. - aRequest == #requirements ifTrue: [ - self requirements do: [ :req | - aStream nextPutAll: req ] separatedBy: [ aStream space ]]. - ] separatedBy: [ aStream space ].! Item was added: + ----- Method: MCOperationsBrowser>>adoptMessageInCurrentChangeset (in category 'menus') ----- + adoptMessageInCurrentChangeset + + selection ifNotNil: [^ super adoptMessageInCurrentChangeset]. + + items select: [:each | each definition isMethodDefinition] thenDo: [:item | + self forItem: item setClassAndSelectorIn: [:class :selector | + ((item isAddition or: [item isModification]) and: [class includesSelector: selector]) + ifTrue: [ChangeSet current adoptSelector: selector forClass: class]. + item isRemoval + ifTrue: [ChangeSet current removeSelector: selector class: class priorMethod: nil lastMethodInfo: nil]]]. + self changed: #annotations.! Item was added: + ----- Method: MCOperationsBrowser>>forItem:setClassAndSelectorIn: (in category 'private') ----- + forItem: item setClassAndSelectorIn: classSelectorBlock + + item definition isMethodDefinition ifFalse: [self halt]. + ^ classSelectorBlock + value: item definition actualClass + value: item definition selector! Item was changed: ----- Method: MCOperationsBrowser>>methodListMenu: (in category 'menus') ----- methodListMenu: aMenu + selection + ifNil: [items ifNotEmpty: [ + aMenu addList: #( + ('add all to current change set' adoptMessageInCurrentChangeset))]] + ifNotNil: [aMenu addList: #( - selection ifNotNil: - [aMenu addList: #( ('install' installSelection) ('revert (x)' revertSelection) ('browse origin' browseSelectionOrigin) -)]. self unchangedMethods ifNotEmpty: [aMenu addList: #( ('revert unchanged methods...' revertUnchangedMethods) ('filter out unchanged methods...' filterOutUnchangedMethods) -)]. super methodListMenu: aMenu. ^ aMenu! Item was added: + ----- Method: MCRepositoryGroup>>cacheAllFileNamesDuring: (in category 'private') ----- + cacheAllFileNamesDuring: aBlock + ^ (repositories + inject: aBlock + into: [ :innerBlock :repository | + [ repository cacheAllFileNamesDuring: innerBlock ] + ]) value! Item was added: + ----- Method: MCRepositoryGroup>>isValid (in category 'testing') ----- + isValid + + ^ repositories allSatisfy: #isValid! Item was added: + ----- Method: MCSaveVersionDialog>>adoptMessageInCurrentChangeset (in category 'menus') ----- + adoptMessageInCurrentChangeset + + selection ifNotNil: [^ super adoptMessageInCurrentChangeset]. + + (items copyWithoutAll: ignore) select: [:each | each definition isMethodDefinition] thenDo: [:item | + self forItem: item setClassAndSelectorIn: [:class :selector | + ((item isAddition or: [item isModification]) and: [class includesSelector: selector]) + ifTrue: [ChangeSet current adoptSelector: selector forClass: class]. + item isRemoval + ifTrue: [ChangeSet current removeSelector: selector class: class priorMethod: nil lastMethodInfo: nil]]]. + self changed: #annotations.! Item was changed: ----- Method: MCWorkingCopyBrowser>>saveVersion (in category 'actions') ----- saveVersion | repo | self canSave ifFalse: [^self]. + self class checkForNewerVersionsBeforeSave ==> [self checkForNewerVersions] ifFalse: [^self]. - self checkForNewerVersions ifFalse: [^self]. repo := self repository. (repo == MCRepository trunk and: [SystemVersion current isFeatureFreeze]) ifTrue: [self inform: 'FEATURE FREEZE. A new release is being prepared.\Please do only do bugfixes, but no new features.' translated withCRs]. (repo == MCRepository trunk and: [SystemVersion current isCodeFreeze]) ifTrue: [self inform: 'CODE FREEZE. The new release is almost ready.\Please do only do URGENT fixes, if any.' translated withCRs]. (self withRepository: repo do: [workingCopy newVersion]) ifNotNil: [:v | (MCVersionInspector new version: v) show. Cursor wait showWhile: [repo storeVersion: v]. MCCacheRepository default cacheAllFileNamesDuring: [repo cacheAllFileNamesDuring: [v allAvailableDependenciesDo: [:dep | (repo includesVersionNamed: dep info name) ifFalse: [repo storeVersion: dep]]]]]!

1 0

The Trunk: Collections-ul.964.mcz
by commits＠source.squeak.org 29 Nov '21

29 Nov '21

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.964.mcz ==================== Summary ==================== Name: Collections-ul.964 Author: ul Time: 29 November 2021, 8:04:44.235979 pm UUID: 51dbb755-a7ad-4396-807d-d6b24815c1d4 Ancestors: Collections-mt.963 - fixed OrderedDictionary >> #growTo:: if the argument is smaller than the capacity, #grownBy: cannot work. The change also makes #rehash faster by leaving the order variable intact. - updated the comment of HashedCollection >> #growTo: - renamed newCapacity to newArraySize in HashedCollection >> #compact because #sizeFor: returns the array size and not the capacity of the hashed collection. Also, if the size of array wouldn't change, do not nothing. - removed the private method with no senders Dictionary >> #valueAtNewKey:put:atIndex:declareFrom: =============== Diff against Collections-mt.963 =============== Item was removed: - ----- Method: Dictionary>>valueAtNewKey:put:atIndex:declareFrom: (in category 'private') ----- - valueAtNewKey: aKey put: anObject atIndex: index declareFrom: aDictionary - "Support for coordinating class variable and global declarations - with variables that have been put in Undeclared so as to - redirect all references to the undeclared variable." - - (aDictionary includesKey: aKey) - ifTrue: - [self atNewIndex: index - put: ((aDictionary associationAt: aKey) value: anObject). - aDictionary removeKey: aKey] - ifFalse: - [self atNewIndex: index put: (self associationClass key: aKey value: anObject)]! Item was changed: ----- Method: HashedCollection>>compact (in category 'private') ----- compact "Reduce the size of array so that the load factor will be ~75%." + | newArraySize | + newArraySize := self class sizeFor: self slowSize. + array size = newArraySize ifFalse: [ + self growTo: newArraySize ]! - | newCapacity | - newCapacity := self class sizeFor: self slowSize. - self growTo: newCapacity! Item was changed: ----- Method: HashedCollection>>growTo: (in category 'private') ----- growTo: anInteger + "Grow the elements array and reinsert the old elements. Do it even if the size of the array is the same as the argument because this methods is also used to rehash the collection." - "Grow the elements array and reinsert the old elements" | oldElements | oldElements := array. array := self arrayType new: anInteger. self noCheckNoGrowFillFrom: oldElements! Item was changed: ----- Method: OrderedDictionary>>growTo: (in category 'private') ----- growTo: anInteger + | newCapacity capacityDifference | super growTo: anInteger. + newCapacity := self capacity. + capacityDifference := newCapacity - order size. + capacityDifference = 0 ifTrue: [ ^self ]. + order := capacityDifference > 0 + ifTrue: [ order grownBy: capacityDifference ] + ifFalse: [ order first: newCapacity ]! - order := order grownBy: self capacity - order size!

1 0

The Trunk: ST80Tools-mt.14.mcz
by commits＠source.squeak.org 29 Nov '21

29 Nov '21

Marcel Taeumel uploaded a new version of ST80Tools to project The Trunk: http://source.squeak.org/trunk/ST80Tools-mt.14.mcz ==================== Summary ==================== Name: ST80Tools-mt.14 Author: mt Time: 29 November 2021, 6:39:27.370615 pm UUID: b6439244-d84e-40cf-8bcb-1a7f50be89d7 Ancestors: ST80Tools-mt.13 Complements Tools-mt.1079 =============== Diff against ST80Tools-mt.13 =============== Item was added: + ----- Method: ParagraphEditor>>saveContentsInFile (in category '*ST80Tools') ----- + saveContentsInFile + "Save the receiver's contents string to a file, which usually prompts the user for a file name." + + paragraph text string + ifEmpty: [self inform: 'Nothing to save.'] + ifNotEmpty: [:stringToSave | model saveContents: stringToSave accessMode: #create].!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2021