From dcbb7a1ce57692f7376c9ab01ab3c71a30e9d6e8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Marius=20D=C3=B6rbandt?= Date: Sun, 6 Oct 2024 16:50:26 +0200 Subject: [PATCH] Remove unused old Squot code --- .squot | 11 - .squot-metadata | 56 +++++ src/BaselineOfSquot.package/.squot-contents | 7 - src/FileSystem-Git.package/.squot-contents | 7 - src/Squit.package/.filetree | 4 - src/Squit.package/.squot-contents | 7 - .../instance/asStringWithoutTimestamp.st | 4 - .../GitStamp.extension/methodProperties.json | 5 - .../GitStamp.extension/properties.json | 2 - .../squitBrowserSupplementObjectMenu..st | 3 - .../Object.extension/methodProperties.json | 5 - .../Object.extension/properties.json | 2 - .../squitBrowserSupplementObjectMenu..st | 7 - .../methodProperties.json | 5 - .../PackageInfo.extension/properties.json | 2 - .../SquitAddRemote.class/README.md | 1 - .../SquitAddRemote.class/instance/accept.st | 3 - .../instance/acceptAndClose.st | 5 - .../instance/accepted..st | 4 - .../SquitAddRemote.class/instance/accepted.st | 4 - .../instance/afterCloseContinueIn.with..st | 5 - .../instance/buildButtons..st | 14 -- .../instance/buildInputFields..st | 20 -- .../instance/buildInputPanel..st | 7 - .../instance/buildWith..st | 21 -- .../SquitAddRemote.class/instance/cancel.st | 3 - .../instance/cancelAndClose.st | 4 - .../instance/cancelColor.st | 4 - .../instance/hasBeenAccepted.st | 3 - .../SquitAddRemote.class/instance/inform..st | 4 - .../instance/informAboutInvalidValues.st | 6 - .../instance/initialize.st | 4 - .../instance/initializeRemoteUrl.st | 7 - .../SquitAddRemote.class/instance/okColor.st | 4 - .../SquitAddRemote.class/instance/onClose.st | 4 - .../SquitAddRemote.class/instance/open.st | 9 - .../instance/remoteName..st | 6 - .../instance/remoteName.st | 4 - .../instance/remoteUrl..st | 5 - .../instance/remoteUrl.st | 4 - .../SquitAddRemote.class/instance/validate.st | 5 - .../instance/validateRemoteName.st | 5 - .../instance/validateUrl.st | 8 - .../methodProperties.json | 31 --- .../SquitAddRemote.class/properties.json | 17 -- .../SquitAddRemoteTest.class/README.md | 0 .../instance/testValidateUrlAcceptsHttp.st | 6 - .../instance/testValidateUrlAcceptsHttps.st | 6 - .../instance/testValidateUrlRejectsSsh.st | 6 - .../testValidateUrlRejectsSshWithoutScheme.st | 6 - .../methodProperties.json | 8 - .../SquitAddRemoteTest.class/properties.json | 14 -- .../SquitArtifactWrapper.class/README.md | 4 - .../SquitArtifactWrapper.class/class/on..st | 3 - .../instance/^less.equals.st | 3 - .../instance/artifact..st | 3 - .../instance/artifact.st | 3 - .../instance/printOn..st | 3 - .../methodProperties.json | 8 - .../properties.json | 14 -- .../SquitBadRemote.class/README.md | 1 - .../SquitBadRemote.class/class/remote..st | 5 - .../SquitBadRemote.class/instance/cause..st | 4 - .../SquitBadRemote.class/instance/cause.st | 4 - .../SquitBadRemote.class/instance/remote..st | 4 - .../SquitBadRemote.class/instance/remote.st | 4 - .../methodProperties.json | 8 - .../SquitBadRemote.class/properties.json | 15 -- .../SquitBrowser.class/README.md | 18 -- .../SquitBrowser.class/class/defaultTitle.st | 3 - .../SquitBrowser.class/class/initialize.st | 5 - .../class/initializeSelfUpdate.st | 4 - .../SquitBrowser.class/class/open.st | 3 - .../class/registerInWorldMenu.st | 8 - .../SquitBrowser.class/class/selfUpdate.st | 14 -- .../class/selfUpdateBranch..st | 3 - .../class/selfUpdateBranch.st | 4 - .../class/selfUpdateFromMetacello.st | 10 - .../class/selfUpdateRepository.st | 3 - .../class/selfUpdateWithSquot..st | 19 -- .../SquitBrowser.class/class/unload.st | 4 - .../class/unregisterFromWorldMenu.st | 5 - .../instance/aboutToStyle..st | 3 - .../actionAddOrRemoveTrackedPackages.st | 4 - .../instance/actionBranch.st | 19 -- .../instance/actionBranchAdd.st | 7 - .../instance/actionBranchCreateAndSwitch.st | 13 -- .../actionBranchDiffWithWorkingCopy.st | 8 - .../instance/actionBranchMerge.st | 9 - .../instance/actionBranchPush.st | 4 - .../instance/actionBranchRemove.st | 15 -- .../instance/actionBranchRemoveUpstream.st | 7 - .../instance/actionBranchRename.st | 21 -- .../actionBranchResetLoadedToCommit.st | 9 - .../instance/actionBranchResetToCommit.st | 12 - .../instance/actionBranchResetToTip.st | 8 - .../instance/actionBranchSetCurrent.st | 8 - .../instance/actionBranchSwitch.st | 6 - .../instance/actionBranchSwitchMoveOver.st | 6 - .../instance/actionBranchUnsetUpstream.st | 5 - .../instance/actionBrowseWorkingCopy.st | 5 - .../instance/actionClearSearch.st | 3 - .../instance/actionCommit.st | 12 - .../instance/actionCommitCherryPick.st | 7 - .../actionCommitDiffWithNextSelected.st | 3 - .../instance/actionCommitDiffWithParent.st | 21 -- .../actionCommitDiffWithWorkingCopy.st | 8 - .../instance/actionCommitMergeIntoMemory.st | 4 - .../instance/actionCommitRevert.st | 7 - .../instance/actionCommitSelectionCheckout.st | 4 - .../instance/actionCommitSwitchNewBranch.st | 9 - .../instance/actionCommitTag.st | 16 -- .../instance/actionCredentialsEdit.st | 25 -- .../instance/actionFeedback.st | 8 - .../instance/actionFetch.st | 6 - .../instance/actionGitUserEdit.st | 12 - .../instance/actionManageRemotes.st | 9 - .../instance/actionMerge.st | 11 - .../instance/actionObjectBrowse.st | 4 - .../actionObjectBrowseInWorkingCopy.st | 6 - .../instance/actionObjectCheckout.st | 6 - .../instance/actionObjectExplore.st | 3 - .../instance/actionObjectMerge.st | 7 - .../instance/actionObjectUntrack.st | 8 - .../actionPackageInfoObjectEditPostscript.st | 5 - ...ackageInfoObjectEditPostscriptOfRemoval.st | 5 - .../actionPackageInfoObjectEditPreamble.st | 5 - ...nPackageInfoObjectEditPreambleOfRemoval.st | 5 - .../instance/actionProjectAdd.st | 4 - .../instance/actionProjectClone.st | 3 - .../instance/actionProjectRemove.st | 9 - .../instance/actionProjectRename.st | 10 - .../SquitBrowser.class/instance/actionPull.st | 9 - .../SquitBrowser.class/instance/actionPush.st | 3 - .../instance/actionPushToRemote..st | 7 - .../instance/actionRemoteAdd.st | 9 - .../instance/actionSelfUpdate.st | 3 - .../instance/actionSelfUpdateSetBranch.st | 10 - .../instance/actionSetUpstreamBranch.st | 7 - .../instance/actionSettings.st | 22 -- .../instance/actionSquotWorkingCopyExplore.st | 3 - .../instance/activeBranchChanged.st | 8 - .../instance/addModelItemsToWindowMenu..st | 11 - .../instance/addProjectIfCanceled..st | 15 -- .../instance/branchButtonHelpText.st | 6 - .../SquitBrowser.class/instance/branchList.st | 6 - .../instance/branchListIconAt..st | 8 - .../branchListIfRepositoryDoesNotExist.st | 3 - .../instance/branchListMenu.shifted..st | 3 - .../instance/branchSelection..st | 6 - .../instance/branchSelection.st | 4 - .../instance/branchSelectionChanged.st | 6 - .../SquitBrowser.class/instance/browseTags.st | 4 - .../instance/buildBranchList..st | 13 -- .../instance/buildButtonBar..st | 80 ------- .../instance/buildCommitList..st | 24 -- .../instance/buildCommitSearchPanel..st | 11 - .../instance/buildMenu.from..st | 11 - .../instance/buildObjectList..st | 12 - .../instance/buildProjectBranchPanel..st | 11 - .../instance/buildProjectList..st | 12 - .../instance/buildSearchBar..st | 14 -- .../instance/buildSearchClearButton..st | 13 -- .../instance/buildSearchPanel..st | 10 - .../instance/buildSummary..st | 8 - .../SquitBrowser.class/instance/buildWith..st | 11 - .../instance/buttonBarHeight.st | 3 - .../instance/cherryPick.toWorkingCopy..st | 12 - .../instance/chooseOneRemoteFrom..st | 12 - .../instance/chooseRemotesFrom..st | 15 -- .../instance/chooseableRemoteNamesFrom..st | 5 - .../SquitBrowser.class/instance/clone.st | 12 - .../SquitBrowser.class/instance/commitList.st | 11 - .../instance/commitListKey.from..st | 6 - .../instance/commitListMenu..st | 3 - .../instance/commitSelection..st | 9 - .../instance/commitSelection.st | 5 - .../instance/commitSelectionChanged.st | 6 - .../instance/compareVersions.with..st | 6 - .../SquitBrowser.class/instance/confirm..st | 4 - .../SquitBrowser.class/instance/contents.st | 4 - ...nueAsyncBuildingCommitList.historyWalk..st | 9 - .../instance/createNewBranchAt.ifCanceled..st | 3 - ...eateNewBranchAt.initialName.ifCanceled..st | 19 -- .../instance/defaultCommitText.st | 7 - .../instance/detectGitHubRemote.ifNone..st | 12 - .../instance/detectGitHubUsernameIfNone..st | 8 - .../instance/dragFromBranchList..st | 6 - .../instance/dragFromCommitList..st | 4 - .../instance/dragFromObjectList..st | 4 - .../instance/dragFromProjectList..st | 4 - .../dropOnBranchList.at.copyIndicated..st | 6 - .../dropOnCommitList.on.copyIndicated..st | 6 - .../dropOnObjectList.at.copyIndicated..st | 4 - .../dropOnProjectList.at.copyIndicated..st | 5 - .../instance/editGlobalAuthorInfo.st | 3 - .../errorRemoteAuthenticationFailed..st | 15 -- .../instance/errorRemoteResourceNotFound..st | 15 -- .../instance/errorRemoteUndefined..st | 3 - .../SquitBrowser.class/instance/fetch..st | 9 - .../instance/fetchFrom.remoteNames..st | 9 - .../getShouldRevertCherryPickedChanges.st | 5 - .../instance/hasBranchSelection.st | 3 - .../instance/hasCommitSelection.st | 3 - .../instance/hasObjectSelection.st | 3 - .../instance/hasProjectSelection.st | 5 - .../instance/hasProjects.st | 3 - .../instance/hasSearchTerm.st | 3 - .../historiansDecorationAtVersion..st | 3 - .../SquitBrowser.class/instance/inform..st | 4 - .../instance/informThatProjectDoesNotExist.st | 4 - .../SquitBrowser.class/instance/initialize.st | 4 - .../instance/labelString.st | 17 -- .../instance/loadBranchList.st | 23 -- .../instance/loadCommitList.st | 18 -- .../instance/loadedSelectedObject.st | 3 - .../instance/menuBranchListHook..st | 39 ---- .../instance/menuCommitListHook..st | 29 --- .../instance/menuObjectListGeneral..st | 15 -- .../menuObjectListVersionObjectEdition..st | 18 -- .../menuObjectListWorkingCopyObject..st | 26 --- .../instance/menuProjectListHook..st | 18 -- .../menuProjectListWorkingCopyHook..st | 37 --- .../instance/mergeBranch.into..st | 9 - .../instance/mergeCommit.into..st | 7 - ...rgeTitle.saveTitle.saveMessageTemplate..st | 24 -- .../instance/modelWakeUp.st | 5 - .../newHistorianFor.named.onError..st | 6 - .../instance/objectCache.st | 3 - .../instance/objectCacheRefresh.st | 10 - .../instance/objectCacheRefreshAsync.st | 12 - .../instance/objectIndex..st | 5 - .../instance/objectIndex.st | 3 - .../SquitBrowser.class/instance/objectList.st | 3 - .../instance/objectListMenu..st | 3 - .../instance/objectSelection.st | 4 - .../instance/offerPackageFormatMenu.st | 5 - .../instance/offerToAddFirstProject.st | 5 - .../instance/packageFormatMenuSpec.st | 21 -- .../instance/projectIndex..st | 12 - .../instance/projectIndex.st | 3 - .../instance/projectList.st | 3 - .../instance/projectListMenu..st | 3 - .../instance/projectSelection..st | 3 - .../instance/projectSelection.st | 4 - .../instance/projectsWithRepository.do..st | 4 - .../instance/pullUpstream..st | 14 -- .../instance/push.toRemoteNamed..st | 22 -- .../SquitBrowser.class/instance/pushBranch.st | 19 -- .../instance/rebuildCommitList.st | 18 -- .../SquitBrowser.class/instance/refresh.st | 25 -- .../instance/remotesMenuWithItems..st | 8 - .../instance/remotesPushSubMenu.st | 10 - .../instance/removeTrackedRemoteBranch..st | 9 - .../requestAndSetUpstreamBranchOf..st | 15 -- ...oreCredentialsFor.remoteUrl.ifCanceled..st | 9 - .../instance/revert.inWorkingCopy..st | 12 - .../instance/searchClearButtonWidth.st | 3 - .../instance/searchPanelHeight.st | 3 - .../instance/searchTerm..st | 6 - .../SquitBrowser.class/instance/searchTerm.st | 3 - .../instance/selectActiveHistorian.st | 5 - .../instance/selectedHistorian..st | 4 - .../instance/setPackageSerializer..st | 7 - .../instance/setUpstreamBranchOf..st | 12 - .../instance/shiftedMenuBranchListHook..st | 20 -- .../instance/showBadRemote..st | 4 - .../instance/showMenuForVersion.onBranch..st | 13 -- .../instance/showMenuForVersion.onVersion..st | 25 -- .../showMenuForVersion.onWorkingCopy..st | 13 -- .../soleParentOf.orChooseWithPrompt..st | 12 - .../instance/sortVersionsTopologically..st | 19 -- .../SquitBrowser.class/instance/stepAt.in..st | 4 - .../instance/summaryForCommit..st | 17 -- .../instance/timeOfLastListUpdate.st | 3 - .../instance/toggleMetadata.st | 10 - .../instance/updateHistorianDecorationsMap.st | 5 - .../wantsBranchListDrop.type.from..st | 4 - .../wantsCommitListDrop.type.from..st | 4 - .../wantsObjectListDrop.type.from..st | 4 - .../wantsProjectListDrop.type.from..st | 4 - .../SquitBrowser.class/instance/wantsSteps.st | 3 - .../instance/withUnitOfWork..st | 8 - .../SquitBrowser.class/methodProperties.json | 217 ------------------ .../SquitBrowser.class/properties.json | 31 --- .../SquitBrowserTest.class/README.md | 0 .../SquitBrowserTest.class/class/resources.st | 3 - .../addAndSelectTemporarySquitWorkingCopy.st | 8 - .../instance/newRepository.st | 3 - .../SquitBrowserTest.class/instance/setUp.st | 3 - .../instance/testDetectGitHubUsername.st | 11 - .../methodProperties.json | 8 - .../SquitBrowserTest.class/properties.json | 14 -- .../README.md | 3 - .../class/openOn.label..st | 7 - .../excludeGitRepositoryDirectory.from..st | 7 - .../instance/hasMoreDirectories..st | 5 - .../instance/rootDirectoryList.st | 4 - .../instance/subDirectoriesOf..st | 9 - .../instance/workingCopyDirectory..st | 3 - .../instance/workingCopyDirectory.st | 3 - .../methodProperties.json | 10 - .../properties.json | 14 -- .../SquitFallbackUnitOfWork.class/README.md | 1 - .../class/wrapping.for..st | 6 - .../instance/activateDuring..st | 3 - .../instance/gitRepository..st | 3 - .../instance/gitRepository.st | 3 - .../methodProperties.json | 7 - .../properties.json | 14 -- .../SquitFeedback.class/README.md | 6 - .../SquitFeedback.class/class/defaultTitle.st | 3 - .../SquitFeedback.class/class/open.st | 3 - .../class/openWithAuthor..st | 6 - .../instance/actionAuthor..st | 4 - .../instance/actionAuthor.st | 3 - .../instance/actionCancel.st | 3 - .../instance/actionMessage..st | 4 - .../instance/actionMessage.st | 3 - .../instance/actionSubmit.st | 13 -- .../instance/actionTitle..st | 4 - .../instance/actionTitle.st | 3 - .../instance/buildButtons..st | 12 - .../instance/buildInputFields..st | 35 --- .../instance/buildWith..st | 12 - .../SquitFeedback.class/instance/close.st | 3 - .../instance/inputFieldHeight.st | 3 - .../instance/labelString.st | 3 - .../SquitFeedback.class/methodProperties.json | 20 -- .../SquitFeedback.class/properties.json | 16 -- .../SquitHistorian.class/README.md | 6 - .../class/existingNamed.repository.git..st | 6 - .../class/newNamed.repository.git..st | 6 - .../SquitHistorian.class/instance/^equals.st | 5 - .../instance/asSquotVersionIn..st | 3 - .../instance/createNewVersion.with..st | 18 -- .../createNewVersionFromPatch.with..st | 14 -- .../errorUpstreamBranchNotConfigured.st | 3 - .../instance/expandedName.st | 4 - .../instance/exportToUpstream.st | 14 -- .../SquitHistorian.class/instance/git.st | 4 - .../instance/gitRepository..st | 3 - .../instance/gitRepository.st | 3 - .../instance/hasUpstreamHistorian.st | 4 - .../SquitHistorian.class/instance/hash.st | 3 - .../instance/importFromUpstream.st | 6 - .../instance/isRemoteTrackingHistorian.st | 3 - .../instance/messageWhenMergingInto..st | 5 - .../SquitHistorian.class/instance/name..st | 4 - .../SquitHistorian.class/instance/name.st | 3 - .../SquitHistorian.class/instance/printOn..st | 6 - .../instance/remoteName.st | 4 - .../instance/remoteRef.st | 11 - .../instance/repository..st | 3 - .../instance/repository.st | 3 - .../instance/setName.repository.git..st | 5 - ...mToBranchTrackedByRemoteTrackingBranch..st | 5 - .../instance/shortName.st | 13 -- .../instance/untrackUpstream.st | 3 - .../instance/upstreamHistorianName.st | 3 - .../instance/upstreamMergeMessage.st | 4 - .../instance/upstreamRemote.st | 4 - .../instance/upstreamRemoteName.st | 3 - .../instance/upstreamTrackingHistorian.st | 10 - .../instance/upstreamVersion.st | 3 - .../SquitHistorian.class/instance/version..st | 10 - .../SquitHistorian.class/instance/version.st | 4 - .../methodProperties.json | 39 ---- .../SquitHistorian.class/properties.json | 18 -- .../SquitHistorianTest.class/README.md | 0 .../instance/performTest.st | 3 - .../testHistorianSetUpstreamBranch.st | 7 - ...reamBranchWithBogusRemoteTrackingBranch.st | 9 - .../instance/testMergeMessage.st | 6 - .../methodProperties.json | 8 - .../SquitHistorianTest.class/properties.json | 14 -- .../SquitHistorianWrapper.class/README.md | 4 - .../SquitHistorianWrapper.class/class/on..st | 3 - .../instance/historian..st | 3 - .../instance/historian.st | 3 - .../instance/printOn..st | 3 - .../methodProperties.json | 7 - .../properties.json | 14 -- .../SquitHistoryWalk.class/README.md | 1 - .../instance/shouldVisit.before..st | 12 - .../methodProperties.json | 5 - .../SquitHistoryWalk.class/properties.json | 14 -- .../SquitHistoryWalkTest.class/README.md | 0 ...Version.parents.authoredAt.committedAt..st | 13 -- .../instance/performTest.st | 3 - .../instance/setUp.st | 3 - ...usionOfAncestorsThroughCorrectWalkOrder.st | 19 -- .../instance/testOrderOfRebasedCommits.st | 18 -- .../methodProperties.json | 9 - .../properties.json | 16 -- .../README.md | 1 - .../class/historian..st | 5 - .../instance/remoteTrackingHistorian..st | 3 - .../instance/remoteTrackingHistorian.st | 3 - .../methodProperties.json | 6 - .../properties.json | 14 -- .../SquitInteractiveAddRemote.class/README.md | 1 - .../class/repository..st | 5 - .../instance/fetch.st | 11 - .../instance/initializeQuery.st | 4 - .../instance/notifyRemoteAdded.st | 5 - .../instance/notifyRollback.st | 5 - .../instance/onQueryClose..st | 11 - .../instance/onRemoteAddedDo..st | 4 - .../instance/onRollbackDo..st | 4 - .../instance/proposedRemoteName.st | 13 -- .../instance/query.st | 3 - .../instance/requestFetchFromRemoteNamed..st | 3 - .../instance/requestRemoteDetails.st | 4 - .../instance/retry.st | 3 - .../instance/run.st | 8 - .../instance/undo.st | 6 - .../methodProperties.json | 18 -- .../properties.json | 16 -- .../README.md | 0 .../instance/repository.st | 3 - .../instance/setUp.st | 4 - .../testProposesGitHubRepositoryOwner.st | 18 -- .../instance/testProposesOrigin.st | 6 - .../methodProperties.json | 8 - .../properties.json | 17 -- .../SquitInteractiveClone.class/README.md | 1 - .../instance/checkDirectory.ifNotEmpty..st | 3 - .../instance/clone.st | 7 - .../instance/createRepository.st | 13 -- .../instance/fetchAndSetUp.st | 12 - .../instance/registerWorkingCopy.st | 11 - .../instance/requestUrl.st | 11 - .../instance/setLoadedHistorianFromHead.st | 12 - .../methodProperties.json | 11 - .../properties.json | 15 -- .../README.md | 1 - .../class/repository.remote..st | 7 - .../instance/remote..st | 6 - .../instance/run.st | 7 - .../instance/setRepository.remote..st | 4 - .../instance/undo.st | 4 - .../methodProperties.json | 8 - .../properties.json | 14 -- .../SquitInteractiveFetch.class/README.md | 1 - .../class/repository.remoteNames..st | 6 - .../instance/fetch.st | 13 -- .../instance/remoteNames..st | 3 - .../instance/remoteNames.st | 3 - .../instance/run.st | 8 - .../methodProperties.json | 8 - .../properties.json | 14 -- .../SquitInteractiveOperation.class/README.md | 1 - .../instance/cancel.st | 3 - .../instance/confirm..st | 4 - .../instance/finish.st | 3 - .../instance/inform..st | 4 - .../instance/initialize.st | 3 - .../instance/newUnitOfWork.st | 3 - .../instance/repository..st | 4 - .../instance/repository.st | 3 - .../instance/run.st | 3 - .../instance/unitOfWork..st | 3 - .../instance/unitOfWork.st | 3 - .../instance/withActiveUnitOfWork..st | 4 - .../instance/workingCopy..st | 4 - .../instance/workingCopy.st | 3 - .../methodProperties.json | 18 -- .../properties.json | 18 -- .../README.md | 1 - .../class/workingCopy..st | 5 - .../instance/fetchFromUpstream.st | 7 - .../instance/merge.st | 14 -- .../instance/pull.st | 10 - .../instance/save.st | 12 - .../methodProperties.json | 8 - .../properties.json | 14 -- .../SquitInteractivePush.class/README.md | 1 - .../class/historian..st | 3 - .../historian.remote.remoteBranchName..st | 7 - .../instance/export.st | 3 - .../setHistorian.remote.remoteBranchName..st | 5 - .../methodProperties.json | 7 - .../properties.json | 15 -- .../README.md | 1 - .../class/historian..st | 5 - .../instance/export.st | 3 - .../instance/localHistorian..st | 4 - .../instance/push.st | 13 -- .../methodProperties.json | 7 - .../properties.json | 14 -- .../README.md | 1 - .../instance/errorPushFailed..st | 14 -- .../errorRemoteAuthenticationFailed..st | 25 -- .../instance/errorRemoteResourceNotFound..st | 15 -- .../instance/errorRemoteUndefined..st | 7 - .../handleRemoteErrorsWhile.afterErrorDo..st | 11 - .../handlingCredentialsOf.do.ifCanceled..st | 22 -- .../instance/isRemoteSupported..st | 3 - ...oreCredentialsFor.remoteUrl.ifCanceled..st | 9 - .../methodProperties.json | 12 - .../properties.json | 14 -- .../README.md | 1 - .../class/historian..st | 5 - .../instance/historian..st | 3 - .../instance/historian.st | 3 - .../instance/isUpstreamRemoteSupported..st | 5 - .../instance/removeRemoteBranch.st | 15 -- .../methodProperties.json | 8 - .../properties.json | 14 -- .../SquitNoRemotes.class/README.md | 1 - .../instance/defaultResumeValue.st | 3 - .../instance/repository..st | 4 - .../instance/repository.st | 4 - .../methodProperties.json | 7 - .../SquitNoRemotes.class/properties.json | 14 -- .../SquitPackageChooser.class/README.md | 1 - .../class/chooseFor..st | 4 - .../instance/accept.st | 5 - .../instance/acceptColor.st | 4 - .../instance/buildButtons..st | 20 -- .../instance/buildTrackedList..st | 16 -- .../instance/buildUntrackedList..st | 16 -- .../instance/buildWith..st | 27 --- .../instance/buttonWidth.st | 4 - .../instance/cancel.st | 5 - .../instance/cancelColor.st | 4 - .../instance/categoriesPlusPrefixes.st | 7 - .../instance/chooseFor..st | 26 --- .../chooseSubdirectory.ifCanceled..st | 10 - .../instance/confirm..st | 4 - .../instance/hasTrackedSelections.st | 4 - .../instance/hasUntrackedSelections.st | 4 - .../instance/inform..st | 4 - .../instance/initialExtent.st | 6 - .../instance/packagesIn..st | 5 - .../instance/requestPathInWorkingCopy..st | 21 -- .../instance/selectAllTrackedPackages.st | 5 - .../instance/selectAllUntrackedPackages.st | 5 - .../instance/selectInverseTrackedPackages.st | 9 - .../selectInverseUntrackedPackages.st | 9 - .../instance/selectNoTrackedPackages.st | 5 - .../instance/selectNoUntrackedPackages.st | 5 - .../instance/selectedTrackedPackages.st | 4 - .../instance/selectedUntrackedPackages.st | 4 - .../instance/selectionTracked..st | 7 - .../instance/selectionTracked.st | 4 - .../instance/selectionUntracked..st | 7 - .../instance/selectionUntracked.st | 4 - .../instance/selectionsTrackedAt..st | 6 - .../instance/selectionsTrackedAt.put..st | 13 -- .../instance/selectionsUntrackedAt..st | 5 - .../instance/selectionsUntrackedAt.put..st | 13 -- .../instance/track..st | 33 --- .../instance/trackSelected.st | 20 -- .../instance/trackedPackages.st | 4 - .../instance/trackedPackagesMenu..st | 8 - .../instance/trackedPackagesWithTitle.st | 4 - .../instance/untrack..st | 20 -- .../instance/untrackSelected.st | 8 - .../instance/untrackedPackages.st | 4 - .../instance/untrackedPackagesMenu..st | 8 - .../instance/untrackedPackagesWithTitle.st | 4 - .../instance/updateUntrackedPackages.st | 6 - .../methodProperties.json | 50 ---- .../SquitPackageChooser.class/properties.json | 20 -- .../README.md | 0 .../instance/performTest.st | 3 - .../instance/testMergeMessage.st | 6 - .../testRemoteTrackingHistorianRemoteName.st | 5 - .../testRemoteTrackingHistorianRemoteRef.st | 5 - ...storianRemoteRefWithNonDefaultFetchSpec.st | 5 - ...stRemoteTrackingHistorianThatDoNotExist.st | 8 - ...estRemoteTrackingHistorianWithoutRemote.st | 10 - .../methodProperties.json | 11 - .../properties.json | 14 -- .../SquitRemotesBrowser.class/README.md | 1 - .../instance/addRemote.st | 17 -- .../instance/buildWith..st | 40 ---- .../instance/buttonHeight.st | 3 - .../instance/changed.st | 4 - .../instance/editSelectedRemote.st | 20 -- .../instance/gitRepository.st | 3 - .../instance/isAnyRemoteSelected.st | 3 - .../instance/labelString.st | 3 - .../instance/remotesLabels.st | 3 - .../instance/removeSelectedRemote.st | 7 - .../instance/selectedRemoteName..st | 6 - .../instance/selectedRemoteName.st | 3 - .../instance/withUnitOfWork..st | 8 - .../instance/workingCopy..st | 4 - .../instance/workingCopy.st | 4 - .../methodProperties.json | 19 -- .../SquitRemotesBrowser.class/properties.json | 15 -- .../SquitRepository.class/README.md | 4 - .../SquitRepository.class/class/cleanUp..st | 4 - .../SquitRepository.class/class/on..st | 5 - .../class/onDirectory..st | 5 - .../SquitRepository.class/instance/^equals.st | 4 - .../addCredentialsFor.user.password..st | 3 - .../instance/addUserSettingsOf.to..st | 14 -- .../instance/cachedSnapshotOf.ifAbsentPut..st | 20 -- .../instance/cloneFrom..st | 3 - .../convertToCurrentVersion.refStream..st | 4 - .../instance/copySettingsFrom.to..st | 3 - .../instance/createNewVersion.with..st | 9 - .../createNewVersionFromPatch.with..st | 6 - .../instance/credentialsFor..st | 3 - .../instance/defaultAuthor.st | 9 - .../instance/defaultHistorian.st | 4 - .../SquitRepository.class/instance/delete..st | 4 - .../SquitRepository.class/instance/exists.st | 3 - .../instance/expandShortRefName..st | 10 - .../export.withName.toRemoteNamed..st | 8 - .../instance/extension.ifPresent.ifAbsent..st | 6 - .../instance/filesystemExtension.st | 5 - .../instance/finalizeWeakCaches.st | 3 - .../instance/findVersionByString..st | 4 - .../instance/flushCaches.st | 6 - .../instance/fsgitRepository.st | 4 - .../SquitRepository.class/instance/git.st | 4 - .../instance/gitRepository.st | 4 - .../instance/hasRemotes.st | 3 - .../SquitRepository.class/instance/hash.st | 3 - .../instance/headHistorian.st | 3 - .../instance/historianForTemporaryVersions.st | 3 - .../historianForTemporaryVersionsOn..st | 3 - .../instance/historianNamed..st | 9 - .../instance/historians.st | 8 - .../instance/historyWalkClass.st | 3 - .../instance/importFromAll..st | 5 - .../instance/importFromUpstream..st | 5 - .../instance/initialize.st | 6 - .../instance/initializeGitRepositoryIn..st | 4 - .../instance/initializeInDirectory..st | 4 - .../initializeStoreInfo.forObject..st | 3 - .../instance/initializeWith..st | 4 - .../instance/isAvailable.st | 3 - .../instance/location.st | 3 - .../instance/newHistorian.version..st | 10 - .../instance/newVersionForCommit..st | 6 - .../instance/orphanedWorkingDirectory.st | 3 - .../instance/remoteHistorians.st | 10 - .../instance/remoteNames.st | 3 - .../instance/removeAllCredentials.st | 3 - .../instance/removeCredentialsFor..st | 3 - .../instance/removeRemoteRef.from..st | 6 - .../SquitRepository.class/instance/tags.st | 7 - .../instance/unitOfWork.st | 7 - .../instance/versionAt..st | 3 - .../instance/versionForCommit..st | 7 - .../instance/withCredentialsDo..st | 8 - .../instance/withUnitOfWork..st | 4 - .../instance/workingTreeForCommitNamed..st | 3 - .../methodProperties.json | 62 ----- .../SquitRepository.class/properties.json | 21 -- .../README.md | 4 - .../instance/forVersion..st | 3 - .../instance/repository..st | 4 - .../instance/repository.st | 4 - .../methodProperties.json | 7 - .../properties.json | 14 -- .../SquitRepositoryTest.class/README.md | 0 .../instance/testCreateCommit.st | 29 --- .../instance/testDefaultAuthor.st | 23 -- .../instance/testGetMasterSnapshot.st | 8 - .../testGetReferenceWithInvalidName.st | 14 -- .../instance/testInstantiation.st | 5 - .../instance/testIsAvailable.st | 5 - .../instance/testPathValidation.st | 20 -- .../methodProperties.json | 11 - .../SquitRepositoryTest.class/properties.json | 14 -- .../README.md | 0 .../class/resources.st | 3 - .../testCherryPickPreservesAuthorAndTime.st | 23 -- .../testMigrationIntroduceArtifactIds.st | 26 --- .../methodProperties.json | 6 - .../properties.json | 16 -- .../SquitSettings.class/README.md | 5 - .../SquitSettings.class/class/defaultTitle.st | 3 - .../class/enableDragAndDrop..st | 3 - .../class/enableDragAndDrop.st | 7 - .../SquitSettings.class/class/open.st | 3 - .../instance/actionCancel.st | 3 - .../instance/actionSaveAndClose.st | 5 - .../instance/actionUserEmail..st | 4 - .../instance/actionUserEmail.st | 3 - .../instance/actionUserName..st | 4 - .../instance/actionUserName.st | 3 - .../instance/buildButtons..st | 12 - .../instance/buildInputFields..st | 16 -- .../instance/buildInputPanel..st | 7 - .../instance/buildWith..st | 10 - .../SquitSettings.class/instance/close.st | 3 - .../instance/labelString.st | 3 - .../SquitSettings.class/methodProperties.json | 19 -- .../SquitSettings.class/properties.json | 15 -- .../SquitSubFolderList.class/README.md | 1 - .../instance/initialDirectoryList.st | 3 - .../methodProperties.json | 5 - .../SquitSubFolderList.class/properties.json | 14 -- .../SquitTagsBrowser.class/README.md | 0 .../class/repository..st | 5 - .../instance/buildWith..st | 41 ---- .../instance/deleteSelectedTag.st | 5 - .../instance/errorNoProjectFound.st | 3 - .../instance/errorNoTagSelected.st | 3 - .../instance/findProjectWith..st | 3 - .../instance/initialize.st | 4 - .../instance/labelString.st | 3 - .../instance/pushSelectedTag.st | 14 -- .../instance/selectedTagHistorian.st | 3 - .../instance/selectedTagName..st | 4 - .../instance/selectedTagName.st | 3 - .../instance/setRepository..st | 4 - .../instance/showLogSelectedTag.st | 12 - .../instance/tagLabels.st | 6 - .../instance/update..st | 5 - .../methodProperties.json | 19 -- .../SquitTagsBrowser.class/properties.json | 16 -- src/Squit.package/SquitTest.class/README.md | 0 .../SquitTest.class/class/resources.st | 3 - .../instance/createReadmeCommit.st | 11 - .../createRemoteTrackingBranchForMaster.st | 6 - ...teTrackingBranchForMasterWithFetchSpec..st | 6 - .../SquitTest.class/instance/master.st | 4 - .../instance/repositoryForTests.st | 7 - .../instance/repositoryPathForTests.st | 3 - .../SquitTest.class/instance/setUp.st | 6 - .../SquitTest.class/instance/tearDown.st | 3 - .../trackingBranchForRemote.branch.hash..st | 6 - .../SquitTest.class/methodProperties.json | 13 -- .../SquitTest.class/properties.json | 19 -- .../SquitTestWorkingCopy.class/README.md | 0 .../instance/create.st | 6 - .../instance/instance.st | 3 - .../instance/tearDown.st | 3 - .../methodProperties.json | 7 - .../properties.json | 14 -- .../SquitToggles.class/README.md | 1 - .../instance/remoteRepository.st | 5 - .../SquitToggles.class/methodProperties.json | 5 - .../SquitToggles.class/properties.json | 14 -- .../SquitUnitOfWork.class/README.md | 1 - .../SquitUnitOfWork.class/class/initialize.st | 4 - .../class/initializeRegistry.st | 4 - .../class/wrapping.for..st | 13 -- .../instance/activateDuring..st | 3 - .../SquitUnitOfWork.class/instance/finish.st | 6 - .../instance/gitUnitOfWork..st | 4 - .../instance/gitUnitOfWork.st | 4 - .../methodProperties.json | 10 - .../SquitUnitOfWork.class/properties.json | 14 -- .../SquitUnitOfWorkTest.class/README.md | 0 ...nstructorReturnsSameInstanceWhileActive.st | 7 - .../instance/testUnitOfWorkHeldWeakly.st | 8 - .../methodProperties.json | 6 - .../SquitUnitOfWorkTest.class/properties.json | 14 -- .../SquitUpstreamUndefined.class/README.md | 1 - .../class/historian..st | 5 - .../instance/historian..st | 3 - .../instance/historian.st | 3 - .../methodProperties.json | 6 - .../properties.json | 14 -- .../SquitVersion.class/README.md | 5 - .../SquitVersion.class/instance/^equals.st | 5 - .../SquitVersion.class/instance/artifacts.st | 3 - .../SquitVersion.class/instance/author.st | 3 - .../instance/captureLazySnapshot.st | 5 - .../SquitVersion.class/instance/commit..st | 3 - .../SquitVersion.class/instance/commit.st | 3 - .../SquitVersion.class/instance/hash.st | 3 - .../SquitVersion.class/instance/hexHash.st | 3 - .../SquitVersion.class/instance/internalId.st | 3 - .../instance/lazySnapshot.st | 6 - .../SquitVersion.class/instance/message.st | 3 - .../SquitVersion.class/instance/metadata.st | 18 -- .../SquitVersion.class/instance/parents.st | 3 - .../instance/patchRelativeToBase..st | 6 - .../instance/patchRelativeToBaseVersion..st | 24 -- .../SquitVersion.class/instance/printOn..st | 9 - .../instance/repository..st | 3 - .../SquitVersion.class/instance/repository.st | 3 - .../SquitVersion.class/instance/shortId.st | 3 - .../SquitVersion.class/instance/snapshot.st | 3 - .../SquitVersion.class/instance/timestamp.st | 3 - .../SquitVersion.class/methodProperties.json | 25 -- .../SquitVersion.class/properties.json | 17 -- .../SquitVersionBuilder.class/README.md | 14 -- .../class/repository..st | 5 - .../instance/author..st | 5 - .../instance/author.st | 4 - .../instance/authoringTimeStamp..st | 4 - .../instance/buildVersion.st | 21 -- .../instance/committer..st | 8 - .../instance/committer.st | 4 - .../instance/committingTimeStamp..st | 4 - .../instance/doNotStoreMetadata.st | 4 - .../instance/initialize.st | 3 - .../instance/initializeAuthorAndCommitter.st | 4 - .../instance/initializeClean.st | 7 - .../instance/message..st | 4 - .../instance/message.st | 4 - .../instance/parents..st | 4 - .../instance/parents.st | 4 - .../instance/patch..st | 3 - .../instance/patch.st | 3 - .../instance/repository..st | 4 - .../instance/repository.st | 4 - .../instance/setRepository..st | 4 - .../instance/snapshot..st | 4 - .../instance/snapshot.st | 4 - .../instance/timestamp..st | 4 - .../instance/timestamp.st | 4 - .../methodProperties.json | 28 --- .../SquitVersionBuilder.class/properties.json | 24 -- .../SquitVersionWrapper.class/README.md | 4 - .../SquitVersionWrapper.class/class/on..st | 3 - .../instance/balloonText.st | 8 - .../instance/formatDate..st | 11 - .../instance/makeTwoDigitString..st | 3 - .../instance/setItem..st | 12 - .../instance/summary.st | 3 - .../instance/version..st | 3 - .../instance/version.st | 3 - .../methodProperties.json | 11 - .../SquitVersionWrapper.class/properties.json | 14 -- .../README.md | 0 .../class/resources.st | 3 - .../instance/newRepository.st | 3 - .../methodProperties.json | 5 - .../properties.json | 14 -- .../class/addUserSettingsOfAll.in.to..st | 4 - .../methodProperties.json | 5 - .../SquotSerializer.extension/properties.json | 2 - .../instance/addUserSettingsTo..st | 3 - .../methodProperties.json | 5 - .../properties.json | 2 - .../monticello.meta/categories.st | 6 - .../monticello.meta/initializers.st | 0 .../monticello.meta/postscript.st | 12 - src/Squit.package/properties.json | 2 - .../README.md | 0 .../class/isAbstract.st | 4 - .../instance/newMcRepository..st | 6 - .../instance/setUp.st | 6 - .../instance/tearDown.st | 9 - .../methodProperties.json | 7 - .../properties.json | 16 -- .../instance/on.doAndResume..st | 7 - .../methodProperties.json | 5 - .../BlockClosure.extension/properties.json | 2 - .../Boolean.extension/class/squotMirror.st | 3 - .../instance/canHaveNameAssignedBySquot.st | 5 - .../instance/captureWithSquot..st | 4 - .../instance/captureWithSquot.st | 3 - .../instance/sameIn.withName.ifAbsent..st | 4 - .../instance/squotDiffAgainst.with..st | 5 - .../instance/squotOutgoingReferences.st | 4 - .../instance/squotShadowFactory.st | 4 - .../instance/squotShouldKeepIdentity.st | 4 - .../Boolean.extension/methodProperties.json | 12 - .../Boolean.extension/properties.json | 2 - .../class/squotMirror.st | 3 - .../methodProperties.json | 5 - .../BoxedFloat64.extension/properties.json | 2 - .../instance/ifError.ifNotError..st | 7 - .../instance/ifNotError..st | 20 -- .../instance/reason.st | 6 - .../methodProperties.json | 7 - .../BrokenPromise.extension/properties.json | 2 - .../instance/shouldHaveNameAssignedBySquot.st | 4 - .../instance/squotShouldKeepIdentity.st | 4 - .../Class.extension/methodProperties.json | 6 - .../Class.extension/properties.json | 2 - .../instance/captureWithSquot..st | 5 - .../instance/captureWithSquot.st | 8 - .../instance/package.st | 6 - .../instance/squotAddTransientStoreInfoTo..st | 4 - .../squotRemoveTransientStoreInfoFrom..st | 4 - .../methodProperties.json | 9 - .../properties.json | 2 - .../CoAuthorList.class/README.md | 0 .../CoAuthorList.class/class/default.st | 6 - .../CoAuthorList.class/class/reset.st | 4 - .../CoAuthorList.class/instance/add..st | 4 - .../instance/addName.email..st | 4 - .../instance/addSpecialEditItem.st | 4 - .../CoAuthorList.class/instance/initialize.st | 5 - .../CoAuthorList.class/instance/list.st | 4 - .../CoAuthorList.class/instance/select.st | 12 - .../CoAuthorList.class/methodProperties.json | 11 - .../CoAuthorList.class/properties.json | 15 -- .../README.md | 1 - .../class/instance.st | 3 - .../instance/asStringWithoutTimestamp.st | 3 - .../methodProperties.json | 5 - .../properties.json | 14 -- .../class/squotMirror.st | 3 - .../instance/captureWithSquot..st | 8 - .../instance/squotCaptureSlotsIn.with..st | 11 - .../instance/squotShadowFactory.st | 4 - .../methodProperties.json | 7 - .../CompiledCode.extension/properties.json | 2 - .../Dictionary.extension/class/squotMirror.st | 3 - .../instance/asSquotTrackedObjectMetadata.st | 3 - .../instance/squotShadowFactory.st | 4 - .../methodProperties.json | 6 - .../Dictionary.extension/properties.json | 2 - .../initializeSquotDiffNodes.with..st | 7 - .../instance/newSquotDiffNodes.st | 3 - .../instance/squotHasChanges.st | 3 - .../DiffPatch.extension/methodProperties.json | 7 - .../DiffPatch.extension/properties.json | 2 - .../DiskProxy.extension/class/squotMirror.st | 3 - .../instance/squotShouldKeepIdentity.st | 4 - .../DiskProxy.extension/methodProperties.json | 5 - .../DiskProxy.extension/properties.json | 2 - .../FakeMCVersion.class/README.md | 0 .../FakeMCVersion.class/instance/info..st | 4 - .../FakeMCVersion.class/instance/info.st | 4 - .../FakeMCVersion.class/methodProperties.json | 6 - .../FakeMCVersion.class/properties.json | 14 -- src/Squot.package/FakeMethod.class/README.md | 0 .../FakeMethod.class/instance/className..st | 4 - .../FakeMethod.class/instance/getSource.st | 3 - .../FakeMethod.class/instance/methodClass.st | 3 - .../instance/methodClassName..st | 3 - .../FakeMethod.class/instance/selector..st | 4 - .../FakeMethod.class/instance/selector.st | 4 - .../FakeMethod.class/instance/source..st | 4 - .../FakeMethod.class/instance/source.st | 4 - .../FakeMethod.class/methodProperties.json | 12 - .../FakeMethod.class/properties.json | 16 -- .../class/squotDiffClass.st | 3 - .../instance/addReferenceDiff..st | 3 - .../instance/applyToShadowNamed.inGraph..st | 6 - .../instance/initializeFrom.to..st | 3 - .../initializeSquotDiffNodes.with..st | 3 - .../instance/isAddition.st | 3 - .../instance/isModification.st | 3 - .../instance/isRemoval.st | 3 - .../instance/newSquotDiffNodes.st | 3 - ...eDiffsWithDefaultOwners.reflectedIn.do..st | 5 - .../instance/rightName.st | 4 - .../instance/squotApplyTo..st | 3 - .../instance/squotApplyTo.with..st | 3 - .../instance/squotApplyToLoaded..st | 10 - .../instance/squotApplyToLoaded.with..st | 8 - .../instance/squotChangeAsStringOrText.st | 3 - .../instance/squotHasChanges.st | 3 - ...ectedIn.asMaterializedFrom.reflectedIn..st | 4 - .../methodProperties.json | 21 -- .../GenericDiff.extension/properties.json | 2 - .../class/squotMirror.st | 3 - .../class/squotRelevantInstVars.st | 5 - .../instance/squotShadowFactory.st | 4 - .../methodProperties.json | 6 - .../properties.json | 2 - .../LookupKey.extension/class/squotMirror.st | 3 - .../LookupKey.extension/methodProperties.json | 5 - .../LookupKey.extension/properties.json | 2 - .../actualClassInSquotWorkingCopy..st | 3 - .../instance/browse.st | 6 - .../browseFromSquotWorkingCopyArtifact..st | 5 - .../instance/squotAddToChangeSet..st | 3 - .../instance/squotBelongsToClass.st | 3 - .../instance/squotGroup.st | 4 - .../instance/squotIsInChangeSet..st | 3 - .../instance/squotRemoveFromChangeSet..st | 8 - .../instance/squotShouldGroupByClass.st | 4 - .../methodProperties.json | 9 - .../instance/actualClass.st | 3 - .../instance/actualClassIn..st | 3 - .../actualClassInSquotWorkingCopy..st | 4 - .../instance/browse.st | 6 - .../browseFromSquotWorkingCopyArtifact..st | 7 - .../instance/squotAddToChangeSet..st | 3 - .../instance/squotBelongsToClass.st | 3 - .../instance/squotGroup.st | 4 - .../instance/squotIsInChangeSet..st | 3 - .../instance/squotName.st | 3 - .../instance/squotRemoveFromChangeSet..st | 8 - .../instance/squotShouldGroupByClass.st | 4 - .../methodProperties.json | 12 - .../actualClassInSquotWorkingCopy..st | 3 - .../browseFromSquotWorkingCopyArtifact..st | 4 - .../MCConflict.extension/instance/incoming.st | 3 - .../instance/squotChangeAsStringOrText.st | 3 - .../instance/squotToolsDiffNodeContent.st | 4 - .../methodProperties.json | 9 - .../MCConflict.extension/properties.json | 2 - .../actualClassInSquotWorkingCopy..st | 3 - .../MCDefinition.extension/instance/browse.st | 9 - .../browseFromSquotWorkingCopyArtifact..st | 4 - .../instance/squotAddToChangeSet..st | 3 - .../instance/squotBelongsToClass.st | 3 - .../instance/squotDiffNodeSummary.st | 3 - .../instance/squotGroup.st | 6 - .../instance/squotIsInChangeSet..st | 3 - .../instance/squotRemoveFromChangeSet..st | 3 - .../methodProperties.json | 9 - .../actualClassInSquotWorkingCopy..st | 3 - .../instance/browse.st | 13 -- .../browseFromSquotWorkingCopyArtifact..st | 5 - .../instance/squotAddToChangeSet..st | 3 - .../instance/squotBelongsToClass.st | 3 - .../instance/squotDiffNodeSummary.st | 3 - .../instance/squotGroup.st | 4 - .../instance/squotIsInChangeSet..st | 3 - .../instance/squotRemoveFromChangeSet..st | 3 - .../instance/squotShouldGroupByClass.st | 4 - .../methodProperties.json | 10 - .../instance/squotChangeAsStringOrText.st | 7 - .../methodProperties.json | 5 - .../MCModification.extension/properties.json | 2 - .../instance/browse.st | 4 - .../browseFromSquotWorkingCopyArtifact..st | 6 - .../instance/squotAddToChangeSet..st | 3 - .../instance/squotIsInChangeSet..st | 3 - .../instance/squotRemoveFromChangeSet..st | 3 - .../methodProperties.json | 5 - .../instance/squotAddOperation..st | 3 - .../instance/squotHasChanges.st | 3 - .../instance/squotRemoveOperation..st | 3 - .../MCPatch.extension/methodProperties.json | 5 +- .../actualClassInSquotWorkingCopy..st | 3 - .../browseFromSquotWorkingCopyArtifact..st | 3 - .../instance/ignoreInSquot.st | 3 - .../instance/isCurrentlyIgnoredInSquot.st | 3 - .../instance/left.st | 3 - .../instance/right.st | 3 - .../squotAddDiffNodeMenuItems.for..st | 7 - .../instance/squotChangeAsStringOrText.st | 3 - .../instance/squotDiffNodeSummary.st | 3 - .../instance/squotToolsDiffNodeContent.st | 4 - .../instance/unignoreInSquot.st | 3 - .../methodProperties.json | 15 -- .../properties.json | 2 - .../instance/squotAddToChangeSet..st | 5 - .../instance/squotIsInChangeSet..st | 7 - .../instance/squotRemoveFromChangeSet..st | 10 - .../methodProperties.json | 7 - .../properties.json | 2 - .../instance/squotAddToChangeSet..st | 5 - .../instance/squotIsInChangeSet..st | 7 - .../instance/squotRemoveFromChangeSet..st | 10 - .../methodProperties.json | 7 - .../properties.json | 2 - .../instance/squotAddToChangeSet..st | 5 - .../instance/squotIsInChangeSet..st | 7 - .../instance/squotRemoveFromChangeSet..st | 10 - .../methodProperties.json | 7 - .../properties.json | 2 - .../instance/squotAddToChangeSet..st | 5 - .../instance/squotIsInChangeSet..st | 7 - .../instance/squotRemoveFromChangeSet..st | 10 - .../methodProperties.json | 7 - .../properties.json | 2 - .../browseFromSquotWorkingCopyArtifact..st | 9 - .../instance/squotGroup.st | 3 - .../methodProperties.json | 2 - .../instance/asSquotArtifactForPackage..st | 11 - .../asSquotArtifactForPackage.path..st | 17 -- .../instance/squotShadowMarker.st | 2 - .../instance/squotWithSortedDefinitions.st | 3 - .../instance/squotWrite.with..st | 3 - .../methodProperties.json | 9 - .../MCSnapshot.extension/properties.json | 2 - .../instance/squotMirror.st | 3 - .../Metaclass.extension/methodProperties.json | 5 - .../Metaclass.extension/properties.json | 2 - .../instance/squotInitializeStoreInfo..st | 5 - .../Morph.extension/methodProperties.json | 5 - .../Morph.extension/properties.json | 2 - .../instance/squotShouldKeepIdentity.st | 3 - .../Number.extension/methodProperties.json | 5 - .../Number.extension/properties.json | 2 - .../class/squotAllSerializers.st | 11 - .../class/squotRelevantInstVars.st | 9 - .../class/squotSmartRefStreamSerializer.st | 4 - .../class/squotSpecializedSerializers.st | 12 - .../class/squotStonSerializer.st | 4 - .../browseFromSquotWorkingCopyArtifact..st | 3 - .../instance/canHaveNameAssignedBySquot.st | 5 - .../instance/captureWithSquot..st | 11 - .../instance/captureWithSquot.st | 6 - .../instance/hasSquotShadowName.st | 3 - .../instance/shouldHaveNameAssignedBySquot.st | 4 - .../instance/squotAddTransientStoreInfoTo..st | 7 - .../instance/squotCaptureSlotsIn.with..st | 14 -- .../instance/squotDecoratedLike..st | 3 - .../instance/squotInitializeStoreInfo..st | 6 - .../instance/squotReactivateWith..st | 4 - .../instance/squotRelevantInstVars.st | 5 - .../squotRemoveTransientStoreInfoFrom..st | 7 - .../instance/squotReplacementFor..st | 5 - .../instance/squotShadowFactory.st | 6 - .../instance/squotShouldKeepIdentity.st | 4 - .../instance/squotWrite.with..st | 3 - .../Object.extension/instance/undecorated.st | 4 - .../Object.extension/methodProperties.json | 26 --- .../Object.extension/properties.json | 2 - .../class/squotCypressSerializer.st | 4 - .../class/squotEnvironmentInMetadata..st | 4 - .../class/squotEnvironmentOf..st | 4 - .../class/squotMirror.st | 3 - .../class/squotSetEnvironment.inMetadata..st | 4 - .../class/squotSetEnvironmentOf.to..st | 4 - .../instance/captureWithSquot..st | 4 - .../instance/captureWithSquot.st | 15 -- .../instance/shouldHaveNameAssignedBySquot.st | 4 - .../instance/squotAddTransientStoreInfoTo..st | 11 - .../squotRemoveTransientStoreInfoFrom..st | 4 - .../instance/squotShadowFactory.st | 4 - .../instance/squotShouldKeepIdentity.st | 4 - .../methodProperties.json | 16 -- .../PackageInfo.extension/properties.json | 2 - .../instance/squotShouldKeepIdentity.st | 4 - .../Point.extension/methodProperties.json | 5 - .../Point.extension/properties.json | 2 - .../class/squotMirror.st | 5 - .../methodProperties.json | 5 - .../ProtoObject.extension/properties.json | 2 - .../class/squotPut.onStream..st | 7 - .../STON.extension/methodProperties.json | 5 - .../STON.extension/properties.json | 2 - .../SUnitChangeLogSuppressor.class/README.md | 1 - .../suppressChangeNotificationsDuring..st | 3 - .../methodProperties.json | 5 - .../properties.json | 14 -- .../README.md | 0 .../instance/setUp.st | 3 - .../instance/testAnswersSuppressBlockValue.st | 3 - .../methodProperties.json | 6 - .../properties.json | 14 -- .../README.md | 1 - .../instance/addMerge..st | 4 - .../instance/addModification..st | 5 - .../instance/at..st | 3 - .../instance/conflictAt..st | 3 - .../instance/conflictAt.ifAbsent..st | 3 - .../instance/conflicts.st | 8 - .../instance/containerConflicts.st | 4 - .../instance/containerModifications.st | 4 - .../instance/elementMerges.st | 3 - .../instance/hasChanges.st | 5 - .../instance/hasChangesAt..st | 5 - .../instance/hasConflicts.st | 4 - .../instance/includesModificationAt..st | 5 - .../instance/initialize.st | 5 - .../instance/keyOf..st | 3 - .../instance/keyOf.ifAbsent..st | 3 - .../instance/mergeAt..st | 3 - .../instance/modificationAt.ifAbsent..st | 3 - .../instance/modifies..st | 5 - .../instance/printOn..st | 10 - .../methodProperties.json | 24 -- .../properties.json | 16 -- .../SquotAbstractMerge.class/README.md | 1 - .../class/into.merge.basedOn..st | 9 - .../instance/base..st | 4 - .../SquotAbstractMerge.class/instance/base.st | 4 - .../browseFromSquotWorkingCopyArtifact..st | 3 - .../instance/chooseIncoming.st | 3 - .../instance/chooseWorking.st | 3 - .../instance/computeDifferences.st | 6 - .../instance/conflicts.st | 3 - .../instance/hasChanges.st | 3 - .../instance/hasConflicts.st | 3 - .../instance/incoming..st | 4 - .../instance/incoming.st | 4 - .../initializeSquotDiffNodes.with..st | 3 - .../instance/isAddition.st | 3 - .../instance/isMerge.st | 3 - .../instance/isModification.st | 3 - .../instance/isRemoval.st | 3 - .../instance/modifications.st | 3 - .../instance/modifies..st | 3 - .../instance/newSquotDiffNodes.st | 3 - .../instance/object.st | 4 - .../instance/privateResolvedPatch.st | 3 - .../instance/resetChoice.st | 3 - .../instance/resolvedPatch.st | 4 - .../instance/setWorking.incoming.base..st | 5 - .../instance/squotChangeAsStringOrText.st | 3 - .../instance/squotHasChanges.st | 4 - .../instance/squotToolsDiffNodeContent.st | 4 - .../instance/working..st | 4 - .../instance/working.st | 4 - .../methodProperties.json | 33 --- .../SquotAbstractMerge.class/properties.json | 16 -- .../SquotActiveObjectRegistry.class/README.md | 1 - .../class/nameOf..st | 5 - .../class/nameOf.ifAbsent..st | 5 - .../class/objectNamed..st | 5 - .../methodProperties.json | 7 - .../properties.json | 14 -- .../SquotArtifact.class/README.md | 6 - .../SquotArtifact.class/class/newId.st | 3 - .../class/path.content..st | 5 - .../class/path.content.storeInfo..st | 5 - .../SquotArtifact.class/instance/^equals.st | 7 - .../SquotArtifact.class/instance/browse.st | 3 - .../SquotArtifact.class/instance/capture.st | 4 - .../SquotArtifact.class/instance/content..st | 4 - .../SquotArtifact.class/instance/content.st | 4 - .../convertToCurrentVersion.refStream..st | 5 - .../instance/copyWithDiffApplied..st | 9 - .../instance/copyWithDifferentContent..st | 6 - .../instance/diffAgainst..st | 12 - .../instance/displayText.st | 3 - .../SquotArtifact.class/instance/hash.st | 3 - .../SquotArtifact.class/instance/id..st | 4 - .../SquotArtifact.class/instance/id.st | 3 - .../instance/initialize.st | 5 - .../initializeDefaultStoreInfoFor..st | 3 - .../instance/isLoadable.st | 4 - .../instance/materializeWith.replacing..st | 4 - .../instance/mergeStoreInfo..st | 4 - .../instance/mergeWith.basedOn..st | 6 - .../SquotArtifact.class/instance/path..st | 5 - .../SquotArtifact.class/instance/path.st | 4 - .../SquotArtifact.class/instance/postCopy.st | 4 - .../instance/postCopyWithoutContent.st | 5 - .../SquotArtifact.class/instance/printOn..st | 6 - .../instance/putArtifactClassInStoreInfo.st | 5 - .../instance/serializer..st | 3 - .../instance/setContent.storeInfo..st | 5 - .../instance/setPath.content..st | 4 - .../instance/setPath.content.storeInfo..st | 6 - .../instance/shadowOfTrackedObject.st | 4 - .../SquotArtifact.class/instance/snapshot.st | 4 - .../instance/storeInfo..st | 4 - .../SquotArtifact.class/instance/storeInfo.st | 4 - .../instance/updateStoreInfo..st | 4 - .../SquotArtifact.class/methodProperties.json | 40 ---- .../SquotArtifact.class/properties.json | 19 -- .../SquotArtifactAddition.class/README.md | 1 - .../SquotArtifactAddition.class/class/of..st | 5 - .../instance/adornedDiffNodeTitle..st | 6 - .../instance/applyToContainer..st | 5 - .../instance/diff.against..st | 6 - .../instance/diffNodeFallbackTitle.st | 3 - .../instance/diffNodeOperationTitle.st | 3 - .../instance/isBasedOn..st | 3 - .../instance/mayAffectArtifact.st | 3 - .../instance/mergeWith..st | 6 - .../instance/mergeWithAddition..st | 5 - .../instance/mergeWithDiff..st | 7 - .../instance/mergeWithLoad..st | 5 - .../instance/mergeWithRemoval..st | 7 - .../instance/needsChoice.st | 3 - .../instance/rebaseOn..st | 3 - .../instance/resolveConflictWith..st | 7 - .../instance/squotChangeAsStringOrText.st | 3 - .../instance/toggleWhetherToLoad.st | 3 - .../instance/topNodes.st | 3 - .../instance/willBeLoaded.st | 3 - .../methodProperties.json | 23 -- .../properties.json | 16 -- .../README.md | 0 .../instance/asSquotHierarchicalDiff.st | 3 - .../instance/defaultApplyBlock.st | 5 - .../instance/hasConflicts..st | 3 - .../instance/hasConflicts.st | 3 - .../instance/id..st | 3 - .../instance/id.st | 3 - .../instance/onApply..st | 3 - .../instance/squotApplyTo..st | 3 - .../instance/squotChangeAsStringOrText.st | 3 - .../instance/squotHasChanges.st | 3 - .../instance/topNodes..st | 4 - .../instance/topNodes.st | 4 - .../instance/whenAppliedTo.return..st | 9 - .../methodProperties.json | 17 -- .../properties.json | 17 -- .../SquotArtifactContentMock.class/README.md | 0 .../instance/asShadowGraph.st | 2 - .../instance/defaultCompareBlock.st | 3 - .../instance/defaultMaterializeBlock.st | 3 - .../instance/defaultMergeBlock.st | 3 - .../instance/diffBlock..st | 4 - .../instance/diffBlock.st | 4 - .../instance/id..st | 3 - .../instance/id.st | 3 - .../instance/initialize.st | 3 - .../instance/nameOf..st | 3 - .../instance/nameOf.ifAbsent..st | 3 - .../instance/nameOf.is..st | 3 - .../instance/printOn..st | 6 - .../instance/squotDiffAgainst..st | 3 - .../instance/squotDiffAgainst.withBase..st | 3 - .../squotMaterializeWith.from.replacing..st | 3 - .../instance/squotSummaryText.st | 3 - .../instance/startShadow.st | 3 - .../instance/whenComparedReturnMock.st | 3 - .../instance/whenComparedWith.return..st | 9 - .../instance/whenMaterializedReturn..st | 3 - .../instance/whenMergedReturn..st | 3 - .../methodProperties.json | 26 --- .../properties.json | 18 -- .../SquotArtifactDiff.class/README.md | 5 - .../class/isAbstract.st | 3 - .../class/left.right..st | 6 - .../instance/addToMerge.modifying..st | 4 - .../instance/adornedDiffNodeTitle..st | 4 - .../instance/applyTo..st | 4 - .../instance/applyToContainer..st | 3 - .../instance/asDiffTree.st | 11 - .../SquotArtifactDiff.class/instance/base.st | 3 - .../browseFromSquotWorkingCopyArtifact..st | 3 - .../instance/diff.against..st | 5 - .../instance/diffNodeFallbackTitle.st | 3 - .../instance/diffTreeNodeTitle.st | 5 - .../instance/hasChanges.st | 3 - .../instance/inConflictWith..st | 4 - .../instance/initialize.st | 3 - .../instance/isAddition.st | 3 - .../instance/isBasedOn..st | 4 - .../instance/isConflict.st | 4 - .../instance/isLoad.st | 3 - .../instance/isMerge.st | 3 - .../instance/isModification.st | 3 - .../instance/isRemoval.st | 3 - .../SquotArtifactDiff.class/instance/left.st | 3 - .../instance/mayAffectArtifact.st | 4 - .../instance/mergeWith..st | 9 - .../instance/mergeWithAddition..st | 7 - .../instance/mergeWithDiff..st | 4 - .../instance/mergeWithLoad..st | 8 - .../instance/mergeWithRemoval..st | 6 - .../instance/needsChoice.st | 4 - .../instance/object.st | 3 - .../instance/originalOrAddedArtifact.st | 3 - .../SquotArtifactDiff.class/instance/path.st | 6 - .../instance/printOn..st | 6 - .../instance/rebaseOn..st | 4 - .../instance/resolveConflictWith..st | 7 - .../SquotArtifactDiff.class/instance/right.st | 3 - .../setLeft.right.isLoadedInWorkingCopy..st | 5 - .../instance/setLoadedInWorkingCopy.st | 3 - .../instance/setUpTreeRoot.toEditMerge..st | 5 - .../instance/setUpTreeRoot.toEditPatch..st | 5 - .../instance/squotToolsDiffNodeContent.st | 4 - .../SquotArtifactDiff.class/instance/todo.st | 3 - .../instance/updateRightArtifact.st | 4 - .../instance/willBeLoaded.st | 3 - .../methodProperties.json | 48 ---- .../SquotArtifactDiff.class/properties.json | 16 -- .../SquotArtifactDiffMock.class/README.md | 0 .../class/path..st | 5 - .../instance/^equals.st | 5 - .../instance/addToMerge.modifying..st | 3 - .../instance/applyToContainer..st | 8 - .../instance/asDiffTree.st | 7 - .../instance/beAddition.st | 4 - .../instance/beRemoval.st | 4 - .../instance/copiedFrom..st | 3 - .../instance/copiedFrom.st | 3 - .../instance/copy.st | 5 - .../instance/createArtifactMock.st | 5 - .../instance/defaultMergeBlock.st | 3 - .../instance/hasChanges..st | 3 - .../instance/hasChanges.st | 3 - .../instance/hasConflicts..st | 3 - .../instance/hash.st | 3 - .../instance/isAddition.st | 3 - .../instance/isBasedOn..st | 3 - .../instance/isLoad.st | 3 - .../instance/isModification.st | 3 - .../instance/isRemoval.st | 3 - .../instance/left..st | 2 - .../instance/left.st | 3 - .../instance/mayAffectArtifact.st | 3 - .../instance/mergeWith..st | 3 - .../instance/object.st | 3 - .../instance/path..st | 3 - .../instance/path.st | 3 - .../instance/rebaseOn..st | 3 - .../instance/right..st | 3 - .../instance/right.st | 3 - .../instance/setUpTreeRoot.toEditMerge..st | 5 - .../instance/setUpTreeRoot.toEditPatch..st | 5 - .../instance/toggleWhetherToLoad.st | 3 - .../instance/topNodes.st | 3 - .../instance/updateRightArtifact.st | 2 - .../instance/whenMergedWith.return..st | 9 - .../instance/whenMergedWithA.return..st | 9 - .../instance/willBeLoaded..st | 3 - .../instance/willBeLoaded.st | 3 - .../methodProperties.json | 43 ---- .../properties.json | 25 -- .../SquotArtifactDiffTest.class/README.md | 0 .../instance/applyDiffToWorkingCopy..st | 8 - .../createWorkingCopyWithObjectAt..st | 5 - .../testAdditionsAreLoadedByDefault.st | 8 - .../instance/testAdditionsCanBeUnloaded.st | 10 - .../instance/testDiffTwoPackageArtifacts.st | 54 ----- ...tLoadedWorkingCopyArtifactsWillBeLoaded.st | 10 - ...LoadedWorkingCopyArtifactsWillBeLoaded2.st | 7 - .../instance/testLoadsCanBeDisabled.st | 12 - .../instance/testLoadsWillBeLoaded.st | 10 - .../instance/testMetadataModification.st | 10 - .../testPatchingPreservesIdOfWorkingCopy.st | 12 - ...kingCopyArtifactRemovalsWillNotBeLoaded.st | 9 - ...adedWorkingCopyArtifactsWillNotBeLoaded.st | 13 -- ...dedWorkingCopyArtifactsWillNotBeLoaded2.st | 9 - .../methodProperties.json | 18 -- .../properties.json | 14 -- .../SquotArtifactLoad.class/README.md | 1 - .../SquotArtifactLoad.class/class/of..st | 5 - .../instance/adornedDiffNodeTitle..st | 9 - .../instance/applyToContainer..st | 7 - .../instance/diffNodeOperationTitle.st | 3 - .../instance/hasChanges.st | 3 - .../instance/initialize.st | 3 - .../instance/isBasedOn..st | 3 - .../instance/isLoad.st | 3 - .../instance/mayAffectArtifact.st | 3 - .../instance/mergeWith..st | 6 - .../instance/mergeWithAddition..st | 3 - .../instance/mergeWithDiff..st | 7 - .../instance/mergeWithRemoval..st | 4 - .../instance/needsChoice.st | 3 - .../instance/rebaseOn..st | 3 - .../instance/resolveConflictWith..st | 3 - .../instance/setArtifact..st | 5 - .../instance/squotChangeAsStringOrText.st | 3 - .../instance/toggleWhetherToLoad.st | 3 - .../instance/topNodes.st | 3 - .../instance/willBeLoaded.st | 3 - .../methodProperties.json | 24 -- .../SquotArtifactLoad.class/properties.json | 14 -- .../SquotArtifactLocator.class/README.md | 5 - .../instance/detectArtifactsIn.search..st | 3 - .../instance/detectBlock..st | 4 - .../instance/detectBlock.st | 4 - .../instance/name..st | 3 - .../instance/name.st | 3 - .../instance/printOn..st | 4 - .../methodProperties.json | 10 - .../properties.json | 15 -- .../SquotArtifactLocatorTest.class/README.md | 0 .../class/isAbstract.st | 3 - .../instance/setUp.st | 4 - .../methodProperties.json | 5 - .../properties.json | 16 -- .../SquotArtifactMerge.class/README.md | 1 - ....willBeLoaded.graphMerge.metadataMerge..st | 10 - .../instance/adornedDiffNodeTitle..st | 8 - .../instance/asDiffTree.st | 19 -- .../instance/base..st | 4 - .../instance/chooseIncoming.st | 3 - .../instance/chooseWorking.st | 3 - .../instance/computeDifferences.st | 5 - .../instance/conflicts.st | 3 - .../instance/diffTreeChildren.st | 3 - .../instance/diffTreeNodeTitle.st | 5 - .../instance/elementMerges.st | 3 - .../instance/graphMerge..st | 4 - .../instance/graphMerge.st | 4 - .../instance/hasChanges.st | 3 - .../instance/hasConflicts.st | 3 - .../instance/incoming..st | 4 - .../instance/initialize.st | 4 - .../instance/mayAffectArtifact.st | 4 - .../instance/mergeOfTrackedObject.st | 3 - .../instance/metadata.st | 4 - .../instance/metadataDiffNodes.st | 3 - .../instance/modifications.st | 3 - .../SquotArtifactMerge.class/instance/path.st | 3 - .../instance/privateResolvedPatch.st | 14 -- .../instance/resetChoice.st | 3 - .../instance/setLoadedInWorkingCopy.st | 3 - .../instance/setMetadataMerge..st | 4 - .../instance/setUpTreeRoot.toEditMerge..st | 7 - ....willBeLoaded.graphMerge.metadataMerge..st | 6 - .../instance/squotChangeAsStringOrText.st | 12 - .../instance/squotToolsDiffNodeContent.st | 4 - .../instance/toggleWhetherToLoad.st | 3 - .../instance/willBeLoaded.st | 3 - .../instance/working..st | 5 - .../instance/workingIsLoaded.st | 3 - .../methodProperties.json | 38 --- .../SquotArtifactMerge.class/properties.json | 16 -- .../SquotArtifactMergeTest.class/README.md | 0 .../testMergeMetadataWithoutConflicts.st | 14 -- .../instance/testMergeWithoutBase.st | 11 - .../instance/testPreservesIdOfWorkingCopy.st | 14 -- .../methodProperties.json | 7 - .../properties.json | 14 -- .../SquotArtifactMock.class/README.md | 0 .../SquotArtifactMock.class/class/path..st | 5 - .../instance/capture.st | 2 - .../instance/content.st | 3 - .../instance/copyWithDiffApplied..st | 3 - .../instance/defaultMergeBlock.st | 3 - .../instance/diffAgainst..st | 3 - .../instance/diffBlock..st | 3 - .../instance/diffContentAgainstThatOf..st | 3 - .../diffContentAgainstThatOf.withBase..st | 3 - .../instance/isLoadable..st | 4 - .../instance/isLoadable.st | 3 - .../instance/materializeBlock..st | 4 - .../instance/materializeBlock.st | 4 - .../instance/materializeWith.replacing..st | 3 - .../instance/mergeBlock..st | 3 - .../instance/mergeBlock.st | 3 - .../instance/mergeDiffWith.basedOn..st | 3 - .../instance/mergeWith.basedOn..st | 3 - .../instance/mergeWithoutBaseWith..st | 3 - .../SquotArtifactMock.class/instance/path..st | 4 - .../SquotArtifactMock.class/instance/path.st | 4 - .../instance/printOn..st | 4 - .../instance/shadowOfTrackedObject.st | 3 - .../instance/snapshot.st | 3 - .../instance/squotSummaryText.st | 3 - .../instance/storeInfo..st | 4 - .../instance/storeInfo.st | 4 - .../instance/whenComparedWith.return..st | 9 - .../whenContentComparedWith.return..st | 9 - .../instance/whenContentMergedWith.return..st | 9 - .../instance/whenMergeWith.return..st | 9 - .../methodProperties.json | 34 --- .../SquotArtifactMock.class/properties.json | 22 -- .../SquotArtifactModification.class/README.md | 6 - ...InWorkingCopy.contentDiff.metadataDiff..st | 9 - .../instance/addDifferencesAsConflicts..st | 6 - .../instance/addToMerge.modifying..st | 4 - .../instance/adornedDiffNodeTitle..st | 8 - .../instance/applyContentDiffTo..st | 3 - .../instance/applyMetadataDiffTo..st | 3 - .../instance/applyTo..st | 3 - .../instance/applyToLoaded..st | 3 - .../instance/content.st | 3 - .../instance/diff.against..st | 8 - .../instance/diffContent..st | 3 - .../instance/diffNodeOperationTitle.st | 3 - .../instance/diffOfTrackedObject.st | 3 - .../instance/hasChanges.st | 3 - .../instance/isBasedOn..st | 3 - .../instance/left..st | 3 - .../instance/mayAffectArtifact.st | 3 - .../instance/mergeWithDiff..st | 7 - .../instance/metadata.st | 3 - .../instance/metadataTreeNodes.st | 3 - .../instance/needsChoice.st | 3 - .../instance/optionalMetadataNode.st | 11 - .../instance/postCopy.st | 4 - .../instance/rebaseOn..st | 5 - .../instance/resolveConflictWith..st | 7 - .../instance/right..st | 3 - ...InWorkingCopy.contentDiff.metadataDiff..st | 5 - .../instance/setLoadedInWorkingCopy.st | 4 - .../instance/setWillBeLoaded.st | 3 - .../instance/squotChangeAsStringOrText.st | 12 - .../instance/toggleWhetherToLoad.st | 3 - .../instance/topNodes.st | 3 - .../instance/updateRightArtifact.st | 9 - .../instance/willBeLoaded.st | 3 - .../methodProperties.json | 37 --- .../properties.json | 19 -- .../SquotArtifactRemoval.class/README.md | 1 - .../SquotArtifactRemoval.class/class/of..st | 5 - .../instance/applyToContainer..st | 3 - .../instance/diffNodeOperationTitle.st | 3 - .../instance/isBasedOn..st | 3 - .../instance/mayAffectArtifact.st | 3 - .../instance/mergeWith..st | 6 - .../instance/mergeWithDiff..st | 6 - .../instance/mergeWithLoad..st | 5 - .../instance/mergeWithRemoval..st | 7 - .../instance/needsChoice.st | 3 - .../instance/rebaseOn..st | 4 - .../instance/resolveConflictWith..st | 4 - .../instance/right.st | 3 - .../instance/squotChangeAsStringOrText.st | 3 - .../instance/topNodes.st | 3 - .../methodProperties.json | 18 -- .../properties.json | 16 -- .../SquotAuthorRequest.class/README.md | 1 - .../methodProperties.json | 5 - .../SquotAuthorRequest.class/properties.json | 14 -- .../SquotBasicUnitOfWork.class/README.md | 1 - .../instance/activateDuring..st | 6 - .../instance/finish.st | 7 - .../instance/numberOfClients.st | 3 - .../instance/repository..st | 3 - .../instance/repository.st | 3 - .../instance/start.st | 5 - .../methodProperties.json | 10 - .../properties.json | 17 -- .../SquotBitsMirror.class/README.md | 0 .../instance/initializeSnapshot.of.with..st | 3 - .../instance/is.comparableTo..st | 4 - .../instance/shadowFactory.st | 4 - .../methodProperties.json | 7 - .../SquotBitsMirror.class/properties.json | 14 -- .../SquotBitsObjectShadow.class/README.md | 1 - .../class/squotMirror.st | 3 - .../instance/addVariablePartSlot..st | 5 - .../instance/applySequenceDiff..st | 3 - .../instance/applySequenceDiff.with..st | 3 - .../instance/copyBitsFrom..st | 3 - .../instance/initializeFrom.with..st | 4 - .../instance/isComparableTo..st | 3 - .../instance/privateApplySequenceDiff..st | 3 - .../privateApplySequenceDiff.with..st | 3 - .../instance/references.st | 4 - .../instance/sameIn.withName.ifAbsent..st | 5 - .../instance/squotDiffAgainst..st | 6 - .../instance/squotDiffAgainst.with..st | 7 - .../instance/squotMaterializeWith..st | 3 - .../instance/squotPreferredSerializer.st | 5 - .../instance/squotShadowMarker.st | 2 - .../instance/squotWith.diffFromSequence..st | 8 - .../instance/variablePartSlotWithIndex..st | 3 - .../instance/writeTo..st | 3 - .../methodProperties.json | 22 -- .../properties.json | 14 -- .../SquotBitsShadowMirror.class/README.md | 0 .../instance/is.comparableTo..st | 3 - .../instance/newDiffFrom.to..st | 3 - .../methodProperties.json | 6 - .../properties.json | 14 -- .../SquotBrowseMockClass.class/README.md | 0 .../class/browse.st | 3 - .../SquotBrowseMockClass.class/class/reset.st | 3 - .../class/wasBrowsed.st | 3 - .../methodProperties.json | 7 - .../properties.json | 14 -- .../SquotBrowseMockTrait.class/README.md | 1 - .../SquotBrowseMockTrait.class/class/reset.st | 3 - .../class/setBrowsed.st | 3 - .../class/wasBrowsed.st | 3 - .../instance/browse.st | 3 - .../methodProperties.json | 7 - .../properties.json | 14 -- .../README.md | 3 - .../instance/historian..st | 4 - .../instance/historian.st | 4 - .../methodProperties.json | 6 - .../properties.json | 14 -- .../SquotCannotFindSerializer.class/README.md | 4 - .../class/for..st | 5 - .../instance/fileOrDirectory..st | 4 - .../instance/fileOrDirectory.st | 4 - .../methodProperties.json | 6 - .../properties.json | 14 -- .../SquotChangeSetTestCleanup.class/README.md | 0 .../removeNewChangeSetsNamedLike.after..st | 8 - .../methodProperties.json | 5 - .../properties.json | 14 -- .../README.md | 1 - .../methodProperties.json | 5 - .../properties.json | 14 -- .../SquotChangesChooser.class/README.md | 12 - .../SquotChangesChooser.class/class/on..st | 3 - .../class/themeProperties.st | 6 - .../instance/accept.st | 6 - .../instance/acceptColor.st | 4 - .../instance/accepted.st | 3 - .../instance/activateNodeCommandLabel.st | 3 - .../instance/activateSelectedNode.st | 8 - .../addCustomMenuItemsOfSelectedNode..st | 6 - .../instance/addIgnoreMenuItem..st | 4 - .../instance/addUnignoreMenuItem..st | 4 - .../instance/addUnloadedArtifactMenuItems..st | 5 - .../instance/annotation.st | 4 - .../instance/applyUserInterfaceTheme.st | 6 - .../instance/autoProcessNodes..st | 4 - .../instance/browseIncomingEdition.st | 4 - .../instance/browseOriginalEdition.st | 4 - .../instance/browseOtherEdition.st | 3 - .../instance/browseOtherEditionLabel.st | 3 - .../instance/browseWorkingCopyEdition.st | 4 - .../instance/buildButtonBar..st | 28 --- .../instance/buildDiffPane..st | 12 - .../instance/buildWith..st | 9 - .../instance/buttonHeight.st | 3 - .../instance/canBeLoaded..st | 11 - .../instance/cancel.st | 4 - .../instance/cancelColor.st | 4 - .../instance/canceled..st | 4 - .../instance/canceled.st | 4 - .../instance/childNodesOf..st | 3 - .../instance/chooseLeftCommandLabel.st | 3 - .../instance/chooseRightCommandLabel.st | 3 - .../instance/chooserWidgetSpecs..st | 29 --- .../instance/controllerForIgnores..st | 4 - .../instance/controllerForIgnores.st | 4 - .../instance/createLoadOrderNodes.st | 7 - .../instance/createRootNodes.st | 13 -- .../instance/deactivateNodeCommandLabel.st | 3 - .../instance/deactivateSelectedNode.st | 6 - .../instance/defaultAnnotationPaneHeight.st | 4 - .../instance/diffKey.from.event..st | 26 --- .../instance/diffNodeMenu.shifted..st | 3 - .../instance/diffNodeMenuHook..st | 28 --- .../instance/diffText.st | 5 - .../instance/doItContext.st | 4 - .../instance/doItReceiver.st | 4 - .../instance/environment.st | 7 - ...excludeMethodsWithOnlyTimestampChanges..st | 8 - .../excludePackagesWithoutActiveChanges..st | 5 - .../instance/hasChildren..st | 3 - .../instance/hasNodeSelected.st | 3 - .../instance/ignoreSelectedNode.st | 5 - .../inspectOriginalArtifactCommandLabel.st | 3 - .../inspectOriginalArtifactOfSelectedNode.st | 4 - .../inspectProposedArtifactCommandLabel.st | 3 - .../inspectProposedArtifactOfSelectedNode.st | 4 - .../instance/inspectSelectedDiffContent.st | 3 - .../instance/moveDownSelectedInLoadOrder.st | 11 - .../instance/moveUpSelectedInLoadOrder.st | 11 - .../instance/nodeLabelOf..st | 5 - .../SquotChangesChooser.class/instance/on..st | 3 - .../requestSelectedChangesWithTitle..st | 6 - .../instance/resetChoiceCommandLabel.st | 3 - .../instance/resetChoiceForSelectedNode.st | 4 - .../instance/rootNodes.st | 6 - .../instance/selectNode..st | 6 - .../instance/selectedChangesWithTitle..st | 8 - .../instance/selectedClass.st | 10 - .../instance/selectedDiffNodeIsIncluded.st | 3 - .../instance/selectedNode.st | 3 - .../instance/selectedNodePath..st | 3 - .../instance/selectedPatch.st | 6 - .../instance/toggleLoadSelectedNode.st | 8 - .../instance/unignoreSelectedNode.st | 5 - .../updateRootNodesAfterLoadOrderChange.st | 4 - .../instance/widgetSpecs..st | 3 - .../instance/windowIsClosing.st | 5 - .../instance/windowLabel.st | 3 - .../instance/workingCopy..st | 3 - .../instance/workingCopy.st | 3 - .../methodProperties.json | 82 ------- .../SquotChangesChooser.class/properties.json | 23 -- .../SquotChangesChooserTest.class/README.md | 0 .../class/shouldInheritSelectors.st | 4 - .../instance/applyToWorkingCopy.st | 3 - .../instance/changedArtifactAt.in..st | 3 - .../instance/hasChangesAt.in..st | 3 - .../instance/includesDiffAt.in..st | 3 - .../instance/loadOrderHasChanges.st | 3 - .../instance/newToolOn..st | 5 - .../instance/patchAddingArtifactAt..st | 5 - .../instance/patchChangingArtifactAt..st | 10 - .../patchChangingArtifactMetadataAt..st | 13 -- .../patchChangingUnloadedArtifactAt..st | 13 -- ...chModifyingMethodTimestampInArtifactAt..st | 18 -- .../instance/patchRemovingArtifactAt..st | 8 - .../instance/patchWithLoadOrderChange.st | 16 -- .../patchWithLoadOrderChangeRegression1.st | 14 -- .../instance/patchWithTwoChangedArtifacts.st | 11 - .../instance/patchWithUnloadedArtifactAt..st | 8 - .../instance/patchedLoadOrderAfter..st | 3 - ...InteractionTestsOnNode.withPath.inTree..st | 12 - .../instance/performUiTestsOnToolBuiltBy..st | 5 - .../instance/resultDiffAt..st | 3 - .../instance/resultHasChangesAt..st | 3 - .../instance/resultIncludesDiffAt..st | 3 - .../instance/resultLoadOrder.st | 3 - .../instance/testAcceptArtifactAddition.st | 10 - .../instance/testAcceptArtifactChange.st | 11 - .../testAcceptArtifactMetadataChange.st | 23 -- .../instance/testAcceptArtifactRemoval.st | 10 - .../instance/testDoNotLoadAddedArtifact.st | 21 -- .../testLeaveUnloadedArtifactUnloaded.st | 14 -- .../instance/testLoadOrderNode.st | 15 -- .../instance/testLoadUnloadedArtifact.st | 19 -- ...tLoadUnloadedArtifactDuringModification.st | 19 -- ...testLoadedArtifactsNotAdornedAsUnloaded.st | 7 - .../instance/testMoveDownInLoadOrder.st | 12 - .../instance/testMoveUpInLoadOrder.st | 12 - .../instance/testPreservesLoadOrderChanges.st | 10 - .../testPreservesLoadOrderChanges2.st | 10 - .../instance/testRejectArtifactAddition.st | 12 - .../instance/testRejectArtifactChange.st | 12 - .../testRejectArtifactMetadataChange.st | 25 -- .../instance/testRejectArtifactRemoval.st | 12 - ...edPatchIsIdempotentWithoutChangingNodes.st | 16 -- .../instance/testToggleLoadAddedArtifact.st | 17 -- .../instance/testUnloadedArtifactsAdorned.st | 14 -- .../instance/treeViewMenuIncludesAction..st | 7 - .../methodProperties.json | 49 ---- .../properties.json | 14 -- .../SquotCherryPickOperation.class/README.md | 1 - .../instance/applyMerge.st | 7 - .../instance/applyToWorkingCopy.st | 10 - .../instance/defaultMessage.st | 5 - .../instance/loadedPatch..st | 4 - .../instance/loadedPatch.st | 4 - .../instance/merge..st | 4 - .../instance/merge.st | 4 - .../instance/message..st | 4 - .../instance/pickedVersion..st | 6 - .../instance/pickedVersion.st | 4 - .../instance/prepareMerge.st | 14 -- .../instance/prepareSave.st | 13 -- .../instance/privateNewMerge.st | 3 - .../instance/privateNewSave.st | 3 - .../relevantParentOfPickedVersion..st | 4 - .../instance/relevantParentOfPickedVersion.st | 4 - .../instance/revertMerge.st | 7 - .../instance/save.st | 5 - .../instance/validate.st | 3 - .../instance/validateAncestry.st | 7 - .../methodProperties.json | 24 -- .../properties.json | 19 -- .../README.md | 1 - .../instance/newName.st | 5 - .../instance/packageName..st | 3 - .../instance/packageName.st | 3 - .../methodProperties.json | 7 - .../properties.json | 14 -- .../SquotClassMirror.class/README.md | 0 .../SquotClassMirror.class/class/class..st | 5 - .../instance/capture.with.ifReplaced..st | 8 - .../instance/replacementFor.using..st | 4 - .../instance/setReflectedClass..st | 3 - .../instance/shouldObjectHaveNameAssigned..st | 4 - .../methodProperties.json | 8 - .../SquotClassMirror.class/properties.json | 14 -- .../SquotClassShadow.class/README.md | 1 - .../SquotClassShadow.class/instance/browse.st | 7 - .../instance/className.st | 3 - .../instance/squotMaterializeWith..st | 10 - .../instance/squotRewritePath.with..st | 4 - .../methodProperties.json | 8 - .../SquotClassShadow.class/properties.json | 14 -- .../SquotCollectionElement.class/README.md | 0 .../class/target..st | 5 - .../class/targetWithRelevantHash..st | 6 - .../instance/^equals.st | 13 -- .../instance/asCapturedReference.st | 4 - .../instance/asDiffTreeStringOrText.st | 3 - .../instance/asMaterializedReference.st | 4 - .../instance/asSlotDiffKey.st | 3 - .../instance/asSlotWithValue..st | 6 - .../instance/copyWithTarget..st | 5 - .../instance/hash.st | 7 - .../instance/initialize.st | 3 - .../instance/isCollectionElement.st | 3 - .../instance/isHashRelevant.st | 3 - .../instance/newNameFragment.st | 4 - .../instance/printOn..st | 8 - .../instance/reflect.in..st | 3 - .../instance/reflect.in.put..st | 3 - .../instance/removeFrom.reflectedIn..st | 3 - .../instance/setElement..st | 3 - .../instance/setHashRelevant.st | 3 - .../instance/target..st | 3 - .../instance/target.st | 3 - .../methodProperties.json | 25 -- .../properties.json | 15 -- .../SquotCommitterRequest.class/README.md | 1 - .../methodProperties.json | 5 - .../properties.json | 14 -- .../README.md | 0 .../instance/asDiffTreeStringOrText.st | 3 - .../instance/newNameFragment.st | 3 - .../instance/reflect.in..st | 3 - .../instance/reflect.in.put..st | 3 - .../methodProperties.json | 8 - .../properties.json | 14 -- .../README.md | 0 .../class/index..st | 3 - .../instance/asDiffTreeStringOrText.st | 3 - .../instance/literalIndex.st | 3 - .../instance/newNameFragment.st | 3 - .../instance/reflect.in..st | 3 - .../instance/reflect.in.put..st | 3 - .../instance/setLiteralIndex..st | 3 - .../methodProperties.json | 10 - .../properties.json | 14 -- .../SquotCompiledCodeMirror.class/README.md | 0 .../instance/referencesFrom..st | 11 - .../instance/reflectHeader.of..st | 3 - .../instance/reflectHeader.of.put..st | 3 - .../instance/reflectLiteral.of..st | 3 - .../instance/reflectLiteral.of.put..st | 3 - .../instance/shadowFactory.st | 3 - .../methodProperties.json | 10 - .../properties.json | 14 -- .../SquotCompiledCodeShadow.class/README.md | 0 .../class/squotMirror.st | 3 - .../methodProperties.json | 5 - .../properties.json | 14 -- .../README.md | 0 .../instance/reflectHeader.of..st | 3 - .../instance/reflectHeader.of.put..st | 3 - .../instance/reflectLiteral.of..st | 3 - .../instance/reflectLiteral.of.put..st | 5 - .../methodProperties.json | 8 - .../properties.json | 14 -- .../SquotConflict.class/README.md | 6 - .../SquotConflict.class/instance/base..st | 4 - .../SquotConflict.class/instance/base.st | 4 - .../browseFromSquotWorkingCopyArtifact..st | 4 - .../instance/chooseIncoming.st | 3 - .../instance/chooseWorking.st | 4 - .../instance/hasChanges.st | 3 - .../SquotConflict.class/instance/incoming..st | 4 - .../SquotConflict.class/instance/incoming.st | 4 - .../instance/isAddition.st | 3 - .../instance/isConflict.st | 3 - .../SquotConflict.class/instance/isMerge.st | 3 - .../instance/isModification.st | 3 - .../SquotConflict.class/instance/isRemoval.st | 3 - .../instance/isResolved.st | 3 - .../SquotConflict.class/instance/key..st | 3 - .../SquotConflict.class/instance/key.st | 3 - .../SquotConflict.class/instance/object.st | 4 - .../instance/resetChoice.st | 3 - .../instance/resolution..st | 4 - .../instance/resolution.st | 3 - .../instance/setKey.base.working.incoming..st | 6 - .../instance/squotChangeAsStringOrText.st | 3 - .../instance/squotHasChanges.st | 4 - .../instance/squotToolsDiffNodeContent.st | 4 - .../SquotConflict.class/instance/working..st | 4 - .../SquotConflict.class/instance/working.st | 4 - .../SquotConflict.class/methodProperties.json | 30 --- .../SquotConflict.class/properties.json | 18 -- .../SquotContainerConflict.class/README.md | 8 - .../class/workingDiff.conflictingDiff..st | 6 - .../instance/asDiffTree.st | 12 - .../instance/chooseIncoming.st | 4 - .../instance/diffTreeChildren.st | 3 - .../instance/diffTreeNodeTitle.st | 3 - .../instance/incomingArtifact.st | 3 - .../instance/incomingDiff..st | 4 - .../instance/mayAffectArtifact.st | 4 - .../instance/path.st | 3 - .../instance/preparedResolution.st | 3 - .../instance/setUpTreeRoot.toEditMerge..st | 6 - .../instance/setUpTreeRoot.toEditPatch..st | 3 - .../instance/squotChangeAsStringOrText.st | 6 - .../instance/toggleWhetherToLoad.st | 5 - .../instance/willBeLoaded.st | 3 - .../instance/workingDiff..st | 4 - .../methodProperties.json | 19 -- .../properties.json | 14 -- .../README.md | 0 .../testAdditionAndAdditionFormMerge.st | 18 -- .../testChangeAndRemovalFormConflict.st | 15 -- .../testRemovalAndChangeFormConflict.st | 15 -- .../testRemovalAndRemovalResolvesTrivially.st | 12 - .../methodProperties.json | 8 - .../properties.json | 16 -- .../SquotCreatorDecorator.class/README.md | 5 - .../class/on.creator.slot..st | 5 - .../instance/creator.st | 3 - .../instance/creatorSlot.st | 3 - .../instance/decorated.withCreator.slot..st | 5 - .../instance/printOn..st | 4 - .../methodProperties.json | 8 - .../properties.json | 15 -- .../SquotCurrentMetadata.class/README.md | 3 - .../class/default.st | 3 - .../methodProperties.json | 5 - .../properties.json | 14 -- .../README.md | 0 .../methodProperties.json | 5 - .../properties.json | 14 -- .../README.md | 1 - .../class/canReadObjectSerializedBy..st | 3 - .../instance/fillContentOf.from..st | 20 -- .../instance/initialize.st | 3 - ...initializeCypressReaderToReadClassFrom..st | 8 - ...itializeCypressReaderToReadPackageFrom..st | 6 - .../methodProperties.json | 8 - .../properties.json | 15 -- .../README.md | 9 - ...addPackageAndClassDirectoryForClass.to..st | 6 - .../addPackageDirectoryForPackage.to..st | 3 - .../class/rewritePath.for..st | 4 - .../class/rewritePath.ofClass..st | 12 - .../class/rewritePath.ofPackage..st | 13 -- .../class/userFriendlyTitle.st | 3 - .../instance/canWriteDiffs.st | 3 - .../instance/delete..st | 9 - .../instance/deleteClassifier..st | 6 - .../instance/deleteExtension..st | 5 - .../instance/deleteMethod..st | 12 - .../instance/deleteScript..st | 5 - .../instance/directory.st | 3 - .../instance/initialize.st | 9 - ...alizeFileTreeWritersInPackageDirectory..st | 7 - .../instance/propertiesFileContents.st | 7 - .../instance/propertyFileExtension.st | 3 - .../instance/version.st | 3 - .../instance/write..st | 6 - .../instance/writeClass..st | 6 - .../instance/writeDefinitions..st | 4 - .../instance/writeDiff..st | 87 ------- .../writeMCSnapshot.forPackageNamed.from..st | 3 - .../instance/writePackage..st | 5 - .../instance/writePropertiesIfExists.st | 7 - .../methodProperties.json | 28 --- .../properties.json | 18 -- .../README.md | 0 .../instance/directoryForTests.st | 7 - ...testDoesNotWritePropertiesFileByDefault.st | 9 - .../instance/testRewritePathForEmptyPath.st | 6 - .../testRewritePathForOrdinaryPath.st | 6 - ...stRewritePathWithPackageAlreadyIncluded.st | 6 - .../instance/testRewriteTonelPath.st | 6 - .../instance/testWriteDiffWithClassRemoved.st | 41 ---- .../testWriteDiffWithClassWithoutMethods.st | 31 --- .../testWriteDiffWithExtensionRemoved.st | 46 ---- .../instance/testWriteDiffWithScriptAdded.st | 29 --- .../testWriteDiffWithScriptChanged.st | 31 --- .../testWriteDiffWithScriptRemoved.st | 28 --- ...WriteDiffWithSingleExtensionMethodAdded.st | 39 ---- ...iteDiffWithSingleExtensionMethodChanged.st | 45 ---- ...iteDiffWithSingleExtensionMethodRemoved.st | 38 --- .../testWriteDiffWithSingleMethodAdded.st | 44 ---- .../testWriteDiffWithSingleMethodChanged.st | 50 ---- .../testWriteDiffWithSingleMethodRemoved.st | 44 ---- ...testWriteDiffWithSingleTraitMethodAdded.st | 44 ---- ...stWriteDiffWithSingleTraitMethodChanged.st | 50 ---- ...stWriteDiffWithSingleTraitMethodRemoved.st | 43 ---- .../instance/testWriteDiffWithTraitRemoved.st | 41 ---- ...stWritesPropertiesFileIfItExistsAlready.st | 18 -- .../methodProperties.json | 27 --- .../properties.json | 14 -- .../README.md | 0 .../instance/testFindsMultiplePackages.st | 20 -- .../testFindsPackageInSubdirectory.st | 10 - .../instance/testFindsPackageUnderRoot.st | 10 - .../methodProperties.json | 7 - .../properties.json | 14 -- .../SquotDecorator.class/README.md | 6 - .../SquotDecorator.class/class/newFrom..st | 4 - .../SquotDecorator.class/instance/^equals.st | 3 - .../instance/applyDiff.with..st | 3 - .../instance/asExplorerString.st | 3 - .../SquotDecorator.class/instance/asLink.st | 3 - .../instance/basicInspect.st | 3 - .../instance/basicSize.st | 4 - .../instance/comeFullyUpOnReload..st | 3 - .../SquotDecorator.class/instance/copy.st | 3 - .../instance/decoratorClass.st | 3 - .../instance/doesNotUnderstand..st | 9 - .../SquotDecorator.class/instance/in..st | 3 - .../instance/inspectorClass.st | 4 - .../instance/instVarAt..st | 3 - .../instance/instVarAt.put..st | 3 - .../instance/objectForDataStream..st | 3 - .../instance/outboundPointersDo..st | 5 - .../SquotDecorator.class/instance/perform..st | 4 - .../instance/perform.withArguments..st | 4 - .../instance/primitiveFailed.st | 3 - .../SquotDecorator.class/instance/printOn..st | 4 - .../instance/printString.st | 3 - .../instance/printStringLimitedTo..st | 3 - .../instance/readDataFrom.size..st | 4 - .../instance/respondsTo..st | 4 - .../instance/shouldFollowOutboundPointers.st | 3 - .../instance/squotDecoratorClass.st | 8 - .../instance/squotDecoratorCopySameFrom..st | 13 -- .../squotDecoratorDecoratedObject..st | 5 - .../instance/squotReactivateWith..st | 3 - .../instance/squotReplacementFor..st | 3 - .../instance/squotSameDecorationOn..st | 6 - .../instance/storeDataOn..st | 3 - .../instance/undecorated.st | 3 - .../SquotDecorator.class/instance/xxxClass.st | 3 - .../methodProperties.json | 38 --- .../SquotDecorator.class/properties.json | 14 -- .../SquotDeserializer.class/README.md | 3 - .../class/canReadObjectSerializedBy..st | 4 - .../instance/canReadDiffs.st | 4 - .../instance/fillContentOf.from..st | 3 - .../methodProperties.json | 6 - .../SquotDeserializer.class/properties.json | 14 -- .../SquotDictionaryDiff.class/README.md | 1 - .../methodProperties.json | 5 - .../SquotDictionaryDiff.class/properties.json | 14 -- .../SquotDictionaryEntry.class/README.md | 0 .../SquotDictionaryEntry.class/class/key..st | 3 - .../instance/^equals.st | 9 - .../instance/addTo.withValue..st | 3 - .../instance/asCapturedReference.st | 3 - .../instance/asDiffTreeStringOrText.st | 3 - .../instance/asMaterializedReference.st | 3 - .../instance/hash.st | 5 - .../instance/key.st | 3 - .../instance/printOn..st | 8 - .../instance/reflect.in..st | 4 - .../instance/reflect.in.put..st | 4 - .../instance/removeFrom.reflectedIn..st | 3 - .../instance/setKey..st | 3 - .../methodProperties.json | 16 -- .../properties.json | 14 -- .../SquotDictionaryMirror.class/README.md | 0 .../instance/classUsesIdentityHash.st | 3 - .../instance/mirrorOf.reachedVia.from..st | 5 - .../instance/referencesFrom..st | 12 - .../instance/reflect.removeFrom..st | 5 - .../instance/reflectElement.of..st | 4 - .../instance/reflectElement.of.put..st | 4 - .../instance/reflectEntry.of..st | 3 - .../instance/reflectEntry.of.put..st | 3 - .../instance/removeDictionaryEntry.from..st | 3 - .../instance/removeElement.from..st | 4 - .../instance/shadowFactory.st | 3 - .../instance/shouldObjectHaveNameAssigned..st | 3 - .../methodProperties.json | 16 -- .../properties.json | 14 -- .../SquotDictionaryShadow.class/README.md | 6 - .../class/squotMirror.st | 3 - .../instance/addAssociation..st | 6 - .../instance/addAssociation.with..st | 6 - .../instance/atElement.put..st | 7 - .../instance/diffClass.st | 3 - .../instance/explorerItemFor..st | 7 - .../instance/initializeHashedItems.with..st | 6 - .../instance/removeAssociation..st | 4 - .../methodProperties.json | 11 - .../properties.json | 14 -- .../README.md | 0 .../instance/reflectElement.of..st | 3 - .../instance/reflectElement.of.put..st | 5 - .../methodProperties.json | 6 - .../properties.json | 14 -- .../SquotDictionarySlot.class/README.md | 1 - .../class/printHeadlineForChangesTextOn..st | 3 - .../instance/addTo..st | 3 - .../instance/addTo.with..st | 4 - .../instance/asReference.st | 3 - .../instance/association.st | 3 - .../instance/diffToBaseDictionarySlot..st | 5 - .../instance/keyShadow.st | 3 - .../instance/lookupIn..st | 3 - .../instance/newNameFragment.st | 4 - .../instance/removeFrom..st | 3 - .../instance/removeFrom.with..st | 3 - .../instance/squotDiffAgainst..st | 3 - .../instance/valueShadow.st | 3 - .../methodProperties.json | 16 -- .../SquotDictionarySlot.class/properties.json | 14 -- .../SquotDiffBuilder.class/README.md | 18 -- ...edFrom.isDifferentFrom.reachedFrom.via..st | 39 ---- .../instance/addDiffsToGraphDiff.st | 7 - .../addedObject.withName.reachedVia..st | 4 - ...mpare.reachedFrom.with.reachedFrom.via..st | 40 ---- .../instance/compareLater.with.reachedVia..st | 7 - .../detectStartObjectReplacement.with..st | 8 - .../diffFrom.to.ifNew.andInitialize..st | 13 -- .../instance/followNewObject..st | 4 - .../instance/initialize.st | 9 - .../SquotDiffBuilder.class/instance/left..st | 3 - .../SquotDiffBuilder.class/instance/left.st | 3 - .../instance/noteChanged..st | 13 -- .../instance/noteChangedReferrer.via.to..st | 6 - .../instance/rememberNameOf..st | 9 - .../instance/rememberNameOf.orAssume..st | 6 - .../rememberStartObjectNamesLeft.right..st | 8 - .../SquotDiffBuilder.class/instance/right..st | 3 - .../SquotDiffBuilder.class/instance/right.st | 3 - .../searchAndFollowOnce.reachedVia..st | 5 - .../searchFor.named.ifNew.ifFound..st | 7 - .../instance/searchOnceFor.ifNew.ifFound..st | 8 - .../instance/startFromLeft.right..st | 22 -- .../methodProperties.json | 26 --- .../SquotDiffBuilder.class/properties.json | 24 -- .../SquotDiffExplorer.class/README.md | 6 - .../class/forPatch..st | 5 - .../SquotDiffExplorer.class/class/from.to..st | 5 - .../browseLoadedEditionOfSelectedNode.st | 3 - .../instance/browseModifiedObject.st | 3 - .../instance/browseOriginalObject.st | 3 - .../instance/buildWith..st | 9 - .../instance/childNodesOf..st | 3 - .../instance/chooserWidgetSpecs..st | 22 -- .../instance/diffNodeMenu.shifted..st | 3 - .../instance/diffNodeMenuHook..st | 12 - .../instance/diffText.st | 5 - .../instance/from.to..st | 3 - .../instance/fromPatch..st | 3 - .../instance/hasChildren..st | 3 - .../inspectChangedArtifactOfSelectedNode.st | 4 - .../inspectOriginalArtifactOfSelectedNode.st | 4 - .../instance/inspectSelectedDiffContent.st | 3 - .../instance/nodeLabelOf..st | 7 - .../SquotDiffExplorer.class/instance/open.st | 3 - .../instance/openLabel..st | 5 - .../instance/rootNodes.st | 10 - .../instance/selectNode..st | 5 - .../instance/selectedNode.st | 3 - .../instance/selectedNodePath..st | 2 - .../instance/workingCopy..st | 3 - .../instance/workingCopy.st | 3 - .../methodProperties.json | 29 --- .../SquotDiffExplorer.class/properties.json | 17 -- .../SquotDiffExplorerTest.class/README.md | 0 .../class/shouldInheritSelectors.st | 4 - .../instance/newToolOn..st | 5 - .../instance/setUp.st | 4 - .../instance/tearDown.st | 3 - .../instance/testSmalltalkCodeDiffs.st | 72 ------ .../instance/testTextAddition.st | 8 - .../instance/testTextRemoval.st | 8 - .../methodProperties.json | 10 - .../properties.json | 15 -- .../SquotDiffMock.class/README.md | 0 .../SquotDiffMock.class/instance/^equals.st | 5 - .../instance/asDiffTree.st | 7 - .../instance/beAddition.st | 4 - .../SquotDiffMock.class/instance/beRemoval.st | 4 - .../instance/copiedFrom..st | 3 - .../instance/copiedFrom.st | 3 - .../SquotDiffMock.class/instance/copy.st | 5 - .../instance/defaultApplyBlock.st | 3 - .../instance/defaultMergeBlock.st | 3 - .../instance/hasChanges..st | 3 - .../instance/hasChanges.st | 3 - .../instance/hasConflicts..st | 3 - .../SquotDiffMock.class/instance/hash.st | 3 - .../instance/isAddition.st | 3 - .../instance/isBasedOn..st | 3 - .../SquotDiffMock.class/instance/isRemoval.st | 3 - .../instance/mergeWith..st | 3 - .../SquotDiffMock.class/instance/right..st | 3 - .../SquotDiffMock.class/instance/right.st | 3 - .../instance/setUpTreeRoot.toEditPatch..st | 5 - .../instance/squotApplyTo..st | 3 - .../instance/squotHasChanges.st | 3 - .../SquotDiffMock.class/instance/topNodes.st | 3 - .../instance/updateRightArtifact.st | 2 - .../instance/whenAppliedDoNothing.st | 3 - .../instance/whenAppliedReturn..st | 3 - .../instance/whenAppliedTo.return..st | 9 - .../instance/whenMergedWith.return..st | 9 - .../instance/whenMergedWithA.return..st | 9 - .../SquotDiffMock.class/methodProperties.json | 33 --- .../SquotDiffMock.class/properties.json | 22 -- .../SquotDiffNode.class/README.md | 8 - ...e.content.children.onInclude.onExclude..st | 7 - .../SquotDiffNode.class/instance/accept..st | 3 - .../instance/addContentForInspectionTo..st | 4 - .../instance/annotations.st | 5 - .../instance/anyChildNeedsChoice.st | 5 - .../instance/artifactDiff..st | 3 - .../instance/artifactDiff.st | 3 - .../instance/asStringOrText.st | 6 - .../instance/balloonText.st | 3 - .../SquotDiffNode.class/instance/browse..st | 3 - .../instance/browseInWorkingCopy.st | 8 - .../instance/browseIncomingEdition..st | 7 - .../instance/browseOriginalEdition..st | 7 - .../SquotDiffNode.class/instance/children..st | 3 - .../SquotDiffNode.class/instance/children.st | 3 - .../instance/concatenatedChildrenTexts.st | 7 - .../SquotDiffNode.class/instance/content..st | 3 - .../SquotDiffNode.class/instance/content.st | 3 - .../SquotDiffNode.class/instance/exclude.st | 5 - .../instance/excludeBlock..st | 3 - .../instance/excludeBlock.st | 3 - .../instance/hasActiveChildren.st | 3 - .../instance/hasChildren.st | 3 - .../SquotDiffNode.class/instance/ignore.st | 5 - .../SquotDiffNode.class/instance/include.st | 5 - .../instance/includeBlock..st | 3 - .../instance/includeBlock.st | 3 - .../instance/initialize.st | 4 - .../instance/inspectContent.st | 5 - .../SquotDiffNode.class/instance/isActive.st | 3 - .../instance/isArtifactNode.st | 3 - .../instance/needsChoice.st | 3 - .../instance/offersChoice.st | 3 - .../SquotDiffNode.class/instance/printOn..st | 6 - .../instance/setTitle.content.children..st | 5 - .../SquotDiffNode.class/instance/title..st | 3 - .../SquotDiffNode.class/instance/title.st | 9 - .../SquotDiffNode.class/instance/unignore.st | 5 - .../instance/withAllChildren.st | 3 - .../instance/withPackageEnvironmentDo..st | 7 - .../instance/workingCopy..st | 3 - .../instance/workingCopy.st | 3 - .../SquotDiffNode.class/methodProperties.json | 45 ---- .../SquotDiffNode.class/properties.json | 21 -- .../SquotDiffNodeSearch.class/README.md | 5 - .../instance/enqueueAll..st | 3 - .../instance/initialize.st | 4 - .../instance/searchFrom..st | 5 - .../instance/visit..st | 4 - .../instance/visitDiffNode..st | 3 - .../methodProperties.json | 9 - .../SquotDiffNodeSearch.class/properties.json | 15 -- .../README.md | 4 - .../instance/nodeThatNeedsChoice.st | 3 - .../instance/searchFrom..st | 5 - .../instance/visitDiffNode..st | 5 - .../methodProperties.json | 7 - .../properties.json | 14 -- .../README.md | 1 - .../instance/allBelowAndIncluding..st | 4 - .../instance/initialize.st | 4 - .../instance/visitDiffNode..st | 5 - .../methodProperties.json | 7 - .../properties.json | 14 -- .../SquotDiffNodeTreeWrapper.class/README.md | 1 - .../instance/asString.st | 6 - .../instance/preferredColor.st | 5 - .../methodProperties.json | 6 - .../properties.json | 14 -- .../SquotDiffOfEqualObjects.class/README.md | 1 - .../class/instance.st | 3 - .../class/object..st | 5 - .../instance/hasChanges.st | 3 - .../instance/mayAffectArtifact.st | 3 - .../instance/object.st | 3 - .../instance/setObject..st | 3 - .../instance/squotHasChanges.st | 4 - .../instance/squotReflectOn.in..st | 4 - .../instance/willBeLoaded.st | 3 - .../methodProperties.json | 12 - .../properties.json | 16 -- .../SquotDiffTreeBuilder.class/README.md | 5 - .../instance/convertDiffOf..st | 7 - .../instance/convertToNodes..st | 8 - .../instance/graphDiff..st | 3 - .../instance/initialize.st | 3 - .../methodProperties.json | 8 - .../properties.json | 15 -- .../SquotDiffTreeToolTestCase.class/README.md | 0 .../class/isAbstract.st | 3 - ...InteractionTestsOnNode.withPath.inTree..st | 9 - .../instance/performUiTestsOnToolBuiltBy..st | 11 - .../methodProperties.json | 6 - .../properties.json | 14 -- .../README.md | 7 - ...nce.leftOwner.target.rightOwner.target..st | 5 - .../instance/leftTarget.st | 3 - .../instance/printOn..st | 5 - .../instance/rightTarget.st | 3 - ...nce.leftOwner.target.rightOwner.target..st | 5 - .../instance/squotReflectOn.in.withValue..st | 4 - .../squotValueShadowFrom.reflectedIn..st | 3 - .../methodProperties.json | 10 - .../properties.json | 17 -- .../SquotDiskProxyMirror.class/README.md | 0 .../instance/capture.with.ifReplaced..st | 3 - .../instance/newDiffFrom.to..st | 7 - .../instance/shouldObjectHaveNameAssigned..st | 5 - .../methodProperties.json | 7 - .../properties.json | 14 -- .../SquotDiskProxyShadow.class/README.md | 1 - .../SquotDiskProxyShadow.class/class/for..st | 3 - .../class/squotMirror.st | 3 - .../instance/^equals.st | 10 - .../instance/assumeOriginalClassOf..st | 3 - .../instance/hash.st | 6 - .../instance/proxy.st | 3 - .../instance/sameIn.withName.ifAbsent..st | 3 - .../instance/setDiskProxy..st | 3 - .../instance/squotDiffAgainst.with..st | 7 - .../instance/squotMaterializeWith..st | 3 - .../instance/squotOutgoingReferences.st | 4 - .../methodProperties.json | 14 -- .../properties.json | 16 -- .../SquotFSStoreSpy.class/README.md | 5 - .../SquotFSStoreSpy.class/class/on..st | 3 - .../instance/basicOpen.writable..st | 4 - .../SquotFSStoreSpy.class/instance/delete..st | 4 - .../instance/doesNotUnderstand..st | 3 - .../instance/initialize.st | 4 - .../SquotFSStoreSpy.class/instance/on..st | 3 - .../instance/recordDelete..st | 3 - .../instance/recordOpened.writable..st | 7 - .../instance/resetObservations.st | 3 - .../instance/wasDeleted..st | 6 - .../instance/wasOpened..st | 6 - .../methodProperties.json | 14 -- .../SquotFSStoreSpy.class/properties.json | 16 -- .../SquotFakeToolSet.class/README.md | 0 .../class/browse.selector..st | 3 - .../class/browsedMethods.st | 4 - .../class/didBrowseMethod..st | 3 - .../class/installDuring..st | 11 - .../SquotFakeToolSet.class/class/reset.st | 3 - .../methodProperties.json | 9 - .../SquotFakeToolSet.class/properties.json | 14 -- .../SquotFileArtifact.class/README.md | 6 - .../SquotFileArtifact.class/class/for..st | 5 - .../instance/^equals.st | 6 - .../instance/content..st | 4 - .../instance/content.st | 3 - .../instance/fileReference..st | 4 - .../instance/fileReference.st | 4 - .../SquotFileArtifact.class/instance/hash.st | 3 - .../instance/isLoadable.st | 3 - .../instance/materializeWith.replacing..st | 6 - .../instance/printOn..st | 6 - .../instance/squotSummaryText.st | 3 - .../instance/storeWith..st | 4 - .../instance/wantsToBeInTableOfContents.st | 4 - .../instance/writeWith..st | 4 - .../methodProperties.json | 17 -- .../SquotFileArtifact.class/properties.json | 14 -- .../README.md | 1 - .../instance/addArtifact..st | 4 - .../instance/artifactsFound.st | 3 - .../instance/initialize.st | 4 - .../instance/runSearch.st | 4 - .../instance/searchNext.st | 7 - .../instance/visit.with..st | 6 - .../instance/visitSubdirectories.with..st | 5 - .../methodProperties.json | 11 - .../properties.json | 15 -- .../README.md | 0 .../instance/setUp.st | 3 - .../instance/testFindCypressPackage.st | 12 - .../testRestoresMissingTableOfContents.st | 18 -- .../methodProperties.json | 7 - .../properties.json | 16 -- .../SquotFileStoreTest.class/README.md | 3 - .../instance/assertTableOfContentsExists.st | 3 - .../instance/setUp.st | 3 - .../instance/tearDown.st | 3 - .../testAddedArtifactsNotReadUntilLoaded.st | 19 -- .../instance/testByteArrayAsBinaryFile.st | 20 -- .../instance/testCypressCode.st | 20 -- .../instance/testDeleteArtifact.st | 18 -- .../instance/testDeleteMethod.st | 27 --- .../instance/testLazySnapshot.st | 23 -- .../instance/testLoadOrderIsPreserved.st | 9 - .../instance/testMetadataModification.st | 23 -- .../instance/testPatchDeleteArtifact.st | 18 -- .../instance/testPatchDeleteFolderArtifact.st | 18 -- .../instance/testPatchDeleteMethod.st | 23 -- .../testPatchFileTreeWithoutMetadata.st | 32 --- .../instance/testPatchingPreservesId.st | 20 -- .../testReadArtifactWithoutMetadata.st | 23 -- .../instance/testStringAsTextfile.st | 18 -- .../instance/testStringDefaultEncoding.st | 17 -- .../methodProperties.json | 23 -- .../SquotFileStoreTest.class/properties.json | 16 -- .../SquotFileSystemStore.class/README.md | 3 - .../class/addDeserializerFactory..st | 8 - .../class/copySettingsFrom.to..st | 3 - .../class/inDirectory..st | 3 - .../class/initialize.st | 8 - .../class/initializeStoreInfo.forObject..st | 3 - .../class/removeDeserializerFactory..st | 4 - .../class/tocFileName.st | 3 - .../class/unload.st | 6 - .../instance/^slash.st | 3 - .../instance/add..st | 11 - .../instance/applyDiff.toObjectAt..st | 7 - .../instance/applyPatch..st | 5 - .../instance/artifactLocators.st | 7 - .../instance/artifactReferencesDo..st | 5 - .../instance/artifacts.st | 3 - .../instance/captureLazySnapshot.st | 15 -- .../instance/captureSnapshot.st | 9 - .../instance/copySettingsFrom.to..st | 5 - .../createLazyArtifactForObjectAt..st | 10 - .../instance/cypressPackageLocator.st | 19 -- .../instance/deserializers.st | 3 - .../instance/directory.st | 3 - .../instance/doNotStoreMetadata.st | 3 - .../instance/doStoreMetadata.st | 3 - .../instance/findDeserializerFor.in..st | 7 - ...rFactory.serializerFactory.objectClass..st | 12 - .../instance/guessArtifacts.st | 9 - .../instance/guessMetadataForArtifact.at..st | 18 -- .../guessSerializerForArtifact.in..st | 9 - .../instance/initialize.st | 3 - .../initializeStoreInfo.forObject..st | 6 - .../instance/initializeWith..st | 3 - .../instance/lazyArtifactsDo..st | 6 - .../instance/loadOrder..st | 6 - .../instance/loadOrder.st | 3 - .../instance/metadataFor..st | 3 - .../instance/metadataForObjectAt..st | 3 - .../instance/openTableOfContentsDuring..st | 8 - .../instance/patchOrdinary..st | 26 --- .../instance/pathOf..st | 3 - .../instance/prepareArtifactSearchWith..st | 3 - .../prepareArtifactSearchWith.startingAt..st | 6 - .../instance/readContent..st | 6 - .../instance/readMetadata..st | 9 - .../instance/removeArtifactsOutdatedBy..st | 5 - .../instance/removeAt..st | 9 - .../instance/removeFilesFrom..st | 7 - .../instance/resolve..st | 3 - .../instance/restoreToSnapshot..st | 15 -- .../instance/serializerFactoryFor..st | 3 - .../serializerFactoryFrom.ifAbsent..st | 10 - .../instance/shouldStoreMetadata.st | 3 - .../instance/store..st | 4 - .../instance/storeFile..st | 7 - .../instance/storeOrdinary..st | 18 -- .../instance/storeSquotMetadataFor..st | 5 - .../instance/storeUnrecordedFiles..st | 4 - .../instance/tableOfContents.st | 4 - .../instance/tableOfContentsReference.st | 3 - .../instance/tableOfContentsReferenceIn..st | 5 - .../instance/validatePathOf..st | 11 - .../methodProperties.json | 64 ------ .../properties.json | 19 -- .../SquotFileTestHistorian.class/README.md | 0 .../class/named.in..st | 6 - .../instance/delete.st | 3 - .../instance/file.st | 3 - .../instance/name..st | 3 - .../instance/name.st | 3 - .../instance/repository..st | 3 - .../instance/repository.st | 3 - .../instance/version..st | 6 - .../instance/version.st | 5 - .../instance/versionName.st | 4 - .../methodProperties.json | 13 -- .../properties.json | 17 -- .../SquotFileTestRepository.class/README.md | 15 -- .../instance/activateDuring..st | 4 - .../instance/copySettingsFrom.to..st | 3 - .../instance/createNewVersion.with..st | 15 -- .../createNewVersionFromPatch.with..st | 8 - .../instance/delete..st | 3 - .../instance/historianDirectory.st | 3 - .../instance/historianNamed..st | 3 - .../instance/historians.st | 8 - .../instance/initializeInDirectory..st | 3 - .../initializeStoreInfo.forObject..st | 3 - .../instance/versionNamed.ifAbsent..st | 7 - .../instance/versionsDirectory.st | 3 - .../methodProperties.json | 16 -- .../properties.json | 16 -- .../README.md | 0 .../instance/setUp.st | 3 - .../instance/testPathValidation.st | 20 -- .../methodProperties.json | 6 - .../properties.json | 14 -- .../README.md | 0 .../methodProperties.json | 5 - .../properties.json | 16 -- .../SquotFileTestVersion.class/README.md | 0 .../class/named.in..st | 6 - .../instance/^equals.st | 5 - .../instance/author..st | 5 - .../instance/author.st | 4 - .../instance/copyTreeTo..st | 3 - .../instance/directory.st | 3 - .../instance/ensureDirectory.st | 3 - .../instance/exists.st | 4 - .../instance/internalId..st | 3 - .../instance/internalId.st | 3 - .../instance/message..st | 5 - .../instance/message.st | 4 - .../instance/parents..st | 6 - .../instance/parents.st | 6 - .../instance/repository..st | 3 - .../instance/snapshot.st | 5 - .../instance/snapshotDirectory.st | 3 - .../instance/store..st | 5 - .../instance/storeTreeAndApply..st | 6 - .../instance/timestamp..st | 5 - .../instance/timestamp.st | 4 - .../methodProperties.json | 24 -- .../properties.json | 17 -- src/Squot.package/SquotGUI.class/README.md | 3 - .../SquotGUI.class/class/buttonBarHeight.st | 4 - .../class/buttonWidthForText..st | 3 - .../SquotGUI.class/class/chooseDirectory..st | 3 - .../class/chooseDirectory.from..st | 3 - .../class/chooseFrom.values.title..st | 3 - .../class/chooseMultipleFrom.values.title..st | 3 - .../class/chooseOptionFrom.values.title..st | 6 - .../SquotGUI.class/class/confirm..st | 3 - .../class/confirm.trueChoice.falseChoice..st | 3 - .../class/displayProgress.during..st | 3 - .../class/displayProgress.for.do..st | 3 - .../class/displayStatus.during..st | 3 - .../SquotGUI.class/class/inform..st | 3 - .../SquotGUI.class/class/initialize.st | 4 - .../SquotGUI.class/class/inputFieldHeight.st | 4 - .../class/inputFieldHeightFor..st | 4 - .../SquotGUI.class/class/listHeightFor..st | 4 - .../SquotGUI.class/class/request..st | 3 - .../class/request.initialAnswer..st | 3 - .../SquotGUI.class/class/requestPassword..st | 3 - .../SquotGUI.class/class/runInUiProcess..st | 11 - .../class/updateProgress.text..st | 3 - .../SquotGUI.class/class/waitFor..st | 36 --- .../SquotGUI.class/methodProperties.json | 27 --- .../SquotGUI.class/properties.json | 14 -- .../SquotGenericDiffSnippet.class/README.md | 1 - .../instance/asStringOrText.st | 3 - .../instance/squotChangeAsStringOrText.st | 3 - .../methodProperties.json | 6 - .../properties.json | 14 -- src/Squot.package/SquotGraph.class/README.md | 3 - .../SquotGraph.class/class/nodes..st | 5 - .../decreaseEdgesFromTotalOrdering..st | 13 -- .../increaseEdgesFromTotalOrdering..st | 10 - .../initializeEdgesFromTotalOrdering..st | 8 - .../SquotGraph.class/instance/setNodes..st | 6 - .../instance/topologicalOrderIfNone..st | 34 --- .../SquotGraph.class/methodProperties.json | 9 - .../SquotGraph.class/properties.json | 16 -- .../SquotGraphComparisonWalk.class/README.md | 7 - .../instance/addLeft.right.reachedVia..st | 15 -- .../instance/addNewObject.reachedVia..st | 5 - .../instance/checkPathsTo.ifMultiple..st | 3 - .../instance/do..st | 14 -- ...hape.ifFromBoth.ifOnlyLeft.ifOnlyRight..st | 27 --- .../followReferencesOfNewObject.do..st | 9 - .../instance/initialize.st | 4 - .../newObjectsDo.existingObjectsPairsDo..st | 7 - .../instance/startFrom.and..st | 8 - .../methodProperties.json | 13 -- .../properties.json | 15 -- .../SquotGraphElementWithName.class/README.md | 1 - .../class/name..st | 3 - .../instance/asDiffTreeStringOrText.st | 3 - .../instance/newNameFragment.st | 5 - .../instance/reflect.in..st | 3 - .../instance/reflect.in.put..st | 5 - .../instance/setName..st | 3 - .../methodProperties.json | 9 - .../properties.json | 14 -- .../SquotGraphMergeMock.class/README.md | 0 .../class/resolvedPatch..st | 5 - .../instance/asSquotHierarchicalDiff.st | 9 - .../instance/hasChanges..st | 4 - .../instance/hasChanges.st | 4 - .../instance/hasConflicts.st | 3 - .../instance/initialize.st | 3 - .../instance/resolvedPatch.st | 3 - .../instance/setResolvedPatch..st | 3 - .../instance/squotChangeAsStringOrText.st | 3 - .../methodProperties.json | 12 - .../SquotGraphMergeMock.class/properties.json | 16 -- .../SquotGraphMergeWalk.class/README.md | 1 - .../class/startingFrom.and.basedOn..st | 5 - .../SquotGraphMergeWalk.class/instance/do..st | 11 - ...lowCommonReferencesIfAdditionsConflict..st | 23 -- ...ed.ifAddedDifferently.ifAlreadyVisited..st | 21 -- ...rencesNotInIncoming.ifChangedInWorking..st | 14 -- ...rencesNotInWorking.ifChangedInIncoming..st | 14 -- .../instance/initialize.st | 4 - .../instance/startFrom.and.basedOn..st | 6 - .../methodProperties.json | 11 - .../SquotGraphMergeWalk.class/properties.json | 21 -- .../SquotGraphMirror.class/README.md | 1 - .../reflectGraphElementWithName.in..st | 3 - .../instance/shouldObjectHaveNameAssigned..st | 4 - .../methodProperties.json | 6 - .../SquotGraphMirror.class/properties.json | 14 -- .../SquotGraphWalk.class/README.md | 1 - .../class/startingFrom..st | 5 - .../instance/add.path..st | 6 - .../instance/add.reachedVia..st | 3 - .../instance/addFirst..st | 4 - .../SquotGraphWalk.class/instance/atEnd.st | 3 - .../instance/checkPathsTo.ifMultiple..st | 6 - .../instance/currentPath.st | 3 - .../instance/currentReferrer.st | 3 - .../SquotGraphWalk.class/instance/do..st | 3 - .../instance/doNotTrackReferrers.st | 3 - .../instance/hasVisited..st | 3 - .../instance/initialize.st | 10 - .../SquotGraphWalk.class/instance/next.st | 5 - .../SquotGraphWalk.class/instance/printOn..st | 10 - .../instance/useBreadthFirstTraversal.st | 3 - .../SquotGraphWalk.class/instance/visited..st | 3 - .../methodProperties.json | 19 -- .../SquotGraphWalk.class/properties.json | 22 -- .../SquotGuiTest.class/README.md | 0 .../instance/testUiProcessWaiting.st | 13 -- .../SquotGuiTest.class/methodProperties.json | 5 - .../SquotGuiTest.class/properties.json | 14 -- .../SquotHashedCollectionDiff.class/README.md | 4 - .../instance/addReferenceDiff..st | 7 - .../instance/addTransitiveChangeIn..st | 5 - .../instance/applyTo.with..st | 6 - .../instance/diff.against..st | 4 - .../instance/diffItems.againstThoseOf..st | 4 - .../instance/initialize.st | 4 - .../instance/itemChanges.st | 3 - .../instance/postCopy.st | 3 - ...eDiffsWithDefaultOwners.reflectedIn.do..st | 9 - .../instance/squotHasChanges.st | 3 - .../methodProperties.json | 14 -- .../properties.json | 14 -- .../README.md | 0 .../instance/classUsesIdentityHash.st | 3 - .../instance/referencesFrom..st | 15 -- .../instance/reflect.removeFrom..st | 4 - .../instance/reflectAssociation.in..st | 3 - .../instance/reflectAssociation.in.put..st | 3 - .../instance/reflectElement.of..st | 16 -- .../instance/reflectElement.of.put..st | 4 - .../instance/reflectEntry.of..st | 3 - .../instance/reflectEntry.of.put..st | 3 - .../instance/shadowFactory.st | 3 - .../instance/shouldObjectHaveNameAssigned..st | 3 - .../methodProperties.json | 15 -- .../properties.json | 14 -- .../README.md | 1 - .../class/squotMirror.st | 3 - .../instance/addItemSlot..st | 3 - .../instance/atElement..st | 7 - .../instance/atElement.put..st | 7 - .../instance/diffClass.st | 3 - .../instance/diffItems..st | 17 -- .../instance/diffItemsAgainstThoseOf.in..st | 5 - .../instance/explorerContents.st | 4 - .../instance/explorerItemFor..st | 6 - .../instance/hasContentsInExplorer.st | 3 - .../instance/initialize.st | 4 - .../instance/initializeFrom.with..st | 5 - .../instance/initializeHashedItems.with..st | 6 - .../instance/itemSlotForValue..st | 3 - .../instance/itemSlots.st | 3 - .../instance/references.st | 3 - .../instance/removeItemSlot..st | 3 - .../instance/squotMaterializeWith..st | 3 - .../methodProperties.json | 21 -- .../properties.json | 14 -- .../README.md | 0 .../instance/reflectElement.of..st | 3 - .../instance/reflectElement.of.put..st | 5 - .../methodProperties.json | 6 - .../properties.json | 14 -- .../SquotHashedCollectionSlot.class/README.md | 1 - .../class/printHeadlineForChangesTextOn..st | 3 - .../instance/addTo..st | 3 - .../instance/addTo.with..st | 4 - .../instance/asReference.st | 3 - .../diffToBaseHashedCollectionSlot..st | 5 - .../instance/lookupIn..st | 3 - .../instance/newNameFragment.st | 4 - .../instance/removeFrom..st | 3 - .../instance/removeFrom.with..st | 3 - .../instance/squotDiffAgainst..st | 3 - .../methodProperties.json | 13 -- .../properties.json | 14 -- .../SquotHistoryWalker.class/README.md | 20 -- .../instance/shouldVisit.before..st | 3 - .../methodProperties.json | 5 - .../SquotHistoryWalker.class/properties.json | 14 -- .../SquotIgnoredSmalltalkCode.class/README.md | 1 - .../class/changeSet.st | 3 - .../class/ignore..st | 4 - .../class/ignoreClass..st | 8 - .../class/isIgnored..st | 4 - .../class/isWholeClassIgnored..st | 3 - .../class/privateIsWholeClassIgnored..st | 5 - .../class/privateUnignoreClass..st | 6 - .../class/symbolInChangeSet..st | 6 - .../class/unignore..st | 5 - .../class/unignoreClass..st | 8 - .../methodProperties.json | 14 -- .../properties.json | 14 -- .../README.md | 0 .../instance/ignoreDefinitionTest..st | 7 - .../instance/runCase.st | 3 - .../instance/setUp.st | 5 - .../instance/tearDown.st | 6 - ...nitionAndMethodDefinitionAreIndependent.st | 10 - .../instance/testIgnoreClassDefinition.st | 10 - .../instance/testIgnoreMethod.st | 5 - .../instance/testIgnorePostscript.st | 3 - .../instance/testIgnorePreamble.st | 3 - .../instance/testIgnoreRemovalPostscript.st | 3 - .../instance/testIgnoreRemovalPreamble.st | 3 - .../instance/testIgnoreWholeClass.st | 15 -- .../testNotIgnoredAfterWholeClassUnignored.st | 9 - .../instance/xtestIgnoreOrganization.st | 4 - .../methodProperties.json | 18 -- .../properties.json | 16 -- .../README.md | 0 .../instance/ignoreDefinitionTest..st | 7 - .../instance/setUp.st | 11 - .../instance/tearDown.st | 9 - .../testIgnoreClassTraitDefinition.st | 5 - .../instance/testIgnoreClassTraitMethod.st | 5 - .../instance/testIgnoreTraitDefinition.st | 5 - .../instance/testIgnoreWholeClassTrait.st | 15 -- .../instance/testIgnoreWholeTrait.st | 15 -- .../methodProperties.json | 12 - .../properties.json | 17 -- .../SquotImageStore.class/README.md | 17 -- .../instance/activateObjectRegistryDuring..st | 3 - .../SquotImageStore.class/instance/add..st | 5 - .../SquotImageStore.class/instance/add.at..st | 9 - .../instance/add.at.additionalInfo..st | 13 -- .../instance/add.copiedFromArtifact..st | 8 - .../instance/appendToLoadOrder..st | 3 - .../instance/applyDiff.toObjectAt..st | 15 -- .../instance/applyPatch..st | 6 - .../instance/artifactAt..st | 3 - .../instance/artifacts.st | 7 - .../instance/capture.at..st | 3 - .../instance/capture.withMetadata..st | 12 - .../instance/captureObjectGraphAt..st | 6 - .../instance/captureSnapshot.st | 12 - .../convertToCurrentVersion.refStream..st | 9 - .../instance/copySettingsFrom.to..st | 3 - .../instance/environment..st | 3 - .../instance/environment.st | 3 - .../instance/includes..st | 3 - .../instance/includesObjectAt..st | 3 - .../instance/initialize.st | 7 - .../instance/initializeObjectFrom..st | 8 - .../initializeStoreInfo.forObject..st | 3 - .../instance/lazySnapshot.st | 6 - .../instance/liveArtifactFor.at..st | 5 - .../instance/loadOrder..st | 6 - .../instance/loadOrder.st | 3 - .../instance/materialize.replacing..st | 4 - .../materializeGraph.from.replacing..st | 15 -- .../instance/materializerFor..st | 8 - .../instance/metadataForObjectAt..st | 3 - .../instance/moveObjectAt.to..st | 7 - .../instance/objectAt..st | 4 - .../instance/objectGraphs.st | 3 - .../instance/objectPaths.st | 3 - .../instance/objectRegistry.st | 3 - .../instance/objectsWithPathsDo..st | 5 - .../instance/pathsOf..st | 3 - .../instance/postCopy.st | 7 - .../SquotImageStore.class/instance/remove..st | 7 - .../instance/removeAllObjects.st | 3 - .../instance/removeAt..st | 9 - .../instance/restore.from..st | 3 - .../instance/restoreObjectFrom..st | 7 - .../instance/restoreToSnapshot..st | 15 -- .../instance/supports.forObject..st | 4 - .../methodProperties.json | 50 ---- .../SquotImageStore.class/properties.json | 22 -- .../SquotImageStoreTest.class/README.md | 5 - .../instance/changeLogSuppressor.st | 3 - .../instance/createTestEnvironment.st | 6 - .../instance/nameForTestEnvironment.st | 3 - .../instance/newPackageInfoFor..st | 3 - .../instance/setUp.st | 9 - .../instance/snapshotClass.at..st | 5 - .../instance/snapshotPackage.at..st | 5 - .../instance/tearDown.st | 12 - .../instance/testAddNewObjectsFromArtifact.st | 17 -- ...testAddingObjectsAddsThemToTheLoadOrder.st | 10 - .../instance/testApplyPatch.st | 69 ------ .../instance/testFiles.st | 14 -- .../instance/testIgnoredInstanceVariables.st | 17 -- .../instance/testMetadataModification.st | 23 -- .../instance/testPatchingPreservesId.st | 14 -- .../testRemoveAlsoRemovesFromLoadOrder.st | 16 -- .../testRestoreAdheresToTheLoadOrder.st | 16 -- .../instance/testRestoreClass.st | 12 - .../instance/testRestorePackage.st | 14 -- ...orePackageThatLivesInAnotherEnvironment.st | 33 --- .../testRestorePackageWithFreshPackageInfo.st | 21 -- .../instance/testSnapshotAndRestoreText.st | 9 - .../instance/testSnapshotHasSameLoadOrder.st | 11 - ...stSnapshotPackageInDifferentEnvironment.st | 26 --- .../methodProperties.json | 28 --- .../SquotImageStoreTest.class/properties.json | 20 -- .../SquotImageToFileStoreTest.class/README.md | 3 - .../instance/setUp.st | 6 - .../instance/snapshotClass.at..st | 5 - .../instance/snapshotPackage.at..st | 4 - .../instance/tearDown.st | 5 - .../instance/testRetrieveClass.st | 10 - .../instance/testRetrievePackage.st | 10 - .../instance/testSnapshotClass.st | 14 -- .../instance/testSnapshotPackage.st | 12 - .../instance/testWithText.st | 17 -- .../instance/testWithWorkspaceMorph.st | 30 --- .../methodProperties.json | 14 -- .../properties.json | 20 -- .../SquotInMemoryHistorian.class/README.md | 6 - .../instance/name..st | 3 - .../instance/name.st | 3 - .../instance/printOn..st | 4 - .../instance/repository..st | 3 - .../instance/repository.st | 3 - .../instance/version..st | 3 - .../instance/version.st | 3 - .../methodProperties.json | 11 - .../properties.json | 18 -- .../SquotInMemoryRepository.class/README.md | 5 - .../instance/activateDuring..st | 4 - .../instance/createNewVersion.with..st | 17 -- .../createNewVersionFromPatch.with..st | 18 -- .../instance/defaultHistorian.st | 7 - .../instance/delete..st | 3 - .../instance/historianNamed..st | 3 - .../instance/historians.st | 3 - .../instance/initialize.st | 4 - .../instance/initializeInDirectory..st | 4 - .../initializeStoreInfo.forObject..st | 3 - .../instance/newHistorian.version..st | 9 - .../instance/versionAt..st | 4 - .../methodProperties.json | 16 -- .../properties.json | 17 -- .../README.md | 0 .../instance/expectedFailures.st | 6 - .../instance/newRepository.st | 3 - .../instance/testImmutabilityOfSnapshots.st | 24 -- ...ersionsDoNotContainWorkingCopyArtifacts.st | 11 - .../methodProperties.json | 8 - .../properties.json | 14 -- .../SquotInMemoryVersion.class/README.md | 7 - .../instance/^equals.st | 3 - .../instance/author..st | 3 - .../instance/author.st | 4 - .../instance/authoringTimeStamp..st | 3 - .../instance/committer..st | 3 - .../instance/committer.st | 3 - .../instance/hash.st | 4 - .../instance/initialize.st | 3 - .../instance/internalId.st | 4 - .../instance/lazySnapshot.st | 3 - .../instance/message..st | 3 - .../instance/message.st | 3 - .../instance/metadata.st | 3 - .../instance/parents..st | 4 - .../instance/parents.st | 3 - .../instance/patchRelativeToBase..st | 3 - .../instance/printOn..st | 9 - .../instance/repository..st | 3 - .../instance/repository.st | 4 - .../instance/snapshot..st | 4 - .../instance/snapshot.st | 3 - .../instance/timestamp..st | 3 - .../instance/timestamp.st | 4 - .../methodProperties.json | 27 --- .../properties.json | 19 -- .../SquotIndexableField.class/README.md | 0 .../SquotIndexableField.class/class/index..st | 3 - .../instance/^equals.st | 9 - .../instance/asDiffTreeStringOrText.st | 3 - .../instance/asSlotDiffKey.st | 3 - .../instance/asSlotWithValue..st | 3 - .../instance/hash.st | 5 - .../instance/index.st | 3 - .../instance/newNameFragment.st | 3 - .../instance/printOn..st | 8 - .../instance/reflect.in..st | 4 - .../instance/reflect.in.put..st | 4 - .../instance/setIndex..st | 3 - .../methodProperties.json | 15 -- .../SquotIndexableField.class/properties.json | 14 -- .../README.md | 1 - .../methodProperties.json | 5 - .../properties.json | 14 -- .../SquotInstVarSlot.class/README.md | 1 - .../class/printHeadlineForChangesTextOn..st | 3 - .../SquotInstVarSlot.class/instance/addTo..st | 3 - .../instance/addTo.with..st | 4 - .../instance/asReference.st | 3 - .../instance/diffToBaseInstVar..st | 11 - .../instance/instVarName.st | 3 - .../instance/lookupIn..st | 3 - .../instance/removeFrom..st | 4 - .../instance/removeFrom.with..st | 4 - .../instance/squotDiffAgainst..st | 3 - .../methodProperties.json | 13 -- .../SquotInstVarSlot.class/properties.json | 14 -- .../SquotInstanceVariable.class/README.md | 0 .../class/named..st | 3 - .../instance/^equals.st | 9 - .../instance/asDiffTreeStringOrText.st | 3 - .../instance/asSlotDiffKey.st | 3 - .../instance/asSlotWithValue..st | 3 - .../instance/hash.st | 5 - .../instance/isInstanceVariable.st | 3 - .../instance/name.st | 3 - .../instance/newNameFragment.st | 3 - .../instance/printOn..st | 8 - .../instance/reflect.in..st | 4 - .../instance/reflect.in.put..st | 4 - .../instance/setName..st | 3 - .../methodProperties.json | 16 -- .../properties.json | 14 -- .../README.md | 1 - .../instance/applyMerge.st | 4 - .../instance/applyToWorkingCopy.st | 16 -- .../instance/privateNewMerge.st | 3 - .../instance/privateNewSave.st | 3 - .../instance/save.st | 12 - .../instance/validateRequestor.st | 4 - .../methodProperties.json | 10 - .../properties.json | 14 -- .../SquotInteractiveMerge.class/README.md | 1 - .../instance/applyToWorkingCopy.st | 16 -- .../instance/chooseChanges.st | 10 - .../methodProperties.json | 6 - .../properties.json | 14 -- .../SquotInteractiveRevert.class/README.md | 1 - .../instance/applyMerge.st | 4 - .../instance/applyToWorkingCopy.st | 16 -- .../instance/privateNewMerge.st | 3 - .../instance/privateNewSave.st | 3 - .../instance/save.st | 12 - .../instance/validateRequestor.st | 4 - .../methodProperties.json | 10 - .../properties.json | 14 -- .../SquotInteractiveSave.class/README.md | 1 - .../instance/applyToWorkingCopy.st | 17 -- .../instance/chooseChanges.st | 20 -- .../instance/confirmAdditionalParents.st | 14 -- .../instance/validate.st | 9 - .../instance/validateForCherryPick.st | 8 - .../methodProperties.json | 9 - .../properties.json | 14 -- .../SquotKeyVariable.class/README.md | 0 .../instance/isHashRelevant.st | 3 - .../methodProperties.json | 5 - .../SquotKeyVariable.class/properties.json | 14 -- .../SquotLazyArtifact.class/README.md | 7 - .../instance/capture.st | 3 - .../instance/content.st | 5 - .../SquotLazyArtifact.class/instance/id.st | 3 - .../instance/initialize.st | 6 - .../instance/onLoadContent..st | 3 - .../instance/onLoadStoreInfo..st | 3 - .../instance/snapshot.st | 6 - .../instance/storeInfo.st | 8 - .../methodProperties.json | 12 - .../SquotLazyArtifact.class/properties.json | 15 -- .../README.md | 0 .../instance/createVersionA1.st | 9 - .../instance/createVersionA2.st | 9 - .../instance/createVersionB.st | 9 - .../instance/makeUnrelatedChange.st | 3 - .../instance/methodBRemoved.st | 3 - .../instance/packageWasRemoved.st | 3 - .../instance/removesMethodB..st | 4 - .../revertVersionAddedAtEndOfHistory.st | 4 - .../instance/setUp.st | 11 - .../instance/unrelatedChangeStillLoaded.st | 3 - .../instance/updatesUnrelatedChange..st | 4 - .../instance/versionA1.st | 3 - .../instance/versionA2.st | 3 - .../instance/versionB.st | 3 - .../methodProperties.json | 18 -- .../properties.json | 20 -- .../SquotLiveArtifact.class/README.md | 3 - .../class/on.at.in..st | 3 - .../instance/^equals.st | 6 - .../instance/browse.st | 3 - .../instance/capture.st | 3 - .../instance/content.st | 4 - .../convertToCurrentVersion.refStream..st | 5 - .../instance/copyWithDiffApplied..st | 3 - .../instance/copyWithDifferentContent..st | 7 - .../SquotLiveArtifact.class/instance/hash.st | 6 - .../SquotLiveArtifact.class/instance/id..st | 3 - .../SquotLiveArtifact.class/instance/id.st | 4 - .../instance/liveStoreInfo.st | 3 - .../instance/materializeWith.replacing..st | 4 - .../instance/mergeWith.basedOn..st | 6 - .../instance/object.st | 3 - .../instance/objectGraph.st | 3 - .../instance/on.at.in..st | 6 - .../instance/packageName.st | 3 - .../SquotLiveArtifact.class/instance/path.st | 3 - .../instance/printOn..st | 5 - .../instance/privateEquals..st | 7 - .../instance/serializer..st | 3 - .../instance/serializerName.st | 3 - .../instance/setObject.path.store..st | 5 - .../instance/snapshot.st | 8 - .../instance/storeInfo..st | 3 - .../instance/storeInfo.st | 6 - .../methodProperties.json | 30 --- .../SquotLiveArtifact.class/properties.json | 20 -- .../SquotLoadOrderConflict.class/README.md | 1 - .../instance/chooseIncoming.st | 4 - .../instance/chooseWorking.st | 4 - .../methodProperties.json | 6 - .../properties.json | 14 -- .../SquotLoadOrderMerge.class/README.md | 68 ------ .../instance/add..st | 8 - .../instance/addUnloaded..st | 4 - .../instance/applyDiff..st | 3 - .../instance/applyDiff.toObjectAt..st | 4 - .../browseFromSquotWorkingCopyArtifact..st | 3 - .../instance/chooseIncoming.st | 3 - .../instance/chooseWorking.st | 3 - .../instance/computeDifferences.st | 3 - .../instance/conflicts.st | 3 - .../instance/copy.withOrder..st | 8 - ...TreeNodeWithWorkingOrder.incomingOrder..st | 17 -- .../instance/detectConflicts.st | 6 - .../instance/hasChanges.st | 4 - .../insert.into.afterPredecessorsIn..st | 9 - .../instance/newLoadOrder..st | 4 - .../instance/newLoadOrder.st | 3 - .../instance/privateResolvedPatch.st | 11 - .../instance/removeAt..st | 6 - .../instance/resetAppliedDiffs.st | 3 - .../instance/resetChoice.st | 3 - .../instance/resetResolution.st | 3 - .../instance/resolveLoadOrders.st | 18 -- .../instance/resolveOrders.and..st | 16 -- .../instance/squotChangeAsStringOrText.st | 15 -- .../instance/working..st | 5 - .../methodProperties.json | 29 --- .../SquotLoadOrderMerge.class/properties.json | 15 -- .../SquotLoadOrderMergeTest.class/README.md | 0 .../testAdditionAndUnrelatedConflicts.st | 16 -- .../testAdditionAndUnrelatedConflicts2.st | 15 -- .../testAdditionsInDifferentPlaces.st | 14 -- ...tAdditionsInDifferentPlacesButSameIndex.st | 14 -- .../instance/testApplyAddition.st | 9 - .../testApplyAdditionAfterConflict.st | 9 - .../testApplyModificationDoesNothing.st | 10 - .../instance/testApplyRemoval.st | 8 - .../instance/testConflict.st | 14 -- .../instance/testDifferentMoves.st | 8 - .../testDifferentMovesWithSizeChange.st | 10 - .../instance/testEqualLoadOrders.st | 6 - .../instance/testEquallyChangedLoadOrders.st | 6 - .../instance/testIndependentAdditions.st | 9 - .../instance/testIndependentAdditions2.st | 9 - .../instance/testIndependentAdditions3.st | 9 - .../instance/testIndependentRemovals.st | 8 - .../testKeepChangesToRemovedAfterConflict.st | 9 - .../instance/testMultipleConflicts.st | 14 -- .../instance/testUnilateralMoves.st | 9 - .../methodProperties.json | 24 -- .../properties.json | 14 -- .../SquotLoadedArtifact.class/README.md | 1 - .../instance/^equals.st | 4 - .../instance/applyLoadStatusTo..st | 3 - .../instance/hash.st | 3 - .../instance/isLoaded.st | 3 - .../instance/printOn..st | 3 - .../instance/storeArtifact..st | 3 - .../instance/storeArtifact.st | 3 - .../instance/unload.st | 3 - .../instance/updatePath.st | 10 - .../methodProperties.json | 13 -- .../SquotLoadedArtifact.class/properties.json | 14 -- .../SquotLookupKeyMirror.class/README.md | 0 .../class/classWithIrrelevantKeyHash..st | 5 - .../instance/initialize.st | 3 - .../instance/referencesFrom..st | 11 - .../instance/setKeyHashIrrelevant.st | 3 - .../methodProperties.json | 7 - .../properties.json | 14 -- .../instance/doPostUpdateMigrationsIn..st | 3 +- .../SquotMapper.class/instance/isTracked.st | 1 + .../SquotMapper.class/methodProperties.json | 4 +- .../SquotMemoizingVersion.class/README.md | 0 .../class/version..st | 5 - .../class/version.snapshot..st | 5 - .../instance/^equals.st | 3 - .../instance/artifactAt..st | 5 - .../instance/artifacts.st | 5 - .../instance/doesNotUnderstand..st | 7 - .../instance/hash.st | 3 - .../instance/patchRelativeToBase..st | 3 - .../instance/populateSnapshot.st | 3 - .../instance/printOn..st | 3 - .../instance/setVersion..st | 3 - .../instance/setVersion.snapshot..st | 4 - .../instance/snapshot.st | 3 - .../methodProperties.json | 16 -- .../properties.json | 15 -- src/Squot.package/SquotMerge.class/README.md | 1 - .../instance/addLoadOrderDiffTreeTo..st | 7 - .../instance/computeDifferences.st | 31 --- .../SquotMerge.class/instance/conflicts.st | 5 - .../instance/customizedLoadOrder.st | 3 - .../instance/keyOf.ifAbsent..st | 3 - .../instance/loadOrderMerge.st | 3 - .../SquotMerge.class/instance/mergeAt..st | 3 - .../instance/newLoadOrder..st | 4 - .../SquotMerge.class/instance/newLoadOrder.st | 3 - .../instance/privateResolvedPatch.st | 23 -- .../SquotMerge.class/methodProperties.json | 14 -- .../SquotMerge.class/properties.json | 16 -- .../README.md | 1 - .../instance/createBaseVersion.st | 9 - .../instance/expectedObjectOrderAfterMerge.st | 3 - .../instance/mergeButKeepArtifact.st | 14 -- .../instance/prepareIncomingVersion.st | 3 - .../instance/prepareWorkingVersion.st | 5 - .../instance/setUp.st | 12 - .../instance/testKeepArtifact.st | 9 - .../methodProperties.json | 11 - .../properties.json | 17 -- .../README.md | 1 - .../instance/expectedObjectOrderAfterMerge.st | 3 - .../instance/prepareIncomingVersion.st | 7 - .../methodProperties.json | 6 - .../properties.json | 14 -- .../SquotMergeDiffNode.class/README.md | 4 - ...t.children.onInclude.onExclude.onReset..st | 8 - .../instance/browseIncomingEdition..st | 8 - .../instance/browseOriginalEdition..st | 4 - .../instance/choice.st | 4 - .../instance/chooseLeft.st | 3 - .../instance/chooseRight.st | 3 - .../instance/exclude.st | 6 - .../instance/include.st | 6 - .../instance/isActive.st | 3 - .../instance/needsChoice.st | 5 - .../instance/offersChoice.st | 3 - .../instance/resetBlock..st | 4 - .../instance/resetBlock.st | 4 - .../instance/resetChoice.st | 4 - .../methodProperties.json | 17 -- .../SquotMergeDiffNode.class/properties.json | 15 -- .../SquotMergeMock.class/README.md | 0 .../instance/asDiffTree.st | 21 -- .../instance/asSquotHierarchicalDiff.st | 17 -- .../SquotMergeMock.class/instance/base..st | 3 - .../SquotMergeMock.class/instance/base.st | 3 - .../SquotMergeMock.class/instance/choice.st | 3 - .../instance/chooseIncoming.st | 3 - .../instance/chooseWorking.st | 3 - .../instance/diffTreeNodes..st | 3 - .../instance/hasChanges.st | 3 - .../instance/hasConflicts..st | 3 - .../instance/hasConflicts.st | 3 - .../instance/incoming..st | 3 - .../SquotMergeMock.class/instance/incoming.st | 3 - .../SquotMergeMock.class/instance/isMerge.st | 3 - .../instance/mayAffectArtifact.st | 3 - .../SquotMergeMock.class/instance/object.st | 3 - .../instance/resetChoice.st | 3 - .../instance/resolvedPatch.st | 12 - .../instance/returnAsResolvedPatch..st | 3 - .../instance/setUpTreeRoot.toEditMerge..st | 2 - .../instance/squotChangeAsStringOrText.st | 3 - .../instance/willBeLoaded..st | 3 - .../instance/willBeLoaded.st | 3 - .../SquotMergeMock.class/instance/working..st | 3 - .../SquotMergeMock.class/instance/working.st | 3 - .../methodProperties.json | 29 --- .../SquotMergeMock.class/properties.json | 21 -- .../SquotMergeOperation.class/README.md | 1 - .../instance/addParent.st | 7 - .../instance/appliedPatch.st | 3 - .../instance/applyToWorkingCopy.st | 7 - .../instance/baseVersion..st | 4 - .../instance/baseVersion.st | 4 - .../doNotAddGlobalObjectsAutomatically.st | 3 - .../instance/doNotAddParent.st | 3 - .../instance/findBaseVersion.st | 13 -- .../instance/initialize.st | 4 - .../instance/isFastForwardPossible.st | 6 - .../instance/merge..st | 4 - .../instance/merge.st | 4 - .../instance/mergeBases.st | 5 - .../instance/mergeVersion..st | 4 - .../instance/mergeVersion.st | 4 - .../instance/prepare.st | 19 -- .../shouldAddGlobalObjectsAutomatically.st | 3 - .../instance/validateAncestry.st | 3 - .../instance/workingVersion.st | 4 - .../methodProperties.json | 23 -- .../SquotMergeOperation.class/properties.json | 21 -- .../README.md | 1 - .../instance/createBaseVersion.st | 9 - .../expectedObjectOrderAfterReadding.st | 3 - .../instance/mergeAndReaddObject.st | 14 -- .../instance/prepareIncomingVersion.st | 3 - .../instance/prepareWorkingVersion.st | 6 - .../instance/setUp.st | 12 - ...ddedArtifactInIncomingLoadOrderPosition.st | 9 - .../methodProperties.json | 11 - .../properties.json | 17 -- .../README.md | 1 - .../expectedObjectOrderAfterReadding.st | 3 - .../instance/prepareIncomingVersion.st | 7 - .../methodProperties.json | 6 - .../properties.json | 14 -- .../SquotMergeRequested.class/README.md | 1 - .../instance/merge..st | 4 - .../instance/merge.st | 4 - .../instance/resume..st | 4 - .../instance/setHandled.st | 3 - .../instance/title..st | 4 - .../instance/title.st | 4 - .../instance/wasHandled.st | 3 - .../methodProperties.json | 11 - .../SquotMergeRequested.class/properties.json | 16 -- .../SquotMergeTest.class/README.md | 0 .../instance/testLoadOrderResolution.st | 13 -- .../testRemovalsResolvedAutomatically.st | 13 -- .../methodProperties.json | 6 - .../SquotMergeTest.class/properties.json | 16 -- .../SquotMergeTool.class/README.md | 3 - .../instance/autoProcessNodes..st | 7 - .../inspectOriginalArtifactOfSelectedNode.st | 6 - .../inspectProposedArtifactOfSelectedNode.st | 6 - .../SquotMergeTool.class/instance/on..st | 3 - .../instance/rootNodes.st | 16 -- .../instance/selectedPatch.st | 4 - .../methodProperties.json | 10 - .../SquotMergeTool.class/properties.json | 14 -- .../SquotMergeToolTest.class/README.md | 0 .../instance/applyToWorkingCopy.st | 3 - .../instance/changedArtifactAt.in..st | 3 - .../instance/diffAt.in..st | 4 - .../instance/hasChangesAt.in..st | 3 - .../instance/includesDiffAt.in..st | 3 - .../instance/loadOrderHasChanges.st | 3 - .../instance/mergeWithMetadataConflictAt..st | 20 -- .../instance/newToolOn..st | 5 - .../instance/openToolAndTestOnPatch..st | 6 - .../instance/patchAddingArtifactAt..st | 7 - .../instance/patchChangingArtifactAt..st | 10 - .../patchChangingArtifactMetadataAt..st | 12 - .../patchChangingUnloadedArtifactAt..st | 21 -- ...chModifyingMethodTimestampInArtifactAt..st | 25 -- .../instance/patchRemovingArtifactAt..st | 9 - .../instance/patchWithLoadOrderChange.st | 12 - .../patchWithLoadOrderChangeRegression1.st | 12 - .../instance/patchWithTwoChangedArtifacts.st | 28 --- .../instance/patchWithUnloadedArtifactAt..st | 13 -- .../instance/patchedLoadOrderAfter..st | 3 - ...InteractionTestsOnNode.withPath.inTree..st | 7 - .../instance/resolveArtifactConflict..st | 12 - .../instance/resultDiffAt..st | 3 - .../instance/resultLoadOrder.st | 3 - .../testArtifactMergeWithoutConflicts.st | 29 --- .../instance/testLoadOrderConflicts.st | 62 ----- .../instance/testMetadataConflict.st | 41 ---- ...hodsGetExcludedIfOnlyTheirStampsChanged.st | 8 - .../testResolveArtifactConflictChooseLeft.st | 19 -- .../testResolveArtifactConflictChooseRight.st | 26 --- ...olveArtifactConflictWithIncomingRemoval.st | 20 -- ...testResolveConflictInArtifactChooseLeft.st | 49 ---- ...estResolveConflictInArtifactChooseRight.st | 51 ---- .../testResolveThenResetArtifactConflict.st | 35 --- .../instance/testSmalltalkCodeMerge.st | 100 -------- .../methodProperties.json | 39 ---- .../SquotMergeToolTest.class/properties.json | 14 -- src/Squot.package/SquotMirror.class/README.md | 1 - .../instance/canHaveReferences..st | 4 - .../instance/capture.with.ifReplaced..st | 7 - .../instance/is.comparableTo..st | 4 - .../instance/mirrorForReplacement..st | 4 - .../instance/mirrorOf.reachedVia.from..st | 5 - .../instance/newDiffFrom.to..st | 4 - .../instance/referencesFrom..st | 4 - .../SquotMirror.class/instance/reflect.of..st | 4 - .../instance/reflect.of.put..st | 3 - .../instance/replacementFor.using..st | 4 - .../instance/shouldObjectHaveNameAssigned..st | 4 - .../SquotMirror.class/methodProperties.json | 15 -- .../SquotMirror.class/properties.json | 14 -- src/Squot.package/SquotMock.class/README.md | 0 .../instance/doesNotUnderstand..st | 4 - .../hasReceivedMessageWithSelector..st | 3 - .../SquotMock.class/instance/initialize.st | 3 - .../SquotMock.class/methodProperties.json | 7 - .../SquotMock.class/properties.json | 14 -- .../SquotMockRepository.class/README.md | 1 - .../instance/delete..st | 3 - .../instance/historians.st | 3 - .../initializeStoreInfo.forObject..st | 3 - .../instance/whenInitializingStoreInfoDo..st | 3 - .../methodProperties.json | 8 - .../SquotMockRepository.class/properties.json | 16 -- .../SquotMockStore.class/README.md | 1 - .../instance/add.at.additionalInfo..st | 3 - .../instance/artifacts.st | 9 - .../instance/capture.withMetadata..st | 3 - .../instance/copySettingsFrom.to..st | 3 - .../initializeStoreInfo.forObject..st | 4 - .../instance/loadOrder.st | 3 - .../instance/objectInOwnArtifact..st | 4 - .../SquotMockStore.class/instance/objects.st | 3 - .../instance/supports.forObject..st | 8 - .../whenInitializingStoreInfoFor.do..st | 4 - .../methodProperties.json | 14 -- .../SquotMockStore.class/properties.json | 17 -- .../README.md | 1 - .../instance/isResumable.st | 3 - .../methodProperties.json | 5 - .../properties.json | 14 -- .../SquotMonticelloConverter.class/README.md | 3 - ...OfAllPackagesNamed.asHistorianNamed.in..st | 9 - ...sionOfPackageNamed.asHistorianNamed.in..st | 7 - .../instance/addTemporaryHistorian..st | 4 - .../instance/authorMap..st | 4 - .../instance/authorMap.st | 4 - .../captureSquotPatchFrom.basedOnVersion..st | 10 - .../instance/captureSquotSnapshotFrom..st | 8 - .../instance/cleanUpTemporaryHistorians.st | 6 - ...istoryUpTo.from.asNewHistorianNamed.in..st | 13 -- ...oryUpToAll.from.asNewHistorianNamed.in..st | 33 --- .../instance/convertMonticelloVersion..st | 20 -- ...rtMonticelloVersionWithMissingSnapshot..st | 19 -- ...OfAllPackagesNamed.asHistorianNamed.in..st | 21 -- ...sionOfPackageNamed.asHistorianNamed.in..st | 13 -- .../findAvailableBaseVersionWithInfo..st | 7 - .../instance/initialize.st | 5 - .../instance/mapMonticelloVersion.to..st | 3 - .../squotAuthorForMonticelloAuthor..st | 5 - .../instance/squotPath..st | 4 - .../instance/squotPath.st | 4 - .../squotPathForMonticelloPackage..st | 4 - .../squotVersionForMonticelloVersion..st | 3 - .../squotVersionForMonticelloVersionInfo..st | 3 - .../methodProperties.json | 26 --- .../properties.json | 19 -- .../README.md | 7 - .../instance/assertVersion.containsMethod..st | 9 - .../assertVersion.doesNotContainMethod..st | 9 - .../instance/newRepository.st | 3 - .../instance/performTest.st | 3 - .../instance/setUp.st | 6 - .../instance/testConvertMerge.st | 92 -------- .../instance/testConvertOneVersion.st | 37 --- .../instance/testConvertThreeVersions.st | 67 ------ .../instance/testConvertTwoPackages.st | 75 ------ .../instance/testConvertTwoVersions.st | 63 ----- .../testConvertVersionsWithRemoval.st | 50 ---- .../testDeletionsAgainstMissingVersion.st | 47 ---- .../methodProperties.json | 16 -- .../properties.json | 17 -- .../README.md | 10 - .../verifyVersionsOf.ofLoadedPackageNamed..st | 10 - .../instance/countVersions..st | 10 - .../instance/findPackageIn..st | 8 - .../instance/initialize.st | 5 - .../instance/pushAncestorsOfMCVersionInfo..st | 9 - .../instance/verify..st | 17 -- ...sCorrectConversionsUpTo.whichComesFrom..st | 15 -- .../instance/verify.matches..st | 21 -- .../methodProperties.json | 11 - .../properties.json | 20 -- .../README.md | 0 .../instance/newRepository.st | 3 - .../instance/setUp.st | 7 - .../instance/tearDown.st | 3 - .../instance/testAcceptsCorrectConversion.st | 32 --- ...tsCorrectConversionWithMultipleVersions.st | 56 ----- .../testCanHandleMissingMCVersions.st | 57 ----- .../instance/testDetectsBogusClass.st | 36 --- .../instance/testDetectsBogusMethod.st | 38 --- .../instance/testDetectsBogusTrait.st | 30 --- .../instance/testDetectsMissingClass.st | 36 --- .../instance/testDetectsMissingMethod.st | 33 --- .../instance/testDetectsMissingTrait.st | 30 --- ...testIgnoresEmptyMonticelloTraitComments.st | 30 --- .../methodProperties.json | 17 -- .../properties.json | 19 -- .../README.md | 0 .../instance/packagePath.st | 3 - .../instance/rootNode.st | 9 - .../instance/setUp.st | 18 -- .../instance/tearDown.st | 5 - .../instance/testClassBrowse.st | 14 -- .../instance/testClassDefinitionBrowse.st | 18 -- .../instance/testClassDefinitionTextDiff.st | 12 - .../instance/testClassTextDiff.st | 10 - .../instance/testGrouping.st | 46 ---- .../instance/testMethodDefinitionBrowse.st | 7 - .../instance/testMethodDefinitionTextDiff.st | 8 - .../methodProperties.json | 15 -- .../properties.json | 20 -- .../README.md | 1 - ...en.and.artifact.withMonticelloSnapshot..st | 11 - .../instance/artifactMcSnapshot..st | 4 - .../instance/artifactMcSnapshot.st | 4 - .../instance/mcSnapshot..st | 4 - .../instance/mcSnapshot.st | 4 - .../instance/mcVersion..st | 4 - .../instance/mcVersion.st | 4 - .../instance/packageArtifact..st | 4 - .../instance/packageArtifact.st | 4 - .../instance/squotVersion..st | 4 - .../instance/squotVersion.st | 4 - .../methodProperties.json | 14 -- .../properties.json | 18 -- .../README.md | 0 .../instance/fakeCategory.st | 3 - .../instance/packagePath.st | 3 - .../instance/setUp.st | 19 -- .../instance/tearDown.st | 7 - .../instance/testBrowseTraitDefinition.st | 6 - .../methodProperties.json | 9 - .../properties.json | 14 -- .../SquotMutableObjectGraph.class/README.md | 3 - .../instance/addShadow.of..st | 12 - .../instance/answer.whenAskedForTheNameOf..st | 8 - .../instance/applyDiff.toShadowNamed..st | 3 - .../instance/applyDiff.toStartObjectWith..st | 11 - .../instance/assign.to..st | 5 - .../instance/assign.toShadow..st | 6 - .../instance/creatorOf.ifAbsentPut.of..st | 15 -- .../ifNecessaryAssignNameToShadow..st | 9 - .../instance/mutableCopy.st | 3 - .../instance/nameOf.ifAbsentAssign..st | 13 -- .../instance/refreshStartShadow.st | 3 - .../instance/removeObjectNamed..st | 4 - .../methodProperties.json | 16 -- .../properties.json | 14 -- .../SquotNameDecorator.class/README.md | 4 - .../class/on.withName..st | 9 - .../class/squotMirror.st | 5 - .../instance/^equals.st | 3 - .../instance/decorated.withName..st | 4 - .../instance/hasSquotShadowName.st | 3 - .../SquotNameDecorator.class/instance/hash.st | 3 - .../instance/name..st | 3 - .../SquotNameDecorator.class/instance/name.st | 3 - .../instance/printOn..st | 5 - .../instance/sameIn.withName.ifAbsent..st | 4 - .../methodProperties.json | 13 -- .../SquotNameDecorator.class/properties.json | 14 -- .../SquotNameDecoratorTest.class/README.md | 0 .../instance/testConsistentReflection.st | 8 - .../instance/testYourselfAnswersDecorator.st | 5 - .../methodProperties.json | 6 - .../properties.json | 14 -- .../SquotNoMerge.class/README.md | 1 - .../SquotNoMerge.class/class/of..st | 7 - .../SquotNoMerge.class/instance/conflicts.st | 4 - .../SquotNoMerge.class/instance/hasChanges.st | 3 - .../instance/privateResolvedPatch.st | 4 - .../SquotNoMerge.class/methodProperties.json | 7 - .../SquotNoMerge.class/properties.json | 14 -- .../SquotNoMetadataFileFound.class/README.md | 4 - .../class/for..st | 3 - .../instance/fileOrDirectory..st | 4 - .../instance/fileOrDirectory.st | 4 - .../methodProperties.json | 6 - .../properties.json | 14 -- .../SquotNoProgressOutput.class/README.md | 1 - .../class/displayProgress.during..st | 3 - .../class/displayProgress.for.do..st | 3 - .../class/displayStatus.during..st | 3 - .../class/updateProgress.text..st | 2 - .../methodProperties.json | 8 - .../properties.json | 14 -- .../README.md | 6 - .../instance/add..st | 3 - .../instance/tableOfContents..st | 3 - .../instance/tableOfContents.st | 3 - .../methodProperties.json | 7 - .../properties.json | 14 -- .../SquotObjectAddition.class/README.md | 1 - .../SquotObjectAddition.class/class/of..st | 5 - .../instance/addedObject..st | 4 - .../instance/addedObject.st | 4 - .../instance/applyToShadowNamed.inGraph..st | 5 - .../instance/checkName..st | 4 - .../instance/object.st | 3 - .../instance/printOn..st | 4 - ...eDiffsWithDefaultOwners.reflectedIn.do..st | 10 - .../instance/squotChangeAsStringOrText.st | 3 - .../instance/squotHasChanges.st | 3 - .../methodProperties.json | 13 -- .../SquotObjectAddition.class/properties.json | 16 -- .../README.md | 1 - .../class/left.right..st | 6 - .../class/working.incoming..st | 5 - .../instance/chooseIncoming.st | 3 - .../initializeSquotDiffNodes.with..st | 9 - .../instance/left.right..st | 7 - .../instance/newSquotDiffNodes.st | 3 - .../instance/setWorking.incoming..st | 6 - .../instance/squotChangeAsStringOrText.st | 4 - .../methodProperties.json | 11 - .../properties.json | 14 -- .../SquotObjectCaptureTest.class/README.md | 1 - .../instance/setUp.st | 3 - .../instance/testArrayOfIntegers.st | 8 - .../instance/testBooleans.st | 7 - .../testCaptureAgainProducesEqualGraph.st | 7 - .../instance/testCompiledMethod.st | 8 - .../instance/testCyclicReferences.st | 8 - .../instance/testCyclicReferences2.st | 10 - .../testDictionariesWithComplexKeys.st | 13 -- .../testDictionariesWithSharedAssociations.st | 11 - .../instance/testDictionary.st | 4 - .../instance/testEmptyObject.st | 6 - .../instance/testIdentityReplacedObject.st | 6 - .../instance/testNil.st | 5 - .../instance/testNoNamesForPrimitiveValues.st | 6 - .../instance/testPackageInfo.st | 7 - .../instance/testPackageInfoIndirect.st | 7 - .../instance/testPoint.st | 7 - .../instance/testRectangle.st | 11 - .../instance/testReplacedObject2.st | 12 - .../instance/testSet.st | 7 - .../instance/testString.st | 7 - .../instance/testSymbol.st | 6 - .../methodProperties.json | 26 --- .../properties.json | 14 -- .../SquotObjectCapturer.class/README.md | 18 -- .../instance/beginCapturingFrom..st | 19 -- .../instance/capture.as..st | 15 -- ...flectedIn.intoValueOf.from.reflectedIn..st | 18 -- .../instance/capture.asValueOfSlot..st | 23 -- .../instance/capture.reflectedIn..st | 17 -- .../instance/captureBits..st | 4 - .../instance/captureGraph..st | 3 - .../instance/capturePrimitiveValue..st | 4 - .../instance/capturePrimitiveValue.in..st | 4 - .../instance/captureStandalone..st | 3 - .../instance/followReferences.st | 5 - .../instance/initialize.st | 9 - .../instance/insideASegment.st | 3 - .../instance/nameOf..st | 3 - .../instance/nameOf.ifAbsent..st | 3 - .../instance/newNameFor..st | 9 - .../instance/newNameFor.reachedFrom.via..st | 8 - .../instance/objectGraph.st | 4 - .../instance/project.st | 3 - .../instance/projectChangeSet.st | 3 - .../instance/registry..st | 3 - .../rememberAsShadowOfCapturedObject..st | 13 -- .../instance/replace.with..st | 5 - .../replacementForSlot.in.ifFound.ifNone..st | 12 - .../instance/rootName.st | 3 - .../instance/shadowOf.ifAbsentPut..st | 9 - .../instance/squotReplacementFor..st | 6 - .../methodProperties.json | 31 --- .../SquotObjectCapturer.class/properties.json | 25 -- .../SquotObjectConflictMock.class/README.md | 0 .../class/on..st | 5 - .../instance/object..st | 4 - .../instance/object.st | 4 - .../methodProperties.json | 6 - .../properties.json | 14 -- .../SquotObjectDiff.class/README.md | 13 -- .../class/left.right..st | 5 - .../instance/addReferenceDiff..st | 3 - .../instance/addSlotOnlyRight..st | 3 - .../instance/addSlotOnlyRight.with..st | 3 - .../instance/addTransitiveChangeIn..st | 5 - .../instance/applyTo..st | 4 - .../instance/applyTo.with..st | 4 - .../instance/diff.against..st | 8 - .../instance/diff.against.with..st | 6 - .../diffSlot.withCorrespondingSlotIn..st | 9 - .../instance/initialize.st | 4 - .../instance/initializeFrom.to..st | 5 - .../initializeSquotDiffNodes.with..st | 4 - .../instance/inspectorClass.st | 3 - .../instance/newSquotDiffNodes.st | 3 - .../instance/postCopy.st | 3 - .../instance/printOn..st | 4 - ...eDiffsWithDefaultOwners.reflectedIn.do..st | 6 - .../instance/slotChanges.st | 3 - .../instance/squotApplyTo..st | 5 - .../instance/squotApplyTo.with..st | 5 - .../instance/squotApplyToLoaded..st | 5 - .../instance/squotChangeAsStringOrText.st | 9 - .../instance/squotHasChanges.st | 3 - .../methodProperties.json | 27 --- .../SquotObjectDiff.class/properties.json | 18 -- .../SquotObjectDiffInspector.class/README.md | 0 .../instance/fieldForReferenceDiff..st | 6 - .../instance/streamFieldsOn..st | 5 - .../methodProperties.json | 6 - .../properties.json | 14 -- .../SquotObjectDiffMock.class/README.md | 0 .../instance/asSquotConflicts.st | 3 - .../instance/conflicts..st | 3 - .../methodProperties.json | 6 - .../SquotObjectDiffMock.class/properties.json | 14 -- .../SquotObjectDiffTest.class/README.md | 1 - .../assertDiffAgainstItselfHasNoChanges..st | 8 - .../instance/diff.against..st | 8 - .../instance/diff.againstItselfAfter..st | 7 - .../instance/expectedFailures.st | 3 - .../instance/setUp.st | 5 - .../instance/testAddObjects.st | 7 - .../testArrayOfDifferentlyTypedObjects.st | 15 -- .../instance/testArrayOfIntegers.st | 32 --- .../instance/testBooleans.st | 6 - .../instance/testByteArray.st | 18 -- .../instance/testDictionary.st | 19 -- .../instance/testEmptyObjects.st | 5 - .../instance/testEqualRectangles.st | 8 - .../instance/testObjects.st | 18 -- .../instance/testPoints.st | 10 - .../instance/testRectangles.st | 16 -- .../instance/testReferenceSwap.st | 10 - .../instance/testSet.st | 16 -- .../instance/testSmallIntegers.st | 4 - .../methodProperties.json | 23 -- .../SquotObjectDiffTest.class/properties.json | 15 -- .../SquotObjectForDiffTests.class/README.md | 1 - .../instance/^equals.st | 3 - .../instance/hash.st | 3 - .../instance/var1..st | 3 - .../instance/var1.st | 3 - .../instance/var2..st | 3 - .../instance/var2.st | 3 - .../methodProperties.json | 10 - .../properties.json | 15 -- .../SquotObjectGraph.class/README.md | 4 - .../instance/anyObjectSatisfy..st | 3 - .../instance/asShadowGraph.st | 3 - .../instance/evictObjectNames.st | 4 - .../instance/hasObjects.st | 3 - .../instance/includes..st | 3 - .../instance/includesObjectNamed..st | 3 - .../instance/initialize.st | 4 - .../instance/objectNamed..st | 6 - .../instance/objectNamed.ifAbsent..st | 3 - .../instance/postCopy.st | 4 - .../SquotObjectGraph.class/instance/roots.st | 7 - .../instance/startObject.st | 3 - .../methodProperties.json | 16 -- .../SquotObjectGraph.class/properties.json | 14 -- .../SquotObjectGraphDiff.class/README.md | 6 - .../instance/addDiff.forObjectNamed..st | 3 - .../instance/addModificationsAsConflicts..st | 8 - .../instance/addShadow.named..st | 4 - .../instance/asSquotHierarchicalDiff.st | 7 - .../instance/asStartDiff.st | 4 - .../instance/diffForObjectNamed..st | 3 - .../instance/diffForObjectNamed.ifAbsent..st | 3 - .../instance/diffs.st | 3 - .../instance/diffsDo..st | 3 - .../instance/diffsWithNamesDo..st | 3 - .../instance/hasChanges.st | 3 - .../instance/initialize.st | 4 - .../initializeSquotDiffNodes.with..st | 3 - .../instance/left..st | 3 - .../instance/left.st | 3 - .../instance/modifications.st | 3 - .../instance/newSquotDiffNodes.st | 3 - .../instance/postCopy.st | 4 - .../instance/printOn..st | 6 - .../instance/right..st | 3 - .../instance/right.st | 3 - .../instance/roots.st | 3 - .../instance/squotApplyTo..st | 15 -- .../instance/squotApplyToLoaded..st | 8 - .../instance/squotChangeAsStringOrText.st | 4 - .../instance/squotHasChanges.st | 3 - .../instance/startDiff.st | 9 - .../instance/startObjectName..st | 3 - .../instance/startObjectName.st | 3 - .../methodProperties.json | 33 --- .../properties.json | 20 -- .../README.md | 1 - .../class/for..st | 5 - ...eDiffsWithDefaultOwners.reflectedIn.do..st | 13 -- .../instance/setGraphDiff..st | 3 - .../methodProperties.json | 6 - .../properties.json | 16 -- .../README.md | 1 - ...edIn.rightOwner.reflectedIn.objectDiff..st | 10 - .../instance/isAddition.st | 3 - .../instance/isModification.st | 3 - .../instance/isRemoval.st | 3 - .../instance/leftOwnerMirror..st | 3 - .../instance/leftOwnerMirror.st | 3 - .../instance/objectDiff..st | 3 - .../instance/objectDiff.st | 3 - .../instance/printOn..st | 11 - .../instance/rightOwnerMirror..st | 3 - .../instance/rightOwnerMirror.st | 3 - ...rightOwner.rightOwnerMirror.objectDiff..st | 7 - .../instance/squotReflectOn.in..st | 5 - .../instance/squotReflectOn.in.withValue..st | 5 - .../squotValueShadowFrom.reflectedIn..st | 5 - .../methodProperties.json | 18 -- .../properties.json | 16 -- .../README.md | 1 - .../instance/squotReflectOn.in.withValue..st | 7 - .../methodProperties.json | 5 - .../properties.json | 14 -- .../SquotObjectGraphDiffTest.class/README.md | 1 - .../assertDiffAgainstItselfHasNoChanges..st | 8 - .../instance/diff.against..st | 8 - .../instance/diff.againstItselfAfter..st | 7 - .../instance/setUp.st | 5 - .../instance/testAddObjects.st | 7 - .../instance/testAddSubgraph.st | 7 - .../testArrayOfDifferentlyTypedObjects.st | 15 -- .../instance/testArrayOfIntegers.st | 29 --- .../instance/testByteArray.st | 17 -- .../instance/testCyclicReferences.st | 14 -- .../instance/testDeepChanges.st | 9 - .../instance/testDeepChanges2.st | 9 - .../instance/testDeepChanges3.st | 12 - .../testDictionariesWithComplexKeys.st | 20 -- .../testDictionariesWithSharedAssociations.st | 20 -- .../instance/testDictionary.st | 16 -- .../instance/testIdentityReplacedObject.st | 10 - .../instance/testMoveObjectCloserToStart.st | 11 - .../instance/testObjects.st | 21 -- .../instance/testRectangles.st | 12 - .../instance/testReferenceSwap.st | 12 - .../instance/testReplacedObject.st | 8 - .../instance/testReplacedObject2.st | 8 - .../instance/testSet.st | 14 -- .../methodProperties.json | 28 --- .../properties.json | 15 -- .../SquotObjectGraphMerge.class/README.md | 1 - .../instance/addConflict..st | 3 - .../instance/asSquotHierarchicalDiff.st | 7 - .../instance/chooseIncoming.st | 4 - .../instance/chooseWorking.st | 4 - .../instance/computeDifferences.st | 17 -- .../instance/diffs.st | 4 - .../instance/initialize.st | 4 - .../initializeSquotDiffNodes.with..st | 5 - .../instance/keyOf.ifAbsent..st | 7 - .../instance/mergeAt..st | 3 - .../instance/mergeObject.with.basedOn..st | 30 --- .../instance/mergeOfStartObject.st | 3 - .../instance/mergeStartReferencesToStart..st | 28 --- .../instance/modifications.st | 4 - .../instance/newSquotDiffNodes.st | 11 - .../instance/privateResolvedPatch.st | 22 -- .../instance/resetChoice.st | 4 - .../instance/show.nextAfter..st | 26 --- .../instance/squotChangeAsStringOrText.st | 18 -- .../instance/working..st | 4 - .../methodProperties.json | 24 -- .../properties.json | 14 -- .../SquotObjectGraphMergeTest.class/README.md | 0 .../instance/testResolvedPatchHasStates.st | 22 -- .../methodProperties.json | 5 - .../properties.json | 14 -- .../SquotObjectGraphMirror.class/README.md | 1 - .../class/initialize.st | 4 - .../instance/defaultMirrorOf..st | 4 - .../instance/mirrorOf.reachedVia.from..st | 15 -- .../instance/referencesFrom..st | 3 - .../reflectGraphElementWithName.in..st | 3 - .../instance/search.for..st | 23 -- .../methodProperties.json | 9 - .../properties.json | 14 -- .../SquotObjectGraphReference.class/README.md | 1 - .../class/diff.objectName..st | 5 - .../instance/newNameFragment.st | 5 - .../instance/objectDiff..st | 3 - .../instance/objectDiff.st | 3 - .../instance/objectName..st | 3 - .../instance/objectName.st | 3 - .../instance/reflect.in..st | 3 - .../instance/reflect.in.put..st | 9 - .../instance/setDiff.objectName..st | 4 - .../methodProperties.json | 12 - .../properties.json | 15 -- .../README.md | 1 - .../instance/captureAndRestore..st | 6 - ...tureInValueHolderThenRestoreAndCompare..st | 8 - .../instance/captureRestoreAndCompare..st | 7 - .../instance/setUp.st | 6 - .../instance/testArrayOfIntegers.st | 3 - .../instance/testBooleans.st | 4 - .../instance/testCyclicReferences.st | 9 - .../instance/testCyclicReferences2.st | 12 - .../testDictionariesWithComplexKeys.st | 7 - .../testDictionariesWithSharedAssociations.st | 8 - .../instance/testDictionary.st | 8 - .../instance/testEmptyObject.st | 5 - .../instance/testIdentityDictionaries.st | 7 - .../instance/testIdentityReplacedObject.st | 5 - .../instance/testIdentitySet.st | 8 - .../instance/testNil.st | 3 - .../instance/testPoint.st | 3 - .../instance/testRectangle.st | 3 - .../instance/testReplacedObject2.st | 7 - .../instance/testSet.st | 9 - .../instance/testSetHashing.st | 10 - .../methodProperties.json | 25 -- .../properties.json | 16 -- .../README.md | 1 - .../instance/setUp.st | 7 - .../instance/testSameReferencedInstance.st | 12 - .../methodProperties.json | 6 - .../properties.json | 16 -- .../SquotObjectMergeMock.class/README.md | 0 .../instance/hasChanges..st | 4 - .../instance/hasChanges.st | 3 - .../instance/hasConflicts..st | 4 - .../instance/hasConflicts.st | 4 - .../instance/object..st | 4 - .../instance/object.st | 4 - .../methodProperties.json | 10 - .../properties.json | 16 -- .../SquotObjectMetadataFile.class/README.md | 5 - .../class/forObjectAt..st | 7 - .../class/metadataFileName.st | 3 - .../class/on..st | 5 - .../referenceToMetadataFileForDirectory..st | 5 - .../class/referenceToMetadataFileForFile..st | 7 - .../instance/applyTo..st | 10 - .../instance/artifactClass.st | 5 - .../instance/delete.st | 3 - .../instance/errorNotFound..st | 3 - .../instance/initializeWith..st | 3 - .../instance/isPresent.st | 3 - .../instance/metadata.st | 8 - .../instance/metadataFile.st | 3 - .../instance/objectClassName.st | 3 - .../instance/serializerName.st | 3 - .../instance/updateFrom..st | 4 - .../methodProperties.json | 19 -- .../properties.json | 15 -- .../SquotObjectMirror.class/README.md | 0 .../SquotObjectMirror.class/class/class..st | 3 - .../instance/^equals.st | 9 - .../instance/canHaveReferences..st | 9 - .../instance/capture.with.ifReplaced..st | 18 -- .../SquotObjectMirror.class/instance/hash.st | 5 - .../instance/initializeSnapshot.of.with..st | 11 - .../instance/is.comparableTo..st | 3 - .../instance/newDiffFrom.to..st | 5 - .../instance/newShadowObject.st | 3 - .../instance/printOn..st | 4 - .../instance/referencesFrom..st | 6 - .../instance/reflectIndexableField.in..st | 3 - .../instance/reflectIndexableField.in.put..st | 4 - .../instance/reflectInstanceVariable.in..st | 3 - .../reflectInstanceVariable.in.put..st | 3 - .../instance/setClass..st | 3 - .../instance/shadowFactory.st | 6 - .../instance/shouldObjectHaveNameAssigned..st | 4 - .../instance/theClass.st | 3 - .../methodProperties.json | 22 -- .../SquotObjectMirror.class/properties.json | 14 -- .../SquotObjectPatchingTest.class/README.md | 6 - .../instance/apply.to..st | 6 - .../instance/patch.to..st | 10 - .../instance/patchedFrom.to..st | 11 - .../instance/setUp.st | 7 - .../testAddObjectThatRefersToExisting.st | 14 -- .../instance/testAddObjects.st | 12 - .../instance/testAddSubgraph.st | 13 -- .../instance/testAddSubgraph2.st | 14 -- .../instance/testArrayGrow.st | 6 - .../instance/testArrayShrink.st | 6 - .../instance/testArraySwap.st | 11 - .../instance/testCyclicReferences.st | 20 -- .../instance/testCyclicReferences2.st | 30 --- .../instance/testDictionary.st | 24 -- .../instance/testNestedArray.st | 7 - .../instance/testRemoveComplexValueObject.st | 15 -- .../instance/testReplacedObject.st | 13 -- .../instance/testReplacedObject2.st | 8 - .../instance/testSet.st | 20 -- .../instance/testTypeChange.st | 8 - .../instance/testUnchangedObjectsAreKept.st | 9 - .../methodProperties.json | 25 -- .../properties.json | 17 -- .../README.md | 1 - .../class/key.base.working.incoming..st | 5 - .../instance/chooseIncoming.st | 3 - .../instance/squotChangeAsStringOrText.st | 4 - .../methodProperties.json | 6 - .../properties.json | 14 -- .../README.md | 1 - .../instance/graph..st | 3 - .../instance/graph.st | 3 - .../instance/inGraph..st | 3 - .../instance/squotOutgoingReferences.st | 3 - .../methodProperties.json | 8 - .../properties.json | 15 -- .../SquotObjectReflection.class/README.md | 1 - .../class/object.mirror..st | 5 - .../instance/canHaveReferences.st | 3 - .../instance/isComparableTo..st | 4 - .../instance/mirror.st | 3 - .../instance/nextMirror..st | 3 - .../instance/object.st | 3 - .../instance/printOn..st | 7 - .../instance/references.st | 3 - .../instance/reflect..st | 3 - .../instance/setMirror.object..st | 4 - .../methodProperties.json | 13 -- .../properties.json | 16 -- .../SquotObjectRegistry.class/README.md | 4 - .../class/squotMirror.st | 3 - .../instance/anySatisfy..st | 3 - .../instance/assign.to..st | 3 - .../instance/creatorOf.ifAbsentPut.of..st | 3 - .../instance/initialize.st | 3 - .../instance/nameOf..st | 3 - .../instance/nameOf.ifAbsent..st | 3 - .../instance/nameOf.ifAbsentAssign..st | 3 - .../instance/objectNamed..st | 3 - .../instance/objectNamed.ifAbsent..st | 3 - .../methodProperties.json | 13 -- .../SquotObjectRegistry.class/properties.json | 14 -- .../SquotObjectRegistryMirror.class/README.md | 1 - .../instance/canHaveReferences..st | 5 - .../instance/capture.with.ifReplaced..st | 9 - .../instance/is.comparableTo..st | 5 - .../instance/newDiffFrom.to..st | 5 - .../instance/referencesFrom..st | 5 - .../reflectGraphElementWithName.in..st | 3 - .../methodProperties.json | 10 - .../properties.json | 14 -- .../SquotObjectRegistryTest.class/README.md | 0 .../instance/setUp.st | 3 - ...sNotInheritNameOfGarbageCollectedObject.st | 12 - .../methodProperties.json | 6 - .../properties.json | 14 -- .../SquotObjectRemoval.class/README.md | 0 .../SquotObjectRemoval.class/class/of..st | 3 - .../instance/applyToShadowNamed.inGraph..st | 5 - .../instance/object.st | 3 - .../instance/setObject..st | 3 - .../instance/squotApplyTo..st | 4 - .../instance/squotChangeAsStringOrText.st | 3 - .../methodProperties.json | 9 - .../SquotObjectRemoval.class/properties.json | 16 -- .../SquotObjectReplacement.class/README.md | 5 - .../class/left.right..st | 3 - .../instance/addReferenceDiff..st | 3 - .../instance/addTransitiveChangeIn..st | 3 - .../instance/applyToShadowNamed.inGraph..st | 11 - .../instance/asSquotConflicts.st | 4 - .../instance/incoming.st | 3 - .../instance/initializeFrom.to..st | 3 - .../initializeSquotDiffNodes.with..st | 3 - .../instance/left..st | 3 - .../instance/left.st | 3 - .../instance/newSquotDiffNodes.st | 3 - .../instance/object.st | 3 - ...eDiffsWithDefaultOwners.reflectedIn.do..st | 15 -- .../instance/right..st | 3 - .../instance/right.st | 3 - .../instance/rightName.st | 3 - .../instance/squotApplyTo..st | 5 - .../instance/squotApplyTo.with..st | 5 - .../instance/squotApplyToLoaded..st | 3 - .../instance/squotChangeAsStringOrText.st | 6 - .../instance/squotHasChanges.st | 4 - .../methodProperties.json | 24 -- .../properties.json | 17 -- .../SquotObjectShadow.class/README.md | 15 -- .../class/squotMirror.st | 3 - .../addInstVarNamed.withValue.with..st | 6 - .../instance/addInstVarSlot..st | 3 - .../instance/addVariablePartSlot..st | 3 - .../addVariableSlotAt.withValue.with..st | 6 - .../instance/applyDiff..st | 3 - .../instance/applyDiff.with..st | 3 - .../instance/assumeOriginalClassOf..st | 3 - .../basicSizeOfMaterializedInstance.st | 3 - .../instance/captureWithSquot..st | 4 - .../instance/capturedClass.st | 3 - .../instance/diffClass.st | 3 - .../instance/diffToBaseObjectShadow..st | 4 - .../instance/explorerContents.st | 7 - .../instance/hasContentsInExplorer.st | 4 - .../instance/includesSlot..st | 3 - .../instance/initialize.st | 3 - .../instance/initializeFrom.with..st | 6 - .../instance/instVarSlotNamed..st | 3 - .../SquotObjectShadow.class/instance/name.st | 5 - .../instance/originalClass.st | 3 - .../instance/postCopy.st | 3 - .../instance/printOn..st | 3 - .../instance/privateApplyDiff..st | 3 - .../instance/privateApplyDiff.with..st | 3 - .../instance/reassignSlot.to..st | 5 - .../instance/references.st | 3 - .../instance/removeInstVarNamed..st | 4 - .../instance/removeVariablePartSlot..st | 3 - .../instance/sameIn.withName.ifAbsent..st | 3 - .../setOriginalClass.capturedClass..st | 4 - .../SquotObjectShadow.class/instance/slots.st | 3 - .../instance/squotDiffAgainst..st | 4 - .../instance/squotDiffAgainst.with..st | 7 - .../instance/squotMaterializeWith..st | 6 - .../instance/squotMergeWith.basedOn..st | 6 - .../instance/squotOutgoingReferences.st | 3 - .../instance/variablePartSlotWithIndex..st | 3 - .../instance/variableSlots.st | 3 - .../methodProperties.json | 42 ---- .../SquotObjectShadow.class/properties.json | 18 -- .../SquotObjectShadowMerge.class/README.md | 1 - .../instance/chooseIncoming.st | 4 - .../instance/chooseWorking.st | 4 - .../instance/computeDifferences.st | 46 ---- .../instance/hasChanges.st | 4 - .../initializeSquotDiffNodes.with..st | 4 - .../instance/newSquotDiffNodes.st | 42 ---- .../instance/printOn..st | 6 - .../instance/privateResolvedPatch.st | 10 - .../instance/squotChangeAsStringOrText.st | 20 -- .../methodProperties.json | 13 -- .../properties.json | 14 -- .../SquotObjectShadowMirror.class/README.md | 0 .../class/class..st | 3 - .../instance/^equals.st | 9 - .../instance/canHaveReferences..st | 8 - .../instance/capture.with.ifReplaced..st | 3 - ...eReferences.from.reflectedIn.into.with..st | 14 -- .../instance/hash.st | 5 - .../instance/is.comparableTo..st | 3 - .../instance/newDiffFrom.to..st | 3 - .../instance/newShadowObject.st | 4 - .../instance/referencesFrom..st | 3 - .../instance/reflectIndexableField.in..st | 3 - .../instance/reflectIndexableField.in.put..st | 4 - .../instance/reflectInstanceVariable.in..st | 3 - .../reflectInstanceVariable.in.put..st | 4 - .../instance/shouldObjectHaveNameAssigned..st | 4 - .../methodProperties.json | 18 -- .../properties.json | 14 -- .../SquotOpaqueValueMirror.class/README.md | 0 .../instance/^equals.st | 3 - .../instance/canHaveReferences..st | 3 - .../instance/capture.with.ifReplaced..st | 3 - .../instance/hash.st | 3 - .../instance/is.comparableTo..st | 3 - .../instance/newDiffFrom.to..st | 4 - .../instance/referencesFrom..st | 4 - .../instance/shouldObjectHaveNameAssigned..st | 4 - .../methodProperties.json | 12 - .../properties.json | 14 -- .../README.md | 1 - .../instance/initializePackage.st | 5 - .../instance/packagePath.st | 4 - .../instance/savePackage.st | 4 - .../instance/savePackageAndKeep.st | 6 - .../instance/setUp.st | 5 - .../instance/tearDown.st | 4 - .../testPackageTrackedAutomaticallyOnLoad.st | 24 -- ...DoesNotDiscardChangesToUntrackedPackage.st | 20 -- ...DoesNotDiscardChangesToUntrackedPackage.st | 28 --- .../instance/trackPackage.st | 4 - .../methodProperties.json | 14 -- .../properties.json | 19 -- .../SquotPackageDiff.class/README.md | 3 - .../left.withSnapshot.right.withSnapshot..st | 7 - .../class/modificationsGroupedByClass..st | 26 --- .../instance/addOperationOrConflict..st | 4 - .../instance/asSquotConflicts.st | 7 - .../SquotPackageDiff.class/instance/base.st | 3 - .../instance/incoming..st | 3 - .../instance/incoming.st | 3 - .../instance/initializeFrom.to..st | 3 - .../initializeSquotDiffNodes.with..st | 3 - .../left.withSnapshot.right.withSnapshot..st | 6 - .../instance/newSquotDiffNodes.st | 3 - .../SquotPackageDiff.class/instance/object.st | 3 - .../instance/operations.st | 3 - .../instance/operationsAndConflicts.st | 3 - .../instance/packageName.st | 3 - .../SquotPackageDiff.class/instance/patch.st | 3 - .../instance/postCopy.st | 3 - .../instance/removeOperationOrConflict..st | 4 - .../instance/squotApplyTo..st | 6 - .../instance/squotApplyTo.with..st | 4 - .../instance/squotApplyToLoaded..st | 5 - .../instance/squotChangeAsStringOrText.st | 13 -- .../instance/squotHasChanges.st | 3 - ...ectedIn.asMaterializedFrom.reflectedIn..st | 3 - .../instance/working..st | 3 - .../instance/working.st | 3 - .../methodProperties.json | 29 --- .../SquotPackageDiff.class/properties.json | 19 -- .../README.md | 1 - .../actualClassInSquotWorkingCopy..st | 4 - .../browseFromSquotWorkingCopyArtifact..st | 25 -- .../instance/classDefinition..st | 3 - .../instance/classDefinition.st | 3 - .../instance/className..st | 4 - .../instance/className.st | 3 - .../instance/classShadowFromArtifact..st | 7 - .../instance/conflicts..st | 3 - .../instance/conflicts.st | 3 - .../instance/diffTreeNode..st | 4 - .../instance/diffTreeNode.st | 4 - .../instance/ignoreInSquot.st | 3 - .../instance/isCurrentlyIgnoredInSquot.st | 3 - .../instance/left.st | 3 - .../instance/operations..st | 3 - .../instance/operations.st | 3 - .../instance/right.st | 6 - .../squotAddDiffNodeMenuItems.for..st | 5 - .../instance/squotChangeAsStringOrText.st | 4 - .../instance/squotToolsDiffNodeContent.st | 4 - .../instance/unignoreInSquot.st | 3 - .../methodProperties.json | 25 -- .../properties.json | 18 -- .../README.md | 0 .../instance/addOperationOrConflict..st | 4 - .../instance/buildNodes.st | 7 - .../classDefOperationOrConflictFor..st | 13 -- .../instance/classSuffix..st | 12 - .../instance/compareClassNodes.and..st | 3 - ...ateNodeForClass.operationsAndConflicts..st | 36 --- ...rDefinitionType.operationsAndConflicts..st | 8 - .../extensionPseudoClassDefinition.st | 8 - .../instance/hoistClassDefinition..st | 9 - .../instance/initialize.st | 5 - .../instance/nodeFor..st | 18 -- .../instance/topNodesForDiff..st | 3 - .../instance/topNodesForMerge..st | 5 - .../methodProperties.json | 17 -- .../properties.json | 17 -- .../README.md | 0 .../testClassDefinitionDiffHoistedToTop.st | 49 ---- ...nitionDiffHoistedToTopWithClassConflict.st | 63 ----- ...itionDiffHoistedToTopWithMethodConflict.st | 50 ---- .../testClassesOrderedLexicograhically.st | 63 ----- .../instance/testMetaclassNodeSuffix.st | 46 ---- .../methodProperties.json | 9 - .../properties.json | 14 -- .../SquotPackageInfoExtension.class/README.md | 1 - .../class/at.ifAbsent..st | 8 - .../class/initialize.st | 3 - .../class/of..st | 3 - .../instance/tonelProperties..st | 3 - .../instance/tonelProperties.st | 3 - .../methodProperties.json | 8 - .../properties.json | 15 -- .../SquotPackageLoadTest.class/README.md | 0 .../instance/capturePackage.st | 4 - .../instance/changeLogSuppressor.st | 3 - .../instance/checkRestoredPackage.st | 4 - .../instance/setUp.st | 8 - .../instance/tearDown.st | 4 - .../instance/testLoadedAndTracked.st | 6 - .../instance/testLoadedAndUntracked.st | 7 - .../instance/testUnloaded.st | 8 - .../instance/unloadPackage.st | 5 - .../instance/untrackPackage.st | 3 - .../methodProperties.json | 14 -- .../properties.json | 23 -- .../SquotPackageMerge.class/README.md | 1 - ....incoming.base.modifications.conflicts..st | 9 - .../instance/addOperationOrConflict..st | 5 - .../instance/chooseIncoming.st | 3 - .../instance/chooseWorking.st | 3 - .../instance/computeDifferences.st | 8 - .../instance/hasChanges.st | 4 - .../initializeSquotDiffNodes.with..st | 3 - .../instance/keyOf.ifAbsent..st | 3 - .../instance/modifications.st | 3 - .../instance/newSquotDiffNodes.st | 3 - .../instance/operationsAndConflicts.st | 3 - .../instance/privateResolvedPatch.st | 7 - .../instance/removeOperationOrConflict..st | 5 - .../instance/resetChoice.st | 3 - ....incoming.base.modifications.conflicts..st | 9 - .../instance/squotChangeAsStringOrText.st | 21 -- .../methodProperties.json | 19 -- .../SquotPackageMerge.class/properties.json | 14 -- .../README.md | 0 .../testArtifactModifcationRemovalConflict.st | 26 --- .../testArtifactParallelAdditionConflict.st | 26 --- .../testArtifactRemovalModifcationConflict.st | 26 --- .../methodProperties.json | 7 - .../properties.json | 16 -- .../SquotPackageMergeTest.class/README.md | 0 .../instance/testParallelAddition.st | 40 ---- .../methodProperties.json | 5 - .../properties.json | 14 -- .../SquotPackageMirror.class/README.md | 0 .../instance/capture.with.ifReplaced..st | 15 -- .../instance/environmentInMetadata..st | 4 - .../instance/newShadowObject.st | 3 - .../instance/referencesFrom..st | 5 - .../instance/shouldObjectHaveNameAssigned..st | 4 - .../methodProperties.json | 9 - .../SquotPackageMirror.class/properties.json | 14 -- .../SquotPackageShadow.class/README.md | 3 - .../class/forPackageNamed.withSnapshot..st | 5 - ...kageNamed.withSnapshot.tonelProperties..st | 5 - .../class/newNotEmpty.st | 3 - .../class/squotMirror.st | 3 - .../class/squotPreferredSerializer.st | 3 - .../instance/^equals.st | 4 - .../instance/asMCSnapshot.st | 3 - .../instance/browse.st | 3 - .../instance/copyWithSnapshot..st | 7 - .../copyWithSnapshot.tonelProperties..st | 7 - .../instance/definitions.st | 3 - .../instance/diffToBase.withSnapshot..st | 5 - .../instance/diffToSnapshot..st | 3 - .../SquotPackageShadow.class/instance/hash.st | 3 - .../instance/initialize.st | 5 - .../instance/mergeSnapshot.basedOn..st | 3 - .../instance/mergeSnapshot.into..st | 7 - .../instance/mergeSnapshotInto.basedOn..st | 3 - .../instance/monticelloPatcher.st | 3 - .../instance/packageName.st | 3 - .../instance/printOn..st | 6 - .../instance/sameIn.withName.ifAbsent..st | 11 - ...etPackageName.snapshot.tonelProperties..st | 6 - .../instance/snapshot..st | 3 - .../instance/squotDiffAgainst..st | 3 - .../instance/squotDiffAgainst.with..st | 6 - .../instance/squotMaterializeWith..st | 13 -- .../instance/squotMergeWith.basedOn..st | 6 - .../instance/squotOutgoingReferences.st | 4 - .../instance/squotPreferredSerializer.st | 3 - .../instance/squotRewritePath.with..st | 4 - .../instance/squotWrite.asTonelWith..st | 7 - .../instance/squotWrite.with..st | 3 - .../instance/tonelProperties.st | 3 - .../methodProperties.json | 37 --- .../SquotPackageShadow.class/properties.json | 18 -- .../SquotPackageShadowMirror.class/README.md | 0 .../instance/capture.with.ifReplaced..st | 3 - .../instance/newDiffFrom.to..st | 3 - .../instance/referencesFrom..st | 3 - .../instance/shouldObjectHaveNameAssigned..st | 4 - .../methodProperties.json | 8 - .../properties.json | 14 -- .../SquotPackageTrackingTest.class/README.md | 0 .../instance/testDefaultEnvironment.st | 13 -- .../instance/testEnvironmentAccessors.st | 14 -- .../methodProperties.json | 6 - .../properties.json | 14 -- src/Squot.package/SquotPatch.class/README.md | 2 - .../SquotPatch.class/class/builder.st | 3 - .../SquotPatch.class/class/noChangesTo..st | 3 - .../SquotPatch.class/instance/applyTo..st | 3 - .../instance/applyTo.displayingProgress..st | 6 - .../instance/applyToLoadOrder..st | 4 - .../SquotPatch.class/instance/artifacts.st | 4 - .../SquotPatch.class/instance/base.st | 3 - .../SquotPatch.class/instance/browse.st | 3 - .../instance/commonPathsWith..st | 3 - .../SquotPatch.class/instance/copy.st | 4 - .../instance/createNewBuilder.st | 8 - .../SquotPatch.class/instance/diffAt..st | 3 - .../SquotPatch.class/instance/diffs.st | 3 - .../SquotPatch.class/instance/diffsDo..st | 7 - .../SquotPatch.class/instance/hasChanges.st | 3 - .../instance/hasLoadOrderChanges.st | 3 - .../instance/includesDiffAt..st | 3 - .../SquotPatch.class/instance/initialize.st | 4 - .../instance/initializeFrom.to.withDiffs..st | 5 - .../instance/initializeWith..st | 3 - .../instance/loadOrderDiff..st | 3 - .../instance/loadOrderDiff.st | 3 - .../SquotPatch.class/instance/patched.st | 3 - .../instance/patchedLoadOrder.st | 3 - .../SquotPatch.class/instance/paths.st | 3 - .../SquotPatch.class/instance/printOn..st | 7 - .../instance/privateApplyTo.diffsDoing..st | 26 --- .../SquotPatch.class/methodProperties.json | 30 --- .../SquotPatch.class/properties.json | 17 -- .../SquotPatchBuilder.class/README.md | 6 - .../instance/addArtifact..st | 4 - .../instance/addDiff..st | 15 -- .../instance/addLoadOrderDiffTreeTo..st | 7 - .../instance/buildPatch.st | 12 - .../instance/computeDifferences.st | 6 - .../instance/computeDiffsForNewArtifacts.st | 7 - .../instance/computeDiffsFromLeftToRight.st | 9 - .../instance/diff.against..st | 4 - .../instance/diffAt..st | 3 - .../instance/diffPath.from.to..st | 12 - .../SquotPatchBuilder.class/instance/diffs.st | 3 - .../instance/diffsDo..st | 7 - .../instance/displayProgress.during..st | 7 - .../instance/goingTo..st | 5 - .../instance/hasChanges.st | 3 - .../instance/hasLoadOrderChanges.st | 3 - .../instance/includesDiffAt..st | 3 - .../instance/initialize.st | 6 - .../instance/loadOrderMerge.st | 9 - .../instance/newLoadOrder..st | 4 - .../instance/newLoadOrder.st | 3 - .../instance/patchFrom.to..st | 5 - .../SquotPatchBuilder.class/instance/paths.st | 3 - .../instance/removeArtifact..st | 4 - .../instance/resetAt..st | 4 - .../instance/startingFrom..st | 7 - .../instance/startingFrom.goingTo..st | 5 - .../instance/unloadedArtifactsFromLeft.st | 3 - .../instance/updateArtifactTo..st | 8 - .../instance/updateLoadOrder.st | 3 - .../instance/updateRightArtifacts.st | 21 -- .../methodProperties.json | 35 --- .../SquotPatchBuilder.class/properties.json | 22 -- .../SquotPatchBuilderTest.class/README.md | 0 ...tLoadOrderAfterExcludedArtifactAddition.st | 14 -- ...ctLoadOrderAfterExcludedArtifactRemoval.st | 14 -- ...tifactRemovalAndSimultaneousOrderChange.st | 16 -- ...AfterExcludedArtifactRemovalAtBeginning.st | 14 -- ...ifactAdditionAndSimultaneousOrderChange.st | 15 -- ...factAdditionAndSimultaneousOrderChange2.st | 20 -- .../methodProperties.json | 10 - .../properties.json | 16 -- .../SquotPatchTest.class/README.md | 0 .../instance/testEmptyPatch.st | 8 - .../methodProperties.json | 5 - .../SquotPatchTest.class/properties.json | 16 -- .../SquotPatcher.class/README.md | 9 - ...d.reflectedIn.diffsOfReferenceValuesDo..st | 21 -- .../instance/apply.toLoadedGraph..st | 21 -- ...eflectedIn.from.ifDeferred.nextDiffsDo..st | 27 --- ...DeferredUntilActivated.ifNotTreatedYet..st | 26 --- ...fAnyTo.reflectedIn.in.materializedFrom..st | 10 - ...ifDeferredUntilActivated.ifUnavailable..st | 26 --- ...terializedInstanceOf.reflectedIn.ifNew..st | 16 -- .../SquotPatcher.class/instance/initialize.st | 7 - .../instance/reactivate..st | 22 -- .../SquotPatcher.class/instance/registry..st | 3 - .../instance/sourceGraph..st | 3 - .../sourceNameOf.ifPresent.ifAbsent..st | 8 - .../instance/take.asMaterializedFrom..st | 4 - ...ference.from.reflectedIn.for.withValue..st | 11 - .../updateReferrersTo.materializedFrom..st | 7 - .../instance/wasReactivated..st | 3 - .../SquotPatcher.class/methodProperties.json | 20 -- .../SquotPatcher.class/properties.json | 19 -- src/Squot.package/SquotPath.class/README.md | 1 - .../SquotPath.class/class/delimiter.st | 3 - .../SquotPath.class/class/from..st | 3 - .../SquotPath.class/class/fromPath..st | 5 - .../SquotPath.class/class/fromReference..st | 3 - .../SquotPath.class/class/fromString..st | 3 - .../SquotPath.class/instance/resolve..st | 3 - .../SquotPath.class/instance/resolvePath..st | 3 - .../instance/resolveReference..st | 3 - .../instance/resolveString..st | 3 - .../SquotPath.class/methodProperties.json | 12 - .../SquotPath.class/properties.json | 14 -- .../SquotPathNegotiationTest.class/README.md | 0 .../instance/newRepository.st | 3 - .../instance/newStore.st | 3 - .../instance/testRepositoryChangesPath.st | 14 -- .../testStoreAndRepositoryChangePath.st | 18 -- .../testStoreAndRepositoryDisagree.st | 16 -- .../instance/testStoreChangesPath.st | 15 -- .../methodProperties.json | 10 - .../properties.json | 14 -- .../SquotPrimitiveValue.class/README.md | 1 - .../SquotPrimitiveValue.class/class/for..st | 4 - .../class/squotMirror.st | 3 - .../instance/^equals.st | 3 - .../instance/canHaveNameAssignedBySquot.st | 4 - .../instance/diffClass.st | 5 - .../instance/explorerContents.st | 5 - .../instance/hasContentsInExplorer.st | 4 - .../instance/hash.st | 3 - .../instance/initializeFrom.with..st | 4 - .../instance/originalClass.st | 3 - .../instance/printOn..st | 5 - .../instance/sameIn.withName.ifAbsent..st | 5 - .../instance/slots.st | 3 - .../instance/squotDiffAgainst..st | 6 - .../instance/squotDiffAgainst.with..st | 7 - .../instance/squotMaterializeWith..st | 3 - .../instance/squotMergeWith.basedOn..st | 6 - .../instance/squotOutgoingReferences.st | 4 - .../instance/value..st | 3 - .../instance/value.st | 3 - .../methodProperties.json | 23 -- .../SquotPrimitiveValue.class/properties.json | 16 -- .../SquotProgress.class/README.md | 5 - .../class/display.during..st | 21 -- .../class/display.for.do..st | 6 - .../class/displayStatus.during..st | 6 - .../instance/display.during..st | 5 - .../instance/display.for.do..st | 6 - .../instance/displayStatus.during..st | 5 - .../SquotProgress.class/instance/outputOr..st | 3 - .../instance/stepWithText..st | 5 - .../instance/totalSteps..st | 3 - .../instance/update.text..st | 5 - .../SquotProgress.class/methodProperties.json | 13 -- .../SquotProgress.class/properties.json | 15 -- .../SquotProgressOutput.class/README.md | 1 - .../class/default..st | 4 - .../class/default.st | 3 - .../methodProperties.json | 6 - .../SquotProgressOutput.class/properties.json | 14 -- .../SquotReference.class/README.md | 1 - .../instance/asCapturedReference.st | 3 - .../instance/asDiffTreeStringOrText.st | 3 - .../instance/asMaterializedReference.st | 3 - .../instance/isCollectionElement.st | 3 - .../instance/isHashRelevant.st | 4 - .../instance/isInstanceVariable.st | 3 - .../instance/newNameFragment.st | 4 - .../instance/reflect.in..st | 4 - .../instance/reflect.in.put..st | 4 - .../methodProperties.json | 13 -- .../SquotReference.class/properties.json | 14 -- .../SquotReferenceAddition.class/README.md | 1 - .../class/to.reference.target.rightOwner..st | 5 - .../instance/asSlotDiff.st | 3 - .../instance/printOn..st | 5 - .../instance/rightTarget.st | 4 - ...tReference.leftOwner.rightOwner.target..st | 4 - .../instance/squotReflectOn.in..st | 3 - .../instance/squotReflectOn.in.withValue..st | 3 - .../squotValueShadowFrom.reflectedIn..st | 3 - .../methodProperties.json | 11 - .../properties.json | 16 -- .../README.md | 1 - ...reference.working.owner.incoming.owner..st | 5 - .../instance/chooseIncoming.st | 3 - .../initializeSquotDiffNodes.with..st | 9 - .../instance/newSquotDiffNodes.st | 3 - .../setKey.working.owner.incoming.owner..st | 6 - .../instance/squotChangeAsStringOrText.st | 4 - .../methodProperties.json | 9 - .../properties.json | 15 -- .../SquotReferenceCopy.class/README.md | 1 - .../methodProperties.json | 5 - .../SquotReferenceCopy.class/properties.json | 16 -- .../SquotReferenceDiff.class/README.md | 1 - .../instance/asSlotDiff.st | 4 - .../instance/isAddition.st | 3 - .../instance/isModification.st | 3 - .../instance/isRemoval.st | 3 - .../instance/reference.st | 3 - .../setReference.leftOwner.rightOwner..st | 5 - .../instance/squotReflectOn.in..st | 4 - .../instance/squotReflectOn.in.withValue..st | 4 - .../squotValueShadowFrom.reflectedIn..st | 5 - .../methodProperties.json | 13 -- .../SquotReferenceDiff.class/properties.json | 16 -- .../SquotReferenceRemoval.class/README.md | 1 - .../class/of.from.reference.rightObject..st | 6 - .../instance/asSlotDiff.st | 3 - .../instance/printOn..st | 5 - ...Target.reference.leftOwner.rightObject..st | 5 - .../setReference.leftOwner.rightObject..st | 4 - .../instance/squotReflectOn.in..st | 3 - .../instance/squotReflectOn.in.withValue..st | 3 - .../squotValueShadowFrom.reflectedIn..st | 4 - .../methodProperties.json | 11 - .../properties.json | 16 -- .../README.md | 1 - .../instance/asSlotDiff.st | 3 - .../instance/printOn..st | 5 - .../instance/squotHasChanges.st | 3 - .../instance/squotReflectOn.in..st | 3 - .../instance/squotReflectOn.in.withValue..st | 3 - .../methodProperties.json | 9 - .../properties.json | 14 -- .../README.md | 1 - .../methodProperties.json | 5 - .../properties.json | 16 -- .../SquotRevertOperation.class/README.md | 1 - .../instance/applyMerge.st | 7 - .../instance/applyToWorkingCopy.st | 10 - .../instance/defaultMessage.st | 7 - .../instance/loadedPatch..st | 4 - .../instance/loadedPatch.st | 4 - .../instance/merge..st | 4 - .../instance/merge.st | 4 - .../instance/message..st | 4 - .../instance/prepareMerge.st | 15 -- .../instance/prepareSave.st | 11 - .../instance/privateNewMerge.st | 3 - .../instance/privateNewSave.st | 3 - .../relevantParentOfRevertedVersion..st | 7 - .../relevantParentOfRevertedVersion.st | 4 - .../instance/revertMerge.st | 7 - .../instance/revertedVersion..st | 4 - .../instance/revertedVersion.st | 4 - .../instance/save.st | 5 - .../instance/validate.st | 3 - .../instance/validateAncestry.st | 7 - .../methodProperties.json | 24 -- .../properties.json | 19 -- .../SquotSaveOperation.class/README.md | 1 - .../instance/additionalParentVersions..st | 4 - .../instance/additionalParentVersions.st | 4 - .../applyLoadStatusToPatchArtifacts..st | 6 - .../instance/applyToWorkingCopy.st | 10 - .../instance/author..st | 4 - .../instance/author.st | 4 - .../instance/committer..st | 4 - .../instance/committer.st | 4 - .../instance/computePatch.st | 3 - .../instance/createVersion.st | 11 - .../instance/historian..st | 4 - .../instance/historian.st | 4 - .../instance/initialize.st | 5 - .../instance/message..st | 4 - .../instance/message.st | 4 - .../instance/newVersion..st | 3 - .../instance/newVersion.st | 3 - .../instance/parentVersions.st | 8 - .../instance/patch..st | 4 - .../instance/patch.st | 4 - .../instance/shouldStoreMetadata..st | 3 - .../instance/shouldStoreMetadata.st | 3 - .../instance/timestamp..st | 3 - .../instance/timestamp.st | 5 - .../instance/updateMetadataAfterSaving.st | 36 --- .../instance/updateWorkingCopy.st | 13 -- .../instance/validate.st | 10 - .../instance/validateForCherryPick.st | 9 - .../methodProperties.json | 32 --- .../SquotSaveOperation.class/properties.json | 22 -- .../SquotSaveVersionDialog.class/README.md | 6 - .../class/themeProperties.st | 6 - .../instance/accept.st | 7 - .../instance/actionCommit.st | 3 - .../instance/activateNodeCommandLabel.st | 3 - .../instance/addUnloadedArtifactMenuItems..st | 3 - .../instance/appendCoAuthors.st | 11 - .../instance/autoProcessNodes..st | 9 - .../instance/browseOtherEdition.st | 3 - .../instance/browseOtherEditionLabel.st | 3 - .../instance/buildButtonBar..st | 13 -- .../instance/buildCoAuthorSelector..st | 18 -- .../instance/buildDiffPane..st | 10 - .../instance/cancel.st | 4 - .../instance/coAuthorString.st | 4 - .../instance/deactivateNodeCommandLabel.st | 3 - .../instance/defaultMessage.st | 3 - .../excludeMethodsThatAreAssumedUnchanged..st | 14 -- .../instance/initialize.st | 4 - .../inspectOriginalArtifactCommandLabel.st | 3 - .../instance/message..st | 4 - .../instance/message.st | 4 - .../instance/messageWasChanged.st | 3 - .../instance/parentVersions..st | 3 - .../instance/toggleLoadSelectedNode.st | 3 - .../instance/updateMessageFromViews.st | 6 - .../instance/widgetSpecs..st | 13 -- .../instance/windowLabel.st | 3 - .../methodProperties.json | 30 --- .../properties.json | 14 -- .../README.md | 0 .../class/allTestSelectors.st | 3 - .../class/excludedTests.st | 6 - .../class/testSelectors.st | 3 - .../instance/expectedFailures.st | 4 - .../instance/newToolOn..st | 6 - .../instance/patchChangingArtifactAt..st | 8 - ...InteractionTestsOnNode.withPath.inTree..st | 11 - .../instance/testDoNotLoadAddedArtifact.st | 3 - .../testLeaveUnloadedArtifactUnloaded.st | 26 --- .../instance/testLoadUnloadedArtifact.st | 3 - ...tLoadUnloadedArtifactDuringModification.st | 3 - ...hodsGetExcludedIfOnlyTheirStampsChanged.st | 8 - .../instance/testToggleLoadAddedArtifact.st | 3 - .../instance/testUnloadedArtifactsAdorned.st | 14 -- .../instance/workingCopySavePatch.st | 13 -- .../methodProperties.json | 18 -- .../properties.json | 14 -- .../README.md | 6 - .../instance/defaultResumeValue.st | 3 - .../instance/patch..st | 3 - .../instance/patch.st | 3 - .../instance/title..st | 3 - .../instance/title.st | 3 - .../methodProperties.json | 9 - .../properties.json | 15 -- .../SquotSerializer.class/README.md | 3 - .../class/copySettingsFrom.to..st | 3 - .../class/rewritePath.for..st | 4 - .../class/writingBelow..st | 5 - .../instance/canWriteDiffs.st | 4 - .../SquotSerializer.class/instance/name.st | 4 - .../instance/rootDirectory..st | 4 - .../instance/rootDirectory.st | 3 - .../SquotSerializer.class/instance/version.st | 4 - .../SquotSerializer.class/instance/write..st | 4 - .../methodProperties.json | 12 - .../SquotSerializer.class/properties.json | 14 -- .../SquotShadowGraph.class/README.md | 7 - .../class/anonymousObjectName.st | 3 - .../SquotShadowGraph.class/class/empty.st | 11 - .../class/squotMirror.st | 3 - .../class/stonAllInstVarNames.st | 10 - .../class/withSingleShadow..st | 7 - .../instance/^equals.st | 7 - .../SquotShadowGraph.class/instance/as..st | 4 - .../instance/asShadowGraph.st | 3 - .../SquotShadowGraph.class/instance/browse.st | 3 - .../instance/captureWithSquot..st | 5 - .../instance/delegateRegistry..st | 4 - .../instance/delegateRegistry.st | 3 - .../instance/errorNotFound..st | 3 - .../instance/evictObjectNames.st | 5 - .../instance/hasSameStartObjectAs..st | 7 - .../instance/includes..st | 3 - .../instance/includesObjectNamed..st | 3 - .../instance/initialize.st | 5 - .../initializeObjectCreatorDictionaries.st | 4 - .../instance/mutableCopy.st | 6 - .../instance/nameOf..st | 6 - .../instance/nameOf.ifAbsent..st | 12 - .../instance/objectForDataStream..st | 9 - .../instance/objectNames.st | 3 - .../instance/postCopy.st | 6 - .../instance/preferredSerializer.st | 3 - .../SquotShadowGraph.class/instance/roots.st | 3 - .../instance/shadowNamed..st | 3 - .../instance/shadowNamed.ifAbsent..st | 3 - .../instance/shadows.st | 3 - .../instance/squotDiffAgainst..st | 7 - .../instance/squotDiffAgainst.withBase..st | 9 - .../squotMaterializeWith.from.replacing..st | 4 - .../instance/squotRewritePath.with..st | 4 - .../instance/squotSummaryText.st | 3 - .../instance/squotWrite.with..st | 3 - .../instance/startName..st | 3 - .../instance/startName.st | 3 - .../instance/startShadow..st | 13 -- .../instance/startShadow.st | 5 - .../methodProperties.json | 43 ---- .../SquotShadowGraph.class/properties.json | 20 -- .../SquotShadowGraphBrowser.class/README.md | 0 .../class/openOn..st | 3 - .../instance/buildWith..st | 33 --- .../instance/graph..st | 4 - .../instance/graph.st | 3 - .../instance/graphChanged.st | 6 - .../instance/initialize.st | 3 - .../instance/inspectLiveObject.st | 4 - .../instance/inspectName.st | 3 - .../instance/inspectShadow.st | 3 - .../instance/liveObjects.st | 4 - .../instance/objectNames.st | 3 - .../instance/selectedIndex..st | 4 - .../instance/selectedIndex.st | 3 - .../instance/selectedShadow.st | 3 - .../instance/shadowObjects.st | 3 - .../methodProperties.json | 18 -- .../properties.json | 16 -- .../SquotShadowGraphMirror.class/README.md | 1 - .../instance/canHaveReferences..st | 5 - .../instance/capture.with.ifReplaced..st | 3 - .../instance/is.comparableTo..st | 5 - .../instance/newDiffFrom.to..st | 5 - .../instance/referencesFrom..st | 5 - .../reflectGraphElementWithName.in..st | 3 - .../methodProperties.json | 10 - .../properties.json | 14 -- .../SquotShadowGraphTest.class/README.md | 1 - .../testHasDifferentNamelessStartObject.st | 10 - .../instance/testHasDifferentStartObject.st | 12 - .../testHasSameNamelessStartObject.st | 10 - .../instance/testHasSameStartObject.st | 12 - .../methodProperties.json | 8 - .../properties.json | 14 -- .../SquotShadowMaterializer.class/README.md | 9 - .../instance/initialize.st | 5 - .../instance/objectGraph.st | 3 - .../instance/registry..st | 3 - .../instance/registry.st | 3 - .../instance/rematerializeGraph..st | 20 -- .../instance/rematerializeGraph.into..st | 15 -- .../instance/sourceGraph..st | 3 - .../instance/sourceGraph.st | 3 - .../instance/targetGraph..st | 3 - .../instance/targetGraph.st | 3 - .../methodProperties.json | 14 -- .../properties.json | 21 -- .../SquotShadowMock.class/README.md | 0 .../methodProperties.json | 5 - .../SquotShadowMock.class/properties.json | 14 -- .../SquotShadowPatchingTest.class/README.md | 0 .../instance/expectedFailures.st | 3 - .../instance/patchGraph.st | 11 - .../instance/patched.asIn..st | 9 - .../instance/setUp.st | 5 - .../instance/testPatchesShadowsCorrectly.st | 7 - .../testUpdatesNameMappingConsistently.st | 16 -- .../testUpdatesReferencesOfChangedShadows.st | 11 - .../methodProperties.json | 11 - .../properties.json | 21 -- .../SquotShadowSlot.class/README.md | 1 - .../SquotShadowSlot.class/instance/addTo..st | 3 - .../instance/addTo.with..st | 3 - .../instance/asReference.st | 3 - .../instance/lookupIn..st | 3 - .../instance/newNameFragment.st | 6 - .../instance/removeFrom..st | 3 - .../instance/removeFrom.with..st | 3 - .../instance/squotDiffAgainst..st | 4 - .../SquotShadowSlot.class/instance/value..st | 4 - .../SquotShadowSlot.class/instance/value.st | 4 - .../methodProperties.json | 14 -- .../SquotShadowSlot.class/properties.json | 16 -- .../README.md | 4 - .../assertSecondMethodUnmodifiedBy.with..st | 8 - .../assertSecondMethodUnmodifiedWith..st | 6 - .../instance/assertThirdMethodLoadedWith..st | 5 - .../assertThirdMethodWillBeAdded.with..st | 11 - .../instance/classFactory.st | 4 - .../instance/createFirstVersion.st | 14 -- .../instance/createSecondVersion.st | 8 - .../instance/createThirdVersion.st | 28 --- .../instance/firstVersion..st | 4 - .../instance/firstVersion.st | 4 - .../instance/initializeForTestCase..st | 4 - .../instance/otherHistorian..st | 4 - .../instance/otherHistorian.st | 4 - .../instance/packageId.st | 3 - .../instance/packageInfo..st | 4 - .../instance/packageInfo.st | 4 - .../instance/packagePath..st | 4 - .../instance/packagePath.st | 4 - .../instance/sampleClass..st | 4 - .../instance/sampleClass.st | 4 - .../instance/secondMethod..st | 4 - .../instance/secondMethod.st | 4 - .../instance/secondVersion..st | 4 - .../instance/secondVersion.st | 4 - .../instance/setUp.st | 6 - .../instance/thirdMethod..st | 4 - .../instance/thirdMethod.st | 4 - .../instance/thirdVersion..st | 4 - .../instance/thirdVersion.st | 4 - .../instance/unloadPackage.st | 11 - .../instance/updateSampleClass.st | 9 - .../methodProperties.json | 35 --- .../properties.json | 24 -- .../README.md | 1 - ...itionalParentsWhenSavedNonInteractively.st | 18 -- ...onalParentsWhenSavedNonInteractivelyOld.st | 21 -- .../instance/testCherryPickPreservesAuthor.st | 21 -- .../testOldUnnecessaryMergeIsCanceled.st | 15 -- .../instance/testSnapshotIncludesLoadOrder.st | 11 - .../testUnnecessaryMergeIsCanceled.st | 16 -- .../methodProperties.json | 10 - .../properties.json | 16 -- .../SquotSlotAddition.class/README.md | 5 - .../class/key.newSlot..st | 3 - .../instance/applyTo..st | 4 - .../instance/applyTo.with..st | 4 - ...renceDiffWithDefaultOwners.reflectedIn..st | 7 - .../instance/hierarchicalDiffTitle.st | 3 - .../instance/printDescriptionOn..st | 3 - .../instance/slotShadowType.st | 3 - .../instance/slotToBeAdded.st | 3 - .../instance/squotHasChanges.st | 3 - .../methodProperties.json | 12 - .../SquotSlotAddition.class/properties.json | 16 -- .../SquotSlotDiff.class/README.md | 4 - .../SquotSlotDiff.class/instance/applyTo..st | 3 - .../instance/applyTo.with..st | 3 - ...renceDiffWithDefaultOwners.reflectedIn..st | 3 - .../instance/hierarchicalDiffTitle.st | 3 - .../instance/initializeSquotDiffNode.with..st | 3 - .../instance/printDescriptionOn..st | 3 - .../SquotSlotDiff.class/instance/printOn..st | 4 - .../instance/squotHasChanges.st | 3 - .../SquotSlotDiff.class/methodProperties.json | 12 - .../SquotSlotDiff.class/properties.json | 14 -- .../SquotSlotReassignment.class/README.md | 3 - .../class/key.leftShadow.rightShadow..st | 3 - .../instance/applyTo..st | 3 - .../instance/applyTo.with..st | 3 - ...renceDiffWithDefaultOwners.reflectedIn..st | 14 -- .../instance/hierarchicalDiffTitle.st | 3 - .../instance/initializeSquotDiffNode.with..st | 7 - .../instance/originalShadow.st | 3 - .../instance/printDescriptionOn..st | 3 - .../instance/replacementShadow.st | 3 - .../instance/slotShadowType.st | 7 - .../instance/squotChangeAsStringOrText.st | 5 - .../instance/squotHasChanges.st | 3 - .../methodProperties.json | 15 -- .../properties.json | 16 -- .../SquotSlotRemoval.class/README.md | 5 - .../class/key.removedSlot..st | 3 - .../instance/applyTo..st | 3 - .../instance/applyTo.with..st | 3 - ...renceDiffWithDefaultOwners.reflectedIn..st | 7 - .../instance/hierarchicalDiffTitle.st | 3 - .../instance/printDescriptionOn..st | 3 - .../instance/slotShadowType.st | 6 - .../instance/slotToBeRemoved.st | 3 - .../instance/squotChangeAsStringOrText.st | 3 - .../instance/squotHasChanges.st | 3 - .../methodProperties.json | 13 -- .../SquotSlotRemoval.class/properties.json | 16 -- .../SquotSlotTransitiveChange.class/README.md | 1 - .../class/key..st | 3 - .../instance/applyTo..st | 4 - .../instance/applyTo.with..st | 4 - ...renceDiffWithDefaultOwners.reflectedIn..st | 14 -- .../instance/hierarchicalDiffTitle.st | 3 - .../instance/initializeSquotDiffNode.with..st | 7 - .../instance/printDescriptionOn..st | 3 - .../instance/slotShadowType.st | 4 - .../instance/squotChangeAsStringOrText.st | 3 - .../instance/squotHasChanges.st | 4 - .../methodProperties.json | 13 -- .../properties.json | 16 -- .../README.md | 1 - .../class/canReadObjectSerializedBy..st | 3 - .../instance/fillContentOf.from..st | 4 - .../instance/streamClass.st | 3 - .../methodProperties.json | 6 - .../properties.json | 14 -- .../README.md | 1 - .../instance/streamClass.st | 3 - .../instance/version.st | 3 - .../instance/write..st | 6 - .../instance/writeObject.from..st | 3 - .../methodProperties.json | 8 - .../properties.json | 16 -- .../SquotSnapshot.class/README.md | 5 - .../SquotSnapshot.class/class/builder.st | 3 - .../SquotSnapshot.class/class/empty.st | 3 - .../instance/applyPatch..st | 5 - .../instance/artifactAt..st | 3 - .../instance/artifactAt.ifAbsent..st | 3 - .../instance/artifacts..st | 3 - .../SquotSnapshot.class/instance/artifacts.st | 3 - .../instance/artifactsDo..st | 3 - .../instance/artifactsInLoadOrder.st | 6 - .../instance/artifactsInLoadOrderDo..st | 3 - .../instance/createNewBuilder.st | 4 - .../instance/includesObjectAt..st | 3 - .../instance/initialize.st | 4 - .../instance/initializeWith..st | 10 - .../instance/loadOrder..st | 3 - .../SquotSnapshot.class/instance/loadOrder.st | 3 - .../instance/patchRelativeToBase..st | 5 - .../SquotSnapshot.class/instance/paths.st | 3 - .../SquotSnapshot.class/instance/printOn..st | 5 - .../SquotSnapshot.class/instance/resolve..st | 3 - .../instance/resolvePath..st | 3 - .../instance/resolveString..st | 3 - .../SquotSnapshot.class/instance/select..st | 7 - .../SquotSnapshot.class/instance/snapshot.st | 8 - .../SquotSnapshot.class/methodProperties.json | 27 --- .../SquotSnapshot.class/properties.json | 17 -- .../SquotSnapshotBuilder.class/README.md | 5 - .../instance/add..st | 5 - .../instance/addAll..st | 3 - .../instance/applyDiff.toObjectAt..st | 7 - .../instance/artifactAt..st | 3 - .../instance/artifacts.st | 3 - .../instance/buildSnapshot.st | 6 - .../instance/initialize.st | 4 - .../instance/loadOrder..st | 3 - .../instance/loadOrder.st | 3 - .../instance/removeAt..st | 4 - .../instance/startingFrom..st | 4 - .../methodProperties.json | 15 -- .../properties.json | 17 -- .../SquotSnapshotTest.class/README.md | 0 .../instance/testBuilderPreservesLoadOrder.st | 15 -- .../testNewBuilderPreservesLoadOrder.st | 20 -- .../instance/testSelectPreservesLoadOrder.st | 20 -- .../methodProperties.json | 7 - .../SquotSnapshotTest.class/properties.json | 14 -- .../SquotStonFileCodec.class/README.md | 1 - .../instance/fillContentOf.from..st | 4 - .../instance/version.st | 3 - .../instance/write..st | 4 - .../methodProperties.json | 7 - .../SquotStonFileCodec.class/properties.json | 16 -- .../SquotStringMirror.class/README.md | 0 .../SquotStringMirror.class/class/class..st | 3 - .../instance/^equals.st | 9 - .../instance/canHaveReferences..st | 3 - .../instance/capture.with.ifReplaced..st | 7 - .../SquotStringMirror.class/instance/hash.st | 5 - .../instance/initializeSnapshot.of.with..st | 3 - .../instance/is.comparableTo..st | 3 - .../instance/newDiffFrom.to..st | 5 - .../instance/newShadowObject.st | 3 - .../instance/referencesFrom..st | 4 - .../instance/reflectIndexableField.in..st | 3 - .../instance/setClass..st | 3 - .../instance/shouldObjectHaveNameAssigned..st | 3 - .../instance/theClass.st | 3 - .../methodProperties.json | 17 -- .../SquotStringMirror.class/properties.json | 14 -- .../SquotStringShadow.class/README.md | 0 .../instance/references.st | 3 - .../methodProperties.json | 5 - .../SquotStringShadow.class/properties.json | 14 -- .../SquotStringShadowMirror.class/README.md | 0 .../instance/referencesFrom..st | 3 - .../methodProperties.json | 5 - .../properties.json | 14 -- .../README.md | 0 .../class/class..st | 5 - .../instance/capture.with.ifReplaced..st | 4 - .../instance/newDiffFrom.to..st | 4 - .../instance/referencesFrom..st | 3 - .../instance/setClass..st | 3 - .../instance/shouldObjectHaveNameAssigned..st | 4 - .../methodProperties.json | 9 - .../properties.json | 14 -- .../SquotTableOfContentsFile.class/README.md | 5 - .../class/on..st | 5 - .../instance/add..st | 4 - .../instance/applyDiff..st | 3 - .../instance/applyDiff.toObjectAt..st | 7 - .../instance/applyPatch..st | 3 - .../instance/delete.st | 3 - .../instance/dictionary.st | 3 - .../instance/exists.st | 3 - .../instance/fileIn.st | 10 - .../instance/fileOut.st | 4 - .../instance/includesKey..st | 3 - .../instance/keysDo..st | 3 - .../instance/on..st | 3 - .../instance/removeAll.st | 3 - .../instance/removeAt..st | 3 - .../methodProperties.json | 18 -- .../properties.json | 15 -- .../README.md | 1 - .../instance/squotAddTransientStoreInfoTo..st | 4 - .../instance/squotInitializeStoreInfo..st | 4 - .../squotRemoveTransientStoreInfoFrom..st | 4 - .../methodProperties.json | 7 - .../properties.json | 14 -- .../SquotTestSnapshots.class/README.md | 0 .../class/snapshotWithChangedLoadOrder.st | 21 -- .../methodProperties.json | 5 - .../SquotTestSnapshots.class/properties.json | 14 -- .../SquotTextFileCodec.class/README.md | 1 - .../instance/fillContentOf.from..st | 6 - .../instance/version.st | 3 - .../instance/write..st | 5 - .../methodProperties.json | 7 - .../SquotTextFileCodec.class/properties.json | 16 -- .../SquotToggles.class/README.md | 1 - .../class/ignoreMethodsInAssumeUnchanged..st | 3 - .../class/ignoreMethodsInAssumeUnchanged.st | 7 - .../class/warnAboutUseOfDeprecatedMethods..st | 3 - .../class/warnAboutUseOfDeprecatedMethods.st | 7 - .../SquotToggles.class/methodProperties.json | 8 - .../SquotToggles.class/properties.json | 19 -- .../SquotToolTestCase.class/README.md | 0 .../class/isAbstract.st | 3 - ...ialogPossiblyOpenedDuring.timeoutMsecs..st | 12 - .../instance/closeTool..st | 3 - .../instance/newToolOn..st | 3 - .../instance/openTool.st | 4 - .../instance/openToolAndTestOn..st | 7 - .../instance/openToolAndTestOnPatch..st | 3 - .../instance/openToolOn..st | 4 - .../instance/performUiTestsOnToolBuiltBy..st | 3 - .../methodProperties.json | 12 - .../SquotToolTestCase.class/properties.json | 17 -- .../README.md | 6 - .../class/squotMirror.st | 3 - .../instance/^equals.st | 7 - .../instance/absorbDiff..st | 9 - .../instance/add.toSlotOverridesOf..st | 4 - .../instance/asSquotTrackedObjectMetadata.st | 3 - .../instance/copyIgnoredInstanceVariables..st | 3 - .../instance/copySlotOverrides..st | 7 - .../instance/hash.st | 12 - .../instance/id..st | 3 - .../instance/id.st | 3 - .../instance/ignoreInstanceVariable.in..st | 8 - .../instance/ignoreInstanceVariables.in..st | 8 - .../instance/ignoredInstanceVariables.st | 3 - .../instance/ignoredInstanceVariablesIn..st | 6 - .../initializeInstVarNamed.of.with..st | 3 - .../instance/materializer..st | 3 - .../instance/materializer.st | 3 - .../instance/mergeWith..st | 4 - .../instance/objectClass..st | 3 - .../instance/objectClassName.st | 3 - .../instance/postCopy.st | 11 - .../replaceObjectNamesWithProperReferences.st | 8 - ...ectNamesWithReferencesInDictionaryKeys..st | 7 - ...bjectReferencesByNamesInDictionaryKeys..st | 7 - .../replaceObjectReferencesByTheirNames.st | 8 - .../instance/serializer..st | 3 - .../instance/serializer.st | 3 - .../slotOverrideFor.in.ifFound.ifNone..st | 6 - .../instance/slotOverrides.st | 3 - .../instance/squotDiffAgainst..st | 24 -- .../instance/squotMergeWith.basedOn..st | 48 ---- .../instance/updateFrom..st | 4 - .../methodProperties.json | 34 +-- .../properties.json | 4 +- .../README.md | 6 - .../class/left.right.diffs..st | 5 - .../instance/diffTreeNodeForAdding..st | 3 - .../instance/diffTreeNodeForChanging..st | 11 - .../instance/diffTreeNodeForRemoving..st | 11 - .../instance/diffs.st | 3 - .../instance/includesId.st | 3 - .../initializeSquotDiffNodes.with..st | 3 - .../instance/left.st | 3 - .../instance/newSquotDiffNodes.st | 19 -- .../instance/printOn..st | 7 - .../instance/right.st | 3 - .../instance/setLeft.right.diffs..st | 5 - .../instance/squotApplyTo..st | 35 --- .../instance/squotHasChanges.st | 3 - ...ectedIn.asMaterializedFrom.reflectedIn..st | 3 - .../methodProperties.json | 18 -- .../properties.json | 18 -- .../README.md | 0 .../instance/testApplyIsNonDestructive.st | 11 - .../testCyclesDoNotCauseInifiniteLoops.st | 12 - .../instance/testEverythingIsAValue.st | 14 -- .../instance/testRemove.st | 10 - .../instance/testReplacesStrings.st | 12 - .../instance/testUnchangedValuesRemain.st | 11 - .../methodProperties.json | 10 - .../properties.json | 14 -- .../README.md | 0 .../into.merge.basedOn.diffs.conflicts..st | 5 - .../instance/asSquotHierarchicalDiff.st | 31 --- .../instance/includesId.st | 3 - .../instance/privateResolvedPatch.st | 3 - ...tWorking.incoming.base.diffs.conflicts..st | 5 - .../instance/squotChangeAsStringOrText.st | 3 - .../methodProperties.json | 9 - .../properties.json | 14 -- .../README.md | 0 .../instance/testAdditionConflict.st | 12 - .../instance/testApplyIsNonDestructive.st | 11 - .../instance/testDeepConflict.st | 12 - .../instance/testEverythingIsAValue.st | 14 -- .../instance/testReplacesStrings.st | 12 - .../methodProperties.json | 9 - .../properties.json | 14 -- .../README.md | 0 .../instance/is.comparableTo..st | 3 - .../instance/mirrorOf.reachedVia.from..st | 9 - .../instance/newDiffFrom.to..st | 3 - .../instance/referencesFrom..st | 11 - .../instance/reflectElement.of.put..st | 4 - .../methodProperties.json | 9 - .../properties.json | 14 -- .../README.md | 0 .../class/on.ignoring.addingTo..st | 7 - .../instance/fileStore..st | 4 - .../instance/fileStore.st | 4 - .../instance/ignoredPaths..st | 6 - .../instance/ignoredPaths.st | 4 - .../instance/snapshotBuilder..st | 4 - .../instance/snapshotBuilder.st | 4 - .../instance/visit..st | 5 - .../instance/visitDirectory..st | 4 - .../instance/visitFile..st | 6 - .../methodProperties.json | 13 -- .../properties.json | 16 -- .../SquotUnloadedArtifact.class/README.md | 11 - .../class/wrapping..st | 5 - .../instance/applyLoadStatusTo..st | 3 - .../instance/diffAgainst..st | 9 - .../instance/isLoaded.st | 3 - .../instance/load.st | 10 - .../instance/printOn..st | 3 - .../instance/updatePath.st | 10 - .../methodProperties.json | 10 - .../properties.json | 14 -- .../README.md | 0 .../testLazyArtifactsAreEvaluatedWhenAdded.st | 15 -- ...MergeWithLocalChangesToUnloadedArtifact.st | 26 --- .../instance/testMergeWithUnloadedArtifact.st | 27 --- .../testUnloadedAppearDisabledInLoads.st | 13 -- .../instance/testUnloadedAppearInMerges.st | 24 -- ...dDoNotAppearInSaveUnlessModifiedOrAdded.st | 17 -- .../methodProperties.json | 10 - .../properties.json | 16 -- .../README.md | 5 - .../class/newId.st | 4 - .../instance/^equals.st | 3 - .../instance/browse.st | 3 - .../instance/diffAgainst..st | 3 - .../instance/displayText.st | 3 - .../instance/hash.st | 3 - .../instance/initialize.st | 4 - .../instance/isLoadable.st | 3 - .../instance/materializeWith.replacing..st | 6 - .../instance/mergeWith.basedOn..st | 7 - .../instance/ownerSnapshot..st | 4 - .../instance/ownerSnapshot.st | 4 - .../instance/path..st | 3 - .../reverseDiffAgainstUnrecordedFiles..st | 4 - .../instance/rootDirectory..st | 4 - .../instance/rootDirectory.st | 4 - .../instance/squotSummaryText.st | 3 - .../instance/storeWith..st | 4 - .../instance/wantsToBeInTableOfContents.st | 4 - .../instance/writeWith..st | 4 - .../methodProperties.json | 23 -- .../properties.json | 15 -- .../SquotUnsavedChangesTest.class/README.md | 1 - .../instance/addAnotherObject.st | 4 - .../instance/assertAddedObjectWasRemoved.st | 4 - .../assertTrackedObjectStillChanged.st | 3 - .../instance/assertTrackedObjectWasReset.st | 3 - .../instance/changeTrackedObject.st | 3 - .../instance/setUp.st | 9 - .../instance/testDiscardUnsavedChanges.st | 10 - .../testSwitchToRestoresUnsavedChanges.st | 15 -- .../testSwitchToRestoresUnsavedChangesOnly.st | 19 -- .../methodProperties.json | 13 -- .../properties.json | 18 -- .../SquotVariablePartSlot.class/README.md | 1 - .../class/printHeadlineForChangesTextOn..st | 3 - .../instance/addTo..st | 3 - .../instance/addTo.with..st | 4 - .../instance/asReference.st | 3 - .../instance/diffToBaseIndexedSlot..st | 12 - .../instance/index.st | 3 - .../instance/lookupIn..st | 3 - .../instance/removeFrom..st | 3 - .../instance/removeFrom.with..st | 3 - .../instance/squotDiffAgainst..st | 3 - .../methodProperties.json | 13 -- .../properties.json | 14 -- .../README.md | 1 - .../class/historian.version..st | 6 - .../instance/historian..st | 4 - .../instance/historian.st | 4 - .../instance/version..st | 4 - .../instance/version.st | 4 - .../methodProperties.json | 8 - .../properties.json | 15 -- .../SquotWorkingCopy.class/README.md | 15 -- .../class/forTestInMemory.st | 7 - .../class/initialize.st | 4 - .../class/newOnObjectMemory.st | 7 - .../SquotWorkingCopy.class/class/register..st | 3 - .../class/registered.st | 4 - .../class/unregister..st | 3 - .../SquotWorkingCopy.class/instance/add..st | 7 - .../instance/add.at..st | 9 - .../instance/add.withStoreInfo..st | 8 - .../addAsUnloadedFrom.thatAreNotIn..st | 9 - .../instance/addGlobalObjectsToStore..st | 3 - ...ddLoadedPackageInfoNamed.at.serializer..st | 20 -- .../instance/addPackage.at..st | 21 -- .../instance/addPackageNamed.at..st | 5 - .../instance/addParentVersion..st | 8 - .../instance/addUnloaded..st | 8 - .../instance/additionalParents..st | 4 - .../instance/additionalParents.st | 4 - .../instance/anyPackageOrNil.st | 5 - .../instance/appendToLoadOrder..st | 3 - .../instance/applyDiff.toObjectAt..st | 21 -- .../instance/applyPatch..st | 4 - .../instance/artifactAt..st | 7 - .../instance/artifacts.st | 7 - .../instance/artifactsInLoadOrder.st | 3 - .../instance/asSquotVersionIn..st | 4 - .../instance/assertConsistentLoadOrder.st | 5 - .../instance/baseSnapshot.st | 11 - .../instance/baseVersion.st | 7 - .../SquotWorkingCopy.class/instance/browse.st | 3 - .../instance/cacheSavedArtifacts.in..st | 7 - ...CommonAncestor.ifAncestor.ifDescendant..st | 11 - ...CommonAncestor.ifAncestor.ifDescendant..st | 7 - .../instance/cherryPickTemporaryVersion..st | 17 -- .../instance/confirm..st | 4 - .../convertToCurrentVersion.refStream..st | 5 - .../instance/currentSnapshot.st | 6 - .../instance/defaultAuthor.st | 6 - .../instance/discardUnsavedChanges.st | 4 - .../instance/flushPreviouslySavedArtifacts.st | 3 - .../instance/hasAdditionalParents.st | 3 - .../instance/includesObject..st | 3 - .../instance/includesObjectAt..st | 3 - .../instance/incomingPatchWhenLoading..st | 3 - .../instance/inform..st | 4 - .../instance/initialize.st | 3 - .../initializeStoreInfo.forObject..st | 5 - .../initializeStoreInfo.forObject.shadow..st | 6 - .../instance/lazySnapshot.st | 7 - .../instance/loadArtifact..st | 9 - .../loadArtifactInteractively.ifCanceled..st | 10 - .../instance/loadOrder..st | 5 - .../instance/loadOrder.st | 3 - .../loadPatchInteractively.ifCanceled..st | 10 - .../instance/loadVersion.interactive..st | 8 - .../loadVersionInteractively.ifCanceled..st | 10 - .../instance/loadedHistorian..st | 4 - .../instance/loadedHistorian.st | 4 - .../instance/loadedVersion..st | 5 - .../instance/loadedVersion.st | 6 - ...eArtifactInteractively.from.ifCanceled..st | 21 -- .../mergeInteractively.ifCanceled..st | 9 - .../mergeSilently.basedOn.onConflictsDo..st | 9 - .../instance/mergeTemporaryVersionsOn..st | 7 - .../mergeVersionInteractively.ifCanceled..st | 25 -- ...rgeVersionWithLoadedObjects.ifCanceled..st | 19 -- .../instance/metadataForObjectAt..st | 6 - .../instance/moveObjectAt.to..st | 10 - .../SquotWorkingCopy.class/instance/name..st | 3 - .../SquotWorkingCopy.class/instance/name.st | 3 - .../instance/newCherryPickOperation.st | 5 - .../newInteractiveCherryPickOperation.st | 3 - .../instance/newInteractiveMergeOperation.st | 5 - .../instance/newInteractiveRevertOperation.st | 3 - .../instance/newInteractiveSaveOperation.st | 3 - .../instance/newMergeOperation.st | 5 - .../instance/newRevertOperation.st | 5 - .../instance/newSaveOperation.st | 10 - .../instance/newSnapshotBuilder.st | 3 - .../instance/newVersionMessage..st | 3 - .../instance/newVersionMessage.st | 3 - .../instance/objectAt..st | 3 - .../instance/packageSerializer.st | 4 - .../instance/parentVersions.st | 8 - .../instance/patchRelativeToBase..st | 3 - .../instance/previouslySavedArtifacts.st | 3 - .../instance/printOn..st | 3 - .../instance/privateLoadVersion..st | 10 - .../instance/register.st | 3 - .../instance/registerPackagesInStore..st | 19 -- .../instance/remove..st | 6 - .../instance/removeAt..st | 5 - .../instance/removePackageNamed..st | 3 - .../instance/repository..st | 4 - .../instance/repository.st | 4 - .../instance/resetAdditionalParents.st | 3 - .../instance/resetNewVersionMessage.st | 3 - .../instance/restoreCurrentAncestryAfter..st | 11 - .../instance/saveChanges.on.message..st | 11 - .../instance/saveVersionWithMessage..st | 6 - .../selectFromMerge.title.ifCancelled..st | 18 -- .../selectFromPatch.title.ifCanceled..st | 16 -- .../instance/shouldStoreMetadata..st | 3 - .../instance/shouldStoreMetadata.st | 3 - .../instance/snapshot.st | 9 - .../SquotWorkingCopy.class/instance/store..st | 5 - .../SquotWorkingCopy.class/instance/store.st | 4 - .../switchAndMoveUnsavedChangesOverTo..st | 37 --- .../instance/switchTo..st | 43 ---- .../instance/temporarilySaveChangesDuring..st | 16 -- .../instance/temporarilySaveChangesOn..st | 15 -- .../SquotWorkingCopy.class/instance/unload.st | 4 - .../instance/unloadedArtifacts.st | 3 - .../instance/unregister.st | 3 - .../instance/updateLoadOrderFromVersion..st | 12 - .../instance/withCurrentSnapshot..st | 9 - .../instance/withCurrentSnapshot.do..st | 6 - .../methodProperties.json | 120 ---------- .../SquotWorkingCopy.class/properties.json | 28 --- .../SquotWorkingCopyArtifact.class/README.md | 1 - .../class/wrapping.in..st | 6 - .../instance/^equals.st | 4 - .../instance/applyLoadStatusTo..st | 3 - .../instance/artifact..st | 3 - .../instance/artifact.st | 3 - .../instance/browse.st | 3 - .../instance/capture.st | 4 - .../instance/diffAgainst..st | 6 - .../instance/doesNotUnderstand..st | 10 - .../instance/hash.st | 3 - .../instance/isLoaded.st | 3 - .../instance/mergeDiffWith.basedOn..st | 5 - .../instance/mergeWith.basedOn..st | 6 - .../instance/mergeWithoutBaseWith..st | 6 - .../instance/serializer..st | 7 - .../instance/setArtifact.workingCopy..st | 4 - .../instance/snapshot.st | 4 - .../instance/updatePath.st | 4 - .../instance/workingCopy..st | 3 - .../instance/workingCopy.st | 3 - .../methodProperties.json | 23 -- .../properties.json | 15 -- .../SquotWorkingCopyBrowser.class/README.md | 1 - .../class/newOn..st | 5 - .../instance/artifactsList.st | 3 - .../instance/buildWith..st | 34 --- .../instance/buttonHeight.st | 3 - .../instance/dragFromObjectList..st | 3 - .../instance/dropOnObjectList.at..st | 7 - .../instance/editLoadOrder..st | 7 - .../instance/isFirstArtifactSelected.st | 3 - .../instance/isLastArtifactSelected.st | 3 - .../instance/labelString.st | 3 - .../instance/moveDownInLoadOrder.st | 6 - .../instance/moveUpInLoadOrder.st | 6 - .../instance/objectLabels.st | 3 - .../instance/selectedObject.st | 4 - .../instance/selectedObjectIndex..st | 5 - .../instance/selectedObjectIndex.st | 4 - ...opOnObjectList.dragTransferType.source..st | 3 - .../instance/workingCopy..st | 4 - .../instance/workingCopy.st | 4 - .../methodProperties.json | 22 -- .../properties.json | 16 -- .../README.md | 0 .../instance/setUp.st | 4 - ...testCannotMoveDownLastObjectInLoadOrder.st | 13 -- .../testCannotMoveUpFirstObjectInLoadOrder.st | 13 -- .../instance/testDisplaying.st | 9 - .../instance/testMoveDownInLoadOrder.st | 13 -- .../instance/testMoveUpInLoadOrder.st | 13 -- .../methodProperties.json | 10 - .../properties.json | 15 -- .../README.md | 1 - .../class/workingCopy.operation..st | 6 - .../instance/confirmAndProceed.st | 4 - .../instance/setWorkingCopy.operation..st | 4 - .../methodProperties.json | 6 - .../properties.json | 15 -- .../SquotWorkingCopyOperation.class/README.md | 5 - .../instance/applyToWorkingCopy.st | 4 - .../instance/createNewUnitOfWork.st | 3 - .../instance/extensions..st | 3 - .../instance/extensions.st | 3 - .../instance/finishUnitOfWork.st | 3 - .../instance/initialize.st | 3 - .../instance/requestor..st | 3 - .../instance/requestor.st | 3 - .../instance/resultPromise.st | 3 - .../instance/startUnitOfWork.st | 3 - .../instance/title..st | 3 - .../instance/title.st | 3 - .../instance/unitOfWork..st | 3 - .../instance/unitOfWork.st | 3 - .../instance/withUnitOfWork..st | 8 - .../instance/withUnitOfWorkActive..st | 5 - .../instance/workingCopy..st | 4 - .../instance/workingCopy.st | 4 - .../instance/workingCopySnapshot..st | 4 - .../instance/workingCopySnapshot.st | 4 - .../methodProperties.json | 24 -- .../properties.json | 17 -- .../SquotWorkingCopySaveTest.class/README.md | 0 ...testSaveSnapshotsBeforeTheDialogIsShown.st | 10 - .../methodProperties.json | 5 - .../properties.json | 14 -- .../SquotWorkingCopyTest.class/README.md | 11 - .../class/isAbstract.st | 7 - .../instance/addPackage.st | 6 - .../instance/assertVersion.containsMethod..st | 9 - .../instance/changeLogSuppressor.st | 3 - .../instance/classFactory.st | 3 - .../instance/denyChangesInWorkingCopy.st | 6 - .../instance/expectedFailures.st | 6 - .../instance/newRepository.st | 5 - .../instance/newStore.st | 3 - .../instance/newWorkingCopy.st | 5 - .../instance/performTest.st | 9 - .../instance/repositoryClass.st | 8 - .../instance/repositoryRootDirectory.st | 3 - .../instance/setUp.st | 8 - .../instance/tearDown.st | 15 -- .../testAddMultipleObjectsSuccessively.st | 13 -- .../instance/testAdditionNotLoaded.st | 19 -- ...stBaseSnapshotEqualsBaseVersionSnapshot.st | 20 -- ...stCherryPickDoesNotSaveUnrelatedChanges.st | 30 --- .../testCherryPickOfOrphanedVersion.st | 23 -- .../instance/testCherryPickWithConflicts.st | 24 -- ...testCherryPickWithConflictsChooseRemote.st | 23 -- .../testCherryPickWithoutConflicts.st | 23 -- .../instance/testDiffWithParent.st | 17 -- ...tDiscardUnsavedChangeToUnloadedArtifact.st | 20 -- ...ctAfterMergeInIncmoingLoadOrderPosition.st | 5 - ...ObjectAfterMergeInSameLoadOrderPosition.st | 5 - .../testMergeAndLoadUnloadedArtifact.st | 20 -- .../instance/testMergeFastForward.st | 22 -- .../instance/testMergeRemovalAndChange.st | 32 --- .../instance/testMergeSingleArtifact.st | 43 ---- .../instance/testMergeTwoOrphanedVersions.st | 25 -- .../testMergeVersionWithLoadedObjects.st | 47 ---- .../testMergeWithAddedArtifactOnBothSides.st | 36 --- .../instance/testMergeWithConflicts.st | 16 -- .../testMergeWithConflictsChooseRemote.st | 17 -- ...testMergeWithRemovedArtifactOnBothSides.st | 33 --- .../instance/testMergeWithoutConflicts.st | 20 -- .../instance/testOldMergeRemovalAndChange.st | 28 --- .../testOldMergeTwoOrphanedVersions.st | 19 -- ...estOldMergeWithAddedArtifactOnBothSides.st | 30 --- .../instance/testOldMergeWithConflicts.st | 17 -- .../testOldMergeWithConflictsChooseRemote.st | 18 -- ...tOldMergeWithRemovedArtifactOnBothSides.st | 31 --- .../instance/testOldMergeWithoutConflicts.st | 21 -- .../testPatchAndLoadUnloadedArtifact.st | 19 -- .../instance/testPatchUnloadedArtifact.st | 17 -- ...ctAfterMergeInIncomingLoadOrderPosition.st | 4 - ...ObjectAfterMergeInSameLoadOrderPosition.st | 6 - .../instance/testRemovePackage.st | 15 -- .../testRemovedUnsavedArtifactStaysRemoved.st | 23 -- .../instance/testRestoreClass.st | 35 --- .../instance/testRestorePackage.st | 40 ---- .../testRevertDoesNotSaveUnrelatedChanges.st | 23 -- .../instance/testRevertOfOrphanedVersion.st | 20 -- .../instance/testRevertWithoutConflicts.st | 17 -- .../instance/testSaveTimestampIsNow.st | 15 -- .../instance/testSaveWithoutAddedArtifact.st | 26 --- ...tSwitchAndMoveOverToBranchAtSameVersion.st | 26 --- .../testSwitchAwayFromOrphanedBranch.st | 28 --- .../instance/testSwitchBranch.st | 25 -- ...stSwitchBranchAndMoveOverUnsavedChanges.st | 25 -- ...ndMoveOverUnsavedChangesInAddedArtifact.st | 24 -- ...chAndMoveOverUnsavedChangesWithConflict.st | 36 --- .../testSwitchToBranchAtSameVersion.st | 28 --- .../instance/testTrackingAClass.st | 38 --- .../instance/testTrackingAPackage.st | 45 ---- .../instance/testTrackingObject.st | 32 --- .../instance/testTrackingText.st | 28 --- .../instance/testTrackingWorkspaceMorph.st | 36 --- .../instance/workingCopy.st | 3 - .../methodProperties.json | 74 ------ .../properties.json | 22 -- .../README.md | 6 - .../class/isAbstract.st | 3 - .../instance/newRepository.st | 3 - .../instance/newStore.st | 3 - .../instance/newWorkingCopy.st | 5 - .../instance/setUp.st | 5 - .../instance/tearDown.st | 6 - .../methodProperties.json | 9 - .../properties.json | 16 -- .../README.md | 0 .../assertConflictMethodHasNotChanged.st | 5 - ...sertConflictMethodIncomingEditionLoaded.st | 4 - ...nflictedMethodIncomingEditionPresentIn..st | 12 - ...onflictedMethodWorkingEditionPresentIn..st | 12 - .../instance/assertThirdMethodLoaded.st | 4 - .../instance/assertThirdMethodWillBeAdded..st | 11 - ...oseIncomingEditionOfConflictedMethodIn..st | 11 - ...ooseWorkingEditionOfConflictedMethodIn..st | 11 - .../instance/classFactory.st | 4 - .../instance/createBaseVersion.st | 9 - .../instance/createFirstMergeParent.st | 7 - .../instance/createSecondMergeParent.st | 30 --- .../instance/firstVersion.st | 4 - .../instance/initializeForTestCase..st | 4 - .../instance/merge.st | 10 - .../instance/oldMerge.st | 8 - .../instance/packageInfo.st | 4 - .../instance/packagePath.st | 4 - .../instance/sampleClass.st | 3 - .../instance/secondVersion.st | 4 - .../instance/setUp.st | 6 - .../instance/thirdVersion.st | 4 - .../methodProperties.json | 26 --- .../properties.json | 23 -- .../README.md | 0 .../instance/classFactory.st | 4 - .../instance/createFirstMergeParent.st | 11 - .../instance/createSecondMergeParent.st | 12 - .../instance/firstVersion.st | 4 - .../instance/firstVersionArtifact.st | 3 - .../instance/initializeForTestCase..st | 4 - .../instance/merge.st | 10 - .../instance/oldMerge.st | 8 - .../instance/secondVersion.st | 4 - .../instance/secondVersionArtifact.st | 3 - .../instance/setUp.st | 7 - .../instance/tearDown.st | 7 - .../methodProperties.json | 16 -- .../properties.json | 25 -- .../README.md | 7 - .../class/forTestCase..st | 6 - .../instance/assert..st | 3 - .../instance/assert.description..st | 3 - .../instance/assert.equals..st | 3 - .../instance/assert.equals.description..st | 3 - .../instance/deny..st | 3 - .../instance/deny.description..st | 3 - .../instance/initializeForTestCase..st | 6 - .../instance/repository.st | 4 - .../instance/setUp.st | 3 - .../instance/should.raise..st | 3 - .../instance/shouldnt.raise..st | 3 - .../instance/store.st | 4 - .../instance/tearDown.st | 3 - .../instance/workingCopy.st | 4 - .../methodProperties.json | 18 -- .../properties.json | 17 -- .../String.extension/class/squotMirror.st | 3 - .../class/squotTextFileSerializer.st | 4 - .../instance/asSquotVersionIn..st | 3 - .../instance/squotPathSegments.st | 3 - .../String.extension/methodProperties.json | 7 - .../String.extension/properties.json | 2 - .../Symbol.extension/class/squotMirror.st | 3 - .../instance/canHaveNameAssignedBySquot.st | 5 - .../instance/captureWithSquot..st | 5 - .../instance/squotShadowFactory.st | 5 - .../instance/squotShouldKeepIdentity.st | 3 - .../Symbol.extension/methodProperties.json | 8 - .../Symbol.extension/properties.json | 2 - .../README.md | 1 - .../instance/assertVersion.containsClass..st | 12 - .../instance/assertVersion.containsMethod..st | 9 - .../assertVersion.containsPackage..st | 6 - .../assertVersion.doesNotContainMethod..st | 9 - .../methodProperties.json | 8 - .../properties.json | 4 - .../TSquotAddition.trait/README.md | 1 - .../instance/isAddition.st | 3 - .../instance/isModification.st | 3 - .../instance/isRemoval.st | 3 - .../instance/squotHasChanges.st | 3 - .../methodProperties.json | 8 - .../TSquotAddition.trait/properties.json | 4 - .../TSquotArtifact.trait/README.md | 1 - .../instance/asBaseDiff.against..st | 7 - .../browseFromSquotWorkingCopyArtifact..st | 3 - .../instance/copyWithDiffApplied..st | 3 - .../instance/diffAgainst..st | 6 - .../instance/diffContentAgainstThatOf..st | 4 - .../diffContentAgainstThatOf.withBase..st | 6 - .../instance/isLoadable.st | 4 - .../instance/mergeDiffWith.basedOn..st | 5 - .../instance/mergeWith.basedOn..st | 3 - .../instance/mergeWithoutBaseWith..st | 5 - .../instance/packageArtifactDefinitions.st | 3 - .../instance/packageName.st | 3 - .../instance/reverseDiffContentAgainst..st | 4 - .../reverseDiffContentAgainst.withBase..st | 7 - .../instance/serializerName.st | 3 - .../instance/shadowOfTrackedObject.st | 4 - .../instance/squotSummaryText.st | 3 - .../instance/storeWith..st | 4 - .../instance/wantsToBeInTableOfContents.st | 3 - .../instance/writeWith..st | 3 - .../methodProperties.json | 24 -- .../TSquotArtifact.trait/properties.json | 4 - src/Squot.package/TSquotCodec.trait/README.md | 1 - .../class/canReadObjectSerializedBy..st | 3 - .../instance/canReadDiffs.st | 4 - .../instance/canWriteDiffs.st | 4 - .../TSquotCodec.trait/methodProperties.json | 6 - .../TSquotCodec.trait/properties.json | 4 - .../README.md | 5 - .../instance/mergeBasesWith..st | 7 - .../instance/versionsNotOn..st | 7 - .../instance/versionsUniqueTo..st | 7 - .../instance/versionsUnsharedWith..st | 9 - .../methodProperties.json | 8 - .../properties.json | 4 - src/Squot.package/TSquotDiff.trait/README.md | 2 - .../instance/addReferenceDiff..st | 3 - .../applyToObjectNamed.inGraph.with..st | 9 - .../instance/applyToShadowNamed.inGraph..st | 6 - .../instance/asSquotConflicts.st | 4 - .../initializeSquotDiffNodes.with..st | 9 - .../instance/newSquotDiffNodes.st | 8 - ...eDiffsWithDefaultOwners.reflectedIn.do..st | 5 - .../TSquotDiff.trait/instance/rightName.st | 4 - .../instance/squotApplyTo..st | 5 - .../instance/squotApplyTo.with..st | 4 - .../instance/squotApplyToLoaded..st | 5 - .../instance/squotHasChanges.st | 4 - ...ectedIn.asMaterializedFrom.reflectedIn..st | 4 - .../TSquotDiff.trait/methodProperties.json | 17 -- .../TSquotDiff.trait/properties.json | 4 - .../TSquotDiffable.trait/README.md | 1 - .../instance/squotDiffAgainst.with..st | 4 - .../methodProperties.json | 5 - .../TSquotDiffable.trait/properties.json | 4 - .../TSquotDiffableShadow.trait/README.md | 2 - .../instance/squotDiffAgainst.with..st | 9 - .../methodProperties.json | 5 - .../properties.json | 6 - .../TSquotLocalHistorian.trait/README.md | 1 - .../instance/asSquotVersionIn..st | 4 - .../instance/createNewVersion.with..st | 15 -- .../createNewVersionFromPatch.with..st | 16 -- .../instance/name.st | 4 - .../instance/repository.st | 4 - .../instance/shortName.st | 3 - .../instance/version..st | 3 - .../instance/version.st | 4 - .../methodProperties.json | 12 - .../properties.json | 6 - .../TSquotLocalRepository.trait/README.md | 1 - .../instance/clearTemporaryVersionsOn..st | 3 - .../instance/copySettingsFrom.to..st | 3 - .../instance/createNewVersion.with..st | 6 - .../createNewVersionFromPatch.with..st | 7 - .../instance/createWorkingCopy.st | 7 - .../instance/defaultHistorian.st | 4 - .../instance/extension..st | 6 - .../instance/extension.ifPresent.ifAbsent..st | 6 - .../instance/hasExtension..st | 3 - .../instance/hasTemporaryVersionsOn..st | 3 - .../instance/historianForTemporaryVersions.st | 3 - .../historianForTemporaryVersionsOn..st | 3 - .../instance/historyWalkClass.st | 3 - .../instance/initializeInDirectory..st | 4 - .../instance/unitOfWork.st | 4 - .../instance/withUnitOfWork..st | 5 - .../instance/workingCopyClass.st | 3 - .../methodProperties.json | 21 -- .../properties.json | 4 - .../TSquotModification.trait/README.md | 1 - .../instance/isAddition.st | 3 - .../instance/isModification.st | 3 - .../instance/isRemoval.st | 3 - .../methodProperties.json | 7 - .../TSquotModification.trait/properties.json | 4 - .../README.md | 1 - .../instance/add..st | 3 - .../instance/addUnloaded..st | 4 - .../instance/applyDiff..st | 3 - .../instance/applyPatch..st | 3 - .../instance/removeAt..st | 4 - .../methodProperties.json | 9 - .../properties.json | 6 - .../TSquotObjectContainer.trait/README.md | 3 - .../instance/artifactAt..st | 3 - .../instance/artifactAt.ifAbsent..st | 3 - .../artifactAt.ifPresent.ifAbsent..st | 3 - .../instance/artifactsInLoadOrder.st | 3 - .../instance/includesObjectAt..st | 3 - .../instance/newPatchBuilder.st | 3 - .../instance/patchRelativeToBase..st | 5 - .../methodProperties.json | 11 - .../properties.json | 4 - .../TSquotObjectReference.trait/README.md | 1 - .../instance/inGraph..st | 6 - .../instance/value..st | 4 - .../instance/value.st | 4 - .../methodProperties.json | 7 - .../properties.json | 4 - .../TSquotRemoval.trait/README.md | 1 - .../instance/isAddition.st | 3 - .../instance/isModification.st | 3 - .../TSquotRemoval.trait/instance/isRemoval.st | 3 - .../instance/squotHasChanges.st | 3 - .../TSquotRemoval.trait/methodProperties.json | 8 - .../TSquotRemoval.trait/properties.json | 4 - .../TSquotShadow.trait/README.md | 4 - .../instance/canHaveNameAssignedBySquot.st | 3 - .../instance/sameIn.asIn.ifAbsent..st | 5 - .../instance/squotMaterializeWith..st | 4 - .../instance/squotPreferredSerializer.st | 3 - .../instance/squotShadowMarker.st | 3 - .../instance/withSquotObjectName..st | 3 - .../TSquotShadow.trait/methodProperties.json | 10 - .../TSquotShadow.trait/properties.json | 4 - .../README.md | 1 - .../instance/atPathOf.writeStreamDo..st | 3 - .../methodProperties.json | 5 - .../properties.json | 4 - .../TSquotTrackableObject.trait/README.md | 13 -- .../instance/squotAddTransientStoreInfoTo..st | 6 - .../instance/squotInitializeStoreInfo..st | 5 - .../squotRemoveTransientStoreInfoFrom..st | 6 - .../methodProperties.json | 7 - .../properties.json | 4 - .../TSquotUnitOfWork.trait/README.md | 20 -- .../instance/activateDuring..st | 6 - .../TSquotUnitOfWork.trait/instance/finish.st | 4 - .../TSquotUnitOfWork.trait/instance/start.st | 4 - .../methodProperties.json | 7 - .../TSquotUnitOfWork.trait/properties.json | 4 - .../TSquotVersion.trait/README.md | 1 - .../TSquotVersion.trait/instance/^equals.st | 3 - .../TSquotVersion.trait/instance/artifacts.st | 3 - .../instance/asSquotVersionIn..st | 4 - .../TSquotVersion.trait/instance/hash.st | 3 - .../instance/isAncestorOf..st | 3 - .../instance/lazySnapshot.st | 3 - .../TSquotVersion.trait/instance/loadOrder.st | 3 - .../instance/mergeBasesWith..st | 3 - .../instance/parentSnapshot.st | 4 - .../TSquotVersion.trait/instance/printOn..st | 10 - .../TSquotVersion.trait/methodProperties.json | 14 -- .../TSquotVersion.trait/properties.json | 6 - .../TSquotVersionBuilder.trait/README.md | 1 - .../instance/author..st | 3 - .../instance/author.st | 4 - .../instance/committer..st | 3 - .../instance/committer.st | 3 - .../instance/doNotStoreMetadata.st | 3 - .../instance/initializeClean.st | 7 - .../instance/message..st | 4 - .../instance/message.st | 4 - .../instance/parents..st | 4 - .../instance/parents.st | 4 - .../instance/snapshot..st | 4 - .../instance/snapshot.st | 4 - .../instance/timestamp..st | 4 - .../instance/timestamp.st | 4 - .../methodProperties.json | 18 -- .../properties.json | 4 - .../README.md | 1 - .../testAddMultiplePackagesToSameFolder.st | 26 --- .../testPathInImageStoreIsCorrected.st | 13 -- ...tPathInImageStoreIsCorrectedWithOldSave.st | 14 -- .../methodProperties.json | 7 - .../properties.json | 4 - .../README.md | 1 - .../instance/performTest.st | 3 - .../suppressProgressDisplayDuring..st | 13 -- .../methodProperties.json | 6 - .../properties.json | 4 - .../README.md | 4 - .../suppressChangeNotificationsDuring..st | 3 - .../methodProperties.json | 5 - .../properties.json | 4 - .../README.md | 1 - .../instance/subjectTestCase.st | 3 - .../instance/testErringTestStillErrs.st | 5 - .../instance/testFailingTestStillFails.st | 5 - .../instance/testPassingTestStillPasses.st | 5 - .../instance/testProgressIsMuted.st | 4 - .../methodProperties.json | 9 - .../properties.json | 15 -- .../README.md | 1 - .../class/isAbstract.st | 4 - .../instance/testThatErrs.st | 8 - .../instance/testThatFails.st | 8 - .../instance/testThatPasses.st | 8 - .../methodProperties.json | 7 - .../properties.json | 16 -- .../UUID.extension/class/squotMirror.st | 4 - .../UUID.extension/methodProperties.json | 5 - .../UUID.extension/properties.json | 2 - .../class/squotMirror.st | 3 - .../instance/canHaveNameAssignedBySquot.st | 4 - .../instance/captureWithSquot..st | 4 - .../instance/captureWithSquot.st | 3 - .../instance/squotShadowFactory.st | 4 - .../instance/squotShouldKeepIdentity.st | 4 - .../methodProperties.json | 9 - .../UndefinedObject.extension/properties.json | 2 - .../monticello.meta/categories.st | 35 --- .../.filetree | 4 - .../.squot-contents | 6 - .../instance/cacheAllFileNamesDuring..st | 7 - .../instance/isValid.st | 4 - .../methodProperties.json | 6 - .../properties.json | 2 - .../instance/packageNamed.ifPresent..st | 3 - .../methodProperties.json | 5 - .../properties.json | 2 - .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../properties.json | 2 - .../.squot-contents | 6 - .../instance/asDictionary.st | 3 - .../methodProperties.json | 5 - .../Collection.extension/properties.json | 2 - .../README.md | 2 - src/SquotTonel-Core.package/.filetree | 4 - src/SquotTonel-Core.package/.squot-contents | 7 - .../class/squotTonelSerializer.st | 4 - .../methodProperties.json | 5 - .../PackageInfo.extension/properties.json | 2 - .../instance/isInsideCypressDirectory..st | 5 - .../instance/tonelPackageLocator.st | 18 -- .../methodProperties.json | 6 - .../properties.json | 2 - .../SquotTonelDeserializer.class/README.md | 0 .../class/canReadObjectSerializedBy..st | 3 - .../class/initialize.st | 4 - .../class/unload.st | 3 - .../instance/fillContentOf.from..st | 11 - .../methodProperties.json | 7 - .../properties.json | 14 -- .../SquotTonelSerializer.class/README.md | 0 .../class/addUserSettingsOfAll.in.to..st | 8 - .../class/copySettingsFrom.to..st | 12 - .../class/rewritePath.for..st | 12 - .../class/userFriendlyTitle.st | 3 - .../instance/propertiesFileContents.st | 7 - .../instance/version.st | 3 - .../instance/write..st | 8 - .../writeMCSnapshot.forPackageNamed.from..st | 5 - ...forPackageNamed.packageProperties.from..st | 9 - .../methodProperties.json | 12 - .../properties.json | 14 -- .../instance/tonelToggleChangeStampsOfAll..st | 13 -- .../methodProperties.json | 5 - .../properties.json | 2 - .../instance/currentPackageProperties.st | 9 - .../methodProperties.json | 5 - .../TonelReader.extension/properties.json | 2 - .../TonelReaderForFileSystem.class/README.md | 0 .../instance/fileUtils.st | 3 - .../methodProperties.json | 5 - .../properties.json | 14 -- .../TonelWriterForFileSystem.class/README.md | 0 .../instance/fileUtils.st | 3 - .../methodProperties.json | 5 - .../properties.json | 14 -- .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 src/SquotTonel-Core.package/properties.json | 2 - src/SquotTonel-Tests.package/.filetree | 4 - src/SquotTonel-Tests.package/.squot-contents | 7 - .../instance/testFindTonelPackage.st | 12 - .../methodProperties.json | 5 - .../properties.json | 2 - .../README.md | 0 .../instance/trackPackage.st | 5 - .../methodProperties.json | 5 - .../properties.json | 14 -- .../README.md | 0 .../testCanReadFromTonelSerializer.st | 4 - .../methodProperties.json | 5 - .../properties.json | 14 -- .../README.md | 0 .../instance/package.st | 3 - .../instance/setUp.st | 12 - .../instance/tearDown.st | 3 - .../instance/testCypressToTonel.st | 24 -- .../instance/testTonelToCypress.st | 24 -- .../methodProperties.json | 9 - .../properties.json | 18 -- .../README.md | 0 .../instance/testFindsMultiplePackages.st | 18 -- .../testFindsPackageInSubdirectory.st | 10 - .../instance/testFindsPackageUnderRoot.st | 10 - ...esCypressPackagesWithMethodNamedPackage.st | 10 - .../methodProperties.json | 8 - .../properties.json | 14 -- .../SquotTonelReadWriteTest.class/README.md | 0 .../instance/artifactWithoutTimestamps..st | 9 - .../instance/sampleArtifact.st | 17 -- .../sampleArtifactWithoutTimestamps.st | 9 - .../instance/setUp.st | 8 - .../instance/tearDown.st | 7 - .../instance/testWriteAndReadOfPackage.st | 21 -- ...testWriteAndReadOfPackageWithTimestamps.st | 25 -- .../instance/withoutTimestamps..st | 13 -- .../methodProperties.json | 12 - .../properties.json | 21 -- .../SquotTonelSerializerTest.class/README.md | 0 .../instance/testRewriteCypressPath.st | 8 - ...estRewriteEmptyPathAddsPackageDirectory.st | 8 - .../testRewritePathAddsPackageDirectory.st | 8 - ...stRewritePathWithPackageAlreadyIncluded.st | 8 - .../instance/testWritesPropertiesFile.st | 12 - .../methodProperties.json | 9 - .../properties.json | 14 -- .../SquotTonelWorkingCopyTest.class/README.md | 0 .../instance/setUp.st | 7 - ...testChangestampsAddedAfterTurningThemOn.st | 17 -- ...estChangestampsEnabledInAddedPackageToo.st | 15 -- .../testPackagesAddedWithTonelPaths.st | 9 - .../methodProperties.json | 8 - .../properties.json | 17 -- .../TemporarySystemChangeFile.class/README.md | 0 .../instance/delete.st | 4 - .../instance/directory.st | 4 - .../instance/genericChangesName.st | 3 - .../instance/prefixChangesName.st | 3 - .../instance/prefixGeneral.st | 3 - .../instance/randomString.st | 3 - .../instance/tempChangesName.st | 3 - .../instance/useStandardChangesFile.st | 5 - .../instance/useTemporaryChangesFile.st | 5 - .../methodProperties.json | 13 -- .../properties.json | 15 -- .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 src/SquotTonel-Tests.package/properties.json | 2 - src/VersionControl.package/.squot-contents | 7 - 5954 files changed, 65 insertions(+), 44905 deletions(-) delete mode 100644 .squot create mode 100644 .squot-metadata delete mode 100644 src/BaselineOfSquot.package/.squot-contents delete mode 100644 src/FileSystem-Git.package/.squot-contents delete mode 100644 src/Squit.package/.filetree delete mode 100644 src/Squit.package/.squot-contents delete mode 100644 src/Squit.package/GitStamp.extension/instance/asStringWithoutTimestamp.st delete mode 100644 src/Squit.package/GitStamp.extension/methodProperties.json delete mode 100644 src/Squit.package/GitStamp.extension/properties.json delete mode 100644 src/Squit.package/Object.extension/instance/squitBrowserSupplementObjectMenu..st delete mode 100644 src/Squit.package/Object.extension/methodProperties.json delete mode 100644 src/Squit.package/Object.extension/properties.json delete mode 100644 src/Squit.package/PackageInfo.extension/instance/squitBrowserSupplementObjectMenu..st delete mode 100644 src/Squit.package/PackageInfo.extension/methodProperties.json delete mode 100644 src/Squit.package/PackageInfo.extension/properties.json delete mode 100644 src/Squit.package/SquitAddRemote.class/README.md delete mode 100644 src/Squit.package/SquitAddRemote.class/instance/accept.st delete mode 100644 src/Squit.package/SquitAddRemote.class/instance/acceptAndClose.st delete mode 100644 src/Squit.package/SquitAddRemote.class/instance/accepted..st delete mode 100644 src/Squit.package/SquitAddRemote.class/instance/accepted.st delete mode 100644 src/Squit.package/SquitAddRemote.class/instance/afterCloseContinueIn.with..st delete mode 100644 src/Squit.package/SquitAddRemote.class/instance/buildButtons..st delete mode 100644 src/Squit.package/SquitAddRemote.class/instance/buildInputFields..st delete mode 100644 src/Squit.package/SquitAddRemote.class/instance/buildInputPanel..st delete mode 100644 src/Squit.package/SquitAddRemote.class/instance/buildWith..st delete mode 100644 src/Squit.package/SquitAddRemote.class/instance/cancel.st delete mode 100644 src/Squit.package/SquitAddRemote.class/instance/cancelAndClose.st delete mode 100644 src/Squit.package/SquitAddRemote.class/instance/cancelColor.st delete mode 100644 src/Squit.package/SquitAddRemote.class/instance/hasBeenAccepted.st delete mode 100644 src/Squit.package/SquitAddRemote.class/instance/inform..st delete mode 100644 src/Squit.package/SquitAddRemote.class/instance/informAboutInvalidValues.st delete mode 100644 src/Squit.package/SquitAddRemote.class/instance/initialize.st delete mode 100644 src/Squit.package/SquitAddRemote.class/instance/initializeRemoteUrl.st delete mode 100644 src/Squit.package/SquitAddRemote.class/instance/okColor.st delete mode 100644 src/Squit.package/SquitAddRemote.class/instance/onClose.st delete mode 100644 src/Squit.package/SquitAddRemote.class/instance/open.st delete mode 100644 src/Squit.package/SquitAddRemote.class/instance/remoteName..st delete mode 100644 src/Squit.package/SquitAddRemote.class/instance/remoteName.st delete mode 100644 src/Squit.package/SquitAddRemote.class/instance/remoteUrl..st delete mode 100644 src/Squit.package/SquitAddRemote.class/instance/remoteUrl.st delete mode 100644 src/Squit.package/SquitAddRemote.class/instance/validate.st delete mode 100644 src/Squit.package/SquitAddRemote.class/instance/validateRemoteName.st delete mode 100644 src/Squit.package/SquitAddRemote.class/instance/validateUrl.st delete mode 100644 src/Squit.package/SquitAddRemote.class/methodProperties.json delete mode 100644 src/Squit.package/SquitAddRemote.class/properties.json delete mode 100644 src/Squit.package/SquitAddRemoteTest.class/README.md delete mode 100644 src/Squit.package/SquitAddRemoteTest.class/instance/testValidateUrlAcceptsHttp.st delete mode 100644 src/Squit.package/SquitAddRemoteTest.class/instance/testValidateUrlAcceptsHttps.st delete mode 100644 src/Squit.package/SquitAddRemoteTest.class/instance/testValidateUrlRejectsSsh.st delete mode 100644 src/Squit.package/SquitAddRemoteTest.class/instance/testValidateUrlRejectsSshWithoutScheme.st delete mode 100644 src/Squit.package/SquitAddRemoteTest.class/methodProperties.json delete mode 100644 src/Squit.package/SquitAddRemoteTest.class/properties.json delete mode 100644 src/Squit.package/SquitArtifactWrapper.class/README.md delete mode 100644 src/Squit.package/SquitArtifactWrapper.class/class/on..st delete mode 100644 src/Squit.package/SquitArtifactWrapper.class/instance/^less.equals.st delete mode 100644 src/Squit.package/SquitArtifactWrapper.class/instance/artifact..st delete mode 100644 src/Squit.package/SquitArtifactWrapper.class/instance/artifact.st delete mode 100644 src/Squit.package/SquitArtifactWrapper.class/instance/printOn..st delete mode 100644 src/Squit.package/SquitArtifactWrapper.class/methodProperties.json delete mode 100644 src/Squit.package/SquitArtifactWrapper.class/properties.json delete mode 100644 src/Squit.package/SquitBadRemote.class/README.md delete mode 100644 src/Squit.package/SquitBadRemote.class/class/remote..st delete mode 100644 src/Squit.package/SquitBadRemote.class/instance/cause..st delete mode 100644 src/Squit.package/SquitBadRemote.class/instance/cause.st delete mode 100644 src/Squit.package/SquitBadRemote.class/instance/remote..st delete mode 100644 src/Squit.package/SquitBadRemote.class/instance/remote.st delete mode 100644 src/Squit.package/SquitBadRemote.class/methodProperties.json delete mode 100644 src/Squit.package/SquitBadRemote.class/properties.json delete mode 100644 src/Squit.package/SquitBrowser.class/README.md delete mode 100644 src/Squit.package/SquitBrowser.class/class/defaultTitle.st delete mode 100644 src/Squit.package/SquitBrowser.class/class/initialize.st delete mode 100644 src/Squit.package/SquitBrowser.class/class/initializeSelfUpdate.st delete mode 100644 src/Squit.package/SquitBrowser.class/class/open.st delete mode 100644 src/Squit.package/SquitBrowser.class/class/registerInWorldMenu.st delete mode 100644 src/Squit.package/SquitBrowser.class/class/selfUpdate.st delete mode 100644 src/Squit.package/SquitBrowser.class/class/selfUpdateBranch..st delete mode 100644 src/Squit.package/SquitBrowser.class/class/selfUpdateBranch.st delete mode 100644 src/Squit.package/SquitBrowser.class/class/selfUpdateFromMetacello.st delete mode 100644 src/Squit.package/SquitBrowser.class/class/selfUpdateRepository.st delete mode 100644 src/Squit.package/SquitBrowser.class/class/selfUpdateWithSquot..st delete mode 100644 src/Squit.package/SquitBrowser.class/class/unload.st delete mode 100644 src/Squit.package/SquitBrowser.class/class/unregisterFromWorldMenu.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/aboutToStyle..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionAddOrRemoveTrackedPackages.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionBranch.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionBranchAdd.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionBranchCreateAndSwitch.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionBranchDiffWithWorkingCopy.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionBranchMerge.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionBranchPush.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionBranchRemove.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionBranchRemoveUpstream.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionBranchRename.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionBranchResetLoadedToCommit.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionBranchResetToCommit.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionBranchResetToTip.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionBranchSetCurrent.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionBranchSwitch.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionBranchSwitchMoveOver.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionBranchUnsetUpstream.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionBrowseWorkingCopy.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionClearSearch.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionCommit.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionCommitCherryPick.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionCommitDiffWithNextSelected.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionCommitDiffWithParent.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionCommitDiffWithWorkingCopy.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionCommitMergeIntoMemory.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionCommitRevert.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionCommitSelectionCheckout.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionCommitSwitchNewBranch.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionCommitTag.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionCredentialsEdit.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionFeedback.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionFetch.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionGitUserEdit.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionManageRemotes.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionMerge.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionObjectBrowse.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionObjectBrowseInWorkingCopy.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionObjectCheckout.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionObjectExplore.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionObjectMerge.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionObjectUntrack.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionPackageInfoObjectEditPostscript.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionPackageInfoObjectEditPostscriptOfRemoval.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionPackageInfoObjectEditPreamble.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionPackageInfoObjectEditPreambleOfRemoval.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionProjectAdd.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionProjectClone.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionProjectRemove.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionProjectRename.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionPull.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionPush.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionPushToRemote..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionRemoteAdd.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionSelfUpdate.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionSelfUpdateSetBranch.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionSetUpstreamBranch.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionSettings.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/actionSquotWorkingCopyExplore.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/activeBranchChanged.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/addModelItemsToWindowMenu..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/addProjectIfCanceled..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/branchButtonHelpText.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/branchList.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/branchListIconAt..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/branchListIfRepositoryDoesNotExist.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/branchListMenu.shifted..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/branchSelection..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/branchSelection.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/branchSelectionChanged.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/browseTags.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/buildBranchList..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/buildButtonBar..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/buildCommitList..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/buildCommitSearchPanel..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/buildMenu.from..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/buildObjectList..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/buildProjectBranchPanel..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/buildProjectList..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/buildSearchBar..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/buildSearchClearButton..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/buildSearchPanel..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/buildSummary..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/buildWith..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/buttonBarHeight.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/cherryPick.toWorkingCopy..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/chooseOneRemoteFrom..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/chooseRemotesFrom..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/chooseableRemoteNamesFrom..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/clone.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/commitList.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/commitListKey.from..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/commitListMenu..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/commitSelection..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/commitSelection.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/commitSelectionChanged.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/compareVersions.with..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/confirm..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/contents.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/continueAsyncBuildingCommitList.historyWalk..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/createNewBranchAt.ifCanceled..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/createNewBranchAt.initialName.ifCanceled..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/defaultCommitText.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/detectGitHubRemote.ifNone..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/detectGitHubUsernameIfNone..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/dragFromBranchList..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/dragFromCommitList..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/dragFromObjectList..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/dragFromProjectList..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/dropOnBranchList.at.copyIndicated..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/dropOnCommitList.on.copyIndicated..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/dropOnObjectList.at.copyIndicated..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/dropOnProjectList.at.copyIndicated..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/editGlobalAuthorInfo.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/errorRemoteAuthenticationFailed..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/errorRemoteResourceNotFound..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/errorRemoteUndefined..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/fetch..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/fetchFrom.remoteNames..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/getShouldRevertCherryPickedChanges.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/hasBranchSelection.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/hasCommitSelection.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/hasObjectSelection.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/hasProjectSelection.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/hasProjects.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/hasSearchTerm.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/historiansDecorationAtVersion..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/inform..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/informThatProjectDoesNotExist.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/initialize.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/labelString.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/loadBranchList.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/loadCommitList.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/loadedSelectedObject.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/menuBranchListHook..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/menuCommitListHook..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/menuObjectListGeneral..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/menuObjectListVersionObjectEdition..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/menuObjectListWorkingCopyObject..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/menuProjectListHook..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/menuProjectListWorkingCopyHook..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/mergeBranch.into..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/mergeCommit.into..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/mergeCommit.into.mergeTitle.saveTitle.saveMessageTemplate..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/modelWakeUp.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/newHistorianFor.named.onError..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/objectCache.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/objectCacheRefresh.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/objectCacheRefreshAsync.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/objectIndex..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/objectIndex.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/objectList.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/objectListMenu..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/objectSelection.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/offerPackageFormatMenu.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/offerToAddFirstProject.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/packageFormatMenuSpec.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/projectIndex..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/projectIndex.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/projectList.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/projectListMenu..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/projectSelection..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/projectSelection.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/projectsWithRepository.do..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/pullUpstream..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/push.toRemoteNamed..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/pushBranch.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/rebuildCommitList.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/refresh.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/remotesMenuWithItems..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/remotesPushSubMenu.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/removeTrackedRemoteBranch..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/requestAndSetUpstreamBranchOf..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/requestAndStoreCredentialsFor.remoteUrl.ifCanceled..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/revert.inWorkingCopy..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/searchClearButtonWidth.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/searchPanelHeight.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/searchTerm..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/searchTerm.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/selectActiveHistorian.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/selectedHistorian..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/setPackageSerializer..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/setUpstreamBranchOf..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/shiftedMenuBranchListHook..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/showBadRemote..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/showMenuForVersion.onBranch..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/showMenuForVersion.onVersion..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/showMenuForVersion.onWorkingCopy..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/soleParentOf.orChooseWithPrompt..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/sortVersionsTopologically..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/stepAt.in..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/summaryForCommit..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/timeOfLastListUpdate.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/toggleMetadata.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/updateHistorianDecorationsMap.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/wantsBranchListDrop.type.from..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/wantsCommitListDrop.type.from..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/wantsObjectListDrop.type.from..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/wantsProjectListDrop.type.from..st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/wantsSteps.st delete mode 100644 src/Squit.package/SquitBrowser.class/instance/withUnitOfWork..st delete mode 100644 src/Squit.package/SquitBrowser.class/methodProperties.json delete mode 100644 src/Squit.package/SquitBrowser.class/properties.json delete mode 100644 src/Squit.package/SquitBrowserTest.class/README.md delete mode 100644 src/Squit.package/SquitBrowserTest.class/class/resources.st delete mode 100644 src/Squit.package/SquitBrowserTest.class/instance/addAndSelectTemporarySquitWorkingCopy.st delete mode 100644 src/Squit.package/SquitBrowserTest.class/instance/newRepository.st delete mode 100644 src/Squit.package/SquitBrowserTest.class/instance/setUp.st delete mode 100644 src/Squit.package/SquitBrowserTest.class/instance/testDetectGitHubUsername.st delete mode 100644 src/Squit.package/SquitBrowserTest.class/methodProperties.json delete mode 100644 src/Squit.package/SquitBrowserTest.class/properties.json delete mode 100644 src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/README.md delete mode 100644 src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/class/openOn.label..st delete mode 100644 src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/instance/excludeGitRepositoryDirectory.from..st delete mode 100644 src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/instance/hasMoreDirectories..st delete mode 100644 src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/instance/rootDirectoryList.st delete mode 100644 src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/instance/subDirectoriesOf..st delete mode 100644 src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/instance/workingCopyDirectory..st delete mode 100644 src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/instance/workingCopyDirectory.st delete mode 100644 src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/methodProperties.json delete mode 100644 src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/properties.json delete mode 100644 src/Squit.package/SquitFallbackUnitOfWork.class/README.md delete mode 100644 src/Squit.package/SquitFallbackUnitOfWork.class/class/wrapping.for..st delete mode 100644 src/Squit.package/SquitFallbackUnitOfWork.class/instance/activateDuring..st delete mode 100644 src/Squit.package/SquitFallbackUnitOfWork.class/instance/gitRepository..st delete mode 100644 src/Squit.package/SquitFallbackUnitOfWork.class/instance/gitRepository.st delete mode 100644 src/Squit.package/SquitFallbackUnitOfWork.class/methodProperties.json delete mode 100644 src/Squit.package/SquitFallbackUnitOfWork.class/properties.json delete mode 100644 src/Squit.package/SquitFeedback.class/README.md delete mode 100644 src/Squit.package/SquitFeedback.class/class/defaultTitle.st delete mode 100644 src/Squit.package/SquitFeedback.class/class/open.st delete mode 100644 src/Squit.package/SquitFeedback.class/class/openWithAuthor..st delete mode 100644 src/Squit.package/SquitFeedback.class/instance/actionAuthor..st delete mode 100644 src/Squit.package/SquitFeedback.class/instance/actionAuthor.st delete mode 100644 src/Squit.package/SquitFeedback.class/instance/actionCancel.st delete mode 100644 src/Squit.package/SquitFeedback.class/instance/actionMessage..st delete mode 100644 src/Squit.package/SquitFeedback.class/instance/actionMessage.st delete mode 100644 src/Squit.package/SquitFeedback.class/instance/actionSubmit.st delete mode 100644 src/Squit.package/SquitFeedback.class/instance/actionTitle..st delete mode 100644 src/Squit.package/SquitFeedback.class/instance/actionTitle.st delete mode 100644 src/Squit.package/SquitFeedback.class/instance/buildButtons..st delete mode 100644 src/Squit.package/SquitFeedback.class/instance/buildInputFields..st delete mode 100644 src/Squit.package/SquitFeedback.class/instance/buildWith..st delete mode 100644 src/Squit.package/SquitFeedback.class/instance/close.st delete mode 100644 src/Squit.package/SquitFeedback.class/instance/inputFieldHeight.st delete mode 100644 src/Squit.package/SquitFeedback.class/instance/labelString.st delete mode 100644 src/Squit.package/SquitFeedback.class/methodProperties.json delete mode 100644 src/Squit.package/SquitFeedback.class/properties.json delete mode 100644 src/Squit.package/SquitHistorian.class/README.md delete mode 100644 src/Squit.package/SquitHistorian.class/class/existingNamed.repository.git..st delete mode 100644 src/Squit.package/SquitHistorian.class/class/newNamed.repository.git..st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/^equals.st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/asSquotVersionIn..st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/createNewVersion.with..st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/createNewVersionFromPatch.with..st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/errorUpstreamBranchNotConfigured.st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/expandedName.st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/exportToUpstream.st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/git.st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/gitRepository..st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/gitRepository.st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/hasUpstreamHistorian.st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/hash.st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/importFromUpstream.st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/isRemoteTrackingHistorian.st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/messageWhenMergingInto..st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/name..st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/name.st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/printOn..st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/remoteName.st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/remoteRef.st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/repository..st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/repository.st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/setName.repository.git..st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/setUpstreamToBranchTrackedByRemoteTrackingBranch..st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/shortName.st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/untrackUpstream.st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/upstreamHistorianName.st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/upstreamMergeMessage.st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/upstreamRemote.st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/upstreamRemoteName.st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/upstreamTrackingHistorian.st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/upstreamVersion.st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/version..st delete mode 100644 src/Squit.package/SquitHistorian.class/instance/version.st delete mode 100644 src/Squit.package/SquitHistorian.class/methodProperties.json delete mode 100644 src/Squit.package/SquitHistorian.class/properties.json delete mode 100644 src/Squit.package/SquitHistorianTest.class/README.md delete mode 100644 src/Squit.package/SquitHistorianTest.class/instance/performTest.st delete mode 100644 src/Squit.package/SquitHistorianTest.class/instance/testHistorianSetUpstreamBranch.st delete mode 100644 src/Squit.package/SquitHistorianTest.class/instance/testHistorianSetUpstreamBranchWithBogusRemoteTrackingBranch.st delete mode 100644 src/Squit.package/SquitHistorianTest.class/instance/testMergeMessage.st delete mode 100644 src/Squit.package/SquitHistorianTest.class/methodProperties.json delete mode 100644 src/Squit.package/SquitHistorianTest.class/properties.json delete mode 100644 src/Squit.package/SquitHistorianWrapper.class/README.md delete mode 100644 src/Squit.package/SquitHistorianWrapper.class/class/on..st delete mode 100644 src/Squit.package/SquitHistorianWrapper.class/instance/historian..st delete mode 100644 src/Squit.package/SquitHistorianWrapper.class/instance/historian.st delete mode 100644 src/Squit.package/SquitHistorianWrapper.class/instance/printOn..st delete mode 100644 src/Squit.package/SquitHistorianWrapper.class/methodProperties.json delete mode 100644 src/Squit.package/SquitHistorianWrapper.class/properties.json delete mode 100644 src/Squit.package/SquitHistoryWalk.class/README.md delete mode 100644 src/Squit.package/SquitHistoryWalk.class/instance/shouldVisit.before..st delete mode 100644 src/Squit.package/SquitHistoryWalk.class/methodProperties.json delete mode 100644 src/Squit.package/SquitHistoryWalk.class/properties.json delete mode 100644 src/Squit.package/SquitHistoryWalkTest.class/README.md delete mode 100644 src/Squit.package/SquitHistoryWalkTest.class/instance/newVersion.parents.authoredAt.committedAt..st delete mode 100644 src/Squit.package/SquitHistoryWalkTest.class/instance/performTest.st delete mode 100644 src/Squit.package/SquitHistoryWalkTest.class/instance/setUp.st delete mode 100644 src/Squit.package/SquitHistoryWalkTest.class/instance/testCorrectExclusionOfAncestorsThroughCorrectWalkOrder.st delete mode 100644 src/Squit.package/SquitHistoryWalkTest.class/instance/testOrderOfRebasedCommits.st delete mode 100644 src/Squit.package/SquitHistoryWalkTest.class/methodProperties.json delete mode 100644 src/Squit.package/SquitHistoryWalkTest.class/properties.json delete mode 100644 src/Squit.package/SquitIllegalUseOfRemoteTrackingBranch.class/README.md delete mode 100644 src/Squit.package/SquitIllegalUseOfRemoteTrackingBranch.class/class/historian..st delete mode 100644 src/Squit.package/SquitIllegalUseOfRemoteTrackingBranch.class/instance/remoteTrackingHistorian..st delete mode 100644 src/Squit.package/SquitIllegalUseOfRemoteTrackingBranch.class/instance/remoteTrackingHistorian.st delete mode 100644 src/Squit.package/SquitIllegalUseOfRemoteTrackingBranch.class/methodProperties.json delete mode 100644 src/Squit.package/SquitIllegalUseOfRemoteTrackingBranch.class/properties.json delete mode 100644 src/Squit.package/SquitInteractiveAddRemote.class/README.md delete mode 100644 src/Squit.package/SquitInteractiveAddRemote.class/class/repository..st delete mode 100644 src/Squit.package/SquitInteractiveAddRemote.class/instance/fetch.st delete mode 100644 src/Squit.package/SquitInteractiveAddRemote.class/instance/initializeQuery.st delete mode 100644 src/Squit.package/SquitInteractiveAddRemote.class/instance/notifyRemoteAdded.st delete mode 100644 src/Squit.package/SquitInteractiveAddRemote.class/instance/notifyRollback.st delete mode 100644 src/Squit.package/SquitInteractiveAddRemote.class/instance/onQueryClose..st delete mode 100644 src/Squit.package/SquitInteractiveAddRemote.class/instance/onRemoteAddedDo..st delete mode 100644 src/Squit.package/SquitInteractiveAddRemote.class/instance/onRollbackDo..st delete mode 100644 src/Squit.package/SquitInteractiveAddRemote.class/instance/proposedRemoteName.st delete mode 100644 src/Squit.package/SquitInteractiveAddRemote.class/instance/query.st delete mode 100644 src/Squit.package/SquitInteractiveAddRemote.class/instance/requestFetchFromRemoteNamed..st delete mode 100644 src/Squit.package/SquitInteractiveAddRemote.class/instance/requestRemoteDetails.st delete mode 100644 src/Squit.package/SquitInteractiveAddRemote.class/instance/retry.st delete mode 100644 src/Squit.package/SquitInteractiveAddRemote.class/instance/run.st delete mode 100644 src/Squit.package/SquitInteractiveAddRemote.class/instance/undo.st delete mode 100644 src/Squit.package/SquitInteractiveAddRemote.class/methodProperties.json delete mode 100644 src/Squit.package/SquitInteractiveAddRemote.class/properties.json delete mode 100644 src/Squit.package/SquitInteractiveAddRemoteTest.class/README.md delete mode 100644 src/Squit.package/SquitInteractiveAddRemoteTest.class/instance/repository.st delete mode 100644 src/Squit.package/SquitInteractiveAddRemoteTest.class/instance/setUp.st delete mode 100644 src/Squit.package/SquitInteractiveAddRemoteTest.class/instance/testProposesGitHubRepositoryOwner.st delete mode 100644 src/Squit.package/SquitInteractiveAddRemoteTest.class/instance/testProposesOrigin.st delete mode 100644 src/Squit.package/SquitInteractiveAddRemoteTest.class/methodProperties.json delete mode 100644 src/Squit.package/SquitInteractiveAddRemoteTest.class/properties.json delete mode 100644 src/Squit.package/SquitInteractiveClone.class/README.md delete mode 100644 src/Squit.package/SquitInteractiveClone.class/instance/checkDirectory.ifNotEmpty..st delete mode 100644 src/Squit.package/SquitInteractiveClone.class/instance/clone.st delete mode 100644 src/Squit.package/SquitInteractiveClone.class/instance/createRepository.st delete mode 100644 src/Squit.package/SquitInteractiveClone.class/instance/fetchAndSetUp.st delete mode 100644 src/Squit.package/SquitInteractiveClone.class/instance/registerWorkingCopy.st delete mode 100644 src/Squit.package/SquitInteractiveClone.class/instance/requestUrl.st delete mode 100644 src/Squit.package/SquitInteractiveClone.class/instance/setLoadedHistorianFromHead.st delete mode 100644 src/Squit.package/SquitInteractiveClone.class/methodProperties.json delete mode 100644 src/Squit.package/SquitInteractiveClone.class/properties.json delete mode 100644 src/Squit.package/SquitInteractiveEditRemote.class/README.md delete mode 100644 src/Squit.package/SquitInteractiveEditRemote.class/class/repository.remote..st delete mode 100644 src/Squit.package/SquitInteractiveEditRemote.class/instance/remote..st delete mode 100644 src/Squit.package/SquitInteractiveEditRemote.class/instance/run.st delete mode 100644 src/Squit.package/SquitInteractiveEditRemote.class/instance/setRepository.remote..st delete mode 100644 src/Squit.package/SquitInteractiveEditRemote.class/instance/undo.st delete mode 100644 src/Squit.package/SquitInteractiveEditRemote.class/methodProperties.json delete mode 100644 src/Squit.package/SquitInteractiveEditRemote.class/properties.json delete mode 100644 src/Squit.package/SquitInteractiveFetch.class/README.md delete mode 100644 src/Squit.package/SquitInteractiveFetch.class/class/repository.remoteNames..st delete mode 100644 src/Squit.package/SquitInteractiveFetch.class/instance/fetch.st delete mode 100644 src/Squit.package/SquitInteractiveFetch.class/instance/remoteNames..st delete mode 100644 src/Squit.package/SquitInteractiveFetch.class/instance/remoteNames.st delete mode 100644 src/Squit.package/SquitInteractiveFetch.class/instance/run.st delete mode 100644 src/Squit.package/SquitInteractiveFetch.class/methodProperties.json delete mode 100644 src/Squit.package/SquitInteractiveFetch.class/properties.json delete mode 100644 src/Squit.package/SquitInteractiveOperation.class/README.md delete mode 100644 src/Squit.package/SquitInteractiveOperation.class/instance/cancel.st delete mode 100644 src/Squit.package/SquitInteractiveOperation.class/instance/confirm..st delete mode 100644 src/Squit.package/SquitInteractiveOperation.class/instance/finish.st delete mode 100644 src/Squit.package/SquitInteractiveOperation.class/instance/inform..st delete mode 100644 src/Squit.package/SquitInteractiveOperation.class/instance/initialize.st delete mode 100644 src/Squit.package/SquitInteractiveOperation.class/instance/newUnitOfWork.st delete mode 100644 src/Squit.package/SquitInteractiveOperation.class/instance/repository..st delete mode 100644 src/Squit.package/SquitInteractiveOperation.class/instance/repository.st delete mode 100644 src/Squit.package/SquitInteractiveOperation.class/instance/run.st delete mode 100644 src/Squit.package/SquitInteractiveOperation.class/instance/unitOfWork..st delete mode 100644 src/Squit.package/SquitInteractiveOperation.class/instance/unitOfWork.st delete mode 100644 src/Squit.package/SquitInteractiveOperation.class/instance/withActiveUnitOfWork..st delete mode 100644 src/Squit.package/SquitInteractiveOperation.class/instance/workingCopy..st delete mode 100644 src/Squit.package/SquitInteractiveOperation.class/instance/workingCopy.st delete mode 100644 src/Squit.package/SquitInteractiveOperation.class/methodProperties.json delete mode 100644 src/Squit.package/SquitInteractiveOperation.class/properties.json delete mode 100644 src/Squit.package/SquitInteractivePullFromUpstream.class/README.md delete mode 100644 src/Squit.package/SquitInteractivePullFromUpstream.class/class/workingCopy..st delete mode 100644 src/Squit.package/SquitInteractivePullFromUpstream.class/instance/fetchFromUpstream.st delete mode 100644 src/Squit.package/SquitInteractivePullFromUpstream.class/instance/merge.st delete mode 100644 src/Squit.package/SquitInteractivePullFromUpstream.class/instance/pull.st delete mode 100644 src/Squit.package/SquitInteractivePullFromUpstream.class/instance/save.st delete mode 100644 src/Squit.package/SquitInteractivePullFromUpstream.class/methodProperties.json delete mode 100644 src/Squit.package/SquitInteractivePullFromUpstream.class/properties.json delete mode 100644 src/Squit.package/SquitInteractivePush.class/README.md delete mode 100644 src/Squit.package/SquitInteractivePush.class/class/historian..st delete mode 100644 src/Squit.package/SquitInteractivePush.class/class/historian.remote.remoteBranchName..st delete mode 100644 src/Squit.package/SquitInteractivePush.class/instance/export.st delete mode 100644 src/Squit.package/SquitInteractivePush.class/instance/setHistorian.remote.remoteBranchName..st delete mode 100644 src/Squit.package/SquitInteractivePush.class/methodProperties.json delete mode 100644 src/Squit.package/SquitInteractivePush.class/properties.json delete mode 100644 src/Squit.package/SquitInteractivePushToUpstream.class/README.md delete mode 100644 src/Squit.package/SquitInteractivePushToUpstream.class/class/historian..st delete mode 100644 src/Squit.package/SquitInteractivePushToUpstream.class/instance/export.st delete mode 100644 src/Squit.package/SquitInteractivePushToUpstream.class/instance/localHistorian..st delete mode 100644 src/Squit.package/SquitInteractivePushToUpstream.class/instance/push.st delete mode 100644 src/Squit.package/SquitInteractivePushToUpstream.class/methodProperties.json delete mode 100644 src/Squit.package/SquitInteractivePushToUpstream.class/properties.json delete mode 100644 src/Squit.package/SquitInteractiveRemoteOperation.class/README.md delete mode 100644 src/Squit.package/SquitInteractiveRemoteOperation.class/instance/errorPushFailed..st delete mode 100644 src/Squit.package/SquitInteractiveRemoteOperation.class/instance/errorRemoteAuthenticationFailed..st delete mode 100644 src/Squit.package/SquitInteractiveRemoteOperation.class/instance/errorRemoteResourceNotFound..st delete mode 100644 src/Squit.package/SquitInteractiveRemoteOperation.class/instance/errorRemoteUndefined..st delete mode 100644 src/Squit.package/SquitInteractiveRemoteOperation.class/instance/handleRemoteErrorsWhile.afterErrorDo..st delete mode 100644 src/Squit.package/SquitInteractiveRemoteOperation.class/instance/handlingCredentialsOf.do.ifCanceled..st delete mode 100644 src/Squit.package/SquitInteractiveRemoteOperation.class/instance/isRemoteSupported..st delete mode 100644 src/Squit.package/SquitInteractiveRemoteOperation.class/instance/requestAndStoreCredentialsFor.remoteUrl.ifCanceled..st delete mode 100644 src/Squit.package/SquitInteractiveRemoteOperation.class/methodProperties.json delete mode 100644 src/Squit.package/SquitInteractiveRemoteOperation.class/properties.json delete mode 100644 src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/README.md delete mode 100644 src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/class/historian..st delete mode 100644 src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/instance/historian..st delete mode 100644 src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/instance/historian.st delete mode 100644 src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/instance/isUpstreamRemoteSupported..st delete mode 100644 src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/instance/removeRemoteBranch.st delete mode 100644 src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/methodProperties.json delete mode 100644 src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/properties.json delete mode 100644 src/Squit.package/SquitNoRemotes.class/README.md delete mode 100644 src/Squit.package/SquitNoRemotes.class/instance/defaultResumeValue.st delete mode 100644 src/Squit.package/SquitNoRemotes.class/instance/repository..st delete mode 100644 src/Squit.package/SquitNoRemotes.class/instance/repository.st delete mode 100644 src/Squit.package/SquitNoRemotes.class/methodProperties.json delete mode 100644 src/Squit.package/SquitNoRemotes.class/properties.json delete mode 100644 src/Squit.package/SquitPackageChooser.class/README.md delete mode 100644 src/Squit.package/SquitPackageChooser.class/class/chooseFor..st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/accept.st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/acceptColor.st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/buildButtons..st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/buildTrackedList..st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/buildUntrackedList..st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/buildWith..st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/buttonWidth.st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/cancel.st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/cancelColor.st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/categoriesPlusPrefixes.st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/chooseFor..st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/chooseSubdirectory.ifCanceled..st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/confirm..st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/hasTrackedSelections.st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/hasUntrackedSelections.st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/inform..st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/initialExtent.st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/packagesIn..st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/requestPathInWorkingCopy..st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/selectAllTrackedPackages.st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/selectAllUntrackedPackages.st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/selectInverseTrackedPackages.st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/selectInverseUntrackedPackages.st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/selectNoTrackedPackages.st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/selectNoUntrackedPackages.st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/selectedTrackedPackages.st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/selectedUntrackedPackages.st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/selectionTracked..st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/selectionTracked.st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/selectionUntracked..st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/selectionUntracked.st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/selectionsTrackedAt..st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/selectionsTrackedAt.put..st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/selectionsUntrackedAt..st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/selectionsUntrackedAt.put..st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/track..st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/trackSelected.st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/trackedPackages.st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/trackedPackagesMenu..st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/trackedPackagesWithTitle.st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/untrack..st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/untrackSelected.st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/untrackedPackages.st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/untrackedPackagesMenu..st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/untrackedPackagesWithTitle.st delete mode 100644 src/Squit.package/SquitPackageChooser.class/instance/updateUntrackedPackages.st delete mode 100644 src/Squit.package/SquitPackageChooser.class/methodProperties.json delete mode 100644 src/Squit.package/SquitPackageChooser.class/properties.json delete mode 100644 src/Squit.package/SquitRemoteTrackingHistorianTest.class/README.md delete mode 100644 src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/performTest.st delete mode 100644 src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/testMergeMessage.st delete mode 100644 src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/testRemoteTrackingHistorianRemoteName.st delete mode 100644 src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/testRemoteTrackingHistorianRemoteRef.st delete mode 100644 src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/testRemoteTrackingHistorianRemoteRefWithNonDefaultFetchSpec.st delete mode 100644 src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/testRemoteTrackingHistorianThatDoNotExist.st delete mode 100644 src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/testRemoteTrackingHistorianWithoutRemote.st delete mode 100644 src/Squit.package/SquitRemoteTrackingHistorianTest.class/methodProperties.json delete mode 100644 src/Squit.package/SquitRemoteTrackingHistorianTest.class/properties.json delete mode 100644 src/Squit.package/SquitRemotesBrowser.class/README.md delete mode 100644 src/Squit.package/SquitRemotesBrowser.class/instance/addRemote.st delete mode 100644 src/Squit.package/SquitRemotesBrowser.class/instance/buildWith..st delete mode 100644 src/Squit.package/SquitRemotesBrowser.class/instance/buttonHeight.st delete mode 100644 src/Squit.package/SquitRemotesBrowser.class/instance/changed.st delete mode 100644 src/Squit.package/SquitRemotesBrowser.class/instance/editSelectedRemote.st delete mode 100644 src/Squit.package/SquitRemotesBrowser.class/instance/gitRepository.st delete mode 100644 src/Squit.package/SquitRemotesBrowser.class/instance/isAnyRemoteSelected.st delete mode 100644 src/Squit.package/SquitRemotesBrowser.class/instance/labelString.st delete mode 100644 src/Squit.package/SquitRemotesBrowser.class/instance/remotesLabels.st delete mode 100644 src/Squit.package/SquitRemotesBrowser.class/instance/removeSelectedRemote.st delete mode 100644 src/Squit.package/SquitRemotesBrowser.class/instance/selectedRemoteName..st delete mode 100644 src/Squit.package/SquitRemotesBrowser.class/instance/selectedRemoteName.st delete mode 100644 src/Squit.package/SquitRemotesBrowser.class/instance/withUnitOfWork..st delete mode 100644 src/Squit.package/SquitRemotesBrowser.class/instance/workingCopy..st delete mode 100644 src/Squit.package/SquitRemotesBrowser.class/instance/workingCopy.st delete mode 100644 src/Squit.package/SquitRemotesBrowser.class/methodProperties.json delete mode 100644 src/Squit.package/SquitRemotesBrowser.class/properties.json delete mode 100644 src/Squit.package/SquitRepository.class/README.md delete mode 100644 src/Squit.package/SquitRepository.class/class/cleanUp..st delete mode 100644 src/Squit.package/SquitRepository.class/class/on..st delete mode 100644 src/Squit.package/SquitRepository.class/class/onDirectory..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/^equals.st delete mode 100644 src/Squit.package/SquitRepository.class/instance/addCredentialsFor.user.password..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/addUserSettingsOf.to..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/cachedSnapshotOf.ifAbsentPut..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/cloneFrom..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/convertToCurrentVersion.refStream..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/copySettingsFrom.to..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/createNewVersion.with..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/createNewVersionFromPatch.with..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/credentialsFor..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/defaultAuthor.st delete mode 100644 src/Squit.package/SquitRepository.class/instance/defaultHistorian.st delete mode 100644 src/Squit.package/SquitRepository.class/instance/delete..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/exists.st delete mode 100644 src/Squit.package/SquitRepository.class/instance/expandShortRefName..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/export.withName.toRemoteNamed..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/extension.ifPresent.ifAbsent..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/filesystemExtension.st delete mode 100644 src/Squit.package/SquitRepository.class/instance/finalizeWeakCaches.st delete mode 100644 src/Squit.package/SquitRepository.class/instance/findVersionByString..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/flushCaches.st delete mode 100644 src/Squit.package/SquitRepository.class/instance/fsgitRepository.st delete mode 100644 src/Squit.package/SquitRepository.class/instance/git.st delete mode 100644 src/Squit.package/SquitRepository.class/instance/gitRepository.st delete mode 100644 src/Squit.package/SquitRepository.class/instance/hasRemotes.st delete mode 100644 src/Squit.package/SquitRepository.class/instance/hash.st delete mode 100644 src/Squit.package/SquitRepository.class/instance/headHistorian.st delete mode 100644 src/Squit.package/SquitRepository.class/instance/historianForTemporaryVersions.st delete mode 100644 src/Squit.package/SquitRepository.class/instance/historianForTemporaryVersionsOn..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/historianNamed..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/historians.st delete mode 100644 src/Squit.package/SquitRepository.class/instance/historyWalkClass.st delete mode 100644 src/Squit.package/SquitRepository.class/instance/importFromAll..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/importFromUpstream..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/initialize.st delete mode 100644 src/Squit.package/SquitRepository.class/instance/initializeGitRepositoryIn..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/initializeInDirectory..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/initializeStoreInfo.forObject..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/initializeWith..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/isAvailable.st delete mode 100644 src/Squit.package/SquitRepository.class/instance/location.st delete mode 100644 src/Squit.package/SquitRepository.class/instance/newHistorian.version..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/newVersionForCommit..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/orphanedWorkingDirectory.st delete mode 100644 src/Squit.package/SquitRepository.class/instance/remoteHistorians.st delete mode 100644 src/Squit.package/SquitRepository.class/instance/remoteNames.st delete mode 100644 src/Squit.package/SquitRepository.class/instance/removeAllCredentials.st delete mode 100644 src/Squit.package/SquitRepository.class/instance/removeCredentialsFor..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/removeRemoteRef.from..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/tags.st delete mode 100644 src/Squit.package/SquitRepository.class/instance/unitOfWork.st delete mode 100644 src/Squit.package/SquitRepository.class/instance/versionAt..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/versionForCommit..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/withCredentialsDo..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/withUnitOfWork..st delete mode 100644 src/Squit.package/SquitRepository.class/instance/workingTreeForCommitNamed..st delete mode 100644 src/Squit.package/SquitRepository.class/methodProperties.json delete mode 100644 src/Squit.package/SquitRepository.class/properties.json delete mode 100644 src/Squit.package/SquitRepositoryFilesystemExtension.class/README.md delete mode 100644 src/Squit.package/SquitRepositoryFilesystemExtension.class/instance/forVersion..st delete mode 100644 src/Squit.package/SquitRepositoryFilesystemExtension.class/instance/repository..st delete mode 100644 src/Squit.package/SquitRepositoryFilesystemExtension.class/instance/repository.st delete mode 100644 src/Squit.package/SquitRepositoryFilesystemExtension.class/methodProperties.json delete mode 100644 src/Squit.package/SquitRepositoryFilesystemExtension.class/properties.json delete mode 100644 src/Squit.package/SquitRepositoryTest.class/README.md delete mode 100644 src/Squit.package/SquitRepositoryTest.class/instance/testCreateCommit.st delete mode 100644 src/Squit.package/SquitRepositoryTest.class/instance/testDefaultAuthor.st delete mode 100644 src/Squit.package/SquitRepositoryTest.class/instance/testGetMasterSnapshot.st delete mode 100644 src/Squit.package/SquitRepositoryTest.class/instance/testGetReferenceWithInvalidName.st delete mode 100644 src/Squit.package/SquitRepositoryTest.class/instance/testInstantiation.st delete mode 100644 src/Squit.package/SquitRepositoryTest.class/instance/testIsAvailable.st delete mode 100644 src/Squit.package/SquitRepositoryTest.class/instance/testPathValidation.st delete mode 100644 src/Squit.package/SquitRepositoryTest.class/methodProperties.json delete mode 100644 src/Squit.package/SquitRepositoryTest.class/properties.json delete mode 100644 src/Squit.package/SquitRepositoryWorkingCopyTest.class/README.md delete mode 100644 src/Squit.package/SquitRepositoryWorkingCopyTest.class/class/resources.st delete mode 100644 src/Squit.package/SquitRepositoryWorkingCopyTest.class/instance/testCherryPickPreservesAuthorAndTime.st delete mode 100644 src/Squit.package/SquitRepositoryWorkingCopyTest.class/instance/testMigrationIntroduceArtifactIds.st delete mode 100644 src/Squit.package/SquitRepositoryWorkingCopyTest.class/methodProperties.json delete mode 100644 src/Squit.package/SquitRepositoryWorkingCopyTest.class/properties.json delete mode 100644 src/Squit.package/SquitSettings.class/README.md delete mode 100644 src/Squit.package/SquitSettings.class/class/defaultTitle.st delete mode 100644 src/Squit.package/SquitSettings.class/class/enableDragAndDrop..st delete mode 100644 src/Squit.package/SquitSettings.class/class/enableDragAndDrop.st delete mode 100644 src/Squit.package/SquitSettings.class/class/open.st delete mode 100644 src/Squit.package/SquitSettings.class/instance/actionCancel.st delete mode 100644 src/Squit.package/SquitSettings.class/instance/actionSaveAndClose.st delete mode 100644 src/Squit.package/SquitSettings.class/instance/actionUserEmail..st delete mode 100644 src/Squit.package/SquitSettings.class/instance/actionUserEmail.st delete mode 100644 src/Squit.package/SquitSettings.class/instance/actionUserName..st delete mode 100644 src/Squit.package/SquitSettings.class/instance/actionUserName.st delete mode 100644 src/Squit.package/SquitSettings.class/instance/buildButtons..st delete mode 100644 src/Squit.package/SquitSettings.class/instance/buildInputFields..st delete mode 100644 src/Squit.package/SquitSettings.class/instance/buildInputPanel..st delete mode 100644 src/Squit.package/SquitSettings.class/instance/buildWith..st delete mode 100644 src/Squit.package/SquitSettings.class/instance/close.st delete mode 100644 src/Squit.package/SquitSettings.class/instance/labelString.st delete mode 100644 src/Squit.package/SquitSettings.class/methodProperties.json delete mode 100644 src/Squit.package/SquitSettings.class/properties.json delete mode 100644 src/Squit.package/SquitSubFolderList.class/README.md delete mode 100644 src/Squit.package/SquitSubFolderList.class/instance/initialDirectoryList.st delete mode 100644 src/Squit.package/SquitSubFolderList.class/methodProperties.json delete mode 100644 src/Squit.package/SquitSubFolderList.class/properties.json delete mode 100644 src/Squit.package/SquitTagsBrowser.class/README.md delete mode 100644 src/Squit.package/SquitTagsBrowser.class/class/repository..st delete mode 100644 src/Squit.package/SquitTagsBrowser.class/instance/buildWith..st delete mode 100644 src/Squit.package/SquitTagsBrowser.class/instance/deleteSelectedTag.st delete mode 100644 src/Squit.package/SquitTagsBrowser.class/instance/errorNoProjectFound.st delete mode 100644 src/Squit.package/SquitTagsBrowser.class/instance/errorNoTagSelected.st delete mode 100644 src/Squit.package/SquitTagsBrowser.class/instance/findProjectWith..st delete mode 100644 src/Squit.package/SquitTagsBrowser.class/instance/initialize.st delete mode 100644 src/Squit.package/SquitTagsBrowser.class/instance/labelString.st delete mode 100644 src/Squit.package/SquitTagsBrowser.class/instance/pushSelectedTag.st delete mode 100644 src/Squit.package/SquitTagsBrowser.class/instance/selectedTagHistorian.st delete mode 100644 src/Squit.package/SquitTagsBrowser.class/instance/selectedTagName..st delete mode 100644 src/Squit.package/SquitTagsBrowser.class/instance/selectedTagName.st delete mode 100644 src/Squit.package/SquitTagsBrowser.class/instance/setRepository..st delete mode 100644 src/Squit.package/SquitTagsBrowser.class/instance/showLogSelectedTag.st delete mode 100644 src/Squit.package/SquitTagsBrowser.class/instance/tagLabels.st delete mode 100644 src/Squit.package/SquitTagsBrowser.class/instance/update..st delete mode 100644 src/Squit.package/SquitTagsBrowser.class/methodProperties.json delete mode 100644 src/Squit.package/SquitTagsBrowser.class/properties.json delete mode 100644 src/Squit.package/SquitTest.class/README.md delete mode 100644 src/Squit.package/SquitTest.class/class/resources.st delete mode 100644 src/Squit.package/SquitTest.class/instance/createReadmeCommit.st delete mode 100644 src/Squit.package/SquitTest.class/instance/createRemoteTrackingBranchForMaster.st delete mode 100644 src/Squit.package/SquitTest.class/instance/createRemoteTrackingBranchForMasterWithFetchSpec..st delete mode 100644 src/Squit.package/SquitTest.class/instance/master.st delete mode 100644 src/Squit.package/SquitTest.class/instance/repositoryForTests.st delete mode 100644 src/Squit.package/SquitTest.class/instance/repositoryPathForTests.st delete mode 100644 src/Squit.package/SquitTest.class/instance/setUp.st delete mode 100644 src/Squit.package/SquitTest.class/instance/tearDown.st delete mode 100644 src/Squit.package/SquitTest.class/instance/trackingBranchForRemote.branch.hash..st delete mode 100644 src/Squit.package/SquitTest.class/methodProperties.json delete mode 100644 src/Squit.package/SquitTest.class/properties.json delete mode 100644 src/Squit.package/SquitTestWorkingCopy.class/README.md delete mode 100644 src/Squit.package/SquitTestWorkingCopy.class/instance/create.st delete mode 100644 src/Squit.package/SquitTestWorkingCopy.class/instance/instance.st delete mode 100644 src/Squit.package/SquitTestWorkingCopy.class/instance/tearDown.st delete mode 100644 src/Squit.package/SquitTestWorkingCopy.class/methodProperties.json delete mode 100644 src/Squit.package/SquitTestWorkingCopy.class/properties.json delete mode 100644 src/Squit.package/SquitToggles.class/README.md delete mode 100644 src/Squit.package/SquitToggles.class/instance/remoteRepository.st delete mode 100644 src/Squit.package/SquitToggles.class/methodProperties.json delete mode 100644 src/Squit.package/SquitToggles.class/properties.json delete mode 100644 src/Squit.package/SquitUnitOfWork.class/README.md delete mode 100644 src/Squit.package/SquitUnitOfWork.class/class/initialize.st delete mode 100644 src/Squit.package/SquitUnitOfWork.class/class/initializeRegistry.st delete mode 100644 src/Squit.package/SquitUnitOfWork.class/class/wrapping.for..st delete mode 100644 src/Squit.package/SquitUnitOfWork.class/instance/activateDuring..st delete mode 100644 src/Squit.package/SquitUnitOfWork.class/instance/finish.st delete mode 100644 src/Squit.package/SquitUnitOfWork.class/instance/gitUnitOfWork..st delete mode 100644 src/Squit.package/SquitUnitOfWork.class/instance/gitUnitOfWork.st delete mode 100644 src/Squit.package/SquitUnitOfWork.class/methodProperties.json delete mode 100644 src/Squit.package/SquitUnitOfWork.class/properties.json delete mode 100644 src/Squit.package/SquitUnitOfWorkTest.class/README.md delete mode 100644 src/Squit.package/SquitUnitOfWorkTest.class/instance/testConstructorReturnsSameInstanceWhileActive.st delete mode 100644 src/Squit.package/SquitUnitOfWorkTest.class/instance/testUnitOfWorkHeldWeakly.st delete mode 100644 src/Squit.package/SquitUnitOfWorkTest.class/methodProperties.json delete mode 100644 src/Squit.package/SquitUnitOfWorkTest.class/properties.json delete mode 100644 src/Squit.package/SquitUpstreamUndefined.class/README.md delete mode 100644 src/Squit.package/SquitUpstreamUndefined.class/class/historian..st delete mode 100644 src/Squit.package/SquitUpstreamUndefined.class/instance/historian..st delete mode 100644 src/Squit.package/SquitUpstreamUndefined.class/instance/historian.st delete mode 100644 src/Squit.package/SquitUpstreamUndefined.class/methodProperties.json delete mode 100644 src/Squit.package/SquitUpstreamUndefined.class/properties.json delete mode 100644 src/Squit.package/SquitVersion.class/README.md delete mode 100644 src/Squit.package/SquitVersion.class/instance/^equals.st delete mode 100644 src/Squit.package/SquitVersion.class/instance/artifacts.st delete mode 100644 src/Squit.package/SquitVersion.class/instance/author.st delete mode 100644 src/Squit.package/SquitVersion.class/instance/captureLazySnapshot.st delete mode 100644 src/Squit.package/SquitVersion.class/instance/commit..st delete mode 100644 src/Squit.package/SquitVersion.class/instance/commit.st delete mode 100644 src/Squit.package/SquitVersion.class/instance/hash.st delete mode 100644 src/Squit.package/SquitVersion.class/instance/hexHash.st delete mode 100644 src/Squit.package/SquitVersion.class/instance/internalId.st delete mode 100644 src/Squit.package/SquitVersion.class/instance/lazySnapshot.st delete mode 100644 src/Squit.package/SquitVersion.class/instance/message.st delete mode 100644 src/Squit.package/SquitVersion.class/instance/metadata.st delete mode 100644 src/Squit.package/SquitVersion.class/instance/parents.st delete mode 100644 src/Squit.package/SquitVersion.class/instance/patchRelativeToBase..st delete mode 100644 src/Squit.package/SquitVersion.class/instance/patchRelativeToBaseVersion..st delete mode 100644 src/Squit.package/SquitVersion.class/instance/printOn..st delete mode 100644 src/Squit.package/SquitVersion.class/instance/repository..st delete mode 100644 src/Squit.package/SquitVersion.class/instance/repository.st delete mode 100644 src/Squit.package/SquitVersion.class/instance/shortId.st delete mode 100644 src/Squit.package/SquitVersion.class/instance/snapshot.st delete mode 100644 src/Squit.package/SquitVersion.class/instance/timestamp.st delete mode 100644 src/Squit.package/SquitVersion.class/methodProperties.json delete mode 100644 src/Squit.package/SquitVersion.class/properties.json delete mode 100644 src/Squit.package/SquitVersionBuilder.class/README.md delete mode 100644 src/Squit.package/SquitVersionBuilder.class/class/repository..st delete mode 100644 src/Squit.package/SquitVersionBuilder.class/instance/author..st delete mode 100644 src/Squit.package/SquitVersionBuilder.class/instance/author.st delete mode 100644 src/Squit.package/SquitVersionBuilder.class/instance/authoringTimeStamp..st delete mode 100644 src/Squit.package/SquitVersionBuilder.class/instance/buildVersion.st delete mode 100644 src/Squit.package/SquitVersionBuilder.class/instance/committer..st delete mode 100644 src/Squit.package/SquitVersionBuilder.class/instance/committer.st delete mode 100644 src/Squit.package/SquitVersionBuilder.class/instance/committingTimeStamp..st delete mode 100644 src/Squit.package/SquitVersionBuilder.class/instance/doNotStoreMetadata.st delete mode 100644 src/Squit.package/SquitVersionBuilder.class/instance/initialize.st delete mode 100644 src/Squit.package/SquitVersionBuilder.class/instance/initializeAuthorAndCommitter.st delete mode 100644 src/Squit.package/SquitVersionBuilder.class/instance/initializeClean.st delete mode 100644 src/Squit.package/SquitVersionBuilder.class/instance/message..st delete mode 100644 src/Squit.package/SquitVersionBuilder.class/instance/message.st delete mode 100644 src/Squit.package/SquitVersionBuilder.class/instance/parents..st delete mode 100644 src/Squit.package/SquitVersionBuilder.class/instance/parents.st delete mode 100644 src/Squit.package/SquitVersionBuilder.class/instance/patch..st delete mode 100644 src/Squit.package/SquitVersionBuilder.class/instance/patch.st delete mode 100644 src/Squit.package/SquitVersionBuilder.class/instance/repository..st delete mode 100644 src/Squit.package/SquitVersionBuilder.class/instance/repository.st delete mode 100644 src/Squit.package/SquitVersionBuilder.class/instance/setRepository..st delete mode 100644 src/Squit.package/SquitVersionBuilder.class/instance/snapshot..st delete mode 100644 src/Squit.package/SquitVersionBuilder.class/instance/snapshot.st delete mode 100644 src/Squit.package/SquitVersionBuilder.class/instance/timestamp..st delete mode 100644 src/Squit.package/SquitVersionBuilder.class/instance/timestamp.st delete mode 100644 src/Squit.package/SquitVersionBuilder.class/methodProperties.json delete mode 100644 src/Squit.package/SquitVersionBuilder.class/properties.json delete mode 100644 src/Squit.package/SquitVersionWrapper.class/README.md delete mode 100644 src/Squit.package/SquitVersionWrapper.class/class/on..st delete mode 100644 src/Squit.package/SquitVersionWrapper.class/instance/balloonText.st delete mode 100644 src/Squit.package/SquitVersionWrapper.class/instance/formatDate..st delete mode 100644 src/Squit.package/SquitVersionWrapper.class/instance/makeTwoDigitString..st delete mode 100644 src/Squit.package/SquitVersionWrapper.class/instance/setItem..st delete mode 100644 src/Squit.package/SquitVersionWrapper.class/instance/summary.st delete mode 100644 src/Squit.package/SquitVersionWrapper.class/instance/version..st delete mode 100644 src/Squit.package/SquitVersionWrapper.class/instance/version.st delete mode 100644 src/Squit.package/SquitVersionWrapper.class/methodProperties.json delete mode 100644 src/Squit.package/SquitVersionWrapper.class/properties.json delete mode 100644 src/Squit.package/SquotMonticelloConverterTestWithSquit.class/README.md delete mode 100644 src/Squit.package/SquotMonticelloConverterTestWithSquit.class/class/resources.st delete mode 100644 src/Squit.package/SquotMonticelloConverterTestWithSquit.class/instance/newRepository.st delete mode 100644 src/Squit.package/SquotMonticelloConverterTestWithSquit.class/methodProperties.json delete mode 100644 src/Squit.package/SquotMonticelloConverterTestWithSquit.class/properties.json delete mode 100644 src/Squit.package/SquotSerializer.extension/class/addUserSettingsOfAll.in.to..st delete mode 100644 src/Squit.package/SquotSerializer.extension/methodProperties.json delete mode 100644 src/Squit.package/SquotSerializer.extension/properties.json delete mode 100644 src/Squit.package/SquotWorkingCopy.extension/instance/addUserSettingsTo..st delete mode 100644 src/Squit.package/SquotWorkingCopy.extension/methodProperties.json delete mode 100644 src/Squit.package/SquotWorkingCopy.extension/properties.json delete mode 100644 src/Squit.package/monticello.meta/categories.st delete mode 100644 src/Squit.package/monticello.meta/initializers.st delete mode 100644 src/Squit.package/monticello.meta/postscript.st delete mode 100644 src/Squit.package/properties.json delete mode 100644 src/Squot.package/AbstractSquotMonticelloConverterTest.class/README.md delete mode 100644 src/Squot.package/AbstractSquotMonticelloConverterTest.class/class/isAbstract.st delete mode 100644 src/Squot.package/AbstractSquotMonticelloConverterTest.class/instance/newMcRepository..st delete mode 100644 src/Squot.package/AbstractSquotMonticelloConverterTest.class/instance/setUp.st delete mode 100644 src/Squot.package/AbstractSquotMonticelloConverterTest.class/instance/tearDown.st delete mode 100644 src/Squot.package/AbstractSquotMonticelloConverterTest.class/methodProperties.json delete mode 100644 src/Squot.package/AbstractSquotMonticelloConverterTest.class/properties.json delete mode 100644 src/Squot.package/BlockClosure.extension/instance/on.doAndResume..st delete mode 100644 src/Squot.package/BlockClosure.extension/methodProperties.json delete mode 100644 src/Squot.package/BlockClosure.extension/properties.json delete mode 100644 src/Squot.package/Boolean.extension/class/squotMirror.st delete mode 100644 src/Squot.package/Boolean.extension/instance/canHaveNameAssignedBySquot.st delete mode 100644 src/Squot.package/Boolean.extension/instance/captureWithSquot..st delete mode 100644 src/Squot.package/Boolean.extension/instance/captureWithSquot.st delete mode 100644 src/Squot.package/Boolean.extension/instance/sameIn.withName.ifAbsent..st delete mode 100644 src/Squot.package/Boolean.extension/instance/squotDiffAgainst.with..st delete mode 100644 src/Squot.package/Boolean.extension/instance/squotOutgoingReferences.st delete mode 100644 src/Squot.package/Boolean.extension/instance/squotShadowFactory.st delete mode 100644 src/Squot.package/Boolean.extension/instance/squotShouldKeepIdentity.st delete mode 100644 src/Squot.package/Boolean.extension/methodProperties.json delete mode 100644 src/Squot.package/Boolean.extension/properties.json delete mode 100644 src/Squot.package/BoxedFloat64.extension/class/squotMirror.st delete mode 100644 src/Squot.package/BoxedFloat64.extension/methodProperties.json delete mode 100644 src/Squot.package/BoxedFloat64.extension/properties.json delete mode 100644 src/Squot.package/BrokenPromise.extension/instance/ifError.ifNotError..st delete mode 100644 src/Squot.package/BrokenPromise.extension/instance/ifNotError..st delete mode 100644 src/Squot.package/BrokenPromise.extension/instance/reason.st delete mode 100644 src/Squot.package/BrokenPromise.extension/methodProperties.json delete mode 100644 src/Squot.package/BrokenPromise.extension/properties.json delete mode 100644 src/Squot.package/Class.extension/instance/shouldHaveNameAssignedBySquot.st delete mode 100644 src/Squot.package/Class.extension/instance/squotShouldKeepIdentity.st delete mode 100644 src/Squot.package/Class.extension/methodProperties.json delete mode 100644 src/Squot.package/Class.extension/properties.json delete mode 100644 src/Squot.package/ClassDescription.extension/instance/captureWithSquot..st delete mode 100644 src/Squot.package/ClassDescription.extension/instance/captureWithSquot.st delete mode 100644 src/Squot.package/ClassDescription.extension/instance/package.st delete mode 100644 src/Squot.package/ClassDescription.extension/instance/squotAddTransientStoreInfoTo..st delete mode 100644 src/Squot.package/ClassDescription.extension/instance/squotRemoveTransientStoreInfoFrom..st delete mode 100644 src/Squot.package/ClassDescription.extension/methodProperties.json delete mode 100644 src/Squot.package/ClassDescription.extension/properties.json delete mode 100644 src/Squot.package/CoAuthorList.class/README.md delete mode 100644 src/Squot.package/CoAuthorList.class/class/default.st delete mode 100644 src/Squot.package/CoAuthorList.class/class/reset.st delete mode 100644 src/Squot.package/CoAuthorList.class/instance/add..st delete mode 100644 src/Squot.package/CoAuthorList.class/instance/addName.email..st delete mode 100644 src/Squot.package/CoAuthorList.class/instance/addSpecialEditItem.st delete mode 100644 src/Squot.package/CoAuthorList.class/instance/initialize.st delete mode 100644 src/Squot.package/CoAuthorList.class/instance/list.st delete mode 100644 src/Squot.package/CoAuthorList.class/instance/select.st delete mode 100644 src/Squot.package/CoAuthorList.class/methodProperties.json delete mode 100644 src/Squot.package/CoAuthorList.class/properties.json delete mode 100644 src/Squot.package/CoAuthorListEditAuthorsItem.class/README.md delete mode 100644 src/Squot.package/CoAuthorListEditAuthorsItem.class/class/instance.st delete mode 100644 src/Squot.package/CoAuthorListEditAuthorsItem.class/instance/asStringWithoutTimestamp.st delete mode 100644 src/Squot.package/CoAuthorListEditAuthorsItem.class/methodProperties.json delete mode 100644 src/Squot.package/CoAuthorListEditAuthorsItem.class/properties.json delete mode 100644 src/Squot.package/CompiledCode.extension/class/squotMirror.st delete mode 100644 src/Squot.package/CompiledCode.extension/instance/captureWithSquot..st delete mode 100644 src/Squot.package/CompiledCode.extension/instance/squotCaptureSlotsIn.with..st delete mode 100644 src/Squot.package/CompiledCode.extension/instance/squotShadowFactory.st delete mode 100644 src/Squot.package/CompiledCode.extension/methodProperties.json delete mode 100644 src/Squot.package/CompiledCode.extension/properties.json delete mode 100644 src/Squot.package/Dictionary.extension/class/squotMirror.st delete mode 100644 src/Squot.package/Dictionary.extension/instance/asSquotTrackedObjectMetadata.st delete mode 100644 src/Squot.package/Dictionary.extension/instance/squotShadowFactory.st delete mode 100644 src/Squot.package/Dictionary.extension/methodProperties.json delete mode 100644 src/Squot.package/Dictionary.extension/properties.json delete mode 100644 src/Squot.package/DiffPatch.extension/instance/initializeSquotDiffNodes.with..st delete mode 100644 src/Squot.package/DiffPatch.extension/instance/newSquotDiffNodes.st delete mode 100644 src/Squot.package/DiffPatch.extension/instance/squotHasChanges.st delete mode 100644 src/Squot.package/DiffPatch.extension/methodProperties.json delete mode 100644 src/Squot.package/DiffPatch.extension/properties.json delete mode 100644 src/Squot.package/DiskProxy.extension/class/squotMirror.st delete mode 100644 src/Squot.package/DiskProxy.extension/instance/squotShouldKeepIdentity.st delete mode 100644 src/Squot.package/DiskProxy.extension/methodProperties.json delete mode 100644 src/Squot.package/DiskProxy.extension/properties.json delete mode 100644 src/Squot.package/FakeMCVersion.class/README.md delete mode 100644 src/Squot.package/FakeMCVersion.class/instance/info..st delete mode 100644 src/Squot.package/FakeMCVersion.class/instance/info.st delete mode 100644 src/Squot.package/FakeMCVersion.class/methodProperties.json delete mode 100644 src/Squot.package/FakeMCVersion.class/properties.json delete mode 100644 src/Squot.package/FakeMethod.class/README.md delete mode 100644 src/Squot.package/FakeMethod.class/instance/className..st delete mode 100644 src/Squot.package/FakeMethod.class/instance/getSource.st delete mode 100644 src/Squot.package/FakeMethod.class/instance/methodClass.st delete mode 100644 src/Squot.package/FakeMethod.class/instance/methodClassName..st delete mode 100644 src/Squot.package/FakeMethod.class/instance/selector..st delete mode 100644 src/Squot.package/FakeMethod.class/instance/selector.st delete mode 100644 src/Squot.package/FakeMethod.class/instance/source..st delete mode 100644 src/Squot.package/FakeMethod.class/instance/source.st delete mode 100644 src/Squot.package/FakeMethod.class/methodProperties.json delete mode 100644 src/Squot.package/FakeMethod.class/properties.json delete mode 100644 src/Squot.package/GenericDiff.extension/class/squotDiffClass.st delete mode 100644 src/Squot.package/GenericDiff.extension/instance/addReferenceDiff..st delete mode 100644 src/Squot.package/GenericDiff.extension/instance/applyToShadowNamed.inGraph..st delete mode 100644 src/Squot.package/GenericDiff.extension/instance/initializeFrom.to..st delete mode 100644 src/Squot.package/GenericDiff.extension/instance/initializeSquotDiffNodes.with..st delete mode 100644 src/Squot.package/GenericDiff.extension/instance/isAddition.st delete mode 100644 src/Squot.package/GenericDiff.extension/instance/isModification.st delete mode 100644 src/Squot.package/GenericDiff.extension/instance/isRemoval.st delete mode 100644 src/Squot.package/GenericDiff.extension/instance/newSquotDiffNodes.st delete mode 100644 src/Squot.package/GenericDiff.extension/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st delete mode 100644 src/Squot.package/GenericDiff.extension/instance/rightName.st delete mode 100644 src/Squot.package/GenericDiff.extension/instance/squotApplyTo..st delete mode 100644 src/Squot.package/GenericDiff.extension/instance/squotApplyTo.with..st delete mode 100644 src/Squot.package/GenericDiff.extension/instance/squotApplyToLoaded..st delete mode 100644 src/Squot.package/GenericDiff.extension/instance/squotApplyToLoaded.with..st delete mode 100644 src/Squot.package/GenericDiff.extension/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/GenericDiff.extension/instance/squotHasChanges.st delete mode 100644 src/Squot.package/GenericDiff.extension/instance/update.reflectedIn.asMaterializedFrom.reflectedIn..st delete mode 100644 src/Squot.package/GenericDiff.extension/methodProperties.json delete mode 100644 src/Squot.package/GenericDiff.extension/properties.json delete mode 100644 src/Squot.package/HashedCollection.extension/class/squotMirror.st delete mode 100644 src/Squot.package/HashedCollection.extension/class/squotRelevantInstVars.st delete mode 100644 src/Squot.package/HashedCollection.extension/instance/squotShadowFactory.st delete mode 100644 src/Squot.package/HashedCollection.extension/methodProperties.json delete mode 100644 src/Squot.package/HashedCollection.extension/properties.json delete mode 100644 src/Squot.package/LookupKey.extension/class/squotMirror.st delete mode 100644 src/Squot.package/LookupKey.extension/methodProperties.json delete mode 100644 src/Squot.package/LookupKey.extension/properties.json delete mode 100644 src/Squot.package/MCClassDefinition.extension/instance/actualClassInSquotWorkingCopy..st delete mode 100644 src/Squot.package/MCClassDefinition.extension/instance/browse.st delete mode 100644 src/Squot.package/MCClassDefinition.extension/instance/browseFromSquotWorkingCopyArtifact..st delete mode 100644 src/Squot.package/MCClassDefinition.extension/instance/squotAddToChangeSet..st delete mode 100644 src/Squot.package/MCClassDefinition.extension/instance/squotBelongsToClass.st delete mode 100644 src/Squot.package/MCClassDefinition.extension/instance/squotGroup.st delete mode 100644 src/Squot.package/MCClassDefinition.extension/instance/squotIsInChangeSet..st delete mode 100644 src/Squot.package/MCClassDefinition.extension/instance/squotRemoveFromChangeSet..st delete mode 100644 src/Squot.package/MCClassDefinition.extension/instance/squotShouldGroupByClass.st delete mode 100644 src/Squot.package/MCClassTraitDefinition.extension/instance/actualClass.st delete mode 100644 src/Squot.package/MCClassTraitDefinition.extension/instance/actualClassIn..st delete mode 100644 src/Squot.package/MCClassTraitDefinition.extension/instance/actualClassInSquotWorkingCopy..st delete mode 100644 src/Squot.package/MCClassTraitDefinition.extension/instance/browse.st delete mode 100644 src/Squot.package/MCClassTraitDefinition.extension/instance/browseFromSquotWorkingCopyArtifact..st delete mode 100644 src/Squot.package/MCClassTraitDefinition.extension/instance/squotAddToChangeSet..st delete mode 100644 src/Squot.package/MCClassTraitDefinition.extension/instance/squotBelongsToClass.st delete mode 100644 src/Squot.package/MCClassTraitDefinition.extension/instance/squotGroup.st delete mode 100644 src/Squot.package/MCClassTraitDefinition.extension/instance/squotIsInChangeSet..st delete mode 100644 src/Squot.package/MCClassTraitDefinition.extension/instance/squotName.st delete mode 100644 src/Squot.package/MCClassTraitDefinition.extension/instance/squotRemoveFromChangeSet..st delete mode 100644 src/Squot.package/MCClassTraitDefinition.extension/instance/squotShouldGroupByClass.st delete mode 100644 src/Squot.package/MCConflict.extension/instance/actualClassInSquotWorkingCopy..st delete mode 100644 src/Squot.package/MCConflict.extension/instance/browseFromSquotWorkingCopyArtifact..st delete mode 100644 src/Squot.package/MCConflict.extension/instance/incoming.st delete mode 100644 src/Squot.package/MCConflict.extension/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/MCConflict.extension/instance/squotToolsDiffNodeContent.st delete mode 100644 src/Squot.package/MCConflict.extension/methodProperties.json delete mode 100644 src/Squot.package/MCConflict.extension/properties.json delete mode 100644 src/Squot.package/MCDefinition.extension/instance/actualClassInSquotWorkingCopy..st delete mode 100644 src/Squot.package/MCDefinition.extension/instance/browse.st delete mode 100644 src/Squot.package/MCDefinition.extension/instance/browseFromSquotWorkingCopyArtifact..st delete mode 100644 src/Squot.package/MCDefinition.extension/instance/squotAddToChangeSet..st delete mode 100644 src/Squot.package/MCDefinition.extension/instance/squotBelongsToClass.st delete mode 100644 src/Squot.package/MCDefinition.extension/instance/squotDiffNodeSummary.st delete mode 100644 src/Squot.package/MCDefinition.extension/instance/squotGroup.st delete mode 100644 src/Squot.package/MCDefinition.extension/instance/squotIsInChangeSet..st delete mode 100644 src/Squot.package/MCDefinition.extension/instance/squotRemoveFromChangeSet..st delete mode 100644 src/Squot.package/MCMethodDefinition.extension/instance/actualClassInSquotWorkingCopy..st delete mode 100644 src/Squot.package/MCMethodDefinition.extension/instance/browse.st delete mode 100644 src/Squot.package/MCMethodDefinition.extension/instance/browseFromSquotWorkingCopyArtifact..st delete mode 100644 src/Squot.package/MCMethodDefinition.extension/instance/squotAddToChangeSet..st delete mode 100644 src/Squot.package/MCMethodDefinition.extension/instance/squotBelongsToClass.st delete mode 100644 src/Squot.package/MCMethodDefinition.extension/instance/squotDiffNodeSummary.st delete mode 100644 src/Squot.package/MCMethodDefinition.extension/instance/squotGroup.st delete mode 100644 src/Squot.package/MCMethodDefinition.extension/instance/squotIsInChangeSet..st delete mode 100644 src/Squot.package/MCMethodDefinition.extension/instance/squotRemoveFromChangeSet..st delete mode 100644 src/Squot.package/MCMethodDefinition.extension/instance/squotShouldGroupByClass.st delete mode 100644 src/Squot.package/MCModification.extension/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/MCModification.extension/methodProperties.json delete mode 100644 src/Squot.package/MCModification.extension/properties.json delete mode 100644 src/Squot.package/MCOrganizationDefinition.extension/instance/browse.st delete mode 100644 src/Squot.package/MCOrganizationDefinition.extension/instance/browseFromSquotWorkingCopyArtifact..st delete mode 100644 src/Squot.package/MCOrganizationDefinition.extension/instance/squotAddToChangeSet..st delete mode 100644 src/Squot.package/MCOrganizationDefinition.extension/instance/squotIsInChangeSet..st delete mode 100644 src/Squot.package/MCOrganizationDefinition.extension/instance/squotRemoveFromChangeSet..st delete mode 100644 src/Squot.package/MCPatch.extension/instance/squotAddOperation..st delete mode 100644 src/Squot.package/MCPatch.extension/instance/squotHasChanges.st delete mode 100644 src/Squot.package/MCPatch.extension/instance/squotRemoveOperation..st delete mode 100644 src/Squot.package/MCPatchOperation.extension/instance/actualClassInSquotWorkingCopy..st delete mode 100644 src/Squot.package/MCPatchOperation.extension/instance/browseFromSquotWorkingCopyArtifact..st delete mode 100644 src/Squot.package/MCPatchOperation.extension/instance/ignoreInSquot.st delete mode 100644 src/Squot.package/MCPatchOperation.extension/instance/isCurrentlyIgnoredInSquot.st delete mode 100644 src/Squot.package/MCPatchOperation.extension/instance/left.st delete mode 100644 src/Squot.package/MCPatchOperation.extension/instance/right.st delete mode 100644 src/Squot.package/MCPatchOperation.extension/instance/squotAddDiffNodeMenuItems.for..st delete mode 100644 src/Squot.package/MCPatchOperation.extension/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/MCPatchOperation.extension/instance/squotDiffNodeSummary.st delete mode 100644 src/Squot.package/MCPatchOperation.extension/instance/squotToolsDiffNodeContent.st delete mode 100644 src/Squot.package/MCPatchOperation.extension/instance/unignoreInSquot.st delete mode 100644 src/Squot.package/MCPatchOperation.extension/methodProperties.json delete mode 100644 src/Squot.package/MCPatchOperation.extension/properties.json delete mode 100644 src/Squot.package/MCPostscriptDefinition.extension/instance/squotAddToChangeSet..st delete mode 100644 src/Squot.package/MCPostscriptDefinition.extension/instance/squotIsInChangeSet..st delete mode 100644 src/Squot.package/MCPostscriptDefinition.extension/instance/squotRemoveFromChangeSet..st delete mode 100644 src/Squot.package/MCPostscriptDefinition.extension/methodProperties.json delete mode 100644 src/Squot.package/MCPostscriptDefinition.extension/properties.json delete mode 100644 src/Squot.package/MCPreambleDefinition.extension/instance/squotAddToChangeSet..st delete mode 100644 src/Squot.package/MCPreambleDefinition.extension/instance/squotIsInChangeSet..st delete mode 100644 src/Squot.package/MCPreambleDefinition.extension/instance/squotRemoveFromChangeSet..st delete mode 100644 src/Squot.package/MCPreambleDefinition.extension/methodProperties.json delete mode 100644 src/Squot.package/MCPreambleDefinition.extension/properties.json delete mode 100644 src/Squot.package/MCRemovalPostscriptDefinition.extension/instance/squotAddToChangeSet..st delete mode 100644 src/Squot.package/MCRemovalPostscriptDefinition.extension/instance/squotIsInChangeSet..st delete mode 100644 src/Squot.package/MCRemovalPostscriptDefinition.extension/instance/squotRemoveFromChangeSet..st delete mode 100644 src/Squot.package/MCRemovalPostscriptDefinition.extension/methodProperties.json delete mode 100644 src/Squot.package/MCRemovalPostscriptDefinition.extension/properties.json delete mode 100644 src/Squot.package/MCRemovalPreambleDefinition.extension/instance/squotAddToChangeSet..st delete mode 100644 src/Squot.package/MCRemovalPreambleDefinition.extension/instance/squotIsInChangeSet..st delete mode 100644 src/Squot.package/MCRemovalPreambleDefinition.extension/instance/squotRemoveFromChangeSet..st delete mode 100644 src/Squot.package/MCRemovalPreambleDefinition.extension/methodProperties.json delete mode 100644 src/Squot.package/MCRemovalPreambleDefinition.extension/properties.json delete mode 100644 src/Squot.package/MCScriptDefinition.extension/instance/browseFromSquotWorkingCopyArtifact..st delete mode 100644 src/Squot.package/MCScriptDefinition.extension/instance/squotGroup.st delete mode 100644 src/Squot.package/MCSnapshot.extension/instance/asSquotArtifactForPackage..st delete mode 100644 src/Squot.package/MCSnapshot.extension/instance/asSquotArtifactForPackage.path..st delete mode 100644 src/Squot.package/MCSnapshot.extension/instance/squotShadowMarker.st delete mode 100644 src/Squot.package/MCSnapshot.extension/instance/squotWithSortedDefinitions.st delete mode 100644 src/Squot.package/MCSnapshot.extension/instance/squotWrite.with..st delete mode 100644 src/Squot.package/MCSnapshot.extension/methodProperties.json delete mode 100644 src/Squot.package/MCSnapshot.extension/properties.json delete mode 100644 src/Squot.package/Metaclass.extension/instance/squotMirror.st delete mode 100644 src/Squot.package/Metaclass.extension/methodProperties.json delete mode 100644 src/Squot.package/Metaclass.extension/properties.json delete mode 100644 src/Squot.package/Morph.extension/instance/squotInitializeStoreInfo..st delete mode 100644 src/Squot.package/Morph.extension/methodProperties.json delete mode 100644 src/Squot.package/Morph.extension/properties.json delete mode 100644 src/Squot.package/Number.extension/instance/squotShouldKeepIdentity.st delete mode 100644 src/Squot.package/Number.extension/methodProperties.json delete mode 100644 src/Squot.package/Number.extension/properties.json delete mode 100644 src/Squot.package/Object.extension/class/squotAllSerializers.st delete mode 100644 src/Squot.package/Object.extension/class/squotRelevantInstVars.st delete mode 100644 src/Squot.package/Object.extension/class/squotSmartRefStreamSerializer.st delete mode 100644 src/Squot.package/Object.extension/class/squotSpecializedSerializers.st delete mode 100644 src/Squot.package/Object.extension/class/squotStonSerializer.st delete mode 100644 src/Squot.package/Object.extension/instance/browseFromSquotWorkingCopyArtifact..st delete mode 100644 src/Squot.package/Object.extension/instance/canHaveNameAssignedBySquot.st delete mode 100644 src/Squot.package/Object.extension/instance/captureWithSquot..st delete mode 100644 src/Squot.package/Object.extension/instance/captureWithSquot.st delete mode 100644 src/Squot.package/Object.extension/instance/hasSquotShadowName.st delete mode 100644 src/Squot.package/Object.extension/instance/shouldHaveNameAssignedBySquot.st delete mode 100644 src/Squot.package/Object.extension/instance/squotAddTransientStoreInfoTo..st delete mode 100644 src/Squot.package/Object.extension/instance/squotCaptureSlotsIn.with..st delete mode 100644 src/Squot.package/Object.extension/instance/squotDecoratedLike..st delete mode 100644 src/Squot.package/Object.extension/instance/squotInitializeStoreInfo..st delete mode 100644 src/Squot.package/Object.extension/instance/squotReactivateWith..st delete mode 100644 src/Squot.package/Object.extension/instance/squotRelevantInstVars.st delete mode 100644 src/Squot.package/Object.extension/instance/squotRemoveTransientStoreInfoFrom..st delete mode 100644 src/Squot.package/Object.extension/instance/squotReplacementFor..st delete mode 100644 src/Squot.package/Object.extension/instance/squotShadowFactory.st delete mode 100644 src/Squot.package/Object.extension/instance/squotShouldKeepIdentity.st delete mode 100644 src/Squot.package/Object.extension/instance/squotWrite.with..st delete mode 100644 src/Squot.package/Object.extension/instance/undecorated.st delete mode 100644 src/Squot.package/Object.extension/methodProperties.json delete mode 100644 src/Squot.package/Object.extension/properties.json delete mode 100644 src/Squot.package/PackageInfo.extension/class/squotCypressSerializer.st delete mode 100644 src/Squot.package/PackageInfo.extension/class/squotEnvironmentInMetadata..st delete mode 100644 src/Squot.package/PackageInfo.extension/class/squotEnvironmentOf..st delete mode 100644 src/Squot.package/PackageInfo.extension/class/squotMirror.st delete mode 100644 src/Squot.package/PackageInfo.extension/class/squotSetEnvironment.inMetadata..st delete mode 100644 src/Squot.package/PackageInfo.extension/class/squotSetEnvironmentOf.to..st delete mode 100644 src/Squot.package/PackageInfo.extension/instance/captureWithSquot..st delete mode 100644 src/Squot.package/PackageInfo.extension/instance/captureWithSquot.st delete mode 100644 src/Squot.package/PackageInfo.extension/instance/shouldHaveNameAssignedBySquot.st delete mode 100644 src/Squot.package/PackageInfo.extension/instance/squotAddTransientStoreInfoTo..st delete mode 100644 src/Squot.package/PackageInfo.extension/instance/squotRemoveTransientStoreInfoFrom..st delete mode 100644 src/Squot.package/PackageInfo.extension/instance/squotShadowFactory.st delete mode 100644 src/Squot.package/PackageInfo.extension/instance/squotShouldKeepIdentity.st delete mode 100644 src/Squot.package/PackageInfo.extension/methodProperties.json delete mode 100644 src/Squot.package/PackageInfo.extension/properties.json delete mode 100644 src/Squot.package/Point.extension/instance/squotShouldKeepIdentity.st delete mode 100644 src/Squot.package/Point.extension/methodProperties.json delete mode 100644 src/Squot.package/Point.extension/properties.json delete mode 100644 src/Squot.package/ProtoObject.extension/class/squotMirror.st delete mode 100644 src/Squot.package/ProtoObject.extension/methodProperties.json delete mode 100644 src/Squot.package/ProtoObject.extension/properties.json delete mode 100644 src/Squot.package/STON.extension/class/squotPut.onStream..st delete mode 100644 src/Squot.package/STON.extension/methodProperties.json delete mode 100644 src/Squot.package/STON.extension/properties.json delete mode 100644 src/Squot.package/SUnitChangeLogSuppressor.class/README.md delete mode 100644 src/Squot.package/SUnitChangeLogSuppressor.class/instance/suppressChangeNotificationsDuring..st delete mode 100644 src/Squot.package/SUnitChangeLogSuppressor.class/methodProperties.json delete mode 100644 src/Squot.package/SUnitChangeLogSuppressor.class/properties.json delete mode 100644 src/Squot.package/SUnitChangeLogSuppressorTest.class/README.md delete mode 100644 src/Squot.package/SUnitChangeLogSuppressorTest.class/instance/setUp.st delete mode 100644 src/Squot.package/SUnitChangeLogSuppressorTest.class/instance/testAnswersSuppressBlockValue.st delete mode 100644 src/Squot.package/SUnitChangeLogSuppressorTest.class/methodProperties.json delete mode 100644 src/Squot.package/SUnitChangeLogSuppressorTest.class/properties.json delete mode 100644 src/Squot.package/SquotAbstractCollectionMerge.class/README.md delete mode 100644 src/Squot.package/SquotAbstractCollectionMerge.class/instance/addMerge..st delete mode 100644 src/Squot.package/SquotAbstractCollectionMerge.class/instance/addModification..st delete mode 100644 src/Squot.package/SquotAbstractCollectionMerge.class/instance/at..st delete mode 100644 src/Squot.package/SquotAbstractCollectionMerge.class/instance/conflictAt..st delete mode 100644 src/Squot.package/SquotAbstractCollectionMerge.class/instance/conflictAt.ifAbsent..st delete mode 100644 src/Squot.package/SquotAbstractCollectionMerge.class/instance/conflicts.st delete mode 100644 src/Squot.package/SquotAbstractCollectionMerge.class/instance/containerConflicts.st delete mode 100644 src/Squot.package/SquotAbstractCollectionMerge.class/instance/containerModifications.st delete mode 100644 src/Squot.package/SquotAbstractCollectionMerge.class/instance/elementMerges.st delete mode 100644 src/Squot.package/SquotAbstractCollectionMerge.class/instance/hasChanges.st delete mode 100644 src/Squot.package/SquotAbstractCollectionMerge.class/instance/hasChangesAt..st delete mode 100644 src/Squot.package/SquotAbstractCollectionMerge.class/instance/hasConflicts.st delete mode 100644 src/Squot.package/SquotAbstractCollectionMerge.class/instance/includesModificationAt..st delete mode 100644 src/Squot.package/SquotAbstractCollectionMerge.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotAbstractCollectionMerge.class/instance/keyOf..st delete mode 100644 src/Squot.package/SquotAbstractCollectionMerge.class/instance/keyOf.ifAbsent..st delete mode 100644 src/Squot.package/SquotAbstractCollectionMerge.class/instance/mergeAt..st delete mode 100644 src/Squot.package/SquotAbstractCollectionMerge.class/instance/modificationAt.ifAbsent..st delete mode 100644 src/Squot.package/SquotAbstractCollectionMerge.class/instance/modifies..st delete mode 100644 src/Squot.package/SquotAbstractCollectionMerge.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotAbstractCollectionMerge.class/methodProperties.json delete mode 100644 src/Squot.package/SquotAbstractCollectionMerge.class/properties.json delete mode 100644 src/Squot.package/SquotAbstractMerge.class/README.md delete mode 100644 src/Squot.package/SquotAbstractMerge.class/class/into.merge.basedOn..st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/base..st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/base.st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/browseFromSquotWorkingCopyArtifact..st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/chooseIncoming.st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/chooseWorking.st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/computeDifferences.st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/conflicts.st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/hasChanges.st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/hasConflicts.st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/incoming..st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/incoming.st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/initializeSquotDiffNodes.with..st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/isAddition.st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/isMerge.st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/isModification.st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/isRemoval.st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/modifications.st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/modifies..st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/newSquotDiffNodes.st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/object.st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/privateResolvedPatch.st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/resetChoice.st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/resolvedPatch.st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/setWorking.incoming.base..st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/squotHasChanges.st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/squotToolsDiffNodeContent.st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/working..st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/instance/working.st delete mode 100644 src/Squot.package/SquotAbstractMerge.class/methodProperties.json delete mode 100644 src/Squot.package/SquotAbstractMerge.class/properties.json delete mode 100644 src/Squot.package/SquotActiveObjectRegistry.class/README.md delete mode 100644 src/Squot.package/SquotActiveObjectRegistry.class/class/nameOf..st delete mode 100644 src/Squot.package/SquotActiveObjectRegistry.class/class/nameOf.ifAbsent..st delete mode 100644 src/Squot.package/SquotActiveObjectRegistry.class/class/objectNamed..st delete mode 100644 src/Squot.package/SquotActiveObjectRegistry.class/methodProperties.json delete mode 100644 src/Squot.package/SquotActiveObjectRegistry.class/properties.json delete mode 100644 src/Squot.package/SquotArtifact.class/README.md delete mode 100644 src/Squot.package/SquotArtifact.class/class/newId.st delete mode 100644 src/Squot.package/SquotArtifact.class/class/path.content..st delete mode 100644 src/Squot.package/SquotArtifact.class/class/path.content.storeInfo..st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/^equals.st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/browse.st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/capture.st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/content..st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/content.st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/convertToCurrentVersion.refStream..st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/copyWithDiffApplied..st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/copyWithDifferentContent..st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/diffAgainst..st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/displayText.st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/hash.st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/id..st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/id.st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/initializeDefaultStoreInfoFor..st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/isLoadable.st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/materializeWith.replacing..st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/mergeStoreInfo..st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/mergeWith.basedOn..st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/path..st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/path.st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/postCopy.st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/postCopyWithoutContent.st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/putArtifactClassInStoreInfo.st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/serializer..st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/setContent.storeInfo..st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/setPath.content..st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/setPath.content.storeInfo..st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/shadowOfTrackedObject.st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/snapshot.st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/storeInfo..st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/storeInfo.st delete mode 100644 src/Squot.package/SquotArtifact.class/instance/updateStoreInfo..st delete mode 100644 src/Squot.package/SquotArtifact.class/methodProperties.json delete mode 100644 src/Squot.package/SquotArtifact.class/properties.json delete mode 100644 src/Squot.package/SquotArtifactAddition.class/README.md delete mode 100644 src/Squot.package/SquotArtifactAddition.class/class/of..st delete mode 100644 src/Squot.package/SquotArtifactAddition.class/instance/adornedDiffNodeTitle..st delete mode 100644 src/Squot.package/SquotArtifactAddition.class/instance/applyToContainer..st delete mode 100644 src/Squot.package/SquotArtifactAddition.class/instance/diff.against..st delete mode 100644 src/Squot.package/SquotArtifactAddition.class/instance/diffNodeFallbackTitle.st delete mode 100644 src/Squot.package/SquotArtifactAddition.class/instance/diffNodeOperationTitle.st delete mode 100644 src/Squot.package/SquotArtifactAddition.class/instance/isBasedOn..st delete mode 100644 src/Squot.package/SquotArtifactAddition.class/instance/mayAffectArtifact.st delete mode 100644 src/Squot.package/SquotArtifactAddition.class/instance/mergeWith..st delete mode 100644 src/Squot.package/SquotArtifactAddition.class/instance/mergeWithAddition..st delete mode 100644 src/Squot.package/SquotArtifactAddition.class/instance/mergeWithDiff..st delete mode 100644 src/Squot.package/SquotArtifactAddition.class/instance/mergeWithLoad..st delete mode 100644 src/Squot.package/SquotArtifactAddition.class/instance/mergeWithRemoval..st delete mode 100644 src/Squot.package/SquotArtifactAddition.class/instance/needsChoice.st delete mode 100644 src/Squot.package/SquotArtifactAddition.class/instance/rebaseOn..st delete mode 100644 src/Squot.package/SquotArtifactAddition.class/instance/resolveConflictWith..st delete mode 100644 src/Squot.package/SquotArtifactAddition.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotArtifactAddition.class/instance/toggleWhetherToLoad.st delete mode 100644 src/Squot.package/SquotArtifactAddition.class/instance/topNodes.st delete mode 100644 src/Squot.package/SquotArtifactAddition.class/instance/willBeLoaded.st delete mode 100644 src/Squot.package/SquotArtifactAddition.class/methodProperties.json delete mode 100644 src/Squot.package/SquotArtifactAddition.class/properties.json delete mode 100644 src/Squot.package/SquotArtifactContentDiffMock.class/README.md delete mode 100644 src/Squot.package/SquotArtifactContentDiffMock.class/instance/asSquotHierarchicalDiff.st delete mode 100644 src/Squot.package/SquotArtifactContentDiffMock.class/instance/defaultApplyBlock.st delete mode 100644 src/Squot.package/SquotArtifactContentDiffMock.class/instance/hasConflicts..st delete mode 100644 src/Squot.package/SquotArtifactContentDiffMock.class/instance/hasConflicts.st delete mode 100644 src/Squot.package/SquotArtifactContentDiffMock.class/instance/id..st delete mode 100644 src/Squot.package/SquotArtifactContentDiffMock.class/instance/id.st delete mode 100644 src/Squot.package/SquotArtifactContentDiffMock.class/instance/onApply..st delete mode 100644 src/Squot.package/SquotArtifactContentDiffMock.class/instance/squotApplyTo..st delete mode 100644 src/Squot.package/SquotArtifactContentDiffMock.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotArtifactContentDiffMock.class/instance/squotHasChanges.st delete mode 100644 src/Squot.package/SquotArtifactContentDiffMock.class/instance/topNodes..st delete mode 100644 src/Squot.package/SquotArtifactContentDiffMock.class/instance/topNodes.st delete mode 100644 src/Squot.package/SquotArtifactContentDiffMock.class/instance/whenAppliedTo.return..st delete mode 100644 src/Squot.package/SquotArtifactContentDiffMock.class/methodProperties.json delete mode 100644 src/Squot.package/SquotArtifactContentDiffMock.class/properties.json delete mode 100644 src/Squot.package/SquotArtifactContentMock.class/README.md delete mode 100644 src/Squot.package/SquotArtifactContentMock.class/instance/asShadowGraph.st delete mode 100644 src/Squot.package/SquotArtifactContentMock.class/instance/defaultCompareBlock.st delete mode 100644 src/Squot.package/SquotArtifactContentMock.class/instance/defaultMaterializeBlock.st delete mode 100644 src/Squot.package/SquotArtifactContentMock.class/instance/defaultMergeBlock.st delete mode 100644 src/Squot.package/SquotArtifactContentMock.class/instance/diffBlock..st delete mode 100644 src/Squot.package/SquotArtifactContentMock.class/instance/diffBlock.st delete mode 100644 src/Squot.package/SquotArtifactContentMock.class/instance/id..st delete mode 100644 src/Squot.package/SquotArtifactContentMock.class/instance/id.st delete mode 100644 src/Squot.package/SquotArtifactContentMock.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotArtifactContentMock.class/instance/nameOf..st delete mode 100644 src/Squot.package/SquotArtifactContentMock.class/instance/nameOf.ifAbsent..st delete mode 100644 src/Squot.package/SquotArtifactContentMock.class/instance/nameOf.is..st delete mode 100644 src/Squot.package/SquotArtifactContentMock.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotArtifactContentMock.class/instance/squotDiffAgainst..st delete mode 100644 src/Squot.package/SquotArtifactContentMock.class/instance/squotDiffAgainst.withBase..st delete mode 100644 src/Squot.package/SquotArtifactContentMock.class/instance/squotMaterializeWith.from.replacing..st delete mode 100644 src/Squot.package/SquotArtifactContentMock.class/instance/squotSummaryText.st delete mode 100644 src/Squot.package/SquotArtifactContentMock.class/instance/startShadow.st delete mode 100644 src/Squot.package/SquotArtifactContentMock.class/instance/whenComparedReturnMock.st delete mode 100644 src/Squot.package/SquotArtifactContentMock.class/instance/whenComparedWith.return..st delete mode 100644 src/Squot.package/SquotArtifactContentMock.class/instance/whenMaterializedReturn..st delete mode 100644 src/Squot.package/SquotArtifactContentMock.class/instance/whenMergedReturn..st delete mode 100644 src/Squot.package/SquotArtifactContentMock.class/methodProperties.json delete mode 100644 src/Squot.package/SquotArtifactContentMock.class/properties.json delete mode 100644 src/Squot.package/SquotArtifactDiff.class/README.md delete mode 100644 src/Squot.package/SquotArtifactDiff.class/class/isAbstract.st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/class/left.right..st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/addToMerge.modifying..st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/adornedDiffNodeTitle..st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/applyTo..st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/applyToContainer..st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/asDiffTree.st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/base.st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/browseFromSquotWorkingCopyArtifact..st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/diff.against..st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/diffNodeFallbackTitle.st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/diffTreeNodeTitle.st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/hasChanges.st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/inConflictWith..st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/isAddition.st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/isBasedOn..st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/isConflict.st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/isLoad.st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/isMerge.st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/isModification.st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/isRemoval.st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/left.st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/mayAffectArtifact.st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/mergeWith..st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/mergeWithAddition..st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/mergeWithDiff..st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/mergeWithLoad..st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/mergeWithRemoval..st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/needsChoice.st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/object.st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/originalOrAddedArtifact.st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/path.st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/rebaseOn..st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/resolveConflictWith..st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/right.st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/setLeft.right.isLoadedInWorkingCopy..st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/setLoadedInWorkingCopy.st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/setUpTreeRoot.toEditMerge..st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/setUpTreeRoot.toEditPatch..st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/squotToolsDiffNodeContent.st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/todo.st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/updateRightArtifact.st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/instance/willBeLoaded.st delete mode 100644 src/Squot.package/SquotArtifactDiff.class/methodProperties.json delete mode 100644 src/Squot.package/SquotArtifactDiff.class/properties.json delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/README.md delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/class/path..st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/^equals.st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/addToMerge.modifying..st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/applyToContainer..st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/asDiffTree.st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/beAddition.st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/beRemoval.st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/copiedFrom..st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/copiedFrom.st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/copy.st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/createArtifactMock.st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/defaultMergeBlock.st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/hasChanges..st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/hasChanges.st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/hasConflicts..st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/hash.st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/isAddition.st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/isBasedOn..st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/isLoad.st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/isModification.st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/isRemoval.st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/left..st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/left.st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/mayAffectArtifact.st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/mergeWith..st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/object.st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/path..st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/path.st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/rebaseOn..st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/right..st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/right.st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/setUpTreeRoot.toEditMerge..st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/setUpTreeRoot.toEditPatch..st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/toggleWhetherToLoad.st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/topNodes.st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/updateRightArtifact.st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/whenMergedWith.return..st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/whenMergedWithA.return..st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/willBeLoaded..st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/instance/willBeLoaded.st delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/methodProperties.json delete mode 100644 src/Squot.package/SquotArtifactDiffMock.class/properties.json delete mode 100644 src/Squot.package/SquotArtifactDiffTest.class/README.md delete mode 100644 src/Squot.package/SquotArtifactDiffTest.class/instance/applyDiffToWorkingCopy..st delete mode 100644 src/Squot.package/SquotArtifactDiffTest.class/instance/createWorkingCopyWithObjectAt..st delete mode 100644 src/Squot.package/SquotArtifactDiffTest.class/instance/testAdditionsAreLoadedByDefault.st delete mode 100644 src/Squot.package/SquotArtifactDiffTest.class/instance/testAdditionsCanBeUnloaded.st delete mode 100644 src/Squot.package/SquotArtifactDiffTest.class/instance/testDiffTwoPackageArtifacts.st delete mode 100644 src/Squot.package/SquotArtifactDiffTest.class/instance/testLoadedWorkingCopyArtifactsWillBeLoaded.st delete mode 100644 src/Squot.package/SquotArtifactDiffTest.class/instance/testLoadedWorkingCopyArtifactsWillBeLoaded2.st delete mode 100644 src/Squot.package/SquotArtifactDiffTest.class/instance/testLoadsCanBeDisabled.st delete mode 100644 src/Squot.package/SquotArtifactDiffTest.class/instance/testLoadsWillBeLoaded.st delete mode 100644 src/Squot.package/SquotArtifactDiffTest.class/instance/testMetadataModification.st delete mode 100644 src/Squot.package/SquotArtifactDiffTest.class/instance/testPatchingPreservesIdOfWorkingCopy.st delete mode 100644 src/Squot.package/SquotArtifactDiffTest.class/instance/testUnloadedWorkingCopyArtifactRemovalsWillNotBeLoaded.st delete mode 100644 src/Squot.package/SquotArtifactDiffTest.class/instance/testUnloadedWorkingCopyArtifactsWillNotBeLoaded.st delete mode 100644 src/Squot.package/SquotArtifactDiffTest.class/instance/testUnloadedWorkingCopyArtifactsWillNotBeLoaded2.st delete mode 100644 src/Squot.package/SquotArtifactDiffTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotArtifactDiffTest.class/properties.json delete mode 100644 src/Squot.package/SquotArtifactLoad.class/README.md delete mode 100644 src/Squot.package/SquotArtifactLoad.class/class/of..st delete mode 100644 src/Squot.package/SquotArtifactLoad.class/instance/adornedDiffNodeTitle..st delete mode 100644 src/Squot.package/SquotArtifactLoad.class/instance/applyToContainer..st delete mode 100644 src/Squot.package/SquotArtifactLoad.class/instance/diffNodeOperationTitle.st delete mode 100644 src/Squot.package/SquotArtifactLoad.class/instance/hasChanges.st delete mode 100644 src/Squot.package/SquotArtifactLoad.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotArtifactLoad.class/instance/isBasedOn..st delete mode 100644 src/Squot.package/SquotArtifactLoad.class/instance/isLoad.st delete mode 100644 src/Squot.package/SquotArtifactLoad.class/instance/mayAffectArtifact.st delete mode 100644 src/Squot.package/SquotArtifactLoad.class/instance/mergeWith..st delete mode 100644 src/Squot.package/SquotArtifactLoad.class/instance/mergeWithAddition..st delete mode 100644 src/Squot.package/SquotArtifactLoad.class/instance/mergeWithDiff..st delete mode 100644 src/Squot.package/SquotArtifactLoad.class/instance/mergeWithRemoval..st delete mode 100644 src/Squot.package/SquotArtifactLoad.class/instance/needsChoice.st delete mode 100644 src/Squot.package/SquotArtifactLoad.class/instance/rebaseOn..st delete mode 100644 src/Squot.package/SquotArtifactLoad.class/instance/resolveConflictWith..st delete mode 100644 src/Squot.package/SquotArtifactLoad.class/instance/setArtifact..st delete mode 100644 src/Squot.package/SquotArtifactLoad.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotArtifactLoad.class/instance/toggleWhetherToLoad.st delete mode 100644 src/Squot.package/SquotArtifactLoad.class/instance/topNodes.st delete mode 100644 src/Squot.package/SquotArtifactLoad.class/instance/willBeLoaded.st delete mode 100644 src/Squot.package/SquotArtifactLoad.class/methodProperties.json delete mode 100644 src/Squot.package/SquotArtifactLoad.class/properties.json delete mode 100644 src/Squot.package/SquotArtifactLocator.class/README.md delete mode 100644 src/Squot.package/SquotArtifactLocator.class/instance/detectArtifactsIn.search..st delete mode 100644 src/Squot.package/SquotArtifactLocator.class/instance/detectBlock..st delete mode 100644 src/Squot.package/SquotArtifactLocator.class/instance/detectBlock.st delete mode 100644 src/Squot.package/SquotArtifactLocator.class/instance/name..st delete mode 100644 src/Squot.package/SquotArtifactLocator.class/instance/name.st delete mode 100644 src/Squot.package/SquotArtifactLocator.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotArtifactLocator.class/methodProperties.json delete mode 100644 src/Squot.package/SquotArtifactLocator.class/properties.json delete mode 100644 src/Squot.package/SquotArtifactLocatorTest.class/README.md delete mode 100644 src/Squot.package/SquotArtifactLocatorTest.class/class/isAbstract.st delete mode 100644 src/Squot.package/SquotArtifactLocatorTest.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotArtifactLocatorTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotArtifactLocatorTest.class/properties.json delete mode 100644 src/Squot.package/SquotArtifactMerge.class/README.md delete mode 100644 src/Squot.package/SquotArtifactMerge.class/class/into.merge.basedOn.willBeLoaded.graphMerge.metadataMerge..st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/adornedDiffNodeTitle..st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/asDiffTree.st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/base..st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/chooseIncoming.st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/chooseWorking.st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/computeDifferences.st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/conflicts.st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/diffTreeChildren.st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/diffTreeNodeTitle.st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/elementMerges.st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/graphMerge..st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/graphMerge.st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/hasChanges.st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/hasConflicts.st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/incoming..st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/mayAffectArtifact.st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/mergeOfTrackedObject.st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/metadata.st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/metadataDiffNodes.st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/modifications.st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/path.st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/privateResolvedPatch.st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/resetChoice.st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/setLoadedInWorkingCopy.st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/setMetadataMerge..st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/setUpTreeRoot.toEditMerge..st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/setWorking.incoming.base.willBeLoaded.graphMerge.metadataMerge..st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/squotToolsDiffNodeContent.st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/toggleWhetherToLoad.st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/willBeLoaded.st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/working..st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/instance/workingIsLoaded.st delete mode 100644 src/Squot.package/SquotArtifactMerge.class/methodProperties.json delete mode 100644 src/Squot.package/SquotArtifactMerge.class/properties.json delete mode 100644 src/Squot.package/SquotArtifactMergeTest.class/README.md delete mode 100644 src/Squot.package/SquotArtifactMergeTest.class/instance/testMergeMetadataWithoutConflicts.st delete mode 100644 src/Squot.package/SquotArtifactMergeTest.class/instance/testMergeWithoutBase.st delete mode 100644 src/Squot.package/SquotArtifactMergeTest.class/instance/testPreservesIdOfWorkingCopy.st delete mode 100644 src/Squot.package/SquotArtifactMergeTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotArtifactMergeTest.class/properties.json delete mode 100644 src/Squot.package/SquotArtifactMock.class/README.md delete mode 100644 src/Squot.package/SquotArtifactMock.class/class/path..st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/capture.st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/content.st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/copyWithDiffApplied..st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/defaultMergeBlock.st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/diffAgainst..st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/diffBlock..st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/diffContentAgainstThatOf..st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/diffContentAgainstThatOf.withBase..st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/isLoadable..st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/isLoadable.st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/materializeBlock..st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/materializeBlock.st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/materializeWith.replacing..st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/mergeBlock..st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/mergeBlock.st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/mergeDiffWith.basedOn..st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/mergeWith.basedOn..st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/mergeWithoutBaseWith..st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/path..st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/path.st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/shadowOfTrackedObject.st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/snapshot.st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/squotSummaryText.st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/storeInfo..st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/storeInfo.st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/whenComparedWith.return..st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/whenContentComparedWith.return..st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/whenContentMergedWith.return..st delete mode 100644 src/Squot.package/SquotArtifactMock.class/instance/whenMergeWith.return..st delete mode 100644 src/Squot.package/SquotArtifactMock.class/methodProperties.json delete mode 100644 src/Squot.package/SquotArtifactMock.class/properties.json delete mode 100644 src/Squot.package/SquotArtifactModification.class/README.md delete mode 100644 src/Squot.package/SquotArtifactModification.class/class/left.right.isLoadedInWorkingCopy.contentDiff.metadataDiff..st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/addDifferencesAsConflicts..st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/addToMerge.modifying..st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/adornedDiffNodeTitle..st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/applyContentDiffTo..st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/applyMetadataDiffTo..st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/applyTo..st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/applyToLoaded..st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/content.st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/diff.against..st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/diffContent..st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/diffNodeOperationTitle.st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/diffOfTrackedObject.st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/hasChanges.st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/isBasedOn..st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/left..st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/mayAffectArtifact.st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/mergeWithDiff..st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/metadata.st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/metadataTreeNodes.st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/needsChoice.st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/optionalMetadataNode.st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/postCopy.st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/rebaseOn..st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/resolveConflictWith..st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/right..st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/setLeft.right.isLoadedInWorkingCopy.contentDiff.metadataDiff..st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/setLoadedInWorkingCopy.st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/setWillBeLoaded.st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/toggleWhetherToLoad.st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/topNodes.st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/updateRightArtifact.st delete mode 100644 src/Squot.package/SquotArtifactModification.class/instance/willBeLoaded.st delete mode 100644 src/Squot.package/SquotArtifactModification.class/methodProperties.json delete mode 100644 src/Squot.package/SquotArtifactModification.class/properties.json delete mode 100644 src/Squot.package/SquotArtifactRemoval.class/README.md delete mode 100644 src/Squot.package/SquotArtifactRemoval.class/class/of..st delete mode 100644 src/Squot.package/SquotArtifactRemoval.class/instance/applyToContainer..st delete mode 100644 src/Squot.package/SquotArtifactRemoval.class/instance/diffNodeOperationTitle.st delete mode 100644 src/Squot.package/SquotArtifactRemoval.class/instance/isBasedOn..st delete mode 100644 src/Squot.package/SquotArtifactRemoval.class/instance/mayAffectArtifact.st delete mode 100644 src/Squot.package/SquotArtifactRemoval.class/instance/mergeWith..st delete mode 100644 src/Squot.package/SquotArtifactRemoval.class/instance/mergeWithDiff..st delete mode 100644 src/Squot.package/SquotArtifactRemoval.class/instance/mergeWithLoad..st delete mode 100644 src/Squot.package/SquotArtifactRemoval.class/instance/mergeWithRemoval..st delete mode 100644 src/Squot.package/SquotArtifactRemoval.class/instance/needsChoice.st delete mode 100644 src/Squot.package/SquotArtifactRemoval.class/instance/rebaseOn..st delete mode 100644 src/Squot.package/SquotArtifactRemoval.class/instance/resolveConflictWith..st delete mode 100644 src/Squot.package/SquotArtifactRemoval.class/instance/right.st delete mode 100644 src/Squot.package/SquotArtifactRemoval.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotArtifactRemoval.class/instance/topNodes.st delete mode 100644 src/Squot.package/SquotArtifactRemoval.class/methodProperties.json delete mode 100644 src/Squot.package/SquotArtifactRemoval.class/properties.json delete mode 100644 src/Squot.package/SquotAuthorRequest.class/README.md delete mode 100644 src/Squot.package/SquotAuthorRequest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotAuthorRequest.class/properties.json delete mode 100644 src/Squot.package/SquotBasicUnitOfWork.class/README.md delete mode 100644 src/Squot.package/SquotBasicUnitOfWork.class/instance/activateDuring..st delete mode 100644 src/Squot.package/SquotBasicUnitOfWork.class/instance/finish.st delete mode 100644 src/Squot.package/SquotBasicUnitOfWork.class/instance/numberOfClients.st delete mode 100644 src/Squot.package/SquotBasicUnitOfWork.class/instance/repository..st delete mode 100644 src/Squot.package/SquotBasicUnitOfWork.class/instance/repository.st delete mode 100644 src/Squot.package/SquotBasicUnitOfWork.class/instance/start.st delete mode 100644 src/Squot.package/SquotBasicUnitOfWork.class/methodProperties.json delete mode 100644 src/Squot.package/SquotBasicUnitOfWork.class/properties.json delete mode 100644 src/Squot.package/SquotBitsMirror.class/README.md delete mode 100644 src/Squot.package/SquotBitsMirror.class/instance/initializeSnapshot.of.with..st delete mode 100644 src/Squot.package/SquotBitsMirror.class/instance/is.comparableTo..st delete mode 100644 src/Squot.package/SquotBitsMirror.class/instance/shadowFactory.st delete mode 100644 src/Squot.package/SquotBitsMirror.class/methodProperties.json delete mode 100644 src/Squot.package/SquotBitsMirror.class/properties.json delete mode 100644 src/Squot.package/SquotBitsObjectShadow.class/README.md delete mode 100644 src/Squot.package/SquotBitsObjectShadow.class/class/squotMirror.st delete mode 100644 src/Squot.package/SquotBitsObjectShadow.class/instance/addVariablePartSlot..st delete mode 100644 src/Squot.package/SquotBitsObjectShadow.class/instance/applySequenceDiff..st delete mode 100644 src/Squot.package/SquotBitsObjectShadow.class/instance/applySequenceDiff.with..st delete mode 100644 src/Squot.package/SquotBitsObjectShadow.class/instance/copyBitsFrom..st delete mode 100644 src/Squot.package/SquotBitsObjectShadow.class/instance/initializeFrom.with..st delete mode 100644 src/Squot.package/SquotBitsObjectShadow.class/instance/isComparableTo..st delete mode 100644 src/Squot.package/SquotBitsObjectShadow.class/instance/privateApplySequenceDiff..st delete mode 100644 src/Squot.package/SquotBitsObjectShadow.class/instance/privateApplySequenceDiff.with..st delete mode 100644 src/Squot.package/SquotBitsObjectShadow.class/instance/references.st delete mode 100644 src/Squot.package/SquotBitsObjectShadow.class/instance/sameIn.withName.ifAbsent..st delete mode 100644 src/Squot.package/SquotBitsObjectShadow.class/instance/squotDiffAgainst..st delete mode 100644 src/Squot.package/SquotBitsObjectShadow.class/instance/squotDiffAgainst.with..st delete mode 100644 src/Squot.package/SquotBitsObjectShadow.class/instance/squotMaterializeWith..st delete mode 100644 src/Squot.package/SquotBitsObjectShadow.class/instance/squotPreferredSerializer.st delete mode 100644 src/Squot.package/SquotBitsObjectShadow.class/instance/squotShadowMarker.st delete mode 100644 src/Squot.package/SquotBitsObjectShadow.class/instance/squotWith.diffFromSequence..st delete mode 100644 src/Squot.package/SquotBitsObjectShadow.class/instance/variablePartSlotWithIndex..st delete mode 100644 src/Squot.package/SquotBitsObjectShadow.class/instance/writeTo..st delete mode 100644 src/Squot.package/SquotBitsObjectShadow.class/methodProperties.json delete mode 100644 src/Squot.package/SquotBitsObjectShadow.class/properties.json delete mode 100644 src/Squot.package/SquotBitsShadowMirror.class/README.md delete mode 100644 src/Squot.package/SquotBitsShadowMirror.class/instance/is.comparableTo..st delete mode 100644 src/Squot.package/SquotBitsShadowMirror.class/instance/newDiffFrom.to..st delete mode 100644 src/Squot.package/SquotBitsShadowMirror.class/methodProperties.json delete mode 100644 src/Squot.package/SquotBitsShadowMirror.class/properties.json delete mode 100644 src/Squot.package/SquotBrowseMockClass.class/README.md delete mode 100644 src/Squot.package/SquotBrowseMockClass.class/class/browse.st delete mode 100644 src/Squot.package/SquotBrowseMockClass.class/class/reset.st delete mode 100644 src/Squot.package/SquotBrowseMockClass.class/class/wasBrowsed.st delete mode 100644 src/Squot.package/SquotBrowseMockClass.class/methodProperties.json delete mode 100644 src/Squot.package/SquotBrowseMockClass.class/properties.json delete mode 100644 src/Squot.package/SquotBrowseMockTrait.class/README.md delete mode 100644 src/Squot.package/SquotBrowseMockTrait.class/class/reset.st delete mode 100644 src/Squot.package/SquotBrowseMockTrait.class/class/setBrowsed.st delete mode 100644 src/Squot.package/SquotBrowseMockTrait.class/class/wasBrowsed.st delete mode 100644 src/Squot.package/SquotBrowseMockTrait.class/instance/browse.st delete mode 100644 src/Squot.package/SquotBrowseMockTrait.class/methodProperties.json delete mode 100644 src/Squot.package/SquotBrowseMockTrait.class/properties.json delete mode 100644 src/Squot.package/SquotCannotExportEmptyHistory.class/README.md delete mode 100644 src/Squot.package/SquotCannotExportEmptyHistory.class/instance/historian..st delete mode 100644 src/Squot.package/SquotCannotExportEmptyHistory.class/instance/historian.st delete mode 100644 src/Squot.package/SquotCannotExportEmptyHistory.class/methodProperties.json delete mode 100644 src/Squot.package/SquotCannotExportEmptyHistory.class/properties.json delete mode 100644 src/Squot.package/SquotCannotFindSerializer.class/README.md delete mode 100644 src/Squot.package/SquotCannotFindSerializer.class/class/for..st delete mode 100644 src/Squot.package/SquotCannotFindSerializer.class/instance/fileOrDirectory..st delete mode 100644 src/Squot.package/SquotCannotFindSerializer.class/instance/fileOrDirectory.st delete mode 100644 src/Squot.package/SquotCannotFindSerializer.class/methodProperties.json delete mode 100644 src/Squot.package/SquotCannotFindSerializer.class/properties.json delete mode 100644 src/Squot.package/SquotChangeSetTestCleanup.class/README.md delete mode 100644 src/Squot.package/SquotChangeSetTestCleanup.class/class/removeNewChangeSetsNamedLike.after..st delete mode 100644 src/Squot.package/SquotChangeSetTestCleanup.class/methodProperties.json delete mode 100644 src/Squot.package/SquotChangeSetTestCleanup.class/properties.json delete mode 100644 src/Squot.package/SquotChangedArtifactsChooser.class/README.md delete mode 100644 src/Squot.package/SquotChangedArtifactsChooser.class/methodProperties.json delete mode 100644 src/Squot.package/SquotChangedArtifactsChooser.class/properties.json delete mode 100644 src/Squot.package/SquotChangesChooser.class/README.md delete mode 100644 src/Squot.package/SquotChangesChooser.class/class/on..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/class/themeProperties.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/accept.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/acceptColor.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/accepted.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/activateNodeCommandLabel.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/activateSelectedNode.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/addCustomMenuItemsOfSelectedNode..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/addIgnoreMenuItem..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/addUnignoreMenuItem..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/addUnloadedArtifactMenuItems..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/annotation.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/applyUserInterfaceTheme.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/autoProcessNodes..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/browseIncomingEdition.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/browseOriginalEdition.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/browseOtherEdition.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/browseOtherEditionLabel.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/browseWorkingCopyEdition.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/buildButtonBar..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/buildDiffPane..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/buildWith..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/buttonHeight.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/canBeLoaded..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/cancel.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/cancelColor.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/canceled..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/canceled.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/childNodesOf..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/chooseLeftCommandLabel.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/chooseRightCommandLabel.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/chooserWidgetSpecs..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/controllerForIgnores..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/controllerForIgnores.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/createLoadOrderNodes.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/createRootNodes.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/deactivateNodeCommandLabel.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/deactivateSelectedNode.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/defaultAnnotationPaneHeight.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/diffKey.from.event..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/diffNodeMenu.shifted..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/diffNodeMenuHook..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/diffText.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/doItContext.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/doItReceiver.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/environment.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/excludeMethodsWithOnlyTimestampChanges..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/excludePackagesWithoutActiveChanges..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/hasChildren..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/hasNodeSelected.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/ignoreSelectedNode.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/inspectOriginalArtifactCommandLabel.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/inspectOriginalArtifactOfSelectedNode.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/inspectProposedArtifactCommandLabel.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/inspectProposedArtifactOfSelectedNode.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/inspectSelectedDiffContent.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/moveDownSelectedInLoadOrder.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/moveUpSelectedInLoadOrder.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/nodeLabelOf..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/on..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/requestSelectedChangesWithTitle..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/resetChoiceCommandLabel.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/resetChoiceForSelectedNode.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/rootNodes.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/selectNode..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/selectedChangesWithTitle..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/selectedClass.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/selectedDiffNodeIsIncluded.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/selectedNode.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/selectedNodePath..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/selectedPatch.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/toggleLoadSelectedNode.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/unignoreSelectedNode.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/updateRootNodesAfterLoadOrderChange.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/widgetSpecs..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/windowIsClosing.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/windowLabel.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/workingCopy..st delete mode 100644 src/Squot.package/SquotChangesChooser.class/instance/workingCopy.st delete mode 100644 src/Squot.package/SquotChangesChooser.class/methodProperties.json delete mode 100644 src/Squot.package/SquotChangesChooser.class/properties.json delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/README.md delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/class/shouldInheritSelectors.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/applyToWorkingCopy.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/changedArtifactAt.in..st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/hasChangesAt.in..st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/includesDiffAt.in..st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/loadOrderHasChanges.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/newToolOn..st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/patchAddingArtifactAt..st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/patchChangingArtifactAt..st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/patchChangingArtifactMetadataAt..st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/patchChangingUnloadedArtifactAt..st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/patchModifyingMethodTimestampInArtifactAt..st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/patchRemovingArtifactAt..st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/patchWithLoadOrderChange.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/patchWithLoadOrderChangeRegression1.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/patchWithTwoChangedArtifacts.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/patchWithUnloadedArtifactAt..st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/patchedLoadOrderAfter..st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/performUiInteractionTestsOnNode.withPath.inTree..st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/performUiTestsOnToolBuiltBy..st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/resultDiffAt..st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/resultHasChangesAt..st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/resultIncludesDiffAt..st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/resultLoadOrder.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/testAcceptArtifactAddition.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/testAcceptArtifactChange.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/testAcceptArtifactMetadataChange.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/testAcceptArtifactRemoval.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/testDoNotLoadAddedArtifact.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/testLeaveUnloadedArtifactUnloaded.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/testLoadOrderNode.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/testLoadUnloadedArtifact.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/testLoadUnloadedArtifactDuringModification.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/testLoadedArtifactsNotAdornedAsUnloaded.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/testMoveDownInLoadOrder.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/testMoveUpInLoadOrder.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/testPreservesLoadOrderChanges.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/testPreservesLoadOrderChanges2.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/testRejectArtifactAddition.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/testRejectArtifactChange.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/testRejectArtifactMetadataChange.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/testRejectArtifactRemoval.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/testSelectedPatchIsIdempotentWithoutChangingNodes.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/testToggleLoadAddedArtifact.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/testUnloadedArtifactsAdorned.st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/instance/treeViewMenuIncludesAction..st delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotChangesChooserTest.class/properties.json delete mode 100644 src/Squot.package/SquotCherryPickOperation.class/README.md delete mode 100644 src/Squot.package/SquotCherryPickOperation.class/instance/applyMerge.st delete mode 100644 src/Squot.package/SquotCherryPickOperation.class/instance/applyToWorkingCopy.st delete mode 100644 src/Squot.package/SquotCherryPickOperation.class/instance/defaultMessage.st delete mode 100644 src/Squot.package/SquotCherryPickOperation.class/instance/loadedPatch..st delete mode 100644 src/Squot.package/SquotCherryPickOperation.class/instance/loadedPatch.st delete mode 100644 src/Squot.package/SquotCherryPickOperation.class/instance/merge..st delete mode 100644 src/Squot.package/SquotCherryPickOperation.class/instance/merge.st delete mode 100644 src/Squot.package/SquotCherryPickOperation.class/instance/message..st delete mode 100644 src/Squot.package/SquotCherryPickOperation.class/instance/pickedVersion..st delete mode 100644 src/Squot.package/SquotCherryPickOperation.class/instance/pickedVersion.st delete mode 100644 src/Squot.package/SquotCherryPickOperation.class/instance/prepareMerge.st delete mode 100644 src/Squot.package/SquotCherryPickOperation.class/instance/prepareSave.st delete mode 100644 src/Squot.package/SquotCherryPickOperation.class/instance/privateNewMerge.st delete mode 100644 src/Squot.package/SquotCherryPickOperation.class/instance/privateNewSave.st delete mode 100644 src/Squot.package/SquotCherryPickOperation.class/instance/relevantParentOfPickedVersion..st delete mode 100644 src/Squot.package/SquotCherryPickOperation.class/instance/relevantParentOfPickedVersion.st delete mode 100644 src/Squot.package/SquotCherryPickOperation.class/instance/revertMerge.st delete mode 100644 src/Squot.package/SquotCherryPickOperation.class/instance/save.st delete mode 100644 src/Squot.package/SquotCherryPickOperation.class/instance/validate.st delete mode 100644 src/Squot.package/SquotCherryPickOperation.class/instance/validateAncestry.st delete mode 100644 src/Squot.package/SquotCherryPickOperation.class/methodProperties.json delete mode 100644 src/Squot.package/SquotCherryPickOperation.class/properties.json delete mode 100644 src/Squot.package/SquotClassFactoryForTestCase.class/README.md delete mode 100644 src/Squot.package/SquotClassFactoryForTestCase.class/instance/newName.st delete mode 100644 src/Squot.package/SquotClassFactoryForTestCase.class/instance/packageName..st delete mode 100644 src/Squot.package/SquotClassFactoryForTestCase.class/instance/packageName.st delete mode 100644 src/Squot.package/SquotClassFactoryForTestCase.class/methodProperties.json delete mode 100644 src/Squot.package/SquotClassFactoryForTestCase.class/properties.json delete mode 100644 src/Squot.package/SquotClassMirror.class/README.md delete mode 100644 src/Squot.package/SquotClassMirror.class/class/class..st delete mode 100644 src/Squot.package/SquotClassMirror.class/instance/capture.with.ifReplaced..st delete mode 100644 src/Squot.package/SquotClassMirror.class/instance/replacementFor.using..st delete mode 100644 src/Squot.package/SquotClassMirror.class/instance/setReflectedClass..st delete mode 100644 src/Squot.package/SquotClassMirror.class/instance/shouldObjectHaveNameAssigned..st delete mode 100644 src/Squot.package/SquotClassMirror.class/methodProperties.json delete mode 100644 src/Squot.package/SquotClassMirror.class/properties.json delete mode 100644 src/Squot.package/SquotClassShadow.class/README.md delete mode 100644 src/Squot.package/SquotClassShadow.class/instance/browse.st delete mode 100644 src/Squot.package/SquotClassShadow.class/instance/className.st delete mode 100644 src/Squot.package/SquotClassShadow.class/instance/squotMaterializeWith..st delete mode 100644 src/Squot.package/SquotClassShadow.class/instance/squotRewritePath.with..st delete mode 100644 src/Squot.package/SquotClassShadow.class/methodProperties.json delete mode 100644 src/Squot.package/SquotClassShadow.class/properties.json delete mode 100644 src/Squot.package/SquotCollectionElement.class/README.md delete mode 100644 src/Squot.package/SquotCollectionElement.class/class/target..st delete mode 100644 src/Squot.package/SquotCollectionElement.class/class/targetWithRelevantHash..st delete mode 100644 src/Squot.package/SquotCollectionElement.class/instance/^equals.st delete mode 100644 src/Squot.package/SquotCollectionElement.class/instance/asCapturedReference.st delete mode 100644 src/Squot.package/SquotCollectionElement.class/instance/asDiffTreeStringOrText.st delete mode 100644 src/Squot.package/SquotCollectionElement.class/instance/asMaterializedReference.st delete mode 100644 src/Squot.package/SquotCollectionElement.class/instance/asSlotDiffKey.st delete mode 100644 src/Squot.package/SquotCollectionElement.class/instance/asSlotWithValue..st delete mode 100644 src/Squot.package/SquotCollectionElement.class/instance/copyWithTarget..st delete mode 100644 src/Squot.package/SquotCollectionElement.class/instance/hash.st delete mode 100644 src/Squot.package/SquotCollectionElement.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotCollectionElement.class/instance/isCollectionElement.st delete mode 100644 src/Squot.package/SquotCollectionElement.class/instance/isHashRelevant.st delete mode 100644 src/Squot.package/SquotCollectionElement.class/instance/newNameFragment.st delete mode 100644 src/Squot.package/SquotCollectionElement.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotCollectionElement.class/instance/reflect.in..st delete mode 100644 src/Squot.package/SquotCollectionElement.class/instance/reflect.in.put..st delete mode 100644 src/Squot.package/SquotCollectionElement.class/instance/removeFrom.reflectedIn..st delete mode 100644 src/Squot.package/SquotCollectionElement.class/instance/setElement..st delete mode 100644 src/Squot.package/SquotCollectionElement.class/instance/setHashRelevant.st delete mode 100644 src/Squot.package/SquotCollectionElement.class/instance/target..st delete mode 100644 src/Squot.package/SquotCollectionElement.class/instance/target.st delete mode 100644 src/Squot.package/SquotCollectionElement.class/methodProperties.json delete mode 100644 src/Squot.package/SquotCollectionElement.class/properties.json delete mode 100644 src/Squot.package/SquotCommitterRequest.class/README.md delete mode 100644 src/Squot.package/SquotCommitterRequest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotCommitterRequest.class/properties.json delete mode 100644 src/Squot.package/SquotCompiledCodeHeaderReference.class/README.md delete mode 100644 src/Squot.package/SquotCompiledCodeHeaderReference.class/instance/asDiffTreeStringOrText.st delete mode 100644 src/Squot.package/SquotCompiledCodeHeaderReference.class/instance/newNameFragment.st delete mode 100644 src/Squot.package/SquotCompiledCodeHeaderReference.class/instance/reflect.in..st delete mode 100644 src/Squot.package/SquotCompiledCodeHeaderReference.class/instance/reflect.in.put..st delete mode 100644 src/Squot.package/SquotCompiledCodeHeaderReference.class/methodProperties.json delete mode 100644 src/Squot.package/SquotCompiledCodeHeaderReference.class/properties.json delete mode 100644 src/Squot.package/SquotCompiledCodeLiteralReference.class/README.md delete mode 100644 src/Squot.package/SquotCompiledCodeLiteralReference.class/class/index..st delete mode 100644 src/Squot.package/SquotCompiledCodeLiteralReference.class/instance/asDiffTreeStringOrText.st delete mode 100644 src/Squot.package/SquotCompiledCodeLiteralReference.class/instance/literalIndex.st delete mode 100644 src/Squot.package/SquotCompiledCodeLiteralReference.class/instance/newNameFragment.st delete mode 100644 src/Squot.package/SquotCompiledCodeLiteralReference.class/instance/reflect.in..st delete mode 100644 src/Squot.package/SquotCompiledCodeLiteralReference.class/instance/reflect.in.put..st delete mode 100644 src/Squot.package/SquotCompiledCodeLiteralReference.class/instance/setLiteralIndex..st delete mode 100644 src/Squot.package/SquotCompiledCodeLiteralReference.class/methodProperties.json delete mode 100644 src/Squot.package/SquotCompiledCodeLiteralReference.class/properties.json delete mode 100644 src/Squot.package/SquotCompiledCodeMirror.class/README.md delete mode 100644 src/Squot.package/SquotCompiledCodeMirror.class/instance/referencesFrom..st delete mode 100644 src/Squot.package/SquotCompiledCodeMirror.class/instance/reflectHeader.of..st delete mode 100644 src/Squot.package/SquotCompiledCodeMirror.class/instance/reflectHeader.of.put..st delete mode 100644 src/Squot.package/SquotCompiledCodeMirror.class/instance/reflectLiteral.of..st delete mode 100644 src/Squot.package/SquotCompiledCodeMirror.class/instance/reflectLiteral.of.put..st delete mode 100644 src/Squot.package/SquotCompiledCodeMirror.class/instance/shadowFactory.st delete mode 100644 src/Squot.package/SquotCompiledCodeMirror.class/methodProperties.json delete mode 100644 src/Squot.package/SquotCompiledCodeMirror.class/properties.json delete mode 100644 src/Squot.package/SquotCompiledCodeShadow.class/README.md delete mode 100644 src/Squot.package/SquotCompiledCodeShadow.class/class/squotMirror.st delete mode 100644 src/Squot.package/SquotCompiledCodeShadow.class/methodProperties.json delete mode 100644 src/Squot.package/SquotCompiledCodeShadow.class/properties.json delete mode 100644 src/Squot.package/SquotCompiledCodeShadowMirror.class/README.md delete mode 100644 src/Squot.package/SquotCompiledCodeShadowMirror.class/instance/reflectHeader.of..st delete mode 100644 src/Squot.package/SquotCompiledCodeShadowMirror.class/instance/reflectHeader.of.put..st delete mode 100644 src/Squot.package/SquotCompiledCodeShadowMirror.class/instance/reflectLiteral.of..st delete mode 100644 src/Squot.package/SquotCompiledCodeShadowMirror.class/instance/reflectLiteral.of.put..st delete mode 100644 src/Squot.package/SquotCompiledCodeShadowMirror.class/methodProperties.json delete mode 100644 src/Squot.package/SquotCompiledCodeShadowMirror.class/properties.json delete mode 100644 src/Squot.package/SquotConflict.class/README.md delete mode 100644 src/Squot.package/SquotConflict.class/instance/base..st delete mode 100644 src/Squot.package/SquotConflict.class/instance/base.st delete mode 100644 src/Squot.package/SquotConflict.class/instance/browseFromSquotWorkingCopyArtifact..st delete mode 100644 src/Squot.package/SquotConflict.class/instance/chooseIncoming.st delete mode 100644 src/Squot.package/SquotConflict.class/instance/chooseWorking.st delete mode 100644 src/Squot.package/SquotConflict.class/instance/hasChanges.st delete mode 100644 src/Squot.package/SquotConflict.class/instance/incoming..st delete mode 100644 src/Squot.package/SquotConflict.class/instance/incoming.st delete mode 100644 src/Squot.package/SquotConflict.class/instance/isAddition.st delete mode 100644 src/Squot.package/SquotConflict.class/instance/isConflict.st delete mode 100644 src/Squot.package/SquotConflict.class/instance/isMerge.st delete mode 100644 src/Squot.package/SquotConflict.class/instance/isModification.st delete mode 100644 src/Squot.package/SquotConflict.class/instance/isRemoval.st delete mode 100644 src/Squot.package/SquotConflict.class/instance/isResolved.st delete mode 100644 src/Squot.package/SquotConflict.class/instance/key..st delete mode 100644 src/Squot.package/SquotConflict.class/instance/key.st delete mode 100644 src/Squot.package/SquotConflict.class/instance/object.st delete mode 100644 src/Squot.package/SquotConflict.class/instance/resetChoice.st delete mode 100644 src/Squot.package/SquotConflict.class/instance/resolution..st delete mode 100644 src/Squot.package/SquotConflict.class/instance/resolution.st delete mode 100644 src/Squot.package/SquotConflict.class/instance/setKey.base.working.incoming..st delete mode 100644 src/Squot.package/SquotConflict.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotConflict.class/instance/squotHasChanges.st delete mode 100644 src/Squot.package/SquotConflict.class/instance/squotToolsDiffNodeContent.st delete mode 100644 src/Squot.package/SquotConflict.class/instance/working..st delete mode 100644 src/Squot.package/SquotConflict.class/instance/working.st delete mode 100644 src/Squot.package/SquotConflict.class/methodProperties.json delete mode 100644 src/Squot.package/SquotConflict.class/properties.json delete mode 100644 src/Squot.package/SquotContainerConflict.class/README.md delete mode 100644 src/Squot.package/SquotContainerConflict.class/class/workingDiff.conflictingDiff..st delete mode 100644 src/Squot.package/SquotContainerConflict.class/instance/asDiffTree.st delete mode 100644 src/Squot.package/SquotContainerConflict.class/instance/chooseIncoming.st delete mode 100644 src/Squot.package/SquotContainerConflict.class/instance/diffTreeChildren.st delete mode 100644 src/Squot.package/SquotContainerConflict.class/instance/diffTreeNodeTitle.st delete mode 100644 src/Squot.package/SquotContainerConflict.class/instance/incomingArtifact.st delete mode 100644 src/Squot.package/SquotContainerConflict.class/instance/incomingDiff..st delete mode 100644 src/Squot.package/SquotContainerConflict.class/instance/mayAffectArtifact.st delete mode 100644 src/Squot.package/SquotContainerConflict.class/instance/path.st delete mode 100644 src/Squot.package/SquotContainerConflict.class/instance/preparedResolution.st delete mode 100644 src/Squot.package/SquotContainerConflict.class/instance/setUpTreeRoot.toEditMerge..st delete mode 100644 src/Squot.package/SquotContainerConflict.class/instance/setUpTreeRoot.toEditPatch..st delete mode 100644 src/Squot.package/SquotContainerConflict.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotContainerConflict.class/instance/toggleWhetherToLoad.st delete mode 100644 src/Squot.package/SquotContainerConflict.class/instance/willBeLoaded.st delete mode 100644 src/Squot.package/SquotContainerConflict.class/instance/workingDiff..st delete mode 100644 src/Squot.package/SquotContainerConflict.class/methodProperties.json delete mode 100644 src/Squot.package/SquotContainerConflict.class/properties.json delete mode 100644 src/Squot.package/SquotContainerConflictTest.class/README.md delete mode 100644 src/Squot.package/SquotContainerConflictTest.class/instance/testAdditionAndAdditionFormMerge.st delete mode 100644 src/Squot.package/SquotContainerConflictTest.class/instance/testChangeAndRemovalFormConflict.st delete mode 100644 src/Squot.package/SquotContainerConflictTest.class/instance/testRemovalAndChangeFormConflict.st delete mode 100644 src/Squot.package/SquotContainerConflictTest.class/instance/testRemovalAndRemovalResolvesTrivially.st delete mode 100644 src/Squot.package/SquotContainerConflictTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotContainerConflictTest.class/properties.json delete mode 100644 src/Squot.package/SquotCreatorDecorator.class/README.md delete mode 100644 src/Squot.package/SquotCreatorDecorator.class/class/on.creator.slot..st delete mode 100644 src/Squot.package/SquotCreatorDecorator.class/instance/creator.st delete mode 100644 src/Squot.package/SquotCreatorDecorator.class/instance/creatorSlot.st delete mode 100644 src/Squot.package/SquotCreatorDecorator.class/instance/decorated.withCreator.slot..st delete mode 100644 src/Squot.package/SquotCreatorDecorator.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotCreatorDecorator.class/methodProperties.json delete mode 100644 src/Squot.package/SquotCreatorDecorator.class/properties.json delete mode 100644 src/Squot.package/SquotCurrentMetadata.class/README.md delete mode 100644 src/Squot.package/SquotCurrentMetadata.class/class/default.st delete mode 100644 src/Squot.package/SquotCurrentMetadata.class/methodProperties.json delete mode 100644 src/Squot.package/SquotCurrentMetadata.class/properties.json delete mode 100644 src/Squot.package/SquotCurrentWorkingCopySnapshotBlock.class/README.md delete mode 100644 src/Squot.package/SquotCurrentWorkingCopySnapshotBlock.class/methodProperties.json delete mode 100644 src/Squot.package/SquotCurrentWorkingCopySnapshotBlock.class/properties.json delete mode 100644 src/Squot.package/SquotCypressCodeDeserializer.class/README.md delete mode 100644 src/Squot.package/SquotCypressCodeDeserializer.class/class/canReadObjectSerializedBy..st delete mode 100644 src/Squot.package/SquotCypressCodeDeserializer.class/instance/fillContentOf.from..st delete mode 100644 src/Squot.package/SquotCypressCodeDeserializer.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotCypressCodeDeserializer.class/instance/initializeCypressReaderToReadClassFrom..st delete mode 100644 src/Squot.package/SquotCypressCodeDeserializer.class/instance/initializeCypressReaderToReadPackageFrom..st delete mode 100644 src/Squot.package/SquotCypressCodeDeserializer.class/methodProperties.json delete mode 100644 src/Squot.package/SquotCypressCodeDeserializer.class/properties.json delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/README.md delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/class/addPackageAndClassDirectoryForClass.to..st delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/class/addPackageDirectoryForPackage.to..st delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/class/rewritePath.for..st delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/class/rewritePath.ofClass..st delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/class/rewritePath.ofPackage..st delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/class/userFriendlyTitle.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/instance/canWriteDiffs.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/instance/delete..st delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/instance/deleteClassifier..st delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/instance/deleteExtension..st delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/instance/deleteMethod..st delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/instance/deleteScript..st delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/instance/directory.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/instance/initializeFileTreeWritersInPackageDirectory..st delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/instance/propertiesFileContents.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/instance/propertyFileExtension.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/instance/version.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/instance/write..st delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/instance/writeClass..st delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/instance/writeDefinitions..st delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/instance/writeDiff..st delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/instance/writeMCSnapshot.forPackageNamed.from..st delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/instance/writePackage..st delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/instance/writePropertiesIfExists.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/methodProperties.json delete mode 100644 src/Squot.package/SquotCypressCodeSerializer.class/properties.json delete mode 100644 src/Squot.package/SquotCypressCodeSerializerTest.class/README.md delete mode 100644 src/Squot.package/SquotCypressCodeSerializerTest.class/instance/directoryForTests.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testDoesNotWritePropertiesFileByDefault.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testRewritePathForEmptyPath.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testRewritePathForOrdinaryPath.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testRewritePathWithPackageAlreadyIncluded.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testRewriteTonelPath.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithClassRemoved.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithClassWithoutMethods.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithExtensionRemoved.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithScriptAdded.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithScriptChanged.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithScriptRemoved.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleExtensionMethodAdded.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleExtensionMethodChanged.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleExtensionMethodRemoved.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleMethodAdded.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleMethodChanged.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleMethodRemoved.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleTraitMethodAdded.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleTraitMethodChanged.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleTraitMethodRemoved.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithTraitRemoved.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWritesPropertiesFileIfItExistsAlready.st delete mode 100644 src/Squot.package/SquotCypressCodeSerializerTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotCypressCodeSerializerTest.class/properties.json delete mode 100644 src/Squot.package/SquotCypressPackageLocatorTest.class/README.md delete mode 100644 src/Squot.package/SquotCypressPackageLocatorTest.class/instance/testFindsMultiplePackages.st delete mode 100644 src/Squot.package/SquotCypressPackageLocatorTest.class/instance/testFindsPackageInSubdirectory.st delete mode 100644 src/Squot.package/SquotCypressPackageLocatorTest.class/instance/testFindsPackageUnderRoot.st delete mode 100644 src/Squot.package/SquotCypressPackageLocatorTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotCypressPackageLocatorTest.class/properties.json delete mode 100644 src/Squot.package/SquotDecorator.class/README.md delete mode 100644 src/Squot.package/SquotDecorator.class/class/newFrom..st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/^equals.st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/applyDiff.with..st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/asExplorerString.st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/asLink.st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/basicInspect.st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/basicSize.st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/comeFullyUpOnReload..st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/copy.st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/decoratorClass.st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/doesNotUnderstand..st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/in..st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/inspectorClass.st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/instVarAt..st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/instVarAt.put..st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/objectForDataStream..st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/outboundPointersDo..st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/perform..st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/perform.withArguments..st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/primitiveFailed.st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/printString.st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/printStringLimitedTo..st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/readDataFrom.size..st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/respondsTo..st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/shouldFollowOutboundPointers.st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/squotDecoratorClass.st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/squotDecoratorCopySameFrom..st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/squotDecoratorDecoratedObject..st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/squotReactivateWith..st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/squotReplacementFor..st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/squotSameDecorationOn..st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/storeDataOn..st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/undecorated.st delete mode 100644 src/Squot.package/SquotDecorator.class/instance/xxxClass.st delete mode 100644 src/Squot.package/SquotDecorator.class/methodProperties.json delete mode 100644 src/Squot.package/SquotDecorator.class/properties.json delete mode 100644 src/Squot.package/SquotDeserializer.class/README.md delete mode 100644 src/Squot.package/SquotDeserializer.class/class/canReadObjectSerializedBy..st delete mode 100644 src/Squot.package/SquotDeserializer.class/instance/canReadDiffs.st delete mode 100644 src/Squot.package/SquotDeserializer.class/instance/fillContentOf.from..st delete mode 100644 src/Squot.package/SquotDeserializer.class/methodProperties.json delete mode 100644 src/Squot.package/SquotDeserializer.class/properties.json delete mode 100644 src/Squot.package/SquotDictionaryDiff.class/README.md delete mode 100644 src/Squot.package/SquotDictionaryDiff.class/methodProperties.json delete mode 100644 src/Squot.package/SquotDictionaryDiff.class/properties.json delete mode 100644 src/Squot.package/SquotDictionaryEntry.class/README.md delete mode 100644 src/Squot.package/SquotDictionaryEntry.class/class/key..st delete mode 100644 src/Squot.package/SquotDictionaryEntry.class/instance/^equals.st delete mode 100644 src/Squot.package/SquotDictionaryEntry.class/instance/addTo.withValue..st delete mode 100644 src/Squot.package/SquotDictionaryEntry.class/instance/asCapturedReference.st delete mode 100644 src/Squot.package/SquotDictionaryEntry.class/instance/asDiffTreeStringOrText.st delete mode 100644 src/Squot.package/SquotDictionaryEntry.class/instance/asMaterializedReference.st delete mode 100644 src/Squot.package/SquotDictionaryEntry.class/instance/hash.st delete mode 100644 src/Squot.package/SquotDictionaryEntry.class/instance/key.st delete mode 100644 src/Squot.package/SquotDictionaryEntry.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotDictionaryEntry.class/instance/reflect.in..st delete mode 100644 src/Squot.package/SquotDictionaryEntry.class/instance/reflect.in.put..st delete mode 100644 src/Squot.package/SquotDictionaryEntry.class/instance/removeFrom.reflectedIn..st delete mode 100644 src/Squot.package/SquotDictionaryEntry.class/instance/setKey..st delete mode 100644 src/Squot.package/SquotDictionaryEntry.class/methodProperties.json delete mode 100644 src/Squot.package/SquotDictionaryEntry.class/properties.json delete mode 100644 src/Squot.package/SquotDictionaryMirror.class/README.md delete mode 100644 src/Squot.package/SquotDictionaryMirror.class/instance/classUsesIdentityHash.st delete mode 100644 src/Squot.package/SquotDictionaryMirror.class/instance/mirrorOf.reachedVia.from..st delete mode 100644 src/Squot.package/SquotDictionaryMirror.class/instance/referencesFrom..st delete mode 100644 src/Squot.package/SquotDictionaryMirror.class/instance/reflect.removeFrom..st delete mode 100644 src/Squot.package/SquotDictionaryMirror.class/instance/reflectElement.of..st delete mode 100644 src/Squot.package/SquotDictionaryMirror.class/instance/reflectElement.of.put..st delete mode 100644 src/Squot.package/SquotDictionaryMirror.class/instance/reflectEntry.of..st delete mode 100644 src/Squot.package/SquotDictionaryMirror.class/instance/reflectEntry.of.put..st delete mode 100644 src/Squot.package/SquotDictionaryMirror.class/instance/removeDictionaryEntry.from..st delete mode 100644 src/Squot.package/SquotDictionaryMirror.class/instance/removeElement.from..st delete mode 100644 src/Squot.package/SquotDictionaryMirror.class/instance/shadowFactory.st delete mode 100644 src/Squot.package/SquotDictionaryMirror.class/instance/shouldObjectHaveNameAssigned..st delete mode 100644 src/Squot.package/SquotDictionaryMirror.class/methodProperties.json delete mode 100644 src/Squot.package/SquotDictionaryMirror.class/properties.json delete mode 100644 src/Squot.package/SquotDictionaryShadow.class/README.md delete mode 100644 src/Squot.package/SquotDictionaryShadow.class/class/squotMirror.st delete mode 100644 src/Squot.package/SquotDictionaryShadow.class/instance/addAssociation..st delete mode 100644 src/Squot.package/SquotDictionaryShadow.class/instance/addAssociation.with..st delete mode 100644 src/Squot.package/SquotDictionaryShadow.class/instance/atElement.put..st delete mode 100644 src/Squot.package/SquotDictionaryShadow.class/instance/diffClass.st delete mode 100644 src/Squot.package/SquotDictionaryShadow.class/instance/explorerItemFor..st delete mode 100644 src/Squot.package/SquotDictionaryShadow.class/instance/initializeHashedItems.with..st delete mode 100644 src/Squot.package/SquotDictionaryShadow.class/instance/removeAssociation..st delete mode 100644 src/Squot.package/SquotDictionaryShadow.class/methodProperties.json delete mode 100644 src/Squot.package/SquotDictionaryShadow.class/properties.json delete mode 100644 src/Squot.package/SquotDictionaryShadowMirror.class/README.md delete mode 100644 src/Squot.package/SquotDictionaryShadowMirror.class/instance/reflectElement.of..st delete mode 100644 src/Squot.package/SquotDictionaryShadowMirror.class/instance/reflectElement.of.put..st delete mode 100644 src/Squot.package/SquotDictionaryShadowMirror.class/methodProperties.json delete mode 100644 src/Squot.package/SquotDictionaryShadowMirror.class/properties.json delete mode 100644 src/Squot.package/SquotDictionarySlot.class/README.md delete mode 100644 src/Squot.package/SquotDictionarySlot.class/class/printHeadlineForChangesTextOn..st delete mode 100644 src/Squot.package/SquotDictionarySlot.class/instance/addTo..st delete mode 100644 src/Squot.package/SquotDictionarySlot.class/instance/addTo.with..st delete mode 100644 src/Squot.package/SquotDictionarySlot.class/instance/asReference.st delete mode 100644 src/Squot.package/SquotDictionarySlot.class/instance/association.st delete mode 100644 src/Squot.package/SquotDictionarySlot.class/instance/diffToBaseDictionarySlot..st delete mode 100644 src/Squot.package/SquotDictionarySlot.class/instance/keyShadow.st delete mode 100644 src/Squot.package/SquotDictionarySlot.class/instance/lookupIn..st delete mode 100644 src/Squot.package/SquotDictionarySlot.class/instance/newNameFragment.st delete mode 100644 src/Squot.package/SquotDictionarySlot.class/instance/removeFrom..st delete mode 100644 src/Squot.package/SquotDictionarySlot.class/instance/removeFrom.with..st delete mode 100644 src/Squot.package/SquotDictionarySlot.class/instance/squotDiffAgainst..st delete mode 100644 src/Squot.package/SquotDictionarySlot.class/instance/valueShadow.st delete mode 100644 src/Squot.package/SquotDictionarySlot.class/methodProperties.json delete mode 100644 src/Squot.package/SquotDictionarySlot.class/properties.json delete mode 100644 src/Squot.package/SquotDiffBuilder.class/README.md delete mode 100644 src/Squot.package/SquotDiffBuilder.class/instance/addChangesTo.when.reachedFrom.isDifferentFrom.reachedFrom.via..st delete mode 100644 src/Squot.package/SquotDiffBuilder.class/instance/addDiffsToGraphDiff.st delete mode 100644 src/Squot.package/SquotDiffBuilder.class/instance/addedObject.withName.reachedVia..st delete mode 100644 src/Squot.package/SquotDiffBuilder.class/instance/compare.reachedFrom.with.reachedFrom.via..st delete mode 100644 src/Squot.package/SquotDiffBuilder.class/instance/compareLater.with.reachedVia..st delete mode 100644 src/Squot.package/SquotDiffBuilder.class/instance/detectStartObjectReplacement.with..st delete mode 100644 src/Squot.package/SquotDiffBuilder.class/instance/diffFrom.to.ifNew.andInitialize..st delete mode 100644 src/Squot.package/SquotDiffBuilder.class/instance/followNewObject..st delete mode 100644 src/Squot.package/SquotDiffBuilder.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotDiffBuilder.class/instance/left..st delete mode 100644 src/Squot.package/SquotDiffBuilder.class/instance/left.st delete mode 100644 src/Squot.package/SquotDiffBuilder.class/instance/noteChanged..st delete mode 100644 src/Squot.package/SquotDiffBuilder.class/instance/noteChangedReferrer.via.to..st delete mode 100644 src/Squot.package/SquotDiffBuilder.class/instance/rememberNameOf..st delete mode 100644 src/Squot.package/SquotDiffBuilder.class/instance/rememberNameOf.orAssume..st delete mode 100644 src/Squot.package/SquotDiffBuilder.class/instance/rememberStartObjectNamesLeft.right..st delete mode 100644 src/Squot.package/SquotDiffBuilder.class/instance/right..st delete mode 100644 src/Squot.package/SquotDiffBuilder.class/instance/right.st delete mode 100644 src/Squot.package/SquotDiffBuilder.class/instance/searchAndFollowOnce.reachedVia..st delete mode 100644 src/Squot.package/SquotDiffBuilder.class/instance/searchFor.named.ifNew.ifFound..st delete mode 100644 src/Squot.package/SquotDiffBuilder.class/instance/searchOnceFor.ifNew.ifFound..st delete mode 100644 src/Squot.package/SquotDiffBuilder.class/instance/startFromLeft.right..st delete mode 100644 src/Squot.package/SquotDiffBuilder.class/methodProperties.json delete mode 100644 src/Squot.package/SquotDiffBuilder.class/properties.json delete mode 100644 src/Squot.package/SquotDiffExplorer.class/README.md delete mode 100644 src/Squot.package/SquotDiffExplorer.class/class/forPatch..st delete mode 100644 src/Squot.package/SquotDiffExplorer.class/class/from.to..st delete mode 100644 src/Squot.package/SquotDiffExplorer.class/instance/browseLoadedEditionOfSelectedNode.st delete mode 100644 src/Squot.package/SquotDiffExplorer.class/instance/browseModifiedObject.st delete mode 100644 src/Squot.package/SquotDiffExplorer.class/instance/browseOriginalObject.st delete mode 100644 src/Squot.package/SquotDiffExplorer.class/instance/buildWith..st delete mode 100644 src/Squot.package/SquotDiffExplorer.class/instance/childNodesOf..st delete mode 100644 src/Squot.package/SquotDiffExplorer.class/instance/chooserWidgetSpecs..st delete mode 100644 src/Squot.package/SquotDiffExplorer.class/instance/diffNodeMenu.shifted..st delete mode 100644 src/Squot.package/SquotDiffExplorer.class/instance/diffNodeMenuHook..st delete mode 100644 src/Squot.package/SquotDiffExplorer.class/instance/diffText.st delete mode 100644 src/Squot.package/SquotDiffExplorer.class/instance/from.to..st delete mode 100644 src/Squot.package/SquotDiffExplorer.class/instance/fromPatch..st delete mode 100644 src/Squot.package/SquotDiffExplorer.class/instance/hasChildren..st delete mode 100644 src/Squot.package/SquotDiffExplorer.class/instance/inspectChangedArtifactOfSelectedNode.st delete mode 100644 src/Squot.package/SquotDiffExplorer.class/instance/inspectOriginalArtifactOfSelectedNode.st delete mode 100644 src/Squot.package/SquotDiffExplorer.class/instance/inspectSelectedDiffContent.st delete mode 100644 src/Squot.package/SquotDiffExplorer.class/instance/nodeLabelOf..st delete mode 100644 src/Squot.package/SquotDiffExplorer.class/instance/open.st delete mode 100644 src/Squot.package/SquotDiffExplorer.class/instance/openLabel..st delete mode 100644 src/Squot.package/SquotDiffExplorer.class/instance/rootNodes.st delete mode 100644 src/Squot.package/SquotDiffExplorer.class/instance/selectNode..st delete mode 100644 src/Squot.package/SquotDiffExplorer.class/instance/selectedNode.st delete mode 100644 src/Squot.package/SquotDiffExplorer.class/instance/selectedNodePath..st delete mode 100644 src/Squot.package/SquotDiffExplorer.class/instance/workingCopy..st delete mode 100644 src/Squot.package/SquotDiffExplorer.class/instance/workingCopy.st delete mode 100644 src/Squot.package/SquotDiffExplorer.class/methodProperties.json delete mode 100644 src/Squot.package/SquotDiffExplorer.class/properties.json delete mode 100644 src/Squot.package/SquotDiffExplorerTest.class/README.md delete mode 100644 src/Squot.package/SquotDiffExplorerTest.class/class/shouldInheritSelectors.st delete mode 100644 src/Squot.package/SquotDiffExplorerTest.class/instance/newToolOn..st delete mode 100644 src/Squot.package/SquotDiffExplorerTest.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotDiffExplorerTest.class/instance/tearDown.st delete mode 100644 src/Squot.package/SquotDiffExplorerTest.class/instance/testSmalltalkCodeDiffs.st delete mode 100644 src/Squot.package/SquotDiffExplorerTest.class/instance/testTextAddition.st delete mode 100644 src/Squot.package/SquotDiffExplorerTest.class/instance/testTextRemoval.st delete mode 100644 src/Squot.package/SquotDiffExplorerTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotDiffExplorerTest.class/properties.json delete mode 100644 src/Squot.package/SquotDiffMock.class/README.md delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/^equals.st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/asDiffTree.st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/beAddition.st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/beRemoval.st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/copiedFrom..st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/copiedFrom.st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/copy.st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/defaultApplyBlock.st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/defaultMergeBlock.st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/hasChanges..st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/hasChanges.st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/hasConflicts..st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/hash.st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/isAddition.st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/isBasedOn..st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/isRemoval.st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/mergeWith..st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/right..st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/right.st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/setUpTreeRoot.toEditPatch..st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/squotApplyTo..st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/squotHasChanges.st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/topNodes.st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/updateRightArtifact.st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/whenAppliedDoNothing.st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/whenAppliedReturn..st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/whenAppliedTo.return..st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/whenMergedWith.return..st delete mode 100644 src/Squot.package/SquotDiffMock.class/instance/whenMergedWithA.return..st delete mode 100644 src/Squot.package/SquotDiffMock.class/methodProperties.json delete mode 100644 src/Squot.package/SquotDiffMock.class/properties.json delete mode 100644 src/Squot.package/SquotDiffNode.class/README.md delete mode 100644 src/Squot.package/SquotDiffNode.class/class/title.content.children.onInclude.onExclude..st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/accept..st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/addContentForInspectionTo..st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/annotations.st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/anyChildNeedsChoice.st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/artifactDiff..st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/artifactDiff.st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/asStringOrText.st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/balloonText.st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/browse..st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/browseInWorkingCopy.st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/browseIncomingEdition..st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/browseOriginalEdition..st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/children..st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/children.st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/concatenatedChildrenTexts.st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/content..st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/content.st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/exclude.st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/excludeBlock..st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/excludeBlock.st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/hasActiveChildren.st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/hasChildren.st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/ignore.st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/include.st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/includeBlock..st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/includeBlock.st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/inspectContent.st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/isActive.st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/isArtifactNode.st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/needsChoice.st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/offersChoice.st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/setTitle.content.children..st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/title..st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/title.st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/unignore.st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/withAllChildren.st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/withPackageEnvironmentDo..st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/workingCopy..st delete mode 100644 src/Squot.package/SquotDiffNode.class/instance/workingCopy.st delete mode 100644 src/Squot.package/SquotDiffNode.class/methodProperties.json delete mode 100644 src/Squot.package/SquotDiffNode.class/properties.json delete mode 100644 src/Squot.package/SquotDiffNodeSearch.class/README.md delete mode 100644 src/Squot.package/SquotDiffNodeSearch.class/instance/enqueueAll..st delete mode 100644 src/Squot.package/SquotDiffNodeSearch.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotDiffNodeSearch.class/instance/searchFrom..st delete mode 100644 src/Squot.package/SquotDiffNodeSearch.class/instance/visit..st delete mode 100644 src/Squot.package/SquotDiffNodeSearch.class/instance/visitDiffNode..st delete mode 100644 src/Squot.package/SquotDiffNodeSearch.class/methodProperties.json delete mode 100644 src/Squot.package/SquotDiffNodeSearch.class/properties.json delete mode 100644 src/Squot.package/SquotDiffNodeSearchForChoiceNeeded.class/README.md delete mode 100644 src/Squot.package/SquotDiffNodeSearchForChoiceNeeded.class/instance/nodeThatNeedsChoice.st delete mode 100644 src/Squot.package/SquotDiffNodeSearchForChoiceNeeded.class/instance/searchFrom..st delete mode 100644 src/Squot.package/SquotDiffNodeSearchForChoiceNeeded.class/instance/visitDiffNode..st delete mode 100644 src/Squot.package/SquotDiffNodeSearchForChoiceNeeded.class/methodProperties.json delete mode 100644 src/Squot.package/SquotDiffNodeSearchForChoiceNeeded.class/properties.json delete mode 100644 src/Squot.package/SquotDiffNodeSegmentCollection.class/README.md delete mode 100644 src/Squot.package/SquotDiffNodeSegmentCollection.class/instance/allBelowAndIncluding..st delete mode 100644 src/Squot.package/SquotDiffNodeSegmentCollection.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotDiffNodeSegmentCollection.class/instance/visitDiffNode..st delete mode 100644 src/Squot.package/SquotDiffNodeSegmentCollection.class/methodProperties.json delete mode 100644 src/Squot.package/SquotDiffNodeSegmentCollection.class/properties.json delete mode 100644 src/Squot.package/SquotDiffNodeTreeWrapper.class/README.md delete mode 100644 src/Squot.package/SquotDiffNodeTreeWrapper.class/instance/asString.st delete mode 100644 src/Squot.package/SquotDiffNodeTreeWrapper.class/instance/preferredColor.st delete mode 100644 src/Squot.package/SquotDiffNodeTreeWrapper.class/methodProperties.json delete mode 100644 src/Squot.package/SquotDiffNodeTreeWrapper.class/properties.json delete mode 100644 src/Squot.package/SquotDiffOfEqualObjects.class/README.md delete mode 100644 src/Squot.package/SquotDiffOfEqualObjects.class/class/instance.st delete mode 100644 src/Squot.package/SquotDiffOfEqualObjects.class/class/object..st delete mode 100644 src/Squot.package/SquotDiffOfEqualObjects.class/instance/hasChanges.st delete mode 100644 src/Squot.package/SquotDiffOfEqualObjects.class/instance/mayAffectArtifact.st delete mode 100644 src/Squot.package/SquotDiffOfEqualObjects.class/instance/object.st delete mode 100644 src/Squot.package/SquotDiffOfEqualObjects.class/instance/setObject..st delete mode 100644 src/Squot.package/SquotDiffOfEqualObjects.class/instance/squotHasChanges.st delete mode 100644 src/Squot.package/SquotDiffOfEqualObjects.class/instance/squotReflectOn.in..st delete mode 100644 src/Squot.package/SquotDiffOfEqualObjects.class/instance/willBeLoaded.st delete mode 100644 src/Squot.package/SquotDiffOfEqualObjects.class/methodProperties.json delete mode 100644 src/Squot.package/SquotDiffOfEqualObjects.class/properties.json delete mode 100644 src/Squot.package/SquotDiffTreeBuilder.class/README.md delete mode 100644 src/Squot.package/SquotDiffTreeBuilder.class/instance/convertDiffOf..st delete mode 100644 src/Squot.package/SquotDiffTreeBuilder.class/instance/convertToNodes..st delete mode 100644 src/Squot.package/SquotDiffTreeBuilder.class/instance/graphDiff..st delete mode 100644 src/Squot.package/SquotDiffTreeBuilder.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotDiffTreeBuilder.class/methodProperties.json delete mode 100644 src/Squot.package/SquotDiffTreeBuilder.class/properties.json delete mode 100644 src/Squot.package/SquotDiffTreeToolTestCase.class/README.md delete mode 100644 src/Squot.package/SquotDiffTreeToolTestCase.class/class/isAbstract.st delete mode 100644 src/Squot.package/SquotDiffTreeToolTestCase.class/instance/performUiInteractionTestsOnNode.withPath.inTree..st delete mode 100644 src/Squot.package/SquotDiffTreeToolTestCase.class/instance/performUiTestsOnToolBuiltBy..st delete mode 100644 src/Squot.package/SquotDiffTreeToolTestCase.class/methodProperties.json delete mode 100644 src/Squot.package/SquotDiffTreeToolTestCase.class/properties.json delete mode 100644 src/Squot.package/SquotDifferentReferenceTarget.class/README.md delete mode 100644 src/Squot.package/SquotDifferentReferenceTarget.class/class/reference.leftOwner.target.rightOwner.target..st delete mode 100644 src/Squot.package/SquotDifferentReferenceTarget.class/instance/leftTarget.st delete mode 100644 src/Squot.package/SquotDifferentReferenceTarget.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotDifferentReferenceTarget.class/instance/rightTarget.st delete mode 100644 src/Squot.package/SquotDifferentReferenceTarget.class/instance/setReference.leftOwner.target.rightOwner.target..st delete mode 100644 src/Squot.package/SquotDifferentReferenceTarget.class/instance/squotReflectOn.in.withValue..st delete mode 100644 src/Squot.package/SquotDifferentReferenceTarget.class/instance/squotValueShadowFrom.reflectedIn..st delete mode 100644 src/Squot.package/SquotDifferentReferenceTarget.class/methodProperties.json delete mode 100644 src/Squot.package/SquotDifferentReferenceTarget.class/properties.json delete mode 100644 src/Squot.package/SquotDiskProxyMirror.class/README.md delete mode 100644 src/Squot.package/SquotDiskProxyMirror.class/instance/capture.with.ifReplaced..st delete mode 100644 src/Squot.package/SquotDiskProxyMirror.class/instance/newDiffFrom.to..st delete mode 100644 src/Squot.package/SquotDiskProxyMirror.class/instance/shouldObjectHaveNameAssigned..st delete mode 100644 src/Squot.package/SquotDiskProxyMirror.class/methodProperties.json delete mode 100644 src/Squot.package/SquotDiskProxyMirror.class/properties.json delete mode 100644 src/Squot.package/SquotDiskProxyShadow.class/README.md delete mode 100644 src/Squot.package/SquotDiskProxyShadow.class/class/for..st delete mode 100644 src/Squot.package/SquotDiskProxyShadow.class/class/squotMirror.st delete mode 100644 src/Squot.package/SquotDiskProxyShadow.class/instance/^equals.st delete mode 100644 src/Squot.package/SquotDiskProxyShadow.class/instance/assumeOriginalClassOf..st delete mode 100644 src/Squot.package/SquotDiskProxyShadow.class/instance/hash.st delete mode 100644 src/Squot.package/SquotDiskProxyShadow.class/instance/proxy.st delete mode 100644 src/Squot.package/SquotDiskProxyShadow.class/instance/sameIn.withName.ifAbsent..st delete mode 100644 src/Squot.package/SquotDiskProxyShadow.class/instance/setDiskProxy..st delete mode 100644 src/Squot.package/SquotDiskProxyShadow.class/instance/squotDiffAgainst.with..st delete mode 100644 src/Squot.package/SquotDiskProxyShadow.class/instance/squotMaterializeWith..st delete mode 100644 src/Squot.package/SquotDiskProxyShadow.class/instance/squotOutgoingReferences.st delete mode 100644 src/Squot.package/SquotDiskProxyShadow.class/methodProperties.json delete mode 100644 src/Squot.package/SquotDiskProxyShadow.class/properties.json delete mode 100644 src/Squot.package/SquotFSStoreSpy.class/README.md delete mode 100644 src/Squot.package/SquotFSStoreSpy.class/class/on..st delete mode 100644 src/Squot.package/SquotFSStoreSpy.class/instance/basicOpen.writable..st delete mode 100644 src/Squot.package/SquotFSStoreSpy.class/instance/delete..st delete mode 100644 src/Squot.package/SquotFSStoreSpy.class/instance/doesNotUnderstand..st delete mode 100644 src/Squot.package/SquotFSStoreSpy.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotFSStoreSpy.class/instance/on..st delete mode 100644 src/Squot.package/SquotFSStoreSpy.class/instance/recordDelete..st delete mode 100644 src/Squot.package/SquotFSStoreSpy.class/instance/recordOpened.writable..st delete mode 100644 src/Squot.package/SquotFSStoreSpy.class/instance/resetObservations.st delete mode 100644 src/Squot.package/SquotFSStoreSpy.class/instance/wasDeleted..st delete mode 100644 src/Squot.package/SquotFSStoreSpy.class/instance/wasOpened..st delete mode 100644 src/Squot.package/SquotFSStoreSpy.class/methodProperties.json delete mode 100644 src/Squot.package/SquotFSStoreSpy.class/properties.json delete mode 100644 src/Squot.package/SquotFakeToolSet.class/README.md delete mode 100644 src/Squot.package/SquotFakeToolSet.class/class/browse.selector..st delete mode 100644 src/Squot.package/SquotFakeToolSet.class/class/browsedMethods.st delete mode 100644 src/Squot.package/SquotFakeToolSet.class/class/didBrowseMethod..st delete mode 100644 src/Squot.package/SquotFakeToolSet.class/class/installDuring..st delete mode 100644 src/Squot.package/SquotFakeToolSet.class/class/reset.st delete mode 100644 src/Squot.package/SquotFakeToolSet.class/methodProperties.json delete mode 100644 src/Squot.package/SquotFakeToolSet.class/properties.json delete mode 100644 src/Squot.package/SquotFileArtifact.class/README.md delete mode 100644 src/Squot.package/SquotFileArtifact.class/class/for..st delete mode 100644 src/Squot.package/SquotFileArtifact.class/instance/^equals.st delete mode 100644 src/Squot.package/SquotFileArtifact.class/instance/content..st delete mode 100644 src/Squot.package/SquotFileArtifact.class/instance/content.st delete mode 100644 src/Squot.package/SquotFileArtifact.class/instance/fileReference..st delete mode 100644 src/Squot.package/SquotFileArtifact.class/instance/fileReference.st delete mode 100644 src/Squot.package/SquotFileArtifact.class/instance/hash.st delete mode 100644 src/Squot.package/SquotFileArtifact.class/instance/isLoadable.st delete mode 100644 src/Squot.package/SquotFileArtifact.class/instance/materializeWith.replacing..st delete mode 100644 src/Squot.package/SquotFileArtifact.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotFileArtifact.class/instance/squotSummaryText.st delete mode 100644 src/Squot.package/SquotFileArtifact.class/instance/storeWith..st delete mode 100644 src/Squot.package/SquotFileArtifact.class/instance/wantsToBeInTableOfContents.st delete mode 100644 src/Squot.package/SquotFileArtifact.class/instance/writeWith..st delete mode 100644 src/Squot.package/SquotFileArtifact.class/methodProperties.json delete mode 100644 src/Squot.package/SquotFileArtifact.class/properties.json delete mode 100644 src/Squot.package/SquotFileSearchForArtifacts.class/README.md delete mode 100644 src/Squot.package/SquotFileSearchForArtifacts.class/instance/addArtifact..st delete mode 100644 src/Squot.package/SquotFileSearchForArtifacts.class/instance/artifactsFound.st delete mode 100644 src/Squot.package/SquotFileSearchForArtifacts.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotFileSearchForArtifacts.class/instance/runSearch.st delete mode 100644 src/Squot.package/SquotFileSearchForArtifacts.class/instance/searchNext.st delete mode 100644 src/Squot.package/SquotFileSearchForArtifacts.class/instance/visit.with..st delete mode 100644 src/Squot.package/SquotFileSearchForArtifacts.class/instance/visitSubdirectories.with..st delete mode 100644 src/Squot.package/SquotFileSearchForArtifacts.class/methodProperties.json delete mode 100644 src/Squot.package/SquotFileSearchForArtifacts.class/properties.json delete mode 100644 src/Squot.package/SquotFileStoreArtifactGuessingTest.class/README.md delete mode 100644 src/Squot.package/SquotFileStoreArtifactGuessingTest.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotFileStoreArtifactGuessingTest.class/instance/testFindCypressPackage.st delete mode 100644 src/Squot.package/SquotFileStoreArtifactGuessingTest.class/instance/testRestoresMissingTableOfContents.st delete mode 100644 src/Squot.package/SquotFileStoreArtifactGuessingTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotFileStoreArtifactGuessingTest.class/properties.json delete mode 100644 src/Squot.package/SquotFileStoreTest.class/README.md delete mode 100644 src/Squot.package/SquotFileStoreTest.class/instance/assertTableOfContentsExists.st delete mode 100644 src/Squot.package/SquotFileStoreTest.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotFileStoreTest.class/instance/tearDown.st delete mode 100644 src/Squot.package/SquotFileStoreTest.class/instance/testAddedArtifactsNotReadUntilLoaded.st delete mode 100644 src/Squot.package/SquotFileStoreTest.class/instance/testByteArrayAsBinaryFile.st delete mode 100644 src/Squot.package/SquotFileStoreTest.class/instance/testCypressCode.st delete mode 100644 src/Squot.package/SquotFileStoreTest.class/instance/testDeleteArtifact.st delete mode 100644 src/Squot.package/SquotFileStoreTest.class/instance/testDeleteMethod.st delete mode 100644 src/Squot.package/SquotFileStoreTest.class/instance/testLazySnapshot.st delete mode 100644 src/Squot.package/SquotFileStoreTest.class/instance/testLoadOrderIsPreserved.st delete mode 100644 src/Squot.package/SquotFileStoreTest.class/instance/testMetadataModification.st delete mode 100644 src/Squot.package/SquotFileStoreTest.class/instance/testPatchDeleteArtifact.st delete mode 100644 src/Squot.package/SquotFileStoreTest.class/instance/testPatchDeleteFolderArtifact.st delete mode 100644 src/Squot.package/SquotFileStoreTest.class/instance/testPatchDeleteMethod.st delete mode 100644 src/Squot.package/SquotFileStoreTest.class/instance/testPatchFileTreeWithoutMetadata.st delete mode 100644 src/Squot.package/SquotFileStoreTest.class/instance/testPatchingPreservesId.st delete mode 100644 src/Squot.package/SquotFileStoreTest.class/instance/testReadArtifactWithoutMetadata.st delete mode 100644 src/Squot.package/SquotFileStoreTest.class/instance/testStringAsTextfile.st delete mode 100644 src/Squot.package/SquotFileStoreTest.class/instance/testStringDefaultEncoding.st delete mode 100644 src/Squot.package/SquotFileStoreTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotFileStoreTest.class/properties.json delete mode 100644 src/Squot.package/SquotFileSystemStore.class/README.md delete mode 100644 src/Squot.package/SquotFileSystemStore.class/class/addDeserializerFactory..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/class/copySettingsFrom.to..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/class/inDirectory..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/class/initialize.st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/class/initializeStoreInfo.forObject..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/class/removeDeserializerFactory..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/class/tocFileName.st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/class/unload.st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/^slash.st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/add..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/applyDiff.toObjectAt..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/applyPatch..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/artifactLocators.st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/artifactReferencesDo..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/artifacts.st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/captureLazySnapshot.st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/captureSnapshot.st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/copySettingsFrom.to..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/createLazyArtifactForObjectAt..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/cypressPackageLocator.st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/deserializers.st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/directory.st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/doNotStoreMetadata.st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/doStoreMetadata.st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/findDeserializerFor.in..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/forgeLazyArtifactAt.deserializerFactory.serializerFactory.objectClass..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/guessArtifacts.st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/guessMetadataForArtifact.at..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/guessSerializerForArtifact.in..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/initializeStoreInfo.forObject..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/initializeWith..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/lazyArtifactsDo..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/loadOrder..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/loadOrder.st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/metadataFor..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/metadataForObjectAt..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/openTableOfContentsDuring..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/patchOrdinary..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/pathOf..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/prepareArtifactSearchWith..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/prepareArtifactSearchWith.startingAt..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/readContent..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/readMetadata..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/removeArtifactsOutdatedBy..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/removeAt..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/removeFilesFrom..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/resolve..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/restoreToSnapshot..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/serializerFactoryFor..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/serializerFactoryFrom.ifAbsent..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/shouldStoreMetadata.st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/store..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/storeFile..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/storeOrdinary..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/storeSquotMetadataFor..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/storeUnrecordedFiles..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/tableOfContents.st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/tableOfContentsReference.st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/tableOfContentsReferenceIn..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/instance/validatePathOf..st delete mode 100644 src/Squot.package/SquotFileSystemStore.class/methodProperties.json delete mode 100644 src/Squot.package/SquotFileSystemStore.class/properties.json delete mode 100644 src/Squot.package/SquotFileTestHistorian.class/README.md delete mode 100644 src/Squot.package/SquotFileTestHistorian.class/class/named.in..st delete mode 100644 src/Squot.package/SquotFileTestHistorian.class/instance/delete.st delete mode 100644 src/Squot.package/SquotFileTestHistorian.class/instance/file.st delete mode 100644 src/Squot.package/SquotFileTestHistorian.class/instance/name..st delete mode 100644 src/Squot.package/SquotFileTestHistorian.class/instance/name.st delete mode 100644 src/Squot.package/SquotFileTestHistorian.class/instance/repository..st delete mode 100644 src/Squot.package/SquotFileTestHistorian.class/instance/repository.st delete mode 100644 src/Squot.package/SquotFileTestHistorian.class/instance/version..st delete mode 100644 src/Squot.package/SquotFileTestHistorian.class/instance/version.st delete mode 100644 src/Squot.package/SquotFileTestHistorian.class/instance/versionName.st delete mode 100644 src/Squot.package/SquotFileTestHistorian.class/methodProperties.json delete mode 100644 src/Squot.package/SquotFileTestHistorian.class/properties.json delete mode 100644 src/Squot.package/SquotFileTestRepository.class/README.md delete mode 100644 src/Squot.package/SquotFileTestRepository.class/instance/activateDuring..st delete mode 100644 src/Squot.package/SquotFileTestRepository.class/instance/copySettingsFrom.to..st delete mode 100644 src/Squot.package/SquotFileTestRepository.class/instance/createNewVersion.with..st delete mode 100644 src/Squot.package/SquotFileTestRepository.class/instance/createNewVersionFromPatch.with..st delete mode 100644 src/Squot.package/SquotFileTestRepository.class/instance/delete..st delete mode 100644 src/Squot.package/SquotFileTestRepository.class/instance/historianDirectory.st delete mode 100644 src/Squot.package/SquotFileTestRepository.class/instance/historianNamed..st delete mode 100644 src/Squot.package/SquotFileTestRepository.class/instance/historians.st delete mode 100644 src/Squot.package/SquotFileTestRepository.class/instance/initializeInDirectory..st delete mode 100644 src/Squot.package/SquotFileTestRepository.class/instance/initializeStoreInfo.forObject..st delete mode 100644 src/Squot.package/SquotFileTestRepository.class/instance/versionNamed.ifAbsent..st delete mode 100644 src/Squot.package/SquotFileTestRepository.class/instance/versionsDirectory.st delete mode 100644 src/Squot.package/SquotFileTestRepository.class/methodProperties.json delete mode 100644 src/Squot.package/SquotFileTestRepository.class/properties.json delete mode 100644 src/Squot.package/SquotFileTestRepositoryTest.class/README.md delete mode 100644 src/Squot.package/SquotFileTestRepositoryTest.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotFileTestRepositoryTest.class/instance/testPathValidation.st delete mode 100644 src/Squot.package/SquotFileTestRepositoryTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotFileTestRepositoryTest.class/properties.json delete mode 100644 src/Squot.package/SquotFileTestRepositoryWorkingCopyTest.class/README.md delete mode 100644 src/Squot.package/SquotFileTestRepositoryWorkingCopyTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotFileTestRepositoryWorkingCopyTest.class/properties.json delete mode 100644 src/Squot.package/SquotFileTestVersion.class/README.md delete mode 100644 src/Squot.package/SquotFileTestVersion.class/class/named.in..st delete mode 100644 src/Squot.package/SquotFileTestVersion.class/instance/^equals.st delete mode 100644 src/Squot.package/SquotFileTestVersion.class/instance/author..st delete mode 100644 src/Squot.package/SquotFileTestVersion.class/instance/author.st delete mode 100644 src/Squot.package/SquotFileTestVersion.class/instance/copyTreeTo..st delete mode 100644 src/Squot.package/SquotFileTestVersion.class/instance/directory.st delete mode 100644 src/Squot.package/SquotFileTestVersion.class/instance/ensureDirectory.st delete mode 100644 src/Squot.package/SquotFileTestVersion.class/instance/exists.st delete mode 100644 src/Squot.package/SquotFileTestVersion.class/instance/internalId..st delete mode 100644 src/Squot.package/SquotFileTestVersion.class/instance/internalId.st delete mode 100644 src/Squot.package/SquotFileTestVersion.class/instance/message..st delete mode 100644 src/Squot.package/SquotFileTestVersion.class/instance/message.st delete mode 100644 src/Squot.package/SquotFileTestVersion.class/instance/parents..st delete mode 100644 src/Squot.package/SquotFileTestVersion.class/instance/parents.st delete mode 100644 src/Squot.package/SquotFileTestVersion.class/instance/repository..st delete mode 100644 src/Squot.package/SquotFileTestVersion.class/instance/snapshot.st delete mode 100644 src/Squot.package/SquotFileTestVersion.class/instance/snapshotDirectory.st delete mode 100644 src/Squot.package/SquotFileTestVersion.class/instance/store..st delete mode 100644 src/Squot.package/SquotFileTestVersion.class/instance/storeTreeAndApply..st delete mode 100644 src/Squot.package/SquotFileTestVersion.class/instance/timestamp..st delete mode 100644 src/Squot.package/SquotFileTestVersion.class/instance/timestamp.st delete mode 100644 src/Squot.package/SquotFileTestVersion.class/methodProperties.json delete mode 100644 src/Squot.package/SquotFileTestVersion.class/properties.json delete mode 100644 src/Squot.package/SquotGUI.class/README.md delete mode 100644 src/Squot.package/SquotGUI.class/class/buttonBarHeight.st delete mode 100644 src/Squot.package/SquotGUI.class/class/buttonWidthForText..st delete mode 100644 src/Squot.package/SquotGUI.class/class/chooseDirectory..st delete mode 100644 src/Squot.package/SquotGUI.class/class/chooseDirectory.from..st delete mode 100644 src/Squot.package/SquotGUI.class/class/chooseFrom.values.title..st delete mode 100644 src/Squot.package/SquotGUI.class/class/chooseMultipleFrom.values.title..st delete mode 100644 src/Squot.package/SquotGUI.class/class/chooseOptionFrom.values.title..st delete mode 100644 src/Squot.package/SquotGUI.class/class/confirm..st delete mode 100644 src/Squot.package/SquotGUI.class/class/confirm.trueChoice.falseChoice..st delete mode 100644 src/Squot.package/SquotGUI.class/class/displayProgress.during..st delete mode 100644 src/Squot.package/SquotGUI.class/class/displayProgress.for.do..st delete mode 100644 src/Squot.package/SquotGUI.class/class/displayStatus.during..st delete mode 100644 src/Squot.package/SquotGUI.class/class/inform..st delete mode 100644 src/Squot.package/SquotGUI.class/class/initialize.st delete mode 100644 src/Squot.package/SquotGUI.class/class/inputFieldHeight.st delete mode 100644 src/Squot.package/SquotGUI.class/class/inputFieldHeightFor..st delete mode 100644 src/Squot.package/SquotGUI.class/class/listHeightFor..st delete mode 100644 src/Squot.package/SquotGUI.class/class/request..st delete mode 100644 src/Squot.package/SquotGUI.class/class/request.initialAnswer..st delete mode 100644 src/Squot.package/SquotGUI.class/class/requestPassword..st delete mode 100644 src/Squot.package/SquotGUI.class/class/runInUiProcess..st delete mode 100644 src/Squot.package/SquotGUI.class/class/updateProgress.text..st delete mode 100644 src/Squot.package/SquotGUI.class/class/waitFor..st delete mode 100644 src/Squot.package/SquotGUI.class/methodProperties.json delete mode 100644 src/Squot.package/SquotGUI.class/properties.json delete mode 100644 src/Squot.package/SquotGenericDiffSnippet.class/README.md delete mode 100644 src/Squot.package/SquotGenericDiffSnippet.class/instance/asStringOrText.st delete mode 100644 src/Squot.package/SquotGenericDiffSnippet.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotGenericDiffSnippet.class/methodProperties.json delete mode 100644 src/Squot.package/SquotGenericDiffSnippet.class/properties.json delete mode 100644 src/Squot.package/SquotGraph.class/README.md delete mode 100644 src/Squot.package/SquotGraph.class/class/nodes..st delete mode 100644 src/Squot.package/SquotGraph.class/instance/decreaseEdgesFromTotalOrdering..st delete mode 100644 src/Squot.package/SquotGraph.class/instance/increaseEdgesFromTotalOrdering..st delete mode 100644 src/Squot.package/SquotGraph.class/instance/initializeEdgesFromTotalOrdering..st delete mode 100644 src/Squot.package/SquotGraph.class/instance/setNodes..st delete mode 100644 src/Squot.package/SquotGraph.class/instance/topologicalOrderIfNone..st delete mode 100644 src/Squot.package/SquotGraph.class/methodProperties.json delete mode 100644 src/Squot.package/SquotGraph.class/properties.json delete mode 100644 src/Squot.package/SquotGraphComparisonWalk.class/README.md delete mode 100644 src/Squot.package/SquotGraphComparisonWalk.class/instance/addLeft.right.reachedVia..st delete mode 100644 src/Squot.package/SquotGraphComparisonWalk.class/instance/addNewObject.reachedVia..st delete mode 100644 src/Squot.package/SquotGraphComparisonWalk.class/instance/checkPathsTo.ifMultiple..st delete mode 100644 src/Squot.package/SquotGraphComparisonWalk.class/instance/do..st delete mode 100644 src/Squot.package/SquotGraphComparisonWalk.class/instance/followReferencesOf.and.ifDifferentShape.ifFromBoth.ifOnlyLeft.ifOnlyRight..st delete mode 100644 src/Squot.package/SquotGraphComparisonWalk.class/instance/followReferencesOfNewObject.do..st delete mode 100644 src/Squot.package/SquotGraphComparisonWalk.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotGraphComparisonWalk.class/instance/newObjectsDo.existingObjectsPairsDo..st delete mode 100644 src/Squot.package/SquotGraphComparisonWalk.class/instance/startFrom.and..st delete mode 100644 src/Squot.package/SquotGraphComparisonWalk.class/methodProperties.json delete mode 100644 src/Squot.package/SquotGraphComparisonWalk.class/properties.json delete mode 100644 src/Squot.package/SquotGraphElementWithName.class/README.md delete mode 100644 src/Squot.package/SquotGraphElementWithName.class/class/name..st delete mode 100644 src/Squot.package/SquotGraphElementWithName.class/instance/asDiffTreeStringOrText.st delete mode 100644 src/Squot.package/SquotGraphElementWithName.class/instance/newNameFragment.st delete mode 100644 src/Squot.package/SquotGraphElementWithName.class/instance/reflect.in..st delete mode 100644 src/Squot.package/SquotGraphElementWithName.class/instance/reflect.in.put..st delete mode 100644 src/Squot.package/SquotGraphElementWithName.class/instance/setName..st delete mode 100644 src/Squot.package/SquotGraphElementWithName.class/methodProperties.json delete mode 100644 src/Squot.package/SquotGraphElementWithName.class/properties.json delete mode 100644 src/Squot.package/SquotGraphMergeMock.class/README.md delete mode 100644 src/Squot.package/SquotGraphMergeMock.class/class/resolvedPatch..st delete mode 100644 src/Squot.package/SquotGraphMergeMock.class/instance/asSquotHierarchicalDiff.st delete mode 100644 src/Squot.package/SquotGraphMergeMock.class/instance/hasChanges..st delete mode 100644 src/Squot.package/SquotGraphMergeMock.class/instance/hasChanges.st delete mode 100644 src/Squot.package/SquotGraphMergeMock.class/instance/hasConflicts.st delete mode 100644 src/Squot.package/SquotGraphMergeMock.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotGraphMergeMock.class/instance/resolvedPatch.st delete mode 100644 src/Squot.package/SquotGraphMergeMock.class/instance/setResolvedPatch..st delete mode 100644 src/Squot.package/SquotGraphMergeMock.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotGraphMergeMock.class/methodProperties.json delete mode 100644 src/Squot.package/SquotGraphMergeMock.class/properties.json delete mode 100644 src/Squot.package/SquotGraphMergeWalk.class/README.md delete mode 100644 src/Squot.package/SquotGraphMergeWalk.class/class/startingFrom.and.basedOn..st delete mode 100644 src/Squot.package/SquotGraphMergeWalk.class/instance/do..st delete mode 100644 src/Squot.package/SquotGraphMergeWalk.class/instance/followCommonReferencesIfAdditionsConflict..st delete mode 100644 src/Squot.package/SquotGraphMergeWalk.class/instance/followReferencesIfReplaced.ifReplacedDifferently.ifRemoved.ifWorkingChanged.ifIncomingChanged.ifAdded.ifAddedDifferently.ifAlreadyVisited..st delete mode 100644 src/Squot.package/SquotGraphMergeWalk.class/instance/followReferencesNotInIncoming.ifChangedInWorking..st delete mode 100644 src/Squot.package/SquotGraphMergeWalk.class/instance/followReferencesNotInWorking.ifChangedInIncoming..st delete mode 100644 src/Squot.package/SquotGraphMergeWalk.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotGraphMergeWalk.class/instance/startFrom.and.basedOn..st delete mode 100644 src/Squot.package/SquotGraphMergeWalk.class/methodProperties.json delete mode 100644 src/Squot.package/SquotGraphMergeWalk.class/properties.json delete mode 100644 src/Squot.package/SquotGraphMirror.class/README.md delete mode 100644 src/Squot.package/SquotGraphMirror.class/instance/reflectGraphElementWithName.in..st delete mode 100644 src/Squot.package/SquotGraphMirror.class/instance/shouldObjectHaveNameAssigned..st delete mode 100644 src/Squot.package/SquotGraphMirror.class/methodProperties.json delete mode 100644 src/Squot.package/SquotGraphMirror.class/properties.json delete mode 100644 src/Squot.package/SquotGraphWalk.class/README.md delete mode 100644 src/Squot.package/SquotGraphWalk.class/class/startingFrom..st delete mode 100644 src/Squot.package/SquotGraphWalk.class/instance/add.path..st delete mode 100644 src/Squot.package/SquotGraphWalk.class/instance/add.reachedVia..st delete mode 100644 src/Squot.package/SquotGraphWalk.class/instance/addFirst..st delete mode 100644 src/Squot.package/SquotGraphWalk.class/instance/atEnd.st delete mode 100644 src/Squot.package/SquotGraphWalk.class/instance/checkPathsTo.ifMultiple..st delete mode 100644 src/Squot.package/SquotGraphWalk.class/instance/currentPath.st delete mode 100644 src/Squot.package/SquotGraphWalk.class/instance/currentReferrer.st delete mode 100644 src/Squot.package/SquotGraphWalk.class/instance/do..st delete mode 100644 src/Squot.package/SquotGraphWalk.class/instance/doNotTrackReferrers.st delete mode 100644 src/Squot.package/SquotGraphWalk.class/instance/hasVisited..st delete mode 100644 src/Squot.package/SquotGraphWalk.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotGraphWalk.class/instance/next.st delete mode 100644 src/Squot.package/SquotGraphWalk.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotGraphWalk.class/instance/useBreadthFirstTraversal.st delete mode 100644 src/Squot.package/SquotGraphWalk.class/instance/visited..st delete mode 100644 src/Squot.package/SquotGraphWalk.class/methodProperties.json delete mode 100644 src/Squot.package/SquotGraphWalk.class/properties.json delete mode 100644 src/Squot.package/SquotGuiTest.class/README.md delete mode 100644 src/Squot.package/SquotGuiTest.class/instance/testUiProcessWaiting.st delete mode 100644 src/Squot.package/SquotGuiTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotGuiTest.class/properties.json delete mode 100644 src/Squot.package/SquotHashedCollectionDiff.class/README.md delete mode 100644 src/Squot.package/SquotHashedCollectionDiff.class/instance/addReferenceDiff..st delete mode 100644 src/Squot.package/SquotHashedCollectionDiff.class/instance/addTransitiveChangeIn..st delete mode 100644 src/Squot.package/SquotHashedCollectionDiff.class/instance/applyTo.with..st delete mode 100644 src/Squot.package/SquotHashedCollectionDiff.class/instance/diff.against..st delete mode 100644 src/Squot.package/SquotHashedCollectionDiff.class/instance/diffItems.againstThoseOf..st delete mode 100644 src/Squot.package/SquotHashedCollectionDiff.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotHashedCollectionDiff.class/instance/itemChanges.st delete mode 100644 src/Squot.package/SquotHashedCollectionDiff.class/instance/postCopy.st delete mode 100644 src/Squot.package/SquotHashedCollectionDiff.class/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st delete mode 100644 src/Squot.package/SquotHashedCollectionDiff.class/instance/squotHasChanges.st delete mode 100644 src/Squot.package/SquotHashedCollectionDiff.class/methodProperties.json delete mode 100644 src/Squot.package/SquotHashedCollectionDiff.class/properties.json delete mode 100644 src/Squot.package/SquotHashedCollectionMirror.class/README.md delete mode 100644 src/Squot.package/SquotHashedCollectionMirror.class/instance/classUsesIdentityHash.st delete mode 100644 src/Squot.package/SquotHashedCollectionMirror.class/instance/referencesFrom..st delete mode 100644 src/Squot.package/SquotHashedCollectionMirror.class/instance/reflect.removeFrom..st delete mode 100644 src/Squot.package/SquotHashedCollectionMirror.class/instance/reflectAssociation.in..st delete mode 100644 src/Squot.package/SquotHashedCollectionMirror.class/instance/reflectAssociation.in.put..st delete mode 100644 src/Squot.package/SquotHashedCollectionMirror.class/instance/reflectElement.of..st delete mode 100644 src/Squot.package/SquotHashedCollectionMirror.class/instance/reflectElement.of.put..st delete mode 100644 src/Squot.package/SquotHashedCollectionMirror.class/instance/reflectEntry.of..st delete mode 100644 src/Squot.package/SquotHashedCollectionMirror.class/instance/reflectEntry.of.put..st delete mode 100644 src/Squot.package/SquotHashedCollectionMirror.class/instance/shadowFactory.st delete mode 100644 src/Squot.package/SquotHashedCollectionMirror.class/instance/shouldObjectHaveNameAssigned..st delete mode 100644 src/Squot.package/SquotHashedCollectionMirror.class/methodProperties.json delete mode 100644 src/Squot.package/SquotHashedCollectionMirror.class/properties.json delete mode 100644 src/Squot.package/SquotHashedCollectionShadow.class/README.md delete mode 100644 src/Squot.package/SquotHashedCollectionShadow.class/class/squotMirror.st delete mode 100644 src/Squot.package/SquotHashedCollectionShadow.class/instance/addItemSlot..st delete mode 100644 src/Squot.package/SquotHashedCollectionShadow.class/instance/atElement..st delete mode 100644 src/Squot.package/SquotHashedCollectionShadow.class/instance/atElement.put..st delete mode 100644 src/Squot.package/SquotHashedCollectionShadow.class/instance/diffClass.st delete mode 100644 src/Squot.package/SquotHashedCollectionShadow.class/instance/diffItems..st delete mode 100644 src/Squot.package/SquotHashedCollectionShadow.class/instance/diffItemsAgainstThoseOf.in..st delete mode 100644 src/Squot.package/SquotHashedCollectionShadow.class/instance/explorerContents.st delete mode 100644 src/Squot.package/SquotHashedCollectionShadow.class/instance/explorerItemFor..st delete mode 100644 src/Squot.package/SquotHashedCollectionShadow.class/instance/hasContentsInExplorer.st delete mode 100644 src/Squot.package/SquotHashedCollectionShadow.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotHashedCollectionShadow.class/instance/initializeFrom.with..st delete mode 100644 src/Squot.package/SquotHashedCollectionShadow.class/instance/initializeHashedItems.with..st delete mode 100644 src/Squot.package/SquotHashedCollectionShadow.class/instance/itemSlotForValue..st delete mode 100644 src/Squot.package/SquotHashedCollectionShadow.class/instance/itemSlots.st delete mode 100644 src/Squot.package/SquotHashedCollectionShadow.class/instance/references.st delete mode 100644 src/Squot.package/SquotHashedCollectionShadow.class/instance/removeItemSlot..st delete mode 100644 src/Squot.package/SquotHashedCollectionShadow.class/instance/squotMaterializeWith..st delete mode 100644 src/Squot.package/SquotHashedCollectionShadow.class/methodProperties.json delete mode 100644 src/Squot.package/SquotHashedCollectionShadow.class/properties.json delete mode 100644 src/Squot.package/SquotHashedCollectionShadowMirror.class/README.md delete mode 100644 src/Squot.package/SquotHashedCollectionShadowMirror.class/instance/reflectElement.of..st delete mode 100644 src/Squot.package/SquotHashedCollectionShadowMirror.class/instance/reflectElement.of.put..st delete mode 100644 src/Squot.package/SquotHashedCollectionShadowMirror.class/methodProperties.json delete mode 100644 src/Squot.package/SquotHashedCollectionShadowMirror.class/properties.json delete mode 100644 src/Squot.package/SquotHashedCollectionSlot.class/README.md delete mode 100644 src/Squot.package/SquotHashedCollectionSlot.class/class/printHeadlineForChangesTextOn..st delete mode 100644 src/Squot.package/SquotHashedCollectionSlot.class/instance/addTo..st delete mode 100644 src/Squot.package/SquotHashedCollectionSlot.class/instance/addTo.with..st delete mode 100644 src/Squot.package/SquotHashedCollectionSlot.class/instance/asReference.st delete mode 100644 src/Squot.package/SquotHashedCollectionSlot.class/instance/diffToBaseHashedCollectionSlot..st delete mode 100644 src/Squot.package/SquotHashedCollectionSlot.class/instance/lookupIn..st delete mode 100644 src/Squot.package/SquotHashedCollectionSlot.class/instance/newNameFragment.st delete mode 100644 src/Squot.package/SquotHashedCollectionSlot.class/instance/removeFrom..st delete mode 100644 src/Squot.package/SquotHashedCollectionSlot.class/instance/removeFrom.with..st delete mode 100644 src/Squot.package/SquotHashedCollectionSlot.class/instance/squotDiffAgainst..st delete mode 100644 src/Squot.package/SquotHashedCollectionSlot.class/methodProperties.json delete mode 100644 src/Squot.package/SquotHashedCollectionSlot.class/properties.json delete mode 100644 src/Squot.package/SquotHistoryWalker.class/README.md delete mode 100644 src/Squot.package/SquotHistoryWalker.class/instance/shouldVisit.before..st delete mode 100644 src/Squot.package/SquotHistoryWalker.class/methodProperties.json delete mode 100644 src/Squot.package/SquotHistoryWalker.class/properties.json delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCode.class/README.md delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCode.class/class/changeSet.st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCode.class/class/ignore..st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCode.class/class/ignoreClass..st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCode.class/class/isIgnored..st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCode.class/class/isWholeClassIgnored..st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCode.class/class/privateIsWholeClassIgnored..st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCode.class/class/privateUnignoreClass..st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCode.class/class/symbolInChangeSet..st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCode.class/class/unignore..st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCode.class/class/unignoreClass..st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCode.class/methodProperties.json delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCode.class/properties.json delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/README.md delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/ignoreDefinitionTest..st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/runCase.st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/tearDown.st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testClassDefinitionAndMethodDefinitionAreIndependent.st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnoreClassDefinition.st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnoreMethod.st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnorePostscript.st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnorePreamble.st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnoreRemovalPostscript.st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnoreRemovalPreamble.st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnoreWholeClass.st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testNotIgnoredAfterWholeClassUnignored.st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/xtestIgnoreOrganization.st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/properties.json delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/README.md delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/ignoreDefinitionTest..st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/tearDown.st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/testIgnoreClassTraitDefinition.st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/testIgnoreClassTraitMethod.st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/testIgnoreTraitDefinition.st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/testIgnoreWholeClassTrait.st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/testIgnoreWholeTrait.st delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/properties.json delete mode 100644 src/Squot.package/SquotImageStore.class/README.md delete mode 100644 src/Squot.package/SquotImageStore.class/instance/activateObjectRegistryDuring..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/add..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/add.at..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/add.at.additionalInfo..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/add.copiedFromArtifact..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/appendToLoadOrder..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/applyDiff.toObjectAt..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/applyPatch..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/artifactAt..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/artifacts.st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/capture.at..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/capture.withMetadata..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/captureObjectGraphAt..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/captureSnapshot.st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/convertToCurrentVersion.refStream..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/copySettingsFrom.to..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/environment..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/environment.st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/includes..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/includesObjectAt..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/initializeObjectFrom..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/initializeStoreInfo.forObject..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/lazySnapshot.st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/liveArtifactFor.at..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/loadOrder..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/loadOrder.st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/materialize.replacing..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/materializeGraph.from.replacing..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/materializerFor..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/metadataForObjectAt..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/moveObjectAt.to..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/objectAt..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/objectGraphs.st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/objectPaths.st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/objectRegistry.st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/objectsWithPathsDo..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/pathsOf..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/postCopy.st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/remove..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/removeAllObjects.st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/removeAt..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/restore.from..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/restoreObjectFrom..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/restoreToSnapshot..st delete mode 100644 src/Squot.package/SquotImageStore.class/instance/supports.forObject..st delete mode 100644 src/Squot.package/SquotImageStore.class/methodProperties.json delete mode 100644 src/Squot.package/SquotImageStore.class/properties.json delete mode 100644 src/Squot.package/SquotImageStoreTest.class/README.md delete mode 100644 src/Squot.package/SquotImageStoreTest.class/instance/changeLogSuppressor.st delete mode 100644 src/Squot.package/SquotImageStoreTest.class/instance/createTestEnvironment.st delete mode 100644 src/Squot.package/SquotImageStoreTest.class/instance/nameForTestEnvironment.st delete mode 100644 src/Squot.package/SquotImageStoreTest.class/instance/newPackageInfoFor..st delete mode 100644 src/Squot.package/SquotImageStoreTest.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotImageStoreTest.class/instance/snapshotClass.at..st delete mode 100644 src/Squot.package/SquotImageStoreTest.class/instance/snapshotPackage.at..st delete mode 100644 src/Squot.package/SquotImageStoreTest.class/instance/tearDown.st delete mode 100644 src/Squot.package/SquotImageStoreTest.class/instance/testAddNewObjectsFromArtifact.st delete mode 100644 src/Squot.package/SquotImageStoreTest.class/instance/testAddingObjectsAddsThemToTheLoadOrder.st delete mode 100644 src/Squot.package/SquotImageStoreTest.class/instance/testApplyPatch.st delete mode 100644 src/Squot.package/SquotImageStoreTest.class/instance/testFiles.st delete mode 100644 src/Squot.package/SquotImageStoreTest.class/instance/testIgnoredInstanceVariables.st delete mode 100644 src/Squot.package/SquotImageStoreTest.class/instance/testMetadataModification.st delete mode 100644 src/Squot.package/SquotImageStoreTest.class/instance/testPatchingPreservesId.st delete mode 100644 src/Squot.package/SquotImageStoreTest.class/instance/testRemoveAlsoRemovesFromLoadOrder.st delete mode 100644 src/Squot.package/SquotImageStoreTest.class/instance/testRestoreAdheresToTheLoadOrder.st delete mode 100644 src/Squot.package/SquotImageStoreTest.class/instance/testRestoreClass.st delete mode 100644 src/Squot.package/SquotImageStoreTest.class/instance/testRestorePackage.st delete mode 100644 src/Squot.package/SquotImageStoreTest.class/instance/testRestorePackageThatLivesInAnotherEnvironment.st delete mode 100644 src/Squot.package/SquotImageStoreTest.class/instance/testRestorePackageWithFreshPackageInfo.st delete mode 100644 src/Squot.package/SquotImageStoreTest.class/instance/testSnapshotAndRestoreText.st delete mode 100644 src/Squot.package/SquotImageStoreTest.class/instance/testSnapshotHasSameLoadOrder.st delete mode 100644 src/Squot.package/SquotImageStoreTest.class/instance/testSnapshotPackageInDifferentEnvironment.st delete mode 100644 src/Squot.package/SquotImageStoreTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotImageStoreTest.class/properties.json delete mode 100644 src/Squot.package/SquotImageToFileStoreTest.class/README.md delete mode 100644 src/Squot.package/SquotImageToFileStoreTest.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotImageToFileStoreTest.class/instance/snapshotClass.at..st delete mode 100644 src/Squot.package/SquotImageToFileStoreTest.class/instance/snapshotPackage.at..st delete mode 100644 src/Squot.package/SquotImageToFileStoreTest.class/instance/tearDown.st delete mode 100644 src/Squot.package/SquotImageToFileStoreTest.class/instance/testRetrieveClass.st delete mode 100644 src/Squot.package/SquotImageToFileStoreTest.class/instance/testRetrievePackage.st delete mode 100644 src/Squot.package/SquotImageToFileStoreTest.class/instance/testSnapshotClass.st delete mode 100644 src/Squot.package/SquotImageToFileStoreTest.class/instance/testSnapshotPackage.st delete mode 100644 src/Squot.package/SquotImageToFileStoreTest.class/instance/testWithText.st delete mode 100644 src/Squot.package/SquotImageToFileStoreTest.class/instance/testWithWorkspaceMorph.st delete mode 100644 src/Squot.package/SquotImageToFileStoreTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotImageToFileStoreTest.class/properties.json delete mode 100644 src/Squot.package/SquotInMemoryHistorian.class/README.md delete mode 100644 src/Squot.package/SquotInMemoryHistorian.class/instance/name..st delete mode 100644 src/Squot.package/SquotInMemoryHistorian.class/instance/name.st delete mode 100644 src/Squot.package/SquotInMemoryHistorian.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotInMemoryHistorian.class/instance/repository..st delete mode 100644 src/Squot.package/SquotInMemoryHistorian.class/instance/repository.st delete mode 100644 src/Squot.package/SquotInMemoryHistorian.class/instance/version..st delete mode 100644 src/Squot.package/SquotInMemoryHistorian.class/instance/version.st delete mode 100644 src/Squot.package/SquotInMemoryHistorian.class/methodProperties.json delete mode 100644 src/Squot.package/SquotInMemoryHistorian.class/properties.json delete mode 100644 src/Squot.package/SquotInMemoryRepository.class/README.md delete mode 100644 src/Squot.package/SquotInMemoryRepository.class/instance/activateDuring..st delete mode 100644 src/Squot.package/SquotInMemoryRepository.class/instance/createNewVersion.with..st delete mode 100644 src/Squot.package/SquotInMemoryRepository.class/instance/createNewVersionFromPatch.with..st delete mode 100644 src/Squot.package/SquotInMemoryRepository.class/instance/defaultHistorian.st delete mode 100644 src/Squot.package/SquotInMemoryRepository.class/instance/delete..st delete mode 100644 src/Squot.package/SquotInMemoryRepository.class/instance/historianNamed..st delete mode 100644 src/Squot.package/SquotInMemoryRepository.class/instance/historians.st delete mode 100644 src/Squot.package/SquotInMemoryRepository.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotInMemoryRepository.class/instance/initializeInDirectory..st delete mode 100644 src/Squot.package/SquotInMemoryRepository.class/instance/initializeStoreInfo.forObject..st delete mode 100644 src/Squot.package/SquotInMemoryRepository.class/instance/newHistorian.version..st delete mode 100644 src/Squot.package/SquotInMemoryRepository.class/instance/versionAt..st delete mode 100644 src/Squot.package/SquotInMemoryRepository.class/methodProperties.json delete mode 100644 src/Squot.package/SquotInMemoryRepository.class/properties.json delete mode 100644 src/Squot.package/SquotInMemoryRepositoryWorkingCopyTest.class/README.md delete mode 100644 src/Squot.package/SquotInMemoryRepositoryWorkingCopyTest.class/instance/expectedFailures.st delete mode 100644 src/Squot.package/SquotInMemoryRepositoryWorkingCopyTest.class/instance/newRepository.st delete mode 100644 src/Squot.package/SquotInMemoryRepositoryWorkingCopyTest.class/instance/testImmutabilityOfSnapshots.st delete mode 100644 src/Squot.package/SquotInMemoryRepositoryWorkingCopyTest.class/instance/testVersionsDoNotContainWorkingCopyArtifacts.st delete mode 100644 src/Squot.package/SquotInMemoryRepositoryWorkingCopyTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotInMemoryRepositoryWorkingCopyTest.class/properties.json delete mode 100644 src/Squot.package/SquotInMemoryVersion.class/README.md delete mode 100644 src/Squot.package/SquotInMemoryVersion.class/instance/^equals.st delete mode 100644 src/Squot.package/SquotInMemoryVersion.class/instance/author..st delete mode 100644 src/Squot.package/SquotInMemoryVersion.class/instance/author.st delete mode 100644 src/Squot.package/SquotInMemoryVersion.class/instance/authoringTimeStamp..st delete mode 100644 src/Squot.package/SquotInMemoryVersion.class/instance/committer..st delete mode 100644 src/Squot.package/SquotInMemoryVersion.class/instance/committer.st delete mode 100644 src/Squot.package/SquotInMemoryVersion.class/instance/hash.st delete mode 100644 src/Squot.package/SquotInMemoryVersion.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotInMemoryVersion.class/instance/internalId.st delete mode 100644 src/Squot.package/SquotInMemoryVersion.class/instance/lazySnapshot.st delete mode 100644 src/Squot.package/SquotInMemoryVersion.class/instance/message..st delete mode 100644 src/Squot.package/SquotInMemoryVersion.class/instance/message.st delete mode 100644 src/Squot.package/SquotInMemoryVersion.class/instance/metadata.st delete mode 100644 src/Squot.package/SquotInMemoryVersion.class/instance/parents..st delete mode 100644 src/Squot.package/SquotInMemoryVersion.class/instance/parents.st delete mode 100644 src/Squot.package/SquotInMemoryVersion.class/instance/patchRelativeToBase..st delete mode 100644 src/Squot.package/SquotInMemoryVersion.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotInMemoryVersion.class/instance/repository..st delete mode 100644 src/Squot.package/SquotInMemoryVersion.class/instance/repository.st delete mode 100644 src/Squot.package/SquotInMemoryVersion.class/instance/snapshot..st delete mode 100644 src/Squot.package/SquotInMemoryVersion.class/instance/snapshot.st delete mode 100644 src/Squot.package/SquotInMemoryVersion.class/instance/timestamp..st delete mode 100644 src/Squot.package/SquotInMemoryVersion.class/instance/timestamp.st delete mode 100644 src/Squot.package/SquotInMemoryVersion.class/methodProperties.json delete mode 100644 src/Squot.package/SquotInMemoryVersion.class/properties.json delete mode 100644 src/Squot.package/SquotIndexableField.class/README.md delete mode 100644 src/Squot.package/SquotIndexableField.class/class/index..st delete mode 100644 src/Squot.package/SquotIndexableField.class/instance/^equals.st delete mode 100644 src/Squot.package/SquotIndexableField.class/instance/asDiffTreeStringOrText.st delete mode 100644 src/Squot.package/SquotIndexableField.class/instance/asSlotDiffKey.st delete mode 100644 src/Squot.package/SquotIndexableField.class/instance/asSlotWithValue..st delete mode 100644 src/Squot.package/SquotIndexableField.class/instance/hash.st delete mode 100644 src/Squot.package/SquotIndexableField.class/instance/index.st delete mode 100644 src/Squot.package/SquotIndexableField.class/instance/newNameFragment.st delete mode 100644 src/Squot.package/SquotIndexableField.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotIndexableField.class/instance/reflect.in..st delete mode 100644 src/Squot.package/SquotIndexableField.class/instance/reflect.in.put..st delete mode 100644 src/Squot.package/SquotIndexableField.class/instance/setIndex..st delete mode 100644 src/Squot.package/SquotIndexableField.class/methodProperties.json delete mode 100644 src/Squot.package/SquotIndexableField.class/properties.json delete mode 100644 src/Squot.package/SquotInitialLogMessageRequested.class/README.md delete mode 100644 src/Squot.package/SquotInitialLogMessageRequested.class/methodProperties.json delete mode 100644 src/Squot.package/SquotInitialLogMessageRequested.class/properties.json delete mode 100644 src/Squot.package/SquotInstVarSlot.class/README.md delete mode 100644 src/Squot.package/SquotInstVarSlot.class/class/printHeadlineForChangesTextOn..st delete mode 100644 src/Squot.package/SquotInstVarSlot.class/instance/addTo..st delete mode 100644 src/Squot.package/SquotInstVarSlot.class/instance/addTo.with..st delete mode 100644 src/Squot.package/SquotInstVarSlot.class/instance/asReference.st delete mode 100644 src/Squot.package/SquotInstVarSlot.class/instance/diffToBaseInstVar..st delete mode 100644 src/Squot.package/SquotInstVarSlot.class/instance/instVarName.st delete mode 100644 src/Squot.package/SquotInstVarSlot.class/instance/lookupIn..st delete mode 100644 src/Squot.package/SquotInstVarSlot.class/instance/removeFrom..st delete mode 100644 src/Squot.package/SquotInstVarSlot.class/instance/removeFrom.with..st delete mode 100644 src/Squot.package/SquotInstVarSlot.class/instance/squotDiffAgainst..st delete mode 100644 src/Squot.package/SquotInstVarSlot.class/methodProperties.json delete mode 100644 src/Squot.package/SquotInstVarSlot.class/properties.json delete mode 100644 src/Squot.package/SquotInstanceVariable.class/README.md delete mode 100644 src/Squot.package/SquotInstanceVariable.class/class/named..st delete mode 100644 src/Squot.package/SquotInstanceVariable.class/instance/^equals.st delete mode 100644 src/Squot.package/SquotInstanceVariable.class/instance/asDiffTreeStringOrText.st delete mode 100644 src/Squot.package/SquotInstanceVariable.class/instance/asSlotDiffKey.st delete mode 100644 src/Squot.package/SquotInstanceVariable.class/instance/asSlotWithValue..st delete mode 100644 src/Squot.package/SquotInstanceVariable.class/instance/hash.st delete mode 100644 src/Squot.package/SquotInstanceVariable.class/instance/isInstanceVariable.st delete mode 100644 src/Squot.package/SquotInstanceVariable.class/instance/name.st delete mode 100644 src/Squot.package/SquotInstanceVariable.class/instance/newNameFragment.st delete mode 100644 src/Squot.package/SquotInstanceVariable.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotInstanceVariable.class/instance/reflect.in..st delete mode 100644 src/Squot.package/SquotInstanceVariable.class/instance/reflect.in.put..st delete mode 100644 src/Squot.package/SquotInstanceVariable.class/instance/setName..st delete mode 100644 src/Squot.package/SquotInstanceVariable.class/methodProperties.json delete mode 100644 src/Squot.package/SquotInstanceVariable.class/properties.json delete mode 100644 src/Squot.package/SquotInteractiveCherryPick.class/README.md delete mode 100644 src/Squot.package/SquotInteractiveCherryPick.class/instance/applyMerge.st delete mode 100644 src/Squot.package/SquotInteractiveCherryPick.class/instance/applyToWorkingCopy.st delete mode 100644 src/Squot.package/SquotInteractiveCherryPick.class/instance/privateNewMerge.st delete mode 100644 src/Squot.package/SquotInteractiveCherryPick.class/instance/privateNewSave.st delete mode 100644 src/Squot.package/SquotInteractiveCherryPick.class/instance/save.st delete mode 100644 src/Squot.package/SquotInteractiveCherryPick.class/instance/validateRequestor.st delete mode 100644 src/Squot.package/SquotInteractiveCherryPick.class/methodProperties.json delete mode 100644 src/Squot.package/SquotInteractiveCherryPick.class/properties.json delete mode 100644 src/Squot.package/SquotInteractiveMerge.class/README.md delete mode 100644 src/Squot.package/SquotInteractiveMerge.class/instance/applyToWorkingCopy.st delete mode 100644 src/Squot.package/SquotInteractiveMerge.class/instance/chooseChanges.st delete mode 100644 src/Squot.package/SquotInteractiveMerge.class/methodProperties.json delete mode 100644 src/Squot.package/SquotInteractiveMerge.class/properties.json delete mode 100644 src/Squot.package/SquotInteractiveRevert.class/README.md delete mode 100644 src/Squot.package/SquotInteractiveRevert.class/instance/applyMerge.st delete mode 100644 src/Squot.package/SquotInteractiveRevert.class/instance/applyToWorkingCopy.st delete mode 100644 src/Squot.package/SquotInteractiveRevert.class/instance/privateNewMerge.st delete mode 100644 src/Squot.package/SquotInteractiveRevert.class/instance/privateNewSave.st delete mode 100644 src/Squot.package/SquotInteractiveRevert.class/instance/save.st delete mode 100644 src/Squot.package/SquotInteractiveRevert.class/instance/validateRequestor.st delete mode 100644 src/Squot.package/SquotInteractiveRevert.class/methodProperties.json delete mode 100644 src/Squot.package/SquotInteractiveRevert.class/properties.json delete mode 100644 src/Squot.package/SquotInteractiveSave.class/README.md delete mode 100644 src/Squot.package/SquotInteractiveSave.class/instance/applyToWorkingCopy.st delete mode 100644 src/Squot.package/SquotInteractiveSave.class/instance/chooseChanges.st delete mode 100644 src/Squot.package/SquotInteractiveSave.class/instance/confirmAdditionalParents.st delete mode 100644 src/Squot.package/SquotInteractiveSave.class/instance/validate.st delete mode 100644 src/Squot.package/SquotInteractiveSave.class/instance/validateForCherryPick.st delete mode 100644 src/Squot.package/SquotInteractiveSave.class/methodProperties.json delete mode 100644 src/Squot.package/SquotInteractiveSave.class/properties.json delete mode 100644 src/Squot.package/SquotKeyVariable.class/README.md delete mode 100644 src/Squot.package/SquotKeyVariable.class/instance/isHashRelevant.st delete mode 100644 src/Squot.package/SquotKeyVariable.class/methodProperties.json delete mode 100644 src/Squot.package/SquotKeyVariable.class/properties.json delete mode 100644 src/Squot.package/SquotLazyArtifact.class/README.md delete mode 100644 src/Squot.package/SquotLazyArtifact.class/instance/capture.st delete mode 100644 src/Squot.package/SquotLazyArtifact.class/instance/content.st delete mode 100644 src/Squot.package/SquotLazyArtifact.class/instance/id.st delete mode 100644 src/Squot.package/SquotLazyArtifact.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotLazyArtifact.class/instance/onLoadContent..st delete mode 100644 src/Squot.package/SquotLazyArtifact.class/instance/onLoadStoreInfo..st delete mode 100644 src/Squot.package/SquotLazyArtifact.class/instance/snapshot.st delete mode 100644 src/Squot.package/SquotLazyArtifact.class/instance/storeInfo.st delete mode 100644 src/Squot.package/SquotLazyArtifact.class/methodProperties.json delete mode 100644 src/Squot.package/SquotLazyArtifact.class/properties.json delete mode 100644 src/Squot.package/SquotLinearHistoryTestScenario.class/README.md delete mode 100644 src/Squot.package/SquotLinearHistoryTestScenario.class/instance/createVersionA1.st delete mode 100644 src/Squot.package/SquotLinearHistoryTestScenario.class/instance/createVersionA2.st delete mode 100644 src/Squot.package/SquotLinearHistoryTestScenario.class/instance/createVersionB.st delete mode 100644 src/Squot.package/SquotLinearHistoryTestScenario.class/instance/makeUnrelatedChange.st delete mode 100644 src/Squot.package/SquotLinearHistoryTestScenario.class/instance/methodBRemoved.st delete mode 100644 src/Squot.package/SquotLinearHistoryTestScenario.class/instance/packageWasRemoved.st delete mode 100644 src/Squot.package/SquotLinearHistoryTestScenario.class/instance/removesMethodB..st delete mode 100644 src/Squot.package/SquotLinearHistoryTestScenario.class/instance/revertVersionAddedAtEndOfHistory.st delete mode 100644 src/Squot.package/SquotLinearHistoryTestScenario.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotLinearHistoryTestScenario.class/instance/unrelatedChangeStillLoaded.st delete mode 100644 src/Squot.package/SquotLinearHistoryTestScenario.class/instance/updatesUnrelatedChange..st delete mode 100644 src/Squot.package/SquotLinearHistoryTestScenario.class/instance/versionA1.st delete mode 100644 src/Squot.package/SquotLinearHistoryTestScenario.class/instance/versionA2.st delete mode 100644 src/Squot.package/SquotLinearHistoryTestScenario.class/instance/versionB.st delete mode 100644 src/Squot.package/SquotLinearHistoryTestScenario.class/methodProperties.json delete mode 100644 src/Squot.package/SquotLinearHistoryTestScenario.class/properties.json delete mode 100644 src/Squot.package/SquotLiveArtifact.class/README.md delete mode 100644 src/Squot.package/SquotLiveArtifact.class/class/on.at.in..st delete mode 100644 src/Squot.package/SquotLiveArtifact.class/instance/^equals.st delete mode 100644 src/Squot.package/SquotLiveArtifact.class/instance/browse.st delete mode 100644 src/Squot.package/SquotLiveArtifact.class/instance/capture.st delete mode 100644 src/Squot.package/SquotLiveArtifact.class/instance/content.st delete mode 100644 src/Squot.package/SquotLiveArtifact.class/instance/convertToCurrentVersion.refStream..st delete mode 100644 src/Squot.package/SquotLiveArtifact.class/instance/copyWithDiffApplied..st delete mode 100644 src/Squot.package/SquotLiveArtifact.class/instance/copyWithDifferentContent..st delete mode 100644 src/Squot.package/SquotLiveArtifact.class/instance/hash.st delete mode 100644 src/Squot.package/SquotLiveArtifact.class/instance/id..st delete mode 100644 src/Squot.package/SquotLiveArtifact.class/instance/id.st delete mode 100644 src/Squot.package/SquotLiveArtifact.class/instance/liveStoreInfo.st delete mode 100644 src/Squot.package/SquotLiveArtifact.class/instance/materializeWith.replacing..st delete mode 100644 src/Squot.package/SquotLiveArtifact.class/instance/mergeWith.basedOn..st delete mode 100644 src/Squot.package/SquotLiveArtifact.class/instance/object.st delete mode 100644 src/Squot.package/SquotLiveArtifact.class/instance/objectGraph.st delete mode 100644 src/Squot.package/SquotLiveArtifact.class/instance/on.at.in..st delete mode 100644 src/Squot.package/SquotLiveArtifact.class/instance/packageName.st delete mode 100644 src/Squot.package/SquotLiveArtifact.class/instance/path.st delete mode 100644 src/Squot.package/SquotLiveArtifact.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotLiveArtifact.class/instance/privateEquals..st delete mode 100644 src/Squot.package/SquotLiveArtifact.class/instance/serializer..st delete mode 100644 src/Squot.package/SquotLiveArtifact.class/instance/serializerName.st delete mode 100644 src/Squot.package/SquotLiveArtifact.class/instance/setObject.path.store..st delete mode 100644 src/Squot.package/SquotLiveArtifact.class/instance/snapshot.st delete mode 100644 src/Squot.package/SquotLiveArtifact.class/instance/storeInfo..st delete mode 100644 src/Squot.package/SquotLiveArtifact.class/instance/storeInfo.st delete mode 100644 src/Squot.package/SquotLiveArtifact.class/methodProperties.json delete mode 100644 src/Squot.package/SquotLiveArtifact.class/properties.json delete mode 100644 src/Squot.package/SquotLoadOrderConflict.class/README.md delete mode 100644 src/Squot.package/SquotLoadOrderConflict.class/instance/chooseIncoming.st delete mode 100644 src/Squot.package/SquotLoadOrderConflict.class/instance/chooseWorking.st delete mode 100644 src/Squot.package/SquotLoadOrderConflict.class/methodProperties.json delete mode 100644 src/Squot.package/SquotLoadOrderConflict.class/properties.json delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/README.md delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/instance/add..st delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/instance/addUnloaded..st delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/instance/applyDiff..st delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/instance/applyDiff.toObjectAt..st delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/instance/browseFromSquotWorkingCopyArtifact..st delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/instance/chooseIncoming.st delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/instance/chooseWorking.st delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/instance/computeDifferences.st delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/instance/conflicts.st delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/instance/copy.withOrder..st delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/instance/createDiffOrMergeTreeNodeWithWorkingOrder.incomingOrder..st delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/instance/detectConflicts.st delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/instance/hasChanges.st delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/instance/insert.into.afterPredecessorsIn..st delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/instance/newLoadOrder..st delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/instance/newLoadOrder.st delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/instance/privateResolvedPatch.st delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/instance/removeAt..st delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/instance/resetAppliedDiffs.st delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/instance/resetChoice.st delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/instance/resetResolution.st delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/instance/resolveLoadOrders.st delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/instance/resolveOrders.and..st delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/instance/working..st delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/methodProperties.json delete mode 100644 src/Squot.package/SquotLoadOrderMerge.class/properties.json delete mode 100644 src/Squot.package/SquotLoadOrderMergeTest.class/README.md delete mode 100644 src/Squot.package/SquotLoadOrderMergeTest.class/instance/testAdditionAndUnrelatedConflicts.st delete mode 100644 src/Squot.package/SquotLoadOrderMergeTest.class/instance/testAdditionAndUnrelatedConflicts2.st delete mode 100644 src/Squot.package/SquotLoadOrderMergeTest.class/instance/testAdditionsInDifferentPlaces.st delete mode 100644 src/Squot.package/SquotLoadOrderMergeTest.class/instance/testAdditionsInDifferentPlacesButSameIndex.st delete mode 100644 src/Squot.package/SquotLoadOrderMergeTest.class/instance/testApplyAddition.st delete mode 100644 src/Squot.package/SquotLoadOrderMergeTest.class/instance/testApplyAdditionAfterConflict.st delete mode 100644 src/Squot.package/SquotLoadOrderMergeTest.class/instance/testApplyModificationDoesNothing.st delete mode 100644 src/Squot.package/SquotLoadOrderMergeTest.class/instance/testApplyRemoval.st delete mode 100644 src/Squot.package/SquotLoadOrderMergeTest.class/instance/testConflict.st delete mode 100644 src/Squot.package/SquotLoadOrderMergeTest.class/instance/testDifferentMoves.st delete mode 100644 src/Squot.package/SquotLoadOrderMergeTest.class/instance/testDifferentMovesWithSizeChange.st delete mode 100644 src/Squot.package/SquotLoadOrderMergeTest.class/instance/testEqualLoadOrders.st delete mode 100644 src/Squot.package/SquotLoadOrderMergeTest.class/instance/testEquallyChangedLoadOrders.st delete mode 100644 src/Squot.package/SquotLoadOrderMergeTest.class/instance/testIndependentAdditions.st delete mode 100644 src/Squot.package/SquotLoadOrderMergeTest.class/instance/testIndependentAdditions2.st delete mode 100644 src/Squot.package/SquotLoadOrderMergeTest.class/instance/testIndependentAdditions3.st delete mode 100644 src/Squot.package/SquotLoadOrderMergeTest.class/instance/testIndependentRemovals.st delete mode 100644 src/Squot.package/SquotLoadOrderMergeTest.class/instance/testKeepChangesToRemovedAfterConflict.st delete mode 100644 src/Squot.package/SquotLoadOrderMergeTest.class/instance/testMultipleConflicts.st delete mode 100644 src/Squot.package/SquotLoadOrderMergeTest.class/instance/testUnilateralMoves.st delete mode 100644 src/Squot.package/SquotLoadOrderMergeTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotLoadOrderMergeTest.class/properties.json delete mode 100644 src/Squot.package/SquotLoadedArtifact.class/README.md delete mode 100644 src/Squot.package/SquotLoadedArtifact.class/instance/^equals.st delete mode 100644 src/Squot.package/SquotLoadedArtifact.class/instance/applyLoadStatusTo..st delete mode 100644 src/Squot.package/SquotLoadedArtifact.class/instance/hash.st delete mode 100644 src/Squot.package/SquotLoadedArtifact.class/instance/isLoaded.st delete mode 100644 src/Squot.package/SquotLoadedArtifact.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotLoadedArtifact.class/instance/storeArtifact..st delete mode 100644 src/Squot.package/SquotLoadedArtifact.class/instance/storeArtifact.st delete mode 100644 src/Squot.package/SquotLoadedArtifact.class/instance/unload.st delete mode 100644 src/Squot.package/SquotLoadedArtifact.class/instance/updatePath.st delete mode 100644 src/Squot.package/SquotLoadedArtifact.class/methodProperties.json delete mode 100644 src/Squot.package/SquotLoadedArtifact.class/properties.json delete mode 100644 src/Squot.package/SquotLookupKeyMirror.class/README.md delete mode 100644 src/Squot.package/SquotLookupKeyMirror.class/class/classWithIrrelevantKeyHash..st delete mode 100644 src/Squot.package/SquotLookupKeyMirror.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotLookupKeyMirror.class/instance/referencesFrom..st delete mode 100644 src/Squot.package/SquotLookupKeyMirror.class/instance/setKeyHashIrrelevant.st delete mode 100644 src/Squot.package/SquotLookupKeyMirror.class/methodProperties.json delete mode 100644 src/Squot.package/SquotLookupKeyMirror.class/properties.json delete mode 100644 src/Squot.package/SquotMemoizingVersion.class/README.md delete mode 100644 src/Squot.package/SquotMemoizingVersion.class/class/version..st delete mode 100644 src/Squot.package/SquotMemoizingVersion.class/class/version.snapshot..st delete mode 100644 src/Squot.package/SquotMemoizingVersion.class/instance/^equals.st delete mode 100644 src/Squot.package/SquotMemoizingVersion.class/instance/artifactAt..st delete mode 100644 src/Squot.package/SquotMemoizingVersion.class/instance/artifacts.st delete mode 100644 src/Squot.package/SquotMemoizingVersion.class/instance/doesNotUnderstand..st delete mode 100644 src/Squot.package/SquotMemoizingVersion.class/instance/hash.st delete mode 100644 src/Squot.package/SquotMemoizingVersion.class/instance/patchRelativeToBase..st delete mode 100644 src/Squot.package/SquotMemoizingVersion.class/instance/populateSnapshot.st delete mode 100644 src/Squot.package/SquotMemoizingVersion.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotMemoizingVersion.class/instance/setVersion..st delete mode 100644 src/Squot.package/SquotMemoizingVersion.class/instance/setVersion.snapshot..st delete mode 100644 src/Squot.package/SquotMemoizingVersion.class/instance/snapshot.st delete mode 100644 src/Squot.package/SquotMemoizingVersion.class/methodProperties.json delete mode 100644 src/Squot.package/SquotMemoizingVersion.class/properties.json delete mode 100644 src/Squot.package/SquotMerge.class/README.md delete mode 100644 src/Squot.package/SquotMerge.class/instance/addLoadOrderDiffTreeTo..st delete mode 100644 src/Squot.package/SquotMerge.class/instance/computeDifferences.st delete mode 100644 src/Squot.package/SquotMerge.class/instance/conflicts.st delete mode 100644 src/Squot.package/SquotMerge.class/instance/customizedLoadOrder.st delete mode 100644 src/Squot.package/SquotMerge.class/instance/keyOf.ifAbsent..st delete mode 100644 src/Squot.package/SquotMerge.class/instance/loadOrderMerge.st delete mode 100644 src/Squot.package/SquotMerge.class/instance/mergeAt..st delete mode 100644 src/Squot.package/SquotMerge.class/instance/newLoadOrder..st delete mode 100644 src/Squot.package/SquotMerge.class/instance/newLoadOrder.st delete mode 100644 src/Squot.package/SquotMerge.class/instance/privateResolvedPatch.st delete mode 100644 src/Squot.package/SquotMerge.class/methodProperties.json delete mode 100644 src/Squot.package/SquotMerge.class/properties.json delete mode 100644 src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/README.md delete mode 100644 src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/createBaseVersion.st delete mode 100644 src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/expectedObjectOrderAfterMerge.st delete mode 100644 src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/mergeButKeepArtifact.st delete mode 100644 src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/prepareIncomingVersion.st delete mode 100644 src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/prepareWorkingVersion.st delete mode 100644 src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/testKeepArtifact.st delete mode 100644 src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/methodProperties.json delete mode 100644 src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/properties.json delete mode 100644 src/Squot.package/SquotMergeChangeAndRemovalWithReorderingTestScenario.class/README.md delete mode 100644 src/Squot.package/SquotMergeChangeAndRemovalWithReorderingTestScenario.class/instance/expectedObjectOrderAfterMerge.st delete mode 100644 src/Squot.package/SquotMergeChangeAndRemovalWithReorderingTestScenario.class/instance/prepareIncomingVersion.st delete mode 100644 src/Squot.package/SquotMergeChangeAndRemovalWithReorderingTestScenario.class/methodProperties.json delete mode 100644 src/Squot.package/SquotMergeChangeAndRemovalWithReorderingTestScenario.class/properties.json delete mode 100644 src/Squot.package/SquotMergeDiffNode.class/README.md delete mode 100644 src/Squot.package/SquotMergeDiffNode.class/class/title.content.children.onInclude.onExclude.onReset..st delete mode 100644 src/Squot.package/SquotMergeDiffNode.class/instance/browseIncomingEdition..st delete mode 100644 src/Squot.package/SquotMergeDiffNode.class/instance/browseOriginalEdition..st delete mode 100644 src/Squot.package/SquotMergeDiffNode.class/instance/choice.st delete mode 100644 src/Squot.package/SquotMergeDiffNode.class/instance/chooseLeft.st delete mode 100644 src/Squot.package/SquotMergeDiffNode.class/instance/chooseRight.st delete mode 100644 src/Squot.package/SquotMergeDiffNode.class/instance/exclude.st delete mode 100644 src/Squot.package/SquotMergeDiffNode.class/instance/include.st delete mode 100644 src/Squot.package/SquotMergeDiffNode.class/instance/isActive.st delete mode 100644 src/Squot.package/SquotMergeDiffNode.class/instance/needsChoice.st delete mode 100644 src/Squot.package/SquotMergeDiffNode.class/instance/offersChoice.st delete mode 100644 src/Squot.package/SquotMergeDiffNode.class/instance/resetBlock..st delete mode 100644 src/Squot.package/SquotMergeDiffNode.class/instance/resetBlock.st delete mode 100644 src/Squot.package/SquotMergeDiffNode.class/instance/resetChoice.st delete mode 100644 src/Squot.package/SquotMergeDiffNode.class/methodProperties.json delete mode 100644 src/Squot.package/SquotMergeDiffNode.class/properties.json delete mode 100644 src/Squot.package/SquotMergeMock.class/README.md delete mode 100644 src/Squot.package/SquotMergeMock.class/instance/asDiffTree.st delete mode 100644 src/Squot.package/SquotMergeMock.class/instance/asSquotHierarchicalDiff.st delete mode 100644 src/Squot.package/SquotMergeMock.class/instance/base..st delete mode 100644 src/Squot.package/SquotMergeMock.class/instance/base.st delete mode 100644 src/Squot.package/SquotMergeMock.class/instance/choice.st delete mode 100644 src/Squot.package/SquotMergeMock.class/instance/chooseIncoming.st delete mode 100644 src/Squot.package/SquotMergeMock.class/instance/chooseWorking.st delete mode 100644 src/Squot.package/SquotMergeMock.class/instance/diffTreeNodes..st delete mode 100644 src/Squot.package/SquotMergeMock.class/instance/hasChanges.st delete mode 100644 src/Squot.package/SquotMergeMock.class/instance/hasConflicts..st delete mode 100644 src/Squot.package/SquotMergeMock.class/instance/hasConflicts.st delete mode 100644 src/Squot.package/SquotMergeMock.class/instance/incoming..st delete mode 100644 src/Squot.package/SquotMergeMock.class/instance/incoming.st delete mode 100644 src/Squot.package/SquotMergeMock.class/instance/isMerge.st delete mode 100644 src/Squot.package/SquotMergeMock.class/instance/mayAffectArtifact.st delete mode 100644 src/Squot.package/SquotMergeMock.class/instance/object.st delete mode 100644 src/Squot.package/SquotMergeMock.class/instance/resetChoice.st delete mode 100644 src/Squot.package/SquotMergeMock.class/instance/resolvedPatch.st delete mode 100644 src/Squot.package/SquotMergeMock.class/instance/returnAsResolvedPatch..st delete mode 100644 src/Squot.package/SquotMergeMock.class/instance/setUpTreeRoot.toEditMerge..st delete mode 100644 src/Squot.package/SquotMergeMock.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotMergeMock.class/instance/willBeLoaded..st delete mode 100644 src/Squot.package/SquotMergeMock.class/instance/willBeLoaded.st delete mode 100644 src/Squot.package/SquotMergeMock.class/instance/working..st delete mode 100644 src/Squot.package/SquotMergeMock.class/instance/working.st delete mode 100644 src/Squot.package/SquotMergeMock.class/methodProperties.json delete mode 100644 src/Squot.package/SquotMergeMock.class/properties.json delete mode 100644 src/Squot.package/SquotMergeOperation.class/README.md delete mode 100644 src/Squot.package/SquotMergeOperation.class/instance/addParent.st delete mode 100644 src/Squot.package/SquotMergeOperation.class/instance/appliedPatch.st delete mode 100644 src/Squot.package/SquotMergeOperation.class/instance/applyToWorkingCopy.st delete mode 100644 src/Squot.package/SquotMergeOperation.class/instance/baseVersion..st delete mode 100644 src/Squot.package/SquotMergeOperation.class/instance/baseVersion.st delete mode 100644 src/Squot.package/SquotMergeOperation.class/instance/doNotAddGlobalObjectsAutomatically.st delete mode 100644 src/Squot.package/SquotMergeOperation.class/instance/doNotAddParent.st delete mode 100644 src/Squot.package/SquotMergeOperation.class/instance/findBaseVersion.st delete mode 100644 src/Squot.package/SquotMergeOperation.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotMergeOperation.class/instance/isFastForwardPossible.st delete mode 100644 src/Squot.package/SquotMergeOperation.class/instance/merge..st delete mode 100644 src/Squot.package/SquotMergeOperation.class/instance/merge.st delete mode 100644 src/Squot.package/SquotMergeOperation.class/instance/mergeBases.st delete mode 100644 src/Squot.package/SquotMergeOperation.class/instance/mergeVersion..st delete mode 100644 src/Squot.package/SquotMergeOperation.class/instance/mergeVersion.st delete mode 100644 src/Squot.package/SquotMergeOperation.class/instance/prepare.st delete mode 100644 src/Squot.package/SquotMergeOperation.class/instance/shouldAddGlobalObjectsAutomatically.st delete mode 100644 src/Squot.package/SquotMergeOperation.class/instance/validateAncestry.st delete mode 100644 src/Squot.package/SquotMergeOperation.class/instance/workingVersion.st delete mode 100644 src/Squot.package/SquotMergeOperation.class/methodProperties.json delete mode 100644 src/Squot.package/SquotMergeOperation.class/properties.json delete mode 100644 src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/README.md delete mode 100644 src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/createBaseVersion.st delete mode 100644 src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/expectedObjectOrderAfterReadding.st delete mode 100644 src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/mergeAndReaddObject.st delete mode 100644 src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/prepareIncomingVersion.st delete mode 100644 src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/prepareWorkingVersion.st delete mode 100644 src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/testReaddedArtifactInIncomingLoadOrderPosition.st delete mode 100644 src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/methodProperties.json delete mode 100644 src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/properties.json delete mode 100644 src/Squot.package/SquotMergeRemovalAndChangeWithReorderingTestScenario.class/README.md delete mode 100644 src/Squot.package/SquotMergeRemovalAndChangeWithReorderingTestScenario.class/instance/expectedObjectOrderAfterReadding.st delete mode 100644 src/Squot.package/SquotMergeRemovalAndChangeWithReorderingTestScenario.class/instance/prepareIncomingVersion.st delete mode 100644 src/Squot.package/SquotMergeRemovalAndChangeWithReorderingTestScenario.class/methodProperties.json delete mode 100644 src/Squot.package/SquotMergeRemovalAndChangeWithReorderingTestScenario.class/properties.json delete mode 100644 src/Squot.package/SquotMergeRequested.class/README.md delete mode 100644 src/Squot.package/SquotMergeRequested.class/instance/merge..st delete mode 100644 src/Squot.package/SquotMergeRequested.class/instance/merge.st delete mode 100644 src/Squot.package/SquotMergeRequested.class/instance/resume..st delete mode 100644 src/Squot.package/SquotMergeRequested.class/instance/setHandled.st delete mode 100644 src/Squot.package/SquotMergeRequested.class/instance/title..st delete mode 100644 src/Squot.package/SquotMergeRequested.class/instance/title.st delete mode 100644 src/Squot.package/SquotMergeRequested.class/instance/wasHandled.st delete mode 100644 src/Squot.package/SquotMergeRequested.class/methodProperties.json delete mode 100644 src/Squot.package/SquotMergeRequested.class/properties.json delete mode 100644 src/Squot.package/SquotMergeTest.class/README.md delete mode 100644 src/Squot.package/SquotMergeTest.class/instance/testLoadOrderResolution.st delete mode 100644 src/Squot.package/SquotMergeTest.class/instance/testRemovalsResolvedAutomatically.st delete mode 100644 src/Squot.package/SquotMergeTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotMergeTest.class/properties.json delete mode 100644 src/Squot.package/SquotMergeTool.class/README.md delete mode 100644 src/Squot.package/SquotMergeTool.class/instance/autoProcessNodes..st delete mode 100644 src/Squot.package/SquotMergeTool.class/instance/inspectOriginalArtifactOfSelectedNode.st delete mode 100644 src/Squot.package/SquotMergeTool.class/instance/inspectProposedArtifactOfSelectedNode.st delete mode 100644 src/Squot.package/SquotMergeTool.class/instance/on..st delete mode 100644 src/Squot.package/SquotMergeTool.class/instance/rootNodes.st delete mode 100644 src/Squot.package/SquotMergeTool.class/instance/selectedPatch.st delete mode 100644 src/Squot.package/SquotMergeTool.class/methodProperties.json delete mode 100644 src/Squot.package/SquotMergeTool.class/properties.json delete mode 100644 src/Squot.package/SquotMergeToolTest.class/README.md delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/applyToWorkingCopy.st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/changedArtifactAt.in..st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/diffAt.in..st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/hasChangesAt.in..st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/includesDiffAt.in..st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/loadOrderHasChanges.st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/mergeWithMetadataConflictAt..st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/newToolOn..st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/openToolAndTestOnPatch..st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/patchAddingArtifactAt..st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/patchChangingArtifactAt..st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/patchChangingArtifactMetadataAt..st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/patchChangingUnloadedArtifactAt..st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/patchModifyingMethodTimestampInArtifactAt..st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/patchRemovingArtifactAt..st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/patchWithLoadOrderChange.st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/patchWithLoadOrderChangeRegression1.st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/patchWithTwoChangedArtifacts.st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/patchWithUnloadedArtifactAt..st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/patchedLoadOrderAfter..st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/performUiInteractionTestsOnNode.withPath.inTree..st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/resolveArtifactConflict..st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/resultDiffAt..st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/resultLoadOrder.st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/testArtifactMergeWithoutConflicts.st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/testLoadOrderConflicts.st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/testMetadataConflict.st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/testMethodsGetExcludedIfOnlyTheirStampsChanged.st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/testResolveArtifactConflictChooseLeft.st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/testResolveArtifactConflictChooseRight.st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/testResolveArtifactConflictWithIncomingRemoval.st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/testResolveConflictInArtifactChooseLeft.st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/testResolveConflictInArtifactChooseRight.st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/testResolveThenResetArtifactConflict.st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/instance/testSmalltalkCodeMerge.st delete mode 100644 src/Squot.package/SquotMergeToolTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotMergeToolTest.class/properties.json delete mode 100644 src/Squot.package/SquotMirror.class/README.md delete mode 100644 src/Squot.package/SquotMirror.class/instance/canHaveReferences..st delete mode 100644 src/Squot.package/SquotMirror.class/instance/capture.with.ifReplaced..st delete mode 100644 src/Squot.package/SquotMirror.class/instance/is.comparableTo..st delete mode 100644 src/Squot.package/SquotMirror.class/instance/mirrorForReplacement..st delete mode 100644 src/Squot.package/SquotMirror.class/instance/mirrorOf.reachedVia.from..st delete mode 100644 src/Squot.package/SquotMirror.class/instance/newDiffFrom.to..st delete mode 100644 src/Squot.package/SquotMirror.class/instance/referencesFrom..st delete mode 100644 src/Squot.package/SquotMirror.class/instance/reflect.of..st delete mode 100644 src/Squot.package/SquotMirror.class/instance/reflect.of.put..st delete mode 100644 src/Squot.package/SquotMirror.class/instance/replacementFor.using..st delete mode 100644 src/Squot.package/SquotMirror.class/instance/shouldObjectHaveNameAssigned..st delete mode 100644 src/Squot.package/SquotMirror.class/methodProperties.json delete mode 100644 src/Squot.package/SquotMirror.class/properties.json delete mode 100644 src/Squot.package/SquotMock.class/README.md delete mode 100644 src/Squot.package/SquotMock.class/instance/doesNotUnderstand..st delete mode 100644 src/Squot.package/SquotMock.class/instance/hasReceivedMessageWithSelector..st delete mode 100644 src/Squot.package/SquotMock.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotMock.class/methodProperties.json delete mode 100644 src/Squot.package/SquotMock.class/properties.json delete mode 100644 src/Squot.package/SquotMockRepository.class/README.md delete mode 100644 src/Squot.package/SquotMockRepository.class/instance/delete..st delete mode 100644 src/Squot.package/SquotMockRepository.class/instance/historians.st delete mode 100644 src/Squot.package/SquotMockRepository.class/instance/initializeStoreInfo.forObject..st delete mode 100644 src/Squot.package/SquotMockRepository.class/instance/whenInitializingStoreInfoDo..st delete mode 100644 src/Squot.package/SquotMockRepository.class/methodProperties.json delete mode 100644 src/Squot.package/SquotMockRepository.class/properties.json delete mode 100644 src/Squot.package/SquotMockStore.class/README.md delete mode 100644 src/Squot.package/SquotMockStore.class/instance/add.at.additionalInfo..st delete mode 100644 src/Squot.package/SquotMockStore.class/instance/artifacts.st delete mode 100644 src/Squot.package/SquotMockStore.class/instance/capture.withMetadata..st delete mode 100644 src/Squot.package/SquotMockStore.class/instance/copySettingsFrom.to..st delete mode 100644 src/Squot.package/SquotMockStore.class/instance/initializeStoreInfo.forObject..st delete mode 100644 src/Squot.package/SquotMockStore.class/instance/loadOrder.st delete mode 100644 src/Squot.package/SquotMockStore.class/instance/objectInOwnArtifact..st delete mode 100644 src/Squot.package/SquotMockStore.class/instance/objects.st delete mode 100644 src/Squot.package/SquotMockStore.class/instance/supports.forObject..st delete mode 100644 src/Squot.package/SquotMockStore.class/instance/whenInitializingStoreInfoFor.do..st delete mode 100644 src/Squot.package/SquotMockStore.class/methodProperties.json delete mode 100644 src/Squot.package/SquotMockStore.class/properties.json delete mode 100644 src/Squot.package/SquotMonticelloConversionProblem.class/README.md delete mode 100644 src/Squot.package/SquotMonticelloConversionProblem.class/instance/isResumable.st delete mode 100644 src/Squot.package/SquotMonticelloConversionProblem.class/methodProperties.json delete mode 100644 src/Squot.package/SquotMonticelloConversionProblem.class/properties.json delete mode 100644 src/Squot.package/SquotMonticelloConverter.class/README.md delete mode 100644 src/Squot.package/SquotMonticelloConverter.class/class/convertUpToLoadedVersionOfAllPackagesNamed.asHistorianNamed.in..st delete mode 100644 src/Squot.package/SquotMonticelloConverter.class/class/convertUpToLoadedVersionOfPackageNamed.asHistorianNamed.in..st delete mode 100644 src/Squot.package/SquotMonticelloConverter.class/instance/addTemporaryHistorian..st delete mode 100644 src/Squot.package/SquotMonticelloConverter.class/instance/authorMap..st delete mode 100644 src/Squot.package/SquotMonticelloConverter.class/instance/authorMap.st delete mode 100644 src/Squot.package/SquotMonticelloConverter.class/instance/captureSquotPatchFrom.basedOnVersion..st delete mode 100644 src/Squot.package/SquotMonticelloConverter.class/instance/captureSquotSnapshotFrom..st delete mode 100644 src/Squot.package/SquotMonticelloConverter.class/instance/cleanUpTemporaryHistorians.st delete mode 100644 src/Squot.package/SquotMonticelloConverter.class/instance/convertMonticelloHistoryUpTo.from.asNewHistorianNamed.in..st delete mode 100644 src/Squot.package/SquotMonticelloConverter.class/instance/convertMonticelloHistoryUpToAll.from.asNewHistorianNamed.in..st delete mode 100644 src/Squot.package/SquotMonticelloConverter.class/instance/convertMonticelloVersion..st delete mode 100644 src/Squot.package/SquotMonticelloConverter.class/instance/convertMonticelloVersionWithMissingSnapshot..st delete mode 100644 src/Squot.package/SquotMonticelloConverter.class/instance/convertUpToLoadedVersionOfAllPackagesNamed.asHistorianNamed.in..st delete mode 100644 src/Squot.package/SquotMonticelloConverter.class/instance/convertUpToLoadedVersionOfPackageNamed.asHistorianNamed.in..st delete mode 100644 src/Squot.package/SquotMonticelloConverter.class/instance/findAvailableBaseVersionWithInfo..st delete mode 100644 src/Squot.package/SquotMonticelloConverter.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotMonticelloConverter.class/instance/mapMonticelloVersion.to..st delete mode 100644 src/Squot.package/SquotMonticelloConverter.class/instance/squotAuthorForMonticelloAuthor..st delete mode 100644 src/Squot.package/SquotMonticelloConverter.class/instance/squotPath..st delete mode 100644 src/Squot.package/SquotMonticelloConverter.class/instance/squotPath.st delete mode 100644 src/Squot.package/SquotMonticelloConverter.class/instance/squotPathForMonticelloPackage..st delete mode 100644 src/Squot.package/SquotMonticelloConverter.class/instance/squotVersionForMonticelloVersion..st delete mode 100644 src/Squot.package/SquotMonticelloConverter.class/instance/squotVersionForMonticelloVersionInfo..st delete mode 100644 src/Squot.package/SquotMonticelloConverter.class/methodProperties.json delete mode 100644 src/Squot.package/SquotMonticelloConverter.class/properties.json delete mode 100644 src/Squot.package/SquotMonticelloConverterTest.class/README.md delete mode 100644 src/Squot.package/SquotMonticelloConverterTest.class/instance/assertVersion.containsMethod..st delete mode 100644 src/Squot.package/SquotMonticelloConverterTest.class/instance/assertVersion.doesNotContainMethod..st delete mode 100644 src/Squot.package/SquotMonticelloConverterTest.class/instance/newRepository.st delete mode 100644 src/Squot.package/SquotMonticelloConverterTest.class/instance/performTest.st delete mode 100644 src/Squot.package/SquotMonticelloConverterTest.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotMonticelloConverterTest.class/instance/testConvertMerge.st delete mode 100644 src/Squot.package/SquotMonticelloConverterTest.class/instance/testConvertOneVersion.st delete mode 100644 src/Squot.package/SquotMonticelloConverterTest.class/instance/testConvertThreeVersions.st delete mode 100644 src/Squot.package/SquotMonticelloConverterTest.class/instance/testConvertTwoPackages.st delete mode 100644 src/Squot.package/SquotMonticelloConverterTest.class/instance/testConvertTwoVersions.st delete mode 100644 src/Squot.package/SquotMonticelloConverterTest.class/instance/testConvertVersionsWithRemoval.st delete mode 100644 src/Squot.package/SquotMonticelloConverterTest.class/instance/testDeletionsAgainstMissingVersion.st delete mode 100644 src/Squot.package/SquotMonticelloConverterTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotMonticelloConverterTest.class/properties.json delete mode 100644 src/Squot.package/SquotMonticelloConverterVerifier.class/README.md delete mode 100644 src/Squot.package/SquotMonticelloConverterVerifier.class/class/verifyVersionsOf.ofLoadedPackageNamed..st delete mode 100644 src/Squot.package/SquotMonticelloConverterVerifier.class/instance/countVersions..st delete mode 100644 src/Squot.package/SquotMonticelloConverterVerifier.class/instance/findPackageIn..st delete mode 100644 src/Squot.package/SquotMonticelloConverterVerifier.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotMonticelloConverterVerifier.class/instance/pushAncestorsOfMCVersionInfo..st delete mode 100644 src/Squot.package/SquotMonticelloConverterVerifier.class/instance/verify..st delete mode 100644 src/Squot.package/SquotMonticelloConverterVerifier.class/instance/verify.hasCorrectConversionsUpTo.whichComesFrom..st delete mode 100644 src/Squot.package/SquotMonticelloConverterVerifier.class/instance/verify.matches..st delete mode 100644 src/Squot.package/SquotMonticelloConverterVerifier.class/methodProperties.json delete mode 100644 src/Squot.package/SquotMonticelloConverterVerifier.class/properties.json delete mode 100644 src/Squot.package/SquotMonticelloConverterVerifierTest.class/README.md delete mode 100644 src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/newRepository.st delete mode 100644 src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/tearDown.st delete mode 100644 src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testAcceptsCorrectConversion.st delete mode 100644 src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testAcceptsCorrectConversionWithMultipleVersions.st delete mode 100644 src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testCanHandleMissingMCVersions.st delete mode 100644 src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testDetectsBogusClass.st delete mode 100644 src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testDetectsBogusMethod.st delete mode 100644 src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testDetectsBogusTrait.st delete mode 100644 src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testDetectsMissingClass.st delete mode 100644 src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testDetectsMissingMethod.st delete mode 100644 src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testDetectsMissingTrait.st delete mode 100644 src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testIgnoresEmptyMonticelloTraitComments.st delete mode 100644 src/Squot.package/SquotMonticelloConverterVerifierTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotMonticelloConverterVerifierTest.class/properties.json delete mode 100644 src/Squot.package/SquotMonticelloDiffNodesTest.class/README.md delete mode 100644 src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/packagePath.st delete mode 100644 src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/rootNode.st delete mode 100644 src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/tearDown.st delete mode 100644 src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testClassBrowse.st delete mode 100644 src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testClassDefinitionBrowse.st delete mode 100644 src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testClassDefinitionTextDiff.st delete mode 100644 src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testClassTextDiff.st delete mode 100644 src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testGrouping.st delete mode 100644 src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testMethodDefinitionBrowse.st delete mode 100644 src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testMethodDefinitionTextDiff.st delete mode 100644 src/Squot.package/SquotMonticelloDiffNodesTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotMonticelloDiffNodesTest.class/properties.json delete mode 100644 src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/README.md delete mode 100644 src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/class/signalMismatchBetween.and.artifact.withMonticelloSnapshot..st delete mode 100644 src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/artifactMcSnapshot..st delete mode 100644 src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/artifactMcSnapshot.st delete mode 100644 src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/mcSnapshot..st delete mode 100644 src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/mcSnapshot.st delete mode 100644 src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/mcVersion..st delete mode 100644 src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/mcVersion.st delete mode 100644 src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/packageArtifact..st delete mode 100644 src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/packageArtifact.st delete mode 100644 src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/squotVersion..st delete mode 100644 src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/squotVersion.st delete mode 100644 src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/methodProperties.json delete mode 100644 src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/properties.json delete mode 100644 src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/README.md delete mode 100644 src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/instance/fakeCategory.st delete mode 100644 src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/instance/packagePath.st delete mode 100644 src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/instance/tearDown.st delete mode 100644 src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/instance/testBrowseTraitDefinition.st delete mode 100644 src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/properties.json delete mode 100644 src/Squot.package/SquotMutableObjectGraph.class/README.md delete mode 100644 src/Squot.package/SquotMutableObjectGraph.class/instance/addShadow.of..st delete mode 100644 src/Squot.package/SquotMutableObjectGraph.class/instance/answer.whenAskedForTheNameOf..st delete mode 100644 src/Squot.package/SquotMutableObjectGraph.class/instance/applyDiff.toShadowNamed..st delete mode 100644 src/Squot.package/SquotMutableObjectGraph.class/instance/applyDiff.toStartObjectWith..st delete mode 100644 src/Squot.package/SquotMutableObjectGraph.class/instance/assign.to..st delete mode 100644 src/Squot.package/SquotMutableObjectGraph.class/instance/assign.toShadow..st delete mode 100644 src/Squot.package/SquotMutableObjectGraph.class/instance/creatorOf.ifAbsentPut.of..st delete mode 100644 src/Squot.package/SquotMutableObjectGraph.class/instance/ifNecessaryAssignNameToShadow..st delete mode 100644 src/Squot.package/SquotMutableObjectGraph.class/instance/mutableCopy.st delete mode 100644 src/Squot.package/SquotMutableObjectGraph.class/instance/nameOf.ifAbsentAssign..st delete mode 100644 src/Squot.package/SquotMutableObjectGraph.class/instance/refreshStartShadow.st delete mode 100644 src/Squot.package/SquotMutableObjectGraph.class/instance/removeObjectNamed..st delete mode 100644 src/Squot.package/SquotMutableObjectGraph.class/methodProperties.json delete mode 100644 src/Squot.package/SquotMutableObjectGraph.class/properties.json delete mode 100644 src/Squot.package/SquotNameDecorator.class/README.md delete mode 100644 src/Squot.package/SquotNameDecorator.class/class/on.withName..st delete mode 100644 src/Squot.package/SquotNameDecorator.class/class/squotMirror.st delete mode 100644 src/Squot.package/SquotNameDecorator.class/instance/^equals.st delete mode 100644 src/Squot.package/SquotNameDecorator.class/instance/decorated.withName..st delete mode 100644 src/Squot.package/SquotNameDecorator.class/instance/hasSquotShadowName.st delete mode 100644 src/Squot.package/SquotNameDecorator.class/instance/hash.st delete mode 100644 src/Squot.package/SquotNameDecorator.class/instance/name..st delete mode 100644 src/Squot.package/SquotNameDecorator.class/instance/name.st delete mode 100644 src/Squot.package/SquotNameDecorator.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotNameDecorator.class/instance/sameIn.withName.ifAbsent..st delete mode 100644 src/Squot.package/SquotNameDecorator.class/methodProperties.json delete mode 100644 src/Squot.package/SquotNameDecorator.class/properties.json delete mode 100644 src/Squot.package/SquotNameDecoratorTest.class/README.md delete mode 100644 src/Squot.package/SquotNameDecoratorTest.class/instance/testConsistentReflection.st delete mode 100644 src/Squot.package/SquotNameDecoratorTest.class/instance/testYourselfAnswersDecorator.st delete mode 100644 src/Squot.package/SquotNameDecoratorTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotNameDecoratorTest.class/properties.json delete mode 100644 src/Squot.package/SquotNoMerge.class/README.md delete mode 100644 src/Squot.package/SquotNoMerge.class/class/of..st delete mode 100644 src/Squot.package/SquotNoMerge.class/instance/conflicts.st delete mode 100644 src/Squot.package/SquotNoMerge.class/instance/hasChanges.st delete mode 100644 src/Squot.package/SquotNoMerge.class/instance/privateResolvedPatch.st delete mode 100644 src/Squot.package/SquotNoMerge.class/methodProperties.json delete mode 100644 src/Squot.package/SquotNoMerge.class/properties.json delete mode 100644 src/Squot.package/SquotNoMetadataFileFound.class/README.md delete mode 100644 src/Squot.package/SquotNoMetadataFileFound.class/class/for..st delete mode 100644 src/Squot.package/SquotNoMetadataFileFound.class/instance/fileOrDirectory..st delete mode 100644 src/Squot.package/SquotNoMetadataFileFound.class/instance/fileOrDirectory.st delete mode 100644 src/Squot.package/SquotNoMetadataFileFound.class/methodProperties.json delete mode 100644 src/Squot.package/SquotNoMetadataFileFound.class/properties.json delete mode 100644 src/Squot.package/SquotNoProgressOutput.class/README.md delete mode 100644 src/Squot.package/SquotNoProgressOutput.class/class/displayProgress.during..st delete mode 100644 src/Squot.package/SquotNoProgressOutput.class/class/displayProgress.for.do..st delete mode 100644 src/Squot.package/SquotNoProgressOutput.class/class/displayStatus.during..st delete mode 100644 src/Squot.package/SquotNoProgressOutput.class/class/updateProgress.text..st delete mode 100644 src/Squot.package/SquotNoProgressOutput.class/methodProperties.json delete mode 100644 src/Squot.package/SquotNoProgressOutput.class/properties.json delete mode 100644 src/Squot.package/SquotNoTableOfContentsFound.class/README.md delete mode 100644 src/Squot.package/SquotNoTableOfContentsFound.class/instance/add..st delete mode 100644 src/Squot.package/SquotNoTableOfContentsFound.class/instance/tableOfContents..st delete mode 100644 src/Squot.package/SquotNoTableOfContentsFound.class/instance/tableOfContents.st delete mode 100644 src/Squot.package/SquotNoTableOfContentsFound.class/methodProperties.json delete mode 100644 src/Squot.package/SquotNoTableOfContentsFound.class/properties.json delete mode 100644 src/Squot.package/SquotObjectAddition.class/README.md delete mode 100644 src/Squot.package/SquotObjectAddition.class/class/of..st delete mode 100644 src/Squot.package/SquotObjectAddition.class/instance/addedObject..st delete mode 100644 src/Squot.package/SquotObjectAddition.class/instance/addedObject.st delete mode 100644 src/Squot.package/SquotObjectAddition.class/instance/applyToShadowNamed.inGraph..st delete mode 100644 src/Squot.package/SquotObjectAddition.class/instance/checkName..st delete mode 100644 src/Squot.package/SquotObjectAddition.class/instance/object.st delete mode 100644 src/Squot.package/SquotObjectAddition.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotObjectAddition.class/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st delete mode 100644 src/Squot.package/SquotObjectAddition.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotObjectAddition.class/instance/squotHasChanges.st delete mode 100644 src/Squot.package/SquotObjectAddition.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectAddition.class/properties.json delete mode 100644 src/Squot.package/SquotObjectAdditionConflict.class/README.md delete mode 100644 src/Squot.package/SquotObjectAdditionConflict.class/class/left.right..st delete mode 100644 src/Squot.package/SquotObjectAdditionConflict.class/class/working.incoming..st delete mode 100644 src/Squot.package/SquotObjectAdditionConflict.class/instance/chooseIncoming.st delete mode 100644 src/Squot.package/SquotObjectAdditionConflict.class/instance/initializeSquotDiffNodes.with..st delete mode 100644 src/Squot.package/SquotObjectAdditionConflict.class/instance/left.right..st delete mode 100644 src/Squot.package/SquotObjectAdditionConflict.class/instance/newSquotDiffNodes.st delete mode 100644 src/Squot.package/SquotObjectAdditionConflict.class/instance/setWorking.incoming..st delete mode 100644 src/Squot.package/SquotObjectAdditionConflict.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotObjectAdditionConflict.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectAdditionConflict.class/properties.json delete mode 100644 src/Squot.package/SquotObjectCaptureTest.class/README.md delete mode 100644 src/Squot.package/SquotObjectCaptureTest.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotObjectCaptureTest.class/instance/testArrayOfIntegers.st delete mode 100644 src/Squot.package/SquotObjectCaptureTest.class/instance/testBooleans.st delete mode 100644 src/Squot.package/SquotObjectCaptureTest.class/instance/testCaptureAgainProducesEqualGraph.st delete mode 100644 src/Squot.package/SquotObjectCaptureTest.class/instance/testCompiledMethod.st delete mode 100644 src/Squot.package/SquotObjectCaptureTest.class/instance/testCyclicReferences.st delete mode 100644 src/Squot.package/SquotObjectCaptureTest.class/instance/testCyclicReferences2.st delete mode 100644 src/Squot.package/SquotObjectCaptureTest.class/instance/testDictionariesWithComplexKeys.st delete mode 100644 src/Squot.package/SquotObjectCaptureTest.class/instance/testDictionariesWithSharedAssociations.st delete mode 100644 src/Squot.package/SquotObjectCaptureTest.class/instance/testDictionary.st delete mode 100644 src/Squot.package/SquotObjectCaptureTest.class/instance/testEmptyObject.st delete mode 100644 src/Squot.package/SquotObjectCaptureTest.class/instance/testIdentityReplacedObject.st delete mode 100644 src/Squot.package/SquotObjectCaptureTest.class/instance/testNil.st delete mode 100644 src/Squot.package/SquotObjectCaptureTest.class/instance/testNoNamesForPrimitiveValues.st delete mode 100644 src/Squot.package/SquotObjectCaptureTest.class/instance/testPackageInfo.st delete mode 100644 src/Squot.package/SquotObjectCaptureTest.class/instance/testPackageInfoIndirect.st delete mode 100644 src/Squot.package/SquotObjectCaptureTest.class/instance/testPoint.st delete mode 100644 src/Squot.package/SquotObjectCaptureTest.class/instance/testRectangle.st delete mode 100644 src/Squot.package/SquotObjectCaptureTest.class/instance/testReplacedObject2.st delete mode 100644 src/Squot.package/SquotObjectCaptureTest.class/instance/testSet.st delete mode 100644 src/Squot.package/SquotObjectCaptureTest.class/instance/testString.st delete mode 100644 src/Squot.package/SquotObjectCaptureTest.class/instance/testSymbol.st delete mode 100644 src/Squot.package/SquotObjectCaptureTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectCaptureTest.class/properties.json delete mode 100644 src/Squot.package/SquotObjectCapturer.class/README.md delete mode 100644 src/Squot.package/SquotObjectCapturer.class/instance/beginCapturingFrom..st delete mode 100644 src/Squot.package/SquotObjectCapturer.class/instance/capture.as..st delete mode 100644 src/Squot.package/SquotObjectCapturer.class/instance/capture.asValueOf.from.reflectedIn.intoValueOf.from.reflectedIn..st delete mode 100644 src/Squot.package/SquotObjectCapturer.class/instance/capture.asValueOfSlot..st delete mode 100644 src/Squot.package/SquotObjectCapturer.class/instance/capture.reflectedIn..st delete mode 100644 src/Squot.package/SquotObjectCapturer.class/instance/captureBits..st delete mode 100644 src/Squot.package/SquotObjectCapturer.class/instance/captureGraph..st delete mode 100644 src/Squot.package/SquotObjectCapturer.class/instance/capturePrimitiveValue..st delete mode 100644 src/Squot.package/SquotObjectCapturer.class/instance/capturePrimitiveValue.in..st delete mode 100644 src/Squot.package/SquotObjectCapturer.class/instance/captureStandalone..st delete mode 100644 src/Squot.package/SquotObjectCapturer.class/instance/followReferences.st delete mode 100644 src/Squot.package/SquotObjectCapturer.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotObjectCapturer.class/instance/insideASegment.st delete mode 100644 src/Squot.package/SquotObjectCapturer.class/instance/nameOf..st delete mode 100644 src/Squot.package/SquotObjectCapturer.class/instance/nameOf.ifAbsent..st delete mode 100644 src/Squot.package/SquotObjectCapturer.class/instance/newNameFor..st delete mode 100644 src/Squot.package/SquotObjectCapturer.class/instance/newNameFor.reachedFrom.via..st delete mode 100644 src/Squot.package/SquotObjectCapturer.class/instance/objectGraph.st delete mode 100644 src/Squot.package/SquotObjectCapturer.class/instance/project.st delete mode 100644 src/Squot.package/SquotObjectCapturer.class/instance/projectChangeSet.st delete mode 100644 src/Squot.package/SquotObjectCapturer.class/instance/registry..st delete mode 100644 src/Squot.package/SquotObjectCapturer.class/instance/rememberAsShadowOfCapturedObject..st delete mode 100644 src/Squot.package/SquotObjectCapturer.class/instance/replace.with..st delete mode 100644 src/Squot.package/SquotObjectCapturer.class/instance/replacementForSlot.in.ifFound.ifNone..st delete mode 100644 src/Squot.package/SquotObjectCapturer.class/instance/rootName.st delete mode 100644 src/Squot.package/SquotObjectCapturer.class/instance/shadowOf.ifAbsentPut..st delete mode 100644 src/Squot.package/SquotObjectCapturer.class/instance/squotReplacementFor..st delete mode 100644 src/Squot.package/SquotObjectCapturer.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectCapturer.class/properties.json delete mode 100644 src/Squot.package/SquotObjectConflictMock.class/README.md delete mode 100644 src/Squot.package/SquotObjectConflictMock.class/class/on..st delete mode 100644 src/Squot.package/SquotObjectConflictMock.class/instance/object..st delete mode 100644 src/Squot.package/SquotObjectConflictMock.class/instance/object.st delete mode 100644 src/Squot.package/SquotObjectConflictMock.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectConflictMock.class/properties.json delete mode 100644 src/Squot.package/SquotObjectDiff.class/README.md delete mode 100644 src/Squot.package/SquotObjectDiff.class/class/left.right..st delete mode 100644 src/Squot.package/SquotObjectDiff.class/instance/addReferenceDiff..st delete mode 100644 src/Squot.package/SquotObjectDiff.class/instance/addSlotOnlyRight..st delete mode 100644 src/Squot.package/SquotObjectDiff.class/instance/addSlotOnlyRight.with..st delete mode 100644 src/Squot.package/SquotObjectDiff.class/instance/addTransitiveChangeIn..st delete mode 100644 src/Squot.package/SquotObjectDiff.class/instance/applyTo..st delete mode 100644 src/Squot.package/SquotObjectDiff.class/instance/applyTo.with..st delete mode 100644 src/Squot.package/SquotObjectDiff.class/instance/diff.against..st delete mode 100644 src/Squot.package/SquotObjectDiff.class/instance/diff.against.with..st delete mode 100644 src/Squot.package/SquotObjectDiff.class/instance/diffSlot.withCorrespondingSlotIn..st delete mode 100644 src/Squot.package/SquotObjectDiff.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotObjectDiff.class/instance/initializeFrom.to..st delete mode 100644 src/Squot.package/SquotObjectDiff.class/instance/initializeSquotDiffNodes.with..st delete mode 100644 src/Squot.package/SquotObjectDiff.class/instance/inspectorClass.st delete mode 100644 src/Squot.package/SquotObjectDiff.class/instance/newSquotDiffNodes.st delete mode 100644 src/Squot.package/SquotObjectDiff.class/instance/postCopy.st delete mode 100644 src/Squot.package/SquotObjectDiff.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotObjectDiff.class/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st delete mode 100644 src/Squot.package/SquotObjectDiff.class/instance/slotChanges.st delete mode 100644 src/Squot.package/SquotObjectDiff.class/instance/squotApplyTo..st delete mode 100644 src/Squot.package/SquotObjectDiff.class/instance/squotApplyTo.with..st delete mode 100644 src/Squot.package/SquotObjectDiff.class/instance/squotApplyToLoaded..st delete mode 100644 src/Squot.package/SquotObjectDiff.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotObjectDiff.class/instance/squotHasChanges.st delete mode 100644 src/Squot.package/SquotObjectDiff.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectDiff.class/properties.json delete mode 100644 src/Squot.package/SquotObjectDiffInspector.class/README.md delete mode 100644 src/Squot.package/SquotObjectDiffInspector.class/instance/fieldForReferenceDiff..st delete mode 100644 src/Squot.package/SquotObjectDiffInspector.class/instance/streamFieldsOn..st delete mode 100644 src/Squot.package/SquotObjectDiffInspector.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectDiffInspector.class/properties.json delete mode 100644 src/Squot.package/SquotObjectDiffMock.class/README.md delete mode 100644 src/Squot.package/SquotObjectDiffMock.class/instance/asSquotConflicts.st delete mode 100644 src/Squot.package/SquotObjectDiffMock.class/instance/conflicts..st delete mode 100644 src/Squot.package/SquotObjectDiffMock.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectDiffMock.class/properties.json delete mode 100644 src/Squot.package/SquotObjectDiffTest.class/README.md delete mode 100644 src/Squot.package/SquotObjectDiffTest.class/instance/assertDiffAgainstItselfHasNoChanges..st delete mode 100644 src/Squot.package/SquotObjectDiffTest.class/instance/diff.against..st delete mode 100644 src/Squot.package/SquotObjectDiffTest.class/instance/diff.againstItselfAfter..st delete mode 100644 src/Squot.package/SquotObjectDiffTest.class/instance/expectedFailures.st delete mode 100644 src/Squot.package/SquotObjectDiffTest.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotObjectDiffTest.class/instance/testAddObjects.st delete mode 100644 src/Squot.package/SquotObjectDiffTest.class/instance/testArrayOfDifferentlyTypedObjects.st delete mode 100644 src/Squot.package/SquotObjectDiffTest.class/instance/testArrayOfIntegers.st delete mode 100644 src/Squot.package/SquotObjectDiffTest.class/instance/testBooleans.st delete mode 100644 src/Squot.package/SquotObjectDiffTest.class/instance/testByteArray.st delete mode 100644 src/Squot.package/SquotObjectDiffTest.class/instance/testDictionary.st delete mode 100644 src/Squot.package/SquotObjectDiffTest.class/instance/testEmptyObjects.st delete mode 100644 src/Squot.package/SquotObjectDiffTest.class/instance/testEqualRectangles.st delete mode 100644 src/Squot.package/SquotObjectDiffTest.class/instance/testObjects.st delete mode 100644 src/Squot.package/SquotObjectDiffTest.class/instance/testPoints.st delete mode 100644 src/Squot.package/SquotObjectDiffTest.class/instance/testRectangles.st delete mode 100644 src/Squot.package/SquotObjectDiffTest.class/instance/testReferenceSwap.st delete mode 100644 src/Squot.package/SquotObjectDiffTest.class/instance/testSet.st delete mode 100644 src/Squot.package/SquotObjectDiffTest.class/instance/testSmallIntegers.st delete mode 100644 src/Squot.package/SquotObjectDiffTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectDiffTest.class/properties.json delete mode 100644 src/Squot.package/SquotObjectForDiffTests.class/README.md delete mode 100644 src/Squot.package/SquotObjectForDiffTests.class/instance/^equals.st delete mode 100644 src/Squot.package/SquotObjectForDiffTests.class/instance/hash.st delete mode 100644 src/Squot.package/SquotObjectForDiffTests.class/instance/var1..st delete mode 100644 src/Squot.package/SquotObjectForDiffTests.class/instance/var1.st delete mode 100644 src/Squot.package/SquotObjectForDiffTests.class/instance/var2..st delete mode 100644 src/Squot.package/SquotObjectForDiffTests.class/instance/var2.st delete mode 100644 src/Squot.package/SquotObjectForDiffTests.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectForDiffTests.class/properties.json delete mode 100644 src/Squot.package/SquotObjectGraph.class/README.md delete mode 100644 src/Squot.package/SquotObjectGraph.class/instance/anyObjectSatisfy..st delete mode 100644 src/Squot.package/SquotObjectGraph.class/instance/asShadowGraph.st delete mode 100644 src/Squot.package/SquotObjectGraph.class/instance/evictObjectNames.st delete mode 100644 src/Squot.package/SquotObjectGraph.class/instance/hasObjects.st delete mode 100644 src/Squot.package/SquotObjectGraph.class/instance/includes..st delete mode 100644 src/Squot.package/SquotObjectGraph.class/instance/includesObjectNamed..st delete mode 100644 src/Squot.package/SquotObjectGraph.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotObjectGraph.class/instance/objectNamed..st delete mode 100644 src/Squot.package/SquotObjectGraph.class/instance/objectNamed.ifAbsent..st delete mode 100644 src/Squot.package/SquotObjectGraph.class/instance/postCopy.st delete mode 100644 src/Squot.package/SquotObjectGraph.class/instance/roots.st delete mode 100644 src/Squot.package/SquotObjectGraph.class/instance/startObject.st delete mode 100644 src/Squot.package/SquotObjectGraph.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectGraph.class/properties.json delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/README.md delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/addDiff.forObjectNamed..st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/addModificationsAsConflicts..st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/addShadow.named..st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/asSquotHierarchicalDiff.st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/asStartDiff.st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/diffForObjectNamed..st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/diffForObjectNamed.ifAbsent..st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/diffs.st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/diffsDo..st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/diffsWithNamesDo..st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/hasChanges.st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/initializeSquotDiffNodes.with..st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/left..st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/left.st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/modifications.st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/newSquotDiffNodes.st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/postCopy.st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/right..st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/right.st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/roots.st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/squotApplyTo..st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/squotApplyToLoaded..st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/squotHasChanges.st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/startDiff.st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/startObjectName..st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/instance/startObjectName.st delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectGraphDiff.class/properties.json delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoff.class/README.md delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoff.class/class/for..st delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoff.class/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoff.class/instance/setGraphDiff..st delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoff.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoff.class/properties.json delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoffReference.class/README.md delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoffReference.class/class/reference.leftOwner.reflectedIn.rightOwner.reflectedIn.objectDiff..st delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/isAddition.st delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/isModification.st delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/isRemoval.st delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/leftOwnerMirror..st delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/leftOwnerMirror.st delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/objectDiff..st delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/objectDiff.st delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/rightOwnerMirror..st delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/rightOwnerMirror.st delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/setReference.leftOwner.leftOwnerMirror.rightOwner.rightOwnerMirror.objectDiff..st delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/squotReflectOn.in..st delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/squotReflectOn.in.withValue..st delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/squotValueShadowFrom.reflectedIn..st delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoffReference.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoffReference.class/properties.json delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoffStartReference.class/README.md delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoffStartReference.class/instance/squotReflectOn.in.withValue..st delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoffStartReference.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectGraphDiffKickoffStartReference.class/properties.json delete mode 100644 src/Squot.package/SquotObjectGraphDiffTest.class/README.md delete mode 100644 src/Squot.package/SquotObjectGraphDiffTest.class/instance/assertDiffAgainstItselfHasNoChanges..st delete mode 100644 src/Squot.package/SquotObjectGraphDiffTest.class/instance/diff.against..st delete mode 100644 src/Squot.package/SquotObjectGraphDiffTest.class/instance/diff.againstItselfAfter..st delete mode 100644 src/Squot.package/SquotObjectGraphDiffTest.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotObjectGraphDiffTest.class/instance/testAddObjects.st delete mode 100644 src/Squot.package/SquotObjectGraphDiffTest.class/instance/testAddSubgraph.st delete mode 100644 src/Squot.package/SquotObjectGraphDiffTest.class/instance/testArrayOfDifferentlyTypedObjects.st delete mode 100644 src/Squot.package/SquotObjectGraphDiffTest.class/instance/testArrayOfIntegers.st delete mode 100644 src/Squot.package/SquotObjectGraphDiffTest.class/instance/testByteArray.st delete mode 100644 src/Squot.package/SquotObjectGraphDiffTest.class/instance/testCyclicReferences.st delete mode 100644 src/Squot.package/SquotObjectGraphDiffTest.class/instance/testDeepChanges.st delete mode 100644 src/Squot.package/SquotObjectGraphDiffTest.class/instance/testDeepChanges2.st delete mode 100644 src/Squot.package/SquotObjectGraphDiffTest.class/instance/testDeepChanges3.st delete mode 100644 src/Squot.package/SquotObjectGraphDiffTest.class/instance/testDictionariesWithComplexKeys.st delete mode 100644 src/Squot.package/SquotObjectGraphDiffTest.class/instance/testDictionariesWithSharedAssociations.st delete mode 100644 src/Squot.package/SquotObjectGraphDiffTest.class/instance/testDictionary.st delete mode 100644 src/Squot.package/SquotObjectGraphDiffTest.class/instance/testIdentityReplacedObject.st delete mode 100644 src/Squot.package/SquotObjectGraphDiffTest.class/instance/testMoveObjectCloserToStart.st delete mode 100644 src/Squot.package/SquotObjectGraphDiffTest.class/instance/testObjects.st delete mode 100644 src/Squot.package/SquotObjectGraphDiffTest.class/instance/testRectangles.st delete mode 100644 src/Squot.package/SquotObjectGraphDiffTest.class/instance/testReferenceSwap.st delete mode 100644 src/Squot.package/SquotObjectGraphDiffTest.class/instance/testReplacedObject.st delete mode 100644 src/Squot.package/SquotObjectGraphDiffTest.class/instance/testReplacedObject2.st delete mode 100644 src/Squot.package/SquotObjectGraphDiffTest.class/instance/testSet.st delete mode 100644 src/Squot.package/SquotObjectGraphDiffTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectGraphDiffTest.class/properties.json delete mode 100644 src/Squot.package/SquotObjectGraphMerge.class/README.md delete mode 100644 src/Squot.package/SquotObjectGraphMerge.class/instance/addConflict..st delete mode 100644 src/Squot.package/SquotObjectGraphMerge.class/instance/asSquotHierarchicalDiff.st delete mode 100644 src/Squot.package/SquotObjectGraphMerge.class/instance/chooseIncoming.st delete mode 100644 src/Squot.package/SquotObjectGraphMerge.class/instance/chooseWorking.st delete mode 100644 src/Squot.package/SquotObjectGraphMerge.class/instance/computeDifferences.st delete mode 100644 src/Squot.package/SquotObjectGraphMerge.class/instance/diffs.st delete mode 100644 src/Squot.package/SquotObjectGraphMerge.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotObjectGraphMerge.class/instance/initializeSquotDiffNodes.with..st delete mode 100644 src/Squot.package/SquotObjectGraphMerge.class/instance/keyOf.ifAbsent..st delete mode 100644 src/Squot.package/SquotObjectGraphMerge.class/instance/mergeAt..st delete mode 100644 src/Squot.package/SquotObjectGraphMerge.class/instance/mergeObject.with.basedOn..st delete mode 100644 src/Squot.package/SquotObjectGraphMerge.class/instance/mergeOfStartObject.st delete mode 100644 src/Squot.package/SquotObjectGraphMerge.class/instance/mergeStartReferencesToStart..st delete mode 100644 src/Squot.package/SquotObjectGraphMerge.class/instance/modifications.st delete mode 100644 src/Squot.package/SquotObjectGraphMerge.class/instance/newSquotDiffNodes.st delete mode 100644 src/Squot.package/SquotObjectGraphMerge.class/instance/privateResolvedPatch.st delete mode 100644 src/Squot.package/SquotObjectGraphMerge.class/instance/resetChoice.st delete mode 100644 src/Squot.package/SquotObjectGraphMerge.class/instance/show.nextAfter..st delete mode 100644 src/Squot.package/SquotObjectGraphMerge.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotObjectGraphMerge.class/instance/working..st delete mode 100644 src/Squot.package/SquotObjectGraphMerge.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectGraphMerge.class/properties.json delete mode 100644 src/Squot.package/SquotObjectGraphMergeTest.class/README.md delete mode 100644 src/Squot.package/SquotObjectGraphMergeTest.class/instance/testResolvedPatchHasStates.st delete mode 100644 src/Squot.package/SquotObjectGraphMergeTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectGraphMergeTest.class/properties.json delete mode 100644 src/Squot.package/SquotObjectGraphMirror.class/README.md delete mode 100644 src/Squot.package/SquotObjectGraphMirror.class/class/initialize.st delete mode 100644 src/Squot.package/SquotObjectGraphMirror.class/instance/defaultMirrorOf..st delete mode 100644 src/Squot.package/SquotObjectGraphMirror.class/instance/mirrorOf.reachedVia.from..st delete mode 100644 src/Squot.package/SquotObjectGraphMirror.class/instance/referencesFrom..st delete mode 100644 src/Squot.package/SquotObjectGraphMirror.class/instance/reflectGraphElementWithName.in..st delete mode 100644 src/Squot.package/SquotObjectGraphMirror.class/instance/search.for..st delete mode 100644 src/Squot.package/SquotObjectGraphMirror.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectGraphMirror.class/properties.json delete mode 100644 src/Squot.package/SquotObjectGraphReference.class/README.md delete mode 100644 src/Squot.package/SquotObjectGraphReference.class/class/diff.objectName..st delete mode 100644 src/Squot.package/SquotObjectGraphReference.class/instance/newNameFragment.st delete mode 100644 src/Squot.package/SquotObjectGraphReference.class/instance/objectDiff..st delete mode 100644 src/Squot.package/SquotObjectGraphReference.class/instance/objectDiff.st delete mode 100644 src/Squot.package/SquotObjectGraphReference.class/instance/objectName..st delete mode 100644 src/Squot.package/SquotObjectGraphReference.class/instance/objectName.st delete mode 100644 src/Squot.package/SquotObjectGraphReference.class/instance/reflect.in..st delete mode 100644 src/Squot.package/SquotObjectGraphReference.class/instance/reflect.in.put..st delete mode 100644 src/Squot.package/SquotObjectGraphReference.class/instance/setDiff.objectName..st delete mode 100644 src/Squot.package/SquotObjectGraphReference.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectGraphReference.class/properties.json delete mode 100644 src/Squot.package/SquotObjectMaterializeTest.class/README.md delete mode 100644 src/Squot.package/SquotObjectMaterializeTest.class/instance/captureAndRestore..st delete mode 100644 src/Squot.package/SquotObjectMaterializeTest.class/instance/captureInValueHolderThenRestoreAndCompare..st delete mode 100644 src/Squot.package/SquotObjectMaterializeTest.class/instance/captureRestoreAndCompare..st delete mode 100644 src/Squot.package/SquotObjectMaterializeTest.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotObjectMaterializeTest.class/instance/testArrayOfIntegers.st delete mode 100644 src/Squot.package/SquotObjectMaterializeTest.class/instance/testBooleans.st delete mode 100644 src/Squot.package/SquotObjectMaterializeTest.class/instance/testCyclicReferences.st delete mode 100644 src/Squot.package/SquotObjectMaterializeTest.class/instance/testCyclicReferences2.st delete mode 100644 src/Squot.package/SquotObjectMaterializeTest.class/instance/testDictionariesWithComplexKeys.st delete mode 100644 src/Squot.package/SquotObjectMaterializeTest.class/instance/testDictionariesWithSharedAssociations.st delete mode 100644 src/Squot.package/SquotObjectMaterializeTest.class/instance/testDictionary.st delete mode 100644 src/Squot.package/SquotObjectMaterializeTest.class/instance/testEmptyObject.st delete mode 100644 src/Squot.package/SquotObjectMaterializeTest.class/instance/testIdentityDictionaries.st delete mode 100644 src/Squot.package/SquotObjectMaterializeTest.class/instance/testIdentityReplacedObject.st delete mode 100644 src/Squot.package/SquotObjectMaterializeTest.class/instance/testIdentitySet.st delete mode 100644 src/Squot.package/SquotObjectMaterializeTest.class/instance/testNil.st delete mode 100644 src/Squot.package/SquotObjectMaterializeTest.class/instance/testPoint.st delete mode 100644 src/Squot.package/SquotObjectMaterializeTest.class/instance/testRectangle.st delete mode 100644 src/Squot.package/SquotObjectMaterializeTest.class/instance/testReplacedObject2.st delete mode 100644 src/Squot.package/SquotObjectMaterializeTest.class/instance/testSet.st delete mode 100644 src/Squot.package/SquotObjectMaterializeTest.class/instance/testSetHashing.st delete mode 100644 src/Squot.package/SquotObjectMaterializeTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectMaterializeTest.class/properties.json delete mode 100644 src/Squot.package/SquotObjectMaterializeWithSharedRegistryTest.class/README.md delete mode 100644 src/Squot.package/SquotObjectMaterializeWithSharedRegistryTest.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotObjectMaterializeWithSharedRegistryTest.class/instance/testSameReferencedInstance.st delete mode 100644 src/Squot.package/SquotObjectMaterializeWithSharedRegistryTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectMaterializeWithSharedRegistryTest.class/properties.json delete mode 100644 src/Squot.package/SquotObjectMergeMock.class/README.md delete mode 100644 src/Squot.package/SquotObjectMergeMock.class/instance/hasChanges..st delete mode 100644 src/Squot.package/SquotObjectMergeMock.class/instance/hasChanges.st delete mode 100644 src/Squot.package/SquotObjectMergeMock.class/instance/hasConflicts..st delete mode 100644 src/Squot.package/SquotObjectMergeMock.class/instance/hasConflicts.st delete mode 100644 src/Squot.package/SquotObjectMergeMock.class/instance/object..st delete mode 100644 src/Squot.package/SquotObjectMergeMock.class/instance/object.st delete mode 100644 src/Squot.package/SquotObjectMergeMock.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectMergeMock.class/properties.json delete mode 100644 src/Squot.package/SquotObjectMetadataFile.class/README.md delete mode 100644 src/Squot.package/SquotObjectMetadataFile.class/class/forObjectAt..st delete mode 100644 src/Squot.package/SquotObjectMetadataFile.class/class/metadataFileName.st delete mode 100644 src/Squot.package/SquotObjectMetadataFile.class/class/on..st delete mode 100644 src/Squot.package/SquotObjectMetadataFile.class/class/referenceToMetadataFileForDirectory..st delete mode 100644 src/Squot.package/SquotObjectMetadataFile.class/class/referenceToMetadataFileForFile..st delete mode 100644 src/Squot.package/SquotObjectMetadataFile.class/instance/applyTo..st delete mode 100644 src/Squot.package/SquotObjectMetadataFile.class/instance/artifactClass.st delete mode 100644 src/Squot.package/SquotObjectMetadataFile.class/instance/delete.st delete mode 100644 src/Squot.package/SquotObjectMetadataFile.class/instance/errorNotFound..st delete mode 100644 src/Squot.package/SquotObjectMetadataFile.class/instance/initializeWith..st delete mode 100644 src/Squot.package/SquotObjectMetadataFile.class/instance/isPresent.st delete mode 100644 src/Squot.package/SquotObjectMetadataFile.class/instance/metadata.st delete mode 100644 src/Squot.package/SquotObjectMetadataFile.class/instance/metadataFile.st delete mode 100644 src/Squot.package/SquotObjectMetadataFile.class/instance/objectClassName.st delete mode 100644 src/Squot.package/SquotObjectMetadataFile.class/instance/serializerName.st delete mode 100644 src/Squot.package/SquotObjectMetadataFile.class/instance/updateFrom..st delete mode 100644 src/Squot.package/SquotObjectMetadataFile.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectMetadataFile.class/properties.json delete mode 100644 src/Squot.package/SquotObjectMirror.class/README.md delete mode 100644 src/Squot.package/SquotObjectMirror.class/class/class..st delete mode 100644 src/Squot.package/SquotObjectMirror.class/instance/^equals.st delete mode 100644 src/Squot.package/SquotObjectMirror.class/instance/canHaveReferences..st delete mode 100644 src/Squot.package/SquotObjectMirror.class/instance/capture.with.ifReplaced..st delete mode 100644 src/Squot.package/SquotObjectMirror.class/instance/hash.st delete mode 100644 src/Squot.package/SquotObjectMirror.class/instance/initializeSnapshot.of.with..st delete mode 100644 src/Squot.package/SquotObjectMirror.class/instance/is.comparableTo..st delete mode 100644 src/Squot.package/SquotObjectMirror.class/instance/newDiffFrom.to..st delete mode 100644 src/Squot.package/SquotObjectMirror.class/instance/newShadowObject.st delete mode 100644 src/Squot.package/SquotObjectMirror.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotObjectMirror.class/instance/referencesFrom..st delete mode 100644 src/Squot.package/SquotObjectMirror.class/instance/reflectIndexableField.in..st delete mode 100644 src/Squot.package/SquotObjectMirror.class/instance/reflectIndexableField.in.put..st delete mode 100644 src/Squot.package/SquotObjectMirror.class/instance/reflectInstanceVariable.in..st delete mode 100644 src/Squot.package/SquotObjectMirror.class/instance/reflectInstanceVariable.in.put..st delete mode 100644 src/Squot.package/SquotObjectMirror.class/instance/setClass..st delete mode 100644 src/Squot.package/SquotObjectMirror.class/instance/shadowFactory.st delete mode 100644 src/Squot.package/SquotObjectMirror.class/instance/shouldObjectHaveNameAssigned..st delete mode 100644 src/Squot.package/SquotObjectMirror.class/instance/theClass.st delete mode 100644 src/Squot.package/SquotObjectMirror.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectMirror.class/properties.json delete mode 100644 src/Squot.package/SquotObjectPatchingTest.class/README.md delete mode 100644 src/Squot.package/SquotObjectPatchingTest.class/instance/apply.to..st delete mode 100644 src/Squot.package/SquotObjectPatchingTest.class/instance/patch.to..st delete mode 100644 src/Squot.package/SquotObjectPatchingTest.class/instance/patchedFrom.to..st delete mode 100644 src/Squot.package/SquotObjectPatchingTest.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotObjectPatchingTest.class/instance/testAddObjectThatRefersToExisting.st delete mode 100644 src/Squot.package/SquotObjectPatchingTest.class/instance/testAddObjects.st delete mode 100644 src/Squot.package/SquotObjectPatchingTest.class/instance/testAddSubgraph.st delete mode 100644 src/Squot.package/SquotObjectPatchingTest.class/instance/testAddSubgraph2.st delete mode 100644 src/Squot.package/SquotObjectPatchingTest.class/instance/testArrayGrow.st delete mode 100644 src/Squot.package/SquotObjectPatchingTest.class/instance/testArrayShrink.st delete mode 100644 src/Squot.package/SquotObjectPatchingTest.class/instance/testArraySwap.st delete mode 100644 src/Squot.package/SquotObjectPatchingTest.class/instance/testCyclicReferences.st delete mode 100644 src/Squot.package/SquotObjectPatchingTest.class/instance/testCyclicReferences2.st delete mode 100644 src/Squot.package/SquotObjectPatchingTest.class/instance/testDictionary.st delete mode 100644 src/Squot.package/SquotObjectPatchingTest.class/instance/testNestedArray.st delete mode 100644 src/Squot.package/SquotObjectPatchingTest.class/instance/testRemoveComplexValueObject.st delete mode 100644 src/Squot.package/SquotObjectPatchingTest.class/instance/testReplacedObject.st delete mode 100644 src/Squot.package/SquotObjectPatchingTest.class/instance/testReplacedObject2.st delete mode 100644 src/Squot.package/SquotObjectPatchingTest.class/instance/testSet.st delete mode 100644 src/Squot.package/SquotObjectPatchingTest.class/instance/testTypeChange.st delete mode 100644 src/Squot.package/SquotObjectPatchingTest.class/instance/testUnchangedObjectsAreKept.st delete mode 100644 src/Squot.package/SquotObjectPatchingTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectPatchingTest.class/properties.json delete mode 100644 src/Squot.package/SquotObjectReferenceConflict.class/README.md delete mode 100644 src/Squot.package/SquotObjectReferenceConflict.class/class/key.base.working.incoming..st delete mode 100644 src/Squot.package/SquotObjectReferenceConflict.class/instance/chooseIncoming.st delete mode 100644 src/Squot.package/SquotObjectReferenceConflict.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotObjectReferenceConflict.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectReferenceConflict.class/properties.json delete mode 100644 src/Squot.package/SquotObjectReferenceInGraph.class/README.md delete mode 100644 src/Squot.package/SquotObjectReferenceInGraph.class/instance/graph..st delete mode 100644 src/Squot.package/SquotObjectReferenceInGraph.class/instance/graph.st delete mode 100644 src/Squot.package/SquotObjectReferenceInGraph.class/instance/inGraph..st delete mode 100644 src/Squot.package/SquotObjectReferenceInGraph.class/instance/squotOutgoingReferences.st delete mode 100644 src/Squot.package/SquotObjectReferenceInGraph.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectReferenceInGraph.class/properties.json delete mode 100644 src/Squot.package/SquotObjectReflection.class/README.md delete mode 100644 src/Squot.package/SquotObjectReflection.class/class/object.mirror..st delete mode 100644 src/Squot.package/SquotObjectReflection.class/instance/canHaveReferences.st delete mode 100644 src/Squot.package/SquotObjectReflection.class/instance/isComparableTo..st delete mode 100644 src/Squot.package/SquotObjectReflection.class/instance/mirror.st delete mode 100644 src/Squot.package/SquotObjectReflection.class/instance/nextMirror..st delete mode 100644 src/Squot.package/SquotObjectReflection.class/instance/object.st delete mode 100644 src/Squot.package/SquotObjectReflection.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotObjectReflection.class/instance/references.st delete mode 100644 src/Squot.package/SquotObjectReflection.class/instance/reflect..st delete mode 100644 src/Squot.package/SquotObjectReflection.class/instance/setMirror.object..st delete mode 100644 src/Squot.package/SquotObjectReflection.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectReflection.class/properties.json delete mode 100644 src/Squot.package/SquotObjectRegistry.class/README.md delete mode 100644 src/Squot.package/SquotObjectRegistry.class/class/squotMirror.st delete mode 100644 src/Squot.package/SquotObjectRegistry.class/instance/anySatisfy..st delete mode 100644 src/Squot.package/SquotObjectRegistry.class/instance/assign.to..st delete mode 100644 src/Squot.package/SquotObjectRegistry.class/instance/creatorOf.ifAbsentPut.of..st delete mode 100644 src/Squot.package/SquotObjectRegistry.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotObjectRegistry.class/instance/nameOf..st delete mode 100644 src/Squot.package/SquotObjectRegistry.class/instance/nameOf.ifAbsent..st delete mode 100644 src/Squot.package/SquotObjectRegistry.class/instance/nameOf.ifAbsentAssign..st delete mode 100644 src/Squot.package/SquotObjectRegistry.class/instance/objectNamed..st delete mode 100644 src/Squot.package/SquotObjectRegistry.class/instance/objectNamed.ifAbsent..st delete mode 100644 src/Squot.package/SquotObjectRegistry.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectRegistry.class/properties.json delete mode 100644 src/Squot.package/SquotObjectRegistryMirror.class/README.md delete mode 100644 src/Squot.package/SquotObjectRegistryMirror.class/instance/canHaveReferences..st delete mode 100644 src/Squot.package/SquotObjectRegistryMirror.class/instance/capture.with.ifReplaced..st delete mode 100644 src/Squot.package/SquotObjectRegistryMirror.class/instance/is.comparableTo..st delete mode 100644 src/Squot.package/SquotObjectRegistryMirror.class/instance/newDiffFrom.to..st delete mode 100644 src/Squot.package/SquotObjectRegistryMirror.class/instance/referencesFrom..st delete mode 100644 src/Squot.package/SquotObjectRegistryMirror.class/instance/reflectGraphElementWithName.in..st delete mode 100644 src/Squot.package/SquotObjectRegistryMirror.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectRegistryMirror.class/properties.json delete mode 100644 src/Squot.package/SquotObjectRegistryTest.class/README.md delete mode 100644 src/Squot.package/SquotObjectRegistryTest.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotObjectRegistryTest.class/instance/testNilDoesNotInheritNameOfGarbageCollectedObject.st delete mode 100644 src/Squot.package/SquotObjectRegistryTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectRegistryTest.class/properties.json delete mode 100644 src/Squot.package/SquotObjectRemoval.class/README.md delete mode 100644 src/Squot.package/SquotObjectRemoval.class/class/of..st delete mode 100644 src/Squot.package/SquotObjectRemoval.class/instance/applyToShadowNamed.inGraph..st delete mode 100644 src/Squot.package/SquotObjectRemoval.class/instance/object.st delete mode 100644 src/Squot.package/SquotObjectRemoval.class/instance/setObject..st delete mode 100644 src/Squot.package/SquotObjectRemoval.class/instance/squotApplyTo..st delete mode 100644 src/Squot.package/SquotObjectRemoval.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotObjectRemoval.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectRemoval.class/properties.json delete mode 100644 src/Squot.package/SquotObjectReplacement.class/README.md delete mode 100644 src/Squot.package/SquotObjectReplacement.class/class/left.right..st delete mode 100644 src/Squot.package/SquotObjectReplacement.class/instance/addReferenceDiff..st delete mode 100644 src/Squot.package/SquotObjectReplacement.class/instance/addTransitiveChangeIn..st delete mode 100644 src/Squot.package/SquotObjectReplacement.class/instance/applyToShadowNamed.inGraph..st delete mode 100644 src/Squot.package/SquotObjectReplacement.class/instance/asSquotConflicts.st delete mode 100644 src/Squot.package/SquotObjectReplacement.class/instance/incoming.st delete mode 100644 src/Squot.package/SquotObjectReplacement.class/instance/initializeFrom.to..st delete mode 100644 src/Squot.package/SquotObjectReplacement.class/instance/initializeSquotDiffNodes.with..st delete mode 100644 src/Squot.package/SquotObjectReplacement.class/instance/left..st delete mode 100644 src/Squot.package/SquotObjectReplacement.class/instance/left.st delete mode 100644 src/Squot.package/SquotObjectReplacement.class/instance/newSquotDiffNodes.st delete mode 100644 src/Squot.package/SquotObjectReplacement.class/instance/object.st delete mode 100644 src/Squot.package/SquotObjectReplacement.class/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st delete mode 100644 src/Squot.package/SquotObjectReplacement.class/instance/right..st delete mode 100644 src/Squot.package/SquotObjectReplacement.class/instance/right.st delete mode 100644 src/Squot.package/SquotObjectReplacement.class/instance/rightName.st delete mode 100644 src/Squot.package/SquotObjectReplacement.class/instance/squotApplyTo..st delete mode 100644 src/Squot.package/SquotObjectReplacement.class/instance/squotApplyTo.with..st delete mode 100644 src/Squot.package/SquotObjectReplacement.class/instance/squotApplyToLoaded..st delete mode 100644 src/Squot.package/SquotObjectReplacement.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotObjectReplacement.class/instance/squotHasChanges.st delete mode 100644 src/Squot.package/SquotObjectReplacement.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectReplacement.class/properties.json delete mode 100644 src/Squot.package/SquotObjectShadow.class/README.md delete mode 100644 src/Squot.package/SquotObjectShadow.class/class/squotMirror.st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/addInstVarNamed.withValue.with..st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/addInstVarSlot..st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/addVariablePartSlot..st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/addVariableSlotAt.withValue.with..st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/applyDiff..st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/applyDiff.with..st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/assumeOriginalClassOf..st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/basicSizeOfMaterializedInstance.st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/captureWithSquot..st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/capturedClass.st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/diffClass.st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/diffToBaseObjectShadow..st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/explorerContents.st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/hasContentsInExplorer.st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/includesSlot..st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/initializeFrom.with..st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/instVarSlotNamed..st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/name.st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/originalClass.st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/postCopy.st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/privateApplyDiff..st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/privateApplyDiff.with..st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/reassignSlot.to..st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/references.st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/removeInstVarNamed..st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/removeVariablePartSlot..st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/sameIn.withName.ifAbsent..st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/setOriginalClass.capturedClass..st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/slots.st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/squotDiffAgainst..st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/squotDiffAgainst.with..st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/squotMaterializeWith..st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/squotMergeWith.basedOn..st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/squotOutgoingReferences.st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/variablePartSlotWithIndex..st delete mode 100644 src/Squot.package/SquotObjectShadow.class/instance/variableSlots.st delete mode 100644 src/Squot.package/SquotObjectShadow.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectShadow.class/properties.json delete mode 100644 src/Squot.package/SquotObjectShadowMerge.class/README.md delete mode 100644 src/Squot.package/SquotObjectShadowMerge.class/instance/chooseIncoming.st delete mode 100644 src/Squot.package/SquotObjectShadowMerge.class/instance/chooseWorking.st delete mode 100644 src/Squot.package/SquotObjectShadowMerge.class/instance/computeDifferences.st delete mode 100644 src/Squot.package/SquotObjectShadowMerge.class/instance/hasChanges.st delete mode 100644 src/Squot.package/SquotObjectShadowMerge.class/instance/initializeSquotDiffNodes.with..st delete mode 100644 src/Squot.package/SquotObjectShadowMerge.class/instance/newSquotDiffNodes.st delete mode 100644 src/Squot.package/SquotObjectShadowMerge.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotObjectShadowMerge.class/instance/privateResolvedPatch.st delete mode 100644 src/Squot.package/SquotObjectShadowMerge.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotObjectShadowMerge.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectShadowMerge.class/properties.json delete mode 100644 src/Squot.package/SquotObjectShadowMirror.class/README.md delete mode 100644 src/Squot.package/SquotObjectShadowMirror.class/class/class..st delete mode 100644 src/Squot.package/SquotObjectShadowMirror.class/instance/^equals.st delete mode 100644 src/Squot.package/SquotObjectShadowMirror.class/instance/canHaveReferences..st delete mode 100644 src/Squot.package/SquotObjectShadowMirror.class/instance/capture.with.ifReplaced..st delete mode 100644 src/Squot.package/SquotObjectShadowMirror.class/instance/captureReferences.from.reflectedIn.into.with..st delete mode 100644 src/Squot.package/SquotObjectShadowMirror.class/instance/hash.st delete mode 100644 src/Squot.package/SquotObjectShadowMirror.class/instance/is.comparableTo..st delete mode 100644 src/Squot.package/SquotObjectShadowMirror.class/instance/newDiffFrom.to..st delete mode 100644 src/Squot.package/SquotObjectShadowMirror.class/instance/newShadowObject.st delete mode 100644 src/Squot.package/SquotObjectShadowMirror.class/instance/referencesFrom..st delete mode 100644 src/Squot.package/SquotObjectShadowMirror.class/instance/reflectIndexableField.in..st delete mode 100644 src/Squot.package/SquotObjectShadowMirror.class/instance/reflectIndexableField.in.put..st delete mode 100644 src/Squot.package/SquotObjectShadowMirror.class/instance/reflectInstanceVariable.in..st delete mode 100644 src/Squot.package/SquotObjectShadowMirror.class/instance/reflectInstanceVariable.in.put..st delete mode 100644 src/Squot.package/SquotObjectShadowMirror.class/instance/shouldObjectHaveNameAssigned..st delete mode 100644 src/Squot.package/SquotObjectShadowMirror.class/methodProperties.json delete mode 100644 src/Squot.package/SquotObjectShadowMirror.class/properties.json delete mode 100644 src/Squot.package/SquotOpaqueValueMirror.class/README.md delete mode 100644 src/Squot.package/SquotOpaqueValueMirror.class/instance/^equals.st delete mode 100644 src/Squot.package/SquotOpaqueValueMirror.class/instance/canHaveReferences..st delete mode 100644 src/Squot.package/SquotOpaqueValueMirror.class/instance/capture.with.ifReplaced..st delete mode 100644 src/Squot.package/SquotOpaqueValueMirror.class/instance/hash.st delete mode 100644 src/Squot.package/SquotOpaqueValueMirror.class/instance/is.comparableTo..st delete mode 100644 src/Squot.package/SquotOpaqueValueMirror.class/instance/newDiffFrom.to..st delete mode 100644 src/Squot.package/SquotOpaqueValueMirror.class/instance/referencesFrom..st delete mode 100644 src/Squot.package/SquotOpaqueValueMirror.class/instance/shouldObjectHaveNameAssigned..st delete mode 100644 src/Squot.package/SquotOpaqueValueMirror.class/methodProperties.json delete mode 100644 src/Squot.package/SquotOpaqueValueMirror.class/properties.json delete mode 100644 src/Squot.package/SquotPackageAutotrackingTest.class/README.md delete mode 100644 src/Squot.package/SquotPackageAutotrackingTest.class/instance/initializePackage.st delete mode 100644 src/Squot.package/SquotPackageAutotrackingTest.class/instance/packagePath.st delete mode 100644 src/Squot.package/SquotPackageAutotrackingTest.class/instance/savePackage.st delete mode 100644 src/Squot.package/SquotPackageAutotrackingTest.class/instance/savePackageAndKeep.st delete mode 100644 src/Squot.package/SquotPackageAutotrackingTest.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotPackageAutotrackingTest.class/instance/tearDown.st delete mode 100644 src/Squot.package/SquotPackageAutotrackingTest.class/instance/testPackageTrackedAutomaticallyOnLoad.st delete mode 100644 src/Squot.package/SquotPackageAutotrackingTest.class/instance/testSwitchAndMoveOverDoesNotDiscardChangesToUntrackedPackage.st delete mode 100644 src/Squot.package/SquotPackageAutotrackingTest.class/instance/testSwitchDoesNotDiscardChangesToUntrackedPackage.st delete mode 100644 src/Squot.package/SquotPackageAutotrackingTest.class/instance/trackPackage.st delete mode 100644 src/Squot.package/SquotPackageAutotrackingTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotPackageAutotrackingTest.class/properties.json delete mode 100644 src/Squot.package/SquotPackageDiff.class/README.md delete mode 100644 src/Squot.package/SquotPackageDiff.class/class/left.withSnapshot.right.withSnapshot..st delete mode 100644 src/Squot.package/SquotPackageDiff.class/class/modificationsGroupedByClass..st delete mode 100644 src/Squot.package/SquotPackageDiff.class/instance/addOperationOrConflict..st delete mode 100644 src/Squot.package/SquotPackageDiff.class/instance/asSquotConflicts.st delete mode 100644 src/Squot.package/SquotPackageDiff.class/instance/base.st delete mode 100644 src/Squot.package/SquotPackageDiff.class/instance/incoming..st delete mode 100644 src/Squot.package/SquotPackageDiff.class/instance/incoming.st delete mode 100644 src/Squot.package/SquotPackageDiff.class/instance/initializeFrom.to..st delete mode 100644 src/Squot.package/SquotPackageDiff.class/instance/initializeSquotDiffNodes.with..st delete mode 100644 src/Squot.package/SquotPackageDiff.class/instance/left.withSnapshot.right.withSnapshot..st delete mode 100644 src/Squot.package/SquotPackageDiff.class/instance/newSquotDiffNodes.st delete mode 100644 src/Squot.package/SquotPackageDiff.class/instance/object.st delete mode 100644 src/Squot.package/SquotPackageDiff.class/instance/operations.st delete mode 100644 src/Squot.package/SquotPackageDiff.class/instance/operationsAndConflicts.st delete mode 100644 src/Squot.package/SquotPackageDiff.class/instance/packageName.st delete mode 100644 src/Squot.package/SquotPackageDiff.class/instance/patch.st delete mode 100644 src/Squot.package/SquotPackageDiff.class/instance/postCopy.st delete mode 100644 src/Squot.package/SquotPackageDiff.class/instance/removeOperationOrConflict..st delete mode 100644 src/Squot.package/SquotPackageDiff.class/instance/squotApplyTo..st delete mode 100644 src/Squot.package/SquotPackageDiff.class/instance/squotApplyTo.with..st delete mode 100644 src/Squot.package/SquotPackageDiff.class/instance/squotApplyToLoaded..st delete mode 100644 src/Squot.package/SquotPackageDiff.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotPackageDiff.class/instance/squotHasChanges.st delete mode 100644 src/Squot.package/SquotPackageDiff.class/instance/update.reflectedIn.asMaterializedFrom.reflectedIn..st delete mode 100644 src/Squot.package/SquotPackageDiff.class/instance/working..st delete mode 100644 src/Squot.package/SquotPackageDiff.class/instance/working.st delete mode 100644 src/Squot.package/SquotPackageDiff.class/methodProperties.json delete mode 100644 src/Squot.package/SquotPackageDiff.class/properties.json delete mode 100644 src/Squot.package/SquotPackageDiffClassChanges.class/README.md delete mode 100644 src/Squot.package/SquotPackageDiffClassChanges.class/instance/actualClassInSquotWorkingCopy..st delete mode 100644 src/Squot.package/SquotPackageDiffClassChanges.class/instance/browseFromSquotWorkingCopyArtifact..st delete mode 100644 src/Squot.package/SquotPackageDiffClassChanges.class/instance/classDefinition..st delete mode 100644 src/Squot.package/SquotPackageDiffClassChanges.class/instance/classDefinition.st delete mode 100644 src/Squot.package/SquotPackageDiffClassChanges.class/instance/className..st delete mode 100644 src/Squot.package/SquotPackageDiffClassChanges.class/instance/className.st delete mode 100644 src/Squot.package/SquotPackageDiffClassChanges.class/instance/classShadowFromArtifact..st delete mode 100644 src/Squot.package/SquotPackageDiffClassChanges.class/instance/conflicts..st delete mode 100644 src/Squot.package/SquotPackageDiffClassChanges.class/instance/conflicts.st delete mode 100644 src/Squot.package/SquotPackageDiffClassChanges.class/instance/diffTreeNode..st delete mode 100644 src/Squot.package/SquotPackageDiffClassChanges.class/instance/diffTreeNode.st delete mode 100644 src/Squot.package/SquotPackageDiffClassChanges.class/instance/ignoreInSquot.st delete mode 100644 src/Squot.package/SquotPackageDiffClassChanges.class/instance/isCurrentlyIgnoredInSquot.st delete mode 100644 src/Squot.package/SquotPackageDiffClassChanges.class/instance/left.st delete mode 100644 src/Squot.package/SquotPackageDiffClassChanges.class/instance/operations..st delete mode 100644 src/Squot.package/SquotPackageDiffClassChanges.class/instance/operations.st delete mode 100644 src/Squot.package/SquotPackageDiffClassChanges.class/instance/right.st delete mode 100644 src/Squot.package/SquotPackageDiffClassChanges.class/instance/squotAddDiffNodeMenuItems.for..st delete mode 100644 src/Squot.package/SquotPackageDiffClassChanges.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotPackageDiffClassChanges.class/instance/squotToolsDiffNodeContent.st delete mode 100644 src/Squot.package/SquotPackageDiffClassChanges.class/instance/unignoreInSquot.st delete mode 100644 src/Squot.package/SquotPackageDiffClassChanges.class/methodProperties.json delete mode 100644 src/Squot.package/SquotPackageDiffClassChanges.class/properties.json delete mode 100644 src/Squot.package/SquotPackageDiffNodesBuilder.class/README.md delete mode 100644 src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/addOperationOrConflict..st delete mode 100644 src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/buildNodes.st delete mode 100644 src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/classDefOperationOrConflictFor..st delete mode 100644 src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/classSuffix..st delete mode 100644 src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/compareClassNodes.and..st delete mode 100644 src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/createNodeForClass.operationsAndConflicts..st delete mode 100644 src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/createNodeForDefinitionType.operationsAndConflicts..st delete mode 100644 src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/extensionPseudoClassDefinition.st delete mode 100644 src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/hoistClassDefinition..st delete mode 100644 src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/nodeFor..st delete mode 100644 src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/topNodesForDiff..st delete mode 100644 src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/topNodesForMerge..st delete mode 100644 src/Squot.package/SquotPackageDiffNodesBuilder.class/methodProperties.json delete mode 100644 src/Squot.package/SquotPackageDiffNodesBuilder.class/properties.json delete mode 100644 src/Squot.package/SquotPackageDiffNodesBuilderTest.class/README.md delete mode 100644 src/Squot.package/SquotPackageDiffNodesBuilderTest.class/instance/testClassDefinitionDiffHoistedToTop.st delete mode 100644 src/Squot.package/SquotPackageDiffNodesBuilderTest.class/instance/testClassDefinitionDiffHoistedToTopWithClassConflict.st delete mode 100644 src/Squot.package/SquotPackageDiffNodesBuilderTest.class/instance/testClassDefinitionDiffHoistedToTopWithMethodConflict.st delete mode 100644 src/Squot.package/SquotPackageDiffNodesBuilderTest.class/instance/testClassesOrderedLexicograhically.st delete mode 100644 src/Squot.package/SquotPackageDiffNodesBuilderTest.class/instance/testMetaclassNodeSuffix.st delete mode 100644 src/Squot.package/SquotPackageDiffNodesBuilderTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotPackageDiffNodesBuilderTest.class/properties.json delete mode 100644 src/Squot.package/SquotPackageInfoExtension.class/README.md delete mode 100644 src/Squot.package/SquotPackageInfoExtension.class/class/at.ifAbsent..st delete mode 100644 src/Squot.package/SquotPackageInfoExtension.class/class/initialize.st delete mode 100644 src/Squot.package/SquotPackageInfoExtension.class/class/of..st delete mode 100644 src/Squot.package/SquotPackageInfoExtension.class/instance/tonelProperties..st delete mode 100644 src/Squot.package/SquotPackageInfoExtension.class/instance/tonelProperties.st delete mode 100644 src/Squot.package/SquotPackageInfoExtension.class/methodProperties.json delete mode 100644 src/Squot.package/SquotPackageInfoExtension.class/properties.json delete mode 100644 src/Squot.package/SquotPackageLoadTest.class/README.md delete mode 100644 src/Squot.package/SquotPackageLoadTest.class/instance/capturePackage.st delete mode 100644 src/Squot.package/SquotPackageLoadTest.class/instance/changeLogSuppressor.st delete mode 100644 src/Squot.package/SquotPackageLoadTest.class/instance/checkRestoredPackage.st delete mode 100644 src/Squot.package/SquotPackageLoadTest.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotPackageLoadTest.class/instance/tearDown.st delete mode 100644 src/Squot.package/SquotPackageLoadTest.class/instance/testLoadedAndTracked.st delete mode 100644 src/Squot.package/SquotPackageLoadTest.class/instance/testLoadedAndUntracked.st delete mode 100644 src/Squot.package/SquotPackageLoadTest.class/instance/testUnloaded.st delete mode 100644 src/Squot.package/SquotPackageLoadTest.class/instance/unloadPackage.st delete mode 100644 src/Squot.package/SquotPackageLoadTest.class/instance/untrackPackage.st delete mode 100644 src/Squot.package/SquotPackageLoadTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotPackageLoadTest.class/properties.json delete mode 100644 src/Squot.package/SquotPackageMerge.class/README.md delete mode 100644 src/Squot.package/SquotPackageMerge.class/class/working.incoming.base.modifications.conflicts..st delete mode 100644 src/Squot.package/SquotPackageMerge.class/instance/addOperationOrConflict..st delete mode 100644 src/Squot.package/SquotPackageMerge.class/instance/chooseIncoming.st delete mode 100644 src/Squot.package/SquotPackageMerge.class/instance/chooseWorking.st delete mode 100644 src/Squot.package/SquotPackageMerge.class/instance/computeDifferences.st delete mode 100644 src/Squot.package/SquotPackageMerge.class/instance/hasChanges.st delete mode 100644 src/Squot.package/SquotPackageMerge.class/instance/initializeSquotDiffNodes.with..st delete mode 100644 src/Squot.package/SquotPackageMerge.class/instance/keyOf.ifAbsent..st delete mode 100644 src/Squot.package/SquotPackageMerge.class/instance/modifications.st delete mode 100644 src/Squot.package/SquotPackageMerge.class/instance/newSquotDiffNodes.st delete mode 100644 src/Squot.package/SquotPackageMerge.class/instance/operationsAndConflicts.st delete mode 100644 src/Squot.package/SquotPackageMerge.class/instance/privateResolvedPatch.st delete mode 100644 src/Squot.package/SquotPackageMerge.class/instance/removeOperationOrConflict..st delete mode 100644 src/Squot.package/SquotPackageMerge.class/instance/resetChoice.st delete mode 100644 src/Squot.package/SquotPackageMerge.class/instance/setWorking.incoming.base.modifications.conflicts..st delete mode 100644 src/Squot.package/SquotPackageMerge.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotPackageMerge.class/methodProperties.json delete mode 100644 src/Squot.package/SquotPackageMerge.class/properties.json delete mode 100644 src/Squot.package/SquotPackageMergeNodesTest.class/README.md delete mode 100644 src/Squot.package/SquotPackageMergeNodesTest.class/instance/testArtifactModifcationRemovalConflict.st delete mode 100644 src/Squot.package/SquotPackageMergeNodesTest.class/instance/testArtifactParallelAdditionConflict.st delete mode 100644 src/Squot.package/SquotPackageMergeNodesTest.class/instance/testArtifactRemovalModifcationConflict.st delete mode 100644 src/Squot.package/SquotPackageMergeNodesTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotPackageMergeNodesTest.class/properties.json delete mode 100644 src/Squot.package/SquotPackageMergeTest.class/README.md delete mode 100644 src/Squot.package/SquotPackageMergeTest.class/instance/testParallelAddition.st delete mode 100644 src/Squot.package/SquotPackageMergeTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotPackageMergeTest.class/properties.json delete mode 100644 src/Squot.package/SquotPackageMirror.class/README.md delete mode 100644 src/Squot.package/SquotPackageMirror.class/instance/capture.with.ifReplaced..st delete mode 100644 src/Squot.package/SquotPackageMirror.class/instance/environmentInMetadata..st delete mode 100644 src/Squot.package/SquotPackageMirror.class/instance/newShadowObject.st delete mode 100644 src/Squot.package/SquotPackageMirror.class/instance/referencesFrom..st delete mode 100644 src/Squot.package/SquotPackageMirror.class/instance/shouldObjectHaveNameAssigned..st delete mode 100644 src/Squot.package/SquotPackageMirror.class/methodProperties.json delete mode 100644 src/Squot.package/SquotPackageMirror.class/properties.json delete mode 100644 src/Squot.package/SquotPackageShadow.class/README.md delete mode 100644 src/Squot.package/SquotPackageShadow.class/class/forPackageNamed.withSnapshot..st delete mode 100644 src/Squot.package/SquotPackageShadow.class/class/forPackageNamed.withSnapshot.tonelProperties..st delete mode 100644 src/Squot.package/SquotPackageShadow.class/class/newNotEmpty.st delete mode 100644 src/Squot.package/SquotPackageShadow.class/class/squotMirror.st delete mode 100644 src/Squot.package/SquotPackageShadow.class/class/squotPreferredSerializer.st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/^equals.st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/asMCSnapshot.st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/browse.st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/copyWithSnapshot..st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/copyWithSnapshot.tonelProperties..st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/definitions.st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/diffToBase.withSnapshot..st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/diffToSnapshot..st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/hash.st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/mergeSnapshot.basedOn..st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/mergeSnapshot.into..st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/mergeSnapshotInto.basedOn..st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/monticelloPatcher.st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/packageName.st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/sameIn.withName.ifAbsent..st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/setPackageName.snapshot.tonelProperties..st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/snapshot..st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/squotDiffAgainst..st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/squotDiffAgainst.with..st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/squotMaterializeWith..st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/squotMergeWith.basedOn..st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/squotOutgoingReferences.st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/squotPreferredSerializer.st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/squotRewritePath.with..st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/squotWrite.asTonelWith..st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/squotWrite.with..st delete mode 100644 src/Squot.package/SquotPackageShadow.class/instance/tonelProperties.st delete mode 100644 src/Squot.package/SquotPackageShadow.class/methodProperties.json delete mode 100644 src/Squot.package/SquotPackageShadow.class/properties.json delete mode 100644 src/Squot.package/SquotPackageShadowMirror.class/README.md delete mode 100644 src/Squot.package/SquotPackageShadowMirror.class/instance/capture.with.ifReplaced..st delete mode 100644 src/Squot.package/SquotPackageShadowMirror.class/instance/newDiffFrom.to..st delete mode 100644 src/Squot.package/SquotPackageShadowMirror.class/instance/referencesFrom..st delete mode 100644 src/Squot.package/SquotPackageShadowMirror.class/instance/shouldObjectHaveNameAssigned..st delete mode 100644 src/Squot.package/SquotPackageShadowMirror.class/methodProperties.json delete mode 100644 src/Squot.package/SquotPackageShadowMirror.class/properties.json delete mode 100644 src/Squot.package/SquotPackageTrackingTest.class/README.md delete mode 100644 src/Squot.package/SquotPackageTrackingTest.class/instance/testDefaultEnvironment.st delete mode 100644 src/Squot.package/SquotPackageTrackingTest.class/instance/testEnvironmentAccessors.st delete mode 100644 src/Squot.package/SquotPackageTrackingTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotPackageTrackingTest.class/properties.json delete mode 100644 src/Squot.package/SquotPatch.class/README.md delete mode 100644 src/Squot.package/SquotPatch.class/class/builder.st delete mode 100644 src/Squot.package/SquotPatch.class/class/noChangesTo..st delete mode 100644 src/Squot.package/SquotPatch.class/instance/applyTo..st delete mode 100644 src/Squot.package/SquotPatch.class/instance/applyTo.displayingProgress..st delete mode 100644 src/Squot.package/SquotPatch.class/instance/applyToLoadOrder..st delete mode 100644 src/Squot.package/SquotPatch.class/instance/artifacts.st delete mode 100644 src/Squot.package/SquotPatch.class/instance/base.st delete mode 100644 src/Squot.package/SquotPatch.class/instance/browse.st delete mode 100644 src/Squot.package/SquotPatch.class/instance/commonPathsWith..st delete mode 100644 src/Squot.package/SquotPatch.class/instance/copy.st delete mode 100644 src/Squot.package/SquotPatch.class/instance/createNewBuilder.st delete mode 100644 src/Squot.package/SquotPatch.class/instance/diffAt..st delete mode 100644 src/Squot.package/SquotPatch.class/instance/diffs.st delete mode 100644 src/Squot.package/SquotPatch.class/instance/diffsDo..st delete mode 100644 src/Squot.package/SquotPatch.class/instance/hasChanges.st delete mode 100644 src/Squot.package/SquotPatch.class/instance/hasLoadOrderChanges.st delete mode 100644 src/Squot.package/SquotPatch.class/instance/includesDiffAt..st delete mode 100644 src/Squot.package/SquotPatch.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotPatch.class/instance/initializeFrom.to.withDiffs..st delete mode 100644 src/Squot.package/SquotPatch.class/instance/initializeWith..st delete mode 100644 src/Squot.package/SquotPatch.class/instance/loadOrderDiff..st delete mode 100644 src/Squot.package/SquotPatch.class/instance/loadOrderDiff.st delete mode 100644 src/Squot.package/SquotPatch.class/instance/patched.st delete mode 100644 src/Squot.package/SquotPatch.class/instance/patchedLoadOrder.st delete mode 100644 src/Squot.package/SquotPatch.class/instance/paths.st delete mode 100644 src/Squot.package/SquotPatch.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotPatch.class/instance/privateApplyTo.diffsDoing..st delete mode 100644 src/Squot.package/SquotPatch.class/methodProperties.json delete mode 100644 src/Squot.package/SquotPatch.class/properties.json delete mode 100644 src/Squot.package/SquotPatchBuilder.class/README.md delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/addArtifact..st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/addDiff..st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/addLoadOrderDiffTreeTo..st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/buildPatch.st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/computeDifferences.st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/computeDiffsForNewArtifacts.st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/computeDiffsFromLeftToRight.st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/diff.against..st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/diffAt..st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/diffPath.from.to..st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/diffs.st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/diffsDo..st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/displayProgress.during..st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/goingTo..st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/hasChanges.st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/hasLoadOrderChanges.st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/includesDiffAt..st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/loadOrderMerge.st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/newLoadOrder..st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/newLoadOrder.st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/patchFrom.to..st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/paths.st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/removeArtifact..st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/resetAt..st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/startingFrom..st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/startingFrom.goingTo..st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/unloadedArtifactsFromLeft.st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/updateArtifactTo..st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/updateLoadOrder.st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/instance/updateRightArtifacts.st delete mode 100644 src/Squot.package/SquotPatchBuilder.class/methodProperties.json delete mode 100644 src/Squot.package/SquotPatchBuilder.class/properties.json delete mode 100644 src/Squot.package/SquotPatchBuilderTest.class/README.md delete mode 100644 src/Squot.package/SquotPatchBuilderTest.class/instance/testCorrectLoadOrderAfterExcludedArtifactAddition.st delete mode 100644 src/Squot.package/SquotPatchBuilderTest.class/instance/testCorrectLoadOrderAfterExcludedArtifactRemoval.st delete mode 100644 src/Squot.package/SquotPatchBuilderTest.class/instance/testCorrectLoadOrderAfterExcludedArtifactRemovalAndSimultaneousOrderChange.st delete mode 100644 src/Squot.package/SquotPatchBuilderTest.class/instance/testCorrectLoadOrderAfterExcludedArtifactRemovalAtBeginning.st delete mode 100644 src/Squot.package/SquotPatchBuilderTest.class/instance/testLoadOrderAfterIncludedArtifactAdditionAndSimultaneousOrderChange.st delete mode 100644 src/Squot.package/SquotPatchBuilderTest.class/instance/testLoadOrderAfterIncludedArtifactAdditionAndSimultaneousOrderChange2.st delete mode 100644 src/Squot.package/SquotPatchBuilderTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotPatchBuilderTest.class/properties.json delete mode 100644 src/Squot.package/SquotPatchTest.class/README.md delete mode 100644 src/Squot.package/SquotPatchTest.class/instance/testEmptyPatch.st delete mode 100644 src/Squot.package/SquotPatchTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotPatchTest.class/properties.json delete mode 100644 src/Squot.package/SquotPatcher.class/README.md delete mode 100644 src/Squot.package/SquotPatcher.class/instance/apply.from.to.reflectedIn.inGraph.original.reflectedIn.patched.reflectedIn.diffsOfReferenceValuesDo..st delete mode 100644 src/Squot.package/SquotPatcher.class/instance/apply.toLoadedGraph..st delete mode 100644 src/Squot.package/SquotPatcher.class/instance/applyReferenceDiff.to.reflectedIn.new.reflectedIn.old.reflectedIn.from.ifDeferred.nextDiffsDo..st delete mode 100644 src/Squot.package/SquotPatcher.class/instance/applying.fill.reachedVia.into.reflectedIn.ifDeferredUntilActivated.ifNotTreatedYet..st delete mode 100644 src/Squot.package/SquotPatcher.class/instance/assignIdentifierIfAnyTo.reflectedIn.in.materializedFrom..st delete mode 100644 src/Squot.package/SquotPatcher.class/instance/fill.reachedVia.into.reflectedIn.ifDeferredUntilActivated.ifUnavailable..st delete mode 100644 src/Squot.package/SquotPatcher.class/instance/findOrCreateMaterializedInstanceOf.reflectedIn.ifNew..st delete mode 100644 src/Squot.package/SquotPatcher.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotPatcher.class/instance/reactivate..st delete mode 100644 src/Squot.package/SquotPatcher.class/instance/registry..st delete mode 100644 src/Squot.package/SquotPatcher.class/instance/sourceGraph..st delete mode 100644 src/Squot.package/SquotPatcher.class/instance/sourceNameOf.ifPresent.ifAbsent..st delete mode 100644 src/Squot.package/SquotPatcher.class/instance/take.asMaterializedFrom..st delete mode 100644 src/Squot.package/SquotPatcher.class/instance/updateReference.from.reflectedIn.for.withValue..st delete mode 100644 src/Squot.package/SquotPatcher.class/instance/updateReferrersTo.materializedFrom..st delete mode 100644 src/Squot.package/SquotPatcher.class/instance/wasReactivated..st delete mode 100644 src/Squot.package/SquotPatcher.class/methodProperties.json delete mode 100644 src/Squot.package/SquotPatcher.class/properties.json delete mode 100644 src/Squot.package/SquotPath.class/README.md delete mode 100644 src/Squot.package/SquotPath.class/class/delimiter.st delete mode 100644 src/Squot.package/SquotPath.class/class/from..st delete mode 100644 src/Squot.package/SquotPath.class/class/fromPath..st delete mode 100644 src/Squot.package/SquotPath.class/class/fromReference..st delete mode 100644 src/Squot.package/SquotPath.class/class/fromString..st delete mode 100644 src/Squot.package/SquotPath.class/instance/resolve..st delete mode 100644 src/Squot.package/SquotPath.class/instance/resolvePath..st delete mode 100644 src/Squot.package/SquotPath.class/instance/resolveReference..st delete mode 100644 src/Squot.package/SquotPath.class/instance/resolveString..st delete mode 100644 src/Squot.package/SquotPath.class/methodProperties.json delete mode 100644 src/Squot.package/SquotPath.class/properties.json delete mode 100644 src/Squot.package/SquotPathNegotiationTest.class/README.md delete mode 100644 src/Squot.package/SquotPathNegotiationTest.class/instance/newRepository.st delete mode 100644 src/Squot.package/SquotPathNegotiationTest.class/instance/newStore.st delete mode 100644 src/Squot.package/SquotPathNegotiationTest.class/instance/testRepositoryChangesPath.st delete mode 100644 src/Squot.package/SquotPathNegotiationTest.class/instance/testStoreAndRepositoryChangePath.st delete mode 100644 src/Squot.package/SquotPathNegotiationTest.class/instance/testStoreAndRepositoryDisagree.st delete mode 100644 src/Squot.package/SquotPathNegotiationTest.class/instance/testStoreChangesPath.st delete mode 100644 src/Squot.package/SquotPathNegotiationTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotPathNegotiationTest.class/properties.json delete mode 100644 src/Squot.package/SquotPrimitiveValue.class/README.md delete mode 100644 src/Squot.package/SquotPrimitiveValue.class/class/for..st delete mode 100644 src/Squot.package/SquotPrimitiveValue.class/class/squotMirror.st delete mode 100644 src/Squot.package/SquotPrimitiveValue.class/instance/^equals.st delete mode 100644 src/Squot.package/SquotPrimitiveValue.class/instance/canHaveNameAssignedBySquot.st delete mode 100644 src/Squot.package/SquotPrimitiveValue.class/instance/diffClass.st delete mode 100644 src/Squot.package/SquotPrimitiveValue.class/instance/explorerContents.st delete mode 100644 src/Squot.package/SquotPrimitiveValue.class/instance/hasContentsInExplorer.st delete mode 100644 src/Squot.package/SquotPrimitiveValue.class/instance/hash.st delete mode 100644 src/Squot.package/SquotPrimitiveValue.class/instance/initializeFrom.with..st delete mode 100644 src/Squot.package/SquotPrimitiveValue.class/instance/originalClass.st delete mode 100644 src/Squot.package/SquotPrimitiveValue.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotPrimitiveValue.class/instance/sameIn.withName.ifAbsent..st delete mode 100644 src/Squot.package/SquotPrimitiveValue.class/instance/slots.st delete mode 100644 src/Squot.package/SquotPrimitiveValue.class/instance/squotDiffAgainst..st delete mode 100644 src/Squot.package/SquotPrimitiveValue.class/instance/squotDiffAgainst.with..st delete mode 100644 src/Squot.package/SquotPrimitiveValue.class/instance/squotMaterializeWith..st delete mode 100644 src/Squot.package/SquotPrimitiveValue.class/instance/squotMergeWith.basedOn..st delete mode 100644 src/Squot.package/SquotPrimitiveValue.class/instance/squotOutgoingReferences.st delete mode 100644 src/Squot.package/SquotPrimitiveValue.class/instance/value..st delete mode 100644 src/Squot.package/SquotPrimitiveValue.class/instance/value.st delete mode 100644 src/Squot.package/SquotPrimitiveValue.class/methodProperties.json delete mode 100644 src/Squot.package/SquotPrimitiveValue.class/properties.json delete mode 100644 src/Squot.package/SquotProgress.class/README.md delete mode 100644 src/Squot.package/SquotProgress.class/class/display.during..st delete mode 100644 src/Squot.package/SquotProgress.class/class/display.for.do..st delete mode 100644 src/Squot.package/SquotProgress.class/class/displayStatus.during..st delete mode 100644 src/Squot.package/SquotProgress.class/instance/display.during..st delete mode 100644 src/Squot.package/SquotProgress.class/instance/display.for.do..st delete mode 100644 src/Squot.package/SquotProgress.class/instance/displayStatus.during..st delete mode 100644 src/Squot.package/SquotProgress.class/instance/outputOr..st delete mode 100644 src/Squot.package/SquotProgress.class/instance/stepWithText..st delete mode 100644 src/Squot.package/SquotProgress.class/instance/totalSteps..st delete mode 100644 src/Squot.package/SquotProgress.class/instance/update.text..st delete mode 100644 src/Squot.package/SquotProgress.class/methodProperties.json delete mode 100644 src/Squot.package/SquotProgress.class/properties.json delete mode 100644 src/Squot.package/SquotProgressOutput.class/README.md delete mode 100644 src/Squot.package/SquotProgressOutput.class/class/default..st delete mode 100644 src/Squot.package/SquotProgressOutput.class/class/default.st delete mode 100644 src/Squot.package/SquotProgressOutput.class/methodProperties.json delete mode 100644 src/Squot.package/SquotProgressOutput.class/properties.json delete mode 100644 src/Squot.package/SquotReference.class/README.md delete mode 100644 src/Squot.package/SquotReference.class/instance/asCapturedReference.st delete mode 100644 src/Squot.package/SquotReference.class/instance/asDiffTreeStringOrText.st delete mode 100644 src/Squot.package/SquotReference.class/instance/asMaterializedReference.st delete mode 100644 src/Squot.package/SquotReference.class/instance/isCollectionElement.st delete mode 100644 src/Squot.package/SquotReference.class/instance/isHashRelevant.st delete mode 100644 src/Squot.package/SquotReference.class/instance/isInstanceVariable.st delete mode 100644 src/Squot.package/SquotReference.class/instance/newNameFragment.st delete mode 100644 src/Squot.package/SquotReference.class/instance/reflect.in..st delete mode 100644 src/Squot.package/SquotReference.class/instance/reflect.in.put..st delete mode 100644 src/Squot.package/SquotReference.class/methodProperties.json delete mode 100644 src/Squot.package/SquotReference.class/properties.json delete mode 100644 src/Squot.package/SquotReferenceAddition.class/README.md delete mode 100644 src/Squot.package/SquotReferenceAddition.class/class/to.reference.target.rightOwner..st delete mode 100644 src/Squot.package/SquotReferenceAddition.class/instance/asSlotDiff.st delete mode 100644 src/Squot.package/SquotReferenceAddition.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotReferenceAddition.class/instance/rightTarget.st delete mode 100644 src/Squot.package/SquotReferenceAddition.class/instance/setReference.leftOwner.rightOwner.target..st delete mode 100644 src/Squot.package/SquotReferenceAddition.class/instance/squotReflectOn.in..st delete mode 100644 src/Squot.package/SquotReferenceAddition.class/instance/squotReflectOn.in.withValue..st delete mode 100644 src/Squot.package/SquotReferenceAddition.class/instance/squotValueShadowFrom.reflectedIn..st delete mode 100644 src/Squot.package/SquotReferenceAddition.class/methodProperties.json delete mode 100644 src/Squot.package/SquotReferenceAddition.class/properties.json delete mode 100644 src/Squot.package/SquotReferenceAdditionConflict.class/README.md delete mode 100644 src/Squot.package/SquotReferenceAdditionConflict.class/class/reference.working.owner.incoming.owner..st delete mode 100644 src/Squot.package/SquotReferenceAdditionConflict.class/instance/chooseIncoming.st delete mode 100644 src/Squot.package/SquotReferenceAdditionConflict.class/instance/initializeSquotDiffNodes.with..st delete mode 100644 src/Squot.package/SquotReferenceAdditionConflict.class/instance/newSquotDiffNodes.st delete mode 100644 src/Squot.package/SquotReferenceAdditionConflict.class/instance/setKey.working.owner.incoming.owner..st delete mode 100644 src/Squot.package/SquotReferenceAdditionConflict.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotReferenceAdditionConflict.class/methodProperties.json delete mode 100644 src/Squot.package/SquotReferenceAdditionConflict.class/properties.json delete mode 100644 src/Squot.package/SquotReferenceCopy.class/README.md delete mode 100644 src/Squot.package/SquotReferenceCopy.class/methodProperties.json delete mode 100644 src/Squot.package/SquotReferenceCopy.class/properties.json delete mode 100644 src/Squot.package/SquotReferenceDiff.class/README.md delete mode 100644 src/Squot.package/SquotReferenceDiff.class/instance/asSlotDiff.st delete mode 100644 src/Squot.package/SquotReferenceDiff.class/instance/isAddition.st delete mode 100644 src/Squot.package/SquotReferenceDiff.class/instance/isModification.st delete mode 100644 src/Squot.package/SquotReferenceDiff.class/instance/isRemoval.st delete mode 100644 src/Squot.package/SquotReferenceDiff.class/instance/reference.st delete mode 100644 src/Squot.package/SquotReferenceDiff.class/instance/setReference.leftOwner.rightOwner..st delete mode 100644 src/Squot.package/SquotReferenceDiff.class/instance/squotReflectOn.in..st delete mode 100644 src/Squot.package/SquotReferenceDiff.class/instance/squotReflectOn.in.withValue..st delete mode 100644 src/Squot.package/SquotReferenceDiff.class/instance/squotValueShadowFrom.reflectedIn..st delete mode 100644 src/Squot.package/SquotReferenceDiff.class/methodProperties.json delete mode 100644 src/Squot.package/SquotReferenceDiff.class/properties.json delete mode 100644 src/Squot.package/SquotReferenceRemoval.class/README.md delete mode 100644 src/Squot.package/SquotReferenceRemoval.class/class/of.from.reference.rightObject..st delete mode 100644 src/Squot.package/SquotReferenceRemoval.class/instance/asSlotDiff.st delete mode 100644 src/Squot.package/SquotReferenceRemoval.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotReferenceRemoval.class/instance/setOldTarget.reference.leftOwner.rightObject..st delete mode 100644 src/Squot.package/SquotReferenceRemoval.class/instance/setReference.leftOwner.rightObject..st delete mode 100644 src/Squot.package/SquotReferenceRemoval.class/instance/squotReflectOn.in..st delete mode 100644 src/Squot.package/SquotReferenceRemoval.class/instance/squotReflectOn.in.withValue..st delete mode 100644 src/Squot.package/SquotReferenceRemoval.class/instance/squotValueShadowFrom.reflectedIn..st delete mode 100644 src/Squot.package/SquotReferenceRemoval.class/methodProperties.json delete mode 100644 src/Squot.package/SquotReferenceRemoval.class/properties.json delete mode 100644 src/Squot.package/SquotReferenceTargetExchange.class/README.md delete mode 100644 src/Squot.package/SquotReferenceTargetExchange.class/instance/asSlotDiff.st delete mode 100644 src/Squot.package/SquotReferenceTargetExchange.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotReferenceTargetExchange.class/instance/squotHasChanges.st delete mode 100644 src/Squot.package/SquotReferenceTargetExchange.class/instance/squotReflectOn.in..st delete mode 100644 src/Squot.package/SquotReferenceTargetExchange.class/instance/squotReflectOn.in.withValue..st delete mode 100644 src/Squot.package/SquotReferenceTargetExchange.class/methodProperties.json delete mode 100644 src/Squot.package/SquotReferenceTargetExchange.class/properties.json delete mode 100644 src/Squot.package/SquotReferenceTransformation.class/README.md delete mode 100644 src/Squot.package/SquotReferenceTransformation.class/methodProperties.json delete mode 100644 src/Squot.package/SquotReferenceTransformation.class/properties.json delete mode 100644 src/Squot.package/SquotRevertOperation.class/README.md delete mode 100644 src/Squot.package/SquotRevertOperation.class/instance/applyMerge.st delete mode 100644 src/Squot.package/SquotRevertOperation.class/instance/applyToWorkingCopy.st delete mode 100644 src/Squot.package/SquotRevertOperation.class/instance/defaultMessage.st delete mode 100644 src/Squot.package/SquotRevertOperation.class/instance/loadedPatch..st delete mode 100644 src/Squot.package/SquotRevertOperation.class/instance/loadedPatch.st delete mode 100644 src/Squot.package/SquotRevertOperation.class/instance/merge..st delete mode 100644 src/Squot.package/SquotRevertOperation.class/instance/merge.st delete mode 100644 src/Squot.package/SquotRevertOperation.class/instance/message..st delete mode 100644 src/Squot.package/SquotRevertOperation.class/instance/prepareMerge.st delete mode 100644 src/Squot.package/SquotRevertOperation.class/instance/prepareSave.st delete mode 100644 src/Squot.package/SquotRevertOperation.class/instance/privateNewMerge.st delete mode 100644 src/Squot.package/SquotRevertOperation.class/instance/privateNewSave.st delete mode 100644 src/Squot.package/SquotRevertOperation.class/instance/relevantParentOfRevertedVersion..st delete mode 100644 src/Squot.package/SquotRevertOperation.class/instance/relevantParentOfRevertedVersion.st delete mode 100644 src/Squot.package/SquotRevertOperation.class/instance/revertMerge.st delete mode 100644 src/Squot.package/SquotRevertOperation.class/instance/revertedVersion..st delete mode 100644 src/Squot.package/SquotRevertOperation.class/instance/revertedVersion.st delete mode 100644 src/Squot.package/SquotRevertOperation.class/instance/save.st delete mode 100644 src/Squot.package/SquotRevertOperation.class/instance/validate.st delete mode 100644 src/Squot.package/SquotRevertOperation.class/instance/validateAncestry.st delete mode 100644 src/Squot.package/SquotRevertOperation.class/methodProperties.json delete mode 100644 src/Squot.package/SquotRevertOperation.class/properties.json delete mode 100644 src/Squot.package/SquotSaveOperation.class/README.md delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/additionalParentVersions..st delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/additionalParentVersions.st delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/applyLoadStatusToPatchArtifacts..st delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/applyToWorkingCopy.st delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/author..st delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/author.st delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/committer..st delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/committer.st delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/computePatch.st delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/createVersion.st delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/historian..st delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/historian.st delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/message..st delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/message.st delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/newVersion..st delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/newVersion.st delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/parentVersions.st delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/patch..st delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/patch.st delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/shouldStoreMetadata..st delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/shouldStoreMetadata.st delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/timestamp..st delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/timestamp.st delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/updateMetadataAfterSaving.st delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/updateWorkingCopy.st delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/validate.st delete mode 100644 src/Squot.package/SquotSaveOperation.class/instance/validateForCherryPick.st delete mode 100644 src/Squot.package/SquotSaveOperation.class/methodProperties.json delete mode 100644 src/Squot.package/SquotSaveOperation.class/properties.json delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/README.md delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/class/themeProperties.st delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/instance/accept.st delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/instance/actionCommit.st delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/instance/activateNodeCommandLabel.st delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/instance/addUnloadedArtifactMenuItems..st delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/instance/appendCoAuthors.st delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/instance/autoProcessNodes..st delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/instance/browseOtherEdition.st delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/instance/browseOtherEditionLabel.st delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/instance/buildButtonBar..st delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/instance/buildCoAuthorSelector..st delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/instance/buildDiffPane..st delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/instance/cancel.st delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/instance/coAuthorString.st delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/instance/deactivateNodeCommandLabel.st delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/instance/defaultMessage.st delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/instance/excludeMethodsThatAreAssumedUnchanged..st delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/instance/inspectOriginalArtifactCommandLabel.st delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/instance/message..st delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/instance/message.st delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/instance/messageWasChanged.st delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/instance/parentVersions..st delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/instance/toggleLoadSelectedNode.st delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/instance/updateMessageFromViews.st delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/instance/widgetSpecs..st delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/instance/windowLabel.st delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/methodProperties.json delete mode 100644 src/Squot.package/SquotSaveVersionDialog.class/properties.json delete mode 100644 src/Squot.package/SquotSaveVersionDialogTest.class/README.md delete mode 100644 src/Squot.package/SquotSaveVersionDialogTest.class/class/allTestSelectors.st delete mode 100644 src/Squot.package/SquotSaveVersionDialogTest.class/class/excludedTests.st delete mode 100644 src/Squot.package/SquotSaveVersionDialogTest.class/class/testSelectors.st delete mode 100644 src/Squot.package/SquotSaveVersionDialogTest.class/instance/expectedFailures.st delete mode 100644 src/Squot.package/SquotSaveVersionDialogTest.class/instance/newToolOn..st delete mode 100644 src/Squot.package/SquotSaveVersionDialogTest.class/instance/patchChangingArtifactAt..st delete mode 100644 src/Squot.package/SquotSaveVersionDialogTest.class/instance/performUiInteractionTestsOnNode.withPath.inTree..st delete mode 100644 src/Squot.package/SquotSaveVersionDialogTest.class/instance/testDoNotLoadAddedArtifact.st delete mode 100644 src/Squot.package/SquotSaveVersionDialogTest.class/instance/testLeaveUnloadedArtifactUnloaded.st delete mode 100644 src/Squot.package/SquotSaveVersionDialogTest.class/instance/testLoadUnloadedArtifact.st delete mode 100644 src/Squot.package/SquotSaveVersionDialogTest.class/instance/testLoadUnloadedArtifactDuringModification.st delete mode 100644 src/Squot.package/SquotSaveVersionDialogTest.class/instance/testMethodsGetExcludedIfOnlyTheirStampsChanged.st delete mode 100644 src/Squot.package/SquotSaveVersionDialogTest.class/instance/testToggleLoadAddedArtifact.st delete mode 100644 src/Squot.package/SquotSaveVersionDialogTest.class/instance/testUnloadedArtifactsAdorned.st delete mode 100644 src/Squot.package/SquotSaveVersionDialogTest.class/instance/workingCopySavePatch.st delete mode 100644 src/Squot.package/SquotSaveVersionDialogTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotSaveVersionDialogTest.class/properties.json delete mode 100644 src/Squot.package/SquotSelectionOfChangesRequested.class/README.md delete mode 100644 src/Squot.package/SquotSelectionOfChangesRequested.class/instance/defaultResumeValue.st delete mode 100644 src/Squot.package/SquotSelectionOfChangesRequested.class/instance/patch..st delete mode 100644 src/Squot.package/SquotSelectionOfChangesRequested.class/instance/patch.st delete mode 100644 src/Squot.package/SquotSelectionOfChangesRequested.class/instance/title..st delete mode 100644 src/Squot.package/SquotSelectionOfChangesRequested.class/instance/title.st delete mode 100644 src/Squot.package/SquotSelectionOfChangesRequested.class/methodProperties.json delete mode 100644 src/Squot.package/SquotSelectionOfChangesRequested.class/properties.json delete mode 100644 src/Squot.package/SquotSerializer.class/README.md delete mode 100644 src/Squot.package/SquotSerializer.class/class/copySettingsFrom.to..st delete mode 100644 src/Squot.package/SquotSerializer.class/class/rewritePath.for..st delete mode 100644 src/Squot.package/SquotSerializer.class/class/writingBelow..st delete mode 100644 src/Squot.package/SquotSerializer.class/instance/canWriteDiffs.st delete mode 100644 src/Squot.package/SquotSerializer.class/instance/name.st delete mode 100644 src/Squot.package/SquotSerializer.class/instance/rootDirectory..st delete mode 100644 src/Squot.package/SquotSerializer.class/instance/rootDirectory.st delete mode 100644 src/Squot.package/SquotSerializer.class/instance/version.st delete mode 100644 src/Squot.package/SquotSerializer.class/instance/write..st delete mode 100644 src/Squot.package/SquotSerializer.class/methodProperties.json delete mode 100644 src/Squot.package/SquotSerializer.class/properties.json delete mode 100644 src/Squot.package/SquotShadowGraph.class/README.md delete mode 100644 src/Squot.package/SquotShadowGraph.class/class/anonymousObjectName.st delete mode 100644 src/Squot.package/SquotShadowGraph.class/class/empty.st delete mode 100644 src/Squot.package/SquotShadowGraph.class/class/squotMirror.st delete mode 100644 src/Squot.package/SquotShadowGraph.class/class/stonAllInstVarNames.st delete mode 100644 src/Squot.package/SquotShadowGraph.class/class/withSingleShadow..st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/^equals.st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/as..st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/asShadowGraph.st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/browse.st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/captureWithSquot..st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/delegateRegistry..st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/delegateRegistry.st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/errorNotFound..st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/evictObjectNames.st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/hasSameStartObjectAs..st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/includes..st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/includesObjectNamed..st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/initializeObjectCreatorDictionaries.st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/mutableCopy.st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/nameOf..st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/nameOf.ifAbsent..st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/objectForDataStream..st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/objectNames.st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/postCopy.st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/preferredSerializer.st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/roots.st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/shadowNamed..st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/shadowNamed.ifAbsent..st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/shadows.st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/squotDiffAgainst..st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/squotDiffAgainst.withBase..st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/squotMaterializeWith.from.replacing..st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/squotRewritePath.with..st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/squotSummaryText.st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/squotWrite.with..st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/startName..st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/startName.st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/startShadow..st delete mode 100644 src/Squot.package/SquotShadowGraph.class/instance/startShadow.st delete mode 100644 src/Squot.package/SquotShadowGraph.class/methodProperties.json delete mode 100644 src/Squot.package/SquotShadowGraph.class/properties.json delete mode 100644 src/Squot.package/SquotShadowGraphBrowser.class/README.md delete mode 100644 src/Squot.package/SquotShadowGraphBrowser.class/class/openOn..st delete mode 100644 src/Squot.package/SquotShadowGraphBrowser.class/instance/buildWith..st delete mode 100644 src/Squot.package/SquotShadowGraphBrowser.class/instance/graph..st delete mode 100644 src/Squot.package/SquotShadowGraphBrowser.class/instance/graph.st delete mode 100644 src/Squot.package/SquotShadowGraphBrowser.class/instance/graphChanged.st delete mode 100644 src/Squot.package/SquotShadowGraphBrowser.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotShadowGraphBrowser.class/instance/inspectLiveObject.st delete mode 100644 src/Squot.package/SquotShadowGraphBrowser.class/instance/inspectName.st delete mode 100644 src/Squot.package/SquotShadowGraphBrowser.class/instance/inspectShadow.st delete mode 100644 src/Squot.package/SquotShadowGraphBrowser.class/instance/liveObjects.st delete mode 100644 src/Squot.package/SquotShadowGraphBrowser.class/instance/objectNames.st delete mode 100644 src/Squot.package/SquotShadowGraphBrowser.class/instance/selectedIndex..st delete mode 100644 src/Squot.package/SquotShadowGraphBrowser.class/instance/selectedIndex.st delete mode 100644 src/Squot.package/SquotShadowGraphBrowser.class/instance/selectedShadow.st delete mode 100644 src/Squot.package/SquotShadowGraphBrowser.class/instance/shadowObjects.st delete mode 100644 src/Squot.package/SquotShadowGraphBrowser.class/methodProperties.json delete mode 100644 src/Squot.package/SquotShadowGraphBrowser.class/properties.json delete mode 100644 src/Squot.package/SquotShadowGraphMirror.class/README.md delete mode 100644 src/Squot.package/SquotShadowGraphMirror.class/instance/canHaveReferences..st delete mode 100644 src/Squot.package/SquotShadowGraphMirror.class/instance/capture.with.ifReplaced..st delete mode 100644 src/Squot.package/SquotShadowGraphMirror.class/instance/is.comparableTo..st delete mode 100644 src/Squot.package/SquotShadowGraphMirror.class/instance/newDiffFrom.to..st delete mode 100644 src/Squot.package/SquotShadowGraphMirror.class/instance/referencesFrom..st delete mode 100644 src/Squot.package/SquotShadowGraphMirror.class/instance/reflectGraphElementWithName.in..st delete mode 100644 src/Squot.package/SquotShadowGraphMirror.class/methodProperties.json delete mode 100644 src/Squot.package/SquotShadowGraphMirror.class/properties.json delete mode 100644 src/Squot.package/SquotShadowGraphTest.class/README.md delete mode 100644 src/Squot.package/SquotShadowGraphTest.class/instance/testHasDifferentNamelessStartObject.st delete mode 100644 src/Squot.package/SquotShadowGraphTest.class/instance/testHasDifferentStartObject.st delete mode 100644 src/Squot.package/SquotShadowGraphTest.class/instance/testHasSameNamelessStartObject.st delete mode 100644 src/Squot.package/SquotShadowGraphTest.class/instance/testHasSameStartObject.st delete mode 100644 src/Squot.package/SquotShadowGraphTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotShadowGraphTest.class/properties.json delete mode 100644 src/Squot.package/SquotShadowMaterializer.class/README.md delete mode 100644 src/Squot.package/SquotShadowMaterializer.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotShadowMaterializer.class/instance/objectGraph.st delete mode 100644 src/Squot.package/SquotShadowMaterializer.class/instance/registry..st delete mode 100644 src/Squot.package/SquotShadowMaterializer.class/instance/registry.st delete mode 100644 src/Squot.package/SquotShadowMaterializer.class/instance/rematerializeGraph..st delete mode 100644 src/Squot.package/SquotShadowMaterializer.class/instance/rematerializeGraph.into..st delete mode 100644 src/Squot.package/SquotShadowMaterializer.class/instance/sourceGraph..st delete mode 100644 src/Squot.package/SquotShadowMaterializer.class/instance/sourceGraph.st delete mode 100644 src/Squot.package/SquotShadowMaterializer.class/instance/targetGraph..st delete mode 100644 src/Squot.package/SquotShadowMaterializer.class/instance/targetGraph.st delete mode 100644 src/Squot.package/SquotShadowMaterializer.class/methodProperties.json delete mode 100644 src/Squot.package/SquotShadowMaterializer.class/properties.json delete mode 100644 src/Squot.package/SquotShadowMock.class/README.md delete mode 100644 src/Squot.package/SquotShadowMock.class/methodProperties.json delete mode 100644 src/Squot.package/SquotShadowMock.class/properties.json delete mode 100644 src/Squot.package/SquotShadowPatchingTest.class/README.md delete mode 100644 src/Squot.package/SquotShadowPatchingTest.class/instance/expectedFailures.st delete mode 100644 src/Squot.package/SquotShadowPatchingTest.class/instance/patchGraph.st delete mode 100644 src/Squot.package/SquotShadowPatchingTest.class/instance/patched.asIn..st delete mode 100644 src/Squot.package/SquotShadowPatchingTest.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotShadowPatchingTest.class/instance/testPatchesShadowsCorrectly.st delete mode 100644 src/Squot.package/SquotShadowPatchingTest.class/instance/testUpdatesNameMappingConsistently.st delete mode 100644 src/Squot.package/SquotShadowPatchingTest.class/instance/testUpdatesReferencesOfChangedShadows.st delete mode 100644 src/Squot.package/SquotShadowPatchingTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotShadowPatchingTest.class/properties.json delete mode 100644 src/Squot.package/SquotShadowSlot.class/README.md delete mode 100644 src/Squot.package/SquotShadowSlot.class/instance/addTo..st delete mode 100644 src/Squot.package/SquotShadowSlot.class/instance/addTo.with..st delete mode 100644 src/Squot.package/SquotShadowSlot.class/instance/asReference.st delete mode 100644 src/Squot.package/SquotShadowSlot.class/instance/lookupIn..st delete mode 100644 src/Squot.package/SquotShadowSlot.class/instance/newNameFragment.st delete mode 100644 src/Squot.package/SquotShadowSlot.class/instance/removeFrom..st delete mode 100644 src/Squot.package/SquotShadowSlot.class/instance/removeFrom.with..st delete mode 100644 src/Squot.package/SquotShadowSlot.class/instance/squotDiffAgainst..st delete mode 100644 src/Squot.package/SquotShadowSlot.class/instance/value..st delete mode 100644 src/Squot.package/SquotShadowSlot.class/instance/value.st delete mode 100644 src/Squot.package/SquotShadowSlot.class/methodProperties.json delete mode 100644 src/Squot.package/SquotShadowSlot.class/properties.json delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/README.md delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/assertSecondMethodUnmodifiedBy.with..st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/assertSecondMethodUnmodifiedWith..st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/assertThirdMethodLoadedWith..st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/assertThirdMethodWillBeAdded.with..st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/classFactory.st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/createFirstVersion.st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/createSecondVersion.st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/createThirdVersion.st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/firstVersion..st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/firstVersion.st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/initializeForTestCase..st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/otherHistorian..st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/otherHistorian.st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/packageId.st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/packageInfo..st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/packageInfo.st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/packagePath..st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/packagePath.st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/sampleClass..st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/sampleClass.st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/secondMethod..st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/secondMethod.st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/secondVersion..st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/secondVersion.st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/thirdMethod..st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/thirdMethod.st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/thirdVersion..st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/thirdVersion.st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/unloadPackage.st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/instance/updateSampleClass.st delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/methodProperties.json delete mode 100644 src/Squot.package/SquotSimpleMergeTestScenario.class/properties.json delete mode 100644 src/Squot.package/SquotSimpleWorkingCopyTest.class/README.md delete mode 100644 src/Squot.package/SquotSimpleWorkingCopyTest.class/instance/testAdditionalParentsWhenSavedNonInteractively.st delete mode 100644 src/Squot.package/SquotSimpleWorkingCopyTest.class/instance/testAdditionalParentsWhenSavedNonInteractivelyOld.st delete mode 100644 src/Squot.package/SquotSimpleWorkingCopyTest.class/instance/testCherryPickPreservesAuthor.st delete mode 100644 src/Squot.package/SquotSimpleWorkingCopyTest.class/instance/testOldUnnecessaryMergeIsCanceled.st delete mode 100644 src/Squot.package/SquotSimpleWorkingCopyTest.class/instance/testSnapshotIncludesLoadOrder.st delete mode 100644 src/Squot.package/SquotSimpleWorkingCopyTest.class/instance/testUnnecessaryMergeIsCanceled.st delete mode 100644 src/Squot.package/SquotSimpleWorkingCopyTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotSimpleWorkingCopyTest.class/properties.json delete mode 100644 src/Squot.package/SquotSlotAddition.class/README.md delete mode 100644 src/Squot.package/SquotSlotAddition.class/class/key.newSlot..st delete mode 100644 src/Squot.package/SquotSlotAddition.class/instance/applyTo..st delete mode 100644 src/Squot.package/SquotSlotAddition.class/instance/applyTo.with..st delete mode 100644 src/Squot.package/SquotSlotAddition.class/instance/asReferenceDiffWithDefaultOwners.reflectedIn..st delete mode 100644 src/Squot.package/SquotSlotAddition.class/instance/hierarchicalDiffTitle.st delete mode 100644 src/Squot.package/SquotSlotAddition.class/instance/printDescriptionOn..st delete mode 100644 src/Squot.package/SquotSlotAddition.class/instance/slotShadowType.st delete mode 100644 src/Squot.package/SquotSlotAddition.class/instance/slotToBeAdded.st delete mode 100644 src/Squot.package/SquotSlotAddition.class/instance/squotHasChanges.st delete mode 100644 src/Squot.package/SquotSlotAddition.class/methodProperties.json delete mode 100644 src/Squot.package/SquotSlotAddition.class/properties.json delete mode 100644 src/Squot.package/SquotSlotDiff.class/README.md delete mode 100644 src/Squot.package/SquotSlotDiff.class/instance/applyTo..st delete mode 100644 src/Squot.package/SquotSlotDiff.class/instance/applyTo.with..st delete mode 100644 src/Squot.package/SquotSlotDiff.class/instance/asReferenceDiffWithDefaultOwners.reflectedIn..st delete mode 100644 src/Squot.package/SquotSlotDiff.class/instance/hierarchicalDiffTitle.st delete mode 100644 src/Squot.package/SquotSlotDiff.class/instance/initializeSquotDiffNode.with..st delete mode 100644 src/Squot.package/SquotSlotDiff.class/instance/printDescriptionOn..st delete mode 100644 src/Squot.package/SquotSlotDiff.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotSlotDiff.class/instance/squotHasChanges.st delete mode 100644 src/Squot.package/SquotSlotDiff.class/methodProperties.json delete mode 100644 src/Squot.package/SquotSlotDiff.class/properties.json delete mode 100644 src/Squot.package/SquotSlotReassignment.class/README.md delete mode 100644 src/Squot.package/SquotSlotReassignment.class/class/key.leftShadow.rightShadow..st delete mode 100644 src/Squot.package/SquotSlotReassignment.class/instance/applyTo..st delete mode 100644 src/Squot.package/SquotSlotReassignment.class/instance/applyTo.with..st delete mode 100644 src/Squot.package/SquotSlotReassignment.class/instance/asReferenceDiffWithDefaultOwners.reflectedIn..st delete mode 100644 src/Squot.package/SquotSlotReassignment.class/instance/hierarchicalDiffTitle.st delete mode 100644 src/Squot.package/SquotSlotReassignment.class/instance/initializeSquotDiffNode.with..st delete mode 100644 src/Squot.package/SquotSlotReassignment.class/instance/originalShadow.st delete mode 100644 src/Squot.package/SquotSlotReassignment.class/instance/printDescriptionOn..st delete mode 100644 src/Squot.package/SquotSlotReassignment.class/instance/replacementShadow.st delete mode 100644 src/Squot.package/SquotSlotReassignment.class/instance/slotShadowType.st delete mode 100644 src/Squot.package/SquotSlotReassignment.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotSlotReassignment.class/instance/squotHasChanges.st delete mode 100644 src/Squot.package/SquotSlotReassignment.class/methodProperties.json delete mode 100644 src/Squot.package/SquotSlotReassignment.class/properties.json delete mode 100644 src/Squot.package/SquotSlotRemoval.class/README.md delete mode 100644 src/Squot.package/SquotSlotRemoval.class/class/key.removedSlot..st delete mode 100644 src/Squot.package/SquotSlotRemoval.class/instance/applyTo..st delete mode 100644 src/Squot.package/SquotSlotRemoval.class/instance/applyTo.with..st delete mode 100644 src/Squot.package/SquotSlotRemoval.class/instance/asReferenceDiffWithDefaultOwners.reflectedIn..st delete mode 100644 src/Squot.package/SquotSlotRemoval.class/instance/hierarchicalDiffTitle.st delete mode 100644 src/Squot.package/SquotSlotRemoval.class/instance/printDescriptionOn..st delete mode 100644 src/Squot.package/SquotSlotRemoval.class/instance/slotShadowType.st delete mode 100644 src/Squot.package/SquotSlotRemoval.class/instance/slotToBeRemoved.st delete mode 100644 src/Squot.package/SquotSlotRemoval.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotSlotRemoval.class/instance/squotHasChanges.st delete mode 100644 src/Squot.package/SquotSlotRemoval.class/methodProperties.json delete mode 100644 src/Squot.package/SquotSlotRemoval.class/properties.json delete mode 100644 src/Squot.package/SquotSlotTransitiveChange.class/README.md delete mode 100644 src/Squot.package/SquotSlotTransitiveChange.class/class/key..st delete mode 100644 src/Squot.package/SquotSlotTransitiveChange.class/instance/applyTo..st delete mode 100644 src/Squot.package/SquotSlotTransitiveChange.class/instance/applyTo.with..st delete mode 100644 src/Squot.package/SquotSlotTransitiveChange.class/instance/asReferenceDiffWithDefaultOwners.reflectedIn..st delete mode 100644 src/Squot.package/SquotSlotTransitiveChange.class/instance/hierarchicalDiffTitle.st delete mode 100644 src/Squot.package/SquotSlotTransitiveChange.class/instance/initializeSquotDiffNode.with..st delete mode 100644 src/Squot.package/SquotSlotTransitiveChange.class/instance/printDescriptionOn..st delete mode 100644 src/Squot.package/SquotSlotTransitiveChange.class/instance/slotShadowType.st delete mode 100644 src/Squot.package/SquotSlotTransitiveChange.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotSlotTransitiveChange.class/instance/squotHasChanges.st delete mode 100644 src/Squot.package/SquotSlotTransitiveChange.class/methodProperties.json delete mode 100644 src/Squot.package/SquotSlotTransitiveChange.class/properties.json delete mode 100644 src/Squot.package/SquotSmartRefStreamDeserializer.class/README.md delete mode 100644 src/Squot.package/SquotSmartRefStreamDeserializer.class/class/canReadObjectSerializedBy..st delete mode 100644 src/Squot.package/SquotSmartRefStreamDeserializer.class/instance/fillContentOf.from..st delete mode 100644 src/Squot.package/SquotSmartRefStreamDeserializer.class/instance/streamClass.st delete mode 100644 src/Squot.package/SquotSmartRefStreamDeserializer.class/methodProperties.json delete mode 100644 src/Squot.package/SquotSmartRefStreamDeserializer.class/properties.json delete mode 100644 src/Squot.package/SquotSmartRefStreamSerializer.class/README.md delete mode 100644 src/Squot.package/SquotSmartRefStreamSerializer.class/instance/streamClass.st delete mode 100644 src/Squot.package/SquotSmartRefStreamSerializer.class/instance/version.st delete mode 100644 src/Squot.package/SquotSmartRefStreamSerializer.class/instance/write..st delete mode 100644 src/Squot.package/SquotSmartRefStreamSerializer.class/instance/writeObject.from..st delete mode 100644 src/Squot.package/SquotSmartRefStreamSerializer.class/methodProperties.json delete mode 100644 src/Squot.package/SquotSmartRefStreamSerializer.class/properties.json delete mode 100644 src/Squot.package/SquotSnapshot.class/README.md delete mode 100644 src/Squot.package/SquotSnapshot.class/class/builder.st delete mode 100644 src/Squot.package/SquotSnapshot.class/class/empty.st delete mode 100644 src/Squot.package/SquotSnapshot.class/instance/applyPatch..st delete mode 100644 src/Squot.package/SquotSnapshot.class/instance/artifactAt..st delete mode 100644 src/Squot.package/SquotSnapshot.class/instance/artifactAt.ifAbsent..st delete mode 100644 src/Squot.package/SquotSnapshot.class/instance/artifacts..st delete mode 100644 src/Squot.package/SquotSnapshot.class/instance/artifacts.st delete mode 100644 src/Squot.package/SquotSnapshot.class/instance/artifactsDo..st delete mode 100644 src/Squot.package/SquotSnapshot.class/instance/artifactsInLoadOrder.st delete mode 100644 src/Squot.package/SquotSnapshot.class/instance/artifactsInLoadOrderDo..st delete mode 100644 src/Squot.package/SquotSnapshot.class/instance/createNewBuilder.st delete mode 100644 src/Squot.package/SquotSnapshot.class/instance/includesObjectAt..st delete mode 100644 src/Squot.package/SquotSnapshot.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotSnapshot.class/instance/initializeWith..st delete mode 100644 src/Squot.package/SquotSnapshot.class/instance/loadOrder..st delete mode 100644 src/Squot.package/SquotSnapshot.class/instance/loadOrder.st delete mode 100644 src/Squot.package/SquotSnapshot.class/instance/patchRelativeToBase..st delete mode 100644 src/Squot.package/SquotSnapshot.class/instance/paths.st delete mode 100644 src/Squot.package/SquotSnapshot.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotSnapshot.class/instance/resolve..st delete mode 100644 src/Squot.package/SquotSnapshot.class/instance/resolvePath..st delete mode 100644 src/Squot.package/SquotSnapshot.class/instance/resolveString..st delete mode 100644 src/Squot.package/SquotSnapshot.class/instance/select..st delete mode 100644 src/Squot.package/SquotSnapshot.class/instance/snapshot.st delete mode 100644 src/Squot.package/SquotSnapshot.class/methodProperties.json delete mode 100644 src/Squot.package/SquotSnapshot.class/properties.json delete mode 100644 src/Squot.package/SquotSnapshotBuilder.class/README.md delete mode 100644 src/Squot.package/SquotSnapshotBuilder.class/instance/add..st delete mode 100644 src/Squot.package/SquotSnapshotBuilder.class/instance/addAll..st delete mode 100644 src/Squot.package/SquotSnapshotBuilder.class/instance/applyDiff.toObjectAt..st delete mode 100644 src/Squot.package/SquotSnapshotBuilder.class/instance/artifactAt..st delete mode 100644 src/Squot.package/SquotSnapshotBuilder.class/instance/artifacts.st delete mode 100644 src/Squot.package/SquotSnapshotBuilder.class/instance/buildSnapshot.st delete mode 100644 src/Squot.package/SquotSnapshotBuilder.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotSnapshotBuilder.class/instance/loadOrder..st delete mode 100644 src/Squot.package/SquotSnapshotBuilder.class/instance/loadOrder.st delete mode 100644 src/Squot.package/SquotSnapshotBuilder.class/instance/removeAt..st delete mode 100644 src/Squot.package/SquotSnapshotBuilder.class/instance/startingFrom..st delete mode 100644 src/Squot.package/SquotSnapshotBuilder.class/methodProperties.json delete mode 100644 src/Squot.package/SquotSnapshotBuilder.class/properties.json delete mode 100644 src/Squot.package/SquotSnapshotTest.class/README.md delete mode 100644 src/Squot.package/SquotSnapshotTest.class/instance/testBuilderPreservesLoadOrder.st delete mode 100644 src/Squot.package/SquotSnapshotTest.class/instance/testNewBuilderPreservesLoadOrder.st delete mode 100644 src/Squot.package/SquotSnapshotTest.class/instance/testSelectPreservesLoadOrder.st delete mode 100644 src/Squot.package/SquotSnapshotTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotSnapshotTest.class/properties.json delete mode 100644 src/Squot.package/SquotStonFileCodec.class/README.md delete mode 100644 src/Squot.package/SquotStonFileCodec.class/instance/fillContentOf.from..st delete mode 100644 src/Squot.package/SquotStonFileCodec.class/instance/version.st delete mode 100644 src/Squot.package/SquotStonFileCodec.class/instance/write..st delete mode 100644 src/Squot.package/SquotStonFileCodec.class/methodProperties.json delete mode 100644 src/Squot.package/SquotStonFileCodec.class/properties.json delete mode 100644 src/Squot.package/SquotStringMirror.class/README.md delete mode 100644 src/Squot.package/SquotStringMirror.class/class/class..st delete mode 100644 src/Squot.package/SquotStringMirror.class/instance/^equals.st delete mode 100644 src/Squot.package/SquotStringMirror.class/instance/canHaveReferences..st delete mode 100644 src/Squot.package/SquotStringMirror.class/instance/capture.with.ifReplaced..st delete mode 100644 src/Squot.package/SquotStringMirror.class/instance/hash.st delete mode 100644 src/Squot.package/SquotStringMirror.class/instance/initializeSnapshot.of.with..st delete mode 100644 src/Squot.package/SquotStringMirror.class/instance/is.comparableTo..st delete mode 100644 src/Squot.package/SquotStringMirror.class/instance/newDiffFrom.to..st delete mode 100644 src/Squot.package/SquotStringMirror.class/instance/newShadowObject.st delete mode 100644 src/Squot.package/SquotStringMirror.class/instance/referencesFrom..st delete mode 100644 src/Squot.package/SquotStringMirror.class/instance/reflectIndexableField.in..st delete mode 100644 src/Squot.package/SquotStringMirror.class/instance/setClass..st delete mode 100644 src/Squot.package/SquotStringMirror.class/instance/shouldObjectHaveNameAssigned..st delete mode 100644 src/Squot.package/SquotStringMirror.class/instance/theClass.st delete mode 100644 src/Squot.package/SquotStringMirror.class/methodProperties.json delete mode 100644 src/Squot.package/SquotStringMirror.class/properties.json delete mode 100644 src/Squot.package/SquotStringShadow.class/README.md delete mode 100644 src/Squot.package/SquotStringShadow.class/instance/references.st delete mode 100644 src/Squot.package/SquotStringShadow.class/methodProperties.json delete mode 100644 src/Squot.package/SquotStringShadow.class/properties.json delete mode 100644 src/Squot.package/SquotStringShadowMirror.class/README.md delete mode 100644 src/Squot.package/SquotStringShadowMirror.class/instance/referencesFrom..st delete mode 100644 src/Squot.package/SquotStringShadowMirror.class/methodProperties.json delete mode 100644 src/Squot.package/SquotStringShadowMirror.class/properties.json delete mode 100644 src/Squot.package/SquotSystemSingletonMirror.class/README.md delete mode 100644 src/Squot.package/SquotSystemSingletonMirror.class/class/class..st delete mode 100644 src/Squot.package/SquotSystemSingletonMirror.class/instance/capture.with.ifReplaced..st delete mode 100644 src/Squot.package/SquotSystemSingletonMirror.class/instance/newDiffFrom.to..st delete mode 100644 src/Squot.package/SquotSystemSingletonMirror.class/instance/referencesFrom..st delete mode 100644 src/Squot.package/SquotSystemSingletonMirror.class/instance/setClass..st delete mode 100644 src/Squot.package/SquotSystemSingletonMirror.class/instance/shouldObjectHaveNameAssigned..st delete mode 100644 src/Squot.package/SquotSystemSingletonMirror.class/methodProperties.json delete mode 100644 src/Squot.package/SquotSystemSingletonMirror.class/properties.json delete mode 100644 src/Squot.package/SquotTableOfContentsFile.class/README.md delete mode 100644 src/Squot.package/SquotTableOfContentsFile.class/class/on..st delete mode 100644 src/Squot.package/SquotTableOfContentsFile.class/instance/add..st delete mode 100644 src/Squot.package/SquotTableOfContentsFile.class/instance/applyDiff..st delete mode 100644 src/Squot.package/SquotTableOfContentsFile.class/instance/applyDiff.toObjectAt..st delete mode 100644 src/Squot.package/SquotTableOfContentsFile.class/instance/applyPatch..st delete mode 100644 src/Squot.package/SquotTableOfContentsFile.class/instance/delete.st delete mode 100644 src/Squot.package/SquotTableOfContentsFile.class/instance/dictionary.st delete mode 100644 src/Squot.package/SquotTableOfContentsFile.class/instance/exists.st delete mode 100644 src/Squot.package/SquotTableOfContentsFile.class/instance/fileIn.st delete mode 100644 src/Squot.package/SquotTableOfContentsFile.class/instance/fileOut.st delete mode 100644 src/Squot.package/SquotTableOfContentsFile.class/instance/includesKey..st delete mode 100644 src/Squot.package/SquotTableOfContentsFile.class/instance/keysDo..st delete mode 100644 src/Squot.package/SquotTableOfContentsFile.class/instance/on..st delete mode 100644 src/Squot.package/SquotTableOfContentsFile.class/instance/removeAll.st delete mode 100644 src/Squot.package/SquotTableOfContentsFile.class/instance/removeAt..st delete mode 100644 src/Squot.package/SquotTableOfContentsFile.class/methodProperties.json delete mode 100644 src/Squot.package/SquotTableOfContentsFile.class/properties.json delete mode 100644 src/Squot.package/SquotTestObjectWithTransientMetadata.class/README.md delete mode 100644 src/Squot.package/SquotTestObjectWithTransientMetadata.class/instance/squotAddTransientStoreInfoTo..st delete mode 100644 src/Squot.package/SquotTestObjectWithTransientMetadata.class/instance/squotInitializeStoreInfo..st delete mode 100644 src/Squot.package/SquotTestObjectWithTransientMetadata.class/instance/squotRemoveTransientStoreInfoFrom..st delete mode 100644 src/Squot.package/SquotTestObjectWithTransientMetadata.class/methodProperties.json delete mode 100644 src/Squot.package/SquotTestObjectWithTransientMetadata.class/properties.json delete mode 100644 src/Squot.package/SquotTestSnapshots.class/README.md delete mode 100644 src/Squot.package/SquotTestSnapshots.class/class/snapshotWithChangedLoadOrder.st delete mode 100644 src/Squot.package/SquotTestSnapshots.class/methodProperties.json delete mode 100644 src/Squot.package/SquotTestSnapshots.class/properties.json delete mode 100644 src/Squot.package/SquotTextFileCodec.class/README.md delete mode 100644 src/Squot.package/SquotTextFileCodec.class/instance/fillContentOf.from..st delete mode 100644 src/Squot.package/SquotTextFileCodec.class/instance/version.st delete mode 100644 src/Squot.package/SquotTextFileCodec.class/instance/write..st delete mode 100644 src/Squot.package/SquotTextFileCodec.class/methodProperties.json delete mode 100644 src/Squot.package/SquotTextFileCodec.class/properties.json delete mode 100644 src/Squot.package/SquotToggles.class/README.md delete mode 100644 src/Squot.package/SquotToggles.class/class/ignoreMethodsInAssumeUnchanged..st delete mode 100644 src/Squot.package/SquotToggles.class/class/ignoreMethodsInAssumeUnchanged.st delete mode 100644 src/Squot.package/SquotToggles.class/class/warnAboutUseOfDeprecatedMethods..st delete mode 100644 src/Squot.package/SquotToggles.class/class/warnAboutUseOfDeprecatedMethods.st delete mode 100644 src/Squot.package/SquotToggles.class/methodProperties.json delete mode 100644 src/Squot.package/SquotToggles.class/properties.json delete mode 100644 src/Squot.package/SquotToolTestCase.class/README.md delete mode 100644 src/Squot.package/SquotToolTestCase.class/class/isAbstract.st delete mode 100644 src/Squot.package/SquotToolTestCase.class/instance/closeDialogPossiblyOpenedDuring.timeoutMsecs..st delete mode 100644 src/Squot.package/SquotToolTestCase.class/instance/closeTool..st delete mode 100644 src/Squot.package/SquotToolTestCase.class/instance/newToolOn..st delete mode 100644 src/Squot.package/SquotToolTestCase.class/instance/openTool.st delete mode 100644 src/Squot.package/SquotToolTestCase.class/instance/openToolAndTestOn..st delete mode 100644 src/Squot.package/SquotToolTestCase.class/instance/openToolAndTestOnPatch..st delete mode 100644 src/Squot.package/SquotToolTestCase.class/instance/openToolOn..st delete mode 100644 src/Squot.package/SquotToolTestCase.class/instance/performUiTestsOnToolBuiltBy..st delete mode 100644 src/Squot.package/SquotToolTestCase.class/methodProperties.json delete mode 100644 src/Squot.package/SquotToolTestCase.class/properties.json delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/class/squotMirror.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/^equals.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/absorbDiff..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/add.toSlotOverridesOf..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/asSquotTrackedObjectMetadata.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/copyIgnoredInstanceVariables..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/copySlotOverrides..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/hash.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/id..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/id.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/ignoreInstanceVariable.in..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/ignoreInstanceVariables.in..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/ignoredInstanceVariables.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/ignoredInstanceVariablesIn..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/initializeInstVarNamed.of.with..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/materializer..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/materializer.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/mergeWith..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/objectClass..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/objectClassName.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/postCopy.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/replaceObjectNamesWithProperReferences.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/replaceObjectNamesWithReferencesInDictionaryKeys..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/replaceObjectReferencesByNamesInDictionaryKeys..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/replaceObjectReferencesByTheirNames.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/serializer..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/serializer.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/slotOverrideFor.in.ifFound.ifNone..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/slotOverrides.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/squotDiffAgainst..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/squotMergeWith.basedOn..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadata.class/instance/updateFrom..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataDiff.class/README.md delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataDiff.class/class/left.right.diffs..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/diffTreeNodeForAdding..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/diffTreeNodeForChanging..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/diffTreeNodeForRemoving..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/diffs.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/includesId.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/initializeSquotDiffNodes.with..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/left.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/newSquotDiffNodes.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/right.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/setLeft.right.diffs..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/squotApplyTo..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/squotHasChanges.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/update.reflectedIn.asMaterializedFrom.reflectedIn..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataDiff.class/methodProperties.json delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataDiff.class/properties.json delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/README.md delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/instance/testApplyIsNonDestructive.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/instance/testCyclesDoNotCauseInifiniteLoops.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/instance/testEverythingIsAValue.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/instance/testRemove.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/instance/testReplacesStrings.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/instance/testUnchangedValuesRemain.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/properties.json delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataMerge.class/README.md delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataMerge.class/class/into.merge.basedOn.diffs.conflicts..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataMerge.class/instance/asSquotHierarchicalDiff.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataMerge.class/instance/includesId.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataMerge.class/instance/privateResolvedPatch.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataMerge.class/instance/setWorking.incoming.base.diffs.conflicts..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataMerge.class/instance/squotChangeAsStringOrText.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataMerge.class/methodProperties.json delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataMerge.class/properties.json delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/README.md delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/instance/testAdditionConflict.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/instance/testApplyIsNonDestructive.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/instance/testDeepConflict.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/instance/testEverythingIsAValue.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/instance/testReplacesStrings.st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/properties.json delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataMirror.class/README.md delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataMirror.class/instance/is.comparableTo..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataMirror.class/instance/mirrorOf.reachedVia.from..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataMirror.class/instance/newDiffFrom.to..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataMirror.class/instance/referencesFrom..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataMirror.class/instance/reflectElement.of.put..st delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataMirror.class/methodProperties.json delete mode 100644 src/Squot.package/SquotTrackedObjectMetadataMirror.class/properties.json delete mode 100644 src/Squot.package/SquotUnacquaintedFileVisitor.class/README.md delete mode 100644 src/Squot.package/SquotUnacquaintedFileVisitor.class/class/on.ignoring.addingTo..st delete mode 100644 src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/fileStore..st delete mode 100644 src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/fileStore.st delete mode 100644 src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/ignoredPaths..st delete mode 100644 src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/ignoredPaths.st delete mode 100644 src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/snapshotBuilder..st delete mode 100644 src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/snapshotBuilder.st delete mode 100644 src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/visit..st delete mode 100644 src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/visitDirectory..st delete mode 100644 src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/visitFile..st delete mode 100644 src/Squot.package/SquotUnacquaintedFileVisitor.class/methodProperties.json delete mode 100644 src/Squot.package/SquotUnacquaintedFileVisitor.class/properties.json delete mode 100644 src/Squot.package/SquotUnloadedArtifact.class/README.md delete mode 100644 src/Squot.package/SquotUnloadedArtifact.class/class/wrapping..st delete mode 100644 src/Squot.package/SquotUnloadedArtifact.class/instance/applyLoadStatusTo..st delete mode 100644 src/Squot.package/SquotUnloadedArtifact.class/instance/diffAgainst..st delete mode 100644 src/Squot.package/SquotUnloadedArtifact.class/instance/isLoaded.st delete mode 100644 src/Squot.package/SquotUnloadedArtifact.class/instance/load.st delete mode 100644 src/Squot.package/SquotUnloadedArtifact.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotUnloadedArtifact.class/instance/updatePath.st delete mode 100644 src/Squot.package/SquotUnloadedArtifact.class/methodProperties.json delete mode 100644 src/Squot.package/SquotUnloadedArtifact.class/properties.json delete mode 100644 src/Squot.package/SquotUnloadedArtifactsTest.class/README.md delete mode 100644 src/Squot.package/SquotUnloadedArtifactsTest.class/instance/testLazyArtifactsAreEvaluatedWhenAdded.st delete mode 100644 src/Squot.package/SquotUnloadedArtifactsTest.class/instance/testMergeWithLocalChangesToUnloadedArtifact.st delete mode 100644 src/Squot.package/SquotUnloadedArtifactsTest.class/instance/testMergeWithUnloadedArtifact.st delete mode 100644 src/Squot.package/SquotUnloadedArtifactsTest.class/instance/testUnloadedAppearDisabledInLoads.st delete mode 100644 src/Squot.package/SquotUnloadedArtifactsTest.class/instance/testUnloadedAppearInMerges.st delete mode 100644 src/Squot.package/SquotUnloadedArtifactsTest.class/instance/testUnloadedDoNotAppearInSaveUnlessModifiedOrAdded.st delete mode 100644 src/Squot.package/SquotUnloadedArtifactsTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotUnloadedArtifactsTest.class/properties.json delete mode 100644 src/Squot.package/SquotUnrecordedFilesArtifact.class/README.md delete mode 100644 src/Squot.package/SquotUnrecordedFilesArtifact.class/class/newId.st delete mode 100644 src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/^equals.st delete mode 100644 src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/browse.st delete mode 100644 src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/diffAgainst..st delete mode 100644 src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/displayText.st delete mode 100644 src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/hash.st delete mode 100644 src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/isLoadable.st delete mode 100644 src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/materializeWith.replacing..st delete mode 100644 src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/mergeWith.basedOn..st delete mode 100644 src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/ownerSnapshot..st delete mode 100644 src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/ownerSnapshot.st delete mode 100644 src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/path..st delete mode 100644 src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/reverseDiffAgainstUnrecordedFiles..st delete mode 100644 src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/rootDirectory..st delete mode 100644 src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/rootDirectory.st delete mode 100644 src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/squotSummaryText.st delete mode 100644 src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/storeWith..st delete mode 100644 src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/wantsToBeInTableOfContents.st delete mode 100644 src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/writeWith..st delete mode 100644 src/Squot.package/SquotUnrecordedFilesArtifact.class/methodProperties.json delete mode 100644 src/Squot.package/SquotUnrecordedFilesArtifact.class/properties.json delete mode 100644 src/Squot.package/SquotUnsavedChangesTest.class/README.md delete mode 100644 src/Squot.package/SquotUnsavedChangesTest.class/instance/addAnotherObject.st delete mode 100644 src/Squot.package/SquotUnsavedChangesTest.class/instance/assertAddedObjectWasRemoved.st delete mode 100644 src/Squot.package/SquotUnsavedChangesTest.class/instance/assertTrackedObjectStillChanged.st delete mode 100644 src/Squot.package/SquotUnsavedChangesTest.class/instance/assertTrackedObjectWasReset.st delete mode 100644 src/Squot.package/SquotUnsavedChangesTest.class/instance/changeTrackedObject.st delete mode 100644 src/Squot.package/SquotUnsavedChangesTest.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotUnsavedChangesTest.class/instance/testDiscardUnsavedChanges.st delete mode 100644 src/Squot.package/SquotUnsavedChangesTest.class/instance/testSwitchToRestoresUnsavedChanges.st delete mode 100644 src/Squot.package/SquotUnsavedChangesTest.class/instance/testSwitchToRestoresUnsavedChangesOnly.st delete mode 100644 src/Squot.package/SquotUnsavedChangesTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotUnsavedChangesTest.class/properties.json delete mode 100644 src/Squot.package/SquotVariablePartSlot.class/README.md delete mode 100644 src/Squot.package/SquotVariablePartSlot.class/class/printHeadlineForChangesTextOn..st delete mode 100644 src/Squot.package/SquotVariablePartSlot.class/instance/addTo..st delete mode 100644 src/Squot.package/SquotVariablePartSlot.class/instance/addTo.with..st delete mode 100644 src/Squot.package/SquotVariablePartSlot.class/instance/asReference.st delete mode 100644 src/Squot.package/SquotVariablePartSlot.class/instance/diffToBaseIndexedSlot..st delete mode 100644 src/Squot.package/SquotVariablePartSlot.class/instance/index.st delete mode 100644 src/Squot.package/SquotVariablePartSlot.class/instance/lookupIn..st delete mode 100644 src/Squot.package/SquotVariablePartSlot.class/instance/removeFrom..st delete mode 100644 src/Squot.package/SquotVariablePartSlot.class/instance/removeFrom.with..st delete mode 100644 src/Squot.package/SquotVariablePartSlot.class/instance/squotDiffAgainst..st delete mode 100644 src/Squot.package/SquotVariablePartSlot.class/methodProperties.json delete mode 100644 src/Squot.package/SquotVariablePartSlot.class/properties.json delete mode 100644 src/Squot.package/SquotVersionAlreadyInHistory.class/README.md delete mode 100644 src/Squot.package/SquotVersionAlreadyInHistory.class/class/historian.version..st delete mode 100644 src/Squot.package/SquotVersionAlreadyInHistory.class/instance/historian..st delete mode 100644 src/Squot.package/SquotVersionAlreadyInHistory.class/instance/historian.st delete mode 100644 src/Squot.package/SquotVersionAlreadyInHistory.class/instance/version..st delete mode 100644 src/Squot.package/SquotVersionAlreadyInHistory.class/instance/version.st delete mode 100644 src/Squot.package/SquotVersionAlreadyInHistory.class/methodProperties.json delete mode 100644 src/Squot.package/SquotVersionAlreadyInHistory.class/properties.json delete mode 100644 src/Squot.package/SquotWorkingCopy.class/README.md delete mode 100644 src/Squot.package/SquotWorkingCopy.class/class/forTestInMemory.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/class/initialize.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/class/newOnObjectMemory.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/class/register..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/class/registered.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/class/unregister..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/add..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/add.at..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/add.withStoreInfo..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/addAsUnloadedFrom.thatAreNotIn..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/addGlobalObjectsToStore..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/addLoadedPackageInfoNamed.at.serializer..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/addPackage.at..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/addPackageNamed.at..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/addParentVersion..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/addUnloaded..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/additionalParents..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/additionalParents.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/anyPackageOrNil.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/appendToLoadOrder..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/applyDiff.toObjectAt..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/applyPatch..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/artifactAt..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/artifacts.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/artifactsInLoadOrder.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/asSquotVersionIn..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/assertConsistentLoadOrder.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/baseSnapshot.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/baseVersion.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/browse.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/cacheSavedArtifacts.in..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/checkMergeBasesOf.with.ifNoCommonAncestor.ifAncestor.ifDescendant..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/checkMergeBasesOfHeadVersionWith.ifNoCommonAncestor.ifAncestor.ifDescendant..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/cherryPickTemporaryVersion..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/confirm..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/convertToCurrentVersion.refStream..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/currentSnapshot.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/defaultAuthor.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/discardUnsavedChanges.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/flushPreviouslySavedArtifacts.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/hasAdditionalParents.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/includesObject..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/includesObjectAt..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/incomingPatchWhenLoading..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/inform..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/initializeStoreInfo.forObject..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/initializeStoreInfo.forObject.shadow..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/lazySnapshot.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/loadArtifact..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/loadArtifactInteractively.ifCanceled..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/loadOrder..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/loadOrder.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/loadPatchInteractively.ifCanceled..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/loadVersion.interactive..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/loadVersionInteractively.ifCanceled..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/loadedHistorian..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/loadedHistorian.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/loadedVersion..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/loadedVersion.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/mergeArtifactInteractively.from.ifCanceled..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/mergeInteractively.ifCanceled..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/mergeSilently.basedOn.onConflictsDo..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/mergeTemporaryVersionsOn..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/mergeVersionInteractively.ifCanceled..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/mergeVersionWithLoadedObjects.ifCanceled..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/metadataForObjectAt..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/moveObjectAt.to..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/name..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/name.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/newCherryPickOperation.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/newInteractiveCherryPickOperation.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/newInteractiveMergeOperation.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/newInteractiveRevertOperation.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/newInteractiveSaveOperation.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/newMergeOperation.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/newRevertOperation.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/newSaveOperation.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/newSnapshotBuilder.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/newVersionMessage..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/newVersionMessage.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/objectAt..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/packageSerializer.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/parentVersions.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/patchRelativeToBase..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/previouslySavedArtifacts.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/printOn..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/privateLoadVersion..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/register.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/registerPackagesInStore..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/remove..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/removeAt..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/removePackageNamed..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/repository..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/repository.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/resetAdditionalParents.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/resetNewVersionMessage.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/restoreCurrentAncestryAfter..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/saveChanges.on.message..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/saveVersionWithMessage..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/selectFromMerge.title.ifCancelled..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/selectFromPatch.title.ifCanceled..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/shouldStoreMetadata..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/shouldStoreMetadata.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/snapshot.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/store..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/store.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/switchAndMoveUnsavedChangesOverTo..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/switchTo..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/temporarilySaveChangesDuring..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/temporarilySaveChangesOn..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/unload.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/unloadedArtifacts.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/unregister.st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/updateLoadOrderFromVersion..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/withCurrentSnapshot..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/instance/withCurrentSnapshot.do..st delete mode 100644 src/Squot.package/SquotWorkingCopy.class/methodProperties.json delete mode 100644 src/Squot.package/SquotWorkingCopy.class/properties.json delete mode 100644 src/Squot.package/SquotWorkingCopyArtifact.class/README.md delete mode 100644 src/Squot.package/SquotWorkingCopyArtifact.class/class/wrapping.in..st delete mode 100644 src/Squot.package/SquotWorkingCopyArtifact.class/instance/^equals.st delete mode 100644 src/Squot.package/SquotWorkingCopyArtifact.class/instance/applyLoadStatusTo..st delete mode 100644 src/Squot.package/SquotWorkingCopyArtifact.class/instance/artifact..st delete mode 100644 src/Squot.package/SquotWorkingCopyArtifact.class/instance/artifact.st delete mode 100644 src/Squot.package/SquotWorkingCopyArtifact.class/instance/browse.st delete mode 100644 src/Squot.package/SquotWorkingCopyArtifact.class/instance/capture.st delete mode 100644 src/Squot.package/SquotWorkingCopyArtifact.class/instance/diffAgainst..st delete mode 100644 src/Squot.package/SquotWorkingCopyArtifact.class/instance/doesNotUnderstand..st delete mode 100644 src/Squot.package/SquotWorkingCopyArtifact.class/instance/hash.st delete mode 100644 src/Squot.package/SquotWorkingCopyArtifact.class/instance/isLoaded.st delete mode 100644 src/Squot.package/SquotWorkingCopyArtifact.class/instance/mergeDiffWith.basedOn..st delete mode 100644 src/Squot.package/SquotWorkingCopyArtifact.class/instance/mergeWith.basedOn..st delete mode 100644 src/Squot.package/SquotWorkingCopyArtifact.class/instance/mergeWithoutBaseWith..st delete mode 100644 src/Squot.package/SquotWorkingCopyArtifact.class/instance/serializer..st delete mode 100644 src/Squot.package/SquotWorkingCopyArtifact.class/instance/setArtifact.workingCopy..st delete mode 100644 src/Squot.package/SquotWorkingCopyArtifact.class/instance/snapshot.st delete mode 100644 src/Squot.package/SquotWorkingCopyArtifact.class/instance/updatePath.st delete mode 100644 src/Squot.package/SquotWorkingCopyArtifact.class/instance/workingCopy..st delete mode 100644 src/Squot.package/SquotWorkingCopyArtifact.class/instance/workingCopy.st delete mode 100644 src/Squot.package/SquotWorkingCopyArtifact.class/methodProperties.json delete mode 100644 src/Squot.package/SquotWorkingCopyArtifact.class/properties.json delete mode 100644 src/Squot.package/SquotWorkingCopyBrowser.class/README.md delete mode 100644 src/Squot.package/SquotWorkingCopyBrowser.class/class/newOn..st delete mode 100644 src/Squot.package/SquotWorkingCopyBrowser.class/instance/artifactsList.st delete mode 100644 src/Squot.package/SquotWorkingCopyBrowser.class/instance/buildWith..st delete mode 100644 src/Squot.package/SquotWorkingCopyBrowser.class/instance/buttonHeight.st delete mode 100644 src/Squot.package/SquotWorkingCopyBrowser.class/instance/dragFromObjectList..st delete mode 100644 src/Squot.package/SquotWorkingCopyBrowser.class/instance/dropOnObjectList.at..st delete mode 100644 src/Squot.package/SquotWorkingCopyBrowser.class/instance/editLoadOrder..st delete mode 100644 src/Squot.package/SquotWorkingCopyBrowser.class/instance/isFirstArtifactSelected.st delete mode 100644 src/Squot.package/SquotWorkingCopyBrowser.class/instance/isLastArtifactSelected.st delete mode 100644 src/Squot.package/SquotWorkingCopyBrowser.class/instance/labelString.st delete mode 100644 src/Squot.package/SquotWorkingCopyBrowser.class/instance/moveDownInLoadOrder.st delete mode 100644 src/Squot.package/SquotWorkingCopyBrowser.class/instance/moveUpInLoadOrder.st delete mode 100644 src/Squot.package/SquotWorkingCopyBrowser.class/instance/objectLabels.st delete mode 100644 src/Squot.package/SquotWorkingCopyBrowser.class/instance/selectedObject.st delete mode 100644 src/Squot.package/SquotWorkingCopyBrowser.class/instance/selectedObjectIndex..st delete mode 100644 src/Squot.package/SquotWorkingCopyBrowser.class/instance/selectedObjectIndex.st delete mode 100644 src/Squot.package/SquotWorkingCopyBrowser.class/instance/wantsDropOnObjectList.dragTransferType.source..st delete mode 100644 src/Squot.package/SquotWorkingCopyBrowser.class/instance/workingCopy..st delete mode 100644 src/Squot.package/SquotWorkingCopyBrowser.class/instance/workingCopy.st delete mode 100644 src/Squot.package/SquotWorkingCopyBrowser.class/methodProperties.json delete mode 100644 src/Squot.package/SquotWorkingCopyBrowser.class/properties.json delete mode 100644 src/Squot.package/SquotWorkingCopyBrowserTest.class/README.md delete mode 100644 src/Squot.package/SquotWorkingCopyBrowserTest.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotWorkingCopyBrowserTest.class/instance/testCannotMoveDownLastObjectInLoadOrder.st delete mode 100644 src/Squot.package/SquotWorkingCopyBrowserTest.class/instance/testCannotMoveUpFirstObjectInLoadOrder.st delete mode 100644 src/Squot.package/SquotWorkingCopyBrowserTest.class/instance/testDisplaying.st delete mode 100644 src/Squot.package/SquotWorkingCopyBrowserTest.class/instance/testMoveDownInLoadOrder.st delete mode 100644 src/Squot.package/SquotWorkingCopyBrowserTest.class/instance/testMoveUpInLoadOrder.st delete mode 100644 src/Squot.package/SquotWorkingCopyBrowserTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotWorkingCopyBrowserTest.class/properties.json delete mode 100644 src/Squot.package/SquotWorkingCopyHasAdditionalParents.class/README.md delete mode 100644 src/Squot.package/SquotWorkingCopyHasAdditionalParents.class/class/workingCopy.operation..st delete mode 100644 src/Squot.package/SquotWorkingCopyHasAdditionalParents.class/instance/confirmAndProceed.st delete mode 100644 src/Squot.package/SquotWorkingCopyHasAdditionalParents.class/instance/setWorkingCopy.operation..st delete mode 100644 src/Squot.package/SquotWorkingCopyHasAdditionalParents.class/methodProperties.json delete mode 100644 src/Squot.package/SquotWorkingCopyHasAdditionalParents.class/properties.json delete mode 100644 src/Squot.package/SquotWorkingCopyOperation.class/README.md delete mode 100644 src/Squot.package/SquotWorkingCopyOperation.class/instance/applyToWorkingCopy.st delete mode 100644 src/Squot.package/SquotWorkingCopyOperation.class/instance/createNewUnitOfWork.st delete mode 100644 src/Squot.package/SquotWorkingCopyOperation.class/instance/extensions..st delete mode 100644 src/Squot.package/SquotWorkingCopyOperation.class/instance/extensions.st delete mode 100644 src/Squot.package/SquotWorkingCopyOperation.class/instance/finishUnitOfWork.st delete mode 100644 src/Squot.package/SquotWorkingCopyOperation.class/instance/initialize.st delete mode 100644 src/Squot.package/SquotWorkingCopyOperation.class/instance/requestor..st delete mode 100644 src/Squot.package/SquotWorkingCopyOperation.class/instance/requestor.st delete mode 100644 src/Squot.package/SquotWorkingCopyOperation.class/instance/resultPromise.st delete mode 100644 src/Squot.package/SquotWorkingCopyOperation.class/instance/startUnitOfWork.st delete mode 100644 src/Squot.package/SquotWorkingCopyOperation.class/instance/title..st delete mode 100644 src/Squot.package/SquotWorkingCopyOperation.class/instance/title.st delete mode 100644 src/Squot.package/SquotWorkingCopyOperation.class/instance/unitOfWork..st delete mode 100644 src/Squot.package/SquotWorkingCopyOperation.class/instance/unitOfWork.st delete mode 100644 src/Squot.package/SquotWorkingCopyOperation.class/instance/withUnitOfWork..st delete mode 100644 src/Squot.package/SquotWorkingCopyOperation.class/instance/withUnitOfWorkActive..st delete mode 100644 src/Squot.package/SquotWorkingCopyOperation.class/instance/workingCopy..st delete mode 100644 src/Squot.package/SquotWorkingCopyOperation.class/instance/workingCopy.st delete mode 100644 src/Squot.package/SquotWorkingCopyOperation.class/instance/workingCopySnapshot..st delete mode 100644 src/Squot.package/SquotWorkingCopyOperation.class/instance/workingCopySnapshot.st delete mode 100644 src/Squot.package/SquotWorkingCopyOperation.class/methodProperties.json delete mode 100644 src/Squot.package/SquotWorkingCopyOperation.class/properties.json delete mode 100644 src/Squot.package/SquotWorkingCopySaveTest.class/README.md delete mode 100644 src/Squot.package/SquotWorkingCopySaveTest.class/instance/testSaveSnapshotsBeforeTheDialogIsShown.st delete mode 100644 src/Squot.package/SquotWorkingCopySaveTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotWorkingCopySaveTest.class/properties.json delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/README.md delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/class/isAbstract.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/addPackage.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/assertVersion.containsMethod..st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/changeLogSuppressor.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/classFactory.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/denyChangesInWorkingCopy.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/expectedFailures.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/newRepository.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/newStore.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/newWorkingCopy.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/performTest.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/repositoryClass.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/repositoryRootDirectory.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/tearDown.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testAddMultipleObjectsSuccessively.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testAdditionNotLoaded.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testBaseSnapshotEqualsBaseVersionSnapshot.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testCherryPickDoesNotSaveUnrelatedChanges.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testCherryPickOfOrphanedVersion.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testCherryPickWithConflicts.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testCherryPickWithConflictsChooseRemote.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testCherryPickWithoutConflicts.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testDiffWithParent.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testDiscardUnsavedChangeToUnloadedArtifact.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testKeptObjectAfterMergeInIncmoingLoadOrderPosition.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testKeptObjectAfterMergeInSameLoadOrderPosition.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeAndLoadUnloadedArtifact.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeFastForward.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeRemovalAndChange.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeSingleArtifact.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeTwoOrphanedVersions.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeVersionWithLoadedObjects.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeWithAddedArtifactOnBothSides.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeWithConflicts.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeWithConflictsChooseRemote.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeWithRemovedArtifactOnBothSides.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeWithoutConflicts.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeRemovalAndChange.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeTwoOrphanedVersions.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeWithAddedArtifactOnBothSides.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeWithConflicts.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeWithConflictsChooseRemote.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeWithRemovedArtifactOnBothSides.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeWithoutConflicts.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testPatchAndLoadUnloadedArtifact.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testPatchUnloadedArtifact.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testReaddedObjectAfterMergeInIncomingLoadOrderPosition.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testReaddedObjectAfterMergeInSameLoadOrderPosition.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testRemovePackage.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testRemovedUnsavedArtifactStaysRemoved.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testRestoreClass.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testRestorePackage.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testRevertDoesNotSaveUnrelatedChanges.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testRevertOfOrphanedVersion.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testRevertWithoutConflicts.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testSaveTimestampIsNow.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testSaveWithoutAddedArtifact.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchAndMoveOverToBranchAtSameVersion.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchAwayFromOrphanedBranch.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchBranch.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchBranchAndMoveOverUnsavedChanges.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchBranchAndMoveOverUnsavedChangesInAddedArtifact.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchBranchAndMoveOverUnsavedChangesWithConflict.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchToBranchAtSameVersion.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testTrackingAClass.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testTrackingAPackage.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testTrackingObject.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testTrackingText.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/testTrackingWorkspaceMorph.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/instance/workingCopy.st delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/methodProperties.json delete mode 100644 src/Squot.package/SquotWorkingCopyTest.class/properties.json delete mode 100644 src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/README.md delete mode 100644 src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/class/isAbstract.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/instance/newRepository.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/instance/newStore.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/instance/newWorkingCopy.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/instance/tearDown.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/methodProperties.json delete mode 100644 src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/properties.json delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/README.md delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/assertConflictMethodHasNotChanged.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/assertConflictMethodIncomingEditionLoaded.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/assertConflictedMethodIncomingEditionPresentIn..st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/assertConflictedMethodWorkingEditionPresentIn..st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/assertThirdMethodLoaded.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/assertThirdMethodWillBeAdded..st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/chooseIncomingEditionOfConflictedMethodIn..st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/chooseWorkingEditionOfConflictedMethodIn..st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/classFactory.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/createBaseVersion.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/createFirstMergeParent.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/createSecondMergeParent.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/firstVersion.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/initializeForTestCase..st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/merge.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/oldMerge.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/packageInfo.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/packagePath.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/sampleClass.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/secondVersion.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/thirdVersion.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/methodProperties.json delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/properties.json delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/README.md delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/classFactory.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/createFirstMergeParent.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/createSecondMergeParent.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/firstVersion.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/firstVersionArtifact.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/initializeForTestCase..st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/merge.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/oldMerge.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/secondVersion.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/secondVersionArtifact.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/tearDown.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/methodProperties.json delete mode 100644 src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/properties.json delete mode 100644 src/Squot.package/SquotWorkingCopyTestScenario.class/README.md delete mode 100644 src/Squot.package/SquotWorkingCopyTestScenario.class/class/forTestCase..st delete mode 100644 src/Squot.package/SquotWorkingCopyTestScenario.class/instance/assert..st delete mode 100644 src/Squot.package/SquotWorkingCopyTestScenario.class/instance/assert.description..st delete mode 100644 src/Squot.package/SquotWorkingCopyTestScenario.class/instance/assert.equals..st delete mode 100644 src/Squot.package/SquotWorkingCopyTestScenario.class/instance/assert.equals.description..st delete mode 100644 src/Squot.package/SquotWorkingCopyTestScenario.class/instance/deny..st delete mode 100644 src/Squot.package/SquotWorkingCopyTestScenario.class/instance/deny.description..st delete mode 100644 src/Squot.package/SquotWorkingCopyTestScenario.class/instance/initializeForTestCase..st delete mode 100644 src/Squot.package/SquotWorkingCopyTestScenario.class/instance/repository.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestScenario.class/instance/setUp.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestScenario.class/instance/should.raise..st delete mode 100644 src/Squot.package/SquotWorkingCopyTestScenario.class/instance/shouldnt.raise..st delete mode 100644 src/Squot.package/SquotWorkingCopyTestScenario.class/instance/store.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestScenario.class/instance/tearDown.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestScenario.class/instance/workingCopy.st delete mode 100644 src/Squot.package/SquotWorkingCopyTestScenario.class/methodProperties.json delete mode 100644 src/Squot.package/SquotWorkingCopyTestScenario.class/properties.json delete mode 100644 src/Squot.package/String.extension/class/squotMirror.st delete mode 100644 src/Squot.package/String.extension/class/squotTextFileSerializer.st delete mode 100644 src/Squot.package/String.extension/instance/asSquotVersionIn..st delete mode 100644 src/Squot.package/String.extension/instance/squotPathSegments.st delete mode 100644 src/Squot.package/String.extension/methodProperties.json delete mode 100644 src/Squot.package/String.extension/properties.json delete mode 100644 src/Squot.package/Symbol.extension/class/squotMirror.st delete mode 100644 src/Squot.package/Symbol.extension/instance/canHaveNameAssignedBySquot.st delete mode 100644 src/Squot.package/Symbol.extension/instance/captureWithSquot..st delete mode 100644 src/Squot.package/Symbol.extension/instance/squotShadowFactory.st delete mode 100644 src/Squot.package/Symbol.extension/instance/squotShouldKeepIdentity.st delete mode 100644 src/Squot.package/Symbol.extension/methodProperties.json delete mode 100644 src/Squot.package/Symbol.extension/properties.json delete mode 100644 src/Squot.package/TSnapshotAssertionsForMonticello.trait/README.md delete mode 100644 src/Squot.package/TSnapshotAssertionsForMonticello.trait/instance/assertVersion.containsClass..st delete mode 100644 src/Squot.package/TSnapshotAssertionsForMonticello.trait/instance/assertVersion.containsMethod..st delete mode 100644 src/Squot.package/TSnapshotAssertionsForMonticello.trait/instance/assertVersion.containsPackage..st delete mode 100644 src/Squot.package/TSnapshotAssertionsForMonticello.trait/instance/assertVersion.doesNotContainMethod..st delete mode 100644 src/Squot.package/TSnapshotAssertionsForMonticello.trait/methodProperties.json delete mode 100644 src/Squot.package/TSnapshotAssertionsForMonticello.trait/properties.json delete mode 100644 src/Squot.package/TSquotAddition.trait/README.md delete mode 100644 src/Squot.package/TSquotAddition.trait/instance/isAddition.st delete mode 100644 src/Squot.package/TSquotAddition.trait/instance/isModification.st delete mode 100644 src/Squot.package/TSquotAddition.trait/instance/isRemoval.st delete mode 100644 src/Squot.package/TSquotAddition.trait/instance/squotHasChanges.st delete mode 100644 src/Squot.package/TSquotAddition.trait/methodProperties.json delete mode 100644 src/Squot.package/TSquotAddition.trait/properties.json delete mode 100644 src/Squot.package/TSquotArtifact.trait/README.md delete mode 100644 src/Squot.package/TSquotArtifact.trait/instance/asBaseDiff.against..st delete mode 100644 src/Squot.package/TSquotArtifact.trait/instance/browseFromSquotWorkingCopyArtifact..st delete mode 100644 src/Squot.package/TSquotArtifact.trait/instance/copyWithDiffApplied..st delete mode 100644 src/Squot.package/TSquotArtifact.trait/instance/diffAgainst..st delete mode 100644 src/Squot.package/TSquotArtifact.trait/instance/diffContentAgainstThatOf..st delete mode 100644 src/Squot.package/TSquotArtifact.trait/instance/diffContentAgainstThatOf.withBase..st delete mode 100644 src/Squot.package/TSquotArtifact.trait/instance/isLoadable.st delete mode 100644 src/Squot.package/TSquotArtifact.trait/instance/mergeDiffWith.basedOn..st delete mode 100644 src/Squot.package/TSquotArtifact.trait/instance/mergeWith.basedOn..st delete mode 100644 src/Squot.package/TSquotArtifact.trait/instance/mergeWithoutBaseWith..st delete mode 100644 src/Squot.package/TSquotArtifact.trait/instance/packageArtifactDefinitions.st delete mode 100644 src/Squot.package/TSquotArtifact.trait/instance/packageName.st delete mode 100644 src/Squot.package/TSquotArtifact.trait/instance/reverseDiffContentAgainst..st delete mode 100644 src/Squot.package/TSquotArtifact.trait/instance/reverseDiffContentAgainst.withBase..st delete mode 100644 src/Squot.package/TSquotArtifact.trait/instance/serializerName.st delete mode 100644 src/Squot.package/TSquotArtifact.trait/instance/shadowOfTrackedObject.st delete mode 100644 src/Squot.package/TSquotArtifact.trait/instance/squotSummaryText.st delete mode 100644 src/Squot.package/TSquotArtifact.trait/instance/storeWith..st delete mode 100644 src/Squot.package/TSquotArtifact.trait/instance/wantsToBeInTableOfContents.st delete mode 100644 src/Squot.package/TSquotArtifact.trait/instance/writeWith..st delete mode 100644 src/Squot.package/TSquotArtifact.trait/methodProperties.json delete mode 100644 src/Squot.package/TSquotArtifact.trait/properties.json delete mode 100644 src/Squot.package/TSquotCodec.trait/README.md delete mode 100644 src/Squot.package/TSquotCodec.trait/class/canReadObjectSerializedBy..st delete mode 100644 src/Squot.package/TSquotCodec.trait/instance/canReadDiffs.st delete mode 100644 src/Squot.package/TSquotCodec.trait/instance/canWriteDiffs.st delete mode 100644 src/Squot.package/TSquotCodec.trait/methodProperties.json delete mode 100644 src/Squot.package/TSquotCodec.trait/properties.json delete mode 100644 src/Squot.package/TSquotConvertibleToVersion.trait/README.md delete mode 100644 src/Squot.package/TSquotConvertibleToVersion.trait/instance/mergeBasesWith..st delete mode 100644 src/Squot.package/TSquotConvertibleToVersion.trait/instance/versionsNotOn..st delete mode 100644 src/Squot.package/TSquotConvertibleToVersion.trait/instance/versionsUniqueTo..st delete mode 100644 src/Squot.package/TSquotConvertibleToVersion.trait/instance/versionsUnsharedWith..st delete mode 100644 src/Squot.package/TSquotConvertibleToVersion.trait/methodProperties.json delete mode 100644 src/Squot.package/TSquotConvertibleToVersion.trait/properties.json delete mode 100644 src/Squot.package/TSquotDiff.trait/README.md delete mode 100644 src/Squot.package/TSquotDiff.trait/instance/addReferenceDiff..st delete mode 100644 src/Squot.package/TSquotDiff.trait/instance/applyToObjectNamed.inGraph.with..st delete mode 100644 src/Squot.package/TSquotDiff.trait/instance/applyToShadowNamed.inGraph..st delete mode 100644 src/Squot.package/TSquotDiff.trait/instance/asSquotConflicts.st delete mode 100644 src/Squot.package/TSquotDiff.trait/instance/initializeSquotDiffNodes.with..st delete mode 100644 src/Squot.package/TSquotDiff.trait/instance/newSquotDiffNodes.st delete mode 100644 src/Squot.package/TSquotDiff.trait/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st delete mode 100644 src/Squot.package/TSquotDiff.trait/instance/rightName.st delete mode 100644 src/Squot.package/TSquotDiff.trait/instance/squotApplyTo..st delete mode 100644 src/Squot.package/TSquotDiff.trait/instance/squotApplyTo.with..st delete mode 100644 src/Squot.package/TSquotDiff.trait/instance/squotApplyToLoaded..st delete mode 100644 src/Squot.package/TSquotDiff.trait/instance/squotHasChanges.st delete mode 100644 src/Squot.package/TSquotDiff.trait/instance/update.reflectedIn.asMaterializedFrom.reflectedIn..st delete mode 100644 src/Squot.package/TSquotDiff.trait/methodProperties.json delete mode 100644 src/Squot.package/TSquotDiff.trait/properties.json delete mode 100644 src/Squot.package/TSquotDiffable.trait/README.md delete mode 100644 src/Squot.package/TSquotDiffable.trait/instance/squotDiffAgainst.with..st delete mode 100644 src/Squot.package/TSquotDiffable.trait/methodProperties.json delete mode 100644 src/Squot.package/TSquotDiffable.trait/properties.json delete mode 100644 src/Squot.package/TSquotDiffableShadow.trait/README.md delete mode 100644 src/Squot.package/TSquotDiffableShadow.trait/instance/squotDiffAgainst.with..st delete mode 100644 src/Squot.package/TSquotDiffableShadow.trait/methodProperties.json delete mode 100644 src/Squot.package/TSquotDiffableShadow.trait/properties.json delete mode 100644 src/Squot.package/TSquotLocalHistorian.trait/README.md delete mode 100644 src/Squot.package/TSquotLocalHistorian.trait/instance/asSquotVersionIn..st delete mode 100644 src/Squot.package/TSquotLocalHistorian.trait/instance/createNewVersion.with..st delete mode 100644 src/Squot.package/TSquotLocalHistorian.trait/instance/createNewVersionFromPatch.with..st delete mode 100644 src/Squot.package/TSquotLocalHistorian.trait/instance/name.st delete mode 100644 src/Squot.package/TSquotLocalHistorian.trait/instance/repository.st delete mode 100644 src/Squot.package/TSquotLocalHistorian.trait/instance/shortName.st delete mode 100644 src/Squot.package/TSquotLocalHistorian.trait/instance/version..st delete mode 100644 src/Squot.package/TSquotLocalHistorian.trait/instance/version.st delete mode 100644 src/Squot.package/TSquotLocalHistorian.trait/methodProperties.json delete mode 100644 src/Squot.package/TSquotLocalHistorian.trait/properties.json delete mode 100644 src/Squot.package/TSquotLocalRepository.trait/README.md delete mode 100644 src/Squot.package/TSquotLocalRepository.trait/instance/clearTemporaryVersionsOn..st delete mode 100644 src/Squot.package/TSquotLocalRepository.trait/instance/copySettingsFrom.to..st delete mode 100644 src/Squot.package/TSquotLocalRepository.trait/instance/createNewVersion.with..st delete mode 100644 src/Squot.package/TSquotLocalRepository.trait/instance/createNewVersionFromPatch.with..st delete mode 100644 src/Squot.package/TSquotLocalRepository.trait/instance/createWorkingCopy.st delete mode 100644 src/Squot.package/TSquotLocalRepository.trait/instance/defaultHistorian.st delete mode 100644 src/Squot.package/TSquotLocalRepository.trait/instance/extension..st delete mode 100644 src/Squot.package/TSquotLocalRepository.trait/instance/extension.ifPresent.ifAbsent..st delete mode 100644 src/Squot.package/TSquotLocalRepository.trait/instance/hasExtension..st delete mode 100644 src/Squot.package/TSquotLocalRepository.trait/instance/hasTemporaryVersionsOn..st delete mode 100644 src/Squot.package/TSquotLocalRepository.trait/instance/historianForTemporaryVersions.st delete mode 100644 src/Squot.package/TSquotLocalRepository.trait/instance/historianForTemporaryVersionsOn..st delete mode 100644 src/Squot.package/TSquotLocalRepository.trait/instance/historyWalkClass.st delete mode 100644 src/Squot.package/TSquotLocalRepository.trait/instance/initializeInDirectory..st delete mode 100644 src/Squot.package/TSquotLocalRepository.trait/instance/unitOfWork.st delete mode 100644 src/Squot.package/TSquotLocalRepository.trait/instance/withUnitOfWork..st delete mode 100644 src/Squot.package/TSquotLocalRepository.trait/instance/workingCopyClass.st delete mode 100644 src/Squot.package/TSquotLocalRepository.trait/methodProperties.json delete mode 100644 src/Squot.package/TSquotLocalRepository.trait/properties.json delete mode 100644 src/Squot.package/TSquotModification.trait/README.md delete mode 100644 src/Squot.package/TSquotModification.trait/instance/isAddition.st delete mode 100644 src/Squot.package/TSquotModification.trait/instance/isModification.st delete mode 100644 src/Squot.package/TSquotModification.trait/instance/isRemoval.st delete mode 100644 src/Squot.package/TSquotModification.trait/methodProperties.json delete mode 100644 src/Squot.package/TSquotModification.trait/properties.json delete mode 100644 src/Squot.package/TSquotMutableObjectContainer.trait/README.md delete mode 100644 src/Squot.package/TSquotMutableObjectContainer.trait/instance/add..st delete mode 100644 src/Squot.package/TSquotMutableObjectContainer.trait/instance/addUnloaded..st delete mode 100644 src/Squot.package/TSquotMutableObjectContainer.trait/instance/applyDiff..st delete mode 100644 src/Squot.package/TSquotMutableObjectContainer.trait/instance/applyPatch..st delete mode 100644 src/Squot.package/TSquotMutableObjectContainer.trait/instance/removeAt..st delete mode 100644 src/Squot.package/TSquotMutableObjectContainer.trait/methodProperties.json delete mode 100644 src/Squot.package/TSquotMutableObjectContainer.trait/properties.json delete mode 100644 src/Squot.package/TSquotObjectContainer.trait/README.md delete mode 100644 src/Squot.package/TSquotObjectContainer.trait/instance/artifactAt..st delete mode 100644 src/Squot.package/TSquotObjectContainer.trait/instance/artifactAt.ifAbsent..st delete mode 100644 src/Squot.package/TSquotObjectContainer.trait/instance/artifactAt.ifPresent.ifAbsent..st delete mode 100644 src/Squot.package/TSquotObjectContainer.trait/instance/artifactsInLoadOrder.st delete mode 100644 src/Squot.package/TSquotObjectContainer.trait/instance/includesObjectAt..st delete mode 100644 src/Squot.package/TSquotObjectContainer.trait/instance/newPatchBuilder.st delete mode 100644 src/Squot.package/TSquotObjectContainer.trait/instance/patchRelativeToBase..st delete mode 100644 src/Squot.package/TSquotObjectContainer.trait/methodProperties.json delete mode 100644 src/Squot.package/TSquotObjectContainer.trait/properties.json delete mode 100644 src/Squot.package/TSquotObjectReference.trait/README.md delete mode 100644 src/Squot.package/TSquotObjectReference.trait/instance/inGraph..st delete mode 100644 src/Squot.package/TSquotObjectReference.trait/instance/value..st delete mode 100644 src/Squot.package/TSquotObjectReference.trait/instance/value.st delete mode 100644 src/Squot.package/TSquotObjectReference.trait/methodProperties.json delete mode 100644 src/Squot.package/TSquotObjectReference.trait/properties.json delete mode 100644 src/Squot.package/TSquotRemoval.trait/README.md delete mode 100644 src/Squot.package/TSquotRemoval.trait/instance/isAddition.st delete mode 100644 src/Squot.package/TSquotRemoval.trait/instance/isModification.st delete mode 100644 src/Squot.package/TSquotRemoval.trait/instance/isRemoval.st delete mode 100644 src/Squot.package/TSquotRemoval.trait/instance/squotHasChanges.st delete mode 100644 src/Squot.package/TSquotRemoval.trait/methodProperties.json delete mode 100644 src/Squot.package/TSquotRemoval.trait/properties.json delete mode 100644 src/Squot.package/TSquotShadow.trait/README.md delete mode 100644 src/Squot.package/TSquotShadow.trait/instance/canHaveNameAssignedBySquot.st delete mode 100644 src/Squot.package/TSquotShadow.trait/instance/sameIn.asIn.ifAbsent..st delete mode 100644 src/Squot.package/TSquotShadow.trait/instance/squotMaterializeWith..st delete mode 100644 src/Squot.package/TSquotShadow.trait/instance/squotPreferredSerializer.st delete mode 100644 src/Squot.package/TSquotShadow.trait/instance/squotShadowMarker.st delete mode 100644 src/Squot.package/TSquotShadow.trait/instance/withSquotObjectName..st delete mode 100644 src/Squot.package/TSquotShadow.trait/methodProperties.json delete mode 100644 src/Squot.package/TSquotShadow.trait/properties.json delete mode 100644 src/Squot.package/TSquotSingleFileSerializer.trait/README.md delete mode 100644 src/Squot.package/TSquotSingleFileSerializer.trait/instance/atPathOf.writeStreamDo..st delete mode 100644 src/Squot.package/TSquotSingleFileSerializer.trait/methodProperties.json delete mode 100644 src/Squot.package/TSquotSingleFileSerializer.trait/properties.json delete mode 100644 src/Squot.package/TSquotTrackableObject.trait/README.md delete mode 100644 src/Squot.package/TSquotTrackableObject.trait/instance/squotAddTransientStoreInfoTo..st delete mode 100644 src/Squot.package/TSquotTrackableObject.trait/instance/squotInitializeStoreInfo..st delete mode 100644 src/Squot.package/TSquotTrackableObject.trait/instance/squotRemoveTransientStoreInfoFrom..st delete mode 100644 src/Squot.package/TSquotTrackableObject.trait/methodProperties.json delete mode 100644 src/Squot.package/TSquotTrackableObject.trait/properties.json delete mode 100644 src/Squot.package/TSquotUnitOfWork.trait/README.md delete mode 100644 src/Squot.package/TSquotUnitOfWork.trait/instance/activateDuring..st delete mode 100644 src/Squot.package/TSquotUnitOfWork.trait/instance/finish.st delete mode 100644 src/Squot.package/TSquotUnitOfWork.trait/instance/start.st delete mode 100644 src/Squot.package/TSquotUnitOfWork.trait/methodProperties.json delete mode 100644 src/Squot.package/TSquotUnitOfWork.trait/properties.json delete mode 100644 src/Squot.package/TSquotVersion.trait/README.md delete mode 100644 src/Squot.package/TSquotVersion.trait/instance/^equals.st delete mode 100644 src/Squot.package/TSquotVersion.trait/instance/artifacts.st delete mode 100644 src/Squot.package/TSquotVersion.trait/instance/asSquotVersionIn..st delete mode 100644 src/Squot.package/TSquotVersion.trait/instance/hash.st delete mode 100644 src/Squot.package/TSquotVersion.trait/instance/isAncestorOf..st delete mode 100644 src/Squot.package/TSquotVersion.trait/instance/lazySnapshot.st delete mode 100644 src/Squot.package/TSquotVersion.trait/instance/loadOrder.st delete mode 100644 src/Squot.package/TSquotVersion.trait/instance/mergeBasesWith..st delete mode 100644 src/Squot.package/TSquotVersion.trait/instance/parentSnapshot.st delete mode 100644 src/Squot.package/TSquotVersion.trait/instance/printOn..st delete mode 100644 src/Squot.package/TSquotVersion.trait/methodProperties.json delete mode 100644 src/Squot.package/TSquotVersion.trait/properties.json delete mode 100644 src/Squot.package/TSquotVersionBuilder.trait/README.md delete mode 100644 src/Squot.package/TSquotVersionBuilder.trait/instance/author..st delete mode 100644 src/Squot.package/TSquotVersionBuilder.trait/instance/author.st delete mode 100644 src/Squot.package/TSquotVersionBuilder.trait/instance/committer..st delete mode 100644 src/Squot.package/TSquotVersionBuilder.trait/instance/committer.st delete mode 100644 src/Squot.package/TSquotVersionBuilder.trait/instance/doNotStoreMetadata.st delete mode 100644 src/Squot.package/TSquotVersionBuilder.trait/instance/initializeClean.st delete mode 100644 src/Squot.package/TSquotVersionBuilder.trait/instance/message..st delete mode 100644 src/Squot.package/TSquotVersionBuilder.trait/instance/message.st delete mode 100644 src/Squot.package/TSquotVersionBuilder.trait/instance/parents..st delete mode 100644 src/Squot.package/TSquotVersionBuilder.trait/instance/parents.st delete mode 100644 src/Squot.package/TSquotVersionBuilder.trait/instance/snapshot..st delete mode 100644 src/Squot.package/TSquotVersionBuilder.trait/instance/snapshot.st delete mode 100644 src/Squot.package/TSquotVersionBuilder.trait/instance/timestamp..st delete mode 100644 src/Squot.package/TSquotVersionBuilder.trait/instance/timestamp.st delete mode 100644 src/Squot.package/TSquotVersionBuilder.trait/methodProperties.json delete mode 100644 src/Squot.package/TSquotVersionBuilder.trait/properties.json delete mode 100644 src/Squot.package/TSquotWorkingCopyTestWithFileBasedRepository.trait/README.md delete mode 100644 src/Squot.package/TSquotWorkingCopyTestWithFileBasedRepository.trait/instance/testAddMultiplePackagesToSameFolder.st delete mode 100644 src/Squot.package/TSquotWorkingCopyTestWithFileBasedRepository.trait/instance/testPathInImageStoreIsCorrected.st delete mode 100644 src/Squot.package/TSquotWorkingCopyTestWithFileBasedRepository.trait/instance/testPathInImageStoreIsCorrectedWithOldSave.st delete mode 100644 src/Squot.package/TSquotWorkingCopyTestWithFileBasedRepository.trait/methodProperties.json delete mode 100644 src/Squot.package/TSquotWorkingCopyTestWithFileBasedRepository.trait/properties.json delete mode 100644 src/Squot.package/TTestCaseSuppressingProgressDisplay.trait/README.md delete mode 100644 src/Squot.package/TTestCaseSuppressingProgressDisplay.trait/instance/performTest.st delete mode 100644 src/Squot.package/TTestCaseSuppressingProgressDisplay.trait/instance/suppressProgressDisplayDuring..st delete mode 100644 src/Squot.package/TTestCaseSuppressingProgressDisplay.trait/methodProperties.json delete mode 100644 src/Squot.package/TTestCaseSuppressingProgressDisplay.trait/properties.json delete mode 100644 src/Squot.package/TTestCaseThatCreatesClassesOrMethods.trait/README.md delete mode 100644 src/Squot.package/TTestCaseThatCreatesClassesOrMethods.trait/instance/suppressChangeNotificationsDuring..st delete mode 100644 src/Squot.package/TTestCaseThatCreatesClassesOrMethods.trait/methodProperties.json delete mode 100644 src/Squot.package/TTestCaseThatCreatesClassesOrMethods.trait/properties.json delete mode 100644 src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/README.md delete mode 100644 src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/instance/subjectTestCase.st delete mode 100644 src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/instance/testErringTestStillErrs.st delete mode 100644 src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/instance/testFailingTestStillFails.st delete mode 100644 src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/instance/testPassingTestStillPasses.st delete mode 100644 src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/instance/testProgressIsMuted.st delete mode 100644 src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/methodProperties.json delete mode 100644 src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/properties.json delete mode 100644 src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/README.md delete mode 100644 src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/class/isAbstract.st delete mode 100644 src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/instance/testThatErrs.st delete mode 100644 src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/instance/testThatFails.st delete mode 100644 src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/instance/testThatPasses.st delete mode 100644 src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/methodProperties.json delete mode 100644 src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/properties.json delete mode 100644 src/Squot.package/UUID.extension/class/squotMirror.st delete mode 100644 src/Squot.package/UUID.extension/methodProperties.json delete mode 100644 src/Squot.package/UUID.extension/properties.json delete mode 100644 src/Squot.package/UndefinedObject.extension/class/squotMirror.st delete mode 100644 src/Squot.package/UndefinedObject.extension/instance/canHaveNameAssignedBySquot.st delete mode 100644 src/Squot.package/UndefinedObject.extension/instance/captureWithSquot..st delete mode 100644 src/Squot.package/UndefinedObject.extension/instance/captureWithSquot.st delete mode 100644 src/Squot.package/UndefinedObject.extension/instance/squotShadowFactory.st delete mode 100644 src/Squot.package/UndefinedObject.extension/instance/squotShouldKeepIdentity.st delete mode 100644 src/Squot.package/UndefinedObject.extension/methodProperties.json delete mode 100644 src/Squot.package/UndefinedObject.extension/properties.json delete mode 100644 src/SquotCompatibility-Squeak50.package/.filetree delete mode 100644 src/SquotCompatibility-Squeak50.package/.squot-contents delete mode 100644 src/SquotCompatibility-Squeak50.package/MCRepositoryGroup.extension/instance/cacheAllFileNamesDuring..st delete mode 100644 src/SquotCompatibility-Squeak50.package/MCRepositoryGroup.extension/instance/isValid.st delete mode 100644 src/SquotCompatibility-Squeak50.package/MCRepositoryGroup.extension/methodProperties.json delete mode 100644 src/SquotCompatibility-Squeak50.package/MCRepositoryGroup.extension/properties.json delete mode 100644 src/SquotCompatibility-Squeak50.package/PackageOrganizer.extension/instance/packageNamed.ifPresent..st delete mode 100644 src/SquotCompatibility-Squeak50.package/PackageOrganizer.extension/methodProperties.json delete mode 100644 src/SquotCompatibility-Squeak50.package/PackageOrganizer.extension/properties.json delete mode 100644 src/SquotCompatibility-Squeak50.package/monticello.meta/categories.st delete mode 100644 src/SquotCompatibility-Squeak50.package/monticello.meta/initializers.st delete mode 100644 src/SquotCompatibility-Squeak50.package/properties.json delete mode 100644 src/SquotCompatibility-SqueakCommon.package/.squot-contents delete mode 100644 src/SquotCompatibility-SqueakCommon.package/Collection.extension/instance/asDictionary.st delete mode 100644 src/SquotCompatibility-SqueakCommon.package/Collection.extension/methodProperties.json delete mode 100644 src/SquotCompatibility-SqueakCommon.package/Collection.extension/properties.json delete mode 100644 src/SquotCompatibility-SqueakCommon.package/README.md delete mode 100644 src/SquotTonel-Core.package/.filetree delete mode 100644 src/SquotTonel-Core.package/.squot-contents delete mode 100644 src/SquotTonel-Core.package/PackageInfo.extension/class/squotTonelSerializer.st delete mode 100644 src/SquotTonel-Core.package/PackageInfo.extension/methodProperties.json delete mode 100644 src/SquotTonel-Core.package/PackageInfo.extension/properties.json delete mode 100644 src/SquotTonel-Core.package/SquotFileSystemStore.extension/instance/isInsideCypressDirectory..st delete mode 100644 src/SquotTonel-Core.package/SquotFileSystemStore.extension/instance/tonelPackageLocator.st delete mode 100644 src/SquotTonel-Core.package/SquotFileSystemStore.extension/methodProperties.json delete mode 100644 src/SquotTonel-Core.package/SquotFileSystemStore.extension/properties.json delete mode 100644 src/SquotTonel-Core.package/SquotTonelDeserializer.class/README.md delete mode 100644 src/SquotTonel-Core.package/SquotTonelDeserializer.class/class/canReadObjectSerializedBy..st delete mode 100644 src/SquotTonel-Core.package/SquotTonelDeserializer.class/class/initialize.st delete mode 100644 src/SquotTonel-Core.package/SquotTonelDeserializer.class/class/unload.st delete mode 100644 src/SquotTonel-Core.package/SquotTonelDeserializer.class/instance/fillContentOf.from..st delete mode 100644 src/SquotTonel-Core.package/SquotTonelDeserializer.class/methodProperties.json delete mode 100644 src/SquotTonel-Core.package/SquotTonelDeserializer.class/properties.json delete mode 100644 src/SquotTonel-Core.package/SquotTonelSerializer.class/README.md delete mode 100644 src/SquotTonel-Core.package/SquotTonelSerializer.class/class/addUserSettingsOfAll.in.to..st delete mode 100644 src/SquotTonel-Core.package/SquotTonelSerializer.class/class/copySettingsFrom.to..st delete mode 100644 src/SquotTonel-Core.package/SquotTonelSerializer.class/class/rewritePath.for..st delete mode 100644 src/SquotTonel-Core.package/SquotTonelSerializer.class/class/userFriendlyTitle.st delete mode 100644 src/SquotTonel-Core.package/SquotTonelSerializer.class/instance/propertiesFileContents.st delete mode 100644 src/SquotTonel-Core.package/SquotTonelSerializer.class/instance/version.st delete mode 100644 src/SquotTonel-Core.package/SquotTonelSerializer.class/instance/write..st delete mode 100644 src/SquotTonel-Core.package/SquotTonelSerializer.class/instance/writeMCSnapshot.forPackageNamed.from..st delete mode 100644 src/SquotTonel-Core.package/SquotTonelSerializer.class/instance/writeMCSnapshot.forPackageNamed.packageProperties.from..st delete mode 100644 src/SquotTonel-Core.package/SquotTonelSerializer.class/methodProperties.json delete mode 100644 src/SquotTonel-Core.package/SquotTonelSerializer.class/properties.json delete mode 100644 src/SquotTonel-Core.package/SquotWorkingCopy.extension/instance/tonelToggleChangeStampsOfAll..st delete mode 100644 src/SquotTonel-Core.package/SquotWorkingCopy.extension/methodProperties.json delete mode 100644 src/SquotTonel-Core.package/SquotWorkingCopy.extension/properties.json delete mode 100644 src/SquotTonel-Core.package/TonelReader.extension/instance/currentPackageProperties.st delete mode 100644 src/SquotTonel-Core.package/TonelReader.extension/methodProperties.json delete mode 100644 src/SquotTonel-Core.package/TonelReader.extension/properties.json delete mode 100644 src/SquotTonel-Core.package/TonelReaderForFileSystem.class/README.md delete mode 100644 src/SquotTonel-Core.package/TonelReaderForFileSystem.class/instance/fileUtils.st delete mode 100644 src/SquotTonel-Core.package/TonelReaderForFileSystem.class/methodProperties.json delete mode 100644 src/SquotTonel-Core.package/TonelReaderForFileSystem.class/properties.json delete mode 100644 src/SquotTonel-Core.package/TonelWriterForFileSystem.class/README.md delete mode 100644 src/SquotTonel-Core.package/TonelWriterForFileSystem.class/instance/fileUtils.st delete mode 100644 src/SquotTonel-Core.package/TonelWriterForFileSystem.class/methodProperties.json delete mode 100644 src/SquotTonel-Core.package/TonelWriterForFileSystem.class/properties.json delete mode 100644 src/SquotTonel-Core.package/monticello.meta/categories.st delete mode 100644 src/SquotTonel-Core.package/monticello.meta/initializers.st delete mode 100644 src/SquotTonel-Core.package/properties.json delete mode 100644 src/SquotTonel-Tests.package/.filetree delete mode 100644 src/SquotTonel-Tests.package/.squot-contents delete mode 100644 src/SquotTonel-Tests.package/SquotFileStoreArtifactGuessingTest.extension/instance/testFindTonelPackage.st delete mode 100644 src/SquotTonel-Tests.package/SquotFileStoreArtifactGuessingTest.extension/methodProperties.json delete mode 100644 src/SquotTonel-Tests.package/SquotFileStoreArtifactGuessingTest.extension/properties.json delete mode 100644 src/SquotTonel-Tests.package/SquotTonelAutotrackingTest.class/README.md delete mode 100644 src/SquotTonel-Tests.package/SquotTonelAutotrackingTest.class/instance/trackPackage.st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelAutotrackingTest.class/methodProperties.json delete mode 100644 src/SquotTonel-Tests.package/SquotTonelAutotrackingTest.class/properties.json delete mode 100644 src/SquotTonel-Tests.package/SquotTonelDeserializerTest.class/README.md delete mode 100644 src/SquotTonel-Tests.package/SquotTonelDeserializerTest.class/instance/testCanReadFromTonelSerializer.st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelDeserializerTest.class/methodProperties.json delete mode 100644 src/SquotTonel-Tests.package/SquotTonelDeserializerTest.class/properties.json delete mode 100644 src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/README.md delete mode 100644 src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/instance/package.st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/instance/setUp.st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/instance/tearDown.st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/instance/testCypressToTonel.st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/instance/testTonelToCypress.st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/methodProperties.json delete mode 100644 src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/properties.json delete mode 100644 src/SquotTonel-Tests.package/SquotTonelPackageLocatorTest.class/README.md delete mode 100644 src/SquotTonel-Tests.package/SquotTonelPackageLocatorTest.class/instance/testFindsMultiplePackages.st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelPackageLocatorTest.class/instance/testFindsPackageInSubdirectory.st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelPackageLocatorTest.class/instance/testFindsPackageUnderRoot.st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelPackageLocatorTest.class/instance/testIgnoresCypressPackagesWithMethodNamedPackage.st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelPackageLocatorTest.class/methodProperties.json delete mode 100644 src/SquotTonel-Tests.package/SquotTonelPackageLocatorTest.class/properties.json delete mode 100644 src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/README.md delete mode 100644 src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/artifactWithoutTimestamps..st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/sampleArtifact.st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/sampleArtifactWithoutTimestamps.st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/setUp.st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/tearDown.st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/testWriteAndReadOfPackage.st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/testWriteAndReadOfPackageWithTimestamps.st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/withoutTimestamps..st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/methodProperties.json delete mode 100644 src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/properties.json delete mode 100644 src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/README.md delete mode 100644 src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/instance/testRewriteCypressPath.st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/instance/testRewriteEmptyPathAddsPackageDirectory.st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/instance/testRewritePathAddsPackageDirectory.st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/instance/testRewritePathWithPackageAlreadyIncluded.st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/instance/testWritesPropertiesFile.st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/methodProperties.json delete mode 100644 src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/properties.json delete mode 100644 src/SquotTonel-Tests.package/SquotTonelWorkingCopyTest.class/README.md delete mode 100644 src/SquotTonel-Tests.package/SquotTonelWorkingCopyTest.class/instance/setUp.st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelWorkingCopyTest.class/instance/testChangestampsAddedAfterTurningThemOn.st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelWorkingCopyTest.class/instance/testChangestampsEnabledInAddedPackageToo.st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelWorkingCopyTest.class/instance/testPackagesAddedWithTonelPaths.st delete mode 100644 src/SquotTonel-Tests.package/SquotTonelWorkingCopyTest.class/methodProperties.json delete mode 100644 src/SquotTonel-Tests.package/SquotTonelWorkingCopyTest.class/properties.json delete mode 100644 src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/README.md delete mode 100644 src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/delete.st delete mode 100644 src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/directory.st delete mode 100644 src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/genericChangesName.st delete mode 100644 src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/prefixChangesName.st delete mode 100644 src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/prefixGeneral.st delete mode 100644 src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/randomString.st delete mode 100644 src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/tempChangesName.st delete mode 100644 src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/useStandardChangesFile.st delete mode 100644 src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/useTemporaryChangesFile.st delete mode 100644 src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/methodProperties.json delete mode 100644 src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/properties.json delete mode 100644 src/SquotTonel-Tests.package/monticello.meta/categories.st delete mode 100644 src/SquotTonel-Tests.package/monticello.meta/initializers.st delete mode 100644 src/SquotTonel-Tests.package/properties.json delete mode 100644 src/VersionControl.package/.squot-contents diff --git a/.squot b/.squot deleted file mode 100644 index ac33429b8..000000000 --- a/.squot +++ /dev/null @@ -1,11 +0,0 @@ -OrderedDictionary { - 'src/VersionControl.package' : #SquotCypressCodeSerializer, - 'src/SquotCompatibility-SqueakCommon.package' : #SquotCypressCodeSerializer, - 'src/SquotCompatibility-Squeak50.package' : #SquotCypressCodeSerializer, - 'src/Squot.package' : #SquotCypressCodeSerializer, - 'src/FileSystem-Git.package' : #SquotCypressCodeSerializer, - 'src/Squit.package' : #SquotCypressCodeSerializer, - 'src/BaselineOfSquot.package' : #SquotCypressCodeSerializer, - 'src/SquotTonel-Core.package' : #SquotCypressCodeSerializer, - 'src/SquotTonel-Tests.package' : #SquotCypressCodeSerializer -} \ No newline at end of file diff --git a/.squot-metadata b/.squot-metadata new file mode 100644 index 000000000..6be957be3 --- /dev/null +++ b/.squot-metadata @@ -0,0 +1,56 @@ +SquotMetadata { + #version : 1, + #mappers : [ + SquotCypressMapper { + #version : 1, + #isTracked : true, + #package : MCPackage { + #name : 'VersionControl' + }, + #path : FSAbsolutePath [ + 'src' + ] + }, + SquotCypressMapper { + #version : 1, + #isTracked : true, + #package : MCPackage { + #name : 'BaselineOfSquot' + }, + #path : FSAbsolutePath [ + 'src' + ] + }, + SquotCypressMapper { + #version : 1, + #isTracked : true, + #package : MCPackage { + #name : 'SquotCompatibility-SqueakCommon' + }, + #path : FSAbsolutePath [ + 'src' + ] + }, + SquotCypressMapper { + #version : 1, + #isTracked : true, + #package : MCPackage { + #name : 'FileSystem-Git' + }, + #path : FSAbsolutePath [ + 'src' + ] + }, + SquotCypressMapper { + #version : 1, + #isTracked : true, + #package : MCPackage { + #name : 'Squot' + }, + #path : FSAbsolutePath [ + 'src' + ] + } + ], + #name : 'Squot' +} \ No newline at end of file diff --git a/src/BaselineOfSquot.package/.squot-contents b/src/BaselineOfSquot.package/.squot-contents deleted file mode 100644 index aa7356747..000000000 --- a/src/BaselineOfSquot.package/.squot-contents +++ /dev/null @@ -1,7 +0,0 @@ -SquotTrackedObjectMetadata { - #objectClassName : #PackageInfo, - #id : UUID [ '2e6bf85bea1d114fb70219ff89791241' ], - #slotOverrides : { }, - #objectsReplacedByNames : true, - #serializer : #SquotCypressCodeSerializer -} \ No newline at end of file diff --git a/src/FileSystem-Git.package/.squot-contents b/src/FileSystem-Git.package/.squot-contents deleted file mode 100644 index 1158738d0..000000000 --- a/src/FileSystem-Git.package/.squot-contents +++ /dev/null @@ -1,7 +0,0 @@ -SquotTrackedObjectMetadata { - #objectClassName : #PackageInfo, - #id : UUID [ '9d2378120e641f4fad4dd02310c91f53' ], - #slotOverrides : { }, - #objectsReplacedByNames : true, - #serializer : #SquotCypressCodeSerializer -} \ No newline at end of file diff --git a/src/Squit.package/.filetree b/src/Squit.package/.filetree deleted file mode 100644 index 8998102c2..000000000 --- a/src/Squit.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/src/Squit.package/.squot-contents b/src/Squit.package/.squot-contents deleted file mode 100644 index a52a8f4a8..000000000 --- a/src/Squit.package/.squot-contents +++ /dev/null @@ -1,7 +0,0 @@ -SquotTrackedObjectMetadata { - #objectClassName : #PackageInfo, - #id : UUID [ '207bca0df934e041b1e79b9ff315b588' ], - #slotOverrides : { }, - #objectsReplacedByNames : true, - #serializer : #SquotCypressCodeSerializer -} \ No newline at end of file diff --git a/src/Squit.package/GitStamp.extension/instance/asStringWithoutTimestamp.st b/src/Squit.package/GitStamp.extension/instance/asStringWithoutTimestamp.st deleted file mode 100644 index 2ab37eab8..000000000 --- a/src/Squit.package/GitStamp.extension/instance/asStringWithoutTimestamp.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squit-CoAuthorsExtension -asStringWithoutTimestamp - - ^ self name, ' <', self email, '>' \ No newline at end of file diff --git a/src/Squit.package/GitStamp.extension/methodProperties.json b/src/Squit.package/GitStamp.extension/methodProperties.json deleted file mode 100644 index 3ec53a052..000000000 --- a/src/Squit.package/GitStamp.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "asStringWithoutTimestamp" : "ms 3/8/2019 11:15" } } diff --git a/src/Squit.package/GitStamp.extension/properties.json b/src/Squit.package/GitStamp.extension/properties.json deleted file mode 100644 index 9124ea23d..000000000 --- a/src/Squit.package/GitStamp.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GitStamp" } diff --git a/src/Squit.package/Object.extension/instance/squitBrowserSupplementObjectMenu..st b/src/Squit.package/Object.extension/instance/squitBrowserSupplementObjectMenu..st deleted file mode 100644 index 2e54138e0..000000000 --- a/src/Squit.package/Object.extension/instance/squitBrowserSupplementObjectMenu..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squit -squitBrowserSupplementObjectMenu: aMenu - "Add additional suitable menu items for the loaded me in the object list of a version" \ No newline at end of file diff --git a/src/Squit.package/Object.extension/methodProperties.json b/src/Squit.package/Object.extension/methodProperties.json deleted file mode 100644 index 75ada5787..000000000 --- a/src/Squit.package/Object.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "squitBrowserSupplementObjectMenu:" : "jr 5/13/2017 19:00" } } diff --git a/src/Squit.package/Object.extension/properties.json b/src/Squit.package/Object.extension/properties.json deleted file mode 100644 index 3d3b9ec45..000000000 --- a/src/Squit.package/Object.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Object" } diff --git a/src/Squit.package/PackageInfo.extension/instance/squitBrowserSupplementObjectMenu..st b/src/Squit.package/PackageInfo.extension/instance/squitBrowserSupplementObjectMenu..st deleted file mode 100644 index 87c8b8f24..000000000 --- a/src/Squit.package/PackageInfo.extension/instance/squitBrowserSupplementObjectMenu..st +++ /dev/null @@ -1,7 +0,0 @@ -*Squit -squitBrowserSupplementObjectMenu: aMenu - aMenu - add: 'Edit postload script' action: #actionPackageInfoObjectEditPostscript; - add: 'Edit preamble script' action: #actionPackageInfoObjectEditPreamble; - add: 'Edit preremove script' action: #actionPackageInfoObjectEditPreambleOfRemoval; - add: 'Edit postremove script' action: #actionPackageInfoObjectEditPostscriptOfRemoval. \ No newline at end of file diff --git a/src/Squit.package/PackageInfo.extension/methodProperties.json b/src/Squit.package/PackageInfo.extension/methodProperties.json deleted file mode 100644 index 4ffa0dda7..000000000 --- a/src/Squit.package/PackageInfo.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "squitBrowserSupplementObjectMenu:" : "jr 11/3/2020 14:38" } } diff --git a/src/Squit.package/PackageInfo.extension/properties.json b/src/Squit.package/PackageInfo.extension/properties.json deleted file mode 100644 index 7da79deb3..000000000 --- a/src/Squit.package/PackageInfo.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "PackageInfo" } diff --git a/src/Squit.package/SquitAddRemote.class/README.md b/src/Squit.package/SquitAddRemote.class/README.md deleted file mode 100644 index 33bfff8b8..000000000 --- a/src/Squit.package/SquitAddRemote.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I allow to edit the properties of a Git remote, such as its name and its URL. \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/instance/accept.st b/src/Squit.package/SquitAddRemote.class/instance/accept.st deleted file mode 100644 index 27517f6a4..000000000 --- a/src/Squit.package/SquitAddRemote.class/instance/accept.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -accept - accepted := true. \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/instance/acceptAndClose.st b/src/Squit.package/SquitAddRemote.class/instance/acceptAndClose.st deleted file mode 100644 index d7b3a2677..000000000 --- a/src/Squit.package/SquitAddRemote.class/instance/acceptAndClose.st +++ /dev/null @@ -1,5 +0,0 @@ -actions -acceptAndClose - self validate ifFalse: [^ self informAboutInvalidValues]. - self accept; - changed: #close. \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/instance/accepted..st b/src/Squit.package/SquitAddRemote.class/instance/accepted..st deleted file mode 100644 index bf17c91d3..000000000 --- a/src/Squit.package/SquitAddRemote.class/instance/accepted..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -accepted: anObject - - accepted := anObject. \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/instance/accepted.st b/src/Squit.package/SquitAddRemote.class/instance/accepted.st deleted file mode 100644 index 7a92c4e93..000000000 --- a/src/Squit.package/SquitAddRemote.class/instance/accepted.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -accepted - - ^ accepted \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/instance/afterCloseContinueIn.with..st b/src/Squit.package/SquitAddRemote.class/instance/afterCloseContinueIn.with..st deleted file mode 100644 index 8737bcd48..000000000 --- a/src/Squit.package/SquitAddRemote.class/instance/afterCloseContinueIn.with..st +++ /dev/null @@ -1,5 +0,0 @@ -actions -afterCloseContinueIn: anObject with: unarySelectorSymbol - promise := Promise new - whenResolved: [anObject perform: unarySelectorSymbol with: self]; - yourself. \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/instance/buildButtons..st b/src/Squit.package/SquitAddRemote.class/instance/buildButtons..st deleted file mode 100644 index a75677491..000000000 --- a/src/Squit.package/SquitAddRemote.class/instance/buildButtons..st +++ /dev/null @@ -1,14 +0,0 @@ -toolbuilder -buildButtons: builder - ^ { - builder pluggableButtonSpec new - model: self; - label: 'OK'; - action: #acceptAndClose; - color: #okColor. - builder pluggableButtonSpec new - model: self; - label: 'Cancel'; - action: #cancelAndClose; - color: #cancelColor. - } \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/instance/buildInputFields..st b/src/Squit.package/SquitAddRemote.class/instance/buildInputFields..st deleted file mode 100644 index 85976b7a1..000000000 --- a/src/Squit.package/SquitAddRemote.class/instance/buildInputFields..st +++ /dev/null @@ -1,20 +0,0 @@ -toolbuilder -buildInputFields: builder - ^ { - builder pluggableInputFieldSpec new - name: 'remoteUrl'; - model: self; - getText: #remoteUrl; - editText: #remoteUrl:; - setText: #remoteUrl:; - indicateUnacceptedChanges: false; - help: 'URL of the remote. Only HTTP(S) URLs are supported as of now.'. - builder pluggableInputFieldSpec new - name: 'remoteName'; - model: self; - getText: #remoteName; - editText: #remoteName:; - setText: #remoteName:; - indicateUnacceptedChanges: false; - help: 'Local name of the remote'. - } \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/instance/buildInputPanel..st b/src/Squit.package/SquitAddRemote.class/instance/buildInputPanel..st deleted file mode 100644 index 1b4461994..000000000 --- a/src/Squit.package/SquitAddRemote.class/instance/buildInputPanel..st +++ /dev/null @@ -1,7 +0,0 @@ -toolbuilder -buildInputPanel: builder - ^ builder pluggablePanelSpec new - model: self; - layout: #vertical; - children: (self buildInputFields: builder); - frame: (0@0 corner: 1@1) \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/instance/buildWith..st b/src/Squit.package/SquitAddRemote.class/instance/buildWith..st deleted file mode 100644 index b63053d22..000000000 --- a/src/Squit.package/SquitAddRemote.class/instance/buildWith..st +++ /dev/null @@ -1,21 +0,0 @@ -toolbuilder -buildWith: builder - | dialog urlWidget remoteNameWidget | - dialog := builder build: (builder pluggableDialogSpec new - model: self; - label: 'Add Git remote'; - message: 'Enter parameters of the new remote:'; - children: {self buildInputPanel: builder}; - buttons: (self buildButtons: builder); - closeAction: #onClose; - exclusive: false; - extent: 475@60 * RealEstateAgent scaleFactor). - remoteNameWidget := builder widgetAt: 'remoteName'. - (remoteNameWidget respondsTo: #acceptAction:) ifTrue: - [remoteNameWidget acceptAction: [:text | self acceptAndClose]]. - remoteNameWidget setSelection: (1 to: remoteName size). - urlWidget := builder widgetAt: 'remoteUrl'. - (urlWidget respondsTo: #acceptAction:) ifTrue: - [urlWidget acceptAction: [:text | urlWidget currentHand newKeyboardFocus: remoteNameWidget]]. - urlWidget setSelection: (1 to: remoteUrl size). - ^ dialog \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/instance/cancel.st b/src/Squit.package/SquitAddRemote.class/instance/cancel.st deleted file mode 100644 index 0bb5929b9..000000000 --- a/src/Squit.package/SquitAddRemote.class/instance/cancel.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -cancel - accepted := false. \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/instance/cancelAndClose.st b/src/Squit.package/SquitAddRemote.class/instance/cancelAndClose.st deleted file mode 100644 index 58bcf82d6..000000000 --- a/src/Squit.package/SquitAddRemote.class/instance/cancelAndClose.st +++ /dev/null @@ -1,4 +0,0 @@ -actions -cancelAndClose - self cancel; - changed: #close. \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/instance/cancelColor.st b/src/Squit.package/SquitAddRemote.class/instance/cancelColor.st deleted file mode 100644 index 65713a69c..000000000 --- a/src/Squit.package/SquitAddRemote.class/instance/cancelColor.st +++ /dev/null @@ -1,4 +0,0 @@ -toolbuilder -cancelColor - ^ self userInterfaceTheme cancelColor - ifNil: [self userInterfaceTheme get: #cancelColor for: #DialogWindow] \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/instance/hasBeenAccepted.st b/src/Squit.package/SquitAddRemote.class/instance/hasBeenAccepted.st deleted file mode 100644 index 9f1baa05f..000000000 --- a/src/Squit.package/SquitAddRemote.class/instance/hasBeenAccepted.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -hasBeenAccepted - ^ accepted == true \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/instance/inform..st b/src/Squit.package/SquitAddRemote.class/instance/inform..st deleted file mode 100644 index d1420024c..000000000 --- a/src/Squit.package/SquitAddRemote.class/instance/inform..st +++ /dev/null @@ -1,4 +0,0 @@ -user interface -inform: aString - "Make sure the dialog is run in the UI process." - SquotGUI inform: aString. \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/instance/informAboutInvalidValues.st b/src/Squit.package/SquitAddRemote.class/instance/informAboutInvalidValues.st deleted file mode 100644 index f00b328da..000000000 --- a/src/Squit.package/SquitAddRemote.class/instance/informAboutInvalidValues.st +++ /dev/null @@ -1,6 +0,0 @@ -validating -informAboutInvalidValues - self validateUrl ifFalse: - [^ self inform: 'URL is not vailid: only HTTP(S) URLs are supported as of now.']. - self validateRemoteName ifFalse: - [^ self inform: 'Invalid remote name']. \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/instance/initialize.st b/src/Squit.package/SquitAddRemote.class/instance/initialize.st deleted file mode 100644 index 291fce932..000000000 --- a/src/Squit.package/SquitAddRemote.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initialize - self remoteName: ''. - self initializeRemoteUrl. \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/instance/initializeRemoteUrl.st b/src/Squit.package/SquitAddRemote.class/instance/initializeRemoteUrl.st deleted file mode 100644 index 1e2bb0d77..000000000 --- a/src/Squit.package/SquitAddRemote.class/instance/initializeRemoteUrl.st +++ /dev/null @@ -1,7 +0,0 @@ -initialize-release -initializeRemoteUrl - | clipboardString | - clipboardString := Clipboard clipboardText asString. - ((clipboardString beginsWith: 'http:') or: [clipboardString beginsWith: 'https:']) - ifTrue: [self remoteUrl: clipboardString] - ifFalse: [self remoteUrl: '']. \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/instance/okColor.st b/src/Squit.package/SquitAddRemote.class/instance/okColor.st deleted file mode 100644 index 87ddd60a2..000000000 --- a/src/Squit.package/SquitAddRemote.class/instance/okColor.st +++ /dev/null @@ -1,4 +0,0 @@ -toolbuilder -okColor - ^ self userInterfaceTheme okColor - ifNil: [self userInterfaceTheme get: #okColor for: #DialogWindow] \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/instance/onClose.st b/src/Squit.package/SquitAddRemote.class/instance/onClose.st deleted file mode 100644 index 6728b5638..000000000 --- a/src/Squit.package/SquitAddRemote.class/instance/onClose.st +++ /dev/null @@ -1,4 +0,0 @@ -actions -onClose - self hasBeenAccepted ifFalse: [self cancel]. - promise ifNotNil: [promise resolveWith: self]. \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/instance/open.st b/src/Squit.package/SquitAddRemote.class/instance/open.st deleted file mode 100644 index acf7ba2bf..000000000 --- a/src/Squit.package/SquitAddRemote.class/instance/open.st +++ /dev/null @@ -1,9 +0,0 @@ -displaying -open - | builder dialog urlWidget | - builder := ToolBuilder default. - (dialog := builder build: self) - center: ActiveHand targetPoint; - openInWorld. - urlWidget := builder widgetAt: 'remoteUrl'. - Project current isMorphic ifTrue: [self currentHand newKeyboardFocus: urlWidget]. \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/instance/remoteName..st b/src/Squit.package/SquitAddRemote.class/instance/remoteName..st deleted file mode 100644 index c51d90b38..000000000 --- a/src/Squit.package/SquitAddRemote.class/instance/remoteName..st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -remoteName: anObject - - remoteName = anObject ifTrue: [^ self]. - remoteName := anObject. - self changed: #remoteName. \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/instance/remoteName.st b/src/Squit.package/SquitAddRemote.class/instance/remoteName.st deleted file mode 100644 index 65a7da9e7..000000000 --- a/src/Squit.package/SquitAddRemote.class/instance/remoteName.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -remoteName - - ^ remoteName ifNil: [String empty] ifNotNil: [remoteName asString] \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/instance/remoteUrl..st b/src/Squit.package/SquitAddRemote.class/instance/remoteUrl..st deleted file mode 100644 index 77cb3e36b..000000000 --- a/src/Squit.package/SquitAddRemote.class/instance/remoteUrl..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -remoteUrl: anObject - remoteUrl = anObject asString ifTrue: [^ self]. - remoteUrl := anObject asString. - self changed: #remoteUrl. \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/instance/remoteUrl.st b/src/Squit.package/SquitAddRemote.class/instance/remoteUrl.st deleted file mode 100644 index fff813613..000000000 --- a/src/Squit.package/SquitAddRemote.class/instance/remoteUrl.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -remoteUrl - - ^ remoteUrl \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/instance/validate.st b/src/Squit.package/SquitAddRemote.class/instance/validate.st deleted file mode 100644 index 9ba2dd4aa..000000000 --- a/src/Squit.package/SquitAddRemote.class/instance/validate.st +++ /dev/null @@ -1,5 +0,0 @@ -validating -validate - self validateUrl ifFalse: [^ false]. - self validateRemoteName ifFalse: [^ false]. - ^ true \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/instance/validateRemoteName.st b/src/Squit.package/SquitAddRemote.class/instance/validateRemoteName.st deleted file mode 100644 index 903030001..000000000 --- a/src/Squit.package/SquitAddRemote.class/instance/validateRemoteName.st +++ /dev/null @@ -1,5 +0,0 @@ -validating -validateRemoteName - ^ [GitReference validateReferenceName: self remoteName. - true] - on: GitInvalidReferenceName do: [:e | e return: false] \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/instance/validateUrl.st b/src/Squit.package/SquitAddRemote.class/instance/validateUrl.st deleted file mode 100644 index 033a8adf5..000000000 --- a/src/Squit.package/SquitAddRemote.class/instance/validateUrl.st +++ /dev/null @@ -1,8 +0,0 @@ -validating -validateUrl - | url atSign isHttp | - url := self remoteUrl. - ((atSign := url indexOf: $@) ~~ 0 and: [atSign < (url indexOf: $:)]) - ifTrue: ["user@host:... SSH Url" ^ false]. - isHttp := (url beginsWith: 'http') and: [(url at: 5) = $: or: [(url copyFrom: 5 to: 6) = 's:']]. - ^ isHttp \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemote.class/methodProperties.json b/src/Squit.package/SquitAddRemote.class/methodProperties.json deleted file mode 100644 index fc7ab15cf..000000000 --- a/src/Squit.package/SquitAddRemote.class/methodProperties.json +++ /dev/null @@ -1,31 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "accept" : "jr 10/14/2018 21:35", - "acceptAndClose" : "jr 10/14/2018 21:18", - "accepted" : "jr 10/14/2018 21:29", - "accepted:" : "jr 10/14/2018 21:29", - "afterCloseContinueIn:with:" : "jr 6/17/2020 23:23", - "buildButtons:" : "jr 10/14/2018 20:17", - "buildInputFields:" : "jr 5/14/2021 16:55", - "buildInputPanel:" : "jr 10/14/2018 20:07", - "buildWith:" : "jr 1/13/2022 20:54", - "cancel" : "jr 10/14/2018 20:12", - "cancelAndClose" : "jr 10/14/2018 20:16", - "cancelColor" : "jr 10/14/2018 20:10", - "hasBeenAccepted" : "jr 10/14/2018 20:12", - "inform:" : "jr 7/24/2020 11:33", - "informAboutInvalidValues" : "jr 7/24/2020 00:17", - "initialize" : "jr 10/14/2018 21:31", - "initializeRemoteUrl" : "jr 10/14/2018 21:33", - "okColor" : "jr 10/14/2018 20:10", - "onClose" : "jr 6/17/2020 23:24", - "open" : "jr 5/14/2021 18:51", - "remoteName" : "jr 8/31/2020 22:17", - "remoteName:" : "jr 10/14/2018 20:23", - "remoteUrl" : "jr 10/14/2018 20:07", - "remoteUrl:" : "jr 10/14/2018 21:03", - "validate" : "jr 10/14/2018 21:19", - "validateRemoteName" : "jr 9/20/2020 22:15", - "validateUrl" : "jr 10/14/2018 21:16" } } diff --git a/src/Squit.package/SquitAddRemote.class/properties.json b/src/Squit.package/SquitAddRemote.class/properties.json deleted file mode 100644 index 4ce9fe042..000000000 --- a/src/Squit.package/SquitAddRemote.class/properties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "category" : "Squit-UI", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 21:08", - "instvars" : [ - "remoteName", - "remoteUrl", - "accepted", - "promise" ], - "name" : "SquitAddRemote", - "pools" : [ - ], - "super" : "Model", - "type" : "normal" } diff --git a/src/Squit.package/SquitAddRemoteTest.class/README.md b/src/Squit.package/SquitAddRemoteTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squit.package/SquitAddRemoteTest.class/instance/testValidateUrlAcceptsHttp.st b/src/Squit.package/SquitAddRemoteTest.class/instance/testValidateUrlAcceptsHttp.st deleted file mode 100644 index 28f123dd8..000000000 --- a/src/Squit.package/SquitAddRemoteTest.class/instance/testValidateUrlAcceptsHttp.st +++ /dev/null @@ -1,6 +0,0 @@ -as yet unclassified -testValidateUrlAcceptsHttp - | tool | - tool := SquitAddRemote new. - tool remoteUrl: 'http://github.com/hpi-swa/Squot.git'. - self assert: tool validateUrl. \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemoteTest.class/instance/testValidateUrlAcceptsHttps.st b/src/Squit.package/SquitAddRemoteTest.class/instance/testValidateUrlAcceptsHttps.st deleted file mode 100644 index a8df1c2a2..000000000 --- a/src/Squit.package/SquitAddRemoteTest.class/instance/testValidateUrlAcceptsHttps.st +++ /dev/null @@ -1,6 +0,0 @@ -as yet unclassified -testValidateUrlAcceptsHttps - | tool | - tool := SquitAddRemote new. - tool remoteUrl: 'https://github.com/hpi-swa/Squot.git'. - self assert: tool validateUrl. \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemoteTest.class/instance/testValidateUrlRejectsSsh.st b/src/Squit.package/SquitAddRemoteTest.class/instance/testValidateUrlRejectsSsh.st deleted file mode 100644 index 4458d7a29..000000000 --- a/src/Squit.package/SquitAddRemoteTest.class/instance/testValidateUrlRejectsSsh.st +++ /dev/null @@ -1,6 +0,0 @@ -as yet unclassified -testValidateUrlRejectsSsh - | tool | - tool := SquitAddRemote new. - tool remoteUrl: 'ssh://git@github.com:hpi-swa/Squot.git'. - self deny: tool validateUrl. \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemoteTest.class/instance/testValidateUrlRejectsSshWithoutScheme.st b/src/Squit.package/SquitAddRemoteTest.class/instance/testValidateUrlRejectsSshWithoutScheme.st deleted file mode 100644 index 8b3d1519b..000000000 --- a/src/Squit.package/SquitAddRemoteTest.class/instance/testValidateUrlRejectsSshWithoutScheme.st +++ /dev/null @@ -1,6 +0,0 @@ -as yet unclassified -testValidateUrlRejectsSshWithoutScheme - | tool | - tool := SquitAddRemote new. - tool remoteUrl: 'git@github.com:hpi-swa/Squot.git'. - self deny: tool validateUrl. \ No newline at end of file diff --git a/src/Squit.package/SquitAddRemoteTest.class/methodProperties.json b/src/Squit.package/SquitAddRemoteTest.class/methodProperties.json deleted file mode 100644 index 2778c5464..000000000 --- a/src/Squit.package/SquitAddRemoteTest.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testValidateUrlAcceptsHttp" : "jr 10/14/2018 21:14", - "testValidateUrlAcceptsHttps" : "jr 10/14/2018 21:14", - "testValidateUrlRejectsSsh" : "jr 10/14/2018 21:17", - "testValidateUrlRejectsSshWithoutScheme" : "jr 10/14/2018 21:15" } } diff --git a/src/Squit.package/SquitAddRemoteTest.class/properties.json b/src/Squit.package/SquitAddRemoteTest.class/properties.json deleted file mode 100644 index c9a1f33a0..000000000 --- a/src/Squit.package/SquitAddRemoteTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squit-Tests-UI", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquitAddRemoteTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squit.package/SquitArtifactWrapper.class/README.md b/src/Squit.package/SquitArtifactWrapper.class/README.md deleted file mode 100644 index 497aba499..000000000 --- a/src/Squit.package/SquitArtifactWrapper.class/README.md +++ /dev/null @@ -1,4 +0,0 @@ -I am a wrapper for a SquotArtifact to be displayed in the SquitBrowser's object/artifact list. - -Instance Variables - artifact: diff --git a/src/Squit.package/SquitArtifactWrapper.class/class/on..st b/src/Squit.package/SquitArtifactWrapper.class/class/on..st deleted file mode 100644 index 079151081..000000000 --- a/src/Squit.package/SquitArtifactWrapper.class/class/on..st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -on: anArtifact - ^ self new artifact: anArtifact; yourself \ No newline at end of file diff --git a/src/Squit.package/SquitArtifactWrapper.class/instance/^less.equals.st b/src/Squit.package/SquitArtifactWrapper.class/instance/^less.equals.st deleted file mode 100644 index c1c170df1..000000000 --- a/src/Squit.package/SquitArtifactWrapper.class/instance/^less.equals.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -<= aWrapper - ^ self artifact displayText <= aWrapper artifact displayText \ No newline at end of file diff --git a/src/Squit.package/SquitArtifactWrapper.class/instance/artifact..st b/src/Squit.package/SquitArtifactWrapper.class/instance/artifact..st deleted file mode 100644 index fecd79cd9..000000000 --- a/src/Squit.package/SquitArtifactWrapper.class/instance/artifact..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -artifact: anObject - artifact := anObject \ No newline at end of file diff --git a/src/Squit.package/SquitArtifactWrapper.class/instance/artifact.st b/src/Squit.package/SquitArtifactWrapper.class/instance/artifact.st deleted file mode 100644 index 3efda9f8c..000000000 --- a/src/Squit.package/SquitArtifactWrapper.class/instance/artifact.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -artifact - ^ artifact \ No newline at end of file diff --git a/src/Squit.package/SquitArtifactWrapper.class/instance/printOn..st b/src/Squit.package/SquitArtifactWrapper.class/instance/printOn..st deleted file mode 100644 index 0eadcedbb..000000000 --- a/src/Squit.package/SquitArtifactWrapper.class/instance/printOn..st +++ /dev/null @@ -1,3 +0,0 @@ -printing -printOn: aStream - aStream nextPutAll: self artifact displayText \ No newline at end of file diff --git a/src/Squit.package/SquitArtifactWrapper.class/methodProperties.json b/src/Squit.package/SquitArtifactWrapper.class/methodProperties.json deleted file mode 100644 index 52d00ba65..000000000 --- a/src/Squit.package/SquitArtifactWrapper.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - "on:" : "fn 4/11/2017 14:21" }, - "instance" : { - "<=" : "fn 4/26/2017 21:05", - "artifact" : "fn 4/11/2017 14:20", - "artifact:" : "fn 4/11/2017 14:20", - "printOn:" : "fn 4/11/2017 14:24" } } diff --git a/src/Squit.package/SquitArtifactWrapper.class/properties.json b/src/Squit.package/SquitArtifactWrapper.class/properties.json deleted file mode 100644 index f570bfd2b..000000000 --- a/src/Squit.package/SquitArtifactWrapper.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squit-UI-Support", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 20:41", - "instvars" : [ - "artifact" ], - "name" : "SquitArtifactWrapper", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squit.package/SquitBadRemote.class/README.md b/src/Squit.package/SquitBadRemote.class/README.md deleted file mode 100644 index 8a30ab871..000000000 --- a/src/Squit.package/SquitBadRemote.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A remote was found to be out of order. For example, no repository was not found at the URL. This is a Notification and not an Error because the purpose is only to allow a GUI to initiate further actions to allow the user to remedy the issue (e. g. change the URL). \ No newline at end of file diff --git a/src/Squit.package/SquitBadRemote.class/class/remote..st b/src/Squit.package/SquitBadRemote.class/class/remote..st deleted file mode 100644 index 192ea04db..000000000 --- a/src/Squit.package/SquitBadRemote.class/class/remote..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -remote: aGitRemote - ^ self new - remote: aGitRemote; - yourself \ No newline at end of file diff --git a/src/Squit.package/SquitBadRemote.class/instance/cause..st b/src/Squit.package/SquitBadRemote.class/instance/cause..st deleted file mode 100644 index 23903b964..000000000 --- a/src/Squit.package/SquitBadRemote.class/instance/cause..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -cause: anObject - - cause := anObject. \ No newline at end of file diff --git a/src/Squit.package/SquitBadRemote.class/instance/cause.st b/src/Squit.package/SquitBadRemote.class/instance/cause.st deleted file mode 100644 index 8eafd8eae..000000000 --- a/src/Squit.package/SquitBadRemote.class/instance/cause.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -cause - - ^ cause \ No newline at end of file diff --git a/src/Squit.package/SquitBadRemote.class/instance/remote..st b/src/Squit.package/SquitBadRemote.class/instance/remote..st deleted file mode 100644 index 67493febc..000000000 --- a/src/Squit.package/SquitBadRemote.class/instance/remote..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -remote: anObject - - remote := anObject. \ No newline at end of file diff --git a/src/Squit.package/SquitBadRemote.class/instance/remote.st b/src/Squit.package/SquitBadRemote.class/instance/remote.st deleted file mode 100644 index cca52fe09..000000000 --- a/src/Squit.package/SquitBadRemote.class/instance/remote.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -remote - - ^ remote \ No newline at end of file diff --git a/src/Squit.package/SquitBadRemote.class/methodProperties.json b/src/Squit.package/SquitBadRemote.class/methodProperties.json deleted file mode 100644 index d72074823..000000000 --- a/src/Squit.package/SquitBadRemote.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - "remote:" : "jr 8/2/2020 15:21" }, - "instance" : { - "cause" : "jr 8/2/2020 15:17", - "cause:" : "jr 8/2/2020 15:17", - "remote" : "jr 8/2/2020 15:17", - "remote:" : "jr 8/2/2020 15:17" } } diff --git a/src/Squit.package/SquitBadRemote.class/properties.json b/src/Squit.package/SquitBadRemote.class/properties.json deleted file mode 100644 index 9970a6cd1..000000000 --- a/src/Squit.package/SquitBadRemote.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squit-Exceptions", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 21:10", - "instvars" : [ - "cause", - "remote" ], - "name" : "SquitBadRemote", - "pools" : [ - ], - "super" : "Notification", - "type" : "normal" } diff --git a/src/Squit.package/SquitBrowser.class/README.md b/src/Squit.package/SquitBrowser.class/README.md deleted file mode 100644 index 7347f6ccc..000000000 --- a/src/Squit.package/SquitBrowser.class/README.md +++ /dev/null @@ -1,18 +0,0 @@ -I provide a UI to browse and manipulate working copies and their Git repositories and history. - -Instance Variables - branchList: list of ref names - cachedCommitList: unfiltered list of commits - commitForCache: commit from which the objectCache is filled - commitListBuildProcess: background process to load the commit list - commitSelection: selected commit - commitToDiffAgainst: remembered commit for an action involving two commits, until the second commit has been selected - indexOfActiveHistorianInBranchList: - objectCache: artifacts in the selected commit - objectIndex: index of selected artifact - offeredToAddFirstProject: whether the user has already been asked whether he or she wants to add a first working copy - projectIndex: index of selected working copy - repositoryExists: whether the selected working copy's repository still exists on the disk - searchTerm: search term for filtering the commit list - selectedHistorian: - timeOfLastListUpdate: diff --git a/src/Squit.package/SquitBrowser.class/class/defaultTitle.st b/src/Squit.package/SquitBrowser.class/class/defaultTitle.st deleted file mode 100644 index 6c9c2ed0d..000000000 --- a/src/Squit.package/SquitBrowser.class/class/defaultTitle.st +++ /dev/null @@ -1,3 +0,0 @@ -constants -defaultTitle - ^ 'Git Browser' \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/class/initialize.st b/src/Squit.package/SquitBrowser.class/class/initialize.st deleted file mode 100644 index b31185abb..000000000 --- a/src/Squit.package/SquitBrowser.class/class/initialize.st +++ /dev/null @@ -1,5 +0,0 @@ -class initialization -initialize - "SquitBrowser initialize" - self registerInWorldMenu. - self initializeSelfUpdate. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/class/initializeSelfUpdate.st b/src/Squit.package/SquitBrowser.class/class/initializeSelfUpdate.st deleted file mode 100644 index a86886afb..000000000 --- a/src/Squit.package/SquitBrowser.class/class/initializeSelfUpdate.st +++ /dev/null @@ -1,4 +0,0 @@ -class initialization -initializeSelfUpdate - "SquitBrowser initializeSelfUpdate" - SelfUpdateBranch := 'develop'. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/class/open.st b/src/Squit.package/SquitBrowser.class/class/open.st deleted file mode 100644 index a212f01d9..000000000 --- a/src/Squit.package/SquitBrowser.class/class/open.st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -open - ToolBuilder open: self new \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/class/registerInWorldMenu.st b/src/Squit.package/SquitBrowser.class/class/registerInWorldMenu.st deleted file mode 100644 index d31ede9a8..000000000 --- a/src/Squit.package/SquitBrowser.class/class/registerInWorldMenu.st +++ /dev/null @@ -1,8 +0,0 @@ -world menu -registerInWorldMenu - (self environment valueOf: #TheWorldMenu) ifNotNil: [:worldMenu | - worldMenu registerOpenCommand: (Array - with: 'Git [for experts]' - with: (Array - with: self - with: #open))]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/class/selfUpdate.st b/src/Squit.package/SquitBrowser.class/class/selfUpdate.st deleted file mode 100644 index db6a17d73..000000000 --- a/src/Squit.package/SquitBrowser.class/class/selfUpdate.st +++ /dev/null @@ -1,14 +0,0 @@ -updating -selfUpdate - "SquitBrowser selfUpdate" - "UpdateWorkingCopy := nil" - SquotWorkingCopy registered - detect: [:each | | gitRepository | - (each repository respondsTo: #git) - and: [gitRepository := each repository git. - each repository remoteNames - anySatisfy: [:remote | (gitRepository remoteUrl: remote) = self selfUpdateRepository]]] - ifFound: [:ownWorkingCopy | - "This is likely to be a Squot developer, so interactively load current version" - self selfUpdateWithSquot: ownWorkingCopy] - ifNone: [self selfUpdateFromMetacello]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/class/selfUpdateBranch..st b/src/Squit.package/SquitBrowser.class/class/selfUpdateBranch..st deleted file mode 100644 index 5744d543c..000000000 --- a/src/Squit.package/SquitBrowser.class/class/selfUpdateBranch..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -selfUpdateBranch: anObject - SelfUpdateBranch := anObject \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/class/selfUpdateBranch.st b/src/Squit.package/SquitBrowser.class/class/selfUpdateBranch.st deleted file mode 100644 index 345b3a132..000000000 --- a/src/Squit.package/SquitBrowser.class/class/selfUpdateBranch.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -selfUpdateBranch - ^ SelfUpdateBranch ifNil: - [self initializeSelfUpdate. SelfUpdateBranch] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/class/selfUpdateFromMetacello.st b/src/Squit.package/SquitBrowser.class/class/selfUpdateFromMetacello.st deleted file mode 100644 index d6dc2fac1..000000000 --- a/src/Squit.package/SquitBrowser.class/class/selfUpdateFromMetacello.st +++ /dev/null @@ -1,10 +0,0 @@ -updating -selfUpdateFromMetacello - "Close all instances before updating to avoid any UI glitches" - self allInstancesDo: [:each | each changed: #close]. - (Smalltalk at: #Metacello) new - baseline: 'Squot'; - repository: 'github://hpi-swa/Squot:', self selfUpdateBranch, '/src'; - get; load. - "UpdateWorkingCopy loadVersion: UpdateWorkingCopy baseVersion interactive: false." - SquitBrowser open \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/class/selfUpdateRepository.st b/src/Squit.package/SquitBrowser.class/class/selfUpdateRepository.st deleted file mode 100644 index 4e1cc1866..000000000 --- a/src/Squit.package/SquitBrowser.class/class/selfUpdateRepository.st +++ /dev/null @@ -1,3 +0,0 @@ -constants -selfUpdateRepository - ^ 'https://github.com/hpi-swa/Squot.git' \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/class/selfUpdateWithSquot..st b/src/Squit.package/SquitBrowser.class/class/selfUpdateWithSquot..st deleted file mode 100644 index 4083383d0..000000000 --- a/src/Squit.package/SquitBrowser.class/class/selfUpdateWithSquot..st +++ /dev/null @@ -1,19 +0,0 @@ -updating -selfUpdateWithSquot: aWorkingCopy - | repository newVersion | - "do not mess with the passed working copy for the moment" - UpdateWorkingCopy ifNil: [ - UpdateWorkingCopy := SquotWorkingCopy new. - UpdateWorkingCopy store: SquotImageStore new. - UpdateWorkingCopy repository: - (SquitRepository onDirectory: FileSystem memory / 'Squot'). - UpdateWorkingCopy repository cloneFrom: self selfUpdateRepository]. - repository := UpdateWorkingCopy repository. - repository importFromUpstream: 'origin'. - newVersion := (repository historianNamed: 'origin/', SelfUpdateBranch) version. - UpdateWorkingCopy - mergeVersionWithLoadedObjects: newVersion - ifCanceled: [^ self]. - (repository historianNamed: SelfUpdateBranch) version: newVersion. - "-- or, for non-developers of Squot: --" - "UpdateWorkingCopy loadVersion: UpdateWorkingCopy baseVersion interactive: false." \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/class/unload.st b/src/Squit.package/SquitBrowser.class/class/unload.st deleted file mode 100644 index aa8139802..000000000 --- a/src/Squit.package/SquitBrowser.class/class/unload.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -unload - self unregisterFromWorldMenu. - super unload. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/class/unregisterFromWorldMenu.st b/src/Squit.package/SquitBrowser.class/class/unregisterFromWorldMenu.st deleted file mode 100644 index 0b43f7315..000000000 --- a/src/Squit.package/SquitBrowser.class/class/unregisterFromWorldMenu.st +++ /dev/null @@ -1,5 +0,0 @@ -world menu -unregisterFromWorldMenu - "self unregisterFromWorldMenu" - (self environment valueOf: #TheWorldMenu) ifNotNil: - [:worldMenu | worldMenu unregisterOpenCommandWithReceiver: self]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/aboutToStyle..st b/src/Squit.package/SquitBrowser.class/instance/aboutToStyle..st deleted file mode 100644 index 82460f059..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/aboutToStyle..st +++ /dev/null @@ -1,3 +0,0 @@ -model -aboutToStyle: aStyler - ^ false \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionAddOrRemoveTrackedPackages.st b/src/Squit.package/SquitBrowser.class/instance/actionAddOrRemoveTrackedPackages.st deleted file mode 100644 index cd6e19600..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionAddOrRemoveTrackedPackages.st +++ /dev/null @@ -1,4 +0,0 @@ -user requests -actionAddOrRemoveTrackedPackages - - ^ self withUnitOfWork: [SquitPackageChooser chooseFor: self projectSelection] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionBranch.st b/src/Squit.package/SquitBrowser.class/instance/actionBranch.st deleted file mode 100644 index b505213d6..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionBranch.st +++ /dev/null @@ -1,19 +0,0 @@ -actions -actionBranch - | nameSuggestion | - self hasBranchSelection ifFalse: [^ self]. - self withUnitOfWork: - [nameSuggestion := - selectedHistorian isRemoteTrackingHistorian - ifTrue: [selectedHistorian remoteRef shortName] - ifFalse: ['']. - selectedHistorian := self createNewBranchAt: selectedHistorian version - initialName: nameSuggestion - ifCanceled: [^ self]. - self loadBranchList; branchSelectionChanged. - (SquotGUI chooseOptionFrom: #('Switch and move over unsaved changes' 'Switch but leave unsaved changes at current branch' 'Stay at current branch') values: #(switchMoveOver switchClean stayAtCurrent) title: 'Do you want to switch to the new branch?') - caseOf: - {[#switchMoveOver] -> [self actionBranchSwitchMoveOver]. - [#switchClean] -> [self actionBranchSwitch]. - [#stayAtCurrent] -> []. - [nil] -> []}]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionBranchAdd.st b/src/Squit.package/SquitBrowser.class/instance/actionBranchAdd.st deleted file mode 100644 index 4f34afe93..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionBranchAdd.st +++ /dev/null @@ -1,7 +0,0 @@ -actions on versions -actionBranchAdd - self commitSelection ifNil: [^ self]. - self withUnitOfWork: - [selectedHistorian := self createNewBranchAt: self commitSelection ifCanceled: [^ self]. - self loadBranchList. - self branchSelectionChanged]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionBranchCreateAndSwitch.st b/src/Squit.package/SquitBrowser.class/instance/actionBranchCreateAndSwitch.st deleted file mode 100644 index 0eab43d76..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionBranchCreateAndSwitch.st +++ /dev/null @@ -1,13 +0,0 @@ -actions on branches -actionBranchCreateAndSwitch - "Create a new local branch from a remote-tracking branch." - | newHistorian | - self hasBranchSelection ifFalse: [^ self]. - self withUnitOfWork: - [newHistorian := self createNewBranchAt: selectedHistorian version - initialName: (selectedHistorian remoteRef shortName ifNil: ['']) - ifCanceled: [^ self]. - newHistorian setUpstreamToBranchTrackedByRemoteTrackingBranch: selectedHistorian. - selectedHistorian := newHistorian. - self loadBranchList; branchSelectionChanged. - self actionBranchSwitch]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionBranchDiffWithWorkingCopy.st b/src/Squit.package/SquitBrowser.class/instance/actionBranchDiffWithWorkingCopy.st deleted file mode 100644 index 9304c4f6b..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionBranchDiffWithWorkingCopy.st +++ /dev/null @@ -1,8 +0,0 @@ -actions on versions -actionBranchDiffWithWorkingCopy - self withUnitOfWork: - [(SquotDiffExplorer - from: selectedHistorian version - to: self projectSelection) - workingCopy: self projectSelection; - openLabel: 'Changes in working copy compared to branch ', selectedHistorian shortName]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionBranchMerge.st b/src/Squit.package/SquitBrowser.class/instance/actionBranchMerge.st deleted file mode 100644 index 6e5981ca3..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionBranchMerge.st +++ /dev/null @@ -1,9 +0,0 @@ -actions on branches -actionBranchMerge - | historian workingCopy | - self hasProjectSelection ifFalse: [^ self]. - self hasBranchSelection ifFalse: [^ self]. - historian := selectedHistorian. - workingCopy := self projectSelection. - [self withUnitOfWork: - [self mergeBranch: historian into: workingCopy]] fork. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionBranchPush.st b/src/Squit.package/SquitBrowser.class/instance/actionBranchPush.st deleted file mode 100644 index dece6f789..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionBranchPush.st +++ /dev/null @@ -1,4 +0,0 @@ -actions on branches -actionBranchPush - [self withUnitOfWork: - [self pushBranch]] fork. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionBranchRemove.st b/src/Squit.package/SquitBrowser.class/instance/actionBranchRemove.st deleted file mode 100644 index 723e9ae30..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionBranchRemove.st +++ /dev/null @@ -1,15 +0,0 @@ -actions on branches -actionBranchRemove - self hasBranchSelection ifFalse: [^ self]. - self withUnitOfWork: - [selectedHistorian = self projectSelection loadedHistorian - ifTrue: [^ self inform: 'Cannot delete the active branch, switch to another branch before.']. - (self confirm: 'Really delete branch ', selectedHistorian name, '?') - ifFalse: [^ self]. - self projectSelection repository delete: selectedHistorian. - self branchSelection: (self branchList - after: selectedHistorian shortName - ifAbsent: [self branchList - before: selectedHistorian shortName - ifAbsent: [self projectSelection loadedHistorian shortName]]). - self loadBranchList]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionBranchRemoveUpstream.st b/src/Squit.package/SquitBrowser.class/instance/actionBranchRemoveUpstream.st deleted file mode 100644 index 2a87608bb..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionBranchRemoveUpstream.st +++ /dev/null @@ -1,7 +0,0 @@ -actions on branches -actionBranchRemoveUpstream - | localHistorian | - self hasBranchSelection ifFalse: [^ self]. - localHistorian := selectedHistorian. - [self withUnitOfWork: - [self removeTrackedRemoteBranch: localHistorian]] fork. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionBranchRename.st b/src/Squit.package/SquitBrowser.class/instance/actionBranchRename.st deleted file mode 100644 index 0453a9468..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionBranchRename.st +++ /dev/null @@ -1,21 +0,0 @@ -actions on branches -actionBranchRename - | newHistorian newName oldHistorian oldName | - self hasBranchSelection ifFalse: [^ self]. - self withUnitOfWork: - [oldHistorian := selectedHistorian. - oldHistorian isRemoteTrackingHistorian ifTrue: [^ self inform: 'To rename a remote branch, push a local branch to the remote under the new branch name, then remove the old branch from the remote.']. - oldName := oldHistorian shortName. - newName := SquotGUI request: 'New branch name' initialAnswer: oldName. - (newName = oldName or: [newName isEmpty]) - ifTrue: [^ self]. - newHistorian := self newHistorianFor: oldHistorian repository named: newName onError: [^ self]. - newHistorian version notNil ifTrue: - [self inform: 'Branch ', newName, ' already exists!'. - ^ self]. - newHistorian version: oldHistorian version. - oldHistorian repository delete: oldHistorian. - self projectSelection loadedHistorian = oldHistorian ifTrue: - [self projectSelection loadedHistorian: newHistorian]. - self loadBranchList. - self selectedHistorian: newHistorian]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionBranchResetLoadedToCommit.st b/src/Squit.package/SquitBrowser.class/instance/actionBranchResetLoadedToCommit.st deleted file mode 100644 index 39c7da94d..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionBranchResetLoadedToCommit.st +++ /dev/null @@ -1,9 +0,0 @@ -actions on versions -actionBranchResetLoadedToCommit - self withUnitOfWork: - [self projectSelection hasAdditionalParents - ifTrue: [(SquotGUI confirm: 'Looks like you are in the middle of a merge. If you reset to this commit, the commits you merged ', String cr, 'will be no longer remembered as ancestors of the next commit you are going to make.', String cr, 'Proceed with the reset?') - ifFalse: [^ nil]]. - self projectSelection resetAdditionalParents. - self projectSelection loadedHistorian version: self commitSelection. - self refresh]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionBranchResetToCommit.st b/src/Squit.package/SquitBrowser.class/instance/actionBranchResetToCommit.st deleted file mode 100644 index 93e66c54e..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionBranchResetToCommit.st +++ /dev/null @@ -1,12 +0,0 @@ -actions on versions -actionBranchResetToCommit - | index | - self hasBranchSelection ifFalse: [^ self]. - selectedHistorian = self projectSelection loadedHistorian - ifTrue: [^ self actionBranchResetLoadedToCommit]. - self withUnitOfWork: - [selectedHistorian version: self commitSelection. - (index := cachedCommitList indexOf: self commitSelection) ~~ 0 - ifTrue: [cachedCommitList := cachedCommitList - copyFrom: index to: cachedCommitList size]. - self loadCommitList]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionBranchResetToTip.st b/src/Squit.package/SquitBrowser.class/instance/actionBranchResetToTip.st deleted file mode 100644 index 05a9ef1d7..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionBranchResetToTip.st +++ /dev/null @@ -1,8 +0,0 @@ -actions on branches -actionBranchResetToTip - | workingCopy | - workingCopy := self projectSelection. - self withUnitOfWork: - [(self confirm: 'Do you really want to discard all your uncommitted changes?') - ifFalse: [^ self]. - workingCopy discardUnsavedChanges]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionBranchSetCurrent.st b/src/Squit.package/SquitBrowser.class/instance/actionBranchSetCurrent.st deleted file mode 100644 index 9de9ec482..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionBranchSetCurrent.st +++ /dev/null @@ -1,8 +0,0 @@ -actions on branches -actionBranchSetCurrent - "Force the selected branch to be the loaded one, without really loading anything." - self hasProjectSelection ifFalse: [^ self]. - self hasBranchSelection ifFalse: [^ self]. - self withUnitOfWork: - [self projectSelection loadedHistorian: selectedHistorian. - self activeBranchChanged]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionBranchSwitch.st b/src/Squit.package/SquitBrowser.class/instance/actionBranchSwitch.st deleted file mode 100644 index dac619a25..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionBranchSwitch.st +++ /dev/null @@ -1,6 +0,0 @@ -actions on branches -actionBranchSwitch - self hasBranchSelection ifFalse: [^ self]. - self withUnitOfWork: - [self projectSelection switchTo: selectedHistorian. - self activeBranchChanged]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionBranchSwitchMoveOver.st b/src/Squit.package/SquitBrowser.class/instance/actionBranchSwitchMoveOver.st deleted file mode 100644 index d19293708..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionBranchSwitchMoveOver.st +++ /dev/null @@ -1,6 +0,0 @@ -actions on branches -actionBranchSwitchMoveOver - self hasBranchSelection ifFalse: [^ self]. - self withUnitOfWork: - [self projectSelection switchAndMoveUnsavedChangesOverTo: selectedHistorian. - self activeBranchChanged]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionBranchUnsetUpstream.st b/src/Squit.package/SquitBrowser.class/instance/actionBranchUnsetUpstream.st deleted file mode 100644 index 1add879ef..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionBranchUnsetUpstream.st +++ /dev/null @@ -1,5 +0,0 @@ -actions on branches -actionBranchUnsetUpstream - self hasBranchSelection ifFalse: [^ self]. - self withUnitOfWork: - [selectedHistorian untrackUpstream]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionBrowseWorkingCopy.st b/src/Squit.package/SquitBrowser.class/instance/actionBrowseWorkingCopy.st deleted file mode 100644 index fa4b28fb3..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionBrowseWorkingCopy.st +++ /dev/null @@ -1,5 +0,0 @@ -actions on working copies -actionBrowseWorkingCopy - | workingCopy | - (workingCopy := self projectSelection) ifNil: [^ self]. - workingCopy browse. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionClearSearch.st b/src/Squit.package/SquitBrowser.class/instance/actionClearSearch.st deleted file mode 100644 index bc42817a1..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionClearSearch.st +++ /dev/null @@ -1,3 +0,0 @@ -actions -actionClearSearch - self searchTerm: ''. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionCommit.st b/src/Squit.package/SquitBrowser.class/instance/actionCommit.st deleted file mode 100644 index cb13742c6..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionCommit.st +++ /dev/null @@ -1,12 +0,0 @@ -actions -actionCommit - | workingCopy | - self hasProjectSelection ifFalse: [^ self]. - workingCopy := self projectSelection. - self withUnitOfWork: - [[SquotGUI waitFor: - ((workingCopy newInteractiveSaveOperation - title: 'Select changes and message for the new version'; - applyToWorkingCopy) - then: [:result | self refresh])] - on: BrokenPromise do: [:e | "cancelled" e return]]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionCommitCherryPick.st b/src/Squit.package/SquitBrowser.class/instance/actionCommitCherryPick.st deleted file mode 100644 index f05d87aa1..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionCommitCherryPick.st +++ /dev/null @@ -1,7 +0,0 @@ -actions on versions -actionCommitCherryPick - | pickedVersion workingCopy | - (self hasProjectSelection and: [self hasCommitSelection]) ifFalse: [^ self]. - pickedVersion := self commitSelection. - workingCopy := self projectSelection. - self cherryPick: pickedVersion toWorkingCopy: workingCopy. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionCommitDiffWithNextSelected.st b/src/Squit.package/SquitBrowser.class/instance/actionCommitDiffWithNextSelected.st deleted file mode 100644 index 0b859de8d..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionCommitDiffWithNextSelected.st +++ /dev/null @@ -1,3 +0,0 @@ -actions on versions -actionCommitDiffWithNextSelected - commitToDiffAgainst := self commitSelection. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionCommitDiffWithParent.st b/src/Squit.package/SquitBrowser.class/instance/actionCommitDiffWithParent.st deleted file mode 100644 index 038ff6072..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionCommitDiffWithParent.st +++ /dev/null @@ -1,21 +0,0 @@ -actions on versions -actionCommitDiffWithParent - self withUnitOfWork: - [| label parent parents | - parents := self commitSelection parents. - label := 'Comparing versions'. - parent := parents - ifNotEmpty: - [parents size = 1 - ifTrue: [parents anyOne] - ifFalse: - [(SquotGUI chooseFrom: parents values: parents title: 'Choose parent for diff') - ifNil: [^ self]]] - ifEmpty: - [label := '{1} (orphan commit)' format: {label}. - SquotSnapshot empty]. - (SquotDiffExplorer - from: parent - to: self commitSelection) - workingCopy: self projectSelection; - openLabel: label]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionCommitDiffWithWorkingCopy.st b/src/Squit.package/SquitBrowser.class/instance/actionCommitDiffWithWorkingCopy.st deleted file mode 100644 index 626f793e6..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionCommitDiffWithWorkingCopy.st +++ /dev/null @@ -1,8 +0,0 @@ -actions on versions -actionCommitDiffWithWorkingCopy - self withUnitOfWork: - [(SquotDiffExplorer - from: self commitSelection - to: self projectSelection) - workingCopy: self projectSelection; - openLabel: 'Changes in working copy compared to ', self commitSelection printString]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionCommitMergeIntoMemory.st b/src/Squit.package/SquitBrowser.class/instance/actionCommitMergeIntoMemory.st deleted file mode 100644 index 0bdb2d3ed..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionCommitMergeIntoMemory.st +++ /dev/null @@ -1,4 +0,0 @@ -actions on versions -actionCommitMergeIntoMemory - self withUnitOfWork: - [self projectSelection mergeVersionWithLoadedObjects: self commitSelection ifCanceled: []] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionCommitRevert.st b/src/Squit.package/SquitBrowser.class/instance/actionCommitRevert.st deleted file mode 100644 index 5bdef64d2..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionCommitRevert.st +++ /dev/null @@ -1,7 +0,0 @@ -actions on versions -actionCommitRevert - | revertedVersion workingCopy | - (self hasProjectSelection and: [self hasCommitSelection]) ifFalse: [^ self]. - revertedVersion := self commitSelection. - workingCopy := self projectSelection. - self revert: revertedVersion inWorkingCopy: workingCopy. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionCommitSelectionCheckout.st b/src/Squit.package/SquitBrowser.class/instance/actionCommitSelectionCheckout.st deleted file mode 100644 index a2ccf0db9..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionCommitSelectionCheckout.st +++ /dev/null @@ -1,4 +0,0 @@ -actions -actionCommitSelectionCheckout - self withUnitOfWork: - [self projectSelection loadVersionInteractively: self commitSelection ifCanceled: [^ self]]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionCommitSwitchNewBranch.st b/src/Squit.package/SquitBrowser.class/instance/actionCommitSwitchNewBranch.st deleted file mode 100644 index d498a6fe8..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionCommitSwitchNewBranch.st +++ /dev/null @@ -1,9 +0,0 @@ -actions on versions -actionCommitSwitchNewBranch - | workingCopy | - self commitSelection ifNil: [^ self]. - self withUnitOfWork: - [workingCopy := self projectSelection. - selectedHistorian := self createNewBranchAt: self commitSelection ifCanceled: [^ self]. - workingCopy switchTo: selectedHistorian. - self loadBranchList; branchSelectionChanged]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionCommitTag.st b/src/Squit.package/SquitBrowser.class/instance/actionCommitTag.st deleted file mode 100644 index d7c7db0bc..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionCommitTag.st +++ /dev/null @@ -1,16 +0,0 @@ -actions on versions -actionCommitTag - | taggedVersion workingCopy | - (self hasProjectSelection and: [self hasCommitSelection]) ifFalse: [^ self]. - taggedVersion := self commitSelection. - workingCopy := self projectSelection. - self withUnitOfWork: - [| tagName tagHistorian | - tagName := SquotGUI request: 'New tag name' initialAnswer: ''. - (tagName isNil or: [tagName isEmpty]) ifTrue: [^ self]. - tagHistorian := self newHistorianFor: workingCopy repository named: 'refs/tags/', tagName onError: [^ self]. - tagHistorian version ifNotNil: - [tagHistorian version = taggedVersion "tag already exists with same commit" - ifTrue: [^ self] - ifFalse: [(self confirm: ('Tag {1} already exists. Do you wish to overwrite it?' translated format: {tagName})) ifFalse: [^ self]]]. - tagHistorian version: taggedVersion]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionCredentialsEdit.st b/src/Squit.package/SquitBrowser.class/instance/actionCredentialsEdit.st deleted file mode 100644 index 15925c384..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionCredentialsEdit.st +++ /dev/null @@ -1,25 +0,0 @@ -actions -actionCredentialsEdit - | repository gitRepository remoteUrls repositoryUrl oldUser oldPassword newUser newPassword | - self withUnitOfWork: - [repository := self projectSelection repository. - gitRepository := repository fsgitRepository. - remoteUrls := repository remoteNames collect: - [:each | (gitRepository remoteUrl: each)] - thenSelect: [:each | each beginsWith: 'http']. - repositoryUrl := SquotGUI - chooseFrom: remoteUrls - values: remoteUrls - title: 'Choose Remotes (http/s only):'. - repositoryUrl ifNil: [^ self]. - (repository credentialsFor: repositoryUrl) - ifNotNil: [:credentials | - oldUser := credentials first. - oldPassword := credentials second] - ifNil: [oldUser := ''. oldPassword := '']. - newUser := SquotGUI request: 'Enter username' initialAnswer: oldUser. - newUser ifEmpty: [^ self]. - newPassword := SquotGUI requestPassword: 'Enter password:'. - newPassword ifEmpty: [^ self]. - repository addCredentialsFor: repositoryUrl user: newUser password: newPassword. - self inform: 'Credentials updated successfully.'] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionFeedback.st b/src/Squit.package/SquitBrowser.class/instance/actionFeedback.st deleted file mode 100644 index d4e6f9e4a..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionFeedback.st +++ /dev/null @@ -1,8 +0,0 @@ -actions -actionFeedback - | username | - self withUnitOfWork: - [username := self detectGitHubUsernameIfNone: []]. - ^ username - ifNil: [SquitFeedback open] - ifNotNil: [SquitFeedback openWithAuthor: '@', username]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionFetch.st b/src/Squit.package/SquitBrowser.class/instance/actionFetch.st deleted file mode 100644 index 1a01fcf9b..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionFetch.st +++ /dev/null @@ -1,6 +0,0 @@ -actions -actionFetch - | workingCopy | - workingCopy := self projectSelection. - [self withUnitOfWork: - [self fetch: workingCopy]] fork. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionGitUserEdit.st b/src/Squit.package/SquitBrowser.class/instance/actionGitUserEdit.st deleted file mode 100644 index d06985a98..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionGitUserEdit.st +++ /dev/null @@ -1,12 +0,0 @@ -actions -actionGitUserEdit - | gitRepository defaultAuthor userName userEmail | - self withUnitOfWork: - [gitRepository := self projectSelection repository git. - defaultAuthor := self projectSelection repository defaultAuthor. - - userName := SquotGUI request: 'Git user name:' initialAnswer: defaultAuthor name. - userName ifNotEmpty: [gitRepository configAt: 'user.name' put: userName]. - - userEmail := SquotGUI request: 'Git user email:' initialAnswer: defaultAuthor email. - userEmail ifNotEmpty: [gitRepository configAt: 'user.email' put: userEmail]]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionManageRemotes.st b/src/Squit.package/SquitBrowser.class/instance/actionManageRemotes.st deleted file mode 100644 index a1db2be71..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionManageRemotes.st +++ /dev/null @@ -1,9 +0,0 @@ -actions on working copies -actionManageRemotes - | browser | - self projectSelection ifNil: [^ self]. - browser := SquitRemotesBrowser new - workingCopy: self projectSelection; - yourself. - ToolBuilder open: browser. - ^ browser \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionMerge.st b/src/Squit.package/SquitBrowser.class/instance/actionMerge.st deleted file mode 100644 index e6d899d7d..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionMerge.st +++ /dev/null @@ -1,11 +0,0 @@ -actions on versions -actionMerge - | commit workingCopy | - self hasProjectSelection ifFalse: [^ self]. - self hasCommitSelection ifFalse: [^ self]. - (self hasBranchSelection and: [self withUnitOfWork: [self commitSelection = selectedHistorian version]]) - ifTrue: [^ self actionBranchMerge "Treat as merging the branch"]. - commit := self commitSelection. - workingCopy := self projectSelection. - [self withUnitOfWork: - [self mergeCommit: commit into: workingCopy]] fork. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionObjectBrowse.st b/src/Squit.package/SquitBrowser.class/instance/actionObjectBrowse.st deleted file mode 100644 index 94f194c61..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionObjectBrowse.st +++ /dev/null @@ -1,4 +0,0 @@ -actions on objects -actionObjectBrowse - "Need unit of work for loading lazy artifacts." - ^ self withUnitOfWork: [self objectSelection artifact browse] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionObjectBrowseInWorkingCopy.st b/src/Squit.package/SquitBrowser.class/instance/actionObjectBrowseInWorkingCopy.st deleted file mode 100644 index bae5b92e9..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionObjectBrowseInWorkingCopy.st +++ /dev/null @@ -1,6 +0,0 @@ -actions on objects -actionObjectBrowseInWorkingCopy - | path liveObject | - path := self objectSelection artifact path. - liveObject := self projectSelection artifactAt: path. - liveObject browse. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionObjectCheckout.st b/src/Squit.package/SquitBrowser.class/instance/actionObjectCheckout.st deleted file mode 100644 index 809a6ab0e..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionObjectCheckout.st +++ /dev/null @@ -1,6 +0,0 @@ -actions on objects -actionObjectCheckout - self withUnitOfWork: - [self projectSelection - loadArtifactInteractively: self objectSelection artifact - ifCanceled: [^self]]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionObjectExplore.st b/src/Squit.package/SquitBrowser.class/instance/actionObjectExplore.st deleted file mode 100644 index ea526ba0b..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionObjectExplore.st +++ /dev/null @@ -1,3 +0,0 @@ -actions on objects -actionObjectExplore - self objectSelection explore \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionObjectMerge.st b/src/Squit.package/SquitBrowser.class/instance/actionObjectMerge.st deleted file mode 100644 index 593a162a7..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionObjectMerge.st +++ /dev/null @@ -1,7 +0,0 @@ -actions on objects -actionObjectMerge - self withUnitOfWork: - [self projectSelection - mergeArtifactInteractively: self objectSelection artifact - from: self commitSelection - ifCanceled: [^ self]]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionObjectUntrack.st b/src/Squit.package/SquitBrowser.class/instance/actionObjectUntrack.st deleted file mode 100644 index 90802e6ab..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionObjectUntrack.st +++ /dev/null @@ -1,8 +0,0 @@ -actions on objects -actionObjectUntrack - | workingCopy selected | - (workingCopy := self projectSelection) ifNil: [^ self]. - (selected := self objectSelection) ifNil: [^ self]. - self withUnitOfWork: - [(workingCopy includesObjectAt: selected artifact path) ifTrue: - [workingCopy removeAt: selected artifact path]]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionPackageInfoObjectEditPostscript.st b/src/Squit.package/SquitBrowser.class/instance/actionPackageInfoObjectEditPostscript.st deleted file mode 100644 index 15c857198..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionPackageInfoObjectEditPostscript.st +++ /dev/null @@ -1,5 +0,0 @@ -actions on objects -actionPackageInfoObjectEditPostscript - | packageInfo | - packageInfo := self loadedSelectedObject. - ^ packageInfo postscript openLabel: 'Postscript of package ', packageInfo name \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionPackageInfoObjectEditPostscriptOfRemoval.st b/src/Squit.package/SquitBrowser.class/instance/actionPackageInfoObjectEditPostscriptOfRemoval.st deleted file mode 100644 index d8536d41a..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionPackageInfoObjectEditPostscriptOfRemoval.st +++ /dev/null @@ -1,5 +0,0 @@ -actions on objects -actionPackageInfoObjectEditPostscriptOfRemoval - | packageInfo | - packageInfo := self loadedSelectedObject. - ^ packageInfo postscriptOfRemoval openLabel: 'Postscript for removal of package ', packageInfo name \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionPackageInfoObjectEditPreamble.st b/src/Squit.package/SquitBrowser.class/instance/actionPackageInfoObjectEditPreamble.st deleted file mode 100644 index 23b6f8c88..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionPackageInfoObjectEditPreamble.st +++ /dev/null @@ -1,5 +0,0 @@ -actions on objects -actionPackageInfoObjectEditPreamble - | packageInfo | - packageInfo := self loadedSelectedObject. - ^ packageInfo preamble openLabel: 'Preamble of package ', packageInfo name \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionPackageInfoObjectEditPreambleOfRemoval.st b/src/Squit.package/SquitBrowser.class/instance/actionPackageInfoObjectEditPreambleOfRemoval.st deleted file mode 100644 index b58e93dd1..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionPackageInfoObjectEditPreambleOfRemoval.st +++ /dev/null @@ -1,5 +0,0 @@ -actions on objects -actionPackageInfoObjectEditPreambleOfRemoval - | packageInfo | - packageInfo := self loadedSelectedObject. - ^ packageInfo preambleOfRemoval openLabel: 'Preamble for removal of package ', packageInfo name \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionProjectAdd.st b/src/Squit.package/SquitBrowser.class/instance/actionProjectAdd.st deleted file mode 100644 index c1751f968..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionProjectAdd.st +++ /dev/null @@ -1,4 +0,0 @@ -actions on working copies -actionProjectAdd - self addProjectIfCanceled: [^ self]. - self refresh. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionProjectClone.st b/src/Squit.package/SquitBrowser.class/instance/actionProjectClone.st deleted file mode 100644 index 363d2c47a..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionProjectClone.st +++ /dev/null @@ -1,3 +0,0 @@ -actions on working copies -actionProjectClone - [self clone] fork. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionProjectRemove.st b/src/Squit.package/SquitBrowser.class/instance/actionProjectRemove.st deleted file mode 100644 index bb5230b82..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionProjectRemove.st +++ /dev/null @@ -1,9 +0,0 @@ -actions on working copies -actionProjectRemove - | workingCopy | - workingCopy := self projectSelection ifNil: [^ self]. - (self confirm: 'Really delete project ', workingCopy name, '?') - ifFalse: [^ self]. - workingCopy unregister. - self projectIndex: (self projectIndex min: self projectList size). - self hasProjects ifFalse: [self refresh]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionProjectRename.st b/src/Squit.package/SquitBrowser.class/instance/actionProjectRename.st deleted file mode 100644 index 7c823209c..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionProjectRename.st +++ /dev/null @@ -1,10 +0,0 @@ -actions on working copies -actionProjectRename - | workingCopy name | - workingCopy := self projectSelection. - name := SquotGUI - request: 'Enter new project name:' - initialAnswer: workingCopy name. - name ifEmpty: [^ self]. - workingCopy name: name. - self refresh. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionPull.st b/src/Squit.package/SquitBrowser.class/instance/actionPull.st deleted file mode 100644 index 4e9393556..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionPull.st +++ /dev/null @@ -1,9 +0,0 @@ -actions -actionPull - "Pulls into the active (not the selected!) branch" - | workingCopy | - self hasProjectSelection ifFalse: [^ self]. - workingCopy := self projectSelection. - [self withUnitOfWork: - [self pullUpstream: workingCopy]] - fork. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionPush.st b/src/Squit.package/SquitBrowser.class/instance/actionPush.st deleted file mode 100644 index 84d3bf205..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionPush.st +++ /dev/null @@ -1,3 +0,0 @@ -actions -actionPush - self actionBranchPush \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionPushToRemote..st b/src/Squit.package/SquitBrowser.class/instance/actionPushToRemote..st deleted file mode 100644 index 20cf52df4..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionPushToRemote..st +++ /dev/null @@ -1,7 +0,0 @@ -actions on branches -actionPushToRemote: aString - | historian | - self hasBranchSelection ifFalse: [^ self]. - historian := selectedHistorian. - [self withUnitOfWork: - [self push: historian toRemoteNamed: aString]] fork. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionRemoteAdd.st b/src/Squit.package/SquitBrowser.class/instance/actionRemoteAdd.st deleted file mode 100644 index ef5dec177..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionRemoteAdd.st +++ /dev/null @@ -1,9 +0,0 @@ -actions on working copies -actionRemoteAdd - "Answer a promise that will be resolved if the remote was added, or rejected with #cancelled." - | workingCopy | - workingCopy := self projectSelection ifNil: [^ self]. - ^ (SquitInteractiveAddRemote new - repository: workingCopy repository; - run) - then: [:result | self refresh. result]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionSelfUpdate.st b/src/Squit.package/SquitBrowser.class/instance/actionSelfUpdate.st deleted file mode 100644 index 1a40515d2..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionSelfUpdate.st +++ /dev/null @@ -1,3 +0,0 @@ -actions -actionSelfUpdate - self class selfUpdate \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionSelfUpdateSetBranch.st b/src/Squit.package/SquitBrowser.class/instance/actionSelfUpdateSetBranch.st deleted file mode 100644 index 43cb64934..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionSelfUpdateSetBranch.st +++ /dev/null @@ -1,10 +0,0 @@ -actions -actionSelfUpdateSetBranch - | selectedBranch | - selectedBranch := SquotGUI - request: 'Branch name for Git Browser update (master, develop, squeak5.1)' - initialAnswer: self class selfUpdateBranch. - selectedBranch isEmptyOrNil ifTrue: [^ self]. - self class selfUpdateBranch: selectedBranch. - (SquotGUI confirm: 'Would you like to install updates now?') - ifTrue: [self class selfUpdate]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionSetUpstreamBranch.st b/src/Squit.package/SquitBrowser.class/instance/actionSetUpstreamBranch.st deleted file mode 100644 index cdfb5afe5..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionSetUpstreamBranch.st +++ /dev/null @@ -1,7 +0,0 @@ -actions -actionSetUpstreamBranch - | localHistorian | - self hasBranchSelection ifFalse: [^ self]. - localHistorian := selectedHistorian. - [self withUnitOfWork: - [self setUpstreamBranchOf: localHistorian]] fork. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionSettings.st b/src/Squit.package/SquitBrowser.class/instance/actionSettings.st deleted file mode 100644 index 77e91a29e..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionSettings.st +++ /dev/null @@ -1,22 +0,0 @@ -actions -actionSettings - | builder menu | - builder := ToolBuilder default. - menu := builder pluggableMenuSpec new. - self projectSelection ifNotNil: - [:project | - menu - add: 'Set package storage format' - target: self selector: #offerPackageFormatMenu argumentList: #(). - project addUserSettingsTo: menu]. - menu - add: 'Edit global author information...' - target: self selector: #editGlobalAuthorInfo argumentList: #(). - self projectSelection ifNotNil: - [:project | - menu - add: (project shouldStoreMetadata - ifTrue: [''] - ifFalse: ['']), ' Store Squot metadata files' - target: self selector: #toggleMetadata argumentList: #()]. - builder open: menu. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/actionSquotWorkingCopyExplore.st b/src/Squit.package/SquitBrowser.class/instance/actionSquotWorkingCopyExplore.st deleted file mode 100644 index 9d272b956..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/actionSquotWorkingCopyExplore.st +++ /dev/null @@ -1,3 +0,0 @@ -actions on working copies -actionSquotWorkingCopyExplore - self projectSelection explore \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/activeBranchChanged.st b/src/Squit.package/SquitBrowser.class/instance/activeBranchChanged.st deleted file mode 100644 index 0311bfddf..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/activeBranchChanged.st +++ /dev/null @@ -1,8 +0,0 @@ -ui -activeBranchChanged - indexOfActiveHistorianInBranchList := self hasProjectSelection - ifTrue: [self branchList indexOf: self projectSelection loadedHistorian shortName] - ifFalse: [0]. - indexOfActiveHistorianInBranchList = 0 - ifTrue: [indexOfActiveHistorianInBranchList := 1 "after the label"]. - self changed: #branchList. diff --git a/src/Squit.package/SquitBrowser.class/instance/addModelItemsToWindowMenu..st b/src/Squit.package/SquitBrowser.class/instance/addModelItemsToWindowMenu..st deleted file mode 100644 index aa2a19dc9..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/addModelItemsToWindowMenu..st +++ /dev/null @@ -1,11 +0,0 @@ -ui menu -addModelItemsToWindowMenu: aMenu - aMenu addLine. - aMenu - add: 'self-update...' - target: self - selector: #actionSelfUpdate; - add: 'set self-update branch...' - target: self - selector: #actionSelfUpdateSetBranch. - aMenu balloonTextForLastItem: 'Update and reopen Git Browser.' \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/addProjectIfCanceled..st b/src/Squit.package/SquitBrowser.class/instance/addProjectIfCanceled..st deleted file mode 100644 index f872497ae..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/addProjectIfCanceled..st +++ /dev/null @@ -1,15 +0,0 @@ -actions -addProjectIfCanceled: cancelBlock - | workingCopy name directory repositoryPath | - directory := (SquotGUI chooseDirectory: 'Repository directory'). - directory ifNil: [^ cancelBlock value]. - name := SquotGUI request: 'Project name:' initialAnswer: directory directoryEntry name. - name ifEmpty: [^ cancelBlock value]. - workingCopy := SquotWorkingCopy newOnObjectMemory. - workingCopy name: name. - repositoryPath := directory pathName. - workingCopy repository: (SquitRepository new initializeInDirectory: (FileSystem disk root resolve: repositoryPath)). - workingCopy repository unitOfWork activateDuring: - [workingCopy loadedHistorian: workingCopy repository headHistorian]. - workingCopy register. - ^ workingCopy \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/branchButtonHelpText.st b/src/Squit.package/SquitBrowser.class/instance/branchButtonHelpText.st deleted file mode 100644 index a122fddbe..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/branchButtonHelpText.st +++ /dev/null @@ -1,6 +0,0 @@ -ui -branchButtonHelpText - | extra | - self hasBranchSelection ifTrue: - [self withUnitOfWork: [extra := ' at the head of the branch ''', selectedHistorian shortName, '''']]. - ^ 'Create a new branch', (extra ifNil: ['']) \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/branchList.st b/src/Squit.package/SquitBrowser.class/instance/branchList.st deleted file mode 100644 index ed64d7bae..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/branchList.st +++ /dev/null @@ -1,6 +0,0 @@ -ui -branchList - self hasProjectSelection - ifTrue: [branchList ifNil: [self withUnitOfWork: [self loadBranchList]]] - ifFalse: [^ self branchListIfRepositoryDoesNotExist]. - ^ #('-- Branches --'), branchList \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/branchListIconAt..st b/src/Squit.package/SquitBrowser.class/instance/branchListIconAt..st deleted file mode 100644 index 216cbedd4..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/branchListIconAt..st +++ /dev/null @@ -1,8 +0,0 @@ -ui -branchListIconAt: anIndex - anIndex > 1 ifFalse: [^ nil]. - anIndex = indexOfActiveHistorianInBranchList - ifTrue: [^ ToolIcons testGreen]. - anIndex > (indexOfFirstRemoteTrackingBranch ifNil: [self branchList size]) - ifTrue: [^ ToolIcons arrowUp]. - ^ ToolIcons blank \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/branchListIfRepositoryDoesNotExist.st b/src/Squit.package/SquitBrowser.class/instance/branchListIfRepositoryDoesNotExist.st deleted file mode 100644 index c5d504585..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/branchListIfRepositoryDoesNotExist.st +++ /dev/null @@ -1,3 +0,0 @@ -ui -branchListIfRepositoryDoesNotExist - ^ #('-- Repository disappeared --') \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/branchListMenu.shifted..st b/src/Squit.package/SquitBrowser.class/instance/branchListMenu.shifted..st deleted file mode 100644 index 3e63726dc..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/branchListMenu.shifted..st +++ /dev/null @@ -1,3 +0,0 @@ -ui menu -branchListMenu: aMenu shifted: aBoolean - ^ self menu: aMenu for: #(menuBranchList menuBranchListShifted:) shifted: aBoolean \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/branchSelection..st b/src/Squit.package/SquitBrowser.class/instance/branchSelection..st deleted file mode 100644 index d1e000fd2..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/branchSelection..st +++ /dev/null @@ -1,6 +0,0 @@ -ui -branchSelection: aString - (aString isNil or: [aString = '-- Branches --']) ifTrue: [^ self]. - self withUnitOfWork: - [selectedHistorian := self projectSelection repository historianNamed: aString. - self branchSelectionChanged]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/branchSelection.st b/src/Squit.package/SquitBrowser.class/instance/branchSelection.st deleted file mode 100644 index cf8ce542e..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/branchSelection.st +++ /dev/null @@ -1,4 +0,0 @@ -ui -branchSelection - self hasProjectSelection ifFalse: [^ nil]. - ^ self withUnitOfWork: [(selectedHistorian ifNil: [^ nil]) shortName] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/branchSelectionChanged.st b/src/Squit.package/SquitBrowser.class/instance/branchSelectionChanged.st deleted file mode 100644 index 2bcaae0e6..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/branchSelectionChanged.st +++ /dev/null @@ -1,6 +0,0 @@ -ui -branchSelectionChanged - self changed: #branchSelection. - self loadCommitList. - self commitSelection: selectedHistorian version. - self changed: #labelString. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/browseTags.st b/src/Squit.package/SquitBrowser.class/instance/browseTags.st deleted file mode 100644 index e25b32863..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/browseTags.st +++ /dev/null @@ -1,4 +0,0 @@ -actions on working copies -browseTags - self hasProjectSelection ifFalse: [^ self]. - ToolBuilder default open: (SquitTagsBrowser repository: self projectSelection repository). \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/buildBranchList..st b/src/Squit.package/SquitBrowser.class/instance/buildBranchList..st deleted file mode 100644 index 0100ba606..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/buildBranchList..st +++ /dev/null @@ -1,13 +0,0 @@ -toolbuilder -buildBranchList: builder - ^ builder pluggableListSpec new - model: self; - list: #branchList; - getSelected: #branchSelection; - setSelected: #branchSelection:; - menu: #branchListMenu:shifted:; - dragItem: #dragFromBranchList:; - dropAccept: #wantsBranchListDrop:type:from:; - dropItem: #dropOnBranchList:at:copyIndicated:; - icon: #branchListIconAt:; - frame: (LayoutFrame fractions: (0@0.5 corner: 1@1)) \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/buildButtonBar..st b/src/Squit.package/SquitBrowser.class/instance/buildButtonBar..st deleted file mode 100644 index 1d521816b..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/buildButtonBar..st +++ /dev/null @@ -1,80 +0,0 @@ -toolbuilder -buildButtonBar: builder - | buttonBar commitButton pullButton pushButton fetchButton branchButton mergeButton settingsButton feedbackButton | - buttonBar := builder pluggablePanelSpec new - layout: #horizontal; - "spacing: -1;" - children: OrderedCollection new; - frame: (LayoutFrame new leftFraction: 0 offset: 0; - topFraction: 0.6 offset: self buttonBarHeight negated; - rightFraction: 1 offset: 0; - bottomFraction: 0.6 offset: 0) - yourself. - - commitButton := builder pluggableActionButtonSpec new. - commitButton - model: self; - label: 'Commit'; - enabled: #hasProjectSelection; - action: #actionCommit; - help: 'Commit your current changes.'. - - pullButton := builder pluggableActionButtonSpec new. - pullButton - model: self; - label: 'Pull'; - enabled: #hasBranchSelection; - action: #actionPull; - help: 'Pull commits into the active branch from its tracked remote branch.'. - - pushButton := builder pluggableActionButtonSpec new. - pushButton - model: self; - label: 'Push'; - enabled: #hasBranchSelection; - action: #actionPush; - help: 'Push commits to a remote.'. - - fetchButton := builder pluggableActionButtonSpec new. - fetchButton - model: self; - label: 'Fetch'; - enabled: #hasProjectSelection; - action: #actionFetch; - help: 'Fetch commits from remotes.'. - - branchButton := builder pluggableActionButtonSpec new. - branchButton - model: self; - label: 'Branch'; - enabled: #hasBranchSelection; - action: #actionBranch; - help: #branchButtonHelpText. - - mergeButton := builder pluggableActionButtonSpec new. - mergeButton - model: self; - label: 'Merge'; - enabled: #hasCommitSelection; - action: #actionMerge; - help: 'Merge selected commit into the active branch.'. - - settingsButton := builder pluggableActionButtonSpec new. - settingsButton - model: self; - label: 'Settings'; - action: #actionSettings; - help: 'Edit your Git settings.'. - - feedbackButton := builder pluggableActionButtonSpec new. - feedbackButton - model: self; - label: 'Feedback'; - action: #actionFeedback; - help: 'Send feedback to the tool maintainers.'. - - buttonBar children addAll: { - commitButton. pullButton. pushButton. fetchButton. branchButton. mergeButton. - builder pluggableSpacerSpec new. - settingsButton. feedbackButton}. - ^ buttonBar \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/buildCommitList..st b/src/Squit.package/SquitBrowser.class/instance/buildCommitList..st deleted file mode 100644 index 50413ee81..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/buildCommitList..st +++ /dev/null @@ -1,24 +0,0 @@ -toolbuilder -buildCommitList: builder - ^ builder pluggableTreeSpec new - model: self; - hScrollBarPolicy: #whenNeeded; - roots: #commitList; - nodeClass: SquitVersionWrapper; - getSelected: #commitSelection; - setSelected: #commitSelection:; - menu: #commitListMenu:; - dragItem: #dragFromCommitList:; - dropAccept: #wantsCommitListDrop:type:from:; - dropItem: #dropOnCommitList:on:copyIndicated:; - keyPress: #commitListKey:from:; - columns: { - [:listMorph | (listMorph filteredItems collect: [:item | - item preferredWidthOfColumn: 1]) max]. - [:listMorph | (listMorph filteredItems collect: [:item | - item preferredWidthOfColumn: 2]) max]. - nil "take all the space"}; - frame: (LayoutFrame new leftFraction: 0 offset: 0; - topFraction: 0 offset: 0; - rightFraction: 1 offset: 0; - bottomFraction: 1 offset: self searchPanelHeight negated) \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/buildCommitSearchPanel..st b/src/Squit.package/SquitBrowser.class/instance/buildCommitSearchPanel..st deleted file mode 100644 index 6f1ab887e..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/buildCommitSearchPanel..st +++ /dev/null @@ -1,11 +0,0 @@ -toolbuilder -buildCommitSearchPanel: builder - ^ builder pluggablePanelSpec new - wantsResizeHandles: true; - model: self; - children: {self buildCommitList: builder. - self buildSearchPanel: builder}; - frame: (LayoutFrame new leftFraction: 0.2 offset: 0; - topFraction: 0 offset: 0; - rightFraction: 1 offset: 0; - bottomFraction: 0.6 offset: self buttonBarHeight negated) \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/buildMenu.from..st b/src/Squit.package/SquitBrowser.class/instance/buildMenu.from..st deleted file mode 100644 index 9f148c0cc..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/buildMenu.from..st +++ /dev/null @@ -1,11 +0,0 @@ -ui menu -buildMenu: aMenu from: commands - "Create a menu from an array of arrays that define commands. - Each item should be {'label'. #selector. 'help text'. trueIfEnabledFalseOtherwise} - (only the first two items are mandatory)." - commands - do: [:each | - each = '-' - ifTrue: [aMenu addLine] - ifFalse: [(each at: 4 ifAbsent: [true]) - ifTrue: [aMenu addList: {(each first: (3 min: each size))}]]] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/buildObjectList..st b/src/Squit.package/SquitBrowser.class/instance/buildObjectList..st deleted file mode 100644 index c1f352555..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/buildObjectList..st +++ /dev/null @@ -1,12 +0,0 @@ -toolbuilder -buildObjectList: builder - ^ builder pluggableListSpec new - model: self; - list: #objectList; - getIndex: #objectIndex; - setIndex: #objectIndex:; - menu: #objectListMenu:; - dragItem: #dragFromObjectList:; - dropAccept: #wantsObjectListDrop:type:from:; - dropItem: #dropOnObjectList:at:copyIndicated:; - frame: (0.7@0.6 corner: 1@1) \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/buildProjectBranchPanel..st b/src/Squit.package/SquitBrowser.class/instance/buildProjectBranchPanel..st deleted file mode 100644 index 2667b3ccf..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/buildProjectBranchPanel..st +++ /dev/null @@ -1,11 +0,0 @@ -toolbuilder -buildProjectBranchPanel: builder - ^ builder pluggablePanelSpec new - wantsResizeHandles: true; - model: self; - children: {self buildProjectList: builder. - self buildBranchList: builder}; - frame: (LayoutFrame new leftFraction: 0 offset: 0; - topFraction: 0 offset: 0; - rightFraction: 0.2 offset: 0; - bottomFraction: 0.6 offset: self buttonBarHeight negated) \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/buildProjectList..st b/src/Squit.package/SquitBrowser.class/instance/buildProjectList..st deleted file mode 100644 index 7f056f36f..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/buildProjectList..st +++ /dev/null @@ -1,12 +0,0 @@ -toolbuilder -buildProjectList: builder - ^ builder pluggableListSpec new - model: self; - list: #projectList; - getIndex: #projectIndex; - setIndex: #projectIndex:; - dragItem: #dragFromProjectList:; - dropAccept: #wantsProjectListDrop:type:from:; - dropItem: #dropOnProjectList:at:copyIndicated:; - menu: #projectListMenu:; - frame: (0@0 corner: 1@0.5) \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/buildSearchBar..st b/src/Squit.package/SquitBrowser.class/instance/buildSearchBar..st deleted file mode 100644 index ac8f8f58f..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/buildSearchBar..st +++ /dev/null @@ -1,14 +0,0 @@ -toolbuilder -buildSearchBar: builder - ^ builder pluggableInputFieldSpec new - minimumHeight: 0; - model: self; - getText: #searchTerm; - setText: #searchTerm:; - indicateUnacceptedChanges: false; - help: 'Search commits...'; - frame: (LayoutFrame new - topFraction: 0; - bottomFraction: 1; - leftFraction: 0; - rightFraction: 1 offset: self searchClearButtonWidth negated) \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/buildSearchClearButton..st b/src/Squit.package/SquitBrowser.class/instance/buildSearchClearButton..st deleted file mode 100644 index d85955422..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/buildSearchClearButton..st +++ /dev/null @@ -1,13 +0,0 @@ -toolbuilder -buildSearchClearButton: builder - ^ builder pluggableActionButtonSpec new - model: self; - label: 'Clear'; - enabled: #hasSearchTerm; - action: #actionClearSearch; - help: 'Clear your search.'; - frame: (LayoutFrame new - topFraction: 0; - bottomFraction: 1; - leftFraction: 1 offset: self searchClearButtonWidth negated; - rightFraction: 1) \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/buildSearchPanel..st b/src/Squit.package/SquitBrowser.class/instance/buildSearchPanel..st deleted file mode 100644 index 0c5342a79..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/buildSearchPanel..st +++ /dev/null @@ -1,10 +0,0 @@ -toolbuilder -buildSearchPanel: builder - ^ builder pluggablePanelSpec new - model: self; - children: {self buildSearchBar: builder. - self buildSearchClearButton: builder}; - frame: (LayoutFrame new leftFraction: 0 offset: 0; - topFraction: 1 offset: self searchPanelHeight negated; - rightFraction: 1 offset: 0; - bottomFraction: 1 offset: 0) \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/buildSummary..st b/src/Squit.package/SquitBrowser.class/instance/buildSummary..st deleted file mode 100644 index 8863bf0d2..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/buildSummary..st +++ /dev/null @@ -1,8 +0,0 @@ -toolbuilder -buildSummary: builder - ^ builder pluggableTextSpec new - model: self; - getText: #contents; - readOnly: true; - indicateUnacceptedChanges: false; - frame: (0@0.6 corner: 0.7@1) \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/buildWith..st b/src/Squit.package/SquitBrowser.class/instance/buildWith..st deleted file mode 100644 index 8da909d30..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/buildWith..st +++ /dev/null @@ -1,11 +0,0 @@ -toolbuilder -buildWith: builder - ^ builder build: (builder pluggableWindowSpec new - model: self; - label: #labelString; - children: { - self buildButtonBar: builder. - self buildProjectBranchPanel: builder. - self buildCommitSearchPanel: builder. - self buildSummary: builder. - self buildObjectList: builder}) \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/buttonBarHeight.st b/src/Squit.package/SquitBrowser.class/instance/buttonBarHeight.st deleted file mode 100644 index 051fd28c6..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/buttonBarHeight.st +++ /dev/null @@ -1,3 +0,0 @@ -toolbuilder -buttonBarHeight - ^ SquotGUI buttonBarHeight \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/cherryPick.toWorkingCopy..st b/src/Squit.package/SquitBrowser.class/instance/cherryPick.toWorkingCopy..st deleted file mode 100644 index 6c919884e..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/cherryPick.toWorkingCopy..st +++ /dev/null @@ -1,12 +0,0 @@ -actions -cherryPick: pickedVersion toWorkingCopy: workingCopy - | cherryPick | - self withUnitOfWork: - [( self soleParentOf: pickedVersion orChooseWithPrompt: 'Pick changes in comparison to which parent?') ifNotNil: [:parentVersion | - (cherryPick := workingCopy newInteractiveCherryPickOperation) - requestor: self; - pickedVersion: pickedVersion; - relevantParentOfPickedVersion: parentVersion. - cherryPick applyToWorkingCopy - whenResolved: [self withUnitOfWork: [self loadCommitList]]; - whenRejected: [:reason | self inform: 'Cherry pick aborted: ', reason]]]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/chooseOneRemoteFrom..st b/src/Squit.package/SquitBrowser.class/instance/chooseOneRemoteFrom..st deleted file mode 100644 index 38dd836ff..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/chooseOneRemoteFrom..st +++ /dev/null @@ -1,12 +0,0 @@ -user requests -chooseOneRemoteFrom: gitRepository - | remoteNames selection | - remoteNames := self chooseableRemoteNamesFrom: gitRepository. - remoteNames ifEmpty: [^ SquitNoRemotes new repository: gitRepository; signal]. - selection := remoteNames size = 1 - ifTrue: [remoteNames anyOne] - ifFalse: [SquotGUI - chooseFrom: remoteNames - values: remoteNames - title: 'Choose a remote (http only):']. - ^ selection \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/chooseRemotesFrom..st b/src/Squit.package/SquitBrowser.class/instance/chooseRemotesFrom..st deleted file mode 100644 index 4981f1ead..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/chooseRemotesFrom..st +++ /dev/null @@ -1,15 +0,0 @@ -user requests -chooseRemotesFrom: gitRepository - | remoteNames selection | - remoteNames := self chooseableRemoteNamesFrom: gitRepository. - remoteNames ifEmpty: - [self inform: 'No remotes configured yet. Please add one, then fetch again.'. - Project current addDeferredUIMessage: [self actionRemoteAdd]. - ^ nil]. - selection := remoteNames size = 1 - ifTrue: [remoteNames] - ifFalse: [SquotGUI - chooseMultipleFrom: remoteNames - values: remoteNames - title: 'Choose Remotes (http only):']. - ^ selection \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/chooseableRemoteNamesFrom..st b/src/Squit.package/SquitBrowser.class/instance/chooseableRemoteNamesFrom..st deleted file mode 100644 index 90b8054c5..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/chooseableRemoteNamesFrom..st +++ /dev/null @@ -1,5 +0,0 @@ -user requests -chooseableRemoteNamesFrom: gitRepository - GitFeatureFlags externalFetchAndPush ifTrue: [^ gitRepository remoteNames]. - ^ gitRepository remoteNames select: - [:each | (gitRepository remoteUrl: each) beginsWith: 'http'] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/clone.st b/src/Squit.package/SquitBrowser.class/instance/clone.st deleted file mode 100644 index ac084f947..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/clone.st +++ /dev/null @@ -1,12 +0,0 @@ -actions on working copies -clone - | operation | - operation := SquitInteractiveClone new. - [operation clone] - on: SquitBadRemote do: - [:e | e retry]. - Project current addDeferredUIMessage: - [| projectIndex | - projectIndex := self projectList indexOf: operation workingCopy. - projectIndex > 0 ifTrue: [self projectIndex: projectIndex]. - self refresh]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/commitList.st b/src/Squit.package/SquitBrowser.class/instance/commitList.st deleted file mode 100644 index a677b59aa..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/commitList.st +++ /dev/null @@ -1,11 +0,0 @@ -ui -commitList - ^ self projectSelection - ifNil: [#()] - ifNotNil: - [self searchTerm ifEmpty: [^ cachedCommitList]. - ^ cachedCommitList select: [:each | - (each message, each metadata asString, each internalId - includesSubstring: self searchTerm) - or: [((self historiansDecorationAtVersion: each) joinSeparatedBy: ' ') - includesSubstring: self searchTerm]]] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/commitListKey.from..st b/src/Squit.package/SquitBrowser.class/instance/commitListKey.from..st deleted file mode 100644 index 6447cc2f9..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/commitListKey.from..st +++ /dev/null @@ -1,6 +0,0 @@ -toolbuilder -commitListKey: aChar from: view - | newSearchTerm | - newSearchTerm := self searchTerm, aChar. - self searchTerm: newSearchTerm - \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/commitListMenu..st b/src/Squit.package/SquitBrowser.class/instance/commitListMenu..st deleted file mode 100644 index b2b912ca2..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/commitListMenu..st +++ /dev/null @@ -1,3 +0,0 @@ -ui menu -commitListMenu: aMenu - ^ self menu: aMenu for: #(menuCommitList) \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/commitSelection..st b/src/Squit.package/SquitBrowser.class/instance/commitSelection..st deleted file mode 100644 index 9abc65b26..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/commitSelection..st +++ /dev/null @@ -1,9 +0,0 @@ -accessing -commitSelection: anObject - commitSelection := anObject. - self commitSelectionChanged. - commitToDiffAgainst ifNotNil: - [ | otherCommit | - otherCommit := commitToDiffAgainst. - commitToDiffAgainst := nil. - self compareVersions: commitSelection with: otherCommit] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/commitSelection.st b/src/Squit.package/SquitBrowser.class/instance/commitSelection.st deleted file mode 100644 index 5809ca1e9..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/commitSelection.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -commitSelection - ^ commitSelection ifNil: [ - self commitList ifNotEmpty: [:list | commitSelection := list first ]. - commitSelection] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/commitSelectionChanged.st b/src/Squit.package/SquitBrowser.class/instance/commitSelectionChanged.st deleted file mode 100644 index 3f3ed59bd..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/commitSelectionChanged.st +++ /dev/null @@ -1,6 +0,0 @@ -ui -commitSelectionChanged - self changed: #hasCommitSelection. - self changed: #commitSelection. - self changed: #contents. - self objectCacheRefreshAsync. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/compareVersions.with..st b/src/Squit.package/SquitBrowser.class/instance/compareVersions.with..st deleted file mode 100644 index 76190dfc1..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/compareVersions.with..st +++ /dev/null @@ -1,6 +0,0 @@ -actions on versions -compareVersions: leftVersion with: rightVersion - self withUnitOfWork: - [(SquotDiffExplorer from: leftVersion to: rightVersion) - workingCopy: self projectSelection; - openLabel: 'Comparing versions']. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/confirm..st b/src/Squit.package/SquitBrowser.class/instance/confirm..st deleted file mode 100644 index 9382a239c..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/confirm..st +++ /dev/null @@ -1,4 +0,0 @@ -user requests -confirm: aString - "Make sure the dialog is run in the UI process." - ^ SquotGUI confirm: aString. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/contents.st b/src/Squit.package/SquitBrowser.class/instance/contents.st deleted file mode 100644 index 70933361a..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/contents.st +++ /dev/null @@ -1,4 +0,0 @@ -ui -contents - self commitSelection ifNil: [^ self defaultCommitText]. - ^ self withUnitOfWork: [self summaryForCommit: self commitSelection] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/continueAsyncBuildingCommitList.historyWalk..st b/src/Squit.package/SquitBrowser.class/instance/continueAsyncBuildingCommitList.historyWalk..st deleted file mode 100644 index abbc3ef47..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/continueAsyncBuildingCommitList.historyWalk..st +++ /dev/null @@ -1,9 +0,0 @@ -caching -continueAsyncBuildingCommitList: anOrderedCollection historyWalk: aHistoryWalker - commitListBuildProcess := - [self withUnitOfWork: - [aHistoryWalker do: [:each | anOrderedCollection add: each]. - cachedCommitList := self sortVersionsTopologically: anOrderedCollection. - Project current addDeferredUIMessage: [self withUnitOfWork: [self changed: #commitList]]]] - forkAt: Processor userBackgroundPriority - named: self class name, ' commit list loader'. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/createNewBranchAt.ifCanceled..st b/src/Squit.package/SquitBrowser.class/instance/createNewBranchAt.ifCanceled..st deleted file mode 100644 index 4b0ec66d5..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/createNewBranchAt.ifCanceled..st +++ /dev/null @@ -1,3 +0,0 @@ -actions -createNewBranchAt: aVersion ifCanceled: cancelBlock - ^ self createNewBranchAt: aVersion initialName: '' ifCanceled: cancelBlock \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/createNewBranchAt.initialName.ifCanceled..st b/src/Squit.package/SquitBrowser.class/instance/createNewBranchAt.initialName.ifCanceled..st deleted file mode 100644 index 8cbf13b93..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/createNewBranchAt.initialName.ifCanceled..st +++ /dev/null @@ -1,19 +0,0 @@ -actions -createNewBranchAt: aVersion initialName: aString ifCanceled: cancelBlock - "Create a new historian and answer it, or invoke the cancelBlock when the prompt for a branch name is canceled." - | name newHistorian workingCopy | - workingCopy := self projectSelection. - name := SquotGUI request: 'New branch name' initialAnswer: aString. - (name isNil or: [name isEmpty]) ifTrue: [^ cancelBlock value]. - newHistorian := self newHistorianFor: workingCopy repository named: name onError: cancelBlock. - newHistorian version ifNotNil: - [newHistorian version = aVersion - ifTrue: ["nothing to be changed here" ^ newHistorian] - ifFalse: [(self confirm: ('Branch {1} already exists. Do you wish to overwrite it?' format: {name})) ifFalse: [^ cancelBlock value]]]. - newHistorian version: aVersion. - "if the active branch is new and a new branch was created from it, activate the new one" - (aVersion isNil and: [self projectSelection loadedHistorian version isNil]) - ifTrue: [self projectSelection loadedHistorian: newHistorian]. - "If the branch could not be updated, cancel." - newHistorian version ifNil: [^ cancelBlock value]. - ^ newHistorian \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/defaultCommitText.st b/src/Squit.package/SquitBrowser.class/instance/defaultCommitText.st deleted file mode 100644 index 7e2477c13..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/defaultCommitText.st +++ /dev/null @@ -1,7 +0,0 @@ -ui -defaultCommitText - ^ 'Looks like you have selected an empty project that does not have any commits in the repository yet. Usually you would find information about the selected commit here. - -To get started, please add a package to track in this project. You can do it from the menu of the Projects list at the top left, or from the menu of the Objects list at the bottom right of the Git Browser. Afterwards, press Commit. - -Packages in Squeak are delineated by the class categories (leftmost pane in the system browser). So if you have not written any code yet, you first have to create a class category for your package before you can track it in the Git Browser.' \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/detectGitHubRemote.ifNone..st b/src/Squit.package/SquitBrowser.class/instance/detectGitHubRemote.ifNone..st deleted file mode 100644 index c9eacdf0b..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/detectGitHubRemote.ifNone..st +++ /dev/null @@ -1,12 +0,0 @@ -private -detectGitHubRemote: aBlock ifNone: noneBlock - | gitRepository remoteName repository | - self hasProjectSelection ifFalse: [^ noneBlock value]. - repository := self projectSelection repository. - gitRepository := repository git. - remoteName := repository remoteNames - detect: [:each | - ((gitRepository remoteUrl: each) includesSubstring: 'github.com') - and: [aBlock value: each]] - ifNone: [^ noneBlock value]. - ^ remoteName \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/detectGitHubUsernameIfNone..st b/src/Squit.package/SquitBrowser.class/instance/detectGitHubUsernameIfNone..st deleted file mode 100644 index a8c84b708..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/detectGitHubUsernameIfNone..st +++ /dev/null @@ -1,8 +0,0 @@ -private -detectGitHubUsernameIfNone: noneBlock - self detectGitHubRemote: [:each | | url credentials | - url := self projectSelection repository git remoteUrl: each. - credentials := self projectSelection repository credentialsFor: url. - credentials ifNotNil: [^ credentials first]. - credentials notNil] - ifNone: [^ noneBlock value]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/dragFromBranchList..st b/src/Squit.package/SquitBrowser.class/instance/dragFromBranchList..st deleted file mode 100644 index d00ace03e..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/dragFromBranchList..st +++ /dev/null @@ -1,6 +0,0 @@ -drag and drop -dragFromBranchList: index - | branchName | - SquitSettings enableDragAndDrop ifFalse: [^ nil]. - branchName := self branchList at: index. - ^ self projectSelection repository historianNamed: branchName \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/dragFromCommitList..st b/src/Squit.package/SquitBrowser.class/instance/dragFromCommitList..st deleted file mode 100644 index 80847a0e1..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/dragFromCommitList..st +++ /dev/null @@ -1,4 +0,0 @@ -drag and drop -dragFromCommitList: aVersion - SquitSettings enableDragAndDrop ifFalse: [^ nil]. - ^ aVersion \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/dragFromObjectList..st b/src/Squit.package/SquitBrowser.class/instance/dragFromObjectList..st deleted file mode 100644 index d2203ad79..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/dragFromObjectList..st +++ /dev/null @@ -1,4 +0,0 @@ -drag and drop -dragFromObjectList: index - SquitSettings enableDragAndDrop ifFalse: [^ nil]. - ^ nil "not yet implemented" \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/dragFromProjectList..st b/src/Squit.package/SquitBrowser.class/instance/dragFromProjectList..st deleted file mode 100644 index cc8ae2561..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/dragFromProjectList..st +++ /dev/null @@ -1,4 +0,0 @@ -drag and drop -dragFromProjectList: index - SquitSettings enableDragAndDrop ifFalse: [^ nil]. - ^ nil "not yet implemented" \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/dropOnBranchList.at.copyIndicated..st b/src/Squit.package/SquitBrowser.class/instance/dropOnBranchList.at.copyIndicated..st deleted file mode 100644 index c44c35e6b..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/dropOnBranchList.at.copyIndicated..st +++ /dev/null @@ -1,6 +0,0 @@ -drag and drop -dropOnBranchList: anObject at: index copyIndicated: aBoolean - SquitSettings enableDragAndDrop ifFalse: [^ self]. - ^ self - showMenuForVersion: anObject - onBranch: (self projectSelection repository historianNamed: (self branchList at: index)) \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/dropOnCommitList.on.copyIndicated..st b/src/Squit.package/SquitBrowser.class/instance/dropOnCommitList.on.copyIndicated..st deleted file mode 100644 index 056e6e2e8..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/dropOnCommitList.on.copyIndicated..st +++ /dev/null @@ -1,6 +0,0 @@ -drag and drop -dropOnCommitList: anObject on: aVersion copyIndicated: aBoolean - SquitSettings enableDragAndDrop ifFalse: [^ self]. - ^ self - showMenuForVersion: anObject - onVersion: aVersion \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/dropOnObjectList.at.copyIndicated..st b/src/Squit.package/SquitBrowser.class/instance/dropOnObjectList.at.copyIndicated..st deleted file mode 100644 index 1fdec6a48..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/dropOnObjectList.at.copyIndicated..st +++ /dev/null @@ -1,4 +0,0 @@ -drag and drop -dropOnObjectList: anObject at: index copyIndicated: aBoolean - SquitSettings enableDragAndDrop ifFalse: [^ self]. - self notYetImplemented \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/dropOnProjectList.at.copyIndicated..st b/src/Squit.package/SquitBrowser.class/instance/dropOnProjectList.at.copyIndicated..st deleted file mode 100644 index fbd261298..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/dropOnProjectList.at.copyIndicated..st +++ /dev/null @@ -1,5 +0,0 @@ -drag and drop -dropOnProjectList: anObject at: index copyIndicated: aBoolean - SquitSettings enableDragAndDrop ifFalse: [^ self]. - ^ self showMenuForVersion: anObject - onWorkingCopy: (self projectList at: index) \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/editGlobalAuthorInfo.st b/src/Squit.package/SquitBrowser.class/instance/editGlobalAuthorInfo.st deleted file mode 100644 index 178c4c697..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/editGlobalAuthorInfo.st +++ /dev/null @@ -1,3 +0,0 @@ -actions -editGlobalAuthorInfo - SquitSettings open \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/errorRemoteAuthenticationFailed..st b/src/Squit.package/SquitBrowser.class/instance/errorRemoteAuthenticationFailed..st deleted file mode 100644 index 432e92f79..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/errorRemoteAuthenticationFailed..st +++ /dev/null @@ -1,15 +0,0 @@ -private -errorRemoteAuthenticationFailed: aGitRemoteError - | message answer | - message := 'Authentication with the remote failed for some reason.'. - aGitRemoteError responseBody ifNotEmpty: [ - message := message , String cr , - 'The following might give a hint of what has happened:' , String cr , String cr, - aGitRemoteError responseBody , String cr]. - (aGitRemoteError remote url includesSubstring: 'github.com') - ifTrue: [message := message, String cr , 'Also please note: If you have two-factor authentification enabled,' - , String cr, 'you must use a personal access token instead of your GitHub login password.']. - (answer := SquotGUI confirm: message trueChoice: 'Retry' translated falseChoice: 'Debug') - = false ifTrue: [ToolSet handleError: aGitRemoteError]. - answer = true ifTrue: [aGitRemoteError retry]. - ^ answer \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/errorRemoteResourceNotFound..st b/src/Squit.package/SquitBrowser.class/instance/errorRemoteResourceNotFound..st deleted file mode 100644 index d52c46a7c..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/errorRemoteResourceNotFound..st +++ /dev/null @@ -1,15 +0,0 @@ -private -errorRemoteResourceNotFound: aGitRemoteError - | message answer | - message := 'No repository found at the remote URL. Maybe the URL is incorrect. Please check the remote configuration.'. - aGitRemoteError responseBody ifNotEmpty: [ - message := message , String cr , - 'The following might give a hint of what has happened:' , String cr , String cr, - (aGitRemoteError responseBody contractTo: 200), String cr]. - (answer := SquotGUI confirm: message trueChoice: 'OK' translated falseChoice: 'Debug') - = false ifTrue: [ToolSet debugError: aGitRemoteError]. - answer = true "OK" ifTrue: - [(SquitBadRemote remote: aGitRemoteError remote) - cause: aGitRemoteError; - signal]. - ^ answer \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/errorRemoteUndefined..st b/src/Squit.package/SquitBrowser.class/instance/errorRemoteUndefined..st deleted file mode 100644 index 2b60bac2b..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/errorRemoteUndefined..st +++ /dev/null @@ -1,3 +0,0 @@ -error handling -errorRemoteUndefined: aGitRemoteUndefined - self inform: 'Remote ', aGitRemoteUndefined remote name, ' is not configured.'. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/fetch..st b/src/Squit.package/SquitBrowser.class/instance/fetch..st deleted file mode 100644 index dd36f9be3..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/fetch..st +++ /dev/null @@ -1,9 +0,0 @@ -actions -fetch: aWorkingCopy - | repository gitRepository remoteNames | - repository := aWorkingCopy repository. - gitRepository := repository fsgitRepository. - remoteNames := self chooseRemotesFrom: gitRepository. - remoteNames ifNil: [^ self]. - remoteNames ifEmpty: [self inform: 'Nothing selected.'. ^ self]. - self fetchFrom: repository remoteNames: remoteNames. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/fetchFrom.remoteNames..st b/src/Squit.package/SquitBrowser.class/instance/fetchFrom.remoteNames..st deleted file mode 100644 index fc4cc4a44..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/fetchFrom.remoteNames..st +++ /dev/null @@ -1,9 +0,0 @@ -private -fetchFrom: aRepository remoteNames: aCollection - [(SquitInteractiveFetch repository: aRepository remoteNames: aCollection) - fetch] - on: SquitBadRemote do: - [:e | - Project current addDeferredUIMessage: [self showBadRemote: e remote]. - e resume]. - Project current addDeferredUIMessage: [self refresh]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/getShouldRevertCherryPickedChanges.st b/src/Squit.package/SquitBrowser.class/instance/getShouldRevertCherryPickedChanges.st deleted file mode 100644 index c9c5eecf6..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/getShouldRevertCherryPickedChanges.st +++ /dev/null @@ -1,5 +0,0 @@ -user requests -getShouldRevertCherryPickedChanges - "User aborted a cherry-pick after already merging the changes. - Ask whether the changes should be reverted in the working copy." - ^ self confirm: 'Revert picked changes?' \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/hasBranchSelection.st b/src/Squit.package/SquitBrowser.class/instance/hasBranchSelection.st deleted file mode 100644 index e4c8084f3..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/hasBranchSelection.st +++ /dev/null @@ -1,3 +0,0 @@ -ui -hasBranchSelection - ^ selectedHistorian notNil \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/hasCommitSelection.st b/src/Squit.package/SquitBrowser.class/instance/hasCommitSelection.st deleted file mode 100644 index 2951f4288..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/hasCommitSelection.st +++ /dev/null @@ -1,3 +0,0 @@ -ui -hasCommitSelection - ^ self commitSelection notNil and: [self hasProjectSelection] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/hasObjectSelection.st b/src/Squit.package/SquitBrowser.class/instance/hasObjectSelection.st deleted file mode 100644 index bce789b94..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/hasObjectSelection.st +++ /dev/null @@ -1,3 +0,0 @@ -ui -hasObjectSelection - ^ self objectSelection notNil \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/hasProjectSelection.st b/src/Squit.package/SquitBrowser.class/instance/hasProjectSelection.st deleted file mode 100644 index cd75738f7..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/hasProjectSelection.st +++ /dev/null @@ -1,5 +0,0 @@ -ui -hasProjectSelection - ^ self projectSelection - ifNil: [false] - ifNotNil: [:project | repositoryExists := project repository exists] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/hasProjects.st b/src/Squit.package/SquitBrowser.class/instance/hasProjects.st deleted file mode 100644 index a6309252a..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/hasProjects.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasProjects - ^ self projectList size > 1 \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/hasSearchTerm.st b/src/Squit.package/SquitBrowser.class/instance/hasSearchTerm.st deleted file mode 100644 index 5aaaa7c63..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/hasSearchTerm.st +++ /dev/null @@ -1,3 +0,0 @@ -ui -hasSearchTerm - ^ self searchTerm notEmpty \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/historiansDecorationAtVersion..st b/src/Squit.package/SquitBrowser.class/instance/historiansDecorationAtVersion..st deleted file mode 100644 index e3b8c4314..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/historiansDecorationAtVersion..st +++ /dev/null @@ -1,3 +0,0 @@ -private -historiansDecorationAtVersion: aSquitVersion - ^ historiansForDecoration at: aSquitVersion ifAbsent: [#()] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/inform..st b/src/Squit.package/SquitBrowser.class/instance/inform..st deleted file mode 100644 index 5bd899ee9..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/inform..st +++ /dev/null @@ -1,4 +0,0 @@ -user requests -inform: aString - "Make sure the dialog is run in the UI process." - SquotGUI inform: aString. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/informThatProjectDoesNotExist.st b/src/Squit.package/SquitBrowser.class/instance/informThatProjectDoesNotExist.st deleted file mode 100644 index f40dd6a01..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/informThatProjectDoesNotExist.st +++ /dev/null @@ -1,4 +0,0 @@ -ui -informThatProjectDoesNotExist - self inform: 'Repository of project ', self projectSelection name, - ' disappeared from ', self projectSelection repository location \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/initialize.st b/src/Squit.package/SquitBrowser.class/instance/initialize.st deleted file mode 100644 index 60a09f442..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initialize - repositoryExists := true. - cachedCommitList := #(). \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/labelString.st b/src/Squit.package/SquitBrowser.class/instance/labelString.st deleted file mode 100644 index 4f0c856f1..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/labelString.st +++ /dev/null @@ -1,17 +0,0 @@ -ui -labelString - ^ String streamContents: [:label | - label nextPutAll: self class defaultTitle. - self projectSelection ifNotNil: [:project | | extra | - label nextPutAll: ': '; nextPutAll: project asString. - extra := OrderedCollection new. - self projectSelection hasAdditionalParents ifTrue: [extra add: 'merging']. - self branchSelection ifNotNil: - [:branch | - extra add: - (extra ifEmpty: [branch asString] - ifNotEmpty: ['viewing ', branch asString])]. - extra ifNotEmpty: - [label nextPutAll: ' ('.]. - extra do: [:each | label nextPutAll: each] separatedBy: [label nextPutAll: ', ']. - label nextPut: $)]] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/loadBranchList.st b/src/Squit.package/SquitBrowser.class/instance/loadBranchList.st deleted file mode 100644 index 69989151e..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/loadBranchList.st +++ /dev/null @@ -1,23 +0,0 @@ -ui -loadBranchList - | list | - repositoryExists ifFalse: - [branchList := self branchListIfRepositoryDoesNotExist. - ^ self changed: #branchList]. - list := self projectSelection - ifNil: [#()] - ifNotNil: [:project | | historians localHistorians remoteHistorians | - localHistorians := project repository historians sort: [:a :b | a name <= b name]. - remoteHistorians := project repository remoteHistorians sort: [:a :b | a name <= b name]. - historians := localHistorians, remoteHistorians. - indexOfFirstRemoteTrackingBranch := localHistorians size + 1. - (historians includes: project loadedHistorian) ifFalse: - [historians := historians copyWithFirst: project loadedHistorian]. - historians collect: - [:historian | - historian isRemoteTrackingHistorian - ifTrue: [historian shortName asText addAttribute: (TextColor color: Color gray darker); yourself] - ifFalse: [historian shortName]]]. - list ~= branchList ifTrue: - [branchList := list. - self activeBranchChanged]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/loadCommitList.st b/src/Squit.package/SquitBrowser.class/instance/loadCommitList.st deleted file mode 100644 index bc24a25ea..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/loadCommitList.st +++ /dev/null @@ -1,18 +0,0 @@ -ui -loadCommitList - selectedHistorian ifNil: - [cachedCommitList := #(). - commitListBuildProcess ifNotNil: [commitListBuildProcess terminate]. - ^ self changed: #commitList]. - self withUnitOfWork: - [| oldHistoriansVersions rebuild | - rebuild := false. - oldHistoriansVersions := historiansForDecoration. - self updateHistorianDecorationsMap. - selectedHistorian version ~= (cachedCommitList at: 1 ifAbsent: []) - ifTrue: - [self rebuildCommitList. - rebuild := true]. - "Must send `changed: #commitList` if the list has actually changed, but when sending it, the view will scroll back to the selected commit. If users are scrolling through the list, this will upset them. So avoid sending it unless it is really warranted." - (rebuild or: [oldHistoriansVersions ~= historiansForDecoration]) - ifTrue: [self changed: #commitList]]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/loadedSelectedObject.st b/src/Squit.package/SquitBrowser.class/instance/loadedSelectedObject.st deleted file mode 100644 index f7f18f472..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/loadedSelectedObject.st +++ /dev/null @@ -1,3 +0,0 @@ -ui -loadedSelectedObject - ^ self projectSelection objectAt: self objectSelection artifact path \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/menuBranchListHook..st b/src/Squit.package/SquitBrowser.class/instance/menuBranchListHook..st deleted file mode 100644 index c6f41ba37..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/menuBranchListHook..st +++ /dev/null @@ -1,39 +0,0 @@ -ui menu -menuBranchListHook: aMenu - - | activeBranchName branchStatus onlyActive onlyInactive onlyLocal onlyRemote onlyWithUpstream hasRemotes | - self hasBranchSelection ifFalse: [^ aMenu]. - self withUnitOfWork: - [activeBranchName := self projectSelection loadedHistorian shortName. - onlyLocal := selectedHistorian isRemoteTrackingHistorian not. - onlyRemote := selectedHistorian isRemoteTrackingHistorian. - onlyActive := selectedHistorian = self projectSelection loadedHistorian. - onlyInactive := selectedHistorian ~= self projectSelection loadedHistorian. - onlyWithUpstream := selectedHistorian hasUpstreamHistorian. - hasRemotes := self projectSelection repository hasRemotes. - branchStatus := true caseOf: - {[onlyRemote] -> ['(remote-tracking branch)']. - [onlyActive] -> ['(currently checked out)']} - otherwise: ['']. - aMenu addTitle: 'Branch ', selectedHistorian shortName, - (branchStatus ifNotEmpty: [String cr, branchStatus]). - self buildMenu: aMenu from: - {{'Switch to this branch'. #actionBranchSwitch. 'Stash uncommitted changes on the active branch, then checkout the selected branch.'. onlyLocal & onlyInactive}. - {'Switch, but keep uncommitted changes'. #actionBranchSwitchMoveOver. 'Checkout the selected branch and try to move over uncommitted changes to it.'. onlyLocal & onlyInactive}. - {'Create a new branch and switch to it'. #actionBranchCreateAndSwitch. 'Create a new branch at the same commit as this branch and switch to the new branch'. onlyRemote}. - {'Discard uncommitted changes'. #actionBranchResetToTip. 'Replace any changes in your working copy with the state of the tip of the active branch.'. onlyActive}. - {'Merge into ', activeBranchName. #actionBranchMerge. 'Merge this branch into your active branch ', activeBranchName. onlyInactive}. - '-'. - {'Push'. #actionBranchPush. 'Push this branch to its upstream remote'. onlyLocal}}. - (onlyLocal and: [hasRemotes]) ifTrue: - [aMenu add: 'Push to' subMenu: self remotesPushSubMenu]. - self buildMenu: aMenu from: - {{'Set upstream branch'. #actionSetUpstreamBranch. 'Configure the upstream remote of this branch.'. onlyLocal}. - {'Remove upstream branch at the remote'. #actionBranchRemoveUpstream. 'Push the deletion of the remote branch'. onlyWithUpstream}. - '-'. - {'Rename'. #actionBranchRename. 'Rename this branch'. onlyLocal}. - {'Remove'. #actionBranchRemove}. - '-'. - {'Compare with working copy'. #actionBranchDiffWithWorkingCopy}}]. - - ^ aMenu \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/menuCommitListHook..st b/src/Squit.package/SquitBrowser.class/instance/menuCommitListHook..st deleted file mode 100644 index aecea5525..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/menuCommitListHook..st +++ /dev/null @@ -1,29 +0,0 @@ -ui menu -menuCommitListHook: aMenu - - | activeBranchName isMenuOnActiveBranch onlyOnInactiveBranch commands | - self hasProjectSelection ifFalse: [^ aMenu]. - aMenu addTitle: (self commitSelection printStringLimitedTo: 50). - self withUnitOfWork: - [activeBranchName := self projectSelection loadedHistorian shortName. - isMenuOnActiveBranch := selectedHistorian = self projectSelection loadedHistorian. - onlyOnInactiveBranch := selectedHistorian ~= self projectSelection loadedHistorian. - commands := { - {'Switch to this commit on a new branch'. #actionCommitSwitchNewBranch. 'Create a new branch at this commit, stash away uncommitted changes and checkout the new branch.'}. - {'Cherry-pick to ' , activeBranchName. #actionCommitCherryPick. 'Port the changes done in this commit to the active branch.'}. - {'Revert this commit'. #actionCommitRevert. 'Undo the changes introduced by this commit.'. isMenuOnActiveBranch}. - {'Checkout objects'. #actionCommitSelectionCheckout. 'Checkout objects from this commit. You will be able to select what will actually be loaded.', String cr, 'NOTE: unless you change the selection, your uncommitted changes will be reverted, so that what is loaded matches the objects in this commit!'}. - {'Merge objects'. #actionCommitMergeIntoMemory. 'Merge objects from this commit with the loaded ones. You may use this to pick objects or changes from this commit without discarding your uncommitted changes.'}. - '-'. - {'Compare with parent commit'. #actionCommitDiffWithParent}. - {'Compare with next selected commit'. #actionCommitDiffWithNextSelected. 'The next commit you select will be the origin of a diff against this commit.'}. - {'Compare with working copy'. #actionCommitDiffWithWorkingCopy}. - '-'. - {'Merge into active branch ', activeBranchName. #actionMerge. 'Merge the changes up to this commit into the active branch. Fast-forwards if this is a descendant of the head of the active branch, otherwise creates a merge commit.'. onlyOnInactiveBranch}. - {'Reset active branch ''', activeBranchName, ''' to this commit'. #actionBranchResetLoadedToCommit. 'Reset the currently active branch to the selected commit'. onlyOnInactiveBranch}. - {'Reset branch ''', selectedHistorian shortName, ''' to this commit'. #actionBranchResetToCommit}. - {'Create new branch at this commit'. #actionBranchAdd}. - {'Tag commit'. #actionCommitTag}. - }. - self buildMenu: aMenu from: commands]. - ^ aMenu \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/menuObjectListGeneral..st b/src/Squit.package/SquitBrowser.class/instance/menuObjectListGeneral..st deleted file mode 100644 index b45872924..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/menuObjectListGeneral..st +++ /dev/null @@ -1,15 +0,0 @@ -ui menu -menuObjectListGeneral: aMenu - - - | selected | - selected := self objectSelection. - selected ifNotNil: - [(self projectSelection artifactAt: selected artifact path ifAbsent: []) ifNil: - [aMenu addTitle: '(not in working copy)']. - aMenu addTitle: selected printString]. - self buildMenu: aMenu from: { - '-'. - {'Add or remove packages'. #actionAddOrRemoveTrackedPackages. 'Add or remove packages for this project.'. self hasProjectSelection}. - }. - ^ aMenu \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/menuObjectListVersionObjectEdition..st b/src/Squit.package/SquitBrowser.class/instance/menuObjectListVersionObjectEdition..st deleted file mode 100644 index 86238270d..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/menuObjectListVersionObjectEdition..st +++ /dev/null @@ -1,18 +0,0 @@ -ui menu -menuObjectListVersionObjectEdition: aMenu - - - | selected workingCopyArtifact onlyWhenTracked onlyWhenLoaded onlyWhenLoadable commands | - selected := self objectSelection ifNil: [^ aMenu]. - workingCopyArtifact := self projectSelection artifactAt: selected artifact path ifAbsent: []. - onlyWhenTracked := workingCopyArtifact notNil. - onlyWhenLoaded := onlyWhenTracked and: [workingCopyArtifact isLoaded]. - onlyWhenLoadable := selected artifact isLoadable. - commands := { - {'Browse in selected version'. #actionObjectBrowse. 'Try to open the version of the object as it was in the selected commit.'}. - {'Checkout'. #actionObjectCheckout. 'Checkout the edition of this object from the selected version, possibly overwriting uncommitted changes. You will be able to select from a diff what will be checked out.'. onlyWhenLoadable}. - {'Merge'. #actionObjectMerge. 'Merge the edition of this object from the selected version with the edition that is currently loaded.'. onlyWhenLoaded}. - {'Explore'. #actionObjectExplore. 'Explore internal SquotArtifact object.'. selected notNil}. - }. - self buildMenu: aMenu from: commands. - ^ aMenu \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/menuObjectListWorkingCopyObject..st b/src/Squit.package/SquitBrowser.class/instance/menuObjectListWorkingCopyObject..st deleted file mode 100644 index b7e64215b..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/menuObjectListWorkingCopyObject..st +++ /dev/null @@ -1,26 +0,0 @@ -ui menu -menuObjectListWorkingCopyObject: aMenu - - - | selected workingCopyArtifact onlyWhenLoaded onlyWhenLoadable commands | - selected := self objectSelection ifNil: [^ aMenu]. - workingCopyArtifact := self projectSelection artifactAt: selected artifact path ifAbsent: []. - workingCopyArtifact ifNil: [^ aMenu]. - onlyWhenLoaded := workingCopyArtifact isLoaded. - onlyWhenLoadable := selected artifact isLoadable. - aMenu addTitle: - (onlyWhenLoaded - ifTrue: [(self projectSelection objectAt: selected artifact path) printString] - ifFalse: ['(not loaded)']). - commands := { - '-'. - {'Browse in working copy'. #actionObjectBrowseInWorkingCopy. 'Try to open the current version of the selected object'}. - }. - self buildMenu: aMenu from: commands. - onlyWhenLoaded ifTrue: - [(self projectSelection objectAt: selected artifact path) - squitBrowserSupplementObjectMenu: aMenu]. - self buildMenu: aMenu from: { - {'Untrack'. #actionObjectUntrack. 'Remove this object from the working copy.'}. - }. - ^ aMenu \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/menuProjectListHook..st b/src/Squit.package/SquitBrowser.class/instance/menuProjectListHook..st deleted file mode 100644 index 0317b7421..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/menuProjectListHook..st +++ /dev/null @@ -1,18 +0,0 @@ -ui menu -menuProjectListHook: aMenu - - - | submenu | - self projectSelection - ifNil: [submenu := aMenu] - ifNotNil: [submenu := aMenu class new - defaultTarget: aMenu defaultTarget; - yourself]. - submenu - addList: { - {'Add new project'. #actionProjectAdd}. - {'Clone project'. #actionProjectClone}. - }. - self projectSelection ifNotNil: - [aMenu add: 'New project...' subMenu: submenu]. - ^ aMenu \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/menuProjectListWorkingCopyHook..st b/src/Squit.package/SquitBrowser.class/instance/menuProjectListWorkingCopyHook..st deleted file mode 100644 index a8ef498c7..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/menuProjectListWorkingCopyHook..st +++ /dev/null @@ -1,37 +0,0 @@ -ui menu -menuProjectListWorkingCopyHook: aMenu - - - self projectSelection ifNil: [^ aMenu]. - aMenu addTitle: 'Working copy of ', self projectSelection name. - aMenu addList: { - {'Rename project'. #actionProjectRename}. - {'Remove project'. #actionProjectRemove}. - }. - aMenu addLine. - aMenu - addList: { - {'Add or remove packages'. #actionAddOrRemoveTrackedPackages. 'Add or remove packages for this project.'} - }; - add: 'Set package storage format...' - subMenu: (ToolBuilder default build: self packageFormatMenuSpec). - aMenu - addLine; - addList: {{'Browse tags' translated. #browseTags. 'List tags in the repository of this project' translated}}; - addLine. - aMenu addList: { - {'Add remote'. #actionRemoteAdd}. - {'Manage remotes'. #actionManageRemotes}. - }. - aMenu addLine. - aMenu addList: { - {'Edit credentials for project'. #actionCredentialsEdit}. - {'Edit project-level git user name/email'. #actionGitUserEdit} - }. - aMenu addLine. - aMenu addList: { - {'Browse working copy'. #actionBrowseWorkingCopy}. - {'Explore SquotWorkingCopy'. #actionSquotWorkingCopyExplore}. - }; - addLine. - ^ aMenu \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/mergeBranch.into..st b/src/Squit.package/SquitBrowser.class/instance/mergeBranch.into..st deleted file mode 100644 index d8539db6f..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/mergeBranch.into..st +++ /dev/null @@ -1,9 +0,0 @@ -actions on branches -mergeBranch: aHistorian into: aWorkingCopy - | mergeHeadCommit | - mergeHeadCommit := aHistorian version. - self mergeCommit: mergeHeadCommit - into: aWorkingCopy - mergeTitle: 'Merge branch ', aHistorian shortName - saveTitle: 'Save the merge of ', aHistorian shortName - saveMessageTemplate: (aHistorian messageWhenMergingInto: aWorkingCopy loadedHistorian). \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/mergeCommit.into..st b/src/Squit.package/SquitBrowser.class/instance/mergeCommit.into..st deleted file mode 100644 index 85770989f..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/mergeCommit.into..st +++ /dev/null @@ -1,7 +0,0 @@ -actions on versions -mergeCommit: aVersion into: aWorkingCopy - self mergeCommit: aVersion - into: aWorkingCopy - mergeTitle: 'Merge ', aVersion - saveTitle: 'Save the merge of ', aVersion - saveMessageTemplate: ('Merge commit ', aVersion internalId, ' into ', aWorkingCopy loadedHistorian shortName). \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/mergeCommit.into.mergeTitle.saveTitle.saveMessageTemplate..st b/src/Squit.package/SquitBrowser.class/instance/mergeCommit.into.mergeTitle.saveTitle.saveMessageTemplate..st deleted file mode 100644 index 48a912b85..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/mergeCommit.into.mergeTitle.saveTitle.saveMessageTemplate..st +++ /dev/null @@ -1,24 +0,0 @@ -actions on branches -mergeCommit: aVersion into: aWorkingCopy mergeTitle: mergeString saveTitle: saveString saveMessageTemplate: messageString - [SquotGUI waitFor: (aWorkingCopy newInteractiveMergeOperation - mergeVersion: aVersion; - title: mergeString; - prepare; - applyToWorkingCopy)] - on: SquotVersionAlreadyInHistory do: - [self inform: 'Already on branch ', aWorkingCopy loadedHistorian shortName, ': ', aVersion. - ^ nil] - on: BrokenPromise "cancelled" do: [:e | e ifNotError: [^ nil]]. - aWorkingCopy loadedVersion = aVersion ifTrue: - [self inform: 'Updated ', aWorkingCopy loadedHistorian shortName, ' to ', aVersion. - Project current addDeferredUIMessage: [self loadCommitList]. - ^ self]. - self flag: #todo. "Try to exclude changes that were already unsaved in the working copy before the merge." - [SquotGUI waitFor: - ([aWorkingCopy newInteractiveSaveOperation - title: saveString; - message: messageString; - applyToWorkingCopy] - on: SquotWorkingCopyHasAdditionalParents do: [:n | n confirmAndProceed])] - on: BrokenPromise "cancelled" do: [:e | e ifNotError: [^ nil]]. - Project current addDeferredUIMessage: [self selectActiveHistorian]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/modelWakeUp.st b/src/Squit.package/SquitBrowser.class/instance/modelWakeUp.st deleted file mode 100644 index bd6e16975..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/modelWakeUp.st +++ /dev/null @@ -1,5 +0,0 @@ -ui -modelWakeUp - offeredToAddFirstProject ifNil: - [offeredToAddFirstProject := true. - self offerToAddFirstProject.] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/newHistorianFor.named.onError..st b/src/Squit.package/SquitBrowser.class/instance/newHistorianFor.named.onError..st deleted file mode 100644 index 792492d36..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/newHistorianFor.named.onError..st +++ /dev/null @@ -1,6 +0,0 @@ -private -newHistorianFor: repository named: historianName onError: cancelBlock - - ^ [repository historianNamed: historianName] - on: GitInvalidReferenceName - do: [:e | self inform: e validationReport. ^ cancelBlock value]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/objectCache.st b/src/Squit.package/SquitBrowser.class/instance/objectCache.st deleted file mode 100644 index 69be3ac96..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/objectCache.st +++ /dev/null @@ -1,3 +0,0 @@ -caching -objectCache - ^ objectCache ifNil: [ self objectCacheRefreshAsync. #() ] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/objectCacheRefresh.st b/src/Squit.package/SquitBrowser.class/instance/objectCacheRefresh.st deleted file mode 100644 index 5a2840e16..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/objectCacheRefresh.st +++ /dev/null @@ -1,10 +0,0 @@ -caching -objectCacheRefresh - commitForCache = self commitSelection ifTrue: [^ self]. - objectCache := self commitSelection - ifNil: [#()] - ifNotNil: [:commit | - self withUnitOfWork: - [commitForCache := commit. - (commit artifacts values - collect: [:artifact | SquitArtifactWrapper on: artifact]) sorted]] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/objectCacheRefreshAsync.st b/src/Squit.package/SquitBrowser.class/instance/objectCacheRefreshAsync.st deleted file mode 100644 index f1467439c..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/objectCacheRefreshAsync.st +++ /dev/null @@ -1,12 +0,0 @@ -caching -objectCacheRefreshAsync - commitForCache = self commitSelection ifTrue: [^ self]. - objectCache := #('...'). - self changed: #objectList. - [[self objectCacheRefresh] - on: ProgressInitiationException do: [:e | - "No progress indication expected, but since this is not run in the UI process, prevent it anyway." - e rearmHandlerDuring: [e sendNotificationsTo: [ :min :max :curr | "silence"]]]. - Project current addDeferredUIMessage: [self changed: #objectList]] - forkAt: Processor userBackgroundPriority. - ^ objectCache \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/objectIndex..st b/src/Squit.package/SquitBrowser.class/instance/objectIndex..st deleted file mode 100644 index b6106dd44..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/objectIndex..st +++ /dev/null @@ -1,5 +0,0 @@ -ui -objectIndex: anIndex - anIndex > 1 ifFalse: [^ self]. - objectIndex := anIndex. - self changed: #objectIndex \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/objectIndex.st b/src/Squit.package/SquitBrowser.class/instance/objectIndex.st deleted file mode 100644 index 05fdbac67..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/objectIndex.st +++ /dev/null @@ -1,3 +0,0 @@ -ui -objectIndex - ^ objectIndex ifNil: [1] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/objectList.st b/src/Squit.package/SquitBrowser.class/instance/objectList.st deleted file mode 100644 index fab8a963c..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/objectList.st +++ /dev/null @@ -1,3 +0,0 @@ -ui -objectList - ^ #('-- Objects --'), self objectCache \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/objectListMenu..st b/src/Squit.package/SquitBrowser.class/instance/objectListMenu..st deleted file mode 100644 index ac00723eb..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/objectListMenu..st +++ /dev/null @@ -1,3 +0,0 @@ -ui menu -objectListMenu: aMenu - ^ self menu: aMenu for: #(menuObjectList) \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/objectSelection.st b/src/Squit.package/SquitBrowser.class/instance/objectSelection.st deleted file mode 100644 index c05e99751..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/objectSelection.st +++ /dev/null @@ -1,4 +0,0 @@ -ui -objectSelection - self objectIndex > 1 ifFalse: [^ nil]. - ^ self objectList at: self objectIndex ifAbsent: [nil] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/offerPackageFormatMenu.st b/src/Squit.package/SquitBrowser.class/instance/offerPackageFormatMenu.st deleted file mode 100644 index faabf5466..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/offerPackageFormatMenu.st +++ /dev/null @@ -1,5 +0,0 @@ -actions on working copies -offerPackageFormatMenu - | builder | - builder := ToolBuilder default. - builder open: self packageFormatMenuSpec. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/offerToAddFirstProject.st b/src/Squit.package/SquitBrowser.class/instance/offerToAddFirstProject.st deleted file mode 100644 index d679d202b..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/offerToAddFirstProject.st +++ /dev/null @@ -1,5 +0,0 @@ -actions -offerToAddFirstProject - (self projectList size < 2 and: [ - (self confirm: 'Do you want to add your first project now?')]) - ifTrue: [self actionProjectAdd] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/packageFormatMenuSpec.st b/src/Squit.package/SquitBrowser.class/instance/packageFormatMenuSpec.st deleted file mode 100644 index b974709e6..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/packageFormatMenuSpec.st +++ /dev/null @@ -1,21 +0,0 @@ -ui menu -packageFormatMenuSpec - | serializers builder menu currentSerializer | - builder := ToolBuilder default. - serializers := PackageInfo squotSpecializedSerializers. - currentSerializer := - self projectSelection packageSerializer - ifNil: [^ (builder pluggableMenuSpec new - add: 'No packages tracked' - target: [] selector: #value argumentList: #(); - yourself)]. - menu := builder pluggableMenuSpec new. - serializers do: - [:each | - menu add: - (each name = currentSerializer ifTrue: [''] ifFalse: ['']), - each userFriendlyTitle - target: self - selector: #setPackageSerializer: - argumentList: (Array with: each)]. - ^ menu \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/projectIndex..st b/src/Squit.package/SquitBrowser.class/instance/projectIndex..st deleted file mode 100644 index 390344688..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/projectIndex..st +++ /dev/null @@ -1,12 +0,0 @@ -ui -projectIndex: anIndex - anIndex > 1 ifFalse: [^ self]. - projectIndex := anIndex. - repositoryExists := self projectSelection repository exists. - selectedHistorian := self projectSelection loadedHistorian. - self changed: #branchSelection. - commitSelection := nil. - commitToDiffAgainst := nil. - cachedCommitList := #(). - repositoryExists ifFalse: [self informThatProjectDoesNotExist]. - self refresh. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/projectIndex.st b/src/Squit.package/SquitBrowser.class/instance/projectIndex.st deleted file mode 100644 index 6e9833121..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/projectIndex.st +++ /dev/null @@ -1,3 +0,0 @@ -ui -projectIndex - ^ projectIndex ifNil: [0] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/projectList.st b/src/Squit.package/SquitBrowser.class/instance/projectList.st deleted file mode 100644 index bd0617edd..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/projectList.st +++ /dev/null @@ -1,3 +0,0 @@ -ui -projectList - ^ #('-- Projects --'), (SquotWorkingCopy registered) \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/projectListMenu..st b/src/Squit.package/SquitBrowser.class/instance/projectListMenu..st deleted file mode 100644 index aa04d80f5..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/projectListMenu..st +++ /dev/null @@ -1,3 +0,0 @@ -ui menu -projectListMenu: aMenu - ^ self menu: aMenu for: #(menuProjectList) \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/projectSelection..st b/src/Squit.package/SquitBrowser.class/instance/projectSelection..st deleted file mode 100644 index c14658c8b..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/projectSelection..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -projectSelection: aSquotWorkingCopy - self projectIndex: (self projectList indexOf: aSquotWorkingCopy). \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/projectSelection.st b/src/Squit.package/SquitBrowser.class/instance/projectSelection.st deleted file mode 100644 index 550dc6142..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/projectSelection.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -projectSelection - self projectIndex > 1 ifFalse: [^ nil]. - ^ self projectList at: self projectIndex ifAbsent: [nil] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/projectsWithRepository.do..st b/src/Squit.package/SquitBrowser.class/instance/projectsWithRepository.do..st deleted file mode 100644 index 20642a8d0..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/projectsWithRepository.do..st +++ /dev/null @@ -1,4 +0,0 @@ -querying -projectsWithRepository: aSquotRepository do: aBlock - SquotWorkingCopy registered do: - [:each | each repository = aSquotRepository ifTrue: [aBlock value: each]]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/pullUpstream..st b/src/Squit.package/SquitBrowser.class/instance/pullUpstream..st deleted file mode 100644 index c10f775e1..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/pullUpstream..st +++ /dev/null @@ -1,14 +0,0 @@ -actions on branches -pullUpstream: aWorkingCopy - [(SquitInteractivePullFromUpstream workingCopy: aWorkingCopy) - pull] - on: SquitUpstreamUndefined do: - [:e | - self inform: e historian shortName, ' has no upstream branch. Please set one, then pull again.'. - Project current addDeferredUIMessage: [self actionSetUpstreamBranch]. - ^ self] - on: SquitBadRemote do: - [:e | - Project current addDeferredUIMessage: [self showBadRemote: e remote]. - e resume]. - ^ Project current addDeferredUIMessage: [self refresh; selectActiveHistorian] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/push.toRemoteNamed..st b/src/Squit.package/SquitBrowser.class/instance/push.toRemoteNamed..st deleted file mode 100644 index 3f8bdb181..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/push.toRemoteNamed..st +++ /dev/null @@ -1,22 +0,0 @@ -actions on branches -push: aHistorian toRemoteNamed: aString - self flag: #remoteRepository. - [| remoteBranchName | - remoteBranchName := SquotGUI - request: 'Branch name at remote:' - initialAnswer: selectedHistorian shortName. - remoteBranchName isEmptyOrNil ifFalse: - [(SquitInteractivePush - historian: aHistorian - remote: (aHistorian repository git remoteNamed: aString) - remoteBranchName: remoteBranchName) - push]. - Project current addDeferredUIMessage: [self loadCommitList "the remote-tracking branch changes"]] - on: SquitBadRemote do: - [:e | - Project current addDeferredUIMessage: [self showBadRemote: e remote]. - e resume] - on: SquitIllegalUseOfRemoteTrackingBranch do: - [self inform: 'You should not push a remote-tracking branch. Push a local branch instead.'] - on: SquotCannotExportEmptyHistory do: - [self inform: 'No commits to push on ', aHistorian shortName, ' yet.']. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/pushBranch.st b/src/Squit.package/SquitBrowser.class/instance/pushBranch.st deleted file mode 100644 index 17e49c494..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/pushBranch.st +++ /dev/null @@ -1,19 +0,0 @@ -actions on branches -pushBranch - | historian | - self hasBranchSelection ifFalse: [^ self]. - historian := selectedHistorian. - [[(SquitInteractivePushToUpstream historian: historian) push. - Project current addDeferredUIMessage: [self loadCommitList "the remote-tracking branch changes"]] - on: SquitUpstreamUndefined do: - [:e | - self inform: e historian shortName, ' has no upstream branch. Please set one first. Afterwards your branch will be pushed immediately.'. - (self setUpstreamBranchOf: historian) ifNotNil: [e retry]] - on: SquitBadRemote do: - [:e | - Project current addDeferredUIMessage: [self showBadRemote: e remote]. - e resume]] - on: SquitIllegalUseOfRemoteTrackingBranch do: - [self inform: 'You should not push a remote-tracking branch. Push a local branch instead.'] - on: SquotCannotExportEmptyHistory do: - [self inform: 'No commits to push on ', historian shortName, ' yet.']. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/rebuildCommitList.st b/src/Squit.package/SquitBrowser.class/instance/rebuildCommitList.st deleted file mode 100644 index 27268d29e..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/rebuildCommitList.st +++ /dev/null @@ -1,18 +0,0 @@ -caching -rebuildCommitList - | list count walker | - commitListBuildProcess ifNotNil: [commitListBuildProcess terminate]. - (self hasBranchSelection and: [selectedHistorian version notNil]) ifFalse: - [cachedCommitList := #(). - ^ self changed: #commitList]. - list := OrderedCollection new. - count := 0. - (walker := selectedHistorian repository historyWalkClass new) - nextPut: selectedHistorian version. - [walker atEnd or: [count > 30]] - whileFalse: - [list add: walker next. - count := count + 1]. - cachedCommitList := self sortVersionsTopologically: list. - walker atEnd ifFalse: - [self continueAsyncBuildingCommitList: list historyWalk: walker]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/refresh.st b/src/Squit.package/SquitBrowser.class/instance/refresh.st deleted file mode 100644 index 38f5ecb8f..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/refresh.st +++ /dev/null @@ -1,25 +0,0 @@ -ui -refresh - Cursor wait showWhile: - [self changed: #projectList. - (self projectIndex = 0 and: [self hasProjects]) ifTrue: [self projectIndex: 2]. - self changed: #projectIndex. - self hasProjectSelection ifFalse: - [selectedHistorian := nil. - commitSelection := nil. - branchList := self branchListIfRepositoryDoesNotExist. - indexOfActiveHistorianInBranchList := 0. - cachedCommitList := #(). - self changed: #branchList; - changed: #commitList]. - self withUnitOfWork: - [self loadBranchList. - self activeBranchChanged. - self loadCommitList]. - self changed: #hasProjectSelection. - self changed: #hasBranchSelection. - self changed: #hasCommitSelection. - self changed: #hasSearchTerm. - self changed: #contents. - self changed: #labelString. - self objectCacheRefreshAsync]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/remotesMenuWithItems..st b/src/Squit.package/SquitBrowser.class/instance/remotesMenuWithItems..st deleted file mode 100644 index 1894d777b..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/remotesMenuWithItems..st +++ /dev/null @@ -1,8 +0,0 @@ -ui menu -remotesMenuWithItems: aBlock - | remotesMenuSpec | - remotesMenuSpec := ToolBuilder default pluggableMenuSpec new. - (self chooseableRemoteNamesFrom: self projectSelection repository fsgitRepository) sorted do: - [:each | aBlock value: remotesMenuSpec value: each]. - ^ ToolBuilder default buildPluggableMenu: remotesMenuSpec - \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/remotesPushSubMenu.st b/src/Squit.package/SquitBrowser.class/instance/remotesPushSubMenu.st deleted file mode 100644 index a4f1d6ea1..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/remotesPushSubMenu.st +++ /dev/null @@ -1,10 +0,0 @@ -ui menu -remotesPushSubMenu - ^ self remotesMenuWithItems: - [:menu :remote | - menu - add: remote - action: (MessageSend - receiver: self - selector: #actionPushToRemote: - argument: remote)] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/removeTrackedRemoteBranch..st b/src/Squit.package/SquitBrowser.class/instance/removeTrackedRemoteBranch..st deleted file mode 100644 index 98d9fdd5a..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/removeTrackedRemoteBranch..st +++ /dev/null @@ -1,9 +0,0 @@ -actions on branches -removeTrackedRemoteBranch: aHistorian - [(SquitInteractiveRemoveUpstreamBranch historian: aHistorian) - removeRemoteBranch] - on: SquitBadRemote do: - [:e | - Project current addDeferredUIMessage: [self showBadRemote: e remote]. - e resume]. - Project current addDeferredUIMessage: [self refresh] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/requestAndSetUpstreamBranchOf..st b/src/Squit.package/SquitBrowser.class/instance/requestAndSetUpstreamBranchOf..st deleted file mode 100644 index 0810759cb..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/requestAndSetUpstreamBranchOf..st +++ /dev/null @@ -1,15 +0,0 @@ -user requests -requestAndSetUpstreamBranchOf: aHistorian - | branchName remoteName remoteBranchName existingRemoteRef git | - git := aHistorian git. - branchName := aHistorian shortName. - remoteName := self chooseOneRemoteFrom: git. - remoteName ifNil: [^ nil]. - [git setUpstreamRemoteOfBranchNamed: branchName to: remoteName] - on: GitInvalidReferenceName - do: [:e | self inform: e validationReport. ^ nil]. - existingRemoteRef := git upstreamRefOfBranchNamed: branchName. - (remoteBranchName := SquotGUI request: 'What is the name of the branch at the remote?' initialAnswer: (existingRemoteRef ifNil: [branchName])) - ifEmpty: [^ nil]. - git setUpstreamRefOfBranchNamed: branchName to: (aHistorian repository fsgitRepository expandRemoteRef: remoteBranchName). - ^ {remoteName. remoteBranchName} \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/requestAndStoreCredentialsFor.remoteUrl.ifCanceled..st b/src/Squit.package/SquitBrowser.class/instance/requestAndStoreCredentialsFor.remoteUrl.ifCanceled..st deleted file mode 100644 index e7b7f384a..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/requestAndStoreCredentialsFor.remoteUrl.ifCanceled..st +++ /dev/null @@ -1,9 +0,0 @@ -user requests -requestAndStoreCredentialsFor: repository remoteUrl: remoteUrl ifCanceled: cancelBlock - | newUser newPassword | - newUser := SquotGUI request: 'Enter username'. - newUser ifEmpty: [^ cancelBlock value]. - newPassword := SquotGUI requestPassword: 'Enter password:'. - newPassword ifEmpty: [^ cancelBlock value]. - repository addCredentialsFor: remoteUrl user: newUser password: newPassword. - ^ repository credentialsFor: remoteUrl \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/revert.inWorkingCopy..st b/src/Squit.package/SquitBrowser.class/instance/revert.inWorkingCopy..st deleted file mode 100644 index 9372e803a..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/revert.inWorkingCopy..st +++ /dev/null @@ -1,12 +0,0 @@ -actions -revert: revertedVersion inWorkingCopy: workingCopy - | revert | - self withUnitOfWork: - [(self soleParentOf: revertedVersion orChooseWithPrompt: 'Revert changes in comparison to which parent?') ifNotNil: [:parentVersion |. - (revert := workingCopy newInteractiveRevertOperation) - requestor: self; - revertedVersion: revertedVersion; - relevantParentOfRevertedVersion: parentVersion. - revert applyToWorkingCopy - whenResolved: [self withUnitOfWork: [self loadCommitList]]; - whenRejected: [:reason | self inform: 'Revert aborted: ', reason]]]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/searchClearButtonWidth.st b/src/Squit.package/SquitBrowser.class/instance/searchClearButtonWidth.st deleted file mode 100644 index 9b402b463..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/searchClearButtonWidth.st +++ /dev/null @@ -1,3 +0,0 @@ -toolbuilder -searchClearButtonWidth - ^ SquotGUI buttonWidthForText: 'Clear' \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/searchPanelHeight.st b/src/Squit.package/SquitBrowser.class/instance/searchPanelHeight.st deleted file mode 100644 index 894f20e46..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/searchPanelHeight.st +++ /dev/null @@ -1,3 +0,0 @@ -toolbuilder -searchPanelHeight - ^ SquotGUI inputFieldHeight \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/searchTerm..st b/src/Squit.package/SquitBrowser.class/instance/searchTerm..st deleted file mode 100644 index 6816f26e2..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/searchTerm..st +++ /dev/null @@ -1,6 +0,0 @@ -ui -searchTerm: anObject - searchTerm := anObject asString. - self changed: #searchTerm. - self changed: #hasSearchTerm. - self withUnitOfWork: [self changed: #commitList]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/searchTerm.st b/src/Squit.package/SquitBrowser.class/instance/searchTerm.st deleted file mode 100644 index da50d5266..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/searchTerm.st +++ /dev/null @@ -1,3 +0,0 @@ -ui -searchTerm - ^ searchTerm ifNil: [searchTerm := ''] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/selectActiveHistorian.st b/src/Squit.package/SquitBrowser.class/instance/selectActiveHistorian.st deleted file mode 100644 index bdb142f66..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/selectActiveHistorian.st +++ /dev/null @@ -1,5 +0,0 @@ -ui -selectActiveHistorian - self hasProjectSelection ifFalse: [^ self]. - self withUnitOfWork: - [self selectedHistorian: self projectSelection loadedHistorian]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/selectedHistorian..st b/src/Squit.package/SquitBrowser.class/instance/selectedHistorian..st deleted file mode 100644 index 1d75a65e4..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/selectedHistorian..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -selectedHistorian: aHistorian - selectedHistorian := aHistorian. - self branchSelectionChanged. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/setPackageSerializer..st b/src/Squit.package/SquitBrowser.class/instance/setPackageSerializer..st deleted file mode 100644 index eede95ae7..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/setPackageSerializer..st +++ /dev/null @@ -1,7 +0,0 @@ -actions on working copies -setPackageSerializer: aSerializerFactory - | workingCopy packageArtifacts | - workingCopy := self projectSelection. - packageArtifacts := workingCopy artifacts select: - [:each | each storeInfo objectClassName = #PackageInfo]. - packageArtifacts do: [:each | each serializer: aSerializerFactory]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/setUpstreamBranchOf..st b/src/Squit.package/SquitBrowser.class/instance/setUpstreamBranchOf..st deleted file mode 100644 index 37f7e5470..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/setUpstreamBranchOf..st +++ /dev/null @@ -1,12 +0,0 @@ -actions -setUpstreamBranchOf: aHistorian - | remoteNameAndRemoteBranchNameOrNil | - remoteNameAndRemoteBranchNameOrNil := - [self requestAndSetUpstreamBranchOf: aHistorian] - on: SquitNoRemotes do: - [:noRemotes | - self inform: 'No useable remote (http only) found. Please add a remote first, then try again.'. - Project current addDeferredUIMessage: - [self actionManageRemotes addRemote]. - noRemotes return: nil]. - ^ remoteNameAndRemoteBranchNameOrNil \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/shiftedMenuBranchListHook..st b/src/Squit.package/SquitBrowser.class/instance/shiftedMenuBranchListHook..st deleted file mode 100644 index e4346f948..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/shiftedMenuBranchListHook..st +++ /dev/null @@ -1,20 +0,0 @@ -ui menu -shiftedMenuBranchListHook: aMenu - - | commands activeBranchName onlyActive onlyInactive onlyLocal onlyRemote onlyWithUpstream | - self hasBranchSelection ifFalse: [^ aMenu]. - self withUnitOfWork: - [activeBranchName := self projectSelection loadedHistorian shortName. - onlyLocal := selectedHistorian isRemoteTrackingHistorian not. - onlyRemote := selectedHistorian isRemoteTrackingHistorian. - onlyActive := selectedHistorian = self projectSelection loadedHistorian. - onlyInactive := selectedHistorian ~= self projectSelection loadedHistorian. - onlyWithUpstream := selectedHistorian hasUpstreamHistorian. - commands := - {{'Make this the current branch'. #actionBranchSetCurrent. 'Assume from now on that any uncommitted changes were made against this branch. Use with caution, usually you rather want to properly switch to a branch, which loads any changes from it into memory.'. onlyLocal & onlyInactive}. - {'Unset upstream branch'. #actionBranchUnsetUpstream. 'Disconnect the local branch from the remote branch that it tracked until now.'. onlyLocal & onlyWithUpstream}}. - - self buildMenu: aMenu from: commands. - "add all the usual menu items as well" - self menuBranchListHook: aMenu]. - ^ aMenu \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/showBadRemote..st b/src/Squit.package/SquitBrowser.class/instance/showBadRemote..st deleted file mode 100644 index ae374c13b..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/showBadRemote..st +++ /dev/null @@ -1,4 +0,0 @@ -error handling -showBadRemote: aGitRemote - self actionManageRemotes - selectedRemoteName: aGitRemote name. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/showMenuForVersion.onBranch..st b/src/Squit.package/SquitBrowser.class/instance/showMenuForVersion.onBranch..st deleted file mode 100644 index 846d5d9e8..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/showMenuForVersion.onBranch..st +++ /dev/null @@ -1,13 +0,0 @@ -actions on branches -showMenuForVersion: aVersion onBranch: aHistorian - | builder menu | - builder := ToolBuilder default. - menu := builder build: - (builder pluggableMenuSpec new - model: self; - add: '(Nothing implemented yet)' - target: self - selector: #notYetImplemented - argumentList: (Array with: aVersion with: aHistorian with: self projectSelection); - yourself). - builder open: menu. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/showMenuForVersion.onVersion..st b/src/Squit.package/SquitBrowser.class/instance/showMenuForVersion.onVersion..st deleted file mode 100644 index 1cebe5834..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/showMenuForVersion.onVersion..st +++ /dev/null @@ -1,25 +0,0 @@ -actions on versions -showMenuForVersion: droppedVersion onVersion: targetVersion - | builder menu | - builder := ToolBuilder default. - (self withUnitOfWork: [(self projectSelection repository historianNamed: self branchSelection) = self projectSelection loadedHistorian]) - ifTrue: - ["active branch selected, offer to cherry pick, ignoring the targetVersion" - menu := builder build: - (builder pluggableMenuSpec new - model: self projectSelection; - add: 'Cherry pick ', droppedVersion printString - target: self - selector: #cherryPick:toWorkingCopy: - argumentList: (Array with: droppedVersion with: self projectSelection); - yourself)] - ifFalse: - [menu := builder build: - (builder pluggableMenuSpec new - model: self; - add: '(Nothing implemented yet)' - target: self - selector: #notYetImplemented - argumentList: (Array with: droppedVersion with: targetVersion with: self projectSelection); - yourself)]. - builder open: menu. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/showMenuForVersion.onWorkingCopy..st b/src/Squit.package/SquitBrowser.class/instance/showMenuForVersion.onWorkingCopy..st deleted file mode 100644 index 7ea4668fa..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/showMenuForVersion.onWorkingCopy..st +++ /dev/null @@ -1,13 +0,0 @@ -actions on working copies -showMenuForVersion: aVersion onWorkingCopy: aWorkingCopy - | builder menu | - builder := ToolBuilder default. - menu := builder build: - (builder pluggableMenuSpec new - model: aWorkingCopy; - add: 'Cherry pick ', (aVersion printStringLimitedTo: 60) - target: self - selector: #cherryPick:toWorkingCopy: - argumentList: (Array with: aVersion with: aWorkingCopy); - yourself). - builder open: menu. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/soleParentOf.orChooseWithPrompt..st b/src/Squit.package/SquitBrowser.class/instance/soleParentOf.orChooseWithPrompt..st deleted file mode 100644 index da0c7a2f0..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/soleParentOf.orChooseWithPrompt..st +++ /dev/null @@ -1,12 +0,0 @@ -private -soleParentOf: aVersion orChooseWithPrompt: aString - | parentVersions parentVersion | - parentVersions := aVersion parents. - parentVersion := parentVersions size caseOf: { - [0] -> [nil]. - [1] -> [aVersion parents anyOne]} - otherwise: [SquotGUI - chooseFrom: (parentVersions collect: #printString) - values: parentVersions - title: aString]. - ^ parentVersion \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/sortVersionsTopologically..st b/src/Squit.package/SquitBrowser.class/instance/sortVersionsTopologically..st deleted file mode 100644 index 817b676d3..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/sortVersionsTopologically..st +++ /dev/null @@ -1,19 +0,0 @@ -caching -sortVersionsTopologically: aCollection - | pendingChildren remaining | - pendingChildren := Dictionary new. "commit -> number of children" - "initialize number of children" - aCollection do: [:each | - each parents do: [:eachParent | - pendingChildren at: eachParent - put: (pendingChildren at: eachParent ifAbsent: [0]) + 1]]. - "consume list items when eligible" - remaining := aCollection copy. - ^ OrderedCollection streamContents: [:newList | - [remaining notEmpty] whileTrue: - [| next | - next := remaining detect: [:each | (pendingChildren at: each ifAbsent: [0]) = 0]. - remaining remove: next. - next parents do: [:each | - pendingChildren at: each put: (pendingChildren at: each) - 1]. - newList nextPut: next]] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/stepAt.in..st b/src/Squit.package/SquitBrowser.class/instance/stepAt.in..st deleted file mode 100644 index 3a523cdee..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/stepAt.in..st +++ /dev/null @@ -1,4 +0,0 @@ -stepping -stepAt: millisecondClockValue in: aWindow - (Preferences smartUpdating and: [(millisecondClockValue - self timeOfLastListUpdate) > 8000]) "Not more often than once every 8 seconds" - ifTrue: [self refresh. timeOfLastListUpdate := millisecondClockValue]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/summaryForCommit..st b/src/Squit.package/SquitBrowser.class/instance/summaryForCommit..st deleted file mode 100644 index 56c0c9d8d..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/summaryForCommit..st +++ /dev/null @@ -1,17 +0,0 @@ -ui -summaryForCommit: aSquitVersion - | message commitHash author committer parents timeStamp | - message := aSquitVersion message. - commitHash := aSquitVersion shortId. - parents := aSquitVersion parents collect: [:each | each shortId]. - author := (aSquitVersion metadata at: #author), ' <', (aSquitVersion metadata at: #authorEmail), '>'. - committer := (aSquitVersion metadata at: #committer), ' <', (aSquitVersion metadata at: #committerEmail), '>'. - timeStamp := aSquitVersion metadata at: #timestamp. - timeStamp := timeStamp offsetSeconds = DateAndTime now offsetSeconds - ifTrue: [timeStamp asString allButLast: 6 "('+xx:00' size)"] - ifFalse: [timeStamp asString]. - ^ message withBlanksTrimmed, String cr, String cr, - 'Commit: ', commitHash, ', Parents: ', parents asCommaString, String cr, - 'Author: ', author, String cr, - 'Committer: ', committer, String cr, - 'Date: ', timeStamp \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/timeOfLastListUpdate.st b/src/Squit.package/SquitBrowser.class/instance/timeOfLastListUpdate.st deleted file mode 100644 index ba5d1106f..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/timeOfLastListUpdate.st +++ /dev/null @@ -1,3 +0,0 @@ -stepping -timeOfLastListUpdate - ^ timeOfLastListUpdate ifNil: [timeOfLastListUpdate := 0] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/toggleMetadata.st b/src/Squit.package/SquitBrowser.class/instance/toggleMetadata.st deleted file mode 100644 index 70eed3d8f..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/toggleMetadata.st +++ /dev/null @@ -1,10 +0,0 @@ -actions on working copies -toggleMetadata - | newValue | - newValue := self projectSelection shouldStoreMetadata not. - newValue ifFalse: - [(self confirm: 'This is not about ancestry or method timestamps, but about the .squot and .squot-contents files in the repository. -Without these, the load order of packages and other objects becomes undefined. -Do you really need to disable these?' withCRs) - ifFalse: [^ self]]. - self projectSelection shouldStoreMetadata: newValue. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/updateHistorianDecorationsMap.st b/src/Squit.package/SquitBrowser.class/instance/updateHistorianDecorationsMap.st deleted file mode 100644 index 620981f2e..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/updateHistorianDecorationsMap.st +++ /dev/null @@ -1,5 +0,0 @@ -private -updateHistorianDecorationsMap - historiansForDecoration := - (self projectSelection repository historians, self projectSelection repository remoteHistorians - groupBy: [:each | each version]). \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/wantsBranchListDrop.type.from..st b/src/Squit.package/SquitBrowser.class/instance/wantsBranchListDrop.type.from..st deleted file mode 100644 index 822c9872c..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/wantsBranchListDrop.type.from..st +++ /dev/null @@ -1,4 +0,0 @@ -drag and drop -wantsBranchListDrop: draggedObject type: transferType from: sourceObject - SquitSettings enableDragAndDrop ifFalse: [^ false]. - ^ (draggedObject respondsTo: #snapshot) and: [draggedObject respondsTo: #parents] "is a version" \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/wantsCommitListDrop.type.from..st b/src/Squit.package/SquitBrowser.class/instance/wantsCommitListDrop.type.from..st deleted file mode 100644 index a40c41834..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/wantsCommitListDrop.type.from..st +++ /dev/null @@ -1,4 +0,0 @@ -drag and drop -wantsCommitListDrop: draggedObject type: transferType from: sourceObject - SquitSettings enableDragAndDrop ifFalse: [^ false]. - ^ (draggedObject respondsTo: #snapshot) and: [draggedObject respondsTo: #parents] "is a version" \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/wantsObjectListDrop.type.from..st b/src/Squit.package/SquitBrowser.class/instance/wantsObjectListDrop.type.from..st deleted file mode 100644 index 431dafce4..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/wantsObjectListDrop.type.from..st +++ /dev/null @@ -1,4 +0,0 @@ -drag and drop -wantsObjectListDrop: draggedObject type: transferType from: sourceObject - SquitSettings enableDragAndDrop ifFalse: [^ false]. - ^ false \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/wantsProjectListDrop.type.from..st b/src/Squit.package/SquitBrowser.class/instance/wantsProjectListDrop.type.from..st deleted file mode 100644 index 337d0468f..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/wantsProjectListDrop.type.from..st +++ /dev/null @@ -1,4 +0,0 @@ -drag and drop -wantsProjectListDrop: draggedObject type: transferType from: sourceObject - SquitSettings enableDragAndDrop ifFalse: [^ false]. - ^ (draggedObject respondsTo: #snapshot) and: [draggedObject respondsTo: #parents] "is a version" \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/wantsSteps.st b/src/Squit.package/SquitBrowser.class/instance/wantsSteps.st deleted file mode 100644 index 0bc194a8e..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/wantsSteps.st +++ /dev/null @@ -1,3 +0,0 @@ -stepping -wantsSteps - ^ true \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/instance/withUnitOfWork..st b/src/Squit.package/SquitBrowser.class/instance/withUnitOfWork..st deleted file mode 100644 index a02a32f0a..000000000 --- a/src/Squit.package/SquitBrowser.class/instance/withUnitOfWork..st +++ /dev/null @@ -1,8 +0,0 @@ -ui -withUnitOfWork: aBlock - | unitOfWork | - self hasProjectSelection ifFalse: [^ nil "no repository, do nothing" ]. - unitOfWork := self projectSelection repository unitOfWork. - unitOfWork start. - ^ [unitOfWork activateDuring: aBlock] - ensure: [unitOfWork finish] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowser.class/methodProperties.json b/src/Squit.package/SquitBrowser.class/methodProperties.json deleted file mode 100644 index 18902db3c..000000000 --- a/src/Squit.package/SquitBrowser.class/methodProperties.json +++ /dev/null @@ -1,217 +0,0 @@ -{ - "class" : { - "defaultTitle" : "fn 4/11/2017 17:23", - "initialize" : "jr 4/18/2018 21:28", - "initializeSelfUpdate" : "jr 7/8/2022 21:05", - "open" : "fn 4/11/2017 09:09", - "registerInWorldMenu" : "mad 10/18/2023 15:16", - "selfUpdate" : "jr 3/7/2020 00:09", - "selfUpdateBranch" : "jr 4/21/2018 22:22", - "selfUpdateBranch:" : "jr 4/18/2018 22:37", - "selfUpdateFromMetacello" : "jr 4/21/2018 22:22", - "selfUpdateRepository" : "fn 4/18/2017 09:20", - "selfUpdateWithSquot:" : "jr 4/18/2018 22:18", - "unload" : "jr 4/15/2017 13:28", - "unregisterFromWorldMenu" : "jr 4/15/2017 14:25" }, - "instance" : { - "aboutToStyle:" : "fn 4/11/2017 09:53", - "actionAddOrRemoveTrackedPackages" : "jr 8/29/2020 16:22", - "actionBranch" : "ct 6/12/2022 20:59", - "actionBranchAdd" : "jr 3/7/2020 00:41", - "actionBranchCreateAndSwitch" : "jr 8/29/2020 15:09", - "actionBranchDiffWithWorkingCopy" : "jr 3/7/2020 00:42", - "actionBranchMerge" : "jr 8/7/2020 18:39", - "actionBranchPush" : "jr 7/23/2020 22:47", - "actionBranchRemove" : "jr 7/24/2020 10:05", - "actionBranchRemoveUpstream" : "jr 8/10/2020 22:25", - "actionBranchRename" : "jr 8/29/2020 15:19", - "actionBranchResetLoadedToCommit" : "jr 12/20/2021 14:34", - "actionBranchResetToCommit" : "jr 7/2/2022 22:18", - "actionBranchResetToTip" : "jr 3/7/2020 00:44", - "actionBranchSetCurrent" : "jr 3/7/2020 00:44", - "actionBranchSwitch" : "jr 3/7/2020 00:44", - "actionBranchSwitchMoveOver" : "jr 3/7/2020 00:44", - "actionBranchUnsetUpstream" : "jr 7/20/2020 13:02", - "actionBrowseWorkingCopy" : "jr 8/14/2018 10:25", - "actionClearSearch" : "fn 4/11/2017 18:49", - "actionCommit" : "jr 8/25/2021 09:57", - "actionCommitCherryPick" : "jr 8/8/2020 15:53", - "actionCommitDiffWithNextSelected" : "jr 7/2/2017 19:30", - "actionCommitDiffWithParent" : "ct 9/15/2022 19:23", - "actionCommitDiffWithWorkingCopy" : "jr 3/7/2020 00:45", - "actionCommitMergeIntoMemory" : "jr 3/7/2020 00:45", - "actionCommitRevert" : "jr 1/23/2022 00:17", - "actionCommitSelectionCheckout" : "jr 3/7/2020 00:45", - "actionCommitSwitchNewBranch" : "jr 8/29/2020 15:09", - "actionCommitTag" : "jr 3/13/2022 17:07", - "actionCredentialsEdit" : "jr 7/24/2020 11:33", - "actionFeedback" : "jr 12/22/2021 23:32", - "actionFetch" : "jr 8/7/2020 21:38", - "actionGitUserEdit" : "jr 7/24/2020 11:33", - "actionManageRemotes" : "jr 8/7/2020 18:52", - "actionMerge" : "jr 8/7/2020 18:41", - "actionObjectBrowse" : "jr 4/12/2020 00:19", - "actionObjectBrowseInWorkingCopy" : "jr 11/3/2020 14:39", - "actionObjectCheckout" : "jr 3/7/2020 00:47", - "actionObjectExplore" : "fn 4/12/2017 11:02", - "actionObjectMerge" : "jr 3/7/2020 00:47", - "actionObjectUntrack" : "jr 3/7/2020 00:48", - "actionPackageInfoObjectEditPostscript" : "jr 5/13/2017 19:42", - "actionPackageInfoObjectEditPostscriptOfRemoval" : "jr 5/13/2017 21:17", - "actionPackageInfoObjectEditPreamble" : "jr 5/13/2017 21:16", - "actionPackageInfoObjectEditPreambleOfRemoval" : "jr 5/13/2017 21:16", - "actionProjectAdd" : "jr 5/11/2017 14:09", - "actionProjectClone" : "jr 8/8/2020 00:31", - "actionProjectRemove" : "jr 8/10/2020 00:29", - "actionProjectRename" : "jr 7/24/2020 11:33", - "actionPull" : "jr 7/25/2020 01:02", - "actionPush" : "jr 4/14/2017 00:05", - "actionPushToRemote:" : "jr 8/3/2020 00:19", - "actionRemoteAdd" : "jr 7/22/2020 21:43", - "actionSelfUpdate" : "fn 4/15/2017 10:53", - "actionSelfUpdateSetBranch" : "ct 12/11/2021 21:18", - "actionSetUpstreamBranch" : "jr 8/7/2020 18:50", - "actionSettings" : "jr 7/6/2022 22:40", - "actionSquotWorkingCopyExplore" : "fn 4/24/2017 18:33", - "activeBranchChanged" : "jr 8/8/2020 00:17", - "addModelItemsToWindowMenu:" : "jr 4/18/2018 22:35", - "addProjectIfCanceled:" : "jr 11/18/2021 22:49", - "branchButtonHelpText" : "jr 12/22/2021 21:09", - "branchList" : "jr 12/22/2021 23:46", - "branchListIconAt:" : "jr 5/14/2021 22:57", - "branchListIfRepositoryDoesNotExist" : "jr 12/22/2021 23:45", - "branchListMenu:shifted:" : "jr 1/13/2018 00:31", - "branchSelection" : "jr 6/27/2020 09:50", - "branchSelection:" : "jr 2/27/2020 00:58", - "branchSelectionChanged" : "jr 6/5/2017 00:27", - "browseTags" : "jr 3/13/2022 17:30", - "buildBranchList:" : "jr 2/8/2020 23:37", - "buildButtonBar:" : "jr 1/13/2022 20:53", - "buildCommitList:" : "jr 2/17/2022 22:36", - "buildCommitSearchPanel:" : "jr 12/22/2021 12:50", - "buildMenu:from:" : "jr 6/30/2017 22:48", - "buildObjectList:" : "jr 2/8/2020 23:47", - "buildProjectBranchPanel:" : "jr 12/22/2021 12:51", - "buildProjectList:" : "jr 2/8/2020 23:55", - "buildSearchBar:" : "jr 2/17/2022 23:01", - "buildSearchClearButton:" : "jr 2/17/2022 23:03", - "buildSearchPanel:" : "jr 2/17/2022 22:36", - "buildSummary:" : "jr 12/9/2018 17:42", - "buildWith:" : "fn 4/11/2017 18:23", - "buttonBarHeight" : "jr 2/20/2022 11:25", - "cherryPick:toWorkingCopy:" : "ct 9/15/2022 19:15", - "chooseOneRemoteFrom:" : "jr 7/24/2020 11:33", - "chooseRemotesFrom:" : "jr 8/3/2020 01:07", - "chooseableRemoteNamesFrom:" : "tobe 10/15/2022 08:03", - "clone" : "jr 12/23/2021 18:24", - "commitList" : "jr 7/2/2022 22:31", - "commitListKey:from:" : "fn 4/12/2017 10:52", - "commitListMenu:" : "fn 4/11/2017 15:38", - "commitSelection" : "fn 4/11/2017 18:38", - "commitSelection:" : "jr 5/3/2020 23:33", - "commitSelectionChanged" : "jr 6/4/2017 23:35", - "compareVersions:with:" : "jr 5/3/2020 22:54", - "confirm:" : "jr 7/24/2020 11:33", - "contents" : "jr 7/2/2022 21:03", - "continueAsyncBuildingCommitList:historyWalk:" : "jr 7/2/2022 20:55", - "createNewBranchAt:ifCanceled:" : "jr 3/14/2019 22:32", - "createNewBranchAt:initialName:ifCanceled:" : "jr 11/18/2021 21:56", - "defaultCommitText" : "jr 12/3/2022 16:17", - "detectGitHubRemote:ifNone:" : "jr 3/7/2020 00:08", - "detectGitHubUsernameIfNone:" : "jr 3/7/2020 00:08", - "dragFromBranchList:" : "jr 2/9/2020 00:08", - "dragFromCommitList:" : "jr 5/17/2020 22:13", - "dragFromObjectList:" : "jr 5/9/2020 14:29", - "dragFromProjectList:" : "jr 5/9/2020 14:29", - "dropOnBranchList:at:copyIndicated:" : "jr 5/9/2020 14:46", - "dropOnCommitList:on:copyIndicated:" : "jr 5/9/2020 14:50", - "dropOnObjectList:at:copyIndicated:" : "jr 2/9/2020 00:08", - "dropOnProjectList:at:copyIndicated:" : "jr 5/9/2020 14:28", - "editGlobalAuthorInfo" : "jr 3/16/2019 13:20", - "errorRemoteAuthenticationFailed:" : "jr 8/2/2020 23:31", - "errorRemoteResourceNotFound:" : "jr 8/3/2020 00:14", - "errorRemoteUndefined:" : "jr 7/25/2020 18:28", - "fetch:" : "jr 8/7/2020 21:39", - "fetchFrom:remoteNames:" : "jr 7/2/2022 22:08", - "getShouldRevertCherryPickedChanges" : "jr 7/24/2020 10:06", - "hasBranchSelection" : "jr 6/4/2017 22:36", - "hasCommitSelection" : "jr 4/27/2017 17:04", - "hasObjectSelection" : "jr 5/13/2017 17:40", - "hasProjectSelection" : "jr 4/27/2017 17:02", - "hasProjects" : "jr 8/10/2020 00:29", - "hasSearchTerm" : "fn 4/24/2017 17:46", - "historiansDecorationAtVersion:" : "jr 7/2/2022 22:30", - "inform:" : "jr 7/24/2020 11:34", - "informThatProjectDoesNotExist" : "jr 7/24/2020 10:14", - "initialize" : "jr 4/27/2017 17:36", - "labelString" : "jr 12/20/2021 14:56", - "loadBranchList" : "jr 12/22/2021 23:46", - "loadCommitList" : "jr 7/9/2022 09:29", - "loadedSelectedObject" : "jr 5/13/2017 19:40", - "menuBranchListHook:" : "jr 7/17/2022 19:00", - "menuCommitListHook:" : "jr 1/22/2022 21:35", - "menuObjectListGeneral:" : "jr 7/6/2022 22:30", - "menuObjectListVersionObjectEdition:" : "jr 11/3/2020 14:41", - "menuObjectListWorkingCopyObject:" : "jr 11/3/2020 14:45", - "menuProjectListHook:" : "jr 10/17/2018 13:31", - "menuProjectListWorkingCopyHook:" : "jr 3/13/2022 17:19", - "mergeBranch:into:" : "jr 8/7/2020 18:41", - "mergeCommit:into:" : "jr 8/7/2020 18:36", - "mergeCommit:into:mergeTitle:saveTitle:saveMessageTemplate:" : "jr 10/31/2022 19:20", - "modelWakeUp" : "fn 4/26/2017 16:19", - "newHistorianFor:named:onError:" : "jr 7/24/2020 10:14", - "objectCache" : "fn 4/11/2017 18:39", - "objectCacheRefresh" : "jr 1/3/2021 22:07", - "objectCacheRefreshAsync" : "jr 7/24/2020 11:00", - "objectIndex" : "fn 4/11/2017 14:04", - "objectIndex:" : "fn 4/11/2017 16:58", - "objectList" : "fn 4/11/2017 15:13", - "objectListMenu:" : "fn 4/11/2017 22:52", - "objectSelection" : "fn 4/11/2017 17:13", - "offerPackageFormatMenu" : "jr 3/17/2019 12:15", - "offerToAddFirstProject" : "fn 4/26/2017 16:04", - "packageFormatMenuSpec" : "jr 8/31/2020 22:27", - "projectIndex" : "jr 8/10/2020 00:19", - "projectIndex:" : "jr 7/9/2022 09:37", - "projectList" : "fn 4/11/2017 11:48", - "projectListMenu:" : "fn 4/11/2017 15:38", - "projectSelection" : "fn 4/11/2017 17:12", - "projectSelection:" : "jr 3/13/2022 18:05", - "projectsWithRepository:do:" : "jr 3/13/2022 18:00", - "pullUpstream:" : "jr 8/8/2020 00:07", - "push:toRemoteNamed:" : "ct 9/15/2022 19:05", - "pushBranch" : "jr 7/2/2022 22:16", - "rebuildCommitList" : "jr 7/2/2022 22:15", - "refresh" : "jr 12/22/2021 23:46", - "remotesMenuWithItems:" : "jr 3/4/2020 01:01", - "remotesPushSubMenu" : "jr 5/30/2019 01:14", - "removeTrackedRemoteBranch:" : "jr 8/10/2020 22:25", - "requestAndSetUpstreamBranchOf:" : "jr 8/7/2020 18:57", - "requestAndStoreCredentialsFor:remoteUrl:ifCanceled:" : "jr 7/24/2020 11:34", - "revert:inWorkingCopy:" : "ct 9/15/2022 19:15", - "searchClearButtonWidth" : "jr 2/20/2022 11:24", - "searchPanelHeight" : "jr 2/20/2022 11:25", - "searchTerm" : "fn 4/11/2017 18:33", - "searchTerm:" : "jr 7/2/2022 20:46", - "selectActiveHistorian" : "jr 7/25/2020 18:48", - "selectedHistorian:" : "jr 10/15/2017 21:18", - "setPackageSerializer:" : "jr 3/16/2019 21:55", - "setUpstreamBranchOf:" : "jr 5/21/2021 21:30", - "shiftedMenuBranchListHook:" : "jr 7/20/2020 12:57", - "showBadRemote:" : "jr 8/8/2020 00:07", - "showMenuForVersion:onBranch:" : "jr 5/9/2020 14:46", - "showMenuForVersion:onVersion:" : "jr 5/9/2020 15:02", - "showMenuForVersion:onWorkingCopy:" : "jr 2/9/2020 00:32", - "soleParentOf:orChooseWithPrompt:" : "jr 1/23/2022 00:27", - "sortVersionsTopologically:" : "jr 2/8/2020 19:54", - "stepAt:in:" : "fn 4/11/2017 18:00", - "summaryForCommit:" : "ct 9/11/2022 20:20", - "timeOfLastListUpdate" : "fn 4/11/2017 18:00", - "toggleMetadata" : "jr 3/17/2019 22:07", - "updateHistorianDecorationsMap" : "jr 7/2/2022 21:56", - "wantsBranchListDrop:type:from:" : "jr 5/9/2020 14:30", - "wantsCommitListDrop:type:from:" : "jr 5/9/2020 14:44", - "wantsObjectListDrop:type:from:" : "jr 2/9/2020 00:08", - "wantsProjectListDrop:type:from:" : "jr 5/9/2020 14:28", - "wantsSteps" : "fn 4/11/2017 17:58", - "withUnitOfWork:" : "jr 12/22/2021 23:36" } } diff --git a/src/Squit.package/SquitBrowser.class/properties.json b/src/Squit.package/SquitBrowser.class/properties.json deleted file mode 100644 index 40fb9daa9..000000000 --- a/src/Squit.package/SquitBrowser.class/properties.json +++ /dev/null @@ -1,31 +0,0 @@ -{ - "category" : "Squit-UI", - "classinstvars" : [ - ], - "classvars" : [ - "SelfUpdateBranch", - "UpdateWorkingCopy" ], - "commentStamp" : "jr 3/17/2018 20:31", - "instvars" : [ - "projectIndex", - "commitSelection", - "objectIndex", - "objectCache", - "commitForCache", - "timeOfLastListUpdate", - "searchTerm", - "offeredToAddFirstProject", - "repositoryExists", - "cachedCommitList", - "commitListBuildProcess", - "selectedHistorian", - "indexOfActiveHistorianInBranchList", - "branchList", - "commitToDiffAgainst", - "indexOfFirstRemoteTrackingBranch", - "historiansForDecoration" ], - "name" : "SquitBrowser", - "pools" : [ - ], - "super" : "Model", - "type" : "normal" } diff --git a/src/Squit.package/SquitBrowserTest.class/README.md b/src/Squit.package/SquitBrowserTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squit.package/SquitBrowserTest.class/class/resources.st b/src/Squit.package/SquitBrowserTest.class/class/resources.st deleted file mode 100644 index 8a5098256..000000000 --- a/src/Squit.package/SquitBrowserTest.class/class/resources.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -resources - ^ super resources, {SquitTestWorkingCopy} \ No newline at end of file diff --git a/src/Squit.package/SquitBrowserTest.class/instance/addAndSelectTemporarySquitWorkingCopy.st b/src/Squit.package/SquitBrowserTest.class/instance/addAndSelectTemporarySquitWorkingCopy.st deleted file mode 100644 index 2010bbfe5..000000000 --- a/src/Squit.package/SquitBrowserTest.class/instance/addAndSelectTemporarySquitWorkingCopy.st +++ /dev/null @@ -1,8 +0,0 @@ -as yet unclassified -addAndSelectTemporarySquitWorkingCopy - SquitTestWorkingCopy current create. - SquitTestWorkingCopy current instance in: [:workingCopy | - workingCopy repository: self newRepository. - workingCopy loadedHistorian: (workingCopy repository defaultHistorian). - browser projectIndex: (browser projectList indexOf: workingCopy). - ^ workingCopy] \ No newline at end of file diff --git a/src/Squit.package/SquitBrowserTest.class/instance/newRepository.st b/src/Squit.package/SquitBrowserTest.class/instance/newRepository.st deleted file mode 100644 index d05a6af30..000000000 --- a/src/Squit.package/SquitBrowserTest.class/instance/newRepository.st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -newRepository - ^ SquitRepository onDirectory: FileSystem memory root \ No newline at end of file diff --git a/src/Squit.package/SquitBrowserTest.class/instance/setUp.st b/src/Squit.package/SquitBrowserTest.class/instance/setUp.st deleted file mode 100644 index b320ed2cd..000000000 --- a/src/Squit.package/SquitBrowserTest.class/instance/setUp.st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -setUp - browser := SquitBrowser new. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowserTest.class/instance/testDetectGitHubUsername.st b/src/Squit.package/SquitBrowserTest.class/instance/testDetectGitHubUsername.st deleted file mode 100644 index 00fbef445..000000000 --- a/src/Squit.package/SquitBrowserTest.class/instance/testDetectGitHubUsername.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -testDetectGitHubUsername - | workingCopy remoteUrl | - workingCopy := self addAndSelectTemporarySquitWorkingCopy. - browser withUnitOfWork: - [self assert: nil equals: (browser detectGitHubUsernameIfNone: []). - workingCopy repository fsgitRepository addRemote: 'github' url: (remoteUrl := 'https://github.com/shouldnotexist/shouldnotexist'). - self assert: nil equals: (browser detectGitHubUsernameIfNone: []). - workingCopy repository addCredentialsFor: remoteUrl user: 'mrbean' password: 'robertbennington'. - self assert: 'mrbean' equals: - (browser detectGitHubUsernameIfNone: [self fail: 'There should be a username now'])]. \ No newline at end of file diff --git a/src/Squit.package/SquitBrowserTest.class/methodProperties.json b/src/Squit.package/SquitBrowserTest.class/methodProperties.json deleted file mode 100644 index 44f1b8e67..000000000 --- a/src/Squit.package/SquitBrowserTest.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - "resources" : "jr 5/13/2017 14:34" }, - "instance" : { - "addAndSelectTemporarySquitWorkingCopy" : "jr 5/13/2017 14:41", - "newRepository" : "jr 5/13/2017 14:40", - "setUp" : "jr 5/13/2017 13:37", - "testDetectGitHubUsername" : "jr 3/4/2020 00:32" } } diff --git a/src/Squit.package/SquitBrowserTest.class/properties.json b/src/Squit.package/SquitBrowserTest.class/properties.json deleted file mode 100644 index 3502efe95..000000000 --- a/src/Squit.package/SquitBrowserTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squit-Tests-UI", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "browser" ], - "name" : "SquitBrowserTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/README.md b/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/README.md deleted file mode 100644 index b206deefc..000000000 --- a/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/README.md +++ /dev/null @@ -1,3 +0,0 @@ -I am a modal dialog to allow choosing a directory inside of the working copy directory. - -Unlike the rest of Squot and Squit, my methods operate with FileDirectory and not FileSystem because my superclass operates with FileDirectory. \ No newline at end of file diff --git a/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/class/openOn.label..st b/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/class/openOn.label..st deleted file mode 100644 index cdd2667e8..000000000 --- a/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/class/openOn.label..st +++ /dev/null @@ -1,7 +0,0 @@ -instance creation -openOn: aDirectory label: aString - ^ self new - workingCopyDirectory: aDirectory; - directory: aDirectory; - message: aString; - getUserResponse \ No newline at end of file diff --git a/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/instance/excludeGitRepositoryDirectory.from..st b/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/instance/excludeGitRepositoryDirectory.from..st deleted file mode 100644 index 8f0c0ec9f..000000000 --- a/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/instance/excludeGitRepositoryDirectory.from..st +++ /dev/null @@ -1,7 +0,0 @@ -as yet unclassified -excludeGitRepositoryDirectory: aFSFileDirectoryAdapter from: anArray - | index result | - result := anArray. - index := anArray indexOf: aFSFileDirectoryAdapter. - index ~= 0 ifTrue: [result := anArray copyWithoutIndex: index]. - ^ result \ No newline at end of file diff --git a/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/instance/hasMoreDirectories..st b/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/instance/hasMoreDirectories..st deleted file mode 100644 index e884124bf..000000000 --- a/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/instance/hasMoreDirectories..st +++ /dev/null @@ -1,5 +0,0 @@ -as yet unclassified -hasMoreDirectories: aDirectory - workingCopyDirectory = aDirectory ifTrue: - [^ "exclude .git" aDirectory asFSReference entries anySatisfy: [:each | each isDirectory and: [each basename ~= '.git']]]. - ^ super hasMoreDirectories: aDirectory \ No newline at end of file diff --git a/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/instance/rootDirectoryList.st b/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/instance/rootDirectoryList.st deleted file mode 100644 index abd3b2ac8..000000000 --- a/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/instance/rootDirectoryList.st +++ /dev/null @@ -1,4 +0,0 @@ -as yet unclassified -rootDirectoryList - "Only show the root of the working copy, nothing outside." - ^ {self workingCopyDirectory} \ No newline at end of file diff --git a/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/instance/subDirectoriesOf..st b/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/instance/subDirectoriesOf..st deleted file mode 100644 index 29ea267c3..000000000 --- a/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/instance/subDirectoriesOf..st +++ /dev/null @@ -1,9 +0,0 @@ -as yet unclassified -subDirectoriesOf: aDirectory - "provide a list of subdirectory names sorted alphnum-no-case" - - | directories | - directories := super subDirectoriesOf: aDirectory. - aDirectory = workingCopyDirectory ifTrue: - [directories := self excludeGitRepositoryDirectory: workingCopyDirectory / '.git' from: directories]. - ^ directories \ No newline at end of file diff --git a/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/instance/workingCopyDirectory..st b/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/instance/workingCopyDirectory..st deleted file mode 100644 index fad837c84..000000000 --- a/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/instance/workingCopyDirectory..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -workingCopyDirectory: anObject - workingCopyDirectory := anObject \ No newline at end of file diff --git a/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/instance/workingCopyDirectory.st b/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/instance/workingCopyDirectory.st deleted file mode 100644 index 597646a8b..000000000 --- a/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/instance/workingCopyDirectory.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -workingCopyDirectory - ^ workingCopyDirectory \ No newline at end of file diff --git a/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/methodProperties.json b/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/methodProperties.json deleted file mode 100644 index 215b21357..000000000 --- a/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - "openOn:label:" : "jr 9/6/2020 14:41" }, - "instance" : { - "excludeGitRepositoryDirectory:from:" : "jr 9/6/2020 12:51", - "hasMoreDirectories:" : "jr 9/6/2020 13:00", - "rootDirectoryList" : "jr 9/6/2020 12:29", - "subDirectoriesOf:" : "jr 9/6/2020 12:49", - "workingCopyDirectory" : "jr 9/5/2020 19:08", - "workingCopyDirectory:" : "jr 9/5/2020 19:08" } } diff --git a/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/properties.json b/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/properties.json deleted file mode 100644 index 6758698cb..000000000 --- a/src/Squit.package/SquitDirectoryInWorkingCopyChooser.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squit-UI-Support", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 9/6/2020 14:45", - "instvars" : [ - "workingCopyDirectory" ], - "name" : "SquitDirectoryInWorkingCopyChooser", - "pools" : [ - ], - "super" : "DirectoryChooserDialog", - "type" : "normal" } diff --git a/src/Squit.package/SquitFallbackUnitOfWork.class/README.md b/src/Squit.package/SquitFallbackUnitOfWork.class/README.md deleted file mode 100644 index c6fc3da32..000000000 --- a/src/Squit.package/SquitFallbackUnitOfWork.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am a replacement for SquitUnitOfWork if FileSystem-Git is set to not use the unit of work interface. This avoids messages being sent to a GitRepository that it does not understand because they are meant for a GitUnitOfWork. \ No newline at end of file diff --git a/src/Squit.package/SquitFallbackUnitOfWork.class/class/wrapping.for..st b/src/Squit.package/SquitFallbackUnitOfWork.class/class/wrapping.for..st deleted file mode 100644 index 210a49bbf..000000000 --- a/src/Squit.package/SquitFallbackUnitOfWork.class/class/wrapping.for..st +++ /dev/null @@ -1,6 +0,0 @@ -instance creation -wrapping: aGitRepository for: aSquitRepository - ^ self new - gitRepository: aGitRepository; - repository: aSquitRepository; - yourself \ No newline at end of file diff --git a/src/Squit.package/SquitFallbackUnitOfWork.class/instance/activateDuring..st b/src/Squit.package/SquitFallbackUnitOfWork.class/instance/activateDuring..st deleted file mode 100644 index cfc556f26..000000000 --- a/src/Squit.package/SquitFallbackUnitOfWork.class/instance/activateDuring..st +++ /dev/null @@ -1,3 +0,0 @@ -scope activation -activateDuring: aBlock - ^ aBlock value \ No newline at end of file diff --git a/src/Squit.package/SquitFallbackUnitOfWork.class/instance/gitRepository..st b/src/Squit.package/SquitFallbackUnitOfWork.class/instance/gitRepository..st deleted file mode 100644 index c135d7c72..000000000 --- a/src/Squit.package/SquitFallbackUnitOfWork.class/instance/gitRepository..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -gitRepository: anObject - gitRepository := anObject \ No newline at end of file diff --git a/src/Squit.package/SquitFallbackUnitOfWork.class/instance/gitRepository.st b/src/Squit.package/SquitFallbackUnitOfWork.class/instance/gitRepository.st deleted file mode 100644 index 10884bb78..000000000 --- a/src/Squit.package/SquitFallbackUnitOfWork.class/instance/gitRepository.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -gitRepository - ^ gitRepository \ No newline at end of file diff --git a/src/Squit.package/SquitFallbackUnitOfWork.class/methodProperties.json b/src/Squit.package/SquitFallbackUnitOfWork.class/methodProperties.json deleted file mode 100644 index 74b8478e1..000000000 --- a/src/Squit.package/SquitFallbackUnitOfWork.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - "wrapping:for:" : "jr 5/2/2020 16:39" }, - "instance" : { - "activateDuring:" : "jr 5/2/2020 16:35", - "gitRepository" : "jr 5/2/2020 16:38", - "gitRepository:" : "jr 5/2/2020 16:38" } } diff --git a/src/Squit.package/SquitFallbackUnitOfWork.class/properties.json b/src/Squit.package/SquitFallbackUnitOfWork.class/properties.json deleted file mode 100644 index dc404bba9..000000000 --- a/src/Squit.package/SquitFallbackUnitOfWork.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squit-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 5/2/2020 16:49", - "instvars" : [ - "gitRepository" ], - "name" : "SquitFallbackUnitOfWork", - "pools" : [ - ], - "super" : "SquotBasicUnitOfWork", - "type" : "normal" } diff --git a/src/Squit.package/SquitFeedback.class/README.md b/src/Squit.package/SquitFeedback.class/README.md deleted file mode 100644 index 2770212a8..000000000 --- a/src/Squit.package/SquitFeedback.class/README.md +++ /dev/null @@ -1,6 +0,0 @@ -Form to send feedback to the Squot/Squit developers. - -Instance Variables - author: - message: - title: diff --git a/src/Squit.package/SquitFeedback.class/class/defaultTitle.st b/src/Squit.package/SquitFeedback.class/class/defaultTitle.st deleted file mode 100644 index 0368450e1..000000000 --- a/src/Squit.package/SquitFeedback.class/class/defaultTitle.st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -defaultTitle - ^ 'Git Feedback Tool' \ No newline at end of file diff --git a/src/Squit.package/SquitFeedback.class/class/open.st b/src/Squit.package/SquitFeedback.class/class/open.st deleted file mode 100644 index 32723f503..000000000 --- a/src/Squit.package/SquitFeedback.class/class/open.st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -open - ToolBuilder open: self new \ No newline at end of file diff --git a/src/Squit.package/SquitFeedback.class/class/openWithAuthor..st b/src/Squit.package/SquitFeedback.class/class/openWithAuthor..st deleted file mode 100644 index c63de47f1..000000000 --- a/src/Squit.package/SquitFeedback.class/class/openWithAuthor..st +++ /dev/null @@ -1,6 +0,0 @@ -as yet unclassified -openWithAuthor: aString - | instance | - instance := self new. - instance actionAuthor: aString. - ToolBuilder open: instance. \ No newline at end of file diff --git a/src/Squit.package/SquitFeedback.class/instance/actionAuthor..st b/src/Squit.package/SquitFeedback.class/instance/actionAuthor..st deleted file mode 100644 index de924c1a0..000000000 --- a/src/Squit.package/SquitFeedback.class/instance/actionAuthor..st +++ /dev/null @@ -1,4 +0,0 @@ -actions -actionAuthor: anAuthor - author := anAuthor asString. - self changed: #actionAuthor \ No newline at end of file diff --git a/src/Squit.package/SquitFeedback.class/instance/actionAuthor.st b/src/Squit.package/SquitFeedback.class/instance/actionAuthor.st deleted file mode 100644 index f49f13a73..000000000 --- a/src/Squit.package/SquitFeedback.class/instance/actionAuthor.st +++ /dev/null @@ -1,3 +0,0 @@ -actions -actionAuthor - ^ author ifNil: [author := GitStamp defaultName] \ No newline at end of file diff --git a/src/Squit.package/SquitFeedback.class/instance/actionCancel.st b/src/Squit.package/SquitFeedback.class/instance/actionCancel.st deleted file mode 100644 index 7d0a60525..000000000 --- a/src/Squit.package/SquitFeedback.class/instance/actionCancel.st +++ /dev/null @@ -1,3 +0,0 @@ -actions -actionCancel - self changed: #close. \ No newline at end of file diff --git a/src/Squit.package/SquitFeedback.class/instance/actionMessage..st b/src/Squit.package/SquitFeedback.class/instance/actionMessage..st deleted file mode 100644 index 7d76f23dc..000000000 --- a/src/Squit.package/SquitFeedback.class/instance/actionMessage..st +++ /dev/null @@ -1,4 +0,0 @@ -actions -actionMessage: aMessage - message := aMessage asString. - self changed: #actionMessage \ No newline at end of file diff --git a/src/Squit.package/SquitFeedback.class/instance/actionMessage.st b/src/Squit.package/SquitFeedback.class/instance/actionMessage.st deleted file mode 100644 index e918af2b3..000000000 --- a/src/Squit.package/SquitFeedback.class/instance/actionMessage.st +++ /dev/null @@ -1,3 +0,0 @@ -actions -actionMessage - ^ message ifNil: [message := ''] \ No newline at end of file diff --git a/src/Squit.package/SquitFeedback.class/instance/actionSubmit.st b/src/Squit.package/SquitFeedback.class/instance/actionSubmit.st deleted file mode 100644 index c84d7d980..000000000 --- a/src/Squit.package/SquitFeedback.class/instance/actionSubmit.st +++ /dev/null @@ -1,13 +0,0 @@ -actions -actionSubmit - self actionTitle ifEmpty: [self error: 'No title provided.']. - self actionMessage ifEmpty: [self error: 'No message provided.']. - WebClient - htmlSubmit: 'http://squot.fniephaus.com/create.php' - fields: { - 'title' -> self actionTitle. - 'message' -> self actionMessage. - 'author' -> self actionAuthor. - } method: 'POST'. - self inform: 'Thanks for providing feedback!'. - self changed: #close. \ No newline at end of file diff --git a/src/Squit.package/SquitFeedback.class/instance/actionTitle..st b/src/Squit.package/SquitFeedback.class/instance/actionTitle..st deleted file mode 100644 index 5cafcbf20..000000000 --- a/src/Squit.package/SquitFeedback.class/instance/actionTitle..st +++ /dev/null @@ -1,4 +0,0 @@ -actions -actionTitle: aTitle - title := aTitle asString. - self changed: #actionTitle \ No newline at end of file diff --git a/src/Squit.package/SquitFeedback.class/instance/actionTitle.st b/src/Squit.package/SquitFeedback.class/instance/actionTitle.st deleted file mode 100644 index 5aa1ec446..000000000 --- a/src/Squit.package/SquitFeedback.class/instance/actionTitle.st +++ /dev/null @@ -1,3 +0,0 @@ -actions -actionTitle - ^ title ifNil: [title := ''] \ No newline at end of file diff --git a/src/Squit.package/SquitFeedback.class/instance/buildButtons..st b/src/Squit.package/SquitFeedback.class/instance/buildButtons..st deleted file mode 100644 index 10dbbd02f..000000000 --- a/src/Squit.package/SquitFeedback.class/instance/buildButtons..st +++ /dev/null @@ -1,12 +0,0 @@ -toolbuilder -buildButtons: builder - ^ { - builder pluggableButtonSpec new - model: self; - label: 'Cancel'; - action: #actionCancel. - builder pluggableButtonSpec new - model: self; - label: 'Submit'; - action: #actionSubmit. - } \ No newline at end of file diff --git a/src/Squit.package/SquitFeedback.class/instance/buildInputFields..st b/src/Squit.package/SquitFeedback.class/instance/buildInputFields..st deleted file mode 100644 index be6d88f38..000000000 --- a/src/Squit.package/SquitFeedback.class/instance/buildInputFields..st +++ /dev/null @@ -1,35 +0,0 @@ -toolbuilder -buildInputFields: builder - ^ { - builder pluggableInputFieldSpec new - model: self; - getText: #actionTitle; - editText: #actionTitle:; - setText: #actionTitle:; - help: 'A feedback title...'; - frame: (LayoutFrame new - topFraction: 0; - bottomFraction: 0 offset: self inputFieldHeight; - leftFraction: 0; rightFraction: 1). - builder pluggableTextSpec new - model: self; - getText: #actionMessage; - editText: #actionMessage:; - setText: #actionMessage:; - help: 'A message explaining your issue/suggestion in detail...'; - softLineWrap: true; - frame: (LayoutFrame new - topFraction: 0 offset: self inputFieldHeight; - bottomFraction: 1 offset: self inputFieldHeight negated; - leftFraction: 0; rightFraction: 1). - builder pluggableInputFieldSpec new - model: self; - getText: #actionAuthor; - editText: #actionAuthor:; - setText: #actionAuthor:; - help: 'Your name (preferably your GitHub @username)...'; - frame: (LayoutFrame new - topFraction: 1 offset: self inputFieldHeight negated; - bottomFraction: 1; - leftFraction: 0; rightFraction: 1). - } \ No newline at end of file diff --git a/src/Squit.package/SquitFeedback.class/instance/buildWith..st b/src/Squit.package/SquitFeedback.class/instance/buildWith..st deleted file mode 100644 index 286c5be45..000000000 --- a/src/Squit.package/SquitFeedback.class/instance/buildWith..st +++ /dev/null @@ -1,12 +0,0 @@ -toolbuilder -buildWith: builder - ^ builder build: (builder pluggableDialogSpec new - model: self; - label: #labelString; - extent: 350@250 * RealEstateAgent scaleFactor; - message: 'This will open an issue on GitHub for you. -Please enter a title, a message, and your @username. -You can post under another name or anonymously, -but often we need a way to contact you for further questions.'; - children: (self buildInputFields: builder); - buttons: (self buildButtons: builder)) \ No newline at end of file diff --git a/src/Squit.package/SquitFeedback.class/instance/close.st b/src/Squit.package/SquitFeedback.class/instance/close.st deleted file mode 100644 index c5d524c69..000000000 --- a/src/Squit.package/SquitFeedback.class/instance/close.st +++ /dev/null @@ -1,3 +0,0 @@ -actions -close - self topView ifNotNil: #delete. \ No newline at end of file diff --git a/src/Squit.package/SquitFeedback.class/instance/inputFieldHeight.st b/src/Squit.package/SquitFeedback.class/instance/inputFieldHeight.st deleted file mode 100644 index 960288935..000000000 --- a/src/Squit.package/SquitFeedback.class/instance/inputFieldHeight.st +++ /dev/null @@ -1,3 +0,0 @@ -toolbuilder -inputFieldHeight - ^ SquotGUI inputFieldHeight \ No newline at end of file diff --git a/src/Squit.package/SquitFeedback.class/instance/labelString.st b/src/Squit.package/SquitFeedback.class/instance/labelString.st deleted file mode 100644 index 6ca599a00..000000000 --- a/src/Squit.package/SquitFeedback.class/instance/labelString.st +++ /dev/null @@ -1,3 +0,0 @@ -toolbuilder -labelString - ^ self class defaultTitle \ No newline at end of file diff --git a/src/Squit.package/SquitFeedback.class/methodProperties.json b/src/Squit.package/SquitFeedback.class/methodProperties.json deleted file mode 100644 index 15ecd145d..000000000 --- a/src/Squit.package/SquitFeedback.class/methodProperties.json +++ /dev/null @@ -1,20 +0,0 @@ -{ - "class" : { - "defaultTitle" : "fn 4/13/2017 13:28", - "open" : "fn 4/13/2017 13:27", - "openWithAuthor:" : "jr 5/13/2017 14:51" }, - "instance" : { - "actionAuthor" : "fn 4/13/2017 13:44", - "actionAuthor:" : "fn 4/13/2017 13:39", - "actionCancel" : "fn 4/13/2017 13:27", - "actionMessage" : "fn 4/13/2017 13:38", - "actionMessage:" : "fn 4/13/2017 13:38", - "actionSubmit" : "jr 7/24/2020 10:16", - "actionTitle" : "fn 4/13/2017 13:38", - "actionTitle:" : "fn 4/13/2017 13:38", - "buildButtons:" : "fn 4/13/2017 13:27", - "buildInputFields:" : "jr 2/17/2022 23:17", - "buildWith:" : "jr 1/13/2022 20:54", - "close" : "fn 4/13/2017 13:27", - "inputFieldHeight" : "jr 2/20/2022 11:26", - "labelString" : "fn 4/13/2017 13:27" } } diff --git a/src/Squit.package/SquitFeedback.class/properties.json b/src/Squit.package/SquitFeedback.class/properties.json deleted file mode 100644 index 48a1a6756..000000000 --- a/src/Squit.package/SquitFeedback.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squit-UI", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 20:31", - "instvars" : [ - "title", - "message", - "author" ], - "name" : "SquitFeedback", - "pools" : [ - ], - "super" : "Model", - "type" : "normal" } diff --git a/src/Squit.package/SquitHistorian.class/README.md b/src/Squit.package/SquitHistorian.class/README.md deleted file mode 100644 index d1280c536..000000000 --- a/src/Squit.package/SquitHistorian.class/README.md +++ /dev/null @@ -1,6 +0,0 @@ -I am a local historian for a Git reference (used mostly for branches). - -Instance Variables - repository: high-level repository object for Squot - gitRepository: low-level repository object - referenceName: name of the ref represented by me diff --git a/src/Squit.package/SquitHistorian.class/class/existingNamed.repository.git..st b/src/Squit.package/SquitHistorian.class/class/existingNamed.repository.git..st deleted file mode 100644 index ae037ade6..000000000 --- a/src/Squit.package/SquitHistorian.class/class/existingNamed.repository.git..st +++ /dev/null @@ -1,6 +0,0 @@ -instance creation -existingNamed: aString repository: aSquitRepository git: aGitRepository - "Answer a new historian without validating the reference name because it is supposed to already exist in the repository." - ^ self new - setName: aString repository: aSquitRepository git: aGitRepository; - yourself \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/class/newNamed.repository.git..st b/src/Squit.package/SquitHistorian.class/class/newNamed.repository.git..st deleted file mode 100644 index c2724726f..000000000 --- a/src/Squit.package/SquitHistorian.class/class/newNamed.repository.git..st +++ /dev/null @@ -1,6 +0,0 @@ -instance creation -newNamed: aString repository: aSquitRepository git: aGitRepository - ^ self new - setName: nil repository: aSquitRepository git: aGitRepository; - name: aString; - yourself \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/^equals.st b/src/Squit.package/SquitHistorian.class/instance/^equals.st deleted file mode 100644 index b79aef44c..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/^equals.st +++ /dev/null @@ -1,5 +0,0 @@ -comparing -= anObject - self species = anObject species ifFalse: [^ false]. - ^ self repository = anObject repository - and: [self expandedName = anObject expandedName] \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/asSquotVersionIn..st b/src/Squit.package/SquitHistorian.class/instance/asSquotVersionIn..st deleted file mode 100644 index d92edcfd0..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/asSquotVersionIn..st +++ /dev/null @@ -1,3 +0,0 @@ -converting -asSquotVersionIn: aRepository - ^ self version \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/createNewVersion.with..st b/src/Squit.package/SquitHistorian.class/instance/createNewVersion.with..st deleted file mode 100644 index 56c3be8b4..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/createNewVersion.with..st +++ /dev/null @@ -1,18 +0,0 @@ -creating versions -createNewVersion: aSnapshot with: aBlock - "Build a new version with aSnapshot as its snapshot and my version as the first parent, - then supply the new version or a builder object for it to aBlock, during which additional - properties can be set up. When aBlock returns normally, store the new version and - update me to refer to it." - | newVersion | - newVersion := self repository createNewVersion: aSnapshot - with: [:version | version - parents: (self version - ifNil: [OrderedCollection new] - ifNotNil: [:it | OrderedCollection with: it]); - in: aBlock]. - self git - updateRef: self expandedName - to: newVersion hexHash - message: 'commit: ', (newVersion message lineNumber: 1). - ^ newVersion \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/createNewVersionFromPatch.with..st b/src/Squit.package/SquitHistorian.class/instance/createNewVersionFromPatch.with..st deleted file mode 100644 index c52eb3c27..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/createNewVersionFromPatch.with..st +++ /dev/null @@ -1,14 +0,0 @@ -creating versions -createNewVersionFromPatch: aPatch with: aBlock - | newVersion | - newVersion := self repository createNewVersionFromPatch: aPatch - with: [:version | version - parents: (self version - ifNil: [OrderedCollection new] - ifNotNil: [:it | OrderedCollection with: it]); - in: aBlock]. - self git - updateRef: self expandedName - to: newVersion hexHash - message: 'commit: ', (newVersion message lineNumber: 1). - ^ newVersion \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/errorUpstreamBranchNotConfigured.st b/src/Squit.package/SquitHistorian.class/instance/errorUpstreamBranchNotConfigured.st deleted file mode 100644 index 4646763cd..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/errorUpstreamBranchNotConfigured.st +++ /dev/null @@ -1,3 +0,0 @@ -synchronizing -errorUpstreamBranchNotConfigured - ^ (SquitUpstreamUndefined historian: self) signal: 'Upstream branch is not configured' \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/expandedName.st b/src/Squit.package/SquitHistorian.class/instance/expandedName.st deleted file mode 100644 index c5bf92c05..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/expandedName.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -expandedName - "Answers the full ref, in case this historian was initialized with an abbreviated ref." - ^ repository expandShortRefName: referenceName \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/exportToUpstream.st b/src/Squit.package/SquitHistorian.class/instance/exportToUpstream.st deleted file mode 100644 index 4f25804c6..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/exportToUpstream.st +++ /dev/null @@ -1,14 +0,0 @@ -synchronizing -exportToUpstream - | remote mergeBranch | - self isRemoteTrackingHistorian ifTrue: - [(SquitIllegalUseOfRemoteTrackingBranch historian: self) - signal: 'May push only local branches.']. - remote := self upstreamRemote. - mergeBranch := self upstreamHistorianName. - (remote exists not or: [mergeBranch isNil]) ifTrue: - [^ self errorUpstreamBranchNotConfigured]. - self repository - export: self - withName: self upstreamHistorianName - toRemoteNamed: self upstreamRemoteName. \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/git.st b/src/Squit.package/SquitHistorian.class/instance/git.st deleted file mode 100644 index 26945c76c..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/git.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -git - "Answer an object that can perform Git operations." - ^ GitCurrentUnitOfWork for: gitRepository \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/gitRepository..st b/src/Squit.package/SquitHistorian.class/instance/gitRepository..st deleted file mode 100644 index 16b2681fc..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/gitRepository..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -gitRepository: aGitRepository - gitRepository := aGitRepository \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/gitRepository.st b/src/Squit.package/SquitHistorian.class/instance/gitRepository.st deleted file mode 100644 index 10884bb78..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/gitRepository.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -gitRepository - ^ gitRepository \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/hasUpstreamHistorian.st b/src/Squit.package/SquitHistorian.class/instance/hasUpstreamHistorian.st deleted file mode 100644 index a29c85616..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/hasUpstreamHistorian.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -hasUpstreamHistorian - ^ self upstreamRemoteName notNil - and: [self upstreamHistorianName notNil] \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/hash.st b/src/Squit.package/SquitHistorian.class/instance/hash.st deleted file mode 100644 index 605b5914e..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/hash.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -hash - ^ (self repository hash hashMultiply bitXor: self expandedName hash) hashMultiply \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/importFromUpstream.st b/src/Squit.package/SquitHistorian.class/instance/importFromUpstream.st deleted file mode 100644 index dd266e958..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/importFromUpstream.st +++ /dev/null @@ -1,6 +0,0 @@ -synchronizing -importFromUpstream - "Fetch from the remote tracked by this branch" - repository importFromAll: - {self upstreamRemoteName ifNil: [^ self errorUpstreamBranchNotConfigured]}. - self flag: #todo. "In the future, might collect all updated refs and return that (to resolve the promise with that)." \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/isRemoteTrackingHistorian.st b/src/Squit.package/SquitHistorian.class/instance/isRemoteTrackingHistorian.st deleted file mode 100644 index 6f0aa13c2..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/isRemoteTrackingHistorian.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isRemoteTrackingHistorian - ^ self expandedName beginsWith: 'refs/remotes/' \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/messageWhenMergingInto..st b/src/Squit.package/SquitHistorian.class/instance/messageWhenMergingInto..st deleted file mode 100644 index 0ccb808c0..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/messageWhenMergingInto..st +++ /dev/null @@ -1,5 +0,0 @@ -creating versions -messageWhenMergingInto: aHistorian - ^ self isRemoteTrackingHistorian - ifTrue: ['Merge branch ''', self remoteRef shortName, ''' of ', self remoteName, ' into ', aHistorian shortName] - ifFalse: ['Merge branch ''', self shortName, ''' into ', aHistorian shortName] \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/name..st b/src/Squit.package/SquitHistorian.class/instance/name..st deleted file mode 100644 index 44c4240fa..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/name..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -name: aString - GitReference validateReferenceName: aString. - referenceName := aString \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/name.st b/src/Squit.package/SquitHistorian.class/instance/name.st deleted file mode 100644 index 2872ec6be..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -Pur historian -name - ^ referenceName \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/printOn..st b/src/Squit.package/SquitHistorian.class/instance/printOn..st deleted file mode 100644 index 41fd0182a..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/printOn..st +++ /dev/null @@ -1,6 +0,0 @@ -printing -printOn: aStream - super printOn: aStream. - aStream nextPut: $(; - print: referenceName; - nextPut: $). \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/remoteName.st b/src/Squit.package/SquitHistorian.class/instance/remoteName.st deleted file mode 100644 index 03a5a92e9..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/remoteName.st +++ /dev/null @@ -1,4 +0,0 @@ -remote-tracking historian -remoteName - ^ (self git fetchSpecOfTrackingBranch: self expandedName) - ifNotNil: [:fetchSpec | fetchSpec remoteName] \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/remoteRef.st b/src/Squit.package/SquitHistorian.class/instance/remoteRef.st deleted file mode 100644 index e17c33d80..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/remoteRef.st +++ /dev/null @@ -1,11 +0,0 @@ -remote-tracking historian -remoteRef - "Answer the ref at the remote. - For example, the remoteRef of origin/master usually is refs/heads/master." - | expandedRef | - expandedRef := self expandedName. - ^ (self git fetchSpecOfTrackingBranch: expandedRef) ifNotNil: - [:fetchSpec | - GitReference - name: (fetchSpec remoteBranchOf: expandedRef) - target: (self version ifNil: [GitReference zeroSignature] ifNotNil: [:v | v hexHash])] \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/repository..st b/src/Squit.package/SquitHistorian.class/instance/repository..st deleted file mode 100644 index 8d5f6d7d9..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/repository..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -repository: aRepository - repository := aRepository \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/repository.st b/src/Squit.package/SquitHistorian.class/instance/repository.st deleted file mode 100644 index f8de1c90a..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/repository.st +++ /dev/null @@ -1,3 +0,0 @@ -Pur historian -repository - ^ repository \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/setName.repository.git..st b/src/Squit.package/SquitHistorian.class/instance/setName.repository.git..st deleted file mode 100644 index 9be258569..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/setName.repository.git..st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -setName: aString repository: aSquitRepository git: aGitRepository - referenceName := aString. - repository := aSquitRepository. - gitRepository := aGitRepository. \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/setUpstreamToBranchTrackedByRemoteTrackingBranch..st b/src/Squit.package/SquitHistorian.class/instance/setUpstreamToBranchTrackedByRemoteTrackingBranch..st deleted file mode 100644 index fb7939ac5..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/setUpstreamToBranchTrackedByRemoteTrackingBranch..st +++ /dev/null @@ -1,5 +0,0 @@ -upstream historian -setUpstreamToBranchTrackedByRemoteTrackingBranch: aRemoteTrackingHistorian - self git - setUpstreamOfBranchNamed: self shortName - toTrackedBranchOf: aRemoteTrackingHistorian expandedName. \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/shortName.st b/src/Squit.package/SquitHistorian.class/instance/shortName.st deleted file mode 100644 index 0a333005d..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/shortName.st +++ /dev/null @@ -1,13 +0,0 @@ -accessing -shortName - "Answers the more colloquial branch name without refs/heads or refs/remotes/." - | shortHeadRef shortRemoteRef | - (referenceName beginsWith: 'refs/heads/') - ifTrue: [shortHeadRef := referenceName allButFirst: 'refs/heads/' size. - (self git refExists: shortHeadRef) - ifFalse: [^ shortHeadRef]]. - (referenceName beginsWith: 'refs/remotes/') - ifTrue: [shortRemoteRef := referenceName allButFirst: 'refs/remotes/' size. - (self git refExists: 'refs/heads/', shortRemoteRef) - ifFalse: [^ shortRemoteRef]]. - ^ referenceName \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/untrackUpstream.st b/src/Squit.package/SquitHistorian.class/instance/untrackUpstream.st deleted file mode 100644 index 13301357e..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/untrackUpstream.st +++ /dev/null @@ -1,3 +0,0 @@ -upstream historian -untrackUpstream - self git unsetUpstreamOfBranchNamed: self shortName. \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/upstreamHistorianName.st b/src/Squit.package/SquitHistorian.class/instance/upstreamHistorianName.st deleted file mode 100644 index a303d921e..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/upstreamHistorianName.st +++ /dev/null @@ -1,3 +0,0 @@ -upstream historian -upstreamHistorianName - ^ self git upstreamRefOfBranchNamed: self shortName \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/upstreamMergeMessage.st b/src/Squit.package/SquitHistorian.class/instance/upstreamMergeMessage.st deleted file mode 100644 index 480716c36..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/upstreamMergeMessage.st +++ /dev/null @@ -1,4 +0,0 @@ -user interface -upstreamMergeMessage - ^ 'Merge branch ''', (repository historianNamed: self upstreamHistorianName) shortName, - ''' of ', self upstreamRemote url \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/upstreamRemote.st b/src/Squit.package/SquitHistorian.class/instance/upstreamRemote.st deleted file mode 100644 index f7d659d02..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/upstreamRemote.st +++ /dev/null @@ -1,4 +0,0 @@ -upstream historian -upstreamRemote - self flag: #remoteRepository. - ^ self git remoteNamed: self upstreamRemoteName \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/upstreamRemoteName.st b/src/Squit.package/SquitHistorian.class/instance/upstreamRemoteName.st deleted file mode 100644 index 8899edbbd..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/upstreamRemoteName.st +++ /dev/null @@ -1,3 +0,0 @@ -upstream historian -upstreamRemoteName - ^ self git upstreamRemoteOfBranchNamed: self shortName \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/upstreamTrackingHistorian.st b/src/Squit.package/SquitHistorian.class/instance/upstreamTrackingHistorian.st deleted file mode 100644 index fa7851441..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/upstreamTrackingHistorian.st +++ /dev/null @@ -1,10 +0,0 @@ -upstream historian -upstreamTrackingHistorian - "Answer a local historian that represents a remote historian." - | upstreamRef trackingRef | - upstreamRef := self upstreamHistorianName. - self upstreamRemote fetchSpecs - detect: - [:each | (trackingRef := each trackingRefOf: upstreamRef) notNil] - ifNone: [^ NotFound signal: 'Unknown version on upstream branch']. - ^ repository historianNamed: trackingRef \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/upstreamVersion.st b/src/Squit.package/SquitHistorian.class/instance/upstreamVersion.st deleted file mode 100644 index bb2a2ba6e..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/upstreamVersion.st +++ /dev/null @@ -1,3 +0,0 @@ -upstream historian -upstreamVersion - ^ self upstreamTrackingHistorian version \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/version..st b/src/Squit.package/SquitHistorian.class/instance/version..st deleted file mode 100644 index 2ca7d75ac..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/version..st +++ /dev/null @@ -1,10 +0,0 @@ -Pur historian -version: aVersion - | previousCommit | - aVersion ifNil: [repository delete: self. ^ self]. - previousCommit := self git resolveRef: self expandedName. - self git - updateRef: self expandedName - to: aVersion hexHash - message: 'reset: moving to ', aVersion hexHash. - previousCommit ifNil: [Project current addDeferredUIMessage: [repository changed: #historians]]. \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/instance/version.st b/src/Squit.package/SquitHistorian.class/instance/version.st deleted file mode 100644 index fe16aa74f..000000000 --- a/src/Squit.package/SquitHistorian.class/instance/version.st +++ /dev/null @@ -1,4 +0,0 @@ -Pur historian -version - ^ repository versionForCommit: - (self git objectReferenced: referenceName) \ No newline at end of file diff --git a/src/Squit.package/SquitHistorian.class/methodProperties.json b/src/Squit.package/SquitHistorian.class/methodProperties.json deleted file mode 100644 index 0dd4b6958..000000000 --- a/src/Squit.package/SquitHistorian.class/methodProperties.json +++ /dev/null @@ -1,39 +0,0 @@ -{ - "class" : { - "existingNamed:repository:git:" : "jr 7/2/2022 19:23", - "newNamed:repository:git:" : "jr 7/2/2022 19:21" }, - "instance" : { - "=" : "jr 4/14/2017 00:50", - "asSquotVersionIn:" : "jr 2/8/2020 20:20", - "createNewVersion:with:" : "jr 3/7/2020 00:09", - "createNewVersionFromPatch:with:" : "jr 1/3/2021 20:53", - "errorUpstreamBranchNotConfigured" : "jr 7/25/2020 17:55", - "expandedName" : "jr 5/27/2018 17:40", - "exportToUpstream" : "jr 7/25/2020 17:54", - "git" : "jr 8/8/2020 16:27", - "gitRepository" : "jr 3/7/2020 00:23", - "gitRepository:" : "jr 1/11/2017 18:05", - "hasUpstreamHistorian" : "jr 5/22/2017 00:05", - "hash" : "jr 4/14/2017 00:53", - "importFromUpstream" : "jr 7/25/2020 17:58", - "isRemoteTrackingHistorian" : "jr 6/21/2017 15:12", - "messageWhenMergingInto:" : "jr 11/21/2018 21:33", - "name" : "jr 1/11/2017 16:50", - "name:" : "pre 6/15/2018 15:40", - "printOn:" : "jr 2/1/2017 14:10", - "remoteName" : "jr 3/7/2020 00:10", - "remoteRef" : "jr 3/7/2020 00:10", - "repository" : "jr 1/11/2017 16:50", - "repository:" : "jr 1/11/2017 17:48", - "setName:repository:git:" : "jr 7/2/2022 19:21", - "setUpstreamToBranchTrackedByRemoteTrackingBranch:" : "jr 3/7/2020 00:10", - "shortName" : "jr 3/7/2020 00:10", - "untrackUpstream" : "jr 7/20/2020 13:06", - "upstreamHistorianName" : "jr 3/7/2020 00:10", - "upstreamMergeMessage" : "jr 7/25/2020 18:39", - "upstreamRemote" : "jr 8/30/2020 19:22", - "upstreamRemoteName" : "jr 3/7/2020 00:10", - "upstreamTrackingHistorian" : "jr 8/1/2020 16:12", - "upstreamVersion" : "jr 8/1/2020 16:12", - "version" : "jr 3/7/2020 00:10", - "version:" : "jr 3/13/2022 19:02" } } diff --git a/src/Squit.package/SquitHistorian.class/properties.json b/src/Squit.package/SquitHistorian.class/properties.json deleted file mode 100644 index 482053e92..000000000 --- a/src/Squit.package/SquitHistorian.class/properties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "category" : "Squit-Core", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotLocalHistorian classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 20:34", - "instvars" : [ - "referenceName", - "repository", - "gitRepository" ], - "name" : "SquitHistorian", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotLocalHistorian", - "type" : "normal" } diff --git a/src/Squit.package/SquitHistorianTest.class/README.md b/src/Squit.package/SquitHistorianTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squit.package/SquitHistorianTest.class/instance/performTest.st b/src/Squit.package/SquitHistorianTest.class/instance/performTest.st deleted file mode 100644 index 98859ceb7..000000000 --- a/src/Squit.package/SquitHistorianTest.class/instance/performTest.st +++ /dev/null @@ -1,3 +0,0 @@ -private -performTest - ^ squitRepository withUnitOfWork: [super performTest] \ No newline at end of file diff --git a/src/Squit.package/SquitHistorianTest.class/instance/testHistorianSetUpstreamBranch.st b/src/Squit.package/SquitHistorianTest.class/instance/testHistorianSetUpstreamBranch.st deleted file mode 100644 index 75d77a8e6..000000000 --- a/src/Squit.package/SquitHistorianTest.class/instance/testHistorianSetUpstreamBranch.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testHistorianSetUpstreamBranch - | remoteTrackingBranch | - remoteTrackingBranch := self createRemoteTrackingBranchForMaster. - master setUpstreamToBranchTrackedByRemoteTrackingBranch: remoteTrackingBranch. - self assert: master upstreamRemoteName = 'myremote'; - assert: master upstreamHistorianName = 'refs/heads/master'. \ No newline at end of file diff --git a/src/Squit.package/SquitHistorianTest.class/instance/testHistorianSetUpstreamBranchWithBogusRemoteTrackingBranch.st b/src/Squit.package/SquitHistorianTest.class/instance/testHistorianSetUpstreamBranchWithBogusRemoteTrackingBranch.st deleted file mode 100644 index 38fa12845..000000000 --- a/src/Squit.package/SquitHistorianTest.class/instance/testHistorianSetUpstreamBranchWithBogusRemoteTrackingBranch.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testHistorianSetUpstreamBranchWithBogusRemoteTrackingBranch - | bogusTrackingBranch badInvocation | - self createRemoteTrackingBranchForMaster. - bogusTrackingBranch := squitRepository historianNamed: 'refs/remotes/bogus/master'. - badInvocation := [master setUpstreamToBranchTrackedByRemoteTrackingBranch: bogusTrackingBranch]. - self should: badInvocation raise: Error. - self deny: ((badInvocation on: Error do: [:e | e return: e]) isMemberOf: MessageNotUnderstood) - description: 'the error should not be a type error'. \ No newline at end of file diff --git a/src/Squit.package/SquitHistorianTest.class/instance/testMergeMessage.st b/src/Squit.package/SquitHistorianTest.class/instance/testMergeMessage.st deleted file mode 100644 index b3e263de3..000000000 --- a/src/Squit.package/SquitHistorianTest.class/instance/testMergeMessage.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testMergeMessage - | remoteTrackingHistorian message | - remoteTrackingHistorian := squitRepository historianNamed: 'mybranch'. - message := remoteTrackingHistorian messageWhenMergingInto: self master. - self assert: message = 'Merge branch ''mybranch'' into master'. \ No newline at end of file diff --git a/src/Squit.package/SquitHistorianTest.class/methodProperties.json b/src/Squit.package/SquitHistorianTest.class/methodProperties.json deleted file mode 100644 index 58c35b634..000000000 --- a/src/Squit.package/SquitHistorianTest.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "performTest" : "jr 3/2/2020 22:37", - "testHistorianSetUpstreamBranch" : "jr 11/21/2018 20:54", - "testHistorianSetUpstreamBranchWithBogusRemoteTrackingBranch" : "jr 11/21/2018 20:54", - "testMergeMessage" : "jr 11/21/2018 21:46" } } diff --git a/src/Squit.package/SquitHistorianTest.class/properties.json b/src/Squit.package/SquitHistorianTest.class/properties.json deleted file mode 100644 index 936f1d31c..000000000 --- a/src/Squit.package/SquitHistorianTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squit-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquitHistorianTest", - "pools" : [ - ], - "super" : "SquitTest", - "type" : "normal" } diff --git a/src/Squit.package/SquitHistorianWrapper.class/README.md b/src/Squit.package/SquitHistorianWrapper.class/README.md deleted file mode 100644 index 72ecebd6e..000000000 --- a/src/Squit.package/SquitHistorianWrapper.class/README.md +++ /dev/null @@ -1,4 +0,0 @@ -I am a wrapper for a SquitHistorian to be displayed in the SquitBrowser's branch list. - -Instance Variables - historian: diff --git a/src/Squit.package/SquitHistorianWrapper.class/class/on..st b/src/Squit.package/SquitHistorianWrapper.class/class/on..st deleted file mode 100644 index c9d097373..000000000 --- a/src/Squit.package/SquitHistorianWrapper.class/class/on..st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -on: aHistorian - ^ self new historian: aHistorian; yourself \ No newline at end of file diff --git a/src/Squit.package/SquitHistorianWrapper.class/instance/historian..st b/src/Squit.package/SquitHistorianWrapper.class/instance/historian..st deleted file mode 100644 index d97fca60b..000000000 --- a/src/Squit.package/SquitHistorianWrapper.class/instance/historian..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -historian: anObject - historian := anObject. \ No newline at end of file diff --git a/src/Squit.package/SquitHistorianWrapper.class/instance/historian.st b/src/Squit.package/SquitHistorianWrapper.class/instance/historian.st deleted file mode 100644 index bb118f761..000000000 --- a/src/Squit.package/SquitHistorianWrapper.class/instance/historian.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -historian - ^ historian \ No newline at end of file diff --git a/src/Squit.package/SquitHistorianWrapper.class/instance/printOn..st b/src/Squit.package/SquitHistorianWrapper.class/instance/printOn..st deleted file mode 100644 index bc17eec66..000000000 --- a/src/Squit.package/SquitHistorianWrapper.class/instance/printOn..st +++ /dev/null @@ -1,3 +0,0 @@ -printing -printOn: aStream - aStream nextPutAll: historian shortName \ No newline at end of file diff --git a/src/Squit.package/SquitHistorianWrapper.class/methodProperties.json b/src/Squit.package/SquitHistorianWrapper.class/methodProperties.json deleted file mode 100644 index 7bd5c2484..000000000 --- a/src/Squit.package/SquitHistorianWrapper.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - "on:" : "fn 4/11/2017 13:44" }, - "instance" : { - "historian" : "fn 4/11/2017 13:44", - "historian:" : "fn 4/15/2017 11:21", - "printOn:" : "jr 5/9/2017 16:39" } } diff --git a/src/Squit.package/SquitHistorianWrapper.class/properties.json b/src/Squit.package/SquitHistorianWrapper.class/properties.json deleted file mode 100644 index e2dc06a72..000000000 --- a/src/Squit.package/SquitHistorianWrapper.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squit-UI-Support", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 20:42", - "instvars" : [ - "historian" ], - "name" : "SquitHistorianWrapper", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squit.package/SquitHistoryWalk.class/README.md b/src/Squit.package/SquitHistoryWalk.class/README.md deleted file mode 100644 index 3fef1af21..000000000 --- a/src/Squit.package/SquitHistoryWalk.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I walk the history of commits like git-rev-list does. Commits are ordered by committer time to ensure that ancestors of a commit are not met before the commit itself. \ No newline at end of file diff --git a/src/Squit.package/SquitHistoryWalk.class/instance/shouldVisit.before..st b/src/Squit.package/SquitHistoryWalk.class/instance/shouldVisit.before..st deleted file mode 100644 index 2e9f9fe74..000000000 --- a/src/Squit.package/SquitHistoryWalk.class/instance/shouldVisit.before..st +++ /dev/null @@ -1,12 +0,0 @@ -adapting -shouldVisit: markedVersion1 before: markedVersion2 - "Visit later committed versions first. If both were committed at the same time, try to determine whether one of them is the parent of the other, then visit the descendant first." - | ts1 ts2 | - ts1 := markedVersion1 object commit committer timeStamp. - ts2 := markedVersion2 object commit committer timeStamp. - ts1 ~= ts2 ifTrue: [^ ts1 > ts2]. - (markedVersion1 object commit parents includes: markedVersion2 object commit) - ifTrue: [^ true]. - (markedVersion2 object commit parents includes: markedVersion1 object commit) - ifTrue: [^ false]. - ^ true "This may not be correct, but to make a correct decision we would have to search deeper in the ancestry. This is avoided for performance reasons for now." \ No newline at end of file diff --git a/src/Squit.package/SquitHistoryWalk.class/methodProperties.json b/src/Squit.package/SquitHistoryWalk.class/methodProperties.json deleted file mode 100644 index 688324ffc..000000000 --- a/src/Squit.package/SquitHistoryWalk.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "shouldVisit:before:" : "jr 5/2/2022 00:41" } } diff --git a/src/Squit.package/SquitHistoryWalk.class/properties.json b/src/Squit.package/SquitHistoryWalk.class/properties.json deleted file mode 100644 index 86c6ecfd0..000000000 --- a/src/Squit.package/SquitHistoryWalk.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squit-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 21:12", - "instvars" : [ - ], - "name" : "SquitHistoryWalk", - "pools" : [ - ], - "super" : "SquotHistoryWalker", - "type" : "normal" } diff --git a/src/Squit.package/SquitHistoryWalkTest.class/README.md b/src/Squit.package/SquitHistoryWalkTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squit.package/SquitHistoryWalkTest.class/instance/newVersion.parents.authoredAt.committedAt..st b/src/Squit.package/SquitHistoryWalkTest.class/instance/newVersion.parents.authoredAt.committedAt..st deleted file mode 100644 index 6fe58b7e2..000000000 --- a/src/Squit.package/SquitHistoryWalkTest.class/instance/newVersion.parents.authoredAt.committedAt..st +++ /dev/null @@ -1,13 +0,0 @@ -tests -newVersion: messageString parents: parentsCollection authoredAt: authorTimestampString committedAt: commitTimestampString - | writer | - writer := repository historianNamed: 'writer'. - parentsCollection - ifEmpty: [writer version: nil] - ifNotEmpty: [writer version: parentsCollection first]. - ^ writer createNewVersion: SquotSnapshot empty with: [:version | - version - message: messageString; - parents: parentsCollection; - authoringTimeStamp: (DateAndTime fromString: authorTimestampString); - committingTimeStamp: (DateAndTime fromString: commitTimestampString)] \ No newline at end of file diff --git a/src/Squit.package/SquitHistoryWalkTest.class/instance/performTest.st b/src/Squit.package/SquitHistoryWalkTest.class/instance/performTest.st deleted file mode 100644 index 7a5d49b49..000000000 --- a/src/Squit.package/SquitHistoryWalkTest.class/instance/performTest.st +++ /dev/null @@ -1,3 +0,0 @@ -running -performTest - ^ repository withUnitOfWork: [self suppressProgressDisplayDuring: [super performTest]] \ No newline at end of file diff --git a/src/Squit.package/SquitHistoryWalkTest.class/instance/setUp.st b/src/Squit.package/SquitHistoryWalkTest.class/instance/setUp.st deleted file mode 100644 index ab409470e..000000000 --- a/src/Squit.package/SquitHistoryWalkTest.class/instance/setUp.st +++ /dev/null @@ -1,3 +0,0 @@ -running -setUp - repository := SquitRepository onDirectory: FileSystem memory root. \ No newline at end of file diff --git a/src/Squit.package/SquitHistoryWalkTest.class/instance/testCorrectExclusionOfAncestorsThroughCorrectWalkOrder.st b/src/Squit.package/SquitHistoryWalkTest.class/instance/testCorrectExclusionOfAncestorsThroughCorrectWalkOrder.st deleted file mode 100644 index 4309e7104..000000000 --- a/src/Squit.package/SquitHistoryWalkTest.class/instance/testCorrectExclusionOfAncestorsThroughCorrectWalkOrder.st +++ /dev/null @@ -1,19 +0,0 @@ -tests -testCorrectExclusionOfAncestorsThroughCorrectWalkOrder - "The walk should enumerate all versions with the Git commit timestamp, not the author timestamp." - "1 -- 4 ----/--- 2' -- 5 (top) - \-- 3 --/--- 6 (bottom) - git rev-list 5..6 => (6), must not include 3. - 2' is a cherry pick of an older version and must not be enumerated before 5. because 5 is an ancestor of 3', 5 must have the earlier commit time." - | result versions | - (versions := OrderedCollection new) - add: (self newVersion: '1' parents: #() authoredAt: '2020-01-01T0Z' committedAt: '2020-01-01T0Z'); - add: nil; "later" - add: (self newVersion: '3' parents: {versions at: 1} authoredAt: '2020-01-03T0Z' committedAt: '2020-01-03T0Z'); - add: (self newVersion: '4' parents: {versions at: 1} authoredAt: '2020-01-04T0Z' committedAt: '2020-01-04T0Z'); - at: 2 put: (self newVersion: '2' parents: {versions at: 4. versions at: 3} authoredAt: '2019-12-01T0Z' committedAt: '2020-01-04T13:00Z'); - add: (self newVersion: '5' parents: {versions at: 2} authoredAt: '2020-01-05T0Z' committedAt: '2020-01-05T0Z'); - add: (self newVersion: '6' parents: {versions at: 3} authoredAt: '2020-01-06T0Z' committedAt: '2020-01-06T0Z'). - result :=(repository historianNamed: 'bottom') version: (versions at: 6); - versionsNotOn: ((repository historianNamed: 'top') version: (versions at: 5); yourself). - self assert: result asBag = {versions at: 6} asBag. \ No newline at end of file diff --git a/src/Squit.package/SquitHistoryWalkTest.class/instance/testOrderOfRebasedCommits.st b/src/Squit.package/SquitHistoryWalkTest.class/instance/testOrderOfRebasedCommits.st deleted file mode 100644 index f5f2d5d44..000000000 --- a/src/Squit.package/SquitHistoryWalkTest.class/instance/testOrderOfRebasedCommits.st +++ /dev/null @@ -1,18 +0,0 @@ -tests -testOrderOfRebasedCommits - "When several commits are rebased, they all have the same committer timestamp. This must not disrupt the order of the commits in the history walk, which should correspond to the ancestry order. It also must not prematurely stop the walk, which previously happened starting from four versions with the same committer timestamp, because the same versions were queued repeatedly." - | versions commitList | - "Given" - (versions := OrderedCollection new) - add: (self newVersion: '1' parents: #() authoredAt: '2020-01-01T0Z' committedAt: '2020-01-01T0Z'); - add: (self newVersion: '2' parents: {versions last} authoredAt: '2020-01-02T0Z' committedAt: '2020-01-02T0Z'); - add: (self newVersion: '3' parents: {versions last} authoredAt: '2020-01-03T0Z' committedAt: '2020-01-10T0Z'); - add: (self newVersion: '4' parents: {versions last} authoredAt: '2020-01-04T0Z' committedAt: '2020-01-10T0Z'); - add: (self newVersion: '5' parents: {versions last} authoredAt: '2020-01-05T0Z' committedAt: '2020-01-10T0Z'); - add: (self newVersion: '6' parents: {versions last} authoredAt: '2020-01-06T0Z' committedAt: '2020-01-10T0Z'); - add: (self newVersion: '7' parents: {versions last} authoredAt: '2020-01-17T0Z' committedAt: '2020-01-17T0Z'). - "When" - commitList := repository historyWalkClass new nextPut: versions last; upToEnd. - "Then" - self assert: versions first equals: commitList last; - assert: #('7' '6' '5' '4' '3' '2' '1') equals: (commitList collect: [:each | each message]) asArray. \ No newline at end of file diff --git a/src/Squit.package/SquitHistoryWalkTest.class/methodProperties.json b/src/Squit.package/SquitHistoryWalkTest.class/methodProperties.json deleted file mode 100644 index effd8b764..000000000 --- a/src/Squit.package/SquitHistoryWalkTest.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "newVersion:parents:authoredAt:committedAt:" : "jr 5/10/2020 22:42", - "performTest" : "jr 9/13/2020 22:55", - "setUp" : "jr 5/10/2020 22:17", - "testCorrectExclusionOfAncestorsThroughCorrectWalkOrder" : "jr 5/10/2020 22:29", - "testOrderOfRebasedCommits" : "jr 5/2/2022 00:41" } } diff --git a/src/Squit.package/SquitHistoryWalkTest.class/properties.json b/src/Squit.package/SquitHistoryWalkTest.class/properties.json deleted file mode 100644 index b696e6009..000000000 --- a/src/Squit.package/SquitHistoryWalkTest.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squit-Tests", - "classinstvars" : [ - ], - "classtraitcomposition" : "TTestCaseSuppressingProgressDisplay classTrait", - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "repository" ], - "name" : "SquitHistoryWalkTest", - "pools" : [ - ], - "super" : "TestCase", - "traitcomposition" : "TTestCaseSuppressingProgressDisplay", - "type" : "normal" } diff --git a/src/Squit.package/SquitIllegalUseOfRemoteTrackingBranch.class/README.md b/src/Squit.package/SquitIllegalUseOfRemoteTrackingBranch.class/README.md deleted file mode 100644 index 0215d2c05..000000000 --- a/src/Squit.package/SquitIllegalUseOfRemoteTrackingBranch.class/README.md +++ /dev/null @@ -1 +0,0 @@ -Attempted an operation that is inappropriate for remote-tracking branches. For example, one must not pull or push remote-tracking branches. Instead, local branches that track a remote branch should be pulled or pushed. Remote-tracking branches only reflect the state of a remote repository according to the last fetch or push, so these branches should not be modified otherwise. \ No newline at end of file diff --git a/src/Squit.package/SquitIllegalUseOfRemoteTrackingBranch.class/class/historian..st b/src/Squit.package/SquitIllegalUseOfRemoteTrackingBranch.class/class/historian..st deleted file mode 100644 index 85b5b7cf9..000000000 --- a/src/Squit.package/SquitIllegalUseOfRemoteTrackingBranch.class/class/historian..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -historian: aHistorian - ^ self new - remoteTrackingHistorian: aHistorian; - yourself \ No newline at end of file diff --git a/src/Squit.package/SquitIllegalUseOfRemoteTrackingBranch.class/instance/remoteTrackingHistorian..st b/src/Squit.package/SquitIllegalUseOfRemoteTrackingBranch.class/instance/remoteTrackingHistorian..st deleted file mode 100644 index 1be5deb4a..000000000 --- a/src/Squit.package/SquitIllegalUseOfRemoteTrackingBranch.class/instance/remoteTrackingHistorian..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -remoteTrackingHistorian: anObject - remoteTrackingHistorian := anObject \ No newline at end of file diff --git a/src/Squit.package/SquitIllegalUseOfRemoteTrackingBranch.class/instance/remoteTrackingHistorian.st b/src/Squit.package/SquitIllegalUseOfRemoteTrackingBranch.class/instance/remoteTrackingHistorian.st deleted file mode 100644 index 1e194f208..000000000 --- a/src/Squit.package/SquitIllegalUseOfRemoteTrackingBranch.class/instance/remoteTrackingHistorian.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -remoteTrackingHistorian - ^ remoteTrackingHistorian \ No newline at end of file diff --git a/src/Squit.package/SquitIllegalUseOfRemoteTrackingBranch.class/methodProperties.json b/src/Squit.package/SquitIllegalUseOfRemoteTrackingBranch.class/methodProperties.json deleted file mode 100644 index e43995471..000000000 --- a/src/Squit.package/SquitIllegalUseOfRemoteTrackingBranch.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - "historian:" : "jr 7/25/2020 17:45" }, - "instance" : { - "remoteTrackingHistorian" : "jr 7/22/2020 22:25", - "remoteTrackingHistorian:" : "jr 7/22/2020 22:25" } } diff --git a/src/Squit.package/SquitIllegalUseOfRemoteTrackingBranch.class/properties.json b/src/Squit.package/SquitIllegalUseOfRemoteTrackingBranch.class/properties.json deleted file mode 100644 index 1cd16870d..000000000 --- a/src/Squit.package/SquitIllegalUseOfRemoteTrackingBranch.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squit-Exceptions", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 21:14", - "instvars" : [ - "remoteTrackingHistorian" ], - "name" : "SquitIllegalUseOfRemoteTrackingBranch", - "pools" : [ - ], - "super" : "Error", - "type" : "normal" } diff --git a/src/Squit.package/SquitInteractiveAddRemote.class/README.md b/src/Squit.package/SquitInteractiveAddRemote.class/README.md deleted file mode 100644 index 1b92b063c..000000000 --- a/src/Squit.package/SquitInteractiveAddRemote.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I prompt the user to enter a new remote and fetch from it, removing the remote again if during the fetch it turns out that there is a problem with the new remote. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveAddRemote.class/class/repository..st b/src/Squit.package/SquitInteractiveAddRemote.class/class/repository..st deleted file mode 100644 index 25ffb4c11..000000000 --- a/src/Squit.package/SquitInteractiveAddRemote.class/class/repository..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -repository: aSquitRepository - ^ self new - repository: aSquitRepository; - yourself \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveAddRemote.class/instance/fetch.st b/src/Squit.package/SquitInteractiveAddRemote.class/instance/fetch.st deleted file mode 100644 index e30752db7..000000000 --- a/src/Squit.package/SquitInteractiveAddRemote.class/instance/fetch.st +++ /dev/null @@ -1,11 +0,0 @@ -fetching -fetch - ^ (SquitInteractiveFetch - repository: repository - remoteNames: {query remoteName}) - run - then: [:x | promise resolveWith: query] - ifRejected: - [:x | - self undo. - self retry] \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveAddRemote.class/instance/initializeQuery.st b/src/Squit.package/SquitInteractiveAddRemote.class/instance/initializeQuery.st deleted file mode 100644 index b56e18157..000000000 --- a/src/Squit.package/SquitInteractiveAddRemote.class/instance/initializeQuery.st +++ /dev/null @@ -1,4 +0,0 @@ -running -initializeQuery - query := SquitAddRemote new. - query remoteName: self proposedRemoteName. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveAddRemote.class/instance/notifyRemoteAdded.st b/src/Squit.package/SquitInteractiveAddRemote.class/instance/notifyRemoteAdded.st deleted file mode 100644 index 36cc2cddc..000000000 --- a/src/Squit.package/SquitInteractiveAddRemote.class/instance/notifyRemoteAdded.st +++ /dev/null @@ -1,5 +0,0 @@ -private -notifyRemoteAdded - remoteAddedCallbacks ifNil: [^ self]. - remoteAddedCallbacks do: - [:each | each cull: query]. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveAddRemote.class/instance/notifyRollback.st b/src/Squit.package/SquitInteractiveAddRemote.class/instance/notifyRollback.st deleted file mode 100644 index f7d4c793b..000000000 --- a/src/Squit.package/SquitInteractiveAddRemote.class/instance/notifyRollback.st +++ /dev/null @@ -1,5 +0,0 @@ -private -notifyRollback - rollbackCallbacks ifNil: [^ self]. - rollbackCallbacks do: - [:each | each cull: query]. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveAddRemote.class/instance/onQueryClose..st b/src/Squit.package/SquitInteractiveAddRemote.class/instance/onQueryClose..st deleted file mode 100644 index 424f82605..000000000 --- a/src/Squit.package/SquitInteractiveAddRemote.class/instance/onQueryClose..st +++ /dev/null @@ -1,11 +0,0 @@ -private -onQueryClose: aSquitAddRemote - aSquitAddRemote accepted ifFalse: [^ promise rejectWith: #cancelled]. - self withActiveUnitOfWork: - [repository fsgitRepository - addRemote: aSquitAddRemote remoteName asString - url: aSquitAddRemote remoteUrl asString. - self notifyRemoteAdded. - (self requestFetchFromRemoteNamed: aSquitAddRemote remoteName) - ifTrue: [self fetch] - ifFalse: [promise resolveWith: aSquitAddRemote]]. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveAddRemote.class/instance/onRemoteAddedDo..st b/src/Squit.package/SquitInteractiveAddRemote.class/instance/onRemoteAddedDo..st deleted file mode 100644 index 49fcd580c..000000000 --- a/src/Squit.package/SquitInteractiveAddRemote.class/instance/onRemoteAddedDo..st +++ /dev/null @@ -1,4 +0,0 @@ -events -onRemoteAddedDo: aBlock - remoteAddedCallbacks ifNil: [remoteAddedCallbacks := OrderedCollection new]. - remoteAddedCallbacks add: aBlock. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveAddRemote.class/instance/onRollbackDo..st b/src/Squit.package/SquitInteractiveAddRemote.class/instance/onRollbackDo..st deleted file mode 100644 index 0fb079bc3..000000000 --- a/src/Squit.package/SquitInteractiveAddRemote.class/instance/onRollbackDo..st +++ /dev/null @@ -1,4 +0,0 @@ -events -onRollbackDo: aBlock - rollbackCallbacks ifNil: [rollbackCallbacks := OrderedCollection new]. - rollbackCallbacks add: aBlock. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveAddRemote.class/instance/proposedRemoteName.st b/src/Squit.package/SquitInteractiveAddRemote.class/instance/proposedRemoteName.st deleted file mode 100644 index 2555b66f4..000000000 --- a/src/Squit.package/SquitInteractiveAddRemote.class/instance/proposedRemoteName.st +++ /dev/null @@ -1,13 +0,0 @@ -running -proposedRemoteName - | suggestion isFirstRemote isGitHubUrl | - isFirstRemote := self repository remoteNames isEmpty. - isFirstRemote - ifTrue: [suggestion := 'origin'] - ifFalse: - [isGitHubUrl := query remoteUrl includesSubstring: '://github.com/'. - isGitHubUrl ifTrue: - [ | repoOwner | repoOwner := (query remoteUrl splitBy: '/') at: 4 ifAbsent: []. - suggestion := repoOwner]]. - (self repository remoteNames includes: suggestion) ifTrue: [suggestion := nil]. - ^ suggestion ifNil: [''] \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveAddRemote.class/instance/query.st b/src/Squit.package/SquitInteractiveAddRemote.class/instance/query.st deleted file mode 100644 index b8c71e730..000000000 --- a/src/Squit.package/SquitInteractiveAddRemote.class/instance/query.st +++ /dev/null @@ -1,3 +0,0 @@ -private accessing -query - ^ query \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveAddRemote.class/instance/requestFetchFromRemoteNamed..st b/src/Squit.package/SquitInteractiveAddRemote.class/instance/requestFetchFromRemoteNamed..st deleted file mode 100644 index 434691ca3..000000000 --- a/src/Squit.package/SquitInteractiveAddRemote.class/instance/requestFetchFromRemoteNamed..st +++ /dev/null @@ -1,3 +0,0 @@ -fetching -requestFetchFromRemoteNamed: aString - ^ self confirm: 'Do you want to fetch from remote ', aString, ' now?' \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveAddRemote.class/instance/requestRemoteDetails.st b/src/Squit.package/SquitInteractiveAddRemote.class/instance/requestRemoteDetails.st deleted file mode 100644 index 10bbe2278..000000000 --- a/src/Squit.package/SquitInteractiveAddRemote.class/instance/requestRemoteDetails.st +++ /dev/null @@ -1,4 +0,0 @@ -private -requestRemoteDetails - query afterCloseContinueIn: self with: #onQueryClose:. - Project current addDeferredUIMessage: [query open]. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveAddRemote.class/instance/retry.st b/src/Squit.package/SquitInteractiveAddRemote.class/instance/retry.st deleted file mode 100644 index 24f8c187c..000000000 --- a/src/Squit.package/SquitInteractiveAddRemote.class/instance/retry.st +++ /dev/null @@ -1,3 +0,0 @@ -private -retry - self requestRemoteDetails. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveAddRemote.class/instance/run.st b/src/Squit.package/SquitInteractiveAddRemote.class/instance/run.st deleted file mode 100644 index d6dd1eac7..000000000 --- a/src/Squit.package/SquitInteractiveAddRemote.class/instance/run.st +++ /dev/null @@ -1,8 +0,0 @@ -running -run - promise := Promise new. - Project current addDeferredUIMessage: - [self withActiveUnitOfWork: - [self initializeQuery; - requestRemoteDetails]]. - ^ promise "will be resolved with a SquitAddRemote or rejected with #cancelled" \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveAddRemote.class/instance/undo.st b/src/Squit.package/SquitInteractiveAddRemote.class/instance/undo.st deleted file mode 100644 index f9e4f0f2a..000000000 --- a/src/Squit.package/SquitInteractiveAddRemote.class/instance/undo.st +++ /dev/null @@ -1,6 +0,0 @@ -private -undo - self withActiveUnitOfWork: - [repository fsgitRepository - removeRemoteNamed: query remoteName]. - self notifyRollback. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveAddRemote.class/methodProperties.json b/src/Squit.package/SquitInteractiveAddRemote.class/methodProperties.json deleted file mode 100644 index 10c313519..000000000 --- a/src/Squit.package/SquitInteractiveAddRemote.class/methodProperties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "class" : { - "repository:" : "jr 8/30/2020 19:26" }, - "instance" : { - "fetch" : "jr 7/1/2020 21:52", - "initializeQuery" : "jr 8/30/2020 19:32", - "notifyRemoteAdded" : "jr 7/1/2020 21:41", - "notifyRollback" : "jr 7/1/2020 21:42", - "onQueryClose:" : "jr 8/8/2020 00:00", - "onRemoteAddedDo:" : "jr 7/1/2020 21:39", - "onRollbackDo:" : "jr 7/1/2020 21:40", - "proposedRemoteName" : "jr 8/30/2020 20:01", - "query" : "jr 8/30/2020 20:06", - "requestFetchFromRemoteNamed:" : "jr 8/8/2020 00:00", - "requestRemoteDetails" : "jr 7/1/2020 21:32", - "retry" : "jr 7/1/2020 21:32", - "run" : "jr 8/30/2020 19:34", - "undo" : "jr 7/1/2020 21:54" } } diff --git a/src/Squit.package/SquitInteractiveAddRemote.class/properties.json b/src/Squit.package/SquitInteractiveAddRemote.class/properties.json deleted file mode 100644 index edf40841f..000000000 --- a/src/Squit.package/SquitInteractiveAddRemote.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squit-UI", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 21:16", - "instvars" : [ - "query", - "remoteAddedCallbacks", - "rollbackCallbacks" ], - "name" : "SquitInteractiveAddRemote", - "pools" : [ - ], - "super" : "SquitInteractiveOperation", - "type" : "normal" } diff --git a/src/Squit.package/SquitInteractiveAddRemoteTest.class/README.md b/src/Squit.package/SquitInteractiveAddRemoteTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squit.package/SquitInteractiveAddRemoteTest.class/instance/repository.st b/src/Squit.package/SquitInteractiveAddRemoteTest.class/instance/repository.st deleted file mode 100644 index 5be976386..000000000 --- a/src/Squit.package/SquitInteractiveAddRemoteTest.class/instance/repository.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -repository - ^ repository \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveAddRemoteTest.class/instance/setUp.st b/src/Squit.package/SquitInteractiveAddRemoteTest.class/instance/setUp.st deleted file mode 100644 index f5f8df71e..000000000 --- a/src/Squit.package/SquitInteractiveAddRemoteTest.class/instance/setUp.st +++ /dev/null @@ -1,4 +0,0 @@ -running -setUp - repository := SquitRepository onDirectory: FileSystem memory root. - operation := SquitInteractiveAddRemote repository: repository. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveAddRemoteTest.class/instance/testProposesGitHubRepositoryOwner.st b/src/Squit.package/SquitInteractiveAddRemoteTest.class/instance/testProposesGitHubRepositoryOwner.st deleted file mode 100644 index da3497ac2..000000000 --- a/src/Squit.package/SquitInteractiveAddRemoteTest.class/instance/testProposesGitHubRepositoryOwner.st +++ /dev/null @@ -1,18 +0,0 @@ -tests -testProposesGitHubRepositoryOwner - | oldClipboardText proposedUrl | - "given that a remote already exists" - repository fsgitRepository - addRemote: 'origin' - url: 'https://somewhere-over-the-rainbow.com/git'. - "when" - proposedUrl := 'https://github.com/hpi-swa/Squot.git'. - oldClipboardText := Clipboard clipboardText. - [Clipboard clipboardText: proposedUrl. - operation initializeQuery. - "then" - self assert: 'hpi-swa' equals: operation query remoteName - "eventually" - ] ensure: - [Clipboard clipboardText = proposedUrl ifTrue: - [Clipboard clipboardText: oldClipboardText]] \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveAddRemoteTest.class/instance/testProposesOrigin.st b/src/Squit.package/SquitInteractiveAddRemoteTest.class/instance/testProposesOrigin.st deleted file mode 100644 index 20b4fc970..000000000 --- a/src/Squit.package/SquitInteractiveAddRemoteTest.class/instance/testProposesOrigin.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testProposesOrigin - "when" - operation initializeQuery. - "then" - self assert: 'origin' equals: operation query remoteName. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveAddRemoteTest.class/methodProperties.json b/src/Squit.package/SquitInteractiveAddRemoteTest.class/methodProperties.json deleted file mode 100644 index 206feb523..000000000 --- a/src/Squit.package/SquitInteractiveAddRemoteTest.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "repository" : "jr 8/7/2022 19:17", - "setUp" : "jr 8/30/2020 20:04", - "testProposesGitHubRepositoryOwner" : "jr 8/30/2020 20:12", - "testProposesOrigin" : "jr 8/30/2020 20:05" } } diff --git a/src/Squit.package/SquitInteractiveAddRemoteTest.class/properties.json b/src/Squit.package/SquitInteractiveAddRemoteTest.class/properties.json deleted file mode 100644 index 37ba33854..000000000 --- a/src/Squit.package/SquitInteractiveAddRemoteTest.class/properties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "category" : "Squit-Tests-UI", - "classinstvars" : [ - ], - "classtraitcomposition" : "TGitActiveUnitOfWorkDuringTest classTrait", - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "repository", - "operation" ], - "name" : "SquitInteractiveAddRemoteTest", - "pools" : [ - ], - "super" : "TestCase", - "traitcomposition" : "TGitActiveUnitOfWorkDuringTest", - "type" : "normal" } diff --git a/src/Squit.package/SquitInteractiveClone.class/README.md b/src/Squit.package/SquitInteractiveClone.class/README.md deleted file mode 100644 index 431a079e9..000000000 --- a/src/Squit.package/SquitInteractiveClone.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I prompt the user where to clone a repository from and where to put the clone. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveClone.class/instance/checkDirectory.ifNotEmpty..st b/src/Squit.package/SquitInteractiveClone.class/instance/checkDirectory.ifNotEmpty..st deleted file mode 100644 index 432b6a4d1..000000000 --- a/src/Squit.package/SquitInteractiveClone.class/instance/checkDirectory.ifNotEmpty..st +++ /dev/null @@ -1,3 +0,0 @@ -private -checkDirectory: aDirectory ifNotEmpty: aBlock - aDirectory fileSystem childrenAt: aDirectory do: [:unimportant | aBlock value]. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveClone.class/instance/clone.st b/src/Squit.package/SquitInteractiveClone.class/instance/clone.st deleted file mode 100644 index 91e2bdbfa..000000000 --- a/src/Squit.package/SquitInteractiveClone.class/instance/clone.st +++ /dev/null @@ -1,7 +0,0 @@ -running -clone - self requestUrl ifNil: [^ nil]. - self createRepository ifNil: [^ nil]. - repository withUnitOfWork: - [self fetchAndSetUp ifNil: [^ nil]]. - self registerWorkingCopy ifNil: [^ nil]. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveClone.class/instance/createRepository.st b/src/Squit.package/SquitInteractiveClone.class/instance/createRepository.st deleted file mode 100644 index e3cc2ed99..000000000 --- a/src/Squit.package/SquitInteractiveClone.class/instance/createRepository.st +++ /dev/null @@ -1,13 +0,0 @@ -private -createRepository - directory := - directory - ifNil: [SquotGUI chooseDirectory: 'Repository directory'] - ifNotNil: [SquotGUI chooseDirectory: 'Repository directory' from: directory]. - directory ifNil: [^ nil]. - directory := FileSystem disk root resolve: directory pathName. - self checkDirectory: directory ifNotEmpty: - [(SquotGUI confirm: 'Directory is not empty. Really clone to this directory?') - ifFalse: [^ nil]]. - repository := SquitRepository new initializeInDirectory: directory. - ^ repository \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveClone.class/instance/fetchAndSetUp.st b/src/Squit.package/SquitInteractiveClone.class/instance/fetchAndSetUp.st deleted file mode 100644 index 12e21691b..000000000 --- a/src/Squit.package/SquitInteractiveClone.class/instance/fetchAndSetUp.st +++ /dev/null @@ -1,12 +0,0 @@ -running -fetchAndSetUp - repository git branchNames ifNotEmpty: - [(self confirm: 'The selected local repository already contains commits!', String cr, 'Do you really want to set ', remoteUrl, ' as the origin remote ', String cr, 'and reset all local branches?') - ifFalse: [^ nil]]. - self handleRemoteErrorsWhile: - [[self handlingCredentialsOf: repository - do: [repository cloneFrom: remoteUrl] - ifCanceled: [^ nil "nothing cloned"]] - on: GitRemoteResourceNotFound do: - [:e | self errorRemoteResourceNotFound: e. ^ nil "nothing cloned"]] - afterErrorDo: [^ nil "gave up, nothing cloned"]. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveClone.class/instance/registerWorkingCopy.st b/src/Squit.package/SquitInteractiveClone.class/instance/registerWorkingCopy.st deleted file mode 100644 index 17b49acf4..000000000 --- a/src/Squit.package/SquitInteractiveClone.class/instance/registerWorkingCopy.st +++ /dev/null @@ -1,11 +0,0 @@ -running -registerWorkingCopy - | name | - workingCopy := SquotWorkingCopy newOnObjectMemory. - workingCopy repository: repository. - self setLoadedHistorianFromHead. - name := SquotGUI request: 'Project name:'. - name ifEmpty: [^ nil]. - workingCopy name: name. - workingCopy register. - ^ workingCopy \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveClone.class/instance/requestUrl.st b/src/Squit.package/SquitInteractiveClone.class/instance/requestUrl.st deleted file mode 100644 index 5c4eecec7..000000000 --- a/src/Squit.package/SquitInteractiveClone.class/instance/requestUrl.st +++ /dev/null @@ -1,11 +0,0 @@ -private -requestUrl - | clipboardUrl | - remoteUrl ifNil: - [clipboardUrl := Clipboard clipboardText. - remoteUrl := (self isRemoteSupported: clipboardUrl) ifTrue: [clipboardUrl] ifFalse: ['https://']]. - remoteUrl := SquotGUI request: 'URL to clone from:' initialAnswer: remoteUrl. - remoteUrl isEmptyOrNil ifTrue: [^ nil]. - (self isRemoteSupported: remoteUrl) - ifFalse: [self inform: 'This URL is not supported at the moment.'. ^ nil]. - ^ remoteUrl \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveClone.class/instance/setLoadedHistorianFromHead.st b/src/Squit.package/SquitInteractiveClone.class/instance/setLoadedHistorianFromHead.st deleted file mode 100644 index e4b5bcf76..000000000 --- a/src/Squit.package/SquitInteractiveClone.class/instance/setLoadedHistorianFromHead.st +++ /dev/null @@ -1,12 +0,0 @@ -running -setLoadedHistorianFromHead - | head | - repository unitOfWork - activateDuring: - [head := (repository gitRepository unitOfWork ref: 'HEAD') - ifNotNil: [:ref | ref isSymbolic - ifTrue: [ref targetRef]]. - head ifNotNil: [:ref | (ref beginsWith: 'refs/heads/') - ifTrue: [head := head allButFirst: 'refs/heads/' size]]. - workingCopy - loadedHistorian: (repository historianNamed: (head ifNil: ['master']))] \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveClone.class/methodProperties.json b/src/Squit.package/SquitInteractiveClone.class/methodProperties.json deleted file mode 100644 index b282d9d74..000000000 --- a/src/Squit.package/SquitInteractiveClone.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "checkDirectory:ifNotEmpty:" : "jr 12/18/2021 00:32", - "clone" : "jr 8/8/2020 01:07", - "createRepository" : "jr 12/18/2021 00:25", - "fetchAndSetUp" : "jr 8/8/2020 01:15", - "registerWorkingCopy" : "jr 5/14/2021 21:52", - "requestUrl" : "ct 9/15/2022 19:01", - "setLoadedHistorianFromHead" : "jr 5/14/2021 21:52" } } diff --git a/src/Squit.package/SquitInteractiveClone.class/properties.json b/src/Squit.package/SquitInteractiveClone.class/properties.json deleted file mode 100644 index 3ccc2df14..000000000 --- a/src/Squit.package/SquitInteractiveClone.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squit-UI", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 21:17", - "instvars" : [ - "remoteUrl", - "directory" ], - "name" : "SquitInteractiveClone", - "pools" : [ - ], - "super" : "SquitInteractiveRemoteOperation", - "type" : "normal" } diff --git a/src/Squit.package/SquitInteractiveEditRemote.class/README.md b/src/Squit.package/SquitInteractiveEditRemote.class/README.md deleted file mode 100644 index 42fbc9002..000000000 --- a/src/Squit.package/SquitInteractiveEditRemote.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I show users the current properties of a remote and allow users to change them. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveEditRemote.class/class/repository.remote..st b/src/Squit.package/SquitInteractiveEditRemote.class/class/repository.remote..st deleted file mode 100644 index 00196fa2f..000000000 --- a/src/Squit.package/SquitInteractiveEditRemote.class/class/repository.remote..st +++ /dev/null @@ -1,7 +0,0 @@ -instance creation -repository: aSquitRepository remote: aGitRemote - self flag: #remoteRepository. - ^ self new - setRepository: aSquitRepository - remote: aGitRemote; - yourself. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveEditRemote.class/instance/remote..st b/src/Squit.package/SquitInteractiveEditRemote.class/instance/remote..st deleted file mode 100644 index d66a23d8a..000000000 --- a/src/Squit.package/SquitInteractiveEditRemote.class/instance/remote..st +++ /dev/null @@ -1,6 +0,0 @@ -running -remote: aGitRemote - originalRemote := aGitRemote. - query := SquitAddRemote new. - query remoteName: aGitRemote name; - remoteUrl: aGitRemote url. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveEditRemote.class/instance/run.st b/src/Squit.package/SquitInteractiveEditRemote.class/instance/run.st deleted file mode 100644 index 3cff6c2df..000000000 --- a/src/Squit.package/SquitInteractiveEditRemote.class/instance/run.st +++ /dev/null @@ -1,7 +0,0 @@ -running -run - promise := Promise new. - self assert: query notNil description: 'Should have sent remote: first.'. - self requestRemoteDetails. - [SquotGUI waitFor: promise] "will be resolved with a SquitAddRemote or rejected with #cancelled" - on: BrokenPromise do: [:e | e ifNotError: [^ self undo]]. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveEditRemote.class/instance/setRepository.remote..st b/src/Squit.package/SquitInteractiveEditRemote.class/instance/setRepository.remote..st deleted file mode 100644 index 1bdbf08ba..000000000 --- a/src/Squit.package/SquitInteractiveEditRemote.class/instance/setRepository.remote..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -setRepository: aSquitRepository remote: aGitRemote - self repository: aSquitRepository; - remote: aGitRemote. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveEditRemote.class/instance/undo.st b/src/Squit.package/SquitInteractiveEditRemote.class/instance/undo.st deleted file mode 100644 index b6ae33c9b..000000000 --- a/src/Squit.package/SquitInteractiveEditRemote.class/instance/undo.st +++ /dev/null @@ -1,4 +0,0 @@ -private -undo - originalRemote addTo: repository git. - self notifyRollback. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveEditRemote.class/methodProperties.json b/src/Squit.package/SquitInteractiveEditRemote.class/methodProperties.json deleted file mode 100644 index f4d825f98..000000000 --- a/src/Squit.package/SquitInteractiveEditRemote.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - "repository:remote:" : "jr 8/30/2020 19:23" }, - "instance" : { - "remote:" : "jr 8/2/2020 22:19", - "run" : "jr 8/9/2020 22:45", - "setRepository:remote:" : "jr 8/30/2020 19:25", - "undo" : "jr 8/2/2020 22:20" } } diff --git a/src/Squit.package/SquitInteractiveEditRemote.class/properties.json b/src/Squit.package/SquitInteractiveEditRemote.class/properties.json deleted file mode 100644 index 7d46c40c4..000000000 --- a/src/Squit.package/SquitInteractiveEditRemote.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squit-UI", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 21:17", - "instvars" : [ - "originalRemote" ], - "name" : "SquitInteractiveEditRemote", - "pools" : [ - ], - "super" : "SquitInteractiveAddRemote", - "type" : "normal" } diff --git a/src/Squit.package/SquitInteractiveFetch.class/README.md b/src/Squit.package/SquitInteractiveFetch.class/README.md deleted file mode 100644 index 498fbb19b..000000000 --- a/src/Squit.package/SquitInteractiveFetch.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I fetch from one or more remotes and prompt users if there are any errors or credentials are needed. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveFetch.class/class/repository.remoteNames..st b/src/Squit.package/SquitInteractiveFetch.class/class/repository.remoteNames..st deleted file mode 100644 index 55665706b..000000000 --- a/src/Squit.package/SquitInteractiveFetch.class/class/repository.remoteNames..st +++ /dev/null @@ -1,6 +0,0 @@ -instance creation -repository: aSquitRepository remoteNames: aCollection - ^ self new - repository: aSquitRepository; - remoteNames: aCollection; - yourself \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveFetch.class/instance/fetch.st b/src/Squit.package/SquitInteractiveFetch.class/instance/fetch.st deleted file mode 100644 index 77a7160a8..000000000 --- a/src/Squit.package/SquitInteractiveFetch.class/instance/fetch.st +++ /dev/null @@ -1,13 +0,0 @@ -private -fetch - remoteNames ifNil: [^ self error: 'Incompletely initialzed: Remote names missing']. - [self - handleRemoteErrorsWhile: - [self handlingCredentialsOf: repository - do: [repository importFromAll: remoteNames] - ifCanceled: [^ nil]] - afterErrorDo: [^ nil]] - on: GitNothingToFetch do: - [:e | self inform: 'There are no branches at the remote, so nothing was fetched.'. - "This is not an error case, just for information. So do not return nil here."]. - self flag: #todo. "In the future, might collect all updated refs and return that." \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveFetch.class/instance/remoteNames..st b/src/Squit.package/SquitInteractiveFetch.class/instance/remoteNames..st deleted file mode 100644 index 76a99812d..000000000 --- a/src/Squit.package/SquitInteractiveFetch.class/instance/remoteNames..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -remoteNames: anObject - remoteNames := anObject \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveFetch.class/instance/remoteNames.st b/src/Squit.package/SquitInteractiveFetch.class/instance/remoteNames.st deleted file mode 100644 index e24d772f2..000000000 --- a/src/Squit.package/SquitInteractiveFetch.class/instance/remoteNames.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -remoteNames - ^ remoteNames \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveFetch.class/instance/run.st b/src/Squit.package/SquitInteractiveFetch.class/instance/run.st deleted file mode 100644 index b4400dc25..000000000 --- a/src/Squit.package/SquitInteractiveFetch.class/instance/run.st +++ /dev/null @@ -1,8 +0,0 @@ -running -run - remoteNames ifNil: [^ self error: 'Incompletely initialzed: Remote names missing']. - promise := Promise new. - [self withActiveUnitOfWork: - [[self fetch ifNil: [promise reject] ifNotNil: [promise resolve]] - ifCurtailed: [promise reject]]] fork. - ^ promise \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveFetch.class/methodProperties.json b/src/Squit.package/SquitInteractiveFetch.class/methodProperties.json deleted file mode 100644 index 5b6863b87..000000000 --- a/src/Squit.package/SquitInteractiveFetch.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - "repository:remoteNames:" : "jr 6/18/2020 00:00" }, - "instance" : { - "fetch" : "jr 9/6/2020 21:14", - "remoteNames" : "jr 6/17/2020 23:45", - "remoteNames:" : "jr 6/17/2020 23:45", - "run" : "jr 8/7/2020 23:59" } } diff --git a/src/Squit.package/SquitInteractiveFetch.class/properties.json b/src/Squit.package/SquitInteractiveFetch.class/properties.json deleted file mode 100644 index 640f4c821..000000000 --- a/src/Squit.package/SquitInteractiveFetch.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squit-UI", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 21:18", - "instvars" : [ - "remoteNames" ], - "name" : "SquitInteractiveFetch", - "pools" : [ - ], - "super" : "SquitInteractiveRemoteOperation", - "type" : "normal" } diff --git a/src/Squit.package/SquitInteractiveOperation.class/README.md b/src/Squit.package/SquitInteractiveOperation.class/README.md deleted file mode 100644 index 9417bf7fc..000000000 --- a/src/Squit.package/SquitInteractiveOperation.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am an abstract method object for a Git operation that would be too long if fit into a single method. This helps that SquitBrowser does not become a god class with hundreds of methods. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveOperation.class/instance/cancel.st b/src/Squit.package/SquitInteractiveOperation.class/instance/cancel.st deleted file mode 100644 index 5cac9c7c2..000000000 --- a/src/Squit.package/SquitInteractiveOperation.class/instance/cancel.st +++ /dev/null @@ -1,3 +0,0 @@ -running -cancel - self finish. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveOperation.class/instance/confirm..st b/src/Squit.package/SquitInteractiveOperation.class/instance/confirm..st deleted file mode 100644 index 60db2b7e3..000000000 --- a/src/Squit.package/SquitInteractiveOperation.class/instance/confirm..st +++ /dev/null @@ -1,4 +0,0 @@ -user interface -confirm: aString - "Make sure the dialog is run in the UI process." - ^ SquotGUI confirm: aString. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveOperation.class/instance/finish.st b/src/Squit.package/SquitInteractiveOperation.class/instance/finish.st deleted file mode 100644 index ac06ca431..000000000 --- a/src/Squit.package/SquitInteractiveOperation.class/instance/finish.st +++ /dev/null @@ -1,3 +0,0 @@ -private -finish - wasUnitOfWorkStarted ifTrue: [unitOfWork finish]. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveOperation.class/instance/inform..st b/src/Squit.package/SquitInteractiveOperation.class/instance/inform..st deleted file mode 100644 index d1420024c..000000000 --- a/src/Squit.package/SquitInteractiveOperation.class/instance/inform..st +++ /dev/null @@ -1,4 +0,0 @@ -user interface -inform: aString - "Make sure the dialog is run in the UI process." - SquotGUI inform: aString. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveOperation.class/instance/initialize.st b/src/Squit.package/SquitInteractiveOperation.class/instance/initialize.st deleted file mode 100644 index fa021f2f2..000000000 --- a/src/Squit.package/SquitInteractiveOperation.class/instance/initialize.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -initialize - wasUnitOfWorkStarted := false. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveOperation.class/instance/newUnitOfWork.st b/src/Squit.package/SquitInteractiveOperation.class/instance/newUnitOfWork.st deleted file mode 100644 index 24cc1d873..000000000 --- a/src/Squit.package/SquitInteractiveOperation.class/instance/newUnitOfWork.st +++ /dev/null @@ -1,3 +0,0 @@ -private -newUnitOfWork - ^ unitOfWork := repository unitOfWork \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveOperation.class/instance/repository..st b/src/Squit.package/SquitInteractiveOperation.class/instance/repository..st deleted file mode 100644 index 2ab1f702c..000000000 --- a/src/Squit.package/SquitInteractiveOperation.class/instance/repository..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -repository: aSquitRepository - repository := aSquitRepository. - unitOfWork ifNil: [self newUnitOfWork]. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveOperation.class/instance/repository.st b/src/Squit.package/SquitInteractiveOperation.class/instance/repository.st deleted file mode 100644 index 5be976386..000000000 --- a/src/Squit.package/SquitInteractiveOperation.class/instance/repository.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -repository - ^ repository \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveOperation.class/instance/run.st b/src/Squit.package/SquitInteractiveOperation.class/instance/run.st deleted file mode 100644 index 2934a2806..000000000 --- a/src/Squit.package/SquitInteractiveOperation.class/instance/run.st +++ /dev/null @@ -1,3 +0,0 @@ -running -run - self subclassResponsibility \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveOperation.class/instance/unitOfWork..st b/src/Squit.package/SquitInteractiveOperation.class/instance/unitOfWork..st deleted file mode 100644 index 62d730866..000000000 --- a/src/Squit.package/SquitInteractiveOperation.class/instance/unitOfWork..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -unitOfWork: aSquitUnitOfWork - unitOfWork := aSquitUnitOfWork. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveOperation.class/instance/unitOfWork.st b/src/Squit.package/SquitInteractiveOperation.class/instance/unitOfWork.st deleted file mode 100644 index 51ae87c75..000000000 --- a/src/Squit.package/SquitInteractiveOperation.class/instance/unitOfWork.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -unitOfWork - ^ unitOfWork ifNil: [self newUnitOfWork] \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveOperation.class/instance/withActiveUnitOfWork..st b/src/Squit.package/SquitInteractiveOperation.class/instance/withActiveUnitOfWork..st deleted file mode 100644 index 87b9fdc55..000000000 --- a/src/Squit.package/SquitInteractiveOperation.class/instance/withActiveUnitOfWork..st +++ /dev/null @@ -1,4 +0,0 @@ -private -withActiveUnitOfWork: aBlock - wasUnitOfWorkStarted ifFalse: [unitOfWork start. wasUnitOfWorkStarted := true]. - self unitOfWork activateDuring: aBlock. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveOperation.class/instance/workingCopy..st b/src/Squit.package/SquitInteractiveOperation.class/instance/workingCopy..st deleted file mode 100644 index d980a5200..000000000 --- a/src/Squit.package/SquitInteractiveOperation.class/instance/workingCopy..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -workingCopy: anObject - workingCopy := anObject. - repository := workingCopy repository. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveOperation.class/instance/workingCopy.st b/src/Squit.package/SquitInteractiveOperation.class/instance/workingCopy.st deleted file mode 100644 index 685b55241..000000000 --- a/src/Squit.package/SquitInteractiveOperation.class/instance/workingCopy.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -workingCopy - ^ workingCopy \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveOperation.class/methodProperties.json b/src/Squit.package/SquitInteractiveOperation.class/methodProperties.json deleted file mode 100644 index 09436c3cd..000000000 --- a/src/Squit.package/SquitInteractiveOperation.class/methodProperties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "cancel" : "jr 6/17/2020 23:51", - "confirm:" : "jr 7/24/2020 11:34", - "finish" : "jr 6/17/2020 23:44", - "inform:" : "jr 7/24/2020 11:34", - "initialize" : "jr 6/20/2020 17:06", - "newUnitOfWork" : "jr 6/17/2020 23:57", - "repository" : "jr 8/3/2020 00:04", - "repository:" : "jr 6/20/2020 17:19", - "run" : "jr 6/17/2020 23:55", - "unitOfWork" : "jr 6/17/2020 23:44", - "unitOfWork:" : "jr 6/18/2020 00:03", - "withActiveUnitOfWork:" : "jr 6/17/2020 23:43", - "workingCopy" : "jr 8/1/2020 17:40", - "workingCopy:" : "jr 8/3/2020 00:03" } } diff --git a/src/Squit.package/SquitInteractiveOperation.class/properties.json b/src/Squit.package/SquitInteractiveOperation.class/properties.json deleted file mode 100644 index 82c4f0996..000000000 --- a/src/Squit.package/SquitInteractiveOperation.class/properties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "category" : "Squit-UI", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 21:22", - "instvars" : [ - "promise", - "workingCopy", - "repository", - "unitOfWork", - "wasUnitOfWorkStarted" ], - "name" : "SquitInteractiveOperation", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squit.package/SquitInteractivePullFromUpstream.class/README.md b/src/Squit.package/SquitInteractivePullFromUpstream.class/README.md deleted file mode 100644 index 129883432..000000000 --- a/src/Squit.package/SquitInteractivePullFromUpstream.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I pull from the tracked remote branch. In case of errors or missing credentials I prompt users how to proceed. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractivePullFromUpstream.class/class/workingCopy..st b/src/Squit.package/SquitInteractivePullFromUpstream.class/class/workingCopy..st deleted file mode 100644 index 2726b7211..000000000 --- a/src/Squit.package/SquitInteractivePullFromUpstream.class/class/workingCopy..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -workingCopy: aWorkingCopy - ^ self new - workingCopy: aWorkingCopy; - yourself \ No newline at end of file diff --git a/src/Squit.package/SquitInteractivePullFromUpstream.class/instance/fetchFromUpstream.st b/src/Squit.package/SquitInteractivePullFromUpstream.class/instance/fetchFromUpstream.st deleted file mode 100644 index bc6e1a177..000000000 --- a/src/Squit.package/SquitInteractivePullFromUpstream.class/instance/fetchFromUpstream.st +++ /dev/null @@ -1,7 +0,0 @@ -private -fetchFromUpstream - self handleRemoteErrorsWhile: - [self handlingCredentialsOf: self workingCopy repository - do: [localHistorian importFromUpstream] - ifCanceled: [^ nil]] - afterErrorDo: [^ nil]. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractivePullFromUpstream.class/instance/merge.st b/src/Squit.package/SquitInteractivePullFromUpstream.class/instance/merge.st deleted file mode 100644 index c5c7b857e..000000000 --- a/src/Squit.package/SquitInteractivePullFromUpstream.class/instance/merge.st +++ /dev/null @@ -1,14 +0,0 @@ -private -merge - [patchLoadedDuringMerge := SquotGUI waitFor: - (self workingCopy newInteractiveMergeOperation - mergeVersion: (localHistorian upstreamVersion ifNil: - [self inform: 'Upstream branch ''', localHistorian upstreamHistorianName, ''' does not exist.'. ^ nil]); - title: localHistorian upstreamMergeMessage; - prepare; - applyToWorkingCopy)] - on: SquotVersionAlreadyInHistory do: - [self inform: 'Already on branch ', localHistorian shortName, ': ', localHistorian upstreamVersion. - ^ nil] - on: BrokenPromise "cancelled" do: - [:e | e ifNotError: [^ nil]]. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractivePullFromUpstream.class/instance/pull.st b/src/Squit.package/SquitInteractivePullFromUpstream.class/instance/pull.st deleted file mode 100644 index 93c906561..000000000 --- a/src/Squit.package/SquitInteractivePullFromUpstream.class/instance/pull.st +++ /dev/null @@ -1,10 +0,0 @@ -running -pull - "Pull versions from the upstream historian. - May signal SquitUpstreamUndefined if an upstream branch is configured but the remote is not (inconsistent configuration)." - localHistorian := self workingCopy loadedHistorian. - self fetchFromUpstream ifNil: [^ self]. - self merge ifNil: [^ self]. - self workingCopy loadedVersion = localHistorian upstreamVersion - ifTrue: [self inform: 'Adopted ', localHistorian upstreamVersion] - ifFalse: [self save ifNil: [^ self]]. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractivePullFromUpstream.class/instance/save.st b/src/Squit.package/SquitInteractivePullFromUpstream.class/instance/save.st deleted file mode 100644 index ccc82ec37..000000000 --- a/src/Squit.package/SquitInteractivePullFromUpstream.class/instance/save.st +++ /dev/null @@ -1,12 +0,0 @@ -private -save - | savePatch | - savePatch := self workingCopy baseVersion newPatchBuilder. - patchLoadedDuringMerge diffsDo: [:each | each hasChanges ifTrue: [savePatch addDiff: each]]. - [SquotGUI waitFor: - (self workingCopy newInteractiveSaveOperation - title: 'Save the merge of ', localHistorian upstreamTrackingHistorian shortName; - message: 'Merge branch ''', (localHistorian repository historianNamed: localHistorian upstreamHistorianName) shortName, ''' of ', localHistorian upstreamRemote url, ' into ', localHistorian shortName; - patch: (savePatch updateRightArtifacts; buildPatch); - applyToWorkingCopy)] - on: BrokenPromise "cancelled" do: [:e | e ifNotError: [^ nil]]. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractivePullFromUpstream.class/methodProperties.json b/src/Squit.package/SquitInteractivePullFromUpstream.class/methodProperties.json deleted file mode 100644 index c4deda855..000000000 --- a/src/Squit.package/SquitInteractivePullFromUpstream.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - "workingCopy:" : "jr 8/1/2020 17:42" }, - "instance" : { - "fetchFromUpstream" : "jr 8/2/2020 11:33", - "merge" : "jr 11/29/2020 23:50", - "pull" : "jr 11/29/2020 23:56", - "save" : "jr 7/17/2021 20:37" } } diff --git a/src/Squit.package/SquitInteractivePullFromUpstream.class/properties.json b/src/Squit.package/SquitInteractivePullFromUpstream.class/properties.json deleted file mode 100644 index c456deaf7..000000000 --- a/src/Squit.package/SquitInteractivePullFromUpstream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squit-UI", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 21:20", - "instvars" : [ - "patchLoadedDuringMerge" ], - "name" : "SquitInteractivePullFromUpstream", - "pools" : [ - ], - "super" : "SquitInteractiveRemoteOperation", - "type" : "normal" } diff --git a/src/Squit.package/SquitInteractivePush.class/README.md b/src/Squit.package/SquitInteractivePush.class/README.md deleted file mode 100644 index 143a95a48..000000000 --- a/src/Squit.package/SquitInteractivePush.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I push a branch to a remote branch, which is not necessarily the tracked branch. In case of errors or missing credentials I prompt users how to proceed. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractivePush.class/class/historian..st b/src/Squit.package/SquitInteractivePush.class/class/historian..st deleted file mode 100644 index 09c30793a..000000000 --- a/src/Squit.package/SquitInteractivePush.class/class/historian..st +++ /dev/null @@ -1,3 +0,0 @@ -unsupported -historian: aHistorian - self error: 'Factory method not valid for this class'. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractivePush.class/class/historian.remote.remoteBranchName..st b/src/Squit.package/SquitInteractivePush.class/class/historian.remote.remoteBranchName..st deleted file mode 100644 index 40effe440..000000000 --- a/src/Squit.package/SquitInteractivePush.class/class/historian.remote.remoteBranchName..st +++ /dev/null @@ -1,7 +0,0 @@ -instance creation -historian: aSquitHistorian remote: aGitRemote remoteBranchName: aString - ^ self new - setHistorian: aSquitHistorian - remote: aGitRemote - remoteBranchName: aString; - yourself \ No newline at end of file diff --git a/src/Squit.package/SquitInteractivePush.class/instance/export.st b/src/Squit.package/SquitInteractivePush.class/instance/export.st deleted file mode 100644 index 9b74ca973..000000000 --- a/src/Squit.package/SquitInteractivePush.class/instance/export.st +++ /dev/null @@ -1,3 +0,0 @@ -private -export - repository export: localHistorian withName: remoteBranchName toRemoteNamed: remote name. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractivePush.class/instance/setHistorian.remote.remoteBranchName..st b/src/Squit.package/SquitInteractivePush.class/instance/setHistorian.remote.remoteBranchName..st deleted file mode 100644 index b2ca18952..000000000 --- a/src/Squit.package/SquitInteractivePush.class/instance/setHistorian.remote.remoteBranchName..st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -setHistorian: aSquitHistorian remote: aGitRemote remoteBranchName: aString - self localHistorian: aSquitHistorian. - remote := aGitRemote. - remoteBranchName := aString. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractivePush.class/methodProperties.json b/src/Squit.package/SquitInteractivePush.class/methodProperties.json deleted file mode 100644 index ce41caf67..000000000 --- a/src/Squit.package/SquitInteractivePush.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - "historian:" : "jr 8/3/2020 00:38", - "historian:remote:remoteBranchName:" : "jr 8/3/2020 00:28" }, - "instance" : { - "export" : "jr 8/3/2020 00:33", - "setHistorian:remote:remoteBranchName:" : "jr 8/3/2020 00:33" } } diff --git a/src/Squit.package/SquitInteractivePush.class/properties.json b/src/Squit.package/SquitInteractivePush.class/properties.json deleted file mode 100644 index 57bfa1fdf..000000000 --- a/src/Squit.package/SquitInteractivePush.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squit-UI", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 21:21", - "instvars" : [ - "remote", - "remoteBranchName" ], - "name" : "SquitInteractivePush", - "pools" : [ - ], - "super" : "SquitInteractivePushToUpstream", - "type" : "normal" } diff --git a/src/Squit.package/SquitInteractivePushToUpstream.class/README.md b/src/Squit.package/SquitInteractivePushToUpstream.class/README.md deleted file mode 100644 index 5e814cff7..000000000 --- a/src/Squit.package/SquitInteractivePushToUpstream.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I push a branch to its tracked remote under the name of the tracked branch. In case of errors or missing credentials I prompt users how to proceed. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractivePushToUpstream.class/class/historian..st b/src/Squit.package/SquitInteractivePushToUpstream.class/class/historian..st deleted file mode 100644 index 725541136..000000000 --- a/src/Squit.package/SquitInteractivePushToUpstream.class/class/historian..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -historian: aHistorian - ^ self new - localHistorian: aHistorian; - yourself \ No newline at end of file diff --git a/src/Squit.package/SquitInteractivePushToUpstream.class/instance/export.st b/src/Squit.package/SquitInteractivePushToUpstream.class/instance/export.st deleted file mode 100644 index 091f344b6..000000000 --- a/src/Squit.package/SquitInteractivePushToUpstream.class/instance/export.st +++ /dev/null @@ -1,3 +0,0 @@ -private -export - localHistorian exportToUpstream. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractivePushToUpstream.class/instance/localHistorian..st b/src/Squit.package/SquitInteractivePushToUpstream.class/instance/localHistorian..st deleted file mode 100644 index 9da30a237..000000000 --- a/src/Squit.package/SquitInteractivePushToUpstream.class/instance/localHistorian..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -localHistorian: aHistorian - localHistorian := aHistorian. - repository := aHistorian repository. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractivePushToUpstream.class/instance/push.st b/src/Squit.package/SquitInteractivePushToUpstream.class/instance/push.st deleted file mode 100644 index 5a632b3ff..000000000 --- a/src/Squit.package/SquitInteractivePushToUpstream.class/instance/push.st +++ /dev/null @@ -1,13 +0,0 @@ -running -push - self - handleRemoteErrorsWhile: - [self handlingCredentialsOf: repository - do: - [[self export] - on: GitNonFastForwardPushUpdatesDetected do: - [:ex | (self confirm: 'Warning: the tip of your branch is behind its remote counterpart. Do you want to force the push anyway?') - ifTrue: [ex proceedWithForcedPush] - ifFalse: [ex return]]] - ifCanceled: [^ self]] - afterErrorDo: [^ self]. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractivePushToUpstream.class/methodProperties.json b/src/Squit.package/SquitInteractivePushToUpstream.class/methodProperties.json deleted file mode 100644 index e5af5745e..000000000 --- a/src/Squit.package/SquitInteractivePushToUpstream.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - "historian:" : "jr 8/2/2020 23:59" }, - "instance" : { - "export" : "jr 8/3/2020 00:32", - "localHistorian:" : "jr 8/2/2020 23:59", - "push" : "jr 8/3/2020 00:32" } } diff --git a/src/Squit.package/SquitInteractivePushToUpstream.class/properties.json b/src/Squit.package/SquitInteractivePushToUpstream.class/properties.json deleted file mode 100644 index 297f8cfab..000000000 --- a/src/Squit.package/SquitInteractivePushToUpstream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squit-UI", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 21:21", - "instvars" : [ - ], - "name" : "SquitInteractivePushToUpstream", - "pools" : [ - ], - "super" : "SquitInteractiveRemoteOperation", - "type" : "normal" } diff --git a/src/Squit.package/SquitInteractiveRemoteOperation.class/README.md b/src/Squit.package/SquitInteractiveRemoteOperation.class/README.md deleted file mode 100644 index fa1420251..000000000 --- a/src/Squit.package/SquitInteractiveRemoteOperation.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am an abstract method object for an operation that involves contacting remote repositories. I provide common error handling and credentials input procedures. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveRemoteOperation.class/instance/errorPushFailed..st b/src/Squit.package/SquitInteractiveRemoteOperation.class/instance/errorPushFailed..st deleted file mode 100644 index bb257a90c..000000000 --- a/src/Squit.package/SquitInteractiveRemoteOperation.class/instance/errorPushFailed..st +++ /dev/null @@ -1,14 +0,0 @@ -error handling -errorPushFailed: aGitPushFailed - | answer | - answer := SquotGUI - chooseOptionFrom: - {'Retry' translated. 'Cancel' translated. 'Debug'} - values: #(retry cancel debug) - title: aGitPushFailed messageText. - answer caseOf: - {[#retry] -> [aGitPushFailed retry]. - [#cancel] -> [^ nil]. - [#debug] -> [ToolSet handleError: aGitPushFailed]. - [nil] "Dialog closed" -> [^ nil]}. - ^ answer \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveRemoteOperation.class/instance/errorRemoteAuthenticationFailed..st b/src/Squit.package/SquitInteractiveRemoteOperation.class/instance/errorRemoteAuthenticationFailed..st deleted file mode 100644 index f975913de..000000000 --- a/src/Squit.package/SquitInteractiveRemoteOperation.class/instance/errorRemoteAuthenticationFailed..st +++ /dev/null @@ -1,25 +0,0 @@ -error handling -errorRemoteAuthenticationFailed: aGitRemoteError - | message answer | - message := 'Authentication with the remote failed for some reason.'. - aGitRemoteError responseBody ifNotEmpty: [ - message := message , String cr , - 'The following might give a hint of what has happened:' , String cr , String cr, - aGitRemoteError responseBody asString asTextFromHtml, String cr]. - (aGitRemoteError remote url includesSubstring: 'github.com') - ifTrue: [message := message, String cr , 'Also please note: If you have two-factor authentification enabled,' - , String cr, 'you must use a personal access token instead of your GitHub login password.']. - answer := SquotGUI - chooseOptionFrom: - {'Retry' translated. 'Change credentials' translated. 'Cancel' translated. 'Debug'} - values: #(retry dropCredentials cancel debug) - title: message. - answer caseOf: - {[#retry] -> [aGitRemoteError retry]. - [#dropCredentials] -> - [self repository removeCredentialsFor: aGitRemoteError remote url. - aGitRemoteError retry "will signal NeedGitCredentials"]. - [#cancel] -> [^ nil]. - [nil] "Dialog closed" -> [^ nil]. - [#debug] -> [ToolSet handleError: aGitRemoteError]}. - ^ answer \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveRemoteOperation.class/instance/errorRemoteResourceNotFound..st b/src/Squit.package/SquitInteractiveRemoteOperation.class/instance/errorRemoteResourceNotFound..st deleted file mode 100644 index 8d12b3c21..000000000 --- a/src/Squit.package/SquitInteractiveRemoteOperation.class/instance/errorRemoteResourceNotFound..st +++ /dev/null @@ -1,15 +0,0 @@ -error handling -errorRemoteResourceNotFound: aGitRemoteError - | message answer | - message := 'No repository found at the remote URL. Maybe the URL is incorrect. Please check the remote configuration.'. - aGitRemoteError responseBody ifNotEmpty: [ - message := message , String cr , - 'The following might give a hint of what has happened:' , String cr , String cr, - (aGitRemoteError responseBody contractTo: 200), String cr]. - (answer := SquotGUI confirm: message trueChoice: 'OK' translated falseChoice: 'Debug') - = false ifTrue: [ToolSet handleError: aGitRemoteError]. - answer = true "OK" ifTrue: - [(SquitBadRemote remote: aGitRemoteError remote) - cause: aGitRemoteError; - signal]. - ^ answer \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveRemoteOperation.class/instance/errorRemoteUndefined..st b/src/Squit.package/SquitInteractiveRemoteOperation.class/instance/errorRemoteUndefined..st deleted file mode 100644 index 78a92cec3..000000000 --- a/src/Squit.package/SquitInteractiveRemoteOperation.class/instance/errorRemoteUndefined..st +++ /dev/null @@ -1,7 +0,0 @@ -error handling -errorRemoteUndefined: aGitRemoteUndefined - self inform: 'Remote ', aGitRemoteUndefined remote name, ' is not configured.'. - localHistorian untrackUpstream. - (SquitBadRemote remote: aGitRemoteUndefined remote) - cause: aGitRemoteUndefined; - signal. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveRemoteOperation.class/instance/handleRemoteErrorsWhile.afterErrorDo..st b/src/Squit.package/SquitInteractiveRemoteOperation.class/instance/handleRemoteErrorsWhile.afterErrorDo..st deleted file mode 100644 index 80a14b0df..000000000 --- a/src/Squit.package/SquitInteractiveRemoteOperation.class/instance/handleRemoteErrorsWhile.afterErrorDo..st +++ /dev/null @@ -1,11 +0,0 @@ -error handling -handleRemoteErrorsWhile: aBlock afterErrorDo: errorBlock. - [aBlock - on: GitRemoteAuthenticationFailed do: - [:e | self errorRemoteAuthenticationFailed: e. errorBlock cull: e] - on: GitRemoteResourceNotFound do: - [:e | self errorRemoteResourceNotFound: e. errorBlock cull: e]] - on: GitPushFailed do: - [:e | self errorPushFailed: e. errorBlock cull: e] - on: GitRemoteUndefined do: - [:e | self errorRemoteUndefined: e. errorBlock cull: e] \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveRemoteOperation.class/instance/handlingCredentialsOf.do.ifCanceled..st b/src/Squit.package/SquitInteractiveRemoteOperation.class/instance/handlingCredentialsOf.do.ifCanceled..st deleted file mode 100644 index c2d2ccb44..000000000 --- a/src/Squit.package/SquitInteractiveRemoteOperation.class/instance/handlingCredentialsOf.do.ifCanceled..st +++ /dev/null @@ -1,22 +0,0 @@ -error handling -handlingCredentialsOf: aRepository do: aBlock ifCanceled: cancelBlock - | urlOfAddedCredentials urlToRemoveCredentialsFrom | - [ - aBlock - on: NeedGitCredentials do: - [:e | | credentials | - credentials := - self requestAndStoreCredentialsFor: aRepository - remoteUrl: e repositoryUrl asString - ifCanceled: cancelBlock. - urlOfAddedCredentials := e repositoryUrl asString. - e resume: credentials] - on: GitRemoteAuthenticationFailed do: - [:e | "register credentials for removal if they were just added" - urlToRemoveCredentialsFrom := urlOfAddedCredentials. - e pass] - ] - ifCurtailed: - [urlToRemoveCredentialsFrom ifNotNil: - [[aRepository removeCredentialsFor: urlToRemoveCredentialsFrom] - on: KeyNotFound do: []]] \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveRemoteOperation.class/instance/isRemoteSupported..st b/src/Squit.package/SquitInteractiveRemoteOperation.class/instance/isRemoteSupported..st deleted file mode 100644 index 726a0b6f7..000000000 --- a/src/Squit.package/SquitInteractiveRemoteOperation.class/instance/isRemoteSupported..st +++ /dev/null @@ -1,3 +0,0 @@ -private -isRemoteSupported: urlString - ^ urlString notNil and: [urlString beginsWith: 'http'] \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveRemoteOperation.class/instance/requestAndStoreCredentialsFor.remoteUrl.ifCanceled..st b/src/Squit.package/SquitInteractiveRemoteOperation.class/instance/requestAndStoreCredentialsFor.remoteUrl.ifCanceled..st deleted file mode 100644 index ba7dfc6e7..000000000 --- a/src/Squit.package/SquitInteractiveRemoteOperation.class/instance/requestAndStoreCredentialsFor.remoteUrl.ifCanceled..st +++ /dev/null @@ -1,9 +0,0 @@ -error handling -requestAndStoreCredentialsFor: repository remoteUrl: remoteUrl ifCanceled: cancelBlock - | newUser newPassword | - newUser := SquotGUI request: 'Enter username'. - newUser ifEmpty: [^ cancelBlock value]. - newPassword := SquotGUI requestPassword: 'Enter password:'. - newPassword ifEmpty: [^ cancelBlock value]. - repository addCredentialsFor: remoteUrl user: newUser password: newPassword. - ^ repository credentialsFor: remoteUrl \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveRemoteOperation.class/methodProperties.json b/src/Squit.package/SquitInteractiveRemoteOperation.class/methodProperties.json deleted file mode 100644 index 23e379f71..000000000 --- a/src/Squit.package/SquitInteractiveRemoteOperation.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "errorPushFailed:" : "ct 9/15/2022 19:12", - "errorRemoteAuthenticationFailed:" : "ct 6/12/2022 20:59", - "errorRemoteResourceNotFound:" : "jr 8/3/2020 00:14", - "errorRemoteUndefined:" : "jr 8/2/2020 23:53", - "handleRemoteErrorsWhile:afterErrorDo:" : "jr 9/4/2020 20:11", - "handlingCredentialsOf:do:ifCanceled:" : "jr 8/2/2020 23:53", - "isRemoteSupported:" : "jr 8/10/2020 22:08", - "requestAndStoreCredentialsFor:remoteUrl:ifCanceled:" : "jr 8/2/2020 23:53" } } diff --git a/src/Squit.package/SquitInteractiveRemoteOperation.class/properties.json b/src/Squit.package/SquitInteractiveRemoteOperation.class/properties.json deleted file mode 100644 index 60279a099..000000000 --- a/src/Squit.package/SquitInteractiveRemoteOperation.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squit-UI", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 21:22", - "instvars" : [ - "localHistorian" ], - "name" : "SquitInteractiveRemoteOperation", - "pools" : [ - ], - "super" : "SquitInteractiveOperation", - "type" : "normal" } diff --git a/src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/README.md b/src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/README.md deleted file mode 100644 index 5607e7ee5..000000000 --- a/src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I remove the upstream branch of a local branch at the remote. The branch will no longer be available in the remote repository. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/class/historian..st b/src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/class/historian..st deleted file mode 100644 index 913b678a5..000000000 --- a/src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/class/historian..st +++ /dev/null @@ -1,5 +0,0 @@ -as yet unclassified -historian: aHistorian - ^ self new - historian: aHistorian; - yourself \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/instance/historian..st b/src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/instance/historian..st deleted file mode 100644 index b85f7cf45..000000000 --- a/src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/instance/historian..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -historian: anObject - historian := anObject \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/instance/historian.st b/src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/instance/historian.st deleted file mode 100644 index bb118f761..000000000 --- a/src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/instance/historian.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -historian - ^ historian \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/instance/isUpstreamRemoteSupported..st b/src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/instance/isUpstreamRemoteSupported..st deleted file mode 100644 index e3a94e23d..000000000 --- a/src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/instance/isUpstreamRemoteSupported..st +++ /dev/null @@ -1,5 +0,0 @@ -private -isUpstreamRemoteSupported: aHistorian - | remoteUrl | - remoteUrl := aHistorian upstreamRemote url. - ^ self isRemoteSupported: remoteUrl \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/instance/removeRemoteBranch.st b/src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/instance/removeRemoteBranch.st deleted file mode 100644 index e53665487..000000000 --- a/src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/instance/removeRemoteBranch.st +++ /dev/null @@ -1,15 +0,0 @@ -running -removeRemoteBranch - | remoteName remoteBranchName | - remoteName := historian upstreamRemoteName. - remoteBranchName := historian upstreamHistorianName. - (self isUpstreamRemoteSupported: historian) - ifFalse: [self inform: 'The remote is unsupported, therefore the upstream branch cannot be removed from the remote.'. ^ nil]. - (self confirm: 'Really delete branch ', remoteBranchName, ' at the remote ', remoteName, '?') - ifFalse: [^ nil]. - self handleRemoteErrorsWhile: - [self handlingCredentialsOf: historian repository - do: [historian repository - removeRemoteRef: remoteBranchName from: remoteName] - ifCanceled: [^ self]] - afterErrorDo: [^ self]. \ No newline at end of file diff --git a/src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/methodProperties.json b/src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/methodProperties.json deleted file mode 100644 index 149fd68d8..000000000 --- a/src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - "historian:" : "jr 8/10/2020 22:11" }, - "instance" : { - "historian" : "jr 8/10/2020 22:11", - "historian:" : "jr 8/10/2020 22:11", - "isUpstreamRemoteSupported:" : "jr 8/10/2020 22:15", - "removeRemoteBranch" : "jr 8/10/2020 22:22" } } diff --git a/src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/properties.json b/src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/properties.json deleted file mode 100644 index 3b05dbb5f..000000000 --- a/src/Squit.package/SquitInteractiveRemoveUpstreamBranch.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squit-UI", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/10/2020 22:19", - "instvars" : [ - "historian" ], - "name" : "SquitInteractiveRemoveUpstreamBranch", - "pools" : [ - ], - "super" : "SquitInteractiveRemoteOperation", - "type" : "normal" } diff --git a/src/Squit.package/SquitNoRemotes.class/README.md b/src/Squit.package/SquitNoRemotes.class/README.md deleted file mode 100644 index a853ddb6f..000000000 --- a/src/Squit.package/SquitNoRemotes.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A repository has no remotes defined, but the attempted operation needs a remote. \ No newline at end of file diff --git a/src/Squit.package/SquitNoRemotes.class/instance/defaultResumeValue.st b/src/Squit.package/SquitNoRemotes.class/instance/defaultResumeValue.st deleted file mode 100644 index 8b6633588..000000000 --- a/src/Squit.package/SquitNoRemotes.class/instance/defaultResumeValue.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults -defaultResumeValue - ^ nil \ No newline at end of file diff --git a/src/Squit.package/SquitNoRemotes.class/instance/repository..st b/src/Squit.package/SquitNoRemotes.class/instance/repository..st deleted file mode 100644 index d10be3845..000000000 --- a/src/Squit.package/SquitNoRemotes.class/instance/repository..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -repository: anObject - - repository := anObject. \ No newline at end of file diff --git a/src/Squit.package/SquitNoRemotes.class/instance/repository.st b/src/Squit.package/SquitNoRemotes.class/instance/repository.st deleted file mode 100644 index 6f5088a39..000000000 --- a/src/Squit.package/SquitNoRemotes.class/instance/repository.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -repository - - ^ repository \ No newline at end of file diff --git a/src/Squit.package/SquitNoRemotes.class/methodProperties.json b/src/Squit.package/SquitNoRemotes.class/methodProperties.json deleted file mode 100644 index 066f2314d..000000000 --- a/src/Squit.package/SquitNoRemotes.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "defaultResumeValue" : "jr 7/23/2020 22:02", - "repository" : "jr 7/23/2020 22:01", - "repository:" : "jr 7/23/2020 22:01" } } diff --git a/src/Squit.package/SquitNoRemotes.class/properties.json b/src/Squit.package/SquitNoRemotes.class/properties.json deleted file mode 100644 index 66f415071..000000000 --- a/src/Squit.package/SquitNoRemotes.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squit-Exceptions", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 21:22", - "instvars" : [ - "repository" ], - "name" : "SquitNoRemotes", - "pools" : [ - ], - "super" : "Notification", - "type" : "normal" } diff --git a/src/Squit.package/SquitPackageChooser.class/README.md b/src/Squit.package/SquitPackageChooser.class/README.md deleted file mode 100644 index 6858a45d9..000000000 --- a/src/Squit.package/SquitPackageChooser.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I allow users to add or remove packages from a working copy. Users choose from class categories in the system, so this is not necessarily dependent on Monticello packages. \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/class/chooseFor..st b/src/Squit.package/SquitPackageChooser.class/class/chooseFor..st deleted file mode 100644 index 50675572a..000000000 --- a/src/Squit.package/SquitPackageChooser.class/class/chooseFor..st +++ /dev/null @@ -1,4 +0,0 @@ -as yet unclassified -chooseFor: aWorkingCopy - - ^ self new chooseFor: aWorkingCopy \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/accept.st b/src/Squit.package/SquitPackageChooser.class/instance/accept.st deleted file mode 100644 index 6da329fd1..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/accept.st +++ /dev/null @@ -1,5 +0,0 @@ -actions -accept - - acceptChanges := true. - self changed: #close \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/acceptColor.st b/src/Squit.package/SquitPackageChooser.class/instance/acceptColor.st deleted file mode 100644 index 3301707eb..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/acceptColor.st +++ /dev/null @@ -1,4 +0,0 @@ -toolbuilder -acceptColor - ^ self userInterfaceTheme acceptColor - ifNil: [self userInterfaceTheme get: #okColor for: #DialogWindow] \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/buildButtons..st b/src/Squit.package/SquitPackageChooser.class/instance/buildButtons..st deleted file mode 100644 index 7ba7c3ecd..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/buildButtons..st +++ /dev/null @@ -1,20 +0,0 @@ -toolbuilder -buildButtons: builder - - ^ builder pluggablePanelSpec new - layout: #vertical; - frame: (LayoutFrame fractions: (0.5 @ 0 corner: 0.5 @ 1) offsets: (self buttonWidth / -2 @ 0 corner: self buttonWidth / 2 @ 0)); - children: { - builder pluggableActionButtonSpec new - model: self; - label: '>'; - enabled: #hasUntrackedSelections; - action: #trackSelected; - help: 'Start tracking the selected package'. - - builder pluggableActionButtonSpec new - model: self; - label: '<'; - enabled: #hasTrackedSelections; - action: #untrackSelected; - help: 'Stop tracking the selected package'} \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/buildTrackedList..st b/src/Squit.package/SquitPackageChooser.class/instance/buildTrackedList..st deleted file mode 100644 index 6afb000cb..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/buildTrackedList..st +++ /dev/null @@ -1,16 +0,0 @@ -toolbuilder -buildTrackedList: builder - - ^ builder pluggableMultiSelectionListSpec new - model: self; - filterableList: true; - clearFilterAutomatically: false; - autoDeselect: true; - list: #trackedPackagesWithTitle; - menu: #trackedPackagesMenu:; - getIndex: #selectionTracked; - setIndex: #selectionTracked:; - getSelectionList: #selectionsTrackedAt:; - setSelectionList: #selectionsTrackedAt:put:; - frame: (LayoutFrame fractions: (0.5 @ 0 corner: 1 @ 1) offsets: (self buttonWidth / 2 @ 0 corner: 0 @ 0)); - yourself \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/buildUntrackedList..st b/src/Squit.package/SquitPackageChooser.class/instance/buildUntrackedList..st deleted file mode 100644 index 8f3eace6a..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/buildUntrackedList..st +++ /dev/null @@ -1,16 +0,0 @@ -toolbuilder -buildUntrackedList: builder - - ^ builder pluggableMultiSelectionListSpec new - model: self; - filterableList: true; - clearFilterAutomatically: false; - autoDeselect: true; - list: #untrackedPackagesWithTitle; - menu: #untrackedPackagesMenu:; - getIndex: #selectionUntracked; - setIndex: #selectionUntracked:; - getSelectionList: #selectionsUntrackedAt:; - setSelectionList: #selectionsUntrackedAt:put:; - frame: (LayoutFrame fractions: (0 @ 0 corner: 0.5 @ 1) offsets: (0 @ 0 corner: self buttonWidth / -2 @ 0)); - yourself \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/buildWith..st b/src/Squit.package/SquitPackageChooser.class/instance/buildWith..st deleted file mode 100644 index b6a6aadff..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/buildWith..st +++ /dev/null @@ -1,27 +0,0 @@ -toolbuilder -buildWith: builder - - ^ (builder build: (builder pluggableDialogSpec new - model: self; - extent: self initialExtent; - autoCancel: true; - title: 'Start or stop tracking packages'; - children: { - self buildUntrackedList: builder. - self buildButtons: builder. - self buildTrackedList: builder}; - buttons: { - builder pluggableButtonSpec new - model: self; - label: 'Accept'; - action: #accept; - color: #acceptColor; - yourself. - builder pluggableButtonSpec new - model: self; - label: 'Cancel'; - action: #cancel; - color: #cancelColor; - yourself})) - addKeyboardCaptureFilter: self; - yourself \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/buttonWidth.st b/src/Squit.package/SquitPackageChooser.class/instance/buttonWidth.st deleted file mode 100644 index f96e00be5..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/buttonWidth.st +++ /dev/null @@ -1,4 +0,0 @@ -toolbuilder -buttonWidth - - ^ 40 * RealEstateAgent scaleFactor \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/cancel.st b/src/Squit.package/SquitPackageChooser.class/instance/cancel.st deleted file mode 100644 index 7cb22518a..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/cancel.st +++ /dev/null @@ -1,5 +0,0 @@ -actions -cancel - - acceptChanges := false. - self changed: #close \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/cancelColor.st b/src/Squit.package/SquitPackageChooser.class/instance/cancelColor.st deleted file mode 100644 index 65713a69c..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/cancelColor.st +++ /dev/null @@ -1,4 +0,0 @@ -toolbuilder -cancelColor - ^ self userInterfaceTheme cancelColor - ifNil: [self userInterfaceTheme get: #cancelColor for: #DialogWindow] \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/categoriesPlusPrefixes.st b/src/Squit.package/SquitPackageChooser.class/instance/categoriesPlusPrefixes.st deleted file mode 100644 index 833f73493..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/categoriesPlusPrefixes.st +++ /dev/null @@ -1,7 +0,0 @@ -choosing packages -categoriesPlusPrefixes - ^ (SystemOrganizer default categories gather: [:each | | eachSplitted | - eachSplitted := each splitBy: '-'. - eachSplitted withIndexCollect: [:x :index | - (eachSplitted copyFrom: 1 to: index) joinSeparatedBy: '-']]) - asSet asOrderedCollection sorted \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/chooseFor..st b/src/Squit.package/SquitPackageChooser.class/instance/chooseFor..st deleted file mode 100644 index 17dd9b8af..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/chooseFor..st +++ /dev/null @@ -1,26 +0,0 @@ -choosing packages -chooseFor: aWorkingCopy - "returns true if any changes were made" - - | originalPackages addedPackages removedPackages subPath | - acceptChanges := false. - trackedPackages := (self packagesIn: aWorkingCopy) asSortedCollection. - selectedTrackedPackages := Set new. - selectedUntrackedPackages := Set new. - originalPackages := trackedPackages copy. - self updateUntrackedPackages. - - ToolBuilder open: self. - acceptChanges ifFalse: [^ false]. - - removedPackages := originalPackages copyWithoutAll: self trackedPackages. - addedPackages := self trackedPackages copyWithoutAll: originalPackages. - (removedPackages isEmpty and: [addedPackages isEmpty]) ifTrue: [^ false]. - - addedPackages ifNotEmpty: [ - subPath := self requestPathInWorkingCopy: aWorkingCopy. - subPath ifNil: [^ false]]. - - removedPackages do: [:each | aWorkingCopy removePackageNamed: each]. - addedPackages do: [:each | aWorkingCopy addPackageNamed: each at: subPath]. - ^ true \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/chooseSubdirectory.ifCanceled..st b/src/Squit.package/SquitPackageChooser.class/instance/chooseSubdirectory.ifCanceled..st deleted file mode 100644 index 1efa5c2da..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/chooseSubdirectory.ifCanceled..st +++ /dev/null @@ -1,10 +0,0 @@ -choosing packages -chooseSubdirectory: aDirectoryReference ifCanceled: aBlock - | fileDirectory chosenDirectory subPath | - fileDirectory := SquitDirectoryInWorkingCopyChooser openOn: (FSFileDirectoryAdapter on: aDirectoryReference) label: 'Directory for added packages'. - fileDirectory ifNil: [^ aBlock value]. - chosenDirectory := fileDirectory asFSReference. - (chosenDirectory = aDirectoryReference - or: [aDirectoryReference contains: chosenDirectory]) ifFalse: [^ aBlock value]. - subPath := chosenDirectory relativeTo: aDirectoryReference. - ^ SquotPath from: subPath \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/confirm..st b/src/Squit.package/SquitPackageChooser.class/instance/confirm..st deleted file mode 100644 index 60db2b7e3..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/confirm..st +++ /dev/null @@ -1,4 +0,0 @@ -user interface -confirm: aString - "Make sure the dialog is run in the UI process." - ^ SquotGUI confirm: aString. \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/hasTrackedSelections.st b/src/Squit.package/SquitPackageChooser.class/instance/hasTrackedSelections.st deleted file mode 100644 index 17acc2a75..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/hasTrackedSelections.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -hasTrackedSelections - - ^ selectedTrackedPackages notEmpty \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/hasUntrackedSelections.st b/src/Squit.package/SquitPackageChooser.class/instance/hasUntrackedSelections.st deleted file mode 100644 index 13588fcb4..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/hasUntrackedSelections.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -hasUntrackedSelections - - ^ selectedUntrackedPackages notEmpty \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/inform..st b/src/Squit.package/SquitPackageChooser.class/instance/inform..st deleted file mode 100644 index d1420024c..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/inform..st +++ /dev/null @@ -1,4 +0,0 @@ -user interface -inform: aString - "Make sure the dialog is run in the UI process." - SquotGUI inform: aString. \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/initialExtent.st b/src/Squit.package/SquitPackageChooser.class/instance/initialExtent.st deleted file mode 100644 index 77f86ee49..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/initialExtent.st +++ /dev/null @@ -1,6 +0,0 @@ -toolbuilder -initialExtent - - | listFont | - listFont := Preferences standardListFont. - ^ (20 * (listFont widthOf: $m)) * 2 @ (SquotGUI listHeightFor: 15) \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/packagesIn..st b/src/Squit.package/SquitPackageChooser.class/instance/packagesIn..st deleted file mode 100644 index 65ef5dc9a..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/packagesIn..st +++ /dev/null @@ -1,5 +0,0 @@ -choosing packages -packagesIn: aWorkingCopy - ^ aWorkingCopy artifacts - select: [:each | each storeInfo objectClassName = PackageInfo name] - thenCollect: [:each | each packageName] \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/requestPathInWorkingCopy..st b/src/Squit.package/SquitPackageChooser.class/instance/requestPathInWorkingCopy..st deleted file mode 100644 index 8d899e4ce..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/requestPathInWorkingCopy..st +++ /dev/null @@ -1,21 +0,0 @@ -choosing packages -requestPathInWorkingCopy: aWorkingCopy - | version subPath gitRepository rootDirectory | - gitRepository := aWorkingCopy repository git. - gitRepository workingCopyDirDo: [:workingCopyDir | - subPath := self chooseSubdirectory: workingCopyDir ifCanceled: [^ nil]] - ifBareOrAbsent: ["choose from existing directories" - version := aWorkingCopy loadedHistorian version. - version - ifNil: [subPath := SquotGUI - request: 'Enter the relative path in the working copy for the added packages' - initialAnswer: 'src'] - ifNotNil: [rootDirectory := SquitRepositoryFilesystemExtension new - repository: aWorkingCopy repository; - forVersion: version. - subPath := self chooseSubdirectory: rootDirectory ifCanceled: [^ nil]]]. - subPath ifNotEmpty: [ - subPath first asString = FileDirectory slash - ifTrue: [subPath := subPath allButFirst]]. - (subPath beginsWith: '.git') ifTrue: [self error: 'Cannot use this path to store objects: ', subPath]. - ^ subPath \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/selectAllTrackedPackages.st b/src/Squit.package/SquitPackageChooser.class/instance/selectAllTrackedPackages.st deleted file mode 100644 index 7a0da5e43..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/selectAllTrackedPackages.st +++ /dev/null @@ -1,5 +0,0 @@ -actions -selectAllTrackedPackages - - self selectedTrackedPackages addAll: self trackedPackages. - self changed: #selectionsTrackedAt:. \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/selectAllUntrackedPackages.st b/src/Squit.package/SquitPackageChooser.class/instance/selectAllUntrackedPackages.st deleted file mode 100644 index d40057a6d..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/selectAllUntrackedPackages.st +++ /dev/null @@ -1,5 +0,0 @@ -actions -selectAllUntrackedPackages - - self selectedUntrackedPackages addAll: self untrackedPackages. - self changed: #selectionsUntrackedAt:. \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/selectInverseTrackedPackages.st b/src/Squit.package/SquitPackageChooser.class/instance/selectInverseTrackedPackages.st deleted file mode 100644 index c093fc47c..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/selectInverseTrackedPackages.st +++ /dev/null @@ -1,9 +0,0 @@ -actions -selectInverseTrackedPackages - - | nonSelected | - nonSelected := self trackedPackages difference: self selectedTrackedPackages. - self selectedTrackedPackages - removeAll; - addAll: nonSelected. - self changed: #selectionsTrackedAt:. \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/selectInverseUntrackedPackages.st b/src/Squit.package/SquitPackageChooser.class/instance/selectInverseUntrackedPackages.st deleted file mode 100644 index a57f120cf..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/selectInverseUntrackedPackages.st +++ /dev/null @@ -1,9 +0,0 @@ -actions -selectInverseUntrackedPackages - - | nonSelected | - nonSelected := self untrackedPackages difference: self selectedUntrackedPackages. - self selectedUntrackedPackages - removeAll; - addAll: nonSelected. - self changed: #selectionsUntrackedAt:. \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/selectNoTrackedPackages.st b/src/Squit.package/SquitPackageChooser.class/instance/selectNoTrackedPackages.st deleted file mode 100644 index 3c193bfed..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/selectNoTrackedPackages.st +++ /dev/null @@ -1,5 +0,0 @@ -actions -selectNoTrackedPackages - - self selectedTrackedPackages removeAll. - self changed: #selectionsTrackedAt:. \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/selectNoUntrackedPackages.st b/src/Squit.package/SquitPackageChooser.class/instance/selectNoUntrackedPackages.st deleted file mode 100644 index 529cf2117..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/selectNoUntrackedPackages.st +++ /dev/null @@ -1,5 +0,0 @@ -actions -selectNoUntrackedPackages - - self selectedUntrackedPackages removeAll. - self changed: #selectionsUntrackedAt:. \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/selectedTrackedPackages.st b/src/Squit.package/SquitPackageChooser.class/instance/selectedTrackedPackages.st deleted file mode 100644 index f8be1463a..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/selectedTrackedPackages.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -selectedTrackedPackages - - ^ selectedTrackedPackages \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/selectedUntrackedPackages.st b/src/Squit.package/SquitPackageChooser.class/instance/selectedUntrackedPackages.st deleted file mode 100644 index a00e68d2f..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/selectedUntrackedPackages.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -selectedUntrackedPackages - - ^ selectedUntrackedPackages \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/selectionTracked..st b/src/Squit.package/SquitPackageChooser.class/instance/selectionTracked..st deleted file mode 100644 index 63f57296c..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/selectionTracked..st +++ /dev/null @@ -1,7 +0,0 @@ -accessing -selectionTracked: aNumber - - aNumber = 1 ifTrue: ["title" ^ self]. - - selectionTracked := aNumber. - self changed: #selectionTracked \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/selectionTracked.st b/src/Squit.package/SquitPackageChooser.class/instance/selectionTracked.st deleted file mode 100644 index fbd1626cc..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/selectionTracked.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -selectionTracked - - ^ selectionTracked ifNil: [0] \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/selectionUntracked..st b/src/Squit.package/SquitPackageChooser.class/instance/selectionUntracked..st deleted file mode 100644 index faad178cc..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/selectionUntracked..st +++ /dev/null @@ -1,7 +0,0 @@ -accessing -selectionUntracked: aNumber - - aNumber = 1 ifTrue: ["title" ^ self]. - - selectionUntracked := aNumber. - self changed: #selectionUntracked \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/selectionUntracked.st b/src/Squit.package/SquitPackageChooser.class/instance/selectionUntracked.st deleted file mode 100644 index 9889c48d6..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/selectionUntracked.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -selectionUntracked - - ^ selectionUntracked ifNil: [0] \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/selectionsTrackedAt..st b/src/Squit.package/SquitPackageChooser.class/instance/selectionsTrackedAt..st deleted file mode 100644 index 3d091bf78..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/selectionsTrackedAt..st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -selectionsTrackedAt: aNumber - - aNumber = 1 ifTrue: ["title" ^ false]. - - ^ selectedTrackedPackages includes: (self trackedPackages at: aNumber - 1) \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/selectionsTrackedAt.put..st b/src/Squit.package/SquitPackageChooser.class/instance/selectionsTrackedAt.put..st deleted file mode 100644 index e5e4668fa..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/selectionsTrackedAt.put..st +++ /dev/null @@ -1,13 +0,0 @@ -accessing -selectionsTrackedAt: aNumber put: aBoolean - - | package | - aNumber = 1 ifTrue: ["title" ^ self]. - - package := self trackedPackages at: aNumber - 1. - aBoolean - ifTrue: [selectedTrackedPackages add: package] - ifFalse: [selectedTrackedPackages remove: package ifAbsent: []]. - - self changed: #selectionsTrackedAt:. - self changed: #hasTrackedSelections \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/selectionsUntrackedAt..st b/src/Squit.package/SquitPackageChooser.class/instance/selectionsUntrackedAt..st deleted file mode 100644 index 725e05dec..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/selectionsUntrackedAt..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -selectionsUntrackedAt: aNumber - - aNumber = 1 ifTrue: ["title" ^ false]. - ^ selectedUntrackedPackages includes: (self untrackedPackages at: aNumber - 1) \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/selectionsUntrackedAt.put..st b/src/Squit.package/SquitPackageChooser.class/instance/selectionsUntrackedAt.put..st deleted file mode 100644 index a128db7ec..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/selectionsUntrackedAt.put..st +++ /dev/null @@ -1,13 +0,0 @@ -accessing -selectionsUntrackedAt: aNumber put: aBoolean - - | package | - aNumber = 1 ifTrue: ["title" ^ self]. - - package := self untrackedPackages at: aNumber - 1. - aBoolean - ifTrue: [selectedUntrackedPackages add: package] - ifFalse: [selectedUntrackedPackages remove: package ifAbsent: []]. - - self changed: #selectionsUntrackedAt:. - self changed: #hasUntrackedSelections \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/track..st b/src/Squit.package/SquitPackageChooser.class/instance/track..st deleted file mode 100644 index 261eb4902..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/track..st +++ /dev/null @@ -1,33 +0,0 @@ -actions -track: aPackage - - | conflictingPackages packageInfo | - packageInfo := PackageInfo new packageName: aPackage; yourself. - conflictingPackages := self trackedPackages select: - [:p | packageInfo includesSystemCategory: p]. - - conflictingPackages ifNotEmpty: [ - self selectionUntracked: (self trackedPackagesWithTitle indexOf: aPackage). - (self confirm: 'To add this package, we will first remove ', - (conflictingPackages joinSeparatedBy: ', '), - ', because the new package is a prefix/super package for these.', String cr, - '(Otherwise the package contents will be duplicated)') ifFalse: [^ self]]. - - self trackedPackages - removeAll: conflictingPackages; - add: aPackage. - - self updateUntrackedPackages. - self changed: #trackedPackagesWithTitle. - self changed: #untrackedPackagesWithTitle. - selectionUntracked ifNotNil: - [self selectionUntracked: (selectionUntracked min: trackedPackages size + 1 "title")]. - selectedUntrackedPackages remove: aPackage ifAbsent: []. - selectedTrackedPackages add: aPackage. - selectedTrackedPackages removeAll: conflictingPackages. - self changed: #selectionsTrackedAt:. - self changed: #selectionsUntrackedAt:. - self changed: #hasTrackedSelections. - self changed: #hasUntrackedSelections. - "Scroll updates into view" - self selectionTracked: (trackedPackages indexOf: aPackage) + 1 "title". \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/trackSelected.st b/src/Squit.package/SquitPackageChooser.class/instance/trackSelected.st deleted file mode 100644 index 58e480c8a..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/trackSelected.st +++ /dev/null @@ -1,20 +0,0 @@ -actions -trackSelected - - | newPackages | - newPackages := self selectedUntrackedPackages asOrderedCollection. - - "Remove all conflicts from the selection by selecting all roots from the tree only." - "Naive O(n**2) implementation. Yeah, there are fancy O(n log n) algos for this, but for N < 1000 this really seems not worth the effort." - newPackages := newPackages select: [:root | - newPackages noneSatisfy: [:child | - child ~= root and: [ - (PackageInfo new packageName: child; includesSystemCategory: root)]]]. - - "Unselect children to be tracked (roots will be unselected by #track: below)" - selectedUntrackedPackages removeAllSuchThat: [:each | - (newPackages includes: each) not]. - self changed: #selectedUntrackedPackages. - - newPackages do: [:package | - self track: package]. \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/trackedPackages.st b/src/Squit.package/SquitPackageChooser.class/instance/trackedPackages.st deleted file mode 100644 index 2494101fb..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/trackedPackages.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -trackedPackages - - ^ trackedPackages \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/trackedPackagesMenu..st b/src/Squit.package/SquitPackageChooser.class/instance/trackedPackagesMenu..st deleted file mode 100644 index 516582b8b..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/trackedPackagesMenu..st +++ /dev/null @@ -1,8 +0,0 @@ -toolbuilder -trackedPackagesMenu: menu - - ^ menu - add: 'Select all' action: #selectAllTrackedPackages; - add: 'Select inversion' action: #selectInverseTrackedPackages; - add: 'Select none' action: #selectNoTrackedPackages; - yourself \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/trackedPackagesWithTitle.st b/src/Squit.package/SquitPackageChooser.class/instance/trackedPackagesWithTitle.st deleted file mode 100644 index 2f3acb1f9..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/trackedPackagesWithTitle.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -trackedPackagesWithTitle - - ^ #('-- Tracked Packages --'), self trackedPackages \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/untrack..st b/src/Squit.package/SquitPackageChooser.class/instance/untrack..st deleted file mode 100644 index 8a8837851..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/untrack..st +++ /dev/null @@ -1,20 +0,0 @@ -actions -untrack: aPackage - - self trackedPackages remove: aPackage. - - self updateUntrackedPackages. - - self updateUntrackedPackages. - self changed: #trackedPackagesWithTitle. - self changed: #untrackedPackagesWithTitle. - selectionTracked ifNotNil: - [self selectionTracked: (selectionTracked min: trackedPackages size + 1 "title")]. - selectedUntrackedPackages add: aPackage. - selectedTrackedPackages remove: aPackage ifAbsent: []. - self changed: #selectionsTrackedAt:. - self changed: #selectionsUntrackedAt:. - self changed: #hasTrackedSelections. - self changed: #hasUntrackedSelections. - "Scroll updates into view" - self selectionUntracked: (untrackedPackages indexOf: aPackage) + 1 "title". \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/untrackSelected.st b/src/Squit.package/SquitPackageChooser.class/instance/untrackSelected.st deleted file mode 100644 index 9df48ed49..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/untrackSelected.st +++ /dev/null @@ -1,8 +0,0 @@ -actions -untrackSelected - - self selectedUntrackedPackages removeAll. - self changed: #selectedUntrackedPackages. - - self selectedTrackedPackages do: [:package | - self untrack: package] \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/untrackedPackages.st b/src/Squit.package/SquitPackageChooser.class/instance/untrackedPackages.st deleted file mode 100644 index b42f1a27b..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/untrackedPackages.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -untrackedPackages - - ^ untrackedPackages \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/untrackedPackagesMenu..st b/src/Squit.package/SquitPackageChooser.class/instance/untrackedPackagesMenu..st deleted file mode 100644 index 0f2db4ade..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/untrackedPackagesMenu..st +++ /dev/null @@ -1,8 +0,0 @@ -toolbuilder -untrackedPackagesMenu: menu - - ^ menu - add: 'Select all' action: #selectAllUntrackedPackages; - add: 'Select inversion' action: #selectInverseUntrackedPackages; - add: 'Select none' action: #selectNoUntrackedPackages; - yourself \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/untrackedPackagesWithTitle.st b/src/Squit.package/SquitPackageChooser.class/instance/untrackedPackagesWithTitle.st deleted file mode 100644 index b1655ec80..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/untrackedPackagesWithTitle.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -untrackedPackagesWithTitle - - ^ #('-- Untracked class categories --'), self untrackedPackages \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/instance/updateUntrackedPackages.st b/src/Squit.package/SquitPackageChooser.class/instance/updateUntrackedPackages.st deleted file mode 100644 index 95e4cb41d..000000000 --- a/src/Squit.package/SquitPackageChooser.class/instance/updateUntrackedPackages.st +++ /dev/null @@ -1,6 +0,0 @@ -choosing packages -updateUntrackedPackages - - untrackedPackages := self categoriesPlusPrefixes reject: [:package | - self trackedPackages - anySatisfy: [:tracked | package = tracked or: [package beginsWith: tracked, '-']]] \ No newline at end of file diff --git a/src/Squit.package/SquitPackageChooser.class/methodProperties.json b/src/Squit.package/SquitPackageChooser.class/methodProperties.json deleted file mode 100644 index e38a8b4f7..000000000 --- a/src/Squit.package/SquitPackageChooser.class/methodProperties.json +++ /dev/null @@ -1,50 +0,0 @@ -{ - "class" : { - "chooseFor:" : "TB 4/22/2018 00:45" }, - "instance" : { - "accept" : "TB 4/22/2018 12:40", - "acceptColor" : "ct 10/26/2021 14:29", - "buildButtons:" : "ct 10/26/2021 14:23", - "buildTrackedList:" : "ct 9/13/2022 19:21", - "buildUntrackedList:" : "ct 9/13/2022 19:21", - "buildWith:" : "ct 10/26/2021 14:29", - "buttonWidth" : "jr 2/17/2022 23:18", - "cancel" : "ct 10/26/2021 14:31", - "cancelColor" : "ct 10/26/2021 14:29", - "categoriesPlusPrefixes" : "TB 4/22/2018 00:37", - "chooseFor:" : "ct 9/13/2022 19:11", - "chooseSubdirectory:ifCanceled:" : "jr 9/6/2020 14:39", - "confirm:" : "jr 7/24/2020 11:34", - "hasTrackedSelections" : "ct 10/26/2021 14:22", - "hasUntrackedSelections" : "ct 10/26/2021 14:23", - "inform:" : "jr 7/24/2020 11:34", - "initialExtent" : "jr 2/20/2022 11:57", - "packagesIn:" : "ct 9/13/2022 19:11", - "requestPathInWorkingCopy:" : "jr 7/24/2020 11:34", - "selectAllTrackedPackages" : "ct 9/13/2022 19:28", - "selectAllUntrackedPackages" : "ct 9/13/2022 19:28", - "selectInverseTrackedPackages" : "ct 9/13/2022 19:28", - "selectInverseUntrackedPackages" : "ct 9/13/2022 19:29", - "selectNoTrackedPackages" : "ct 9/13/2022 19:28", - "selectNoUntrackedPackages" : "ct 9/13/2022 19:29", - "selectedTrackedPackages" : "ct 10/26/2021 14:13", - "selectedUntrackedPackages" : "ct 10/26/2021 14:13", - "selectionTracked" : "TB 4/22/2018 00:14", - "selectionTracked:" : "ct 10/26/2021 14:07", - "selectionUntracked" : "TB 4/22/2018 00:55", - "selectionUntracked:" : "ct 10/26/2021 14:07", - "selectionsTrackedAt:" : "ct 10/26/2021 14:19", - "selectionsTrackedAt:put:" : "ct 10/26/2021 14:22", - "selectionsUntrackedAt:" : "ct 10/26/2021 14:19", - "selectionsUntrackedAt:put:" : "ct 10/26/2021 14:23", - "track:" : "ct 9/9/2022 18:04", - "trackSelected" : "ct 9/13/2022 19:05", - "trackedPackages" : "TB 4/22/2018 13:29", - "trackedPackagesMenu:" : "ct 9/13/2022 19:22", - "trackedPackagesWithTitle" : "TB 4/22/2018 13:29", - "untrack:" : "ct 9/9/2022 18:04", - "untrackSelected" : "ct 9/13/2022 19:09", - "untrackedPackages" : "TB 4/22/2018 13:29", - "untrackedPackagesMenu:" : "ct 9/13/2022 19:22", - "untrackedPackagesWithTitle" : "jr 12/3/2022 16:16", - "updateUntrackedPackages" : "jr 2/16/2019 16:18" } } diff --git a/src/Squit.package/SquitPackageChooser.class/properties.json b/src/Squit.package/SquitPackageChooser.class/properties.json deleted file mode 100644 index 077da95a3..000000000 --- a/src/Squit.package/SquitPackageChooser.class/properties.json +++ /dev/null @@ -1,20 +0,0 @@ -{ - "category" : "Squit-UI", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 21:24", - "instvars" : [ - "untrackedPackages", - "trackedPackages", - "acceptChanges", - "selectedUntrackedPackages", - "selectedTrackedPackages", - "selectionTracked", - "selectionUntracked" ], - "name" : "SquitPackageChooser", - "pools" : [ - ], - "super" : "Model", - "type" : "normal" } diff --git a/src/Squit.package/SquitRemoteTrackingHistorianTest.class/README.md b/src/Squit.package/SquitRemoteTrackingHistorianTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/performTest.st b/src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/performTest.st deleted file mode 100644 index 98859ceb7..000000000 --- a/src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/performTest.st +++ /dev/null @@ -1,3 +0,0 @@ -private -performTest - ^ squitRepository withUnitOfWork: [super performTest] \ No newline at end of file diff --git a/src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/testMergeMessage.st b/src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/testMergeMessage.st deleted file mode 100644 index 78ffd3536..000000000 --- a/src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/testMergeMessage.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testMergeMessage - | remoteTrackingHistorian message | - remoteTrackingHistorian := self trackingBranchForRemote: 'myremote' branch: 'mybranch' hash: self master version hexHash. - message := remoteTrackingHistorian messageWhenMergingInto: self master. - self assert: message = 'Merge branch ''mybranch'' of myremote into master'. \ No newline at end of file diff --git a/src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/testRemoteTrackingHistorianRemoteName.st b/src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/testRemoteTrackingHistorianRemoteName.st deleted file mode 100644 index 5e2f3d898..000000000 --- a/src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/testRemoteTrackingHistorianRemoteName.st +++ /dev/null @@ -1,5 +0,0 @@ -tests -testRemoteTrackingHistorianRemoteName - | remoteTrackingHistorian | - remoteTrackingHistorian := self createRemoteTrackingBranchForMaster. - self assert: remoteTrackingHistorian remoteName = 'myremote'. \ No newline at end of file diff --git a/src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/testRemoteTrackingHistorianRemoteRef.st b/src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/testRemoteTrackingHistorianRemoteRef.st deleted file mode 100644 index 82c3cb2f0..000000000 --- a/src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/testRemoteTrackingHistorianRemoteRef.st +++ /dev/null @@ -1,5 +0,0 @@ -tests -testRemoteTrackingHistorianRemoteRef - | remoteTrackingHistorian | - remoteTrackingHistorian := self createRemoteTrackingBranchForMaster. - self assert: remoteTrackingHistorian remoteRef name = 'refs/heads/master'. \ No newline at end of file diff --git a/src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/testRemoteTrackingHistorianRemoteRefWithNonDefaultFetchSpec.st b/src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/testRemoteTrackingHistorianRemoteRefWithNonDefaultFetchSpec.st deleted file mode 100644 index 667222938..000000000 --- a/src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/testRemoteTrackingHistorianRemoteRefWithNonDefaultFetchSpec.st +++ /dev/null @@ -1,5 +0,0 @@ -tests -testRemoteTrackingHistorianRemoteRefWithNonDefaultFetchSpec - | remoteTrackingHistorian | - remoteTrackingHistorian := self createRemoteTrackingBranchForMasterWithFetchSpec: '+refs/heads/extra/*:refs/remotes/myremote/*'. - self assert: remoteTrackingHistorian remoteRef name = 'refs/heads/extra/master'. \ No newline at end of file diff --git a/src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/testRemoteTrackingHistorianThatDoNotExist.st b/src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/testRemoteTrackingHistorianThatDoNotExist.st deleted file mode 100644 index 917911f40..000000000 --- a/src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/testRemoteTrackingHistorianThatDoNotExist.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testRemoteTrackingHistorianThatDoNotExist - | remoteTrackingHistorian | - fsGitRepository addRemote: 'myremote' url: 'http://example.com/git/example.git'. - remoteTrackingHistorian := squitRepository historianNamed: 'refs/remotes/myremote/mybranch'. - self assert: remoteTrackingHistorian version isNil; - assert: remoteTrackingHistorian remoteName = 'myremote'; - assert: remoteTrackingHistorian remoteRef name = 'refs/heads/mybranch'. \ No newline at end of file diff --git a/src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/testRemoteTrackingHistorianWithoutRemote.st b/src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/testRemoteTrackingHistorianWithoutRemote.st deleted file mode 100644 index 46a8379e4..000000000 --- a/src/Squit.package/SquitRemoteTrackingHistorianTest.class/instance/testRemoteTrackingHistorianWithoutRemote.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testRemoteTrackingHistorianWithoutRemote - "A remote-tracking branch without a remote is not actually remote-tracking, - so the historian should answer the related queries with nil." - | remoteTrackingHistorian | - self assert: (squitRepository git remoteConfigFor: 'myremote' option: 'fetch') isNil. - remoteTrackingHistorian := squitRepository historianNamed: 'refs/remotes/myremote/mybranch'. - self assert: remoteTrackingHistorian version isNil; - assert: remoteTrackingHistorian remoteName isNil; - assert: remoteTrackingHistorian remoteRef isNil. \ No newline at end of file diff --git a/src/Squit.package/SquitRemoteTrackingHistorianTest.class/methodProperties.json b/src/Squit.package/SquitRemoteTrackingHistorianTest.class/methodProperties.json deleted file mode 100644 index 32319ff21..000000000 --- a/src/Squit.package/SquitRemoteTrackingHistorianTest.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "performTest" : "jr 3/2/2020 22:37", - "testMergeMessage" : "jr 11/21/2018 21:45", - "testRemoteTrackingHistorianRemoteName" : "jr 11/21/2018 20:52", - "testRemoteTrackingHistorianRemoteRef" : "jr 11/21/2018 21:30", - "testRemoteTrackingHistorianRemoteRefWithNonDefaultFetchSpec" : "jr 11/21/2018 21:30", - "testRemoteTrackingHistorianThatDoNotExist" : "jr 11/21/2018 21:30", - "testRemoteTrackingHistorianWithoutRemote" : "jr 3/7/2020 00:10" } } diff --git a/src/Squit.package/SquitRemoteTrackingHistorianTest.class/properties.json b/src/Squit.package/SquitRemoteTrackingHistorianTest.class/properties.json deleted file mode 100644 index 929d57340..000000000 --- a/src/Squit.package/SquitRemoteTrackingHistorianTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squit-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquitRemoteTrackingHistorianTest", - "pools" : [ - ], - "super" : "SquitTest", - "type" : "normal" } diff --git a/src/Squit.package/SquitRemotesBrowser.class/README.md b/src/Squit.package/SquitRemotesBrowser.class/README.md deleted file mode 100644 index 7146462f1..000000000 --- a/src/Squit.package/SquitRemotesBrowser.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I show and allow to change users the remotes configured in a repository. \ No newline at end of file diff --git a/src/Squit.package/SquitRemotesBrowser.class/instance/addRemote.st b/src/Squit.package/SquitRemotesBrowser.class/instance/addRemote.st deleted file mode 100644 index f719973fe..000000000 --- a/src/Squit.package/SquitRemotesBrowser.class/instance/addRemote.st +++ /dev/null @@ -1,17 +0,0 @@ -actions -addRemote - | previouslySelectedRemoteName | - previouslySelectedRemoteName := self selectedRemoteName. - SquitInteractiveAddRemote new - repository: workingCopy repository; - onRemoteAddedDo: - [:new | - Project current addDeferredUIMessage: - [self changed: #remotesLabels. - self selectedRemoteName: new remoteName]]; - onRollbackDo: - [:rolledBack | - Project current addDeferredUIMessage: - [self changed: #remotesLabels. - self selectedRemoteName: previouslySelectedRemoteName]]; - run \ No newline at end of file diff --git a/src/Squit.package/SquitRemotesBrowser.class/instance/buildWith..st b/src/Squit.package/SquitRemotesBrowser.class/instance/buildWith..st deleted file mode 100644 index 2e378bef7..000000000 --- a/src/Squit.package/SquitRemotesBrowser.class/instance/buildWith..st +++ /dev/null @@ -1,40 +0,0 @@ -toolbuilder -buildWith: toolBuilder - ^ toolBuilder build: (toolBuilder pluggableWindowSpec new - model: self; - label: #labelString; - extent: 250@100 * RealEstateAgent scaleFactor; - children: { - toolBuilder pluggableListSpec new - name: #remotesList; - model: self; - list: #remotesLabels; - getSelected: #selectedRemoteName; - setSelected: #selectedRemoteName:; - frame: (LayoutFrame fractions: (0@0 corner: 1@1) offsets: (0@0 corner: 0@self buttonHeight negated)); - yourself. - toolBuilder pluggablePanelSpec new - frame: (LayoutFrame fractions: (0@1 corner: 1@1) offsets: (0@ self buttonHeight negated corner: 0@0)); - layout: #horizontal; - children: - {toolBuilder pluggableButtonSpec new - name: #addRemote; - model: self; - label: 'Add remote'; - action: #addRemote; - yourself. - toolBuilder pluggableButtonSpec new - name: #editSelectedRemote; - model: self; - label: 'Edit selected'; - enabled: #isAnyRemoteSelected; - action: #editSelectedRemote; - yourself. - toolBuilder pluggableButtonSpec new - name: #removeSelectedRemote; - model: self; - label: 'Remove selected'; - enabled: #isAnyRemoteSelected; - action: #removeSelectedRemote; - yourself.}; - yourself.}) \ No newline at end of file diff --git a/src/Squit.package/SquitRemotesBrowser.class/instance/buttonHeight.st b/src/Squit.package/SquitRemotesBrowser.class/instance/buttonHeight.st deleted file mode 100644 index 34c2656ca..000000000 --- a/src/Squit.package/SquitRemotesBrowser.class/instance/buttonHeight.st +++ /dev/null @@ -1,3 +0,0 @@ -toolbuilder -buttonHeight - ^ SquotGUI buttonBarHeight \ No newline at end of file diff --git a/src/Squit.package/SquitRemotesBrowser.class/instance/changed.st b/src/Squit.package/SquitRemotesBrowser.class/instance/changed.st deleted file mode 100644 index a7f66f7d0..000000000 --- a/src/Squit.package/SquitRemotesBrowser.class/instance/changed.st +++ /dev/null @@ -1,4 +0,0 @@ -updating -changed - super changed. - self changed: #remotesLabels. \ No newline at end of file diff --git a/src/Squit.package/SquitRemotesBrowser.class/instance/editSelectedRemote.st b/src/Squit.package/SquitRemotesBrowser.class/instance/editSelectedRemote.st deleted file mode 100644 index 63290d506..000000000 --- a/src/Squit.package/SquitRemotesBrowser.class/instance/editSelectedRemote.st +++ /dev/null @@ -1,20 +0,0 @@ -actions -editSelectedRemote - | previouslySelectedRemoteName | - self flag: #remoteRepository. - previouslySelectedRemoteName := self selectedRemoteName. - self withUnitOfWork: - [(SquitInteractiveEditRemote - repository: workingCopy repository - remote: (workingCopy repository git remoteNamed: previouslySelectedRemoteName)) - onRemoteAddedDo: - [:new | - Project current addDeferredUIMessage: - [self changed: #remotesLabels. - self selectedRemoteName: new remoteName]]; - onRollbackDo: - [:rolledBack | - Project current addDeferredUIMessage: - [self changed: #remotesLabels. - self selectedRemoteName: previouslySelectedRemoteName]]; - run] \ No newline at end of file diff --git a/src/Squit.package/SquitRemotesBrowser.class/instance/gitRepository.st b/src/Squit.package/SquitRemotesBrowser.class/instance/gitRepository.st deleted file mode 100644 index 297406776..000000000 --- a/src/Squit.package/SquitRemotesBrowser.class/instance/gitRepository.st +++ /dev/null @@ -1,3 +0,0 @@ -private -gitRepository - ^ workingCopy repository fsgitRepository \ No newline at end of file diff --git a/src/Squit.package/SquitRemotesBrowser.class/instance/isAnyRemoteSelected.st b/src/Squit.package/SquitRemotesBrowser.class/instance/isAnyRemoteSelected.st deleted file mode 100644 index c14bf59e8..000000000 --- a/src/Squit.package/SquitRemotesBrowser.class/instance/isAnyRemoteSelected.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isAnyRemoteSelected - ^ selectedRemoteName notNil \ No newline at end of file diff --git a/src/Squit.package/SquitRemotesBrowser.class/instance/labelString.st b/src/Squit.package/SquitRemotesBrowser.class/instance/labelString.st deleted file mode 100644 index 2494cb882..000000000 --- a/src/Squit.package/SquitRemotesBrowser.class/instance/labelString.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -labelString - ^ 'Remotes of ', workingCopy name \ No newline at end of file diff --git a/src/Squit.package/SquitRemotesBrowser.class/instance/remotesLabels.st b/src/Squit.package/SquitRemotesBrowser.class/instance/remotesLabels.st deleted file mode 100644 index 3e97edfbe..000000000 --- a/src/Squit.package/SquitRemotesBrowser.class/instance/remotesLabels.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -remotesLabels - ^ self withUnitOfWork: [self gitRepository remoteNames sorted] \ No newline at end of file diff --git a/src/Squit.package/SquitRemotesBrowser.class/instance/removeSelectedRemote.st b/src/Squit.package/SquitRemotesBrowser.class/instance/removeSelectedRemote.st deleted file mode 100644 index f3a114cc1..000000000 --- a/src/Squit.package/SquitRemotesBrowser.class/instance/removeSelectedRemote.st +++ /dev/null @@ -1,7 +0,0 @@ -actions -removeSelectedRemote - self isAnyRemoteSelected ifFalse: [^ self]. - self withUnitOfWork: - [self gitRepository removeRemoteNamed: self selectedRemoteName. - self changed: #remotesLabels; - selectedRemoteName: nil]. \ No newline at end of file diff --git a/src/Squit.package/SquitRemotesBrowser.class/instance/selectedRemoteName..st b/src/Squit.package/SquitRemotesBrowser.class/instance/selectedRemoteName..st deleted file mode 100644 index d31b7faae..000000000 --- a/src/Squit.package/SquitRemotesBrowser.class/instance/selectedRemoteName..st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -selectedRemoteName: aString - selectedRemoteName = aString ifTrue: [^ self]. - selectedRemoteName := aString. - self changed: #selectedRemoteName; - changed: #isAnyRemoteSelected. \ No newline at end of file diff --git a/src/Squit.package/SquitRemotesBrowser.class/instance/selectedRemoteName.st b/src/Squit.package/SquitRemotesBrowser.class/instance/selectedRemoteName.st deleted file mode 100644 index bdf4642fb..000000000 --- a/src/Squit.package/SquitRemotesBrowser.class/instance/selectedRemoteName.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -selectedRemoteName - ^ selectedRemoteName \ No newline at end of file diff --git a/src/Squit.package/SquitRemotesBrowser.class/instance/withUnitOfWork..st b/src/Squit.package/SquitRemotesBrowser.class/instance/withUnitOfWork..st deleted file mode 100644 index 1569b22b3..000000000 --- a/src/Squit.package/SquitRemotesBrowser.class/instance/withUnitOfWork..st +++ /dev/null @@ -1,8 +0,0 @@ -private -withUnitOfWork: aBlock - | unitOfWork | - unitOfWork := workingCopy repository unitOfWork. - ^ [unitOfWork - start; - activateDuring: [aBlock value]] - ensure: [unitOfWork finish] \ No newline at end of file diff --git a/src/Squit.package/SquitRemotesBrowser.class/instance/workingCopy..st b/src/Squit.package/SquitRemotesBrowser.class/instance/workingCopy..st deleted file mode 100644 index 240017aef..000000000 --- a/src/Squit.package/SquitRemotesBrowser.class/instance/workingCopy..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -workingCopy: anObject - - workingCopy := anObject. \ No newline at end of file diff --git a/src/Squit.package/SquitRemotesBrowser.class/instance/workingCopy.st b/src/Squit.package/SquitRemotesBrowser.class/instance/workingCopy.st deleted file mode 100644 index 725b545b8..000000000 --- a/src/Squit.package/SquitRemotesBrowser.class/instance/workingCopy.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -workingCopy - - ^ workingCopy \ No newline at end of file diff --git a/src/Squit.package/SquitRemotesBrowser.class/methodProperties.json b/src/Squit.package/SquitRemotesBrowser.class/methodProperties.json deleted file mode 100644 index 0cbd12346..000000000 --- a/src/Squit.package/SquitRemotesBrowser.class/methodProperties.json +++ /dev/null @@ -1,19 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "addRemote" : "jr 7/1/2020 21:59", - "buildWith:" : "jr 2/20/2022 11:28", - "buttonHeight" : "jr 2/20/2022 11:29", - "changed" : "jr 7/20/2020 13:15", - "editSelectedRemote" : "jr 8/30/2020 19:47", - "gitRepository" : "jr 3/4/2020 00:22", - "isAnyRemoteSelected" : "jr 10/14/2018 22:00", - "labelString" : "jr 10/14/2018 22:10", - "remotesLabels" : "jr 4/11/2020 23:51", - "removeSelectedRemote" : "jr 4/11/2020 23:51", - "selectedRemoteName" : "jr 10/14/2018 22:00", - "selectedRemoteName:" : "jr 10/14/2018 22:01", - "withUnitOfWork:" : "jr 5/8/2020 17:16", - "workingCopy" : "jr 10/14/2018 21:56", - "workingCopy:" : "jr 10/14/2018 21:56" } } diff --git a/src/Squit.package/SquitRemotesBrowser.class/properties.json b/src/Squit.package/SquitRemotesBrowser.class/properties.json deleted file mode 100644 index 18c916b28..000000000 --- a/src/Squit.package/SquitRemotesBrowser.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squit-UI", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 21:25", - "instvars" : [ - "workingCopy", - "selectedRemoteName" ], - "name" : "SquitRemotesBrowser", - "pools" : [ - ], - "super" : "Model", - "type" : "normal" } diff --git a/src/Squit.package/SquitRepository.class/README.md b/src/Squit.package/SquitRepository.class/README.md deleted file mode 100644 index a23c4fd20..000000000 --- a/src/Squit.package/SquitRepository.class/README.md +++ /dev/null @@ -1,4 +0,0 @@ -I am a local repository implementation for Git repositories (using FileSystem-Git). - -Instance Variables - gitRepository: diff --git a/src/Squit.package/SquitRepository.class/class/cleanUp..st b/src/Squit.package/SquitRepository.class/class/cleanUp..st deleted file mode 100644 index 198852a83..000000000 --- a/src/Squit.package/SquitRepository.class/class/cleanUp..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -cleanUp: aggressive - "Remove credentials" - aggressive ifTrue: [self allSubInstancesDo: [:each | each removeAllCredentials]]. \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/class/on..st b/src/Squit.package/SquitRepository.class/class/on..st deleted file mode 100644 index d277771a1..000000000 --- a/src/Squit.package/SquitRepository.class/class/on..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -on: aFileSystemGitRepository - ^ self new - initializeWith: aFileSystemGitRepository; - yourself \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/class/onDirectory..st b/src/Squit.package/SquitRepository.class/class/onDirectory..st deleted file mode 100644 index 70aee2afe..000000000 --- a/src/Squit.package/SquitRepository.class/class/onDirectory..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -onDirectory: aDirectoryReference - ^ self new - initializeWith: (FileSystemGitRepository on: aDirectoryReference); - yourself \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/^equals.st b/src/Squit.package/SquitRepository.class/instance/^equals.st deleted file mode 100644 index c3f713665..000000000 --- a/src/Squit.package/SquitRepository.class/instance/^equals.st +++ /dev/null @@ -1,4 +0,0 @@ -comparing -= anObject - self species = anObject species ifFalse: [^ false]. - ^ gitRepository repository = anObject gitRepository \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/addCredentialsFor.user.password..st b/src/Squit.package/SquitRepository.class/instance/addCredentialsFor.user.password..st deleted file mode 100644 index ff1dd6fee..000000000 --- a/src/Squit.package/SquitRepository.class/instance/addCredentialsFor.user.password..st +++ /dev/null @@ -1,3 +0,0 @@ -synchronizing -addCredentialsFor: repositoryUrlString user: userNameString password: passwordString - credentials at: repositoryUrlString put: (Array with: userNameString with: passwordString) \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/addUserSettingsOf.to..st b/src/Squit.package/SquitRepository.class/instance/addUserSettingsOf.to..st deleted file mode 100644 index 07b0e7112..000000000 --- a/src/Squit.package/SquitRepository.class/instance/addUserSettingsOf.to..st +++ /dev/null @@ -1,14 +0,0 @@ -*Squit-UI -addUserSettingsOf: aSquotWorkingCopy to: aPluggableMenuSpec - | serializers | - serializers := ((aSquotWorkingCopy artifacts - groupBy: [:each | each storeInfo serializer]) - associations - reject: [:each | each key isNil]) - collect: [:each | (self class environment classNamed: each key) -> each value]. - serializers do: - [:each | each key - addUserSettingsOfAll: each value - in: aSquotWorkingCopy - to: aPluggableMenuSpec]. - ^ aPluggableMenuSpec \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/cachedSnapshotOf.ifAbsentPut..st b/src/Squit.package/SquitRepository.class/instance/cachedSnapshotOf.ifAbsentPut..st deleted file mode 100644 index 8b4175766..000000000 --- a/src/Squit.package/SquitRepository.class/instance/cachedSnapshotOf.ifAbsentPut..st +++ /dev/null @@ -1,20 +0,0 @@ -accessing -cachedSnapshotOf: aVersion ifAbsentPut: aBlock - "Keep last four versions in most recently used order. - Two for switching branches plus two temporary stash commits for each." - | index snapshot | - (cachedSnapshots ifNil: [cachedSnapshots := Array with: aVersion -> aBlock value]). - index := cachedSnapshots findFirst: [:each | each key = aVersion]. - index == 0 - ifTrue: [snapshot := aBlock value] - ifFalse: [snapshot := (cachedSnapshots at: index) value]. - [index ~~ 1 ifTrue: - [(LimitedWriteStream on: (Array new: 4)) in: [:stream | - stream setLimit: 4 limitBlock: [cachedSnapshots := stream contents. ^ snapshot]. - stream nextPut: aVersion -> snapshot. - cachedSnapshots withIndexDo: [:each :eachIndex | - eachIndex ~~ index ifTrue: [stream nextPut: each]]. - cachedSnapshots := stream contents]]] - ensure: - [self assert: cachedSnapshots first key = aVersion. - ^ snapshot] \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/cloneFrom..st b/src/Squit.package/SquitRepository.class/instance/cloneFrom..st deleted file mode 100644 index c474379c7..000000000 --- a/src/Squit.package/SquitRepository.class/instance/cloneFrom..st +++ /dev/null @@ -1,3 +0,0 @@ -synchronizing -cloneFrom: remoteUrl - self withCredentialsDo: [gitRepository cloneFrom: remoteUrl]. \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/convertToCurrentVersion.refStream..st b/src/Squit.package/SquitRepository.class/instance/convertToCurrentVersion.refStream..st deleted file mode 100644 index 8c78469c8..000000000 --- a/src/Squit.package/SquitRepository.class/instance/convertToCurrentVersion.refStream..st +++ /dev/null @@ -1,4 +0,0 @@ -objects from disk -convertToCurrentVersion: varDict refStream: smartRefStream - credentials ifNil: [credentials := Dictionary new]. - ^ super convertToCurrentVersion: varDict refStream: smartRefStream \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/copySettingsFrom.to..st b/src/Squit.package/SquitRepository.class/instance/copySettingsFrom.to..st deleted file mode 100644 index 6c4f0fadd..000000000 --- a/src/Squit.package/SquitRepository.class/instance/copySettingsFrom.to..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot repository -copySettingsFrom: anArtifact to: newTrackedObjectMetadata - SquotFileSystemStore copySettingsFrom: anArtifact to: newTrackedObjectMetadata. \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/createNewVersion.with..st b/src/Squit.package/SquitRepository.class/instance/createNewVersion.with..st deleted file mode 100644 index f31034a5a..000000000 --- a/src/Squit.package/SquitRepository.class/instance/createNewVersion.with..st +++ /dev/null @@ -1,9 +0,0 @@ -Squot repository -createNewVersion: aSnapshot with: aBlock - "Build a new version with aSnapshot as its snapshot and supply the new version or a - builder object for it to aBlock, during which additional properties can be set up. - When aBlock returns here, store the new version permanently." - ^ (SquitVersionBuilder repository: self) - snapshot: aSnapshot; - in: aBlock; - buildVersion. \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/createNewVersionFromPatch.with..st b/src/Squit.package/SquitRepository.class/instance/createNewVersionFromPatch.with..st deleted file mode 100644 index dc8c74af2..000000000 --- a/src/Squit.package/SquitRepository.class/instance/createNewVersionFromPatch.with..st +++ /dev/null @@ -1,6 +0,0 @@ -Squot repository -createNewVersionFromPatch: aPatch with: aBlock - ^ (SquitVersionBuilder repository: self) - patch: aPatch; - in: aBlock; - buildVersion. \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/credentialsFor..st b/src/Squit.package/SquitRepository.class/instance/credentialsFor..st deleted file mode 100644 index 15bf3ca55..000000000 --- a/src/Squit.package/SquitRepository.class/instance/credentialsFor..st +++ /dev/null @@ -1,3 +0,0 @@ -synchronizing -credentialsFor: repositoryUrl - ^ credentials at: repositoryUrl asString ifAbsent: [] \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/defaultAuthor.st b/src/Squit.package/SquitRepository.class/instance/defaultAuthor.st deleted file mode 100644 index 0e5682221..000000000 --- a/src/Squit.package/SquitRepository.class/instance/defaultAuthor.st +++ /dev/null @@ -1,9 +0,0 @@ -authorInformation -defaultAuthor - | name email author | - name := self git configAt: 'user.name'. - email := self git configAt: 'user.email'. - author := GitStamp - nowBy: (name ifNil: [GitStamp defaultName]) "equivalent to ~/.gitconfig" - email: (email ifNil: [GitStamp defaultEmail]). - ^ author \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/defaultHistorian.st b/src/Squit.package/SquitRepository.class/instance/defaultHistorian.st deleted file mode 100644 index 28d1f0f65..000000000 --- a/src/Squit.package/SquitRepository.class/instance/defaultHistorian.st +++ /dev/null @@ -1,4 +0,0 @@ -Squot repository -defaultHistorian - "Do not use HEAD because that needs a unit of work (which is not used in test initialization, for example)." - ^ self historianNamed: 'refs/heads/master' \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/delete..st b/src/Squit.package/SquitRepository.class/instance/delete..st deleted file mode 100644 index 4734f7e97..000000000 --- a/src/Squit.package/SquitRepository.class/instance/delete..st +++ /dev/null @@ -1,4 +0,0 @@ -Pur repository -delete: aHistorian - self withUnitOfWork: [self git deleteRef: aHistorian name]. - Project current addDeferredUIMessage: [self changed: #historians]. \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/exists.st b/src/Squit.package/SquitRepository.class/instance/exists.st deleted file mode 100644 index c8d8625eb..000000000 --- a/src/Squit.package/SquitRepository.class/instance/exists.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -exists - ^ gitRepository repository exists \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/expandShortRefName..st b/src/Squit.package/SquitRepository.class/instance/expandShortRefName..st deleted file mode 100644 index 9ea48938a..000000000 --- a/src/Squit.package/SquitRepository.class/instance/expandShortRefName..st +++ /dev/null @@ -1,10 +0,0 @@ -Pur repository -expandShortRefName: aString - "Prepend refs/heads/ to branch names like 'master' or 'feature/xyz' - and resolve symbolic references." - ^ (aString beginsWith: 'refs/') - ifTrue: [aString] - ifFalse: [self flag: #hack. - (self git expandRef: aString) - ifNotNil: [:expandedRef | expandedRef] - ifNil: ['refs/heads/', aString]] \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/export.withName.toRemoteNamed..st b/src/Squit.package/SquitRepository.class/instance/export.withName.toRemoteNamed..st deleted file mode 100644 index 85106af41..000000000 --- a/src/Squit.package/SquitRepository.class/instance/export.withName.toRemoteNamed..st +++ /dev/null @@ -1,8 +0,0 @@ -synchronizing -export: aHistorian withName: branchString toRemoteNamed: remoteString - self withCredentialsDo: - [[gitRepository push: {aHistorian name -> branchString} toRemote: remoteString] - on: GitRefDoesNotExistYet do: - [:error | SquotCannotExportEmptyHistory new - historian: aHistorian; - signal: error messageText]] \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/extension.ifPresent.ifAbsent..st b/src/Squit.package/SquitRepository.class/instance/extension.ifPresent.ifAbsent..st deleted file mode 100644 index e31660e1b..000000000 --- a/src/Squit.package/SquitRepository.class/instance/extension.ifPresent.ifAbsent..st +++ /dev/null @@ -1,6 +0,0 @@ -Squot repository extensions -extension: extensionId ifPresent: presentBlock ifAbsent: absentBlock - ^ extensionId caseOf: { - [#authorInformation] -> [presentBlock value: self]. - [#filesystem] -> [presentBlock value: self filesystemExtension]. - } otherwise: [absentBlock value] \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/filesystemExtension.st b/src/Squit.package/SquitRepository.class/instance/filesystemExtension.st deleted file mode 100644 index f3c7943df..000000000 --- a/src/Squit.package/SquitRepository.class/instance/filesystemExtension.st +++ /dev/null @@ -1,5 +0,0 @@ -Squot repository extensions -filesystemExtension - ^ SquitRepositoryFilesystemExtension new - repository: self; - yourself \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/finalizeWeakCaches.st b/src/Squit.package/SquitRepository.class/instance/finalizeWeakCaches.st deleted file mode 100644 index 775e9c31a..000000000 --- a/src/Squit.package/SquitRepository.class/instance/finalizeWeakCaches.st +++ /dev/null @@ -1,3 +0,0 @@ -private -finalizeWeakCaches - versionsCache keysAndValuesRemove: [:key :value | value isNil]. \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/findVersionByString..st b/src/Squit.package/SquitRepository.class/instance/findVersionByString..st deleted file mode 100644 index 9b99fe2ef..000000000 --- a/src/Squit.package/SquitRepository.class/instance/findVersionByString..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -findVersionByString: aString - (self historianNamed: aString) version ifNotNil: [:version | ^ version]. - ^ self notYetImplemented \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/flushCaches.st b/src/Squit.package/SquitRepository.class/instance/flushCaches.st deleted file mode 100644 index d7125e743..000000000 --- a/src/Squit.package/SquitRepository.class/instance/flushCaches.st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -flushCaches - versionsCache removeAll. - filesystemsCache removeAll. - gitRepository flushCaches. - cachedSnapshots := nil. \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/fsgitRepository.st b/src/Squit.package/SquitRepository.class/instance/fsgitRepository.st deleted file mode 100644 index 259b07d5f..000000000 --- a/src/Squit.package/SquitRepository.class/instance/fsgitRepository.st +++ /dev/null @@ -1,4 +0,0 @@ -private -fsgitRepository - "Answer the FileSystemGitRepository of this repository." - ^ gitRepository \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/git.st b/src/Squit.package/SquitRepository.class/instance/git.st deleted file mode 100644 index f9d9bc748..000000000 --- a/src/Squit.package/SquitRepository.class/instance/git.st +++ /dev/null @@ -1,4 +0,0 @@ -private -git - "Answer an object that can perform Git operations." - ^ GitCurrentUnitOfWork for: gitRepository repository \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/gitRepository.st b/src/Squit.package/SquitRepository.class/instance/gitRepository.st deleted file mode 100644 index 4baaaf3bf..000000000 --- a/src/Squit.package/SquitRepository.class/instance/gitRepository.st +++ /dev/null @@ -1,4 +0,0 @@ -private -gitRepository - "Answer the GitRepository of this repository." - ^ gitRepository repository \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/hasRemotes.st b/src/Squit.package/SquitRepository.class/instance/hasRemotes.st deleted file mode 100644 index 151211773..000000000 --- a/src/Squit.package/SquitRepository.class/instance/hasRemotes.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasRemotes - ^ gitRepository remoteNames notEmpty \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/hash.st b/src/Squit.package/SquitRepository.class/instance/hash.st deleted file mode 100644 index 883c3f10c..000000000 --- a/src/Squit.package/SquitRepository.class/instance/hash.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -hash - ^ gitRepository repository hash \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/headHistorian.st b/src/Squit.package/SquitRepository.class/instance/headHistorian.st deleted file mode 100644 index 626f4b677..000000000 --- a/src/Squit.package/SquitRepository.class/instance/headHistorian.st +++ /dev/null @@ -1,3 +0,0 @@ -historians -headHistorian - ^ self historianNamed: (self git followSymbolicRefs: 'HEAD') \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/historianForTemporaryVersions.st b/src/Squit.package/SquitRepository.class/instance/historianForTemporaryVersions.st deleted file mode 100644 index 130a20c2f..000000000 --- a/src/Squit.package/SquitRepository.class/instance/historianForTemporaryVersions.st +++ /dev/null @@ -1,3 +0,0 @@ -temporary historians -historianForTemporaryVersions - ^ self historianNamed: 'refs/squot-stash' \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/historianForTemporaryVersionsOn..st b/src/Squit.package/SquitRepository.class/instance/historianForTemporaryVersionsOn..st deleted file mode 100644 index 0da63a20c..000000000 --- a/src/Squit.package/SquitRepository.class/instance/historianForTemporaryVersionsOn..st +++ /dev/null @@ -1,3 +0,0 @@ -temporary historians -historianForTemporaryVersionsOn: aHistorian - ^ self historianNamed: 'refs/meta/squot-stash-', aHistorian name \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/historianNamed..st b/src/Squit.package/SquitRepository.class/instance/historianNamed..st deleted file mode 100644 index cda40f898..000000000 --- a/src/Squit.package/SquitRepository.class/instance/historianNamed..st +++ /dev/null @@ -1,9 +0,0 @@ -Pur repository -historianNamed: aHistorianName - | expandedRef | - ^ self withUnitOfWork: - [expandedRef := self expandShortRefName: aHistorianName. - SquitHistorian - newNamed: expandedRef - repository: self - git: gitRepository repository] \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/historians.st b/src/Squit.package/SquitRepository.class/instance/historians.st deleted file mode 100644 index d29d404eb..000000000 --- a/src/Squit.package/SquitRepository.class/instance/historians.st +++ /dev/null @@ -1,8 +0,0 @@ -Pur repository -historians - "returns a collection of Historians" - ^ gitRepository branchNames collect: [:each | - SquitHistorian - existingNamed: each - repository: self - git: gitRepository repository] \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/historyWalkClass.st b/src/Squit.package/SquitRepository.class/instance/historyWalkClass.st deleted file mode 100644 index dac9c0c6a..000000000 --- a/src/Squit.package/SquitRepository.class/instance/historyWalkClass.st +++ /dev/null @@ -1,3 +0,0 @@ -Squot repository -historyWalkClass - ^ SquitHistoryWalk \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/importFromAll..st b/src/Squit.package/SquitRepository.class/instance/importFromAll..st deleted file mode 100644 index 5ca50a460..000000000 --- a/src/Squit.package/SquitRepository.class/instance/importFromAll..st +++ /dev/null @@ -1,5 +0,0 @@ -synchronizing -importFromAll: remoteNames - self flag: #RemoteRepositoryAPI. "git internals such as remote names should be encapsulated" - self withCredentialsDo: - [gitRepository fetchFromAll: remoteNames]. \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/importFromUpstream..st b/src/Squit.package/SquitRepository.class/instance/importFromUpstream..st deleted file mode 100644 index c59ff3734..000000000 --- a/src/Squit.package/SquitRepository.class/instance/importFromUpstream..st +++ /dev/null @@ -1,5 +0,0 @@ -synchronizing -importFromUpstream: remoteName - self flag: #RemoteRepositoryAPI. "git internals such as remote names should be encapsulated" - self withCredentialsDo: - [gitRepository fetchFrom: remoteName]. \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/initialize.st b/src/Squit.package/SquitRepository.class/instance/initialize.st deleted file mode 100644 index fbe26ef4d..000000000 --- a/src/Squit.package/SquitRepository.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialize-release -initialize - versionsCache := WeakValueDictionary new. - filesystemsCache := Dictionary new. - leastRecentlyRequestedFilesystems := OrderedCollection new. - credentials := Dictionary new. "repository URL -> credentials" \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/initializeGitRepositoryIn..st b/src/Squit.package/SquitRepository.class/instance/initializeGitRepositoryIn..st deleted file mode 100644 index a762cabdf..000000000 --- a/src/Squit.package/SquitRepository.class/instance/initializeGitRepositoryIn..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initializeGitRepositoryIn: aDirectoryReference - aDirectoryReference ensureDirectory. - self initializeWith: (FileSystemGitRepository on: aDirectoryReference). \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/initializeInDirectory..st b/src/Squit.package/SquitRepository.class/instance/initializeInDirectory..st deleted file mode 100644 index 4d7f3858c..000000000 --- a/src/Squit.package/SquitRepository.class/instance/initializeInDirectory..st +++ /dev/null @@ -1,4 +0,0 @@ -Squot repository -initializeInDirectory: aDirectoryReference - "Make sure the given directory is ready to be used as a repository of my kind." - self initializeGitRepositoryIn: aDirectoryReference. \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/initializeStoreInfo.forObject..st b/src/Squit.package/SquitRepository.class/instance/initializeStoreInfo.forObject..st deleted file mode 100644 index a847b3877..000000000 --- a/src/Squit.package/SquitRepository.class/instance/initializeStoreInfo.forObject..st +++ /dev/null @@ -1,3 +0,0 @@ -adding and removing -initializeStoreInfo: aTrackedObjectMetadata forObject: aShadow - ^ SquotFileSystemStore initializeStoreInfo: aTrackedObjectMetadata forObject: aShadow \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/initializeWith..st b/src/Squit.package/SquitRepository.class/instance/initializeWith..st deleted file mode 100644 index 9a7028aec..000000000 --- a/src/Squit.package/SquitRepository.class/instance/initializeWith..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initializeWith: aFileSystemGitRepository - self initialize. - gitRepository := aFileSystemGitRepository. \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/isAvailable.st b/src/Squit.package/SquitRepository.class/instance/isAvailable.st deleted file mode 100644 index 680f0f3c4..000000000 --- a/src/Squit.package/SquitRepository.class/instance/isAvailable.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isAvailable - ^ gitRepository repository exists \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/location.st b/src/Squit.package/SquitRepository.class/instance/location.st deleted file mode 100644 index 33b93d91d..000000000 --- a/src/Squit.package/SquitRepository.class/instance/location.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -location - ^ gitRepository repository workingDir \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/newHistorian.version..st b/src/Squit.package/SquitRepository.class/instance/newHistorian.version..st deleted file mode 100644 index 6b6845b06..000000000 --- a/src/Squit.package/SquitRepository.class/instance/newHistorian.version..st +++ /dev/null @@ -1,10 +0,0 @@ -Pur repository -newHistorian: name version: aVersion - | fullRefName | - fullRefName := self expandShortRefName: name. - aVersion ifNotNil: - [self git - updateRef: fullRefName - to: aVersion hexHash]. - Project current addDeferredUIMessage: [self changed: #historians]. - ^ self historianNamed: fullRefName \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/newVersionForCommit..st b/src/Squit.package/SquitRepository.class/instance/newVersionForCommit..st deleted file mode 100644 index c4c31dec9..000000000 --- a/src/Squit.package/SquitRepository.class/instance/newVersionForCommit..st +++ /dev/null @@ -1,6 +0,0 @@ -private -newVersionForCommit: aGitCommit - ^ SquitVersion new - repository: self; - commit: aGitCommit; - yourself \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/orphanedWorkingDirectory.st b/src/Squit.package/SquitRepository.class/instance/orphanedWorkingDirectory.st deleted file mode 100644 index 9cb459669..000000000 --- a/src/Squit.package/SquitRepository.class/instance/orphanedWorkingDirectory.st +++ /dev/null @@ -1,3 +0,0 @@ -Squit internal -orphanedWorkingDirectory - ^ gitRepository orphanedHead \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/remoteHistorians.st b/src/Squit.package/SquitRepository.class/instance/remoteHistorians.st deleted file mode 100644 index 81e85a9e5..000000000 --- a/src/Squit.package/SquitRepository.class/instance/remoteHistorians.st +++ /dev/null @@ -1,10 +0,0 @@ -synchronizing -remoteHistorians - ^ Array streamContents: [:stream | - self git - allReferencesPrefixedWith: 'refs/remotes/' - do: [:each | stream nextPut: - (SquitHistorian - existingNamed: (each allButFirst: 'refs/remotes/' size) - repository: self - git: gitRepository repository)]] \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/remoteNames.st b/src/Squit.package/SquitRepository.class/instance/remoteNames.st deleted file mode 100644 index e9fbdd75a..000000000 --- a/src/Squit.package/SquitRepository.class/instance/remoteNames.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -remoteNames - ^ gitRepository remoteNames \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/removeAllCredentials.st b/src/Squit.package/SquitRepository.class/instance/removeAllCredentials.st deleted file mode 100644 index b47a33958..000000000 --- a/src/Squit.package/SquitRepository.class/instance/removeAllCredentials.st +++ /dev/null @@ -1,3 +0,0 @@ -synchronizing -removeAllCredentials - credentials removeAll. \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/removeCredentialsFor..st b/src/Squit.package/SquitRepository.class/instance/removeCredentialsFor..st deleted file mode 100644 index bd31bb263..000000000 --- a/src/Squit.package/SquitRepository.class/instance/removeCredentialsFor..st +++ /dev/null @@ -1,3 +0,0 @@ -synchronizing -removeCredentialsFor: repositoryUrlString - credentials removeKey: repositoryUrlString \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/removeRemoteRef.from..st b/src/Squit.package/SquitRepository.class/instance/removeRemoteRef.from..st deleted file mode 100644 index 53dca487d..000000000 --- a/src/Squit.package/SquitRepository.class/instance/removeRemoteRef.from..st +++ /dev/null @@ -1,6 +0,0 @@ -synchronizing -removeRemoteRef: remoteRef from: remoteName - self withCredentialsDo: - [gitRepository - pushToRemote: remoteName - deleteRemoteBranches: {remoteRef}] \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/tags.st b/src/Squit.package/SquitRepository.class/instance/tags.st deleted file mode 100644 index b91d094d8..000000000 --- a/src/Squit.package/SquitRepository.class/instance/tags.st +++ /dev/null @@ -1,7 +0,0 @@ -tags -tags - | tagHistorians | - tagHistorians := OrderedCollection new. - self git allReferencesPrefixedWith: 'refs/tags/' do: - [:each | tagHistorians add: (self historianNamed: each)]. - ^ tagHistorians \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/unitOfWork.st b/src/Squit.package/SquitRepository.class/instance/unitOfWork.st deleted file mode 100644 index 0e4c157f5..000000000 --- a/src/Squit.package/SquitRepository.class/instance/unitOfWork.st +++ /dev/null @@ -1,7 +0,0 @@ -accessing -unitOfWork - "Answer the currently active unit of work or create a new one." - ^ self withUnitOfWork: - [SquitUnitOfWork - wrapping: gitRepository repository currentUnitOfWork - for: self] \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/versionAt..st b/src/Squit.package/SquitRepository.class/instance/versionAt..st deleted file mode 100644 index 5cf9aa5f0..000000000 --- a/src/Squit.package/SquitRepository.class/instance/versionAt..st +++ /dev/null @@ -1,3 +0,0 @@ -Pur repository -versionAt: aGitHash - ^ self versionForCommit: (self git objectNamed: aGitHash) \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/versionForCommit..st b/src/Squit.package/SquitRepository.class/instance/versionForCommit..st deleted file mode 100644 index 969ec4d38..000000000 --- a/src/Squit.package/SquitRepository.class/instance/versionForCommit..st +++ /dev/null @@ -1,7 +0,0 @@ -Squit internal -versionForCommit: aGitCommit - "Answer the cached SquitVersion on aGitCommit" - aGitCommit ifNil: [^ nil]. - ^ (versionsCache at: aGitCommit - ifAbsentPut: [self newVersionForCommit: aGitCommit]) - ifNil: [versionsCache at: aGitCommit put: (self newVersionForCommit: aGitCommit)] \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/withCredentialsDo..st b/src/Squit.package/SquitRepository.class/instance/withCredentialsDo..st deleted file mode 100644 index 70083b55e..000000000 --- a/src/Squit.package/SquitRepository.class/instance/withCredentialsDo..st +++ /dev/null @@ -1,8 +0,0 @@ -synchronizing -withCredentialsDo: aBlock - ^ aBlock on: NeedGitCredentials do: - [:e | | storedCredentials | - storedCredentials := self credentialsFor: e repositoryUrl asString. - storedCredentials - ifNil: [e pass] - ifNotNil: [e resume: storedCredentials]] \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/withUnitOfWork..st b/src/Squit.package/SquitRepository.class/instance/withUnitOfWork..st deleted file mode 100644 index 11ba5e111..000000000 --- a/src/Squit.package/SquitRepository.class/instance/withUnitOfWork..st +++ /dev/null @@ -1,4 +0,0 @@ -scope activation -withUnitOfWork: aBlock - "The block can be a unit of work on its own, but may be embedded in a larger unit of work. Ensure that any unit of work is running." - ^ gitRepository repository withUnitOfWork: aBlock \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/instance/workingTreeForCommitNamed..st b/src/Squit.package/SquitRepository.class/instance/workingTreeForCommitNamed..st deleted file mode 100644 index 553f67e6e..000000000 --- a/src/Squit.package/SquitRepository.class/instance/workingTreeForCommitNamed..st +++ /dev/null @@ -1,3 +0,0 @@ -Squit internal -workingTreeForCommitNamed: hexHash - ^ gitRepository commitNamed: hexHash \ No newline at end of file diff --git a/src/Squit.package/SquitRepository.class/methodProperties.json b/src/Squit.package/SquitRepository.class/methodProperties.json deleted file mode 100644 index 9874d96bd..000000000 --- a/src/Squit.package/SquitRepository.class/methodProperties.json +++ /dev/null @@ -1,62 +0,0 @@ -{ - "class" : { - "cleanUp:" : "jr 8/2/2020 14:46", - "on:" : "jr 1/11/2017 16:37", - "onDirectory:" : "jr 3/6/2017 18:44" }, - "instance" : { - "=" : "jr 3/5/2020 00:23", - "addCredentialsFor:user:password:" : "jr 4/12/2017 14:21", - "addUserSettingsOf:to:" : "jr 5/27/2022 17:30", - "cachedSnapshotOf:ifAbsentPut:" : "jr 7/23/2017 01:54", - "cloneFrom:" : "jr 5/23/2017 14:22", - "convertToCurrentVersion:refStream:" : "jr 4/12/2017 14:20", - "copySettingsFrom:to:" : "jr 5/27/2022 23:14", - "createNewVersion:with:" : "jr 8/26/2020 22:36", - "createNewVersionFromPatch:with:" : "jr 1/3/2021 20:53", - "credentialsFor:" : "jr 4/15/2017 14:35", - "defaultAuthor" : "jr 8/26/2020 23:13", - "defaultHistorian" : "jr 11/18/2021 22:48", - "delete:" : "jr 3/13/2022 19:09", - "exists" : "jr 4/27/2017 15:47", - "expandShortRefName:" : "jr 3/7/2020 00:06", - "export:withName:toRemoteNamed:" : "jr 7/23/2020 00:46", - "extension:ifPresent:ifAbsent:" : "jr 3/6/2017 19:41", - "filesystemExtension" : "jr 3/6/2017 19:42", - "finalizeWeakCaches" : "jr 7/2/2022 19:50", - "findVersionByString:" : "jr 2/8/2020 20:44", - "flushCaches" : "jr 7/22/2017 22:28", - "fsgitRepository" : "jr 3/7/2020 00:11", - "git" : "jr 8/8/2020 16:27", - "gitRepository" : "jr 3/7/2020 00:11", - "hasRemotes" : "jr 5/30/2019 01:20", - "hash" : "jr 4/14/2017 00:55", - "headHistorian" : "jr 11/18/2021 22:48", - "historianForTemporaryVersions" : "jr 6/29/2017 17:13", - "historianForTemporaryVersionsOn:" : "jr 6/29/2017 17:45", - "historianNamed:" : "jr 7/2/2022 19:22", - "historians" : "jr 7/2/2022 19:22", - "historyWalkClass" : "jr 5/9/2020 16:15", - "importFromAll:" : "jr 5/23/2017 14:14", - "importFromUpstream:" : "jr 5/23/2017 12:04", - "initialize" : "jr 4/12/2017 14:16", - "initializeGitRepositoryIn:" : "jr 1/26/2017 12:28", - "initializeInDirectory:" : "jr 1/26/2017 17:35", - "initializeStoreInfo:forObject:" : "jr 5/28/2022 12:02", - "initializeWith:" : "jr 2/1/2017 14:53", - "isAvailable" : "jr 6/21/2017 15:46", - "location" : "jr 4/27/2017 16:15", - "newHistorian:version:" : "jr 3/13/2022 19:07", - "newVersionForCommit:" : "jr 2/1/2017 15:04", - "orphanedWorkingDirectory" : "jr 1/29/2017 22:57", - "remoteHistorians" : "jr 7/2/2022 19:23", - "remoteNames" : "jr 3/4/2020 00:18", - "removeAllCredentials" : "jr 8/2/2020 14:44", - "removeCredentialsFor:" : "jr 7/22/2020 23:41", - "removeRemoteRef:from:" : "jr 5/21/2017 23:47", - "tags" : "jr 3/13/2022 18:08", - "unitOfWork" : "jr 3/2/2020 22:31", - "versionAt:" : "jr 3/7/2020 00:06", - "versionForCommit:" : "jr 7/2/2022 19:33", - "withCredentialsDo:" : "jr 4/26/2017 14:08", - "withUnitOfWork:" : "jr 8/8/2020 16:32", - "workingTreeForCommitNamed:" : "jr 1/29/2017 22:37" } } diff --git a/src/Squit.package/SquitRepository.class/properties.json b/src/Squit.package/SquitRepository.class/properties.json deleted file mode 100644 index 3e88fb6fa..000000000 --- a/src/Squit.package/SquitRepository.class/properties.json +++ /dev/null @@ -1,21 +0,0 @@ -{ - "category" : "Squit-Core", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotLocalRepository classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 20:34", - "instvars" : [ - "gitRepository", - "versionsCache", - "filesystemsCache", - "leastRecentlyRequestedFilesystems", - "credentials", - "cachedSnapshots" ], - "name" : "SquitRepository", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotLocalRepository", - "type" : "normal" } diff --git a/src/Squit.package/SquitRepositoryFilesystemExtension.class/README.md b/src/Squit.package/SquitRepositoryFilesystemExtension.class/README.md deleted file mode 100644 index b613dc860..000000000 --- a/src/Squit.package/SquitRepositoryFilesystemExtension.class/README.md +++ /dev/null @@ -1,4 +0,0 @@ -I create filessytem views on the commits of SquitVersions. - -Instance Variables - repository: diff --git a/src/Squit.package/SquitRepositoryFilesystemExtension.class/instance/forVersion..st b/src/Squit.package/SquitRepositoryFilesystemExtension.class/instance/forVersion..st deleted file mode 100644 index 0813cf160..000000000 --- a/src/Squit.package/SquitRepositoryFilesystemExtension.class/instance/forVersion..st +++ /dev/null @@ -1,3 +0,0 @@ -filesystem extension -forVersion: aVersion - ^ (repository workingTreeForCommitNamed: aVersion hexHash) root \ No newline at end of file diff --git a/src/Squit.package/SquitRepositoryFilesystemExtension.class/instance/repository..st b/src/Squit.package/SquitRepositoryFilesystemExtension.class/instance/repository..st deleted file mode 100644 index ecad11f16..000000000 --- a/src/Squit.package/SquitRepositoryFilesystemExtension.class/instance/repository..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -repository: anObject - - repository := anObject. diff --git a/src/Squit.package/SquitRepositoryFilesystemExtension.class/instance/repository.st b/src/Squit.package/SquitRepositoryFilesystemExtension.class/instance/repository.st deleted file mode 100644 index 329f10902..000000000 --- a/src/Squit.package/SquitRepositoryFilesystemExtension.class/instance/repository.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -repository - - ^ repository diff --git a/src/Squit.package/SquitRepositoryFilesystemExtension.class/methodProperties.json b/src/Squit.package/SquitRepositoryFilesystemExtension.class/methodProperties.json deleted file mode 100644 index 6639e4bf3..000000000 --- a/src/Squit.package/SquitRepositoryFilesystemExtension.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "forVersion:" : "jr 3/6/2017 19:45", - "repository" : "jr 3/6/2017 19:50", - "repository:" : "jr 3/6/2017 19:50" } } diff --git a/src/Squit.package/SquitRepositoryFilesystemExtension.class/properties.json b/src/Squit.package/SquitRepositoryFilesystemExtension.class/properties.json deleted file mode 100644 index a3f929b14..000000000 --- a/src/Squit.package/SquitRepositoryFilesystemExtension.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squit-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 20:38", - "instvars" : [ - "repository" ], - "name" : "SquitRepositoryFilesystemExtension", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squit.package/SquitRepositoryTest.class/README.md b/src/Squit.package/SquitRepositoryTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squit.package/SquitRepositoryTest.class/instance/testCreateCommit.st b/src/Squit.package/SquitRepositoryTest.class/instance/testCreateCommit.st deleted file mode 100644 index c088ed2e1..000000000 --- a/src/Squit.package/SquitRepositoryTest.class/instance/testCreateCommit.st +++ /dev/null @@ -1,29 +0,0 @@ -tests -testCreateCommit - | master oldMasterVersion oldMasterSnapshot snapshotBuilder newVersion newSnapshot gitMaster commit | - squitRepository withUnitOfWork: - [master := squitRepository historianNamed: 'master'. - oldMasterVersion := master version. - "create a new snapshot" - oldMasterSnapshot := oldMasterVersion snapshot. - snapshotBuilder := oldMasterSnapshot createNewBuilder. - self assert: (oldMasterSnapshot artifactAt: 'README.md') - equals: (snapshotBuilder artifactAt: 'README.md') description: 'shared blob'. - snapshotBuilder addAll: (SquotImageStore new - add: 'hollaboo' at: 'README.md'; - captureSnapshot) artifacts. - newSnapshot := snapshotBuilder buildSnapshot. - "create a new version from this snapshot" - newVersion := master createNewVersion: newSnapshot - with: [:version | version message: 'This is a test commit']. - "assertions about the Squit objects" - newSnapshot := newVersion snapshot. - self assert: 'hollaboo' equals: (SquotImageStore new restoreObjectFrom: (newSnapshot artifactAt: 'README.md')). - self assert: newVersion parents asArray = {oldMasterVersion}. - self assert: 'This is a test commit' equals: newVersion message. - "assertions about the git contents" - gitMaster := (fsGitRepository branchNamed: 'master'). - commit := gitMaster revision. - self assert: 'This is a test commit' equals: commit message. - self assert: 'hollaboo' equals: ((gitMaster / 'README.md') readStreamDo: [:s | s contents asString]). - self assert: commit parents asArray = {oldMasterVersion commit}]. \ No newline at end of file diff --git a/src/Squit.package/SquitRepositoryTest.class/instance/testDefaultAuthor.st b/src/Squit.package/SquitRepositoryTest.class/instance/testDefaultAuthor.st deleted file mode 100644 index f7e09a5d2..000000000 --- a/src/Squit.package/SquitRepositoryTest.class/instance/testDefaultAuthor.st +++ /dev/null @@ -1,23 +0,0 @@ -tests -testDefaultAuthor - | defaultStamp author | - defaultStamp := GitStamp now. - (gitRepository baseDir / 'config') ensureDeleted. - author := squitRepository withUnitOfWork: [squitRepository defaultAuthor]. - self assert: defaultStamp name equals: author name. - self assert: defaultStamp email equals: author email. - - gitRepository baseDir / 'config' writeStreamDo: [:stream | - stream nextPutAll: '[user]'; lf; - nextPutAll: ' name = Max Mustermann'; lf; - nextPutAll: ' email = max.mustermann@sq.uit'; lf]. - author := squitRepository withUnitOfWork: [squitRepository defaultAuthor]. - self assert: 'Max Mustermann' equals: author name. - self assert: 'max.mustermann@sq.uit' equals: author email. - - gitRepository baseDir / 'config' writeStreamDo: [:stream | - stream nextPutAll: '[user]'; lf; - nextPutAll: ' email = max.mustermann@sq.uit'; lf]. - author := squitRepository withUnitOfWork: [squitRepository defaultAuthor]. - self assert: defaultStamp name equals: author name. - self assert: 'max.mustermann@sq.uit' equals: author email. \ No newline at end of file diff --git a/src/Squit.package/SquitRepositoryTest.class/instance/testGetMasterSnapshot.st b/src/Squit.package/SquitRepositoryTest.class/instance/testGetMasterSnapshot.st deleted file mode 100644 index cfee3d313..000000000 --- a/src/Squit.package/SquitRepositoryTest.class/instance/testGetMasterSnapshot.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testGetMasterSnapshot - | master masterSnapshot | - squitRepository withUnitOfWork: - [master := squitRepository historianNamed: 'master'. - masterSnapshot := master version snapshot. - self shouldnt: [masterSnapshot artifactAt: 'README.md'] raise: KeyNotFound. - self assert: (SquotImageStore new restoreObjectFrom: (masterSnapshot artifactAt: 'README.md')) isString]. \ No newline at end of file diff --git a/src/Squit.package/SquitRepositoryTest.class/instance/testGetReferenceWithInvalidName.st b/src/Squit.package/SquitRepositoryTest.class/instance/testGetReferenceWithInvalidName.st deleted file mode 100644 index a605d95b7..000000000 --- a/src/Squit.package/SquitRepositoryTest.class/instance/testGetReferenceWithInvalidName.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testGetReferenceWithInvalidName - - | invalidNames | - invalidNames := #('@' 'a/.a' 'a/a.lock' 'a..' '..a' '../a' 'a:' 'a^' 'a~' 'a[' 'a?' 'a*' '/a' 'a/' 'a//b' '@{a' '\' 'a b' 'a b'). - - invalidNames do: [:name | - self - should: [squitRepository historianNamed: name] - raise: GitInvalidReferenceName] - - - - \ No newline at end of file diff --git a/src/Squit.package/SquitRepositoryTest.class/instance/testInstantiation.st b/src/Squit.package/SquitRepositoryTest.class/instance/testInstantiation.st deleted file mode 100644 index 2cc899b87..000000000 --- a/src/Squit.package/SquitRepositoryTest.class/instance/testInstantiation.st +++ /dev/null @@ -1,5 +0,0 @@ -tests -testInstantiation - "done in setup" - self assert: squitRepository notNil. - self assert: (squitRepository instVarNamed: 'gitRepository') notNil. \ No newline at end of file diff --git a/src/Squit.package/SquitRepositoryTest.class/instance/testIsAvailable.st b/src/Squit.package/SquitRepositoryTest.class/instance/testIsAvailable.st deleted file mode 100644 index 2bb48597f..000000000 --- a/src/Squit.package/SquitRepositoryTest.class/instance/testIsAvailable.st +++ /dev/null @@ -1,5 +0,0 @@ -tests -testIsAvailable - self assert: squitRepository isAvailable. - gitRepository baseDir children do: #deleteAll. - self deny: squitRepository isAvailable. \ No newline at end of file diff --git a/src/Squit.package/SquitRepositoryTest.class/instance/testPathValidation.st b/src/Squit.package/SquitRepositoryTest.class/instance/testPathValidation.st deleted file mode 100644 index 2033f1fbf..000000000 --- a/src/Squit.package/SquitRepositoryTest.class/instance/testPathValidation.st +++ /dev/null @@ -1,20 +0,0 @@ -tests -testPathValidation - "Should rewrite paths using the serializers." - | storeInfo | - storeInfo := SquotTrackedObjectMetadata new. - storeInfo at: #path put: ''. - squitRepository initializeStoreInfo: storeInfo forObject: - (MCSnapshot empty asSquotArtifactForPackage: - (PackageInfo new packageName: 'Squit-Tests-DoesNotExist')) content. - self assert: 'Squit-Tests-DoesNotExist.package' equals: (storeInfo at: #path). - storeInfo at: #path put: 'src'. - squitRepository initializeStoreInfo: storeInfo forObject: - (MCSnapshot empty asSquotArtifactForPackage: - (PackageInfo new packageName: 'Squit-Tests-DoesNotExist')) content. - self assert: 'src/Squit-Tests-DoesNotExist.package' equals: (storeInfo at: #path). - storeInfo at: #path put: 'Squit-Tests-DoesNotExist.package'. - squitRepository initializeStoreInfo: storeInfo forObject: - (MCSnapshot empty asSquotArtifactForPackage: - (PackageInfo new packageName: 'Squit-Tests-DoesNotExist')) content. - self assert: 'Squit-Tests-DoesNotExist.package' equals: (storeInfo at: #path). \ No newline at end of file diff --git a/src/Squit.package/SquitRepositoryTest.class/methodProperties.json b/src/Squit.package/SquitRepositoryTest.class/methodProperties.json deleted file mode 100644 index 8f4ac1d9e..000000000 --- a/src/Squit.package/SquitRepositoryTest.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testCreateCommit" : "jr 3/2/2020 23:34", - "testDefaultAuthor" : "jr 3/2/2020 22:39", - "testGetMasterSnapshot" : "jr 3/2/2020 22:39", - "testGetReferenceWithInvalidName" : "pre 6/15/2018 15:51", - "testInstantiation" : "jr 1/11/2017 17:50", - "testIsAvailable" : "jr 5/27/2018 16:27", - "testPathValidation" : "jr 5/28/2022 00:17" } } diff --git a/src/Squit.package/SquitRepositoryTest.class/properties.json b/src/Squit.package/SquitRepositoryTest.class/properties.json deleted file mode 100644 index 63a08a1af..000000000 --- a/src/Squit.package/SquitRepositoryTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squit-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquitRepositoryTest", - "pools" : [ - ], - "super" : "SquitTest", - "type" : "normal" } diff --git a/src/Squit.package/SquitRepositoryWorkingCopyTest.class/README.md b/src/Squit.package/SquitRepositoryWorkingCopyTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squit.package/SquitRepositoryWorkingCopyTest.class/class/resources.st b/src/Squit.package/SquitRepositoryWorkingCopyTest.class/class/resources.st deleted file mode 100644 index 7a90d1bad..000000000 --- a/src/Squit.package/SquitRepositoryWorkingCopyTest.class/class/resources.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -resources - ^ super resources , {DefaultGitStampForTests} \ No newline at end of file diff --git a/src/Squit.package/SquitRepositoryWorkingCopyTest.class/instance/testCherryPickPreservesAuthorAndTime.st b/src/Squit.package/SquitRepositoryWorkingCopyTest.class/instance/testCherryPickPreservesAuthorAndTime.st deleted file mode 100644 index a8673dee8..000000000 --- a/src/Squit.package/SquitRepositoryWorkingCopyTest.class/instance/testCherryPickPreservesAuthorAndTime.st +++ /dev/null @@ -1,23 +0,0 @@ -tests -testCherryPickPreservesAuthorAndTime - | cherryPick | - self suppressChangeNotificationsDuring: - [repository withUnitOfWork: [repository git configAt: 'user.name' put: 'Original Author']. - scenario := SquotSimpleMergeTestScenario forTestCase: self. - repository withUnitOfWork: [repository git configAt: 'user.name' put: 'Cherry Picker']. - "when" - cherryPick := workingCopy newCherryPickOperation - pickedVersion: scenario thirdVersion; - relevantParentOfPickedVersion: scenario firstVersion; - message: 'cherry pick'. - cherryPick applyToWorkingCopy]. - "then" - repository withUnitOfWork: - [self assert: workingCopy loadedVersion commit committer timeStamp ~= scenario thirdVersion commit author timeStamp - description: 'assumption: timestamps are different in the first place'; - assert: workingCopy loadedVersion commit author timeStamp = scenario thirdVersion commit author timeStamp - description: 'preserve author timestamp'; - assert: 'Original Author' equals: workingCopy loadedVersion commit author name - description: 'preserve author name'; - assert: 'Cherry Picker' equals: workingCopy loadedVersion commit committer name - description: 'cherry picker is the committer']. \ No newline at end of file diff --git a/src/Squit.package/SquitRepositoryWorkingCopyTest.class/instance/testMigrationIntroduceArtifactIds.st b/src/Squit.package/SquitRepositoryWorkingCopyTest.class/instance/testMigrationIntroduceArtifactIds.st deleted file mode 100644 index 5369c79a9..000000000 --- a/src/Squit.package/SquitRepositoryWorkingCopyTest.class/instance/testMigrationIntroduceArtifactIds.st +++ /dev/null @@ -1,26 +0,0 @@ -tests -testMigrationIntroduceArtifactIds - | id | - "Given a repository with no artifact ids" - workingCopy repository withUnitOfWork: - [| git fs metadataFile | - workingCopy add: Object new at: 'x'. - workingCopy saveVersionWithMessage: 'add artifact'. - git := workingCopy loadedHistorian git. - fs := workingCopy repository fsgitRepository head. - metadataFile := SquotObjectMetadataFile on: fs root / '.x.squot-contents'. - metadataFile updateFrom: (metadataFile metadata removeKey: #id; yourself). - fs commit: 'Remove id'. - (workingCopy store metadataForObjectAt: 'x') removeKey: #id. - self deny: ((SquotObjectMetadataFile on: fs root / '.x.squot-contents') metadata includesKey: #id). - "When a new version is saved, an id is written in the repository." - workingCopy saveVersionWithMessage: 'Next version'. - self assert: (workingCopy artifactAt: 'x') id notNil; - assert: ((workingCopy artifactAt: 'x') storeInfo at: #id) notNil; - assert: (workingCopy artifactAt: 'x') id equals: (workingCopy baseVersion artifactAt: 'x') id; - assert: (workingCopy artifactAt: 'x') id equals: ((workingCopy baseVersion artifactAt: 'x') storeInfo at: #id). - "When the old version is checked out later, the id stays in place." - id := (workingCopy artifactAt: 'x') id. - workingCopy loadVersion: workingCopy baseVersion parents first interactive: false. - self assert: id equals: (workingCopy artifactAt: 'x') id; - assert: id equals: ((workingCopy artifactAt: 'x') storeInfo at: #id)]. \ No newline at end of file diff --git a/src/Squit.package/SquitRepositoryWorkingCopyTest.class/methodProperties.json b/src/Squit.package/SquitRepositoryWorkingCopyTest.class/methodProperties.json deleted file mode 100644 index ea78d8f16..000000000 --- a/src/Squit.package/SquitRepositoryWorkingCopyTest.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - "resources" : "jr 3/16/2017 17:55" }, - "instance" : { - "testCherryPickPreservesAuthorAndTime" : "jr 8/26/2020 22:47", - "testMigrationIntroduceArtifactIds" : "jr 3/13/2022 12:16" } } diff --git a/src/Squit.package/SquitRepositoryWorkingCopyTest.class/properties.json b/src/Squit.package/SquitRepositoryWorkingCopyTest.class/properties.json deleted file mode 100644 index b1a51ca58..000000000 --- a/src/Squit.package/SquitRepositoryWorkingCopyTest.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squit-Tests", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotWorkingCopyTestWithFileBasedRepository classTrait", - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquitRepositoryWorkingCopyTest", - "pools" : [ - ], - "super" : "SquotWorkingCopyTest", - "traitcomposition" : "TSquotWorkingCopyTestWithFileBasedRepository", - "type" : "normal" } diff --git a/src/Squit.package/SquitSettings.class/README.md b/src/Squit.package/SquitSettings.class/README.md deleted file mode 100644 index bc135bf20..000000000 --- a/src/Squit.package/SquitSettings.class/README.md +++ /dev/null @@ -1,5 +0,0 @@ -Form to edit the local settings of a Git repository. - -Instance Variables - userEmail: - userName: diff --git a/src/Squit.package/SquitSettings.class/class/defaultTitle.st b/src/Squit.package/SquitSettings.class/class/defaultTitle.st deleted file mode 100644 index 075ad4e23..000000000 --- a/src/Squit.package/SquitSettings.class/class/defaultTitle.st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -defaultTitle - ^ 'Git Settings' \ No newline at end of file diff --git a/src/Squit.package/SquitSettings.class/class/enableDragAndDrop..st b/src/Squit.package/SquitSettings.class/class/enableDragAndDrop..st deleted file mode 100644 index c3fcdfdfa..000000000 --- a/src/Squit.package/SquitSettings.class/class/enableDragAndDrop..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -enableDragAndDrop: aBoolean - EnableDragAndDrop := aBoolean. \ No newline at end of file diff --git a/src/Squit.package/SquitSettings.class/class/enableDragAndDrop.st b/src/Squit.package/SquitSettings.class/class/enableDragAndDrop.st deleted file mode 100644 index 48bf0156d..000000000 --- a/src/Squit.package/SquitSettings.class/class/enableDragAndDrop.st +++ /dev/null @@ -1,7 +0,0 @@ -accessing -enableDragAndDrop - - ^ EnableDragAndDrop ifNil: [false] \ No newline at end of file diff --git a/src/Squit.package/SquitSettings.class/class/open.st b/src/Squit.package/SquitSettings.class/class/open.st deleted file mode 100644 index 32723f503..000000000 --- a/src/Squit.package/SquitSettings.class/class/open.st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -open - ToolBuilder open: self new \ No newline at end of file diff --git a/src/Squit.package/SquitSettings.class/instance/actionCancel.st b/src/Squit.package/SquitSettings.class/instance/actionCancel.st deleted file mode 100644 index 7d0a60525..000000000 --- a/src/Squit.package/SquitSettings.class/instance/actionCancel.st +++ /dev/null @@ -1,3 +0,0 @@ -actions -actionCancel - self changed: #close. \ No newline at end of file diff --git a/src/Squit.package/SquitSettings.class/instance/actionSaveAndClose.st b/src/Squit.package/SquitSettings.class/instance/actionSaveAndClose.st deleted file mode 100644 index 5c9d975c6..000000000 --- a/src/Squit.package/SquitSettings.class/instance/actionSaveAndClose.st +++ /dev/null @@ -1,5 +0,0 @@ -actions -actionSaveAndClose - userName ifNotNil: [GitStamp defaultName: userName]. - userEmail ifNotNil: [GitStamp defaultEmail: userEmail]. - self changed: #close. \ No newline at end of file diff --git a/src/Squit.package/SquitSettings.class/instance/actionUserEmail..st b/src/Squit.package/SquitSettings.class/instance/actionUserEmail..st deleted file mode 100644 index 008efbe5d..000000000 --- a/src/Squit.package/SquitSettings.class/instance/actionUserEmail..st +++ /dev/null @@ -1,4 +0,0 @@ -actions -actionUserEmail: anEmail - userEmail := anEmail asString. - self changed: #actionUserEmail \ No newline at end of file diff --git a/src/Squit.package/SquitSettings.class/instance/actionUserEmail.st b/src/Squit.package/SquitSettings.class/instance/actionUserEmail.st deleted file mode 100644 index 224bba724..000000000 --- a/src/Squit.package/SquitSettings.class/instance/actionUserEmail.st +++ /dev/null @@ -1,3 +0,0 @@ -actions -actionUserEmail - ^ userEmail ifNil: [GitStamp defaultEmail] \ No newline at end of file diff --git a/src/Squit.package/SquitSettings.class/instance/actionUserName..st b/src/Squit.package/SquitSettings.class/instance/actionUserName..st deleted file mode 100644 index e1668ef5a..000000000 --- a/src/Squit.package/SquitSettings.class/instance/actionUserName..st +++ /dev/null @@ -1,4 +0,0 @@ -actions -actionUserName: aName - userName := aName asString. - self changed: #actionUserName \ No newline at end of file diff --git a/src/Squit.package/SquitSettings.class/instance/actionUserName.st b/src/Squit.package/SquitSettings.class/instance/actionUserName.st deleted file mode 100644 index c09a79a64..000000000 --- a/src/Squit.package/SquitSettings.class/instance/actionUserName.st +++ /dev/null @@ -1,3 +0,0 @@ -actions -actionUserName - ^ userName ifNil: [GitStamp defaultName] \ No newline at end of file diff --git a/src/Squit.package/SquitSettings.class/instance/buildButtons..st b/src/Squit.package/SquitSettings.class/instance/buildButtons..st deleted file mode 100644 index 9881006bc..000000000 --- a/src/Squit.package/SquitSettings.class/instance/buildButtons..st +++ /dev/null @@ -1,12 +0,0 @@ -toolbuilder -buildButtons: builder - ^ { - builder pluggableButtonSpec new - model: self; - label: 'Save and Close'; - action: #actionSaveAndClose. - builder pluggableButtonSpec new - model: self; - label: 'Cancel'; - action: #actionCancel. - } \ No newline at end of file diff --git a/src/Squit.package/SquitSettings.class/instance/buildInputFields..st b/src/Squit.package/SquitSettings.class/instance/buildInputFields..st deleted file mode 100644 index 6f2b6f31e..000000000 --- a/src/Squit.package/SquitSettings.class/instance/buildInputFields..st +++ /dev/null @@ -1,16 +0,0 @@ -toolbuilder -buildInputFields: builder - ^ { - builder pluggableInputFieldSpec new - model: self; - getText: #actionUserName; - editText: #actionUserName:; - setText: #actionUserName:; - help: 'Git user name.'. - builder pluggableInputFieldSpec new - model: self; - getText: #actionUserEmail; - editText: #actionUserEmail:; - setText: #actionUserEmail:; - help: 'Git user email'. - } \ No newline at end of file diff --git a/src/Squit.package/SquitSettings.class/instance/buildInputPanel..st b/src/Squit.package/SquitSettings.class/instance/buildInputPanel..st deleted file mode 100644 index 1b4461994..000000000 --- a/src/Squit.package/SquitSettings.class/instance/buildInputPanel..st +++ /dev/null @@ -1,7 +0,0 @@ -toolbuilder -buildInputPanel: builder - ^ builder pluggablePanelSpec new - model: self; - layout: #vertical; - children: (self buildInputFields: builder); - frame: (0@0 corner: 1@1) \ No newline at end of file diff --git a/src/Squit.package/SquitSettings.class/instance/buildWith..st b/src/Squit.package/SquitSettings.class/instance/buildWith..st deleted file mode 100644 index 9ab40bcaa..000000000 --- a/src/Squit.package/SquitSettings.class/instance/buildWith..st +++ /dev/null @@ -1,10 +0,0 @@ -toolbuilder -buildWith: builder - ^ builder build: (builder pluggableDialogSpec new - model: self; - label: #labelString; - autoCancel: true; - extent: 200@60 * RealEstateAgent scaleFactor; - message: 'Edit global author information:'; - children: {self buildInputPanel: builder}; - buttons: (self buildButtons: builder)) \ No newline at end of file diff --git a/src/Squit.package/SquitSettings.class/instance/close.st b/src/Squit.package/SquitSettings.class/instance/close.st deleted file mode 100644 index c5d524c69..000000000 --- a/src/Squit.package/SquitSettings.class/instance/close.st +++ /dev/null @@ -1,3 +0,0 @@ -actions -close - self topView ifNotNil: #delete. \ No newline at end of file diff --git a/src/Squit.package/SquitSettings.class/instance/labelString.st b/src/Squit.package/SquitSettings.class/instance/labelString.st deleted file mode 100644 index 6ca599a00..000000000 --- a/src/Squit.package/SquitSettings.class/instance/labelString.st +++ /dev/null @@ -1,3 +0,0 @@ -toolbuilder -labelString - ^ self class defaultTitle \ No newline at end of file diff --git a/src/Squit.package/SquitSettings.class/methodProperties.json b/src/Squit.package/SquitSettings.class/methodProperties.json deleted file mode 100644 index 672fd6379..000000000 --- a/src/Squit.package/SquitSettings.class/methodProperties.json +++ /dev/null @@ -1,19 +0,0 @@ -{ - "class" : { - "defaultTitle" : "fn 4/12/2017 10:30", - "enableDragAndDrop" : "jr 5/4/2020 00:20", - "enableDragAndDrop:" : "jr 2/8/2020 23:57", - "open" : "fn 4/12/2017 09:18" }, - "instance" : { - "actionCancel" : "fn 4/12/2017 10:29", - "actionSaveAndClose" : "fn 4/12/2017 10:37", - "actionUserEmail" : "fn 4/12/2017 10:35", - "actionUserEmail:" : "fn 4/12/2017 10:44", - "actionUserName" : "fn 4/12/2017 10:35", - "actionUserName:" : "fn 4/12/2017 10:34", - "buildButtons:" : "jr 3/16/2019 12:46", - "buildInputFields:" : "fn 4/12/2017 11:24", - "buildInputPanel:" : "fn 4/12/2017 11:25", - "buildWith:" : "jr 2/17/2022 23:31", - "close" : "fn 4/12/2017 10:02", - "labelString" : "fn 4/12/2017 09:18" } } diff --git a/src/Squit.package/SquitSettings.class/properties.json b/src/Squit.package/SquitSettings.class/properties.json deleted file mode 100644 index 66e648b13..000000000 --- a/src/Squit.package/SquitSettings.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squit-UI", - "classinstvars" : [ - ], - "classvars" : [ - "EnableDragAndDrop" ], - "commentStamp" : "jr 3/17/2018 20:32", - "instvars" : [ - "userEmail", - "userName" ], - "name" : "SquitSettings", - "pools" : [ - ], - "super" : "Model", - "type" : "normal" } diff --git a/src/Squit.package/SquitSubFolderList.class/README.md b/src/Squit.package/SquitSubFolderList.class/README.md deleted file mode 100644 index e4c0f40a6..000000000 --- a/src/Squit.package/SquitSubFolderList.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I display the directory tree rooted at a given directory. diff --git a/src/Squit.package/SquitSubFolderList.class/instance/initialDirectoryList.st b/src/Squit.package/SquitSubFolderList.class/instance/initialDirectoryList.st deleted file mode 100644 index c7d257fa8..000000000 --- a/src/Squit.package/SquitSubFolderList.class/instance/initialDirectoryList.st +++ /dev/null @@ -1,3 +0,0 @@ -initialization -initialDirectoryList - ^ {FileDirectoryWrapper with: self directory name: self directory pathName model: self} \ No newline at end of file diff --git a/src/Squit.package/SquitSubFolderList.class/methodProperties.json b/src/Squit.package/SquitSubFolderList.class/methodProperties.json deleted file mode 100644 index 129096990..000000000 --- a/src/Squit.package/SquitSubFolderList.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "initialDirectoryList" : "fn 4/13/2017 19:35" } } diff --git a/src/Squit.package/SquitSubFolderList.class/properties.json b/src/Squit.package/SquitSubFolderList.class/properties.json deleted file mode 100644 index 5801652f6..000000000 --- a/src/Squit.package/SquitSubFolderList.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squit-UI-Support", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 20:44", - "instvars" : [ - ], - "name" : "SquitSubFolderList", - "pools" : [ - ], - "super" : "FileList2", - "type" : "normal" } diff --git a/src/Squit.package/SquitTagsBrowser.class/README.md b/src/Squit.package/SquitTagsBrowser.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squit.package/SquitTagsBrowser.class/class/repository..st b/src/Squit.package/SquitTagsBrowser.class/class/repository..st deleted file mode 100644 index 3351d0363..000000000 --- a/src/Squit.package/SquitTagsBrowser.class/class/repository..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -repository: aSquitRepository - ^ self new - setRepository: aSquitRepository; - yourself \ No newline at end of file diff --git a/src/Squit.package/SquitTagsBrowser.class/instance/buildWith..st b/src/Squit.package/SquitTagsBrowser.class/instance/buildWith..st deleted file mode 100644 index 9eebe4c72..000000000 --- a/src/Squit.package/SquitTagsBrowser.class/instance/buildWith..st +++ /dev/null @@ -1,41 +0,0 @@ -toolbuilder -buildWith: toolBuilder - | window tagList buttonBar | - tagList := toolBuilder pluggableListSpec new - name: #tagList; - model: self; - list: #tagLabels; - getSelected: #selectedTagName; - setSelected: #selectedTagName:; - frame: (LayoutFrame fractions: (0@0 corner: 1@1) offsets: (0@0 corner: 0@SquotGUI buttonBarHeight negated)); - yourself. - buttonBar := toolBuilder pluggablePanelSpec new - layout: #horizontal; - frame: (LayoutFrame fractions: (0@1 corner: 1@1) offsets: (0@SquotGUI buttonBarHeight negated corner: 0@0)); - children: - {toolBuilder pluggableButtonSpec new - name: #showLog; - model: self; - label: 'Show log' translated; - action: #showLogSelectedTag; - yourself. - toolBuilder pluggableButtonSpec new - name: #pushTag; - model: self; - label: 'Push'; - action: #pushSelectedTag; - yourself. - toolBuilder pluggableButtonSpec new - name: #deleteTag; - model: self; - label: 'Delete' translated; - action: #deleteSelectedTag; - yourself}; - yourself. - window := toolBuilder pluggableWindowSpec new - model: self; - label: #labelString; - extent: 150 * RealEstateAgent scaleFactor @ (SquotGUI listHeightFor: 10); - children: {tagList. buttonBar}; - yourself. - ^ toolBuilder build: window \ No newline at end of file diff --git a/src/Squit.package/SquitTagsBrowser.class/instance/deleteSelectedTag.st b/src/Squit.package/SquitTagsBrowser.class/instance/deleteSelectedTag.st deleted file mode 100644 index f11d2486e..000000000 --- a/src/Squit.package/SquitTagsBrowser.class/instance/deleteSelectedTag.st +++ /dev/null @@ -1,5 +0,0 @@ -actions -deleteSelectedTag - repository withUnitOfWork: - [repository delete: self selectedTagHistorian]. - selectedTagName := nil. \ No newline at end of file diff --git a/src/Squit.package/SquitTagsBrowser.class/instance/errorNoProjectFound.st b/src/Squit.package/SquitTagsBrowser.class/instance/errorNoProjectFound.st deleted file mode 100644 index dde9f2202..000000000 --- a/src/Squit.package/SquitTagsBrowser.class/instance/errorNoProjectFound.st +++ /dev/null @@ -1,3 +0,0 @@ -ui -errorNoProjectFound - SquotGUI inform: 'No project found for this repository!' translated. \ No newline at end of file diff --git a/src/Squit.package/SquitTagsBrowser.class/instance/errorNoTagSelected.st b/src/Squit.package/SquitTagsBrowser.class/instance/errorNoTagSelected.st deleted file mode 100644 index 5e6452a4d..000000000 --- a/src/Squit.package/SquitTagsBrowser.class/instance/errorNoTagSelected.st +++ /dev/null @@ -1,3 +0,0 @@ -ui -errorNoTagSelected - SquotGUI inform: 'No tag selected!' translated. \ No newline at end of file diff --git a/src/Squit.package/SquitTagsBrowser.class/instance/findProjectWith..st b/src/Squit.package/SquitTagsBrowser.class/instance/findProjectWith..st deleted file mode 100644 index b0b69101d..000000000 --- a/src/Squit.package/SquitTagsBrowser.class/instance/findProjectWith..st +++ /dev/null @@ -1,3 +0,0 @@ -private -findProjectWith: aSquitBrowser - aSquitBrowser projectsWithRepository: repository do: [:each | ^ each]. \ No newline at end of file diff --git a/src/Squit.package/SquitTagsBrowser.class/instance/initialize.st b/src/Squit.package/SquitTagsBrowser.class/instance/initialize.st deleted file mode 100644 index 442509f99..000000000 --- a/src/Squit.package/SquitTagsBrowser.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initialize - super initialize. - tagLabels := #(). \ No newline at end of file diff --git a/src/Squit.package/SquitTagsBrowser.class/instance/labelString.st b/src/Squit.package/SquitTagsBrowser.class/instance/labelString.st deleted file mode 100644 index 160817b94..000000000 --- a/src/Squit.package/SquitTagsBrowser.class/instance/labelString.st +++ /dev/null @@ -1,3 +0,0 @@ -ui -labelString - ^ 'Tags' translated \ No newline at end of file diff --git a/src/Squit.package/SquitTagsBrowser.class/instance/pushSelectedTag.st b/src/Squit.package/SquitTagsBrowser.class/instance/pushSelectedTag.st deleted file mode 100644 index 26aeeeefe..000000000 --- a/src/Squit.package/SquitTagsBrowser.class/instance/pushSelectedTag.st +++ /dev/null @@ -1,14 +0,0 @@ -actions -pushSelectedTag - | tagName allRemoteNames | - selectedTagName ifNil: [^ self errorNoTagSelected]. - tagName := 'refs/tags/', selectedTagName. - [repository withUnitOfWork: - [allRemoteNames := repository fsgitRepository remoteNames select: [:each | (repository fsgitRepository remoteUrl: each) beginsWith: 'http']. - (SquotGUI chooseFrom: allRemoteNames values: allRemoteNames title: 'Push tag to which remote?' translated) ifNotNil: [:remoteName | - repository git remoteNamed: remoteName. - (SquitInteractivePush - historian: (repository historianNamed: tagName) - remote: (repository git remoteNamed: remoteName) - remoteBranchName: tagName) - push]]] fork. \ No newline at end of file diff --git a/src/Squit.package/SquitTagsBrowser.class/instance/selectedTagHistorian.st b/src/Squit.package/SquitTagsBrowser.class/instance/selectedTagHistorian.st deleted file mode 100644 index f66e90bcd..000000000 --- a/src/Squit.package/SquitTagsBrowser.class/instance/selectedTagHistorian.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -selectedTagHistorian - ^ repository historianNamed: 'refs/tags/', selectedTagName \ No newline at end of file diff --git a/src/Squit.package/SquitTagsBrowser.class/instance/selectedTagName..st b/src/Squit.package/SquitTagsBrowser.class/instance/selectedTagName..st deleted file mode 100644 index 6b9bdb85a..000000000 --- a/src/Squit.package/SquitTagsBrowser.class/instance/selectedTagName..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -selectedTagName: aSquitHistorian - selectedTagName := aSquitHistorian. - self changed: #selectedTagName. \ No newline at end of file diff --git a/src/Squit.package/SquitTagsBrowser.class/instance/selectedTagName.st b/src/Squit.package/SquitTagsBrowser.class/instance/selectedTagName.st deleted file mode 100644 index 9184e93fc..000000000 --- a/src/Squit.package/SquitTagsBrowser.class/instance/selectedTagName.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -selectedTagName - ^ selectedTagName \ No newline at end of file diff --git a/src/Squit.package/SquitTagsBrowser.class/instance/setRepository..st b/src/Squit.package/SquitTagsBrowser.class/instance/setRepository..st deleted file mode 100644 index b0d23f541..000000000 --- a/src/Squit.package/SquitTagsBrowser.class/instance/setRepository..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -setRepository: aSquitRepository - repository := aSquitRepository. - repository addDependent: self. \ No newline at end of file diff --git a/src/Squit.package/SquitTagsBrowser.class/instance/showLogSelectedTag.st b/src/Squit.package/SquitTagsBrowser.class/instance/showLogSelectedTag.st deleted file mode 100644 index 442d7f0f8..000000000 --- a/src/Squit.package/SquitTagsBrowser.class/instance/showLogSelectedTag.st +++ /dev/null @@ -1,12 +0,0 @@ -actions -showLogSelectedTag - | historian browser project | - selectedTagName ifNil: [^ self errorNoTagSelected]. - repository withUnitOfWork: - [historian := self selectedTagHistorian. - browser := SquitBrowser new. - project := self findProjectWith: browser. - project ifNil: [^ self errorNoProjectFound]. - browser projectSelection: project; - selectedHistorian: historian. - ToolBuilder default open: browser]. \ No newline at end of file diff --git a/src/Squit.package/SquitTagsBrowser.class/instance/tagLabels.st b/src/Squit.package/SquitTagsBrowser.class/instance/tagLabels.st deleted file mode 100644 index 8b283c23e..000000000 --- a/src/Squit.package/SquitTagsBrowser.class/instance/tagLabels.st +++ /dev/null @@ -1,6 +0,0 @@ -ui -tagLabels - | prefixLength | - prefixLength := 'refs/tags/' size. - ^ tagLabels := repository withUnitOfWork: - [(repository tags collect: [:each | each name allButFirst: prefixLength]) sort] \ No newline at end of file diff --git a/src/Squit.package/SquitTagsBrowser.class/instance/update..st b/src/Squit.package/SquitTagsBrowser.class/instance/update..st deleted file mode 100644 index 182236484..000000000 --- a/src/Squit.package/SquitTagsBrowser.class/instance/update..st +++ /dev/null @@ -1,5 +0,0 @@ -updating -update: selector - selector == #historians ifTrue: - [self changed: #tagLabels. - (tagLabels includes: selectedTagName) ifFalse: [self selectedTagName: nil]]. \ No newline at end of file diff --git a/src/Squit.package/SquitTagsBrowser.class/methodProperties.json b/src/Squit.package/SquitTagsBrowser.class/methodProperties.json deleted file mode 100644 index 9c8b96dbf..000000000 --- a/src/Squit.package/SquitTagsBrowser.class/methodProperties.json +++ /dev/null @@ -1,19 +0,0 @@ -{ - "class" : { - "repository:" : "jr 3/13/2022 17:36" }, - "instance" : { - "buildWith:" : "jr 3/13/2022 18:41", - "deleteSelectedTag" : "jr 3/13/2022 19:06", - "errorNoProjectFound" : "jr 3/13/2022 18:13", - "errorNoTagSelected" : "jr 3/13/2022 18:12", - "findProjectWith:" : "jr 3/13/2022 18:49", - "initialize" : "jr 3/13/2022 19:12", - "labelString" : "jr 3/13/2022 17:53", - "pushSelectedTag" : "ct 9/15/2022 19:16", - "selectedTagHistorian" : "jr 3/13/2022 18:45", - "selectedTagName" : "jr 3/13/2022 17:57", - "selectedTagName:" : "jr 3/13/2022 17:56", - "setRepository:" : "jr 3/13/2022 18:52", - "showLogSelectedTag" : "jr 3/13/2022 18:49", - "tagLabels" : "jr 3/13/2022 19:11", - "update:" : "jr 3/13/2022 19:12" } } diff --git a/src/Squit.package/SquitTagsBrowser.class/properties.json b/src/Squit.package/SquitTagsBrowser.class/properties.json deleted file mode 100644 index 98e6ad816..000000000 --- a/src/Squit.package/SquitTagsBrowser.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squit-UI", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "repository", - "selectedTagName", - "tagLabels" ], - "name" : "SquitTagsBrowser", - "pools" : [ - ], - "super" : "Model", - "type" : "normal" } diff --git a/src/Squit.package/SquitTest.class/README.md b/src/Squit.package/SquitTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squit.package/SquitTest.class/class/resources.st b/src/Squit.package/SquitTest.class/class/resources.st deleted file mode 100644 index 7a90d1bad..000000000 --- a/src/Squit.package/SquitTest.class/class/resources.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -resources - ^ super resources , {DefaultGitStampForTests} \ No newline at end of file diff --git a/src/Squit.package/SquitTest.class/instance/createReadmeCommit.st b/src/Squit.package/SquitTest.class/instance/createReadmeCommit.st deleted file mode 100644 index b4a882bb8..000000000 --- a/src/Squit.package/SquitTest.class/instance/createReadmeCommit.st +++ /dev/null @@ -1,11 +0,0 @@ -test data -createReadmeCommit - | snapshotWithReadme fs | - squitRepository withUnitOfWork: - [snapshotWithReadme := SquotImageStore new - add: 'test data' at: 'README.md'; - captureSnapshot. - fs := fsGitRepository head. - (SquotFileSystemStore inDirectory: fs root) - restoreToSnapshot: snapshotWithReadme. - fs commit: 'first commit']. \ No newline at end of file diff --git a/src/Squit.package/SquitTest.class/instance/createRemoteTrackingBranchForMaster.st b/src/Squit.package/SquitTest.class/instance/createRemoteTrackingBranchForMaster.st deleted file mode 100644 index 2691a949b..000000000 --- a/src/Squit.package/SquitTest.class/instance/createRemoteTrackingBranchForMaster.st +++ /dev/null @@ -1,6 +0,0 @@ -test data -createRemoteTrackingBranchForMaster - | remoteTrackingHistorian | - remoteTrackingHistorian := self trackingBranchForRemote: 'myremote' branch: 'master' hash: self master version hexHash. - self assert: remoteTrackingHistorian version = self master version. - ^ remoteTrackingHistorian \ No newline at end of file diff --git a/src/Squit.package/SquitTest.class/instance/createRemoteTrackingBranchForMasterWithFetchSpec..st b/src/Squit.package/SquitTest.class/instance/createRemoteTrackingBranchForMasterWithFetchSpec..st deleted file mode 100644 index c2ba34a80..000000000 --- a/src/Squit.package/SquitTest.class/instance/createRemoteTrackingBranchForMasterWithFetchSpec..st +++ /dev/null @@ -1,6 +0,0 @@ -test data -createRemoteTrackingBranchForMasterWithFetchSpec: aString - | remoteTrackingHistorian | - remoteTrackingHistorian := self createRemoteTrackingBranchForMaster. - master git remoteConfigFor: 'myremote' option: 'fetch' set: aString. - ^ remoteTrackingHistorian \ No newline at end of file diff --git a/src/Squit.package/SquitTest.class/instance/master.st b/src/Squit.package/SquitTest.class/instance/master.st deleted file mode 100644 index f5a5f9366..000000000 --- a/src/Squit.package/SquitTest.class/instance/master.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -master - master ifNil: [master := squitRepository historianNamed: 'master']. - ^ master \ No newline at end of file diff --git a/src/Squit.package/SquitTest.class/instance/repositoryForTests.st b/src/Squit.package/SquitTest.class/instance/repositoryForTests.st deleted file mode 100644 index 82556a8d8..000000000 --- a/src/Squit.package/SquitTest.class/instance/repositoryForTests.st +++ /dev/null @@ -1,7 +0,0 @@ -test data -repositoryForTests - | directory | - directory := self repositoryPathForTests asFileReference. - self deny: directory exists - description: 'failsafe: repository exists'. - ^ FileSystemGitRepository on: directory \ No newline at end of file diff --git a/src/Squit.package/SquitTest.class/instance/repositoryPathForTests.st b/src/Squit.package/SquitTest.class/instance/repositoryPathForTests.st deleted file mode 100644 index a08fde406..000000000 --- a/src/Squit.package/SquitTest.class/instance/repositoryPathForTests.st +++ /dev/null @@ -1,3 +0,0 @@ -test data -repositoryPathForTests - ^ FSLocator workingDirectory / 'squit-test.git' \ No newline at end of file diff --git a/src/Squit.package/SquitTest.class/instance/setUp.st b/src/Squit.package/SquitTest.class/instance/setUp.st deleted file mode 100644 index 39d2ed8de..000000000 --- a/src/Squit.package/SquitTest.class/instance/setUp.st +++ /dev/null @@ -1,6 +0,0 @@ -running -setUp - fsGitRepository := self repositoryForTests. - gitRepository := fsGitRepository repository. - squitRepository := SquitRepository on: fsGitRepository. - self suppressProgressDisplayDuring: [self createReadmeCommit]. \ No newline at end of file diff --git a/src/Squit.package/SquitTest.class/instance/tearDown.st b/src/Squit.package/SquitTest.class/instance/tearDown.st deleted file mode 100644 index 78293e270..000000000 --- a/src/Squit.package/SquitTest.class/instance/tearDown.st +++ /dev/null @@ -1,3 +0,0 @@ -running -tearDown - self repositoryPathForTests asFileReference deleteAll. \ No newline at end of file diff --git a/src/Squit.package/SquitTest.class/instance/trackingBranchForRemote.branch.hash..st b/src/Squit.package/SquitTest.class/instance/trackingBranchForRemote.branch.hash..st deleted file mode 100644 index ec7c2bc66..000000000 --- a/src/Squit.package/SquitTest.class/instance/trackingBranchForRemote.branch.hash..st +++ /dev/null @@ -1,6 +0,0 @@ -test data -trackingBranchForRemote: remoteString branch: branchString hash: hexHashString - fsGitRepository addRemote: remoteString url: 'http://example.com/git/example.git'. - gitRepository unitOfWork updateRef: branchString ofRemote: remoteString to: hexHashString - message: 'forge remote-tracking branch'. - ^ squitRepository historianNamed: remoteString, '/', branchString \ No newline at end of file diff --git a/src/Squit.package/SquitTest.class/methodProperties.json b/src/Squit.package/SquitTest.class/methodProperties.json deleted file mode 100644 index 2803153eb..000000000 --- a/src/Squit.package/SquitTest.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - "resources" : "jr 11/21/2018 20:51" }, - "instance" : { - "createReadmeCommit" : "jr 3/2/2020 22:30", - "createRemoteTrackingBranchForMaster" : "jr 11/21/2018 21:48", - "createRemoteTrackingBranchForMasterWithFetchSpec:" : "jr 3/7/2020 00:11", - "master" : "jr 11/21/2018 21:46", - "repositoryForTests" : "jr 11/21/2018 20:49", - "repositoryPathForTests" : "jr 11/21/2018 20:49", - "setUp" : "jr 9/13/2020 22:39", - "tearDown" : "jr 11/21/2018 20:49", - "trackingBranchForRemote:branch:hash:" : "jr 3/2/2020 21:30" } } diff --git a/src/Squit.package/SquitTest.class/properties.json b/src/Squit.package/SquitTest.class/properties.json deleted file mode 100644 index e5c874a7f..000000000 --- a/src/Squit.package/SquitTest.class/properties.json +++ /dev/null @@ -1,19 +0,0 @@ -{ - "category" : "Squit-Tests", - "classinstvars" : [ - ], - "classtraitcomposition" : "TTestCaseSuppressingProgressDisplay classTrait", - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "gitRepository", - "fsGitRepository", - "squitRepository", - "master" ], - "name" : "SquitTest", - "pools" : [ - ], - "super" : "TestCase", - "traitcomposition" : "TTestCaseSuppressingProgressDisplay", - "type" : "normal" } diff --git a/src/Squit.package/SquitTestWorkingCopy.class/README.md b/src/Squit.package/SquitTestWorkingCopy.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squit.package/SquitTestWorkingCopy.class/instance/create.st b/src/Squit.package/SquitTestWorkingCopy.class/instance/create.st deleted file mode 100644 index 42578ce02..000000000 --- a/src/Squit.package/SquitTestWorkingCopy.class/instance/create.st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -create - workingCopy ifNotNil: [self tearDown]. - workingCopy := SquotWorkingCopy newOnObjectMemory. - workingCopy name: '(Working copy for unit tests)'. - workingCopy register. \ No newline at end of file diff --git a/src/Squit.package/SquitTestWorkingCopy.class/instance/instance.st b/src/Squit.package/SquitTestWorkingCopy.class/instance/instance.st deleted file mode 100644 index cde358d55..000000000 --- a/src/Squit.package/SquitTestWorkingCopy.class/instance/instance.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -instance - ^ workingCopy \ No newline at end of file diff --git a/src/Squit.package/SquitTestWorkingCopy.class/instance/tearDown.st b/src/Squit.package/SquitTestWorkingCopy.class/instance/tearDown.st deleted file mode 100644 index 551f91641..000000000 --- a/src/Squit.package/SquitTestWorkingCopy.class/instance/tearDown.st +++ /dev/null @@ -1,3 +0,0 @@ -running -tearDown - workingCopy ifNotNil: [workingCopy unregister]. \ No newline at end of file diff --git a/src/Squit.package/SquitTestWorkingCopy.class/methodProperties.json b/src/Squit.package/SquitTestWorkingCopy.class/methodProperties.json deleted file mode 100644 index 1e0b1adaa..000000000 --- a/src/Squit.package/SquitTestWorkingCopy.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "create" : "jr 5/13/2017 13:45", - "instance" : "jr 5/13/2017 14:35", - "tearDown" : "jr 5/13/2017 13:45" } } diff --git a/src/Squit.package/SquitTestWorkingCopy.class/properties.json b/src/Squit.package/SquitTestWorkingCopy.class/properties.json deleted file mode 100644 index 7b0291cad..000000000 --- a/src/Squit.package/SquitTestWorkingCopy.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squit-Tests-UI", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "workingCopy" ], - "name" : "SquitTestWorkingCopy", - "pools" : [ - ], - "super" : "TestResource", - "type" : "normal" } diff --git a/src/Squit.package/SquitToggles.class/README.md b/src/Squit.package/SquitToggles.class/README.md deleted file mode 100644 index cd3771dbb..000000000 --- a/src/Squit.package/SquitToggles.class/README.md +++ /dev/null @@ -1 +0,0 @@ -Feature toggles/flags for Git-specific behavior in Squot. Note that these are shown together with the Git flags from the FileSystem-Git package. \ No newline at end of file diff --git a/src/Squit.package/SquitToggles.class/instance/remoteRepository.st b/src/Squit.package/SquitToggles.class/instance/remoteRepository.st deleted file mode 100644 index 1c50df87c..000000000 --- a/src/Squit.package/SquitToggles.class/instance/remoteRepository.st +++ /dev/null @@ -1,5 +0,0 @@ -flags -remoteRepository - - "This flag is used in methods that could have such a concept applied if it is introduced." - "It is conceivable to have special remote repository objects with remote historians. Push, fetch and pull could then be realized through import and export of historians between repositories. Remote-tracking branches are like a snapshot of the historians of a remote repository. Remote-tracking historians are past versions of their real historians in the real remote repository." \ No newline at end of file diff --git a/src/Squit.package/SquitToggles.class/methodProperties.json b/src/Squit.package/SquitToggles.class/methodProperties.json deleted file mode 100644 index 25c0e2516..000000000 --- a/src/Squit.package/SquitToggles.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "remoteRepository" : "jr 8/30/2020 19:21" } } diff --git a/src/Squit.package/SquitToggles.class/properties.json b/src/Squit.package/SquitToggles.class/properties.json deleted file mode 100644 index d4b3309fe..000000000 --- a/src/Squit.package/SquitToggles.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squit-Core", - "classinstvars" : [ - ], - "classvars" : [ - "AsyncActions" ], - "commentStamp" : "jr 8/9/2020 21:26", - "instvars" : [ - ], - "name" : "SquitToggles", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squit.package/SquitUnitOfWork.class/README.md b/src/Squit.package/SquitUnitOfWork.class/README.md deleted file mode 100644 index 28ab724f2..000000000 --- a/src/Squit.package/SquitUnitOfWork.class/README.md +++ /dev/null @@ -1 +0,0 @@ -Adapter between Squot and GitUnitOfWork. \ No newline at end of file diff --git a/src/Squit.package/SquitUnitOfWork.class/class/initialize.st b/src/Squit.package/SquitUnitOfWork.class/class/initialize.st deleted file mode 100644 index cb2a4f059..000000000 --- a/src/Squit.package/SquitUnitOfWork.class/class/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -class initialization -initialize - "self initialize" - self initializeRegistry. \ No newline at end of file diff --git a/src/Squit.package/SquitUnitOfWork.class/class/initializeRegistry.st b/src/Squit.package/SquitUnitOfWork.class/class/initializeRegistry.st deleted file mode 100644 index 69483fb18..000000000 --- a/src/Squit.package/SquitUnitOfWork.class/class/initializeRegistry.st +++ /dev/null @@ -1,4 +0,0 @@ -class initialization -initializeRegistry - Registry := WeakKeyDictionary new. - WeakArray addWeakDependent: Registry. \ No newline at end of file diff --git a/src/Squit.package/SquitUnitOfWork.class/class/wrapping.for..st b/src/Squit.package/SquitUnitOfWork.class/class/wrapping.for..st deleted file mode 100644 index cd02e3c4a..000000000 --- a/src/Squit.package/SquitUnitOfWork.class/class/wrapping.for..st +++ /dev/null @@ -1,13 +0,0 @@ -instance creation -wrapping: aGitUnitOfWork for: aSquitRepository - | holder instance | - holder := - Registry - at: aGitUnitOfWork - ifAbsentPut: [WeakArray with: nil]. - ^ (holder at: 1) ifNil: - [holder at: 1 put: - (instance := self new - gitUnitOfWork: aGitUnitOfWork; - repository: aSquitRepository; - yourself)]. \ No newline at end of file diff --git a/src/Squit.package/SquitUnitOfWork.class/instance/activateDuring..st b/src/Squit.package/SquitUnitOfWork.class/instance/activateDuring..st deleted file mode 100644 index 581400f38..000000000 --- a/src/Squit.package/SquitUnitOfWork.class/instance/activateDuring..st +++ /dev/null @@ -1,3 +0,0 @@ -scope activation -activateDuring: aBlock - ^ gitUnitOfWork activateDuring: aBlock \ No newline at end of file diff --git a/src/Squit.package/SquitUnitOfWork.class/instance/finish.st b/src/Squit.package/SquitUnitOfWork.class/instance/finish.st deleted file mode 100644 index b065d44c5..000000000 --- a/src/Squit.package/SquitUnitOfWork.class/instance/finish.st +++ /dev/null @@ -1,6 +0,0 @@ -unit of work -finish - super finish. - self numberOfClients = 0 ifTrue: - [gitUnitOfWork finish. - repository finalizeWeakCaches]. \ No newline at end of file diff --git a/src/Squit.package/SquitUnitOfWork.class/instance/gitUnitOfWork..st b/src/Squit.package/SquitUnitOfWork.class/instance/gitUnitOfWork..st deleted file mode 100644 index 34a957efa..000000000 --- a/src/Squit.package/SquitUnitOfWork.class/instance/gitUnitOfWork..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -gitUnitOfWork: anObject - - gitUnitOfWork := anObject. \ No newline at end of file diff --git a/src/Squit.package/SquitUnitOfWork.class/instance/gitUnitOfWork.st b/src/Squit.package/SquitUnitOfWork.class/instance/gitUnitOfWork.st deleted file mode 100644 index 44a20423a..000000000 --- a/src/Squit.package/SquitUnitOfWork.class/instance/gitUnitOfWork.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -gitUnitOfWork - - ^ gitUnitOfWork \ No newline at end of file diff --git a/src/Squit.package/SquitUnitOfWork.class/methodProperties.json b/src/Squit.package/SquitUnitOfWork.class/methodProperties.json deleted file mode 100644 index 033edf18a..000000000 --- a/src/Squit.package/SquitUnitOfWork.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - "initialize" : "jr 2/26/2020 21:53", - "initializeRegistry" : "jr 2/26/2020 21:53", - "wrapping:for:" : "jr 8/8/2020 16:34" }, - "instance" : { - "activateDuring:" : "jr 5/2/2020 16:59", - "finish" : "jr 7/2/2022 19:50", - "gitUnitOfWork" : "jr 2/26/2020 21:41", - "gitUnitOfWork:" : "jr 2/26/2020 21:41" } } diff --git a/src/Squit.package/SquitUnitOfWork.class/properties.json b/src/Squit.package/SquitUnitOfWork.class/properties.json deleted file mode 100644 index 241b5312b..000000000 --- a/src/Squit.package/SquitUnitOfWork.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squit-Core", - "classinstvars" : [ - ], - "classvars" : [ - "Registry" ], - "commentStamp" : "jr 2/26/2020 21:33", - "instvars" : [ - "gitUnitOfWork" ], - "name" : "SquitUnitOfWork", - "pools" : [ - ], - "super" : "SquotBasicUnitOfWork", - "type" : "normal" } diff --git a/src/Squit.package/SquitUnitOfWorkTest.class/README.md b/src/Squit.package/SquitUnitOfWorkTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squit.package/SquitUnitOfWorkTest.class/instance/testConstructorReturnsSameInstanceWhileActive.st b/src/Squit.package/SquitUnitOfWorkTest.class/instance/testConstructorReturnsSameInstanceWhileActive.st deleted file mode 100644 index 6d49cbf2d..000000000 --- a/src/Squit.package/SquitUnitOfWorkTest.class/instance/testConstructorReturnsSameInstanceWhileActive.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testConstructorReturnsSameInstanceWhileActive - | uow | - uow := squitRepository unitOfWork. - uow activateDuring: - [self assert: uow == squitRepository unitOfWork]. - self deny: uow == squitRepository unitOfWork. \ No newline at end of file diff --git a/src/Squit.package/SquitUnitOfWorkTest.class/instance/testUnitOfWorkHeldWeakly.st b/src/Squit.package/SquitUnitOfWorkTest.class/instance/testUnitOfWorkHeldWeakly.st deleted file mode 100644 index 8a9fb60b3..000000000 --- a/src/Squit.package/SquitUnitOfWorkTest.class/instance/testUnitOfWorkHeldWeakly.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testUnitOfWorkHeldWeakly - | uow weakHolder | - uow := squitRepository unitOfWork. - weakHolder := WeakArray with: uow. - uow := nil. - self retryWithGC: [weakHolder first isNil] until: [:result | result == true]. - self assert: weakHolder first isNil. \ No newline at end of file diff --git a/src/Squit.package/SquitUnitOfWorkTest.class/methodProperties.json b/src/Squit.package/SquitUnitOfWorkTest.class/methodProperties.json deleted file mode 100644 index 47befa8f4..000000000 --- a/src/Squit.package/SquitUnitOfWorkTest.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testConstructorReturnsSameInstanceWhileActive" : "jr 8/8/2020 16:34", - "testUnitOfWorkHeldWeakly" : "jr 3/4/2020 23:31" } } diff --git a/src/Squit.package/SquitUnitOfWorkTest.class/properties.json b/src/Squit.package/SquitUnitOfWorkTest.class/properties.json deleted file mode 100644 index dab0ce0ab..000000000 --- a/src/Squit.package/SquitUnitOfWorkTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squit-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquitUnitOfWorkTest", - "pools" : [ - ], - "super" : "SquitTest", - "type" : "normal" } diff --git a/src/Squit.package/SquitUpstreamUndefined.class/README.md b/src/Squit.package/SquitUpstreamUndefined.class/README.md deleted file mode 100644 index 24a10e7e4..000000000 --- a/src/Squit.package/SquitUpstreamUndefined.class/README.md +++ /dev/null @@ -1 +0,0 @@ -An operation depends on the upstream branch of a local branch, but the local branch is not configured to track any remote branch (yet). \ No newline at end of file diff --git a/src/Squit.package/SquitUpstreamUndefined.class/class/historian..st b/src/Squit.package/SquitUpstreamUndefined.class/class/historian..st deleted file mode 100644 index 5a2709d32..000000000 --- a/src/Squit.package/SquitUpstreamUndefined.class/class/historian..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -historian: aHistorian - ^ self new - historian: aHistorian; - yourself \ No newline at end of file diff --git a/src/Squit.package/SquitUpstreamUndefined.class/instance/historian..st b/src/Squit.package/SquitUpstreamUndefined.class/instance/historian..st deleted file mode 100644 index b85f7cf45..000000000 --- a/src/Squit.package/SquitUpstreamUndefined.class/instance/historian..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -historian: anObject - historian := anObject \ No newline at end of file diff --git a/src/Squit.package/SquitUpstreamUndefined.class/instance/historian.st b/src/Squit.package/SquitUpstreamUndefined.class/instance/historian.st deleted file mode 100644 index bb118f761..000000000 --- a/src/Squit.package/SquitUpstreamUndefined.class/instance/historian.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -historian - ^ historian \ No newline at end of file diff --git a/src/Squit.package/SquitUpstreamUndefined.class/methodProperties.json b/src/Squit.package/SquitUpstreamUndefined.class/methodProperties.json deleted file mode 100644 index 9fd568e78..000000000 --- a/src/Squit.package/SquitUpstreamUndefined.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - "historian:" : "jr 7/25/2020 17:53" }, - "instance" : { - "historian" : "jr 7/21/2020 16:04", - "historian:" : "jr 7/21/2020 16:04" } } diff --git a/src/Squit.package/SquitUpstreamUndefined.class/properties.json b/src/Squit.package/SquitUpstreamUndefined.class/properties.json deleted file mode 100644 index 689ca9a59..000000000 --- a/src/Squit.package/SquitUpstreamUndefined.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squit-Exceptions", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 21:29", - "instvars" : [ - "historian" ], - "name" : "SquitUpstreamUndefined", - "pools" : [ - ], - "super" : "Error", - "type" : "normal" } diff --git a/src/Squit.package/SquitVersion.class/README.md b/src/Squit.package/SquitVersion.class/README.md deleted file mode 100644 index e41343600..000000000 --- a/src/Squit.package/SquitVersion.class/README.md +++ /dev/null @@ -1,5 +0,0 @@ -I am a local repository version for a Git commit. Basically, I am an adapter for GitCommit. - -Instance Variables - commit: - repository: diff --git a/src/Squit.package/SquitVersion.class/instance/^equals.st b/src/Squit.package/SquitVersion.class/instance/^equals.st deleted file mode 100644 index 31fa5c3f9..000000000 --- a/src/Squit.package/SquitVersion.class/instance/^equals.st +++ /dev/null @@ -1,5 +0,0 @@ -comparing -= anObject - ^ [commit = anObject commit] - on: MessageNotUnderstood do: - [:e | e receiver == anObject ifTrue: [^ false] ifFalse: [e pass]] \ No newline at end of file diff --git a/src/Squit.package/SquitVersion.class/instance/artifacts.st b/src/Squit.package/SquitVersion.class/instance/artifacts.st deleted file mode 100644 index 08d0e5ffa..000000000 --- a/src/Squit.package/SquitVersion.class/instance/artifacts.st +++ /dev/null @@ -1,3 +0,0 @@ -snapshot -artifacts - ^ self lazySnapshot artifacts \ No newline at end of file diff --git a/src/Squit.package/SquitVersion.class/instance/author.st b/src/Squit.package/SquitVersion.class/instance/author.st deleted file mode 100644 index 333aee88c..000000000 --- a/src/Squit.package/SquitVersion.class/instance/author.st +++ /dev/null @@ -1,3 +0,0 @@ -Squot version -author - ^ commit author \ No newline at end of file diff --git a/src/Squit.package/SquitVersion.class/instance/captureLazySnapshot.st b/src/Squit.package/SquitVersion.class/instance/captureLazySnapshot.st deleted file mode 100644 index 5c403f79d..000000000 --- a/src/Squit.package/SquitVersion.class/instance/captureLazySnapshot.st +++ /dev/null @@ -1,5 +0,0 @@ -snapshot -captureLazySnapshot - | fs | - fs := repository workingTreeForCommitNamed: commit hexHash. - ^ (SquotFileSystemStore inDirectory: fs root) captureLazySnapshot \ No newline at end of file diff --git a/src/Squit.package/SquitVersion.class/instance/commit..st b/src/Squit.package/SquitVersion.class/instance/commit..st deleted file mode 100644 index a9755a99d..000000000 --- a/src/Squit.package/SquitVersion.class/instance/commit..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -commit: aGitCommit - commit := aGitCommit \ No newline at end of file diff --git a/src/Squit.package/SquitVersion.class/instance/commit.st b/src/Squit.package/SquitVersion.class/instance/commit.st deleted file mode 100644 index 8b930f5eb..000000000 --- a/src/Squit.package/SquitVersion.class/instance/commit.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -commit - ^ commit \ No newline at end of file diff --git a/src/Squit.package/SquitVersion.class/instance/hash.st b/src/Squit.package/SquitVersion.class/instance/hash.st deleted file mode 100644 index 93cd9a9ac..000000000 --- a/src/Squit.package/SquitVersion.class/instance/hash.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -hash - ^ commit hash \ No newline at end of file diff --git a/src/Squit.package/SquitVersion.class/instance/hexHash.st b/src/Squit.package/SquitVersion.class/instance/hexHash.st deleted file mode 100644 index 042d529f4..000000000 --- a/src/Squit.package/SquitVersion.class/instance/hexHash.st +++ /dev/null @@ -1,3 +0,0 @@ -Git -hexHash - ^ commit hexHash \ No newline at end of file diff --git a/src/Squit.package/SquitVersion.class/instance/internalId.st b/src/Squit.package/SquitVersion.class/instance/internalId.st deleted file mode 100644 index 39e493029..000000000 --- a/src/Squit.package/SquitVersion.class/instance/internalId.st +++ /dev/null @@ -1,3 +0,0 @@ -Pur version -internalId - ^ commit hexHash \ No newline at end of file diff --git a/src/Squit.package/SquitVersion.class/instance/lazySnapshot.st b/src/Squit.package/SquitVersion.class/instance/lazySnapshot.st deleted file mode 100644 index 883856d1d..000000000 --- a/src/Squit.package/SquitVersion.class/instance/lazySnapshot.st +++ /dev/null @@ -1,6 +0,0 @@ -snapshot -lazySnapshot - "Answer a snapshot that does not read artifacts until their content is requested" - ^ repository - cachedSnapshotOf: self - ifAbsentPut: [self captureLazySnapshot] \ No newline at end of file diff --git a/src/Squit.package/SquitVersion.class/instance/message.st b/src/Squit.package/SquitVersion.class/instance/message.st deleted file mode 100644 index 8dd401fd1..000000000 --- a/src/Squit.package/SquitVersion.class/instance/message.st +++ /dev/null @@ -1,3 +0,0 @@ -Squot version -message - ^ commit message withSqueakLineEndings \ No newline at end of file diff --git a/src/Squit.package/SquitVersion.class/instance/metadata.st b/src/Squit.package/SquitVersion.class/instance/metadata.st deleted file mode 100644 index f9655b73d..000000000 --- a/src/Squit.package/SquitVersion.class/instance/metadata.st +++ /dev/null @@ -1,18 +0,0 @@ -Pur version -metadata - "Proposed set of common attribute names, if provided by the backend: - #(author email timestamp message committer). - #email may also be a part of #author, then #email should be absent - #timestamp may either be the instant of authoring the version or the instant of creation - More attributes can be added if the backend provides more." - ^ Dictionary newFromPairs: - {#author. commit author name. - #authorEmail. commit author email. - #email. commit author email. - #authoringTimeStamp. commit author timeStamp. - #timestamp. commit author timeStamp. - #committer. commit committer name. - #committerEmail. commit committer email. - #commitTimeStamp. commit committer timeStamp. - #message. self message. - #hash. commit hexHash} \ No newline at end of file diff --git a/src/Squit.package/SquitVersion.class/instance/parents.st b/src/Squit.package/SquitVersion.class/instance/parents.st deleted file mode 100644 index afd581842..000000000 --- a/src/Squit.package/SquitVersion.class/instance/parents.st +++ /dev/null @@ -1,3 +0,0 @@ -Pur version -parents - ^ commit parents collect: [:each | repository versionForCommit: each] \ No newline at end of file diff --git a/src/Squit.package/SquitVersion.class/instance/patchRelativeToBase..st b/src/Squit.package/SquitVersion.class/instance/patchRelativeToBase..st deleted file mode 100644 index 056c4b7dc..000000000 --- a/src/Squit.package/SquitVersion.class/instance/patchRelativeToBase..st +++ /dev/null @@ -1,6 +0,0 @@ -comparing -patchRelativeToBase: objectContainer - "Answer a patch that when applied to objectContainer will make our objects equal." - objectContainer species = self species - ifTrue: [^ self patchRelativeToBaseVersion: objectContainer]. - ^ SquotPatch builder patchFrom: objectContainer to: self \ No newline at end of file diff --git a/src/Squit.package/SquitVersion.class/instance/patchRelativeToBaseVersion..st b/src/Squit.package/SquitVersion.class/instance/patchRelativeToBaseVersion..st deleted file mode 100644 index 1c942342f..000000000 --- a/src/Squit.package/SquitVersion.class/instance/patchRelativeToBaseVersion..st +++ /dev/null @@ -1,24 +0,0 @@ -comparing -patchRelativeToBaseVersion: baseSquitVersion - "compute tree diff, then deduce object diffs" - | diff changedPaths mySnapshot baseSnapshot myChangedArtifactPaths baseChangedArtifactPaths deletedPaths patchBuilder | - self = baseSquitVersion ifTrue: [^ SquotPatch noChangesTo: self]. - SquotProgress display: 'Diff ', baseSquitVersion shortId, '..', self shortId, ' ... ' during: - [:progress | - diff := GitDiffCreator new - diffTrees: baseSquitVersion commit tree and: self commit tree. - changedPaths := diff keys collect: [:each | SquotPath fromPath: each]. - mySnapshot := self lazySnapshot. - baseSnapshot := baseSquitVersion lazySnapshot. - myChangedArtifactPaths := changedPaths intersection: mySnapshot paths. - baseChangedArtifactPaths := changedPaths intersection: baseSnapshot paths. - deletedPaths := baseChangedArtifactPaths copyWithoutAll: myChangedArtifactPaths. - patchBuilder := baseSquitVersion newPatchBuilder goingTo: self. - progress totalSteps: myChangedArtifactPaths size + deletedPaths size. - myChangedArtifactPaths do: [:each | - progress stepWithText: each. - patchBuilder diffPath: each from: baseSnapshot to: mySnapshot]. - deletedPaths do: - [:each | progress stepWithText: each. - patchBuilder addDiff: (SquotArtifactRemoval of: (baseSnapshot artifactAt: each))]. - ^ patchBuilder buildPatch] \ No newline at end of file diff --git a/src/Squit.package/SquitVersion.class/instance/printOn..st b/src/Squit.package/SquitVersion.class/instance/printOn..st deleted file mode 100644 index 24fc7f095..000000000 --- a/src/Squit.package/SquitVersion.class/instance/printOn..st +++ /dev/null @@ -1,9 +0,0 @@ -printing -printOn: aStream - aStream - nextPutAll: 'commit '; - nextPutAll: self shortId; - space; - nextPut: $"; - nextPutAll: (self message copyUpTo: Character cr); - nextPut: $". \ No newline at end of file diff --git a/src/Squit.package/SquitVersion.class/instance/repository..st b/src/Squit.package/SquitVersion.class/instance/repository..st deleted file mode 100644 index 8d5f6d7d9..000000000 --- a/src/Squit.package/SquitVersion.class/instance/repository..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -repository: aRepository - repository := aRepository \ No newline at end of file diff --git a/src/Squit.package/SquitVersion.class/instance/repository.st b/src/Squit.package/SquitVersion.class/instance/repository.st deleted file mode 100644 index 12976e0e9..000000000 --- a/src/Squit.package/SquitVersion.class/instance/repository.st +++ /dev/null @@ -1,3 +0,0 @@ -Pur version -repository - ^ repository \ No newline at end of file diff --git a/src/Squit.package/SquitVersion.class/instance/shortId.st b/src/Squit.package/SquitVersion.class/instance/shortId.st deleted file mode 100644 index 64b6323b7..000000000 --- a/src/Squit.package/SquitVersion.class/instance/shortId.st +++ /dev/null @@ -1,3 +0,0 @@ -Git -shortId - ^ self internalId first: 7 \ No newline at end of file diff --git a/src/Squit.package/SquitVersion.class/instance/snapshot.st b/src/Squit.package/SquitVersion.class/instance/snapshot.st deleted file mode 100644 index 770b028a5..000000000 --- a/src/Squit.package/SquitVersion.class/instance/snapshot.st +++ /dev/null @@ -1,3 +0,0 @@ -Pur version -snapshot - ^ self lazySnapshot \ No newline at end of file diff --git a/src/Squit.package/SquitVersion.class/instance/timestamp.st b/src/Squit.package/SquitVersion.class/instance/timestamp.st deleted file mode 100644 index a1f99381e..000000000 --- a/src/Squit.package/SquitVersion.class/instance/timestamp.st +++ /dev/null @@ -1,3 +0,0 @@ -Squot version -timestamp - ^ commit author timeStamp \ No newline at end of file diff --git a/src/Squit.package/SquitVersion.class/methodProperties.json b/src/Squit.package/SquitVersion.class/methodProperties.json deleted file mode 100644 index 9aa13c673..000000000 --- a/src/Squit.package/SquitVersion.class/methodProperties.json +++ /dev/null @@ -1,25 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "=" : "jr 1/2/2021 16:57", - "artifacts" : "jr 5/29/2017 13:34", - "author" : "jr 2/1/2020 00:35", - "captureLazySnapshot" : "jr 7/23/2017 02:15", - "commit" : "jr 1/12/2017 16:36", - "commit:" : "jr 1/11/2017 18:13", - "hash" : "jr 1/12/2017 16:36", - "hexHash" : "jr 1/29/2017 23:11", - "internalId" : "jr 1/26/2017 14:17", - "lazySnapshot" : "jr 7/23/2017 02:15", - "message" : "jr 5/9/2020 15:08", - "metadata" : "jr 5/9/2020 15:08", - "parents" : "jr 1/11/2017 17:11", - "patchRelativeToBase:" : "jr 9/17/2018 22:52", - "patchRelativeToBaseVersion:" : "jr 11/7/2020 11:03", - "printOn:" : "jr 7/28/2019 00:10", - "repository" : "jr 1/26/2017 14:17", - "repository:" : "jr 1/11/2017 18:13", - "shortId" : "fn 4/11/2017 13:21", - "snapshot" : "jr 7/23/2017 02:04", - "timestamp" : "jr 8/25/2020 19:07" } } diff --git a/src/Squit.package/SquitVersion.class/properties.json b/src/Squit.package/SquitVersion.class/properties.json deleted file mode 100644 index a0ba143ba..000000000 --- a/src/Squit.package/SquitVersion.class/properties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "category" : "Squit-Core", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotVersion classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 20:35", - "instvars" : [ - "repository", - "commit" ], - "name" : "SquitVersion", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotVersion", - "type" : "normal" } diff --git a/src/Squit.package/SquitVersionBuilder.class/README.md b/src/Squit.package/SquitVersionBuilder.class/README.md deleted file mode 100644 index 79fe34d98..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/README.md +++ /dev/null @@ -1,14 +0,0 @@ -I am a builder for a SquitVersion. As Git commits are immutable, a version can only exist after all properties of a commit have been determined. - -Initialize me with #repository: and either #patch: or #snapshot:, so I know which trees to generate. - -Instance Variables - author: - committer: - commitTimestamp: or nil - message: - parents: - repository: - patch: - shouldStoreMetadata: - snapshot: \ No newline at end of file diff --git a/src/Squit.package/SquitVersionBuilder.class/class/repository..st b/src/Squit.package/SquitVersionBuilder.class/class/repository..st deleted file mode 100644 index 3351d0363..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/class/repository..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -repository: aSquitRepository - ^ self new - setRepository: aSquitRepository; - yourself \ No newline at end of file diff --git a/src/Squit.package/SquitVersionBuilder.class/instance/author..st b/src/Squit.package/SquitVersionBuilder.class/instance/author..st deleted file mode 100644 index b13b73b4a..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/instance/author..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -author: anObject - anObject species = GitStamp - ifTrue: [author := anObject] - ifFalse: [author := GitStamp readFrom: (ReadStream on: anObject)] \ No newline at end of file diff --git a/src/Squit.package/SquitVersionBuilder.class/instance/author.st b/src/Squit.package/SquitVersionBuilder.class/instance/author.st deleted file mode 100644 index ee72d17cb..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/instance/author.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -author - - ^ author \ No newline at end of file diff --git a/src/Squit.package/SquitVersionBuilder.class/instance/authoringTimeStamp..st b/src/Squit.package/SquitVersionBuilder.class/instance/authoringTimeStamp..st deleted file mode 100644 index dcb37e928..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/instance/authoringTimeStamp..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -authoringTimeStamp: aDateAndTime - - author := author atTime: aDateAndTime \ No newline at end of file diff --git a/src/Squit.package/SquitVersionBuilder.class/instance/buildVersion.st b/src/Squit.package/SquitVersionBuilder.class/instance/buildVersion.st deleted file mode 100644 index 82d38b50b..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/instance/buildVersion.st +++ /dev/null @@ -1,21 +0,0 @@ -building -buildVersion - "Create the commit and answer the SquitVersion for it" - | fs fsStore commit newSnapshot | - self assert: (patch notNil or: [snapshot notNil]). - self assert: (parents notNil and: [message notNil and: [author notNil and: [committer notNil]]]). - fs := parents - ifEmpty: [repository orphanedWorkingDirectory] - ifNotEmpty: [repository workingTreeForCommitNamed: parents first hexHash]. - fsStore := SquotFileSystemStore inDirectory: fs root. - shouldStoreMetadata ifFalse: [fsStore doNotStoreMetadata]. - SquotProgress displayStatus: 'Serializing objects to Git' during: - [snapshot ifNotNil: [newSnapshot := fsStore restoreToSnapshot: snapshot]. - patch ifNotNil: [newSnapshot := fsStore applyPatch: patch]]. - (commit := fs prepareNewCommit) - message: (self message withLineEndings: String lf); - parents: (parents collect: [:each | each hexHash]); - author: author; - committer: (commitTimestamp ifNil: [committer now] ifNotNil: [committer atTime: commitTimestamp]); - store. - ^ SquotMemoizingVersion version: (repository versionForCommit: commit) snapshot: newSnapshot \ No newline at end of file diff --git a/src/Squit.package/SquitVersionBuilder.class/instance/committer..st b/src/Squit.package/SquitVersionBuilder.class/instance/committer..st deleted file mode 100644 index 323ee93af..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/instance/committer..st +++ /dev/null @@ -1,8 +0,0 @@ -accessing -committer: anObject - "committer is initially the same instance as author. - If the committer is altered, create an own instance for it - (i. e., assume author and committer are different individuals)." - anObject species = GitStamp - ifTrue: [committer := anObject] - ifFalse: [committer := GitStamp readFrom: (ReadStream on: anObject)] \ No newline at end of file diff --git a/src/Squit.package/SquitVersionBuilder.class/instance/committer.st b/src/Squit.package/SquitVersionBuilder.class/instance/committer.st deleted file mode 100644 index e93511ed1..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/instance/committer.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -committer - - ^ committer \ No newline at end of file diff --git a/src/Squit.package/SquitVersionBuilder.class/instance/committingTimeStamp..st b/src/Squit.package/SquitVersionBuilder.class/instance/committingTimeStamp..st deleted file mode 100644 index b8b69d2d1..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/instance/committingTimeStamp..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -committingTimeStamp: aDateAndTime - - commitTimestamp := aDateAndTime. \ No newline at end of file diff --git a/src/Squit.package/SquitVersionBuilder.class/instance/doNotStoreMetadata.st b/src/Squit.package/SquitVersionBuilder.class/instance/doNotStoreMetadata.st deleted file mode 100644 index b9f966bea..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/instance/doNotStoreMetadata.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -doNotStoreMetadata - "Advises this builder that no Squot metadata should be written to the repository." - shouldStoreMetadata := false. \ No newline at end of file diff --git a/src/Squit.package/SquitVersionBuilder.class/instance/initialize.st b/src/Squit.package/SquitVersionBuilder.class/instance/initialize.st deleted file mode 100644 index df354831b..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/instance/initialize.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -initialize - shouldStoreMetadata := true. \ No newline at end of file diff --git a/src/Squit.package/SquitVersionBuilder.class/instance/initializeAuthorAndCommitter.st b/src/Squit.package/SquitVersionBuilder.class/instance/initializeAuthorAndCommitter.st deleted file mode 100644 index a91aa2e6a..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/instance/initializeAuthorAndCommitter.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initializeAuthorAndCommitter - author := repository defaultAuthor. - committer := author. \ No newline at end of file diff --git a/src/Squit.package/SquitVersionBuilder.class/instance/initializeClean.st b/src/Squit.package/SquitVersionBuilder.class/instance/initializeClean.st deleted file mode 100644 index 5ecbc0c61..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/instance/initializeClean.st +++ /dev/null @@ -1,7 +0,0 @@ -initialize-release -initializeClean - "Clients that wish to have no defaults applied to the produced version should call this." - author := nil. - committer := nil. - message := ''. - parents := OrderedCollection new. \ No newline at end of file diff --git a/src/Squit.package/SquitVersionBuilder.class/instance/message..st b/src/Squit.package/SquitVersionBuilder.class/instance/message..st deleted file mode 100644 index b85ef2159..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/instance/message..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -message: anObject - - message := anObject \ No newline at end of file diff --git a/src/Squit.package/SquitVersionBuilder.class/instance/message.st b/src/Squit.package/SquitVersionBuilder.class/instance/message.st deleted file mode 100644 index d808932ce..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/instance/message.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -message - - ^ message \ No newline at end of file diff --git a/src/Squit.package/SquitVersionBuilder.class/instance/parents..st b/src/Squit.package/SquitVersionBuilder.class/instance/parents..st deleted file mode 100644 index 20a937a66..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/instance/parents..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -parents: anObject - - parents := anObject \ No newline at end of file diff --git a/src/Squit.package/SquitVersionBuilder.class/instance/parents.st b/src/Squit.package/SquitVersionBuilder.class/instance/parents.st deleted file mode 100644 index b987713be..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/instance/parents.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -parents - - ^ parents \ No newline at end of file diff --git a/src/Squit.package/SquitVersionBuilder.class/instance/patch..st b/src/Squit.package/SquitVersionBuilder.class/instance/patch..st deleted file mode 100644 index 46a154d04..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/instance/patch..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -patch: anObject - patch := anObject \ No newline at end of file diff --git a/src/Squit.package/SquitVersionBuilder.class/instance/patch.st b/src/Squit.package/SquitVersionBuilder.class/instance/patch.st deleted file mode 100644 index 29fd096f1..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/instance/patch.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -patch - ^ patch \ No newline at end of file diff --git a/src/Squit.package/SquitVersionBuilder.class/instance/repository..st b/src/Squit.package/SquitVersionBuilder.class/instance/repository..st deleted file mode 100644 index 1e5243b7c..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/instance/repository..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -repository: anObject - - repository := anObject \ No newline at end of file diff --git a/src/Squit.package/SquitVersionBuilder.class/instance/repository.st b/src/Squit.package/SquitVersionBuilder.class/instance/repository.st deleted file mode 100644 index 6f5088a39..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/instance/repository.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -repository - - ^ repository \ No newline at end of file diff --git a/src/Squit.package/SquitVersionBuilder.class/instance/setRepository..st b/src/Squit.package/SquitVersionBuilder.class/instance/setRepository..st deleted file mode 100644 index b3b833268..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/instance/setRepository..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -setRepository: aSquitRepository - repository := aSquitRepository. - self initializeAuthorAndCommitter. \ No newline at end of file diff --git a/src/Squit.package/SquitVersionBuilder.class/instance/snapshot..st b/src/Squit.package/SquitVersionBuilder.class/instance/snapshot..st deleted file mode 100644 index eb225f738..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/instance/snapshot..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -snapshot: anObject - - snapshot := anObject \ No newline at end of file diff --git a/src/Squit.package/SquitVersionBuilder.class/instance/snapshot.st b/src/Squit.package/SquitVersionBuilder.class/instance/snapshot.st deleted file mode 100644 index 24a8b21c7..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/instance/snapshot.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -snapshot - - ^ snapshot \ No newline at end of file diff --git a/src/Squit.package/SquitVersionBuilder.class/instance/timestamp..st b/src/Squit.package/SquitVersionBuilder.class/instance/timestamp..st deleted file mode 100644 index 8e8e1e2d8..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/instance/timestamp..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -timestamp: aDateAndTime - - self authoringTimeStamp: aDateAndTime. \ No newline at end of file diff --git a/src/Squit.package/SquitVersionBuilder.class/instance/timestamp.st b/src/Squit.package/SquitVersionBuilder.class/instance/timestamp.st deleted file mode 100644 index 8314edb58..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/instance/timestamp.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -timestamp - - ^ self author timeStamp \ No newline at end of file diff --git a/src/Squit.package/SquitVersionBuilder.class/methodProperties.json b/src/Squit.package/SquitVersionBuilder.class/methodProperties.json deleted file mode 100644 index 0a81d548c..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/methodProperties.json +++ /dev/null @@ -1,28 +0,0 @@ -{ - "class" : { - "repository:" : "jr 8/26/2020 22:34" }, - "instance" : { - "author" : "jr 2/5/2017 22:43", - "author:" : "jr 8/26/2020 23:31", - "authoringTimeStamp:" : "jr 8/26/2020 23:09", - "buildVersion" : "jr 1/9/2021 18:05", - "committer" : "jr 2/5/2017 22:43", - "committer:" : "jr 2/20/2017 22:13", - "committingTimeStamp:" : "jr 8/30/2020 20:38", - "doNotStoreMetadata" : "jr 3/7/2017 17:37", - "initialize" : "jr 8/26/2020 22:34", - "initializeAuthorAndCommitter" : "jr 8/26/2020 22:35", - "initializeClean" : "jr 8/26/2020 23:16", - "message" : "jr 2/5/2017 22:43", - "message:" : "jr 2/5/2017 22:43", - "parents" : "jr 2/5/2017 22:43", - "parents:" : "jr 2/5/2017 22:43", - "patch" : "jr 5/29/2017 15:08", - "patch:" : "jr 5/29/2017 15:08", - "repository" : "jr 2/5/2017 22:43", - "repository:" : "jr 2/5/2017 22:43", - "setRepository:" : "jr 8/26/2020 22:34", - "snapshot" : "jr 2/5/2017 22:43", - "snapshot:" : "jr 2/5/2017 22:43", - "timestamp" : "jr 8/25/2020 18:54", - "timestamp:" : "jr 8/25/2020 18:55" } } diff --git a/src/Squit.package/SquitVersionBuilder.class/properties.json b/src/Squit.package/SquitVersionBuilder.class/properties.json deleted file mode 100644 index f7cc05e62..000000000 --- a/src/Squit.package/SquitVersionBuilder.class/properties.json +++ /dev/null @@ -1,24 +0,0 @@ -{ - "category" : "Squit-Core", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotVersionBuilder classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 8/30/2020 20:43", - "instvars" : [ - "repository", - "message", - "parents", - "snapshot", - "patch", - "author", - "committer", - "shouldStoreMetadata", - "commitTimestamp" ], - "name" : "SquitVersionBuilder", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotVersionBuilder", - "type" : "normal" } diff --git a/src/Squit.package/SquitVersionWrapper.class/README.md b/src/Squit.package/SquitVersionWrapper.class/README.md deleted file mode 100644 index cf43b1e8c..000000000 --- a/src/Squit.package/SquitVersionWrapper.class/README.md +++ /dev/null @@ -1,4 +0,0 @@ -I am a wrapper for a SquitVersion to be displayed in the SquitBrowser's commit list. - -Instance Variables - version: diff --git a/src/Squit.package/SquitVersionWrapper.class/class/on..st b/src/Squit.package/SquitVersionWrapper.class/class/on..st deleted file mode 100644 index 423ca10cf..000000000 --- a/src/Squit.package/SquitVersionWrapper.class/class/on..st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -on: aVersion - ^ self new version: aVersion; yourself \ No newline at end of file diff --git a/src/Squit.package/SquitVersionWrapper.class/instance/balloonText.st b/src/Squit.package/SquitVersionWrapper.class/instance/balloonText.st deleted file mode 100644 index d6e7372c9..000000000 --- a/src/Squit.package/SquitVersionWrapper.class/instance/balloonText.st +++ /dev/null @@ -1,8 +0,0 @@ -printing -balloonText - | browser | - browser := self. - [browser ifNil: [^ nil]. - browser respondsTo: #withUnitOfWork:] - whileFalse: [browser := browser model]. - ^ browser withUnitOfWork: [self summary] \ No newline at end of file diff --git a/src/Squit.package/SquitVersionWrapper.class/instance/formatDate..st b/src/Squit.package/SquitVersionWrapper.class/instance/formatDate..st deleted file mode 100644 index 83ea6d0f3..000000000 --- a/src/Squit.package/SquitVersionWrapper.class/instance/formatDate..st +++ /dev/null @@ -1,11 +0,0 @@ -printing -formatDate: aDateAndTime - | YY MM DD hh mm | - YY := aDateAndTime year. - MM := aDateAndTime monthAbbreviation. - DD := self makeTwoDigitString: aDateAndTime dayOfMonth. - hh := self makeTwoDigitString: aDateAndTime hours. - mm := self makeTwoDigitString: aDateAndTime minutes. - ^ aDateAndTime year = DateAndTime now year - ifTrue: [DD, ' ', MM, ' ', hh, ':', mm, ' '] - ifFalse: [DD, ' ', MM, ' ', YY] \ No newline at end of file diff --git a/src/Squit.package/SquitVersionWrapper.class/instance/makeTwoDigitString..st b/src/Squit.package/SquitVersionWrapper.class/instance/makeTwoDigitString..st deleted file mode 100644 index 83deb2f29..000000000 --- a/src/Squit.package/SquitVersionWrapper.class/instance/makeTwoDigitString..st +++ /dev/null @@ -1,3 +0,0 @@ -printing -makeTwoDigitString: anInteger - ^ anInteger asString padded: #left to: 2 with: $0 \ No newline at end of file diff --git a/src/Squit.package/SquitVersionWrapper.class/instance/setItem..st b/src/Squit.package/SquitVersionWrapper.class/instance/setItem..st deleted file mode 100644 index 0e1fb3cc4..000000000 --- a/src/Squit.package/SquitVersionWrapper.class/instance/setItem..st +++ /dev/null @@ -1,12 +0,0 @@ -printing -setItem: aSquitVersion - | date commitHash author message decoration | - super setItem: aSquitVersion. - date := self formatDate: (aSquitVersion metadata at: #timestamp). - commitHash := aSquitVersion shortId. - author := (aSquitVersion metadata at: #author) withBlanksTrimmed contractTo: 16. - message := (aSquitVersion message lines ifNotEmptyDo: #first ifEmpty: '') truncateWithElipsisTo: 80. - decoration := ''. - (model model historiansDecorationAtVersion: aSquitVersion) ifNotEmpty: [:historians | - decoration := '[', ((historians collect: [:each | each shortName]) joinSeparatedBy: ']['), '] ']. - self string: date, String tab, author, String tab, decoration, message. \ No newline at end of file diff --git a/src/Squit.package/SquitVersionWrapper.class/instance/summary.st b/src/Squit.package/SquitVersionWrapper.class/instance/summary.st deleted file mode 100644 index 13f0fe029..000000000 --- a/src/Squit.package/SquitVersionWrapper.class/instance/summary.st +++ /dev/null @@ -1,3 +0,0 @@ -printing -summary - ^ model model summaryForCommit: self item \ No newline at end of file diff --git a/src/Squit.package/SquitVersionWrapper.class/instance/version..st b/src/Squit.package/SquitVersionWrapper.class/instance/version..st deleted file mode 100644 index 6b63c1ae7..000000000 --- a/src/Squit.package/SquitVersionWrapper.class/instance/version..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -version: anObject - version := anObject \ No newline at end of file diff --git a/src/Squit.package/SquitVersionWrapper.class/instance/version.st b/src/Squit.package/SquitVersionWrapper.class/instance/version.st deleted file mode 100644 index a043da51a..000000000 --- a/src/Squit.package/SquitVersionWrapper.class/instance/version.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -version - ^ version \ No newline at end of file diff --git a/src/Squit.package/SquitVersionWrapper.class/methodProperties.json b/src/Squit.package/SquitVersionWrapper.class/methodProperties.json deleted file mode 100644 index 4310c0008..000000000 --- a/src/Squit.package/SquitVersionWrapper.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - "on:" : "fn 4/11/2017 12:26" }, - "instance" : { - "balloonText" : "jr 3/3/2020 22:56", - "formatDate:" : "jr 5/14/2021 22:33", - "makeTwoDigitString:" : "fn 4/24/2017 18:09", - "setItem:" : "jr 7/2/2022 22:30", - "summary" : "jr 7/2/2022 21:03", - "version" : "fn 4/11/2017 12:22", - "version:" : "fn 4/11/2017 12:22" } } diff --git a/src/Squit.package/SquitVersionWrapper.class/properties.json b/src/Squit.package/SquitVersionWrapper.class/properties.json deleted file mode 100644 index 3b2124b2d..000000000 --- a/src/Squit.package/SquitVersionWrapper.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squit-UI-Support", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 20:45", - "instvars" : [ - "version" ], - "name" : "SquitVersionWrapper", - "pools" : [ - ], - "super" : "PluggableListItemWrapper", - "type" : "normal" } diff --git a/src/Squit.package/SquotMonticelloConverterTestWithSquit.class/README.md b/src/Squit.package/SquotMonticelloConverterTestWithSquit.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squit.package/SquotMonticelloConverterTestWithSquit.class/class/resources.st b/src/Squit.package/SquotMonticelloConverterTestWithSquit.class/class/resources.st deleted file mode 100644 index 7a90d1bad..000000000 --- a/src/Squit.package/SquotMonticelloConverterTestWithSquit.class/class/resources.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -resources - ^ super resources , {DefaultGitStampForTests} \ No newline at end of file diff --git a/src/Squit.package/SquotMonticelloConverterTestWithSquit.class/instance/newRepository.st b/src/Squit.package/SquotMonticelloConverterTestWithSquit.class/instance/newRepository.st deleted file mode 100644 index 91892e679..000000000 --- a/src/Squit.package/SquotMonticelloConverterTestWithSquit.class/instance/newRepository.st +++ /dev/null @@ -1,3 +0,0 @@ -running -newRepository - ^ SquitRepository new initializeInDirectory: FileSystem memory / 'testrepo.git' \ No newline at end of file diff --git a/src/Squit.package/SquotMonticelloConverterTestWithSquit.class/methodProperties.json b/src/Squit.package/SquotMonticelloConverterTestWithSquit.class/methodProperties.json deleted file mode 100644 index 06e5fb4ed..000000000 --- a/src/Squit.package/SquotMonticelloConverterTestWithSquit.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "resources" : "jr 3/16/2017 17:55" }, - "instance" : { - "newRepository" : "jr 3/2/2017 17:39" } } diff --git a/src/Squit.package/SquotMonticelloConverterTestWithSquit.class/properties.json b/src/Squit.package/SquotMonticelloConverterTestWithSquit.class/properties.json deleted file mode 100644 index b5134d8b8..000000000 --- a/src/Squit.package/SquotMonticelloConverterTestWithSquit.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squit-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotMonticelloConverterTestWithSquit", - "pools" : [ - ], - "super" : "SquotMonticelloConverterTest", - "type" : "normal" } diff --git a/src/Squit.package/SquotSerializer.extension/class/addUserSettingsOfAll.in.to..st b/src/Squit.package/SquotSerializer.extension/class/addUserSettingsOfAll.in.to..st deleted file mode 100644 index 9813817da..000000000 --- a/src/Squit.package/SquotSerializer.extension/class/addUserSettingsOfAll.in.to..st +++ /dev/null @@ -1,4 +0,0 @@ -*Squit-UI -addUserSettingsOfAll: aCollection in: aSquotWorkingCopy to: aPluggableMenuSpec - "Subclasses may add menu items with settings to aPluggableMenuSpec." - ^ aPluggableMenuSpec \ No newline at end of file diff --git a/src/Squit.package/SquotSerializer.extension/methodProperties.json b/src/Squit.package/SquotSerializer.extension/methodProperties.json deleted file mode 100644 index 340eb29f1..000000000 --- a/src/Squit.package/SquotSerializer.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "addUserSettingsOfAll:in:to:" : "jr 5/16/2022 22:57" }, - "instance" : { - } } diff --git a/src/Squit.package/SquotSerializer.extension/properties.json b/src/Squit.package/SquotSerializer.extension/properties.json deleted file mode 100644 index 145d251c1..000000000 --- a/src/Squit.package/SquotSerializer.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "SquotSerializer" } diff --git a/src/Squit.package/SquotWorkingCopy.extension/instance/addUserSettingsTo..st b/src/Squit.package/SquotWorkingCopy.extension/instance/addUserSettingsTo..st deleted file mode 100644 index c5cb48a24..000000000 --- a/src/Squit.package/SquotWorkingCopy.extension/instance/addUserSettingsTo..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squit-UI -addUserSettingsTo: aPluggableMenuSpec - ^ repository addUserSettingsOf: self to: aPluggableMenuSpec \ No newline at end of file diff --git a/src/Squit.package/SquotWorkingCopy.extension/methodProperties.json b/src/Squit.package/SquotWorkingCopy.extension/methodProperties.json deleted file mode 100644 index 49f7a3a1b..000000000 --- a/src/Squit.package/SquotWorkingCopy.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "addUserSettingsTo:" : "jr 5/15/2022 12:36" } } diff --git a/src/Squit.package/SquotWorkingCopy.extension/properties.json b/src/Squit.package/SquotWorkingCopy.extension/properties.json deleted file mode 100644 index b5406e048..000000000 --- a/src/Squit.package/SquotWorkingCopy.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "SquotWorkingCopy" } diff --git a/src/Squit.package/monticello.meta/categories.st b/src/Squit.package/monticello.meta/categories.st deleted file mode 100644 index 3f0e30f61..000000000 --- a/src/Squit.package/monticello.meta/categories.st +++ /dev/null @@ -1,6 +0,0 @@ -SystemOrganization addCategory: #'Squit-Core'! -SystemOrganization addCategory: #'Squit-Exceptions'! -SystemOrganization addCategory: #'Squit-UI'! -SystemOrganization addCategory: #'Squit-UI-Support'! -SystemOrganization addCategory: #'Squit-Tests'! -SystemOrganization addCategory: #'Squit-Tests-UI'! diff --git a/src/Squit.package/monticello.meta/initializers.st b/src/Squit.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squit.package/monticello.meta/postscript.st b/src/Squit.package/monticello.meta/postscript.st deleted file mode 100644 index 3caf5b1dd..000000000 --- a/src/Squit.package/monticello.meta/postscript.st +++ /dev/null @@ -1,12 +0,0 @@ -(PackageInfo named: 'Squit') postscript: '"below, add code to be run after the loading of this package" -"2019-10-03: remove cached snapshots because the new property loadOrder was introduced" -SquitRepository allInstancesDo: [:each | each flushCaches]. - -"2020-02-23: Squeak 5.3 depracates ToolSet>>debugError: in favor of handleError:, but that didn''t exist in previous versions. Delegate back for older versions." -((ToolSet respondsTo: #handleError:) not and: [ToolSet respondsTo: #debugError:]) ifTrue: - [ToolSet class - compile: ''handleError: anError - "Method is new in Squeak 5.3. Compatibility method added by the package ''''Squit''''." - ^ self debugError: anError'' - classified: ''debugging - handlers'']. -'! diff --git a/src/Squit.package/properties.json b/src/Squit.package/properties.json deleted file mode 100644 index f037444a7..000000000 --- a/src/Squit.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } diff --git a/src/Squot.package/AbstractSquotMonticelloConverterTest.class/README.md b/src/Squot.package/AbstractSquotMonticelloConverterTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/AbstractSquotMonticelloConverterTest.class/class/isAbstract.st b/src/Squot.package/AbstractSquotMonticelloConverterTest.class/class/isAbstract.st deleted file mode 100644 index 79a4df672..000000000 --- a/src/Squot.package/AbstractSquotMonticelloConverterTest.class/class/isAbstract.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -isAbstract - - ^ self = AbstractSquotMonticelloConverterTest \ No newline at end of file diff --git a/src/Squot.package/AbstractSquotMonticelloConverterTest.class/instance/newMcRepository..st b/src/Squot.package/AbstractSquotMonticelloConverterTest.class/instance/newMcRepository..st deleted file mode 100644 index 7e9490725..000000000 --- a/src/Squot.package/AbstractSquotMonticelloConverterTest.class/instance/newMcRepository..st +++ /dev/null @@ -1,6 +0,0 @@ -running -newMcRepository: name - - ^ mcRepositories add: (MCDictionaryRepository new - description: name; - yourself) \ No newline at end of file diff --git a/src/Squot.package/AbstractSquotMonticelloConverterTest.class/instance/setUp.st b/src/Squot.package/AbstractSquotMonticelloConverterTest.class/instance/setUp.st deleted file mode 100644 index c0fab3ac1..000000000 --- a/src/Squot.package/AbstractSquotMonticelloConverterTest.class/instance/setUp.st +++ /dev/null @@ -1,6 +0,0 @@ -running -setUp - - super setUp. - - mcRepositories := OrderedCollection new. \ No newline at end of file diff --git a/src/Squot.package/AbstractSquotMonticelloConverterTest.class/instance/tearDown.st b/src/Squot.package/AbstractSquotMonticelloConverterTest.class/instance/tearDown.st deleted file mode 100644 index a29de1a9b..000000000 --- a/src/Squot.package/AbstractSquotMonticelloConverterTest.class/instance/tearDown.st +++ /dev/null @@ -1,9 +0,0 @@ -running -tearDown - - [mcRepositories do: [:repo | - self environment packageOrganizer packageNamed: repo description ifPresent: [:package | - package workingCopy unregister]. - self environment packageOrganizer unregisterPackageNamed: repo description. - MCRepositoryGroup default removeRepository: repo]] - ensure: [super tearDown] \ No newline at end of file diff --git a/src/Squot.package/AbstractSquotMonticelloConverterTest.class/methodProperties.json b/src/Squot.package/AbstractSquotMonticelloConverterTest.class/methodProperties.json deleted file mode 100644 index 5b48cb792..000000000 --- a/src/Squot.package/AbstractSquotMonticelloConverterTest.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - "isAbstract" : "ct 10/28/2021 08:22" }, - "instance" : { - "newMcRepository:" : "ct 10/28/2021 08:20", - "setUp" : "ct 10/28/2021 08:20", - "tearDown" : "ct 10/28/2021 08:30" } } diff --git a/src/Squot.package/AbstractSquotMonticelloConverterTest.class/properties.json b/src/Squot.package/AbstractSquotMonticelloConverterTest.class/properties.json deleted file mode 100644 index 6edd9d44d..000000000 --- a/src/Squot.package/AbstractSquotMonticelloConverterTest.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Tests-Monticello-Converter", - "classinstvars" : [ - ], - "classtraitcomposition" : "TTestCaseSuppressingProgressDisplay classTrait", - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "mcRepositories" ], - "name" : "AbstractSquotMonticelloConverterTest", - "pools" : [ - ], - "super" : "TestCase", - "traitcomposition" : "TTestCaseSuppressingProgressDisplay", - "type" : "normal" } diff --git a/src/Squot.package/BlockClosure.extension/instance/on.doAndResume..st b/src/Squot.package/BlockClosure.extension/instance/on.doAndResume..st deleted file mode 100644 index 200a5dd5e..000000000 --- a/src/Squot.package/BlockClosure.extension/instance/on.doAndResume..st +++ /dev/null @@ -1,7 +0,0 @@ -*Squot -on: exceptionOrExceptionSet doAndResume: handlerAction - ^ self - on: exceptionOrExceptionSet - do: [:exception | - handlerAction cull: exception. - exception resume] \ No newline at end of file diff --git a/src/Squot.package/BlockClosure.extension/methodProperties.json b/src/Squot.package/BlockClosure.extension/methodProperties.json deleted file mode 100644 index e74d10ed7..000000000 --- a/src/Squot.package/BlockClosure.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "on:doAndResume:" : "jr 5/31/2017 18:21" } } diff --git a/src/Squot.package/BlockClosure.extension/properties.json b/src/Squot.package/BlockClosure.extension/properties.json deleted file mode 100644 index 1d6f4884e..000000000 --- a/src/Squot.package/BlockClosure.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "BlockClosure" } diff --git a/src/Squot.package/Boolean.extension/class/squotMirror.st b/src/Squot.package/Boolean.extension/class/squotMirror.st deleted file mode 100644 index 53a5172cf..000000000 --- a/src/Squot.package/Boolean.extension/class/squotMirror.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-trackable -squotMirror - ^ SquotSystemSingletonMirror class: self \ No newline at end of file diff --git a/src/Squot.package/Boolean.extension/instance/canHaveNameAssignedBySquot.st b/src/Squot.package/Boolean.extension/instance/canHaveNameAssignedBySquot.st deleted file mode 100644 index cc0b395ce..000000000 --- a/src/Squot.package/Boolean.extension/instance/canHaveNameAssignedBySquot.st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-shadow-capturing -canHaveNameAssignedBySquot - "Booleans are trivial objects, like numbers, and must never get a name to track their - identity." - ^ false \ No newline at end of file diff --git a/src/Squot.package/Boolean.extension/instance/captureWithSquot..st b/src/Squot.package/Boolean.extension/instance/captureWithSquot..st deleted file mode 100644 index 9fc4c8792..000000000 --- a/src/Squot.package/Boolean.extension/instance/captureWithSquot..st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-trackable -captureWithSquot: anObjectCapturer - self flag: #deprecated. "Ask the mirror instead." - ^ anObjectCapturer capturePrimitiveValue: self \ No newline at end of file diff --git a/src/Squot.package/Boolean.extension/instance/captureWithSquot.st b/src/Squot.package/Boolean.extension/instance/captureWithSquot.st deleted file mode 100644 index f8a446e82..000000000 --- a/src/Squot.package/Boolean.extension/instance/captureWithSquot.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-trackable -captureWithSquot - ^ SquotPrimitiveValue for: self \ No newline at end of file diff --git a/src/Squot.package/Boolean.extension/instance/sameIn.withName.ifAbsent..st b/src/Squot.package/Boolean.extension/instance/sameIn.withName.ifAbsent..st deleted file mode 100644 index cc84a8eee..000000000 --- a/src/Squot.package/Boolean.extension/instance/sameIn.withName.ifAbsent..st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot -sameIn: aSquotShadowGraph withName: anUndefinedObject ifAbsent: aBlock - "I am a system-wide singleton." - ^ self \ No newline at end of file diff --git a/src/Squot.package/Boolean.extension/instance/squotDiffAgainst.with..st b/src/Squot.package/Boolean.extension/instance/squotDiffAgainst.with..st deleted file mode 100644 index c27bc55fd..000000000 --- a/src/Squot.package/Boolean.extension/instance/squotDiffAgainst.with..st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-shadow-comparing -squotDiffAgainst: aBoolean with: aSquotDiffBuilder - ^ aBoolean = self - ifTrue: [SquotDiffOfEqualObjects instance] - ifFalse: [SquotObjectReplacement left: self right: aBoolean] \ No newline at end of file diff --git a/src/Squot.package/Boolean.extension/instance/squotOutgoingReferences.st b/src/Squot.package/Boolean.extension/instance/squotOutgoingReferences.st deleted file mode 100644 index 786459f81..000000000 --- a/src/Squot.package/Boolean.extension/instance/squotOutgoingReferences.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot -squotOutgoingReferences - "I refer to no other objects." - ^ #() \ No newline at end of file diff --git a/src/Squot.package/Boolean.extension/instance/squotShadowFactory.st b/src/Squot.package/Boolean.extension/instance/squotShadowFactory.st deleted file mode 100644 index 057a85176..000000000 --- a/src/Squot.package/Boolean.extension/instance/squotShadowFactory.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-trackable -squotShadowFactory - self flag: #deprecated. "Ask the mirror instead." - ^ SquotPrimitiveValue \ No newline at end of file diff --git a/src/Squot.package/Boolean.extension/instance/squotShouldKeepIdentity.st b/src/Squot.package/Boolean.extension/instance/squotShouldKeepIdentity.st deleted file mode 100644 index f74f6d96f..000000000 --- a/src/Squot.package/Boolean.extension/instance/squotShouldKeepIdentity.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-trackable -squotShouldKeepIdentity - "Not necessary. There is only one instance of me anyway." - ^ false \ No newline at end of file diff --git a/src/Squot.package/Boolean.extension/methodProperties.json b/src/Squot.package/Boolean.extension/methodProperties.json deleted file mode 100644 index 071356c98..000000000 --- a/src/Squot.package/Boolean.extension/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - "squotMirror" : "jr 1/17/2021 22:26" }, - "instance" : { - "canHaveNameAssignedBySquot" : "jr 9/25/2019 14:33", - "captureWithSquot" : "jr 6/17/2017 20:54", - "captureWithSquot:" : "jr 1/11/2021 00:01", - "sameIn:withName:ifAbsent:" : "jr 12/13/2020 15:00", - "squotDiffAgainst:with:" : "jr 12/13/2020 23:20", - "squotOutgoingReferences" : "jr 12/13/2020 14:58", - "squotShadowFactory" : "jr 1/10/2021 23:58", - "squotShouldKeepIdentity" : "jr 6/22/2017 15:23" } } diff --git a/src/Squot.package/Boolean.extension/properties.json b/src/Squot.package/Boolean.extension/properties.json deleted file mode 100644 index c15542b76..000000000 --- a/src/Squot.package/Boolean.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Boolean" } diff --git a/src/Squot.package/BoxedFloat64.extension/class/squotMirror.st b/src/Squot.package/BoxedFloat64.extension/class/squotMirror.st deleted file mode 100644 index 3e3a5fb0e..000000000 --- a/src/Squot.package/BoxedFloat64.extension/class/squotMirror.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-trackable -squotMirror - ^ SquotOpaqueValueMirror new \ No newline at end of file diff --git a/src/Squot.package/BoxedFloat64.extension/methodProperties.json b/src/Squot.package/BoxedFloat64.extension/methodProperties.json deleted file mode 100644 index 62c2e0579..000000000 --- a/src/Squot.package/BoxedFloat64.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "squotMirror" : "jr 7/30/2021 21:17" }, - "instance" : { - } } diff --git a/src/Squot.package/BoxedFloat64.extension/properties.json b/src/Squot.package/BoxedFloat64.extension/properties.json deleted file mode 100644 index b3ba4bdb0..000000000 --- a/src/Squot.package/BoxedFloat64.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "BoxedFloat64" } diff --git a/src/Squot.package/BrokenPromise.extension/instance/ifError.ifNotError..st b/src/Squot.package/BrokenPromise.extension/instance/ifError.ifNotError..st deleted file mode 100644 index f7763a8c8..000000000 --- a/src/Squot.package/BrokenPromise.extension/instance/ifError.ifNotError..st +++ /dev/null @@ -1,7 +0,0 @@ -*Squot-Tools -ifError: errorBlock ifNotError: rejectedBlock - | reason | - reason := self reason. - ^ (reason isKindOf: Error) - ifTrue: [errorBlock cull: reason] - ifFalse: [rejectedBlock cull: reason] \ No newline at end of file diff --git a/src/Squot.package/BrokenPromise.extension/instance/ifNotError..st b/src/Squot.package/BrokenPromise.extension/instance/ifNotError..st deleted file mode 100644 index 983cb728d..000000000 --- a/src/Squot.package/BrokenPromise.extension/instance/ifNotError..st +++ /dev/null @@ -1,20 +0,0 @@ -*Squot-Tools -ifNotError: aBlock - "Workaround for bad Promise implementation up to Squeak 5.3: value of ifRejected: blocks is not used to resolve the then-Promise, but to reject it. Also Promises in Squeak 5.3 do not take on the outcome of nested promises, they just nest the rejected promise as the error reason. Check whether the promise error is a real Error exception or whether it is a custom error reason. If it is a real Error, pass the BrokenPromise on. Otherwise evaluate the block to run business logic." - ^ self ifError: [self pass] ifNotError: [:reason | aBlock cull: reason] - "[Promise new rejectWith: 42; wait] - on: BrokenPromise do: [:e | e ifNotError: []]" "expected: nil" - "[((Promise new rejectWith: 42) then: [:x|] ifRejected: [:x | nil]) wait] - on: BrokenPromise do: [:e | e ifNotError: []]" "expected: nil" - "[((Promise new rejectWith: 42) then: [:x|] ifRejected: [:x | x error]) wait] - on: BrokenPromise do: [:e | e ifNotError: []]" "expected: BrokenPromise signal (Squeak Trunk) or Error error (Squeak 5.3)" - "[((Promise new resolveWith: 42) then: [:x| x error] ifRejected: [:x |]) wait] - on: BrokenPromise do: [:e | e ifNotError: []]" "expected: BrokenPromise signal" - "[(((Promise new resolveWith: 42) then: [:x| x error]) ifRejected: [:x |]) wait] - on: BrokenPromise do: [:e | e ifNotError: []]" "expected: nil" - "[[(self future error) wait] - on: BrokenPromise do: [:e | e ifNotError: []]] fork" "expected: BrokenPromise signal" - "[[((self future error) then: [:x |] ifRejected: [:x| nil]) wait] - on: BrokenPromise do: [:e | e ifNotError: []]] fork" "expected: nil" - "[[((self future error) then: [:x |]) wait] - on: BrokenPromise do: [:e | e ifNotError: []]] fork" "expected: BrokenPromise signal" \ No newline at end of file diff --git a/src/Squot.package/BrokenPromise.extension/instance/reason.st b/src/Squot.package/BrokenPromise.extension/instance/reason.st deleted file mode 100644 index e3463882e..000000000 --- a/src/Squot.package/BrokenPromise.extension/instance/reason.st +++ /dev/null @@ -1,6 +0,0 @@ -*Squot-Tools -reason - | nested | - nested := promise. - [(nested isKindOf: Promise) and: [nested isRejected]] whileTrue: [nested := nested error]. - ^ nested \ No newline at end of file diff --git a/src/Squot.package/BrokenPromise.extension/methodProperties.json b/src/Squot.package/BrokenPromise.extension/methodProperties.json deleted file mode 100644 index 7508b3994..000000000 --- a/src/Squot.package/BrokenPromise.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "ifError:ifNotError:" : "jr 8/25/2021 09:49", - "ifNotError:" : "jr 8/25/2021 09:50", - "reason" : "jr 8/25/2021 09:48" } } diff --git a/src/Squot.package/BrokenPromise.extension/properties.json b/src/Squot.package/BrokenPromise.extension/properties.json deleted file mode 100644 index 75b66b208..000000000 --- a/src/Squot.package/BrokenPromise.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "BrokenPromise" } diff --git a/src/Squot.package/Class.extension/instance/shouldHaveNameAssignedBySquot.st b/src/Squot.package/Class.extension/instance/shouldHaveNameAssignedBySquot.st deleted file mode 100644 index 48e992b50..000000000 --- a/src/Squot.package/Class.extension/instance/shouldHaveNameAssignedBySquot.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-trackable -shouldHaveNameAssignedBySquot - "Class identified by its name already." - ^ false \ No newline at end of file diff --git a/src/Squot.package/Class.extension/instance/squotShouldKeepIdentity.st b/src/Squot.package/Class.extension/instance/squotShouldKeepIdentity.st deleted file mode 100644 index 509989a69..000000000 --- a/src/Squot.package/Class.extension/instance/squotShouldKeepIdentity.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-trackable -squotShouldKeepIdentity - "While a class is identified by its name, we should keep the class if it is already loaded." - ^ true \ No newline at end of file diff --git a/src/Squot.package/Class.extension/methodProperties.json b/src/Squot.package/Class.extension/methodProperties.json deleted file mode 100644 index a9bac4fae..000000000 --- a/src/Squot.package/Class.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "shouldHaveNameAssignedBySquot" : "jr 6/26/2021 22:30", - "squotShouldKeepIdentity" : "jr 6/26/2021 22:28" } } diff --git a/src/Squot.package/Class.extension/properties.json b/src/Squot.package/Class.extension/properties.json deleted file mode 100644 index 239813a49..000000000 --- a/src/Squot.package/Class.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Class" } diff --git a/src/Squot.package/ClassDescription.extension/instance/captureWithSquot..st b/src/Squot.package/ClassDescription.extension/instance/captureWithSquot..st deleted file mode 100644 index a6ebd3743..000000000 --- a/src/Squot.package/ClassDescription.extension/instance/captureWithSquot..st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-trackable -captureWithSquot: aCapturer - self deprecated: 'Ask the mirror instead'. - self isMeta ifTrue: [^ super captureWithSquot: aCapturer]. - ^ aCapturer shadowOf: self ifAbsentPut: [self captureWithSquot] \ No newline at end of file diff --git a/src/Squot.package/ClassDescription.extension/instance/captureWithSquot.st b/src/Squot.package/ClassDescription.extension/instance/captureWithSquot.st deleted file mode 100644 index 73a0df5a3..000000000 --- a/src/Squot.package/ClassDescription.extension/instance/captureWithSquot.st +++ /dev/null @@ -1,8 +0,0 @@ -*Squot-trackable -captureWithSquot - self isMeta ifTrue: [^ super captureWithSquot]. - ^ SquotClassShadow - forPackageNamed: self category - withSnapshot: (MCSnapshot fromDefinitions: (Array streamContents: [:stream | - stream nextPutAll: self classDefinitions. - self selectorsDo: [:each | stream nextPut: (MethodReference class: self selector: each) asMethodDefinition]])) \ No newline at end of file diff --git a/src/Squot.package/ClassDescription.extension/instance/package.st b/src/Squot.package/ClassDescription.extension/instance/package.st deleted file mode 100644 index 630203de1..000000000 --- a/src/Squot.package/ClassDescription.extension/instance/package.st +++ /dev/null @@ -1,6 +0,0 @@ -*Squot-package -package - "Answer my package according to my environment's PackageOrganizer." - ^ self environment info packages packageOfClass: self - ifNone: [self environment info packages packageOfSystemCategory: self category - ifNone: [PackageInfo named: self category]] \ No newline at end of file diff --git a/src/Squot.package/ClassDescription.extension/instance/squotAddTransientStoreInfoTo..st b/src/Squot.package/ClassDescription.extension/instance/squotAddTransientStoreInfoTo..st deleted file mode 100644 index c21081ec6..000000000 --- a/src/Squot.package/ClassDescription.extension/instance/squotAddTransientStoreInfoTo..st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-trackable -squotAddTransientStoreInfoTo: aTrackableObjectMetadata - super squotAddTransientStoreInfoTo: aTrackableObjectMetadata. - aTrackableObjectMetadata at: #environment put: self environment. \ No newline at end of file diff --git a/src/Squot.package/ClassDescription.extension/instance/squotRemoveTransientStoreInfoFrom..st b/src/Squot.package/ClassDescription.extension/instance/squotRemoveTransientStoreInfoFrom..st deleted file mode 100644 index 91fc8f385..000000000 --- a/src/Squot.package/ClassDescription.extension/instance/squotRemoveTransientStoreInfoFrom..st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-trackable -squotRemoveTransientStoreInfoFrom: aDictionary - super squotRemoveTransientStoreInfoFrom: aDictionary. - aDictionary removeKey: #environment ifAbsent: []. \ No newline at end of file diff --git a/src/Squot.package/ClassDescription.extension/methodProperties.json b/src/Squot.package/ClassDescription.extension/methodProperties.json deleted file mode 100644 index 52738da44..000000000 --- a/src/Squot.package/ClassDescription.extension/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "captureWithSquot" : "jr 8/13/2017 18:23", - "captureWithSquot:" : "jr 7/25/2021 16:36", - "package" : "jr 7/21/2017 17:31", - "squotAddTransientStoreInfoTo:" : "jr 7/27/2017 23:52", - "squotRemoveTransientStoreInfoFrom:" : "jr 7/27/2017 23:52" } } diff --git a/src/Squot.package/ClassDescription.extension/properties.json b/src/Squot.package/ClassDescription.extension/properties.json deleted file mode 100644 index 039055631..000000000 --- a/src/Squot.package/ClassDescription.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "ClassDescription" } diff --git a/src/Squot.package/CoAuthorList.class/README.md b/src/Squot.package/CoAuthorList.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/CoAuthorList.class/class/default.st b/src/Squot.package/CoAuthorList.class/class/default.st deleted file mode 100644 index 4b973d925..000000000 --- a/src/Squot.package/CoAuthorList.class/class/default.st +++ /dev/null @@ -1,6 +0,0 @@ -instance creation -default - "You can edit this method to change the authors to choose from." - ^ CoAuthorList new - addName: 'Max Mustermann' email: 'max.mustermann@foo.bar'; - yourself \ No newline at end of file diff --git a/src/Squot.package/CoAuthorList.class/class/reset.st b/src/Squot.package/CoAuthorList.class/class/reset.st deleted file mode 100644 index 121124ede..000000000 --- a/src/Squot.package/CoAuthorList.class/class/reset.st +++ /dev/null @@ -1,4 +0,0 @@ -instance creation -reset - "In case we ever need to reinitialize this from a package preamble or postscript." - Instance := nil. \ No newline at end of file diff --git a/src/Squot.package/CoAuthorList.class/instance/add..st b/src/Squot.package/CoAuthorList.class/instance/add..st deleted file mode 100644 index 66de4a7b5..000000000 --- a/src/Squot.package/CoAuthorList.class/instance/add..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -add: aGitStamp - - self list add: aGitStamp. \ No newline at end of file diff --git a/src/Squot.package/CoAuthorList.class/instance/addName.email..st b/src/Squot.package/CoAuthorList.class/instance/addName.email..st deleted file mode 100644 index c5e705953..000000000 --- a/src/Squot.package/CoAuthorList.class/instance/addName.email..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -addName: name email: email - - self add: (GitStamp nowBy: name email: email). \ No newline at end of file diff --git a/src/Squot.package/CoAuthorList.class/instance/addSpecialEditItem.st b/src/Squot.package/CoAuthorList.class/instance/addSpecialEditItem.st deleted file mode 100644 index 160ac38bb..000000000 --- a/src/Squot.package/CoAuthorList.class/instance/addSpecialEditItem.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -addSpecialEditItem - - self add: CoAuthorListEditAuthorsItem instance. \ No newline at end of file diff --git a/src/Squot.package/CoAuthorList.class/instance/initialize.st b/src/Squot.package/CoAuthorList.class/instance/initialize.st deleted file mode 100644 index 5b26c44a8..000000000 --- a/src/Squot.package/CoAuthorList.class/instance/initialize.st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -initialize - - list := OrderedCollection new. - self addSpecialEditItem. \ No newline at end of file diff --git a/src/Squot.package/CoAuthorList.class/instance/list.st b/src/Squot.package/CoAuthorList.class/instance/list.st deleted file mode 100644 index 2d4d77ce3..000000000 --- a/src/Squot.package/CoAuthorList.class/instance/list.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -list - - ^ list \ No newline at end of file diff --git a/src/Squot.package/CoAuthorList.class/instance/select.st b/src/Squot.package/CoAuthorList.class/instance/select.st deleted file mode 100644 index 49e0268a7..000000000 --- a/src/Squot.package/CoAuthorList.class/instance/select.st +++ /dev/null @@ -1,12 +0,0 @@ -requesting -select - | choice | - choice := ListMultipleChooser new - title: 'select the Co-Authors'; - labels: (self list collect: [:gitStamp | gitStamp asStringWithoutTimestamp]); - values: self list; - choose. - (choice remove: CoAuthorListEditAuthorsItem instance ifAbsent: []) - ifNotNil: - [(CoAuthorList class >> #default) browse]. - ^ choice \ No newline at end of file diff --git a/src/Squot.package/CoAuthorList.class/methodProperties.json b/src/Squot.package/CoAuthorList.class/methodProperties.json deleted file mode 100644 index 988063e46..000000000 --- a/src/Squot.package/CoAuthorList.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - "default" : "jr 12/30/2021 12:50", - "reset" : "jr 12/30/2021 12:56" }, - "instance" : { - "add:" : "ms 3/8/2019 11:11", - "addName:email:" : "jr 12/17/2021 22:32", - "addSpecialEditItem" : "jr 12/30/2021 12:56", - "initialize" : "jr 12/30/2021 12:53", - "list" : "ms 3/8/2019 10:11", - "select" : "jr 12/30/2021 12:56" } } diff --git a/src/Squot.package/CoAuthorList.class/properties.json b/src/Squot.package/CoAuthorList.class/properties.json deleted file mode 100644 index db94c76b4..000000000 --- a/src/Squot.package/CoAuthorList.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-CoAuthorsExtension", - "classinstvars" : [ - ], - "classvars" : [ - "Instance" ], - "commentStamp" : "", - "instvars" : [ - "list", - "listIndex" ], - "name" : "CoAuthorList", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/CoAuthorListEditAuthorsItem.class/README.md b/src/Squot.package/CoAuthorListEditAuthorsItem.class/README.md deleted file mode 100644 index f08e4c9d6..000000000 --- a/src/Squot.package/CoAuthorListEditAuthorsItem.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am a special item in the CoAuthorList. When I am selected, the list will show a tool to edit the list of authors to choose from. \ No newline at end of file diff --git a/src/Squot.package/CoAuthorListEditAuthorsItem.class/class/instance.st b/src/Squot.package/CoAuthorListEditAuthorsItem.class/class/instance.st deleted file mode 100644 index 092d1bf0b..000000000 --- a/src/Squot.package/CoAuthorListEditAuthorsItem.class/class/instance.st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -instance - ^ Instance ifNil: [Instance := self new] \ No newline at end of file diff --git a/src/Squot.package/CoAuthorListEditAuthorsItem.class/instance/asStringWithoutTimestamp.st b/src/Squot.package/CoAuthorListEditAuthorsItem.class/instance/asStringWithoutTimestamp.st deleted file mode 100644 index 1dbccdda6..000000000 --- a/src/Squot.package/CoAuthorListEditAuthorsItem.class/instance/asStringWithoutTimestamp.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -asStringWithoutTimestamp - ^ '* Edit authors' \ No newline at end of file diff --git a/src/Squot.package/CoAuthorListEditAuthorsItem.class/methodProperties.json b/src/Squot.package/CoAuthorListEditAuthorsItem.class/methodProperties.json deleted file mode 100644 index 253eec65a..000000000 --- a/src/Squot.package/CoAuthorListEditAuthorsItem.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "instance" : "jr 12/30/2021 12:55" }, - "instance" : { - "asStringWithoutTimestamp" : "jr 12/30/2021 12:47" } } diff --git a/src/Squot.package/CoAuthorListEditAuthorsItem.class/properties.json b/src/Squot.package/CoAuthorListEditAuthorsItem.class/properties.json deleted file mode 100644 index 4852b9e9a..000000000 --- a/src/Squot.package/CoAuthorListEditAuthorsItem.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-CoAuthorsExtension", - "classinstvars" : [ - ], - "classvars" : [ - "Instance" ], - "commentStamp" : "jr 12/30/2021 12:54", - "instvars" : [ - ], - "name" : "CoAuthorListEditAuthorsItem", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/CompiledCode.extension/class/squotMirror.st b/src/Squot.package/CompiledCode.extension/class/squotMirror.st deleted file mode 100644 index 24a35ee9d..000000000 --- a/src/Squot.package/CompiledCode.extension/class/squotMirror.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot -squotMirror - ^ SquotCompiledCodeMirror class: self \ No newline at end of file diff --git a/src/Squot.package/CompiledCode.extension/instance/captureWithSquot..st b/src/Squot.package/CompiledCode.extension/instance/captureWithSquot..st deleted file mode 100644 index 831bf098b..000000000 --- a/src/Squot.package/CompiledCode.extension/instance/captureWithSquot..st +++ /dev/null @@ -1,8 +0,0 @@ -*Squot-trackable-capturing -captureWithSquot: aCapturer - | replacementOrSelf | - self flag: #deprecated. "Ask the mirror instead." - replacementOrSelf := self squotReplacementFor: aCapturer. - ^ aCapturer - capture: replacementOrSelf - as: replacementOrSelf squotShadowFactory \ No newline at end of file diff --git a/src/Squot.package/CompiledCode.extension/instance/squotCaptureSlotsIn.with..st b/src/Squot.package/CompiledCode.extension/instance/squotCaptureSlotsIn.with..st deleted file mode 100644 index 79fbd2323..000000000 --- a/src/Squot.package/CompiledCode.extension/instance/squotCaptureSlotsIn.with..st +++ /dev/null @@ -1,11 +0,0 @@ -*Squot-trackable-capturing -squotCaptureSlotsIn: anObjectShadow with: aCapturer - self flag: #deprecated. "Use SquotCompiledCodeMirror>>initializeSnapshot: anObjectShadow of: self with: aCapturer instead." - anObjectShadow addInstVarNamed: #header withValue: self header with: aCapturer. - anObjectShadow addInstVarNamed: #literals withValue: self literals with: aCapturer. - self initialPC to: self basicSize do: [:index | - anObjectShadow - addVariableSlotAt: index - withValue: (self basicAt: index) - with: aCapturer]. - self flag: 'TODO: capture source code if available?'. \ No newline at end of file diff --git a/src/Squot.package/CompiledCode.extension/instance/squotShadowFactory.st b/src/Squot.package/CompiledCode.extension/instance/squotShadowFactory.st deleted file mode 100644 index 4dffda1dd..000000000 --- a/src/Squot.package/CompiledCode.extension/instance/squotShadowFactory.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-trackable -squotShadowFactory - self flag: #deprecated. "Ask the mirror instead." - ^ SquotCompiledCodeShadow \ No newline at end of file diff --git a/src/Squot.package/CompiledCode.extension/methodProperties.json b/src/Squot.package/CompiledCode.extension/methodProperties.json deleted file mode 100644 index 1682ee28a..000000000 --- a/src/Squot.package/CompiledCode.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - "squotMirror" : "jr 4/7/2021 23:09" }, - "instance" : { - "captureWithSquot:" : "jr 1/10/2021 23:59", - "squotCaptureSlotsIn:with:" : "jr 1/16/2021 11:42", - "squotShadowFactory" : "jr 1/10/2021 23:58" } } diff --git a/src/Squot.package/CompiledCode.extension/properties.json b/src/Squot.package/CompiledCode.extension/properties.json deleted file mode 100644 index fb244a9d5..000000000 --- a/src/Squot.package/CompiledCode.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "CompiledCode" } diff --git a/src/Squot.package/Dictionary.extension/class/squotMirror.st b/src/Squot.package/Dictionary.extension/class/squotMirror.st deleted file mode 100644 index 5e8fab319..000000000 --- a/src/Squot.package/Dictionary.extension/class/squotMirror.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot -squotMirror - ^ SquotDictionaryMirror class: self \ No newline at end of file diff --git a/src/Squot.package/Dictionary.extension/instance/asSquotTrackedObjectMetadata.st b/src/Squot.package/Dictionary.extension/instance/asSquotTrackedObjectMetadata.st deleted file mode 100644 index d8b26a972..000000000 --- a/src/Squot.package/Dictionary.extension/instance/asSquotTrackedObjectMetadata.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot -asSquotTrackedObjectMetadata - ^ SquotTrackedObjectMetadata newFrom: self \ No newline at end of file diff --git a/src/Squot.package/Dictionary.extension/instance/squotShadowFactory.st b/src/Squot.package/Dictionary.extension/instance/squotShadowFactory.st deleted file mode 100644 index fe131c658..000000000 --- a/src/Squot.package/Dictionary.extension/instance/squotShadowFactory.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-trackable -squotShadowFactory - self flag: #deprecated. "Ask the mirror instead." - ^ SquotDictionaryShadow \ No newline at end of file diff --git a/src/Squot.package/Dictionary.extension/methodProperties.json b/src/Squot.package/Dictionary.extension/methodProperties.json deleted file mode 100644 index a1810db8d..000000000 --- a/src/Squot.package/Dictionary.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - "squotMirror" : "jr 4/3/2021 20:40" }, - "instance" : { - "asSquotTrackedObjectMetadata" : "jr 7/22/2017 17:31", - "squotShadowFactory" : "jr 1/10/2021 23:58" } } diff --git a/src/Squot.package/Dictionary.extension/properties.json b/src/Squot.package/Dictionary.extension/properties.json deleted file mode 100644 index cb1bf501d..000000000 --- a/src/Squot.package/Dictionary.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Dictionary" } diff --git a/src/Squot.package/DiffPatch.extension/instance/initializeSquotDiffNodes.with..st b/src/Squot.package/DiffPatch.extension/instance/initializeSquotDiffNodes.with..st deleted file mode 100644 index 6eb413e76..000000000 --- a/src/Squot.package/DiffPatch.extension/instance/initializeSquotDiffNodes.with..st +++ /dev/null @@ -1,7 +0,0 @@ -*Squot-Tools-Diffs -initializeSquotDiffNodes: aCollection with: aDiffNodesBuilder - snippets with: aCollection do: [:eachSnippet :eachDiffNode | - eachDiffNode - setTitle: 'diff chunk' - content: (SquotGenericDiffSnippet newFrom: eachSnippet) - children: #()] \ No newline at end of file diff --git a/src/Squot.package/DiffPatch.extension/instance/newSquotDiffNodes.st b/src/Squot.package/DiffPatch.extension/instance/newSquotDiffNodes.st deleted file mode 100644 index 96840274e..000000000 --- a/src/Squot.package/DiffPatch.extension/instance/newSquotDiffNodes.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools-Diffs -newSquotDiffNodes - ^ snippets collect: [:each | SquotDiffNode new] \ No newline at end of file diff --git a/src/Squot.package/DiffPatch.extension/instance/squotHasChanges.st b/src/Squot.package/DiffPatch.extension/instance/squotHasChanges.st deleted file mode 100644 index 16841420d..000000000 --- a/src/Squot.package/DiffPatch.extension/instance/squotHasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Diffs-testing -squotHasChanges - ^ chunks notEmpty \ No newline at end of file diff --git a/src/Squot.package/DiffPatch.extension/methodProperties.json b/src/Squot.package/DiffPatch.extension/methodProperties.json deleted file mode 100644 index 104d99221..000000000 --- a/src/Squot.package/DiffPatch.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "initializeSquotDiffNodes:with:" : "jr 11/1/2020 21:42", - "newSquotDiffNodes" : "jr 3/17/2018 14:14", - "squotHasChanges" : "jr 10/19/2020 21:20" } } diff --git a/src/Squot.package/DiffPatch.extension/properties.json b/src/Squot.package/DiffPatch.extension/properties.json deleted file mode 100644 index 16049f193..000000000 --- a/src/Squot.package/DiffPatch.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "DiffPatch" } diff --git a/src/Squot.package/DiskProxy.extension/class/squotMirror.st b/src/Squot.package/DiskProxy.extension/class/squotMirror.st deleted file mode 100644 index 8ab65d826..000000000 --- a/src/Squot.package/DiskProxy.extension/class/squotMirror.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot -squotMirror - ^ SquotDiskProxyMirror new \ No newline at end of file diff --git a/src/Squot.package/DiskProxy.extension/instance/squotShouldKeepIdentity.st b/src/Squot.package/DiskProxy.extension/instance/squotShouldKeepIdentity.st deleted file mode 100644 index 46c54bd1a..000000000 --- a/src/Squot.package/DiskProxy.extension/instance/squotShouldKeepIdentity.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot -squotShouldKeepIdentity - "I am, for the purposes of object capturing, a value object." - ^ false \ No newline at end of file diff --git a/src/Squot.package/DiskProxy.extension/methodProperties.json b/src/Squot.package/DiskProxy.extension/methodProperties.json deleted file mode 100644 index 37a7d30e5..000000000 --- a/src/Squot.package/DiskProxy.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "squotMirror" : "jr 4/8/2021 22:03" }, - "instance" : { - "squotShouldKeepIdentity" : "jr 7/18/2017 14:55" } } diff --git a/src/Squot.package/DiskProxy.extension/properties.json b/src/Squot.package/DiskProxy.extension/properties.json deleted file mode 100644 index 39247af6e..000000000 --- a/src/Squot.package/DiskProxy.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "DiskProxy" } diff --git a/src/Squot.package/FakeMCVersion.class/README.md b/src/Squot.package/FakeMCVersion.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/FakeMCVersion.class/instance/info..st b/src/Squot.package/FakeMCVersion.class/instance/info..st deleted file mode 100644 index 14337de1d..000000000 --- a/src/Squot.package/FakeMCVersion.class/instance/info..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -info: anObject - - info := anObject \ No newline at end of file diff --git a/src/Squot.package/FakeMCVersion.class/instance/info.st b/src/Squot.package/FakeMCVersion.class/instance/info.st deleted file mode 100644 index 7dfd8ec80..000000000 --- a/src/Squot.package/FakeMCVersion.class/instance/info.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -info - - ^ info \ No newline at end of file diff --git a/src/Squot.package/FakeMCVersion.class/methodProperties.json b/src/Squot.package/FakeMCVersion.class/methodProperties.json deleted file mode 100644 index bb7af4e86..000000000 --- a/src/Squot.package/FakeMCVersion.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "info" : "jr 2/11/2017 04:09", - "info:" : "jr 2/11/2017 04:09" } } diff --git a/src/Squot.package/FakeMCVersion.class/properties.json b/src/Squot.package/FakeMCVersion.class/properties.json deleted file mode 100644 index 386e43e6f..000000000 --- a/src/Squot.package/FakeMCVersion.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Monticello-Converter", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "info" ], - "name" : "FakeMCVersion", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/FakeMethod.class/README.md b/src/Squot.package/FakeMethod.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/FakeMethod.class/instance/className..st b/src/Squot.package/FakeMethod.class/instance/className..st deleted file mode 100644 index 52c0a76ad..000000000 --- a/src/Squot.package/FakeMethod.class/instance/className..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -className: anObject - - className := anObject \ No newline at end of file diff --git a/src/Squot.package/FakeMethod.class/instance/getSource.st b/src/Squot.package/FakeMethod.class/instance/getSource.st deleted file mode 100644 index e48baea8c..000000000 --- a/src/Squot.package/FakeMethod.class/instance/getSource.st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -getSource - ^ source \ No newline at end of file diff --git a/src/Squot.package/FakeMethod.class/instance/methodClass.st b/src/Squot.package/FakeMethod.class/instance/methodClass.st deleted file mode 100644 index 84d8d1f17..000000000 --- a/src/Squot.package/FakeMethod.class/instance/methodClass.st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -methodClass - ^ PseudoClass new name: className; yourself \ No newline at end of file diff --git a/src/Squot.package/FakeMethod.class/instance/methodClassName..st b/src/Squot.package/FakeMethod.class/instance/methodClassName..st deleted file mode 100644 index 5db7af205..000000000 --- a/src/Squot.package/FakeMethod.class/instance/methodClassName..st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -methodClassName: aString - className := aString \ No newline at end of file diff --git a/src/Squot.package/FakeMethod.class/instance/selector..st b/src/Squot.package/FakeMethod.class/instance/selector..st deleted file mode 100644 index 43848af61..000000000 --- a/src/Squot.package/FakeMethod.class/instance/selector..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -selector: anObject - - selector := anObject \ No newline at end of file diff --git a/src/Squot.package/FakeMethod.class/instance/selector.st b/src/Squot.package/FakeMethod.class/instance/selector.st deleted file mode 100644 index bf5601b89..000000000 --- a/src/Squot.package/FakeMethod.class/instance/selector.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -selector - - ^ selector \ No newline at end of file diff --git a/src/Squot.package/FakeMethod.class/instance/source..st b/src/Squot.package/FakeMethod.class/instance/source..st deleted file mode 100644 index 8d2e12d57..000000000 --- a/src/Squot.package/FakeMethod.class/instance/source..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -source: anObject - - source := anObject \ No newline at end of file diff --git a/src/Squot.package/FakeMethod.class/instance/source.st b/src/Squot.package/FakeMethod.class/instance/source.st deleted file mode 100644 index 70157175d..000000000 --- a/src/Squot.package/FakeMethod.class/instance/source.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -source - - ^ source \ No newline at end of file diff --git a/src/Squot.package/FakeMethod.class/methodProperties.json b/src/Squot.package/FakeMethod.class/methodProperties.json deleted file mode 100644 index 2ed1f2bf5..000000000 --- a/src/Squot.package/FakeMethod.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "className:" : "jr 2/4/2017 02:26", - "getSource" : "jr 2/4/2017 02:27", - "methodClass" : "jr 2/4/2017 02:26", - "methodClassName:" : "jr 2/4/2017 02:59", - "selector" : "jr 2/4/2017 02:26", - "selector:" : "jr 2/4/2017 02:26", - "source" : "jr 2/4/2017 02:26", - "source:" : "jr 2/4/2017 02:26" } } diff --git a/src/Squot.package/FakeMethod.class/properties.json b/src/Squot.package/FakeMethod.class/properties.json deleted file mode 100644 index ef1be0bcf..000000000 --- a/src/Squot.package/FakeMethod.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Tests-Monticello-Converter", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "className", - "selector", - "source" ], - "name" : "FakeMethod", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/GenericDiff.extension/class/squotDiffClass.st b/src/Squot.package/GenericDiff.extension/class/squotDiffClass.st deleted file mode 100644 index 121533a3e..000000000 --- a/src/Squot.package/GenericDiff.extension/class/squotDiffClass.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Diffs -squotDiffClass - ^ HuntMcilroyDiff \ No newline at end of file diff --git a/src/Squot.package/GenericDiff.extension/instance/addReferenceDiff..st b/src/Squot.package/GenericDiff.extension/instance/addReferenceDiff..st deleted file mode 100644 index 3be8bd3d2..000000000 --- a/src/Squot.package/GenericDiff.extension/instance/addReferenceDiff..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-diff-comparing -addReferenceDiff: aSquotReferenceDiff - "Ignore since I compute my differences myself." \ No newline at end of file diff --git a/src/Squot.package/GenericDiff.extension/instance/applyToShadowNamed.inGraph..st b/src/Squot.package/GenericDiff.extension/instance/applyToShadowNamed.inGraph..st deleted file mode 100644 index 8b9ad3353..000000000 --- a/src/Squot.package/GenericDiff.extension/instance/applyToShadowNamed.inGraph..st +++ /dev/null @@ -1,6 +0,0 @@ -*Squot-diff-patching -applyToShadowNamed: name inGraph: anObjectGraph - | patched | - patched := self squotApplyTo: (anObjectGraph shadowNamed: name). - anObjectGraph assign: name toShadow: patched undecorated. - ^ patched \ No newline at end of file diff --git a/src/Squot.package/GenericDiff.extension/instance/initializeFrom.to..st b/src/Squot.package/GenericDiff.extension/instance/initializeFrom.to..st deleted file mode 100644 index eab8dac95..000000000 --- a/src/Squot.package/GenericDiff.extension/instance/initializeFrom.to..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-diff-comparing -initializeFrom: aSquotBitsObjectShadow to: aSquotBitsObjectShadow2 - "Already done when constructed." \ No newline at end of file diff --git a/src/Squot.package/GenericDiff.extension/instance/initializeSquotDiffNodes.with..st b/src/Squot.package/GenericDiff.extension/instance/initializeSquotDiffNodes.with..st deleted file mode 100644 index 94bfe5aa1..000000000 --- a/src/Squot.package/GenericDiff.extension/instance/initializeSquotDiffNodes.with..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools-Diffs -initializeSquotDiffNodes: aCollection with: aDiffNodesBuilder - self diff initializeSquotDiffNodes: aCollection with: aDiffNodesBuilder. \ No newline at end of file diff --git a/src/Squot.package/GenericDiff.extension/instance/isAddition.st b/src/Squot.package/GenericDiff.extension/instance/isAddition.st deleted file mode 100644 index a1503ce71..000000000 --- a/src/Squot.package/GenericDiff.extension/instance/isAddition.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-diff-testing -isAddition - ^ false \ No newline at end of file diff --git a/src/Squot.package/GenericDiff.extension/instance/isModification.st b/src/Squot.package/GenericDiff.extension/instance/isModification.st deleted file mode 100644 index bf84ef985..000000000 --- a/src/Squot.package/GenericDiff.extension/instance/isModification.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-diff-testing -isModification - ^ true \ No newline at end of file diff --git a/src/Squot.package/GenericDiff.extension/instance/isRemoval.st b/src/Squot.package/GenericDiff.extension/instance/isRemoval.st deleted file mode 100644 index f2a7beeee..000000000 --- a/src/Squot.package/GenericDiff.extension/instance/isRemoval.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-diff-testing -isRemoval - ^ false \ No newline at end of file diff --git a/src/Squot.package/GenericDiff.extension/instance/newSquotDiffNodes.st b/src/Squot.package/GenericDiff.extension/instance/newSquotDiffNodes.st deleted file mode 100644 index 02020e118..000000000 --- a/src/Squot.package/GenericDiff.extension/instance/newSquotDiffNodes.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools-Diffs -newSquotDiffNodes - ^ self diff newSquotDiffNodes \ No newline at end of file diff --git a/src/Squot.package/GenericDiff.extension/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st b/src/Squot.package/GenericDiff.extension/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st deleted file mode 100644 index 237ed26c3..000000000 --- a/src/Squot.package/GenericDiff.extension/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-diff-patching -referenceDiffsWithDefaultOwners: leftAndRightShadows reflectedIn: aMirror do: aBlock - "If I know how to update the references of my target object, I should answer a collection of SquotReferenceDiffs that describe them. If I do not know my original and changed shadows, I shall use those from leftAndRightShadows to create those reference diffs. If I do not know how to reflect on the shadow of my target object, I shall use aMirror." - "This method converts object-focused diffs into reference-focused diffs." - ^ #() \ No newline at end of file diff --git a/src/Squot.package/GenericDiff.extension/instance/rightName.st b/src/Squot.package/GenericDiff.extension/instance/rightName.st deleted file mode 100644 index 412b0f525..000000000 --- a/src/Squot.package/GenericDiff.extension/instance/rightName.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-diff-patching -rightName - "Answer the name of the patched object or nil if it is not known." - ^ nil \ No newline at end of file diff --git a/src/Squot.package/GenericDiff.extension/instance/squotApplyTo..st b/src/Squot.package/GenericDiff.extension/instance/squotApplyTo..st deleted file mode 100644 index d559a5862..000000000 --- a/src/Squot.package/GenericDiff.extension/instance/squotApplyTo..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-diff-patching -squotApplyTo: sequenceShadow - ^ sequenceShadow applySequenceDiff: self diff \ No newline at end of file diff --git a/src/Squot.package/GenericDiff.extension/instance/squotApplyTo.with..st b/src/Squot.package/GenericDiff.extension/instance/squotApplyTo.with..st deleted file mode 100644 index 79d5abf6a..000000000 --- a/src/Squot.package/GenericDiff.extension/instance/squotApplyTo.with..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-diff-patching -squotApplyTo: sequenceShadow with: aPatcher - ^ sequenceShadow applySequenceDiff: self diff with: aPatcher \ No newline at end of file diff --git a/src/Squot.package/GenericDiff.extension/instance/squotApplyToLoaded..st b/src/Squot.package/GenericDiff.extension/instance/squotApplyToLoaded..st deleted file mode 100644 index bee7aa6d8..000000000 --- a/src/Squot.package/GenericDiff.extension/instance/squotApplyToLoaded..st +++ /dev/null @@ -1,10 +0,0 @@ -*Squot-diff-patching -squotApplyToLoaded: sequence - | patched | - patched := self diff applyTo: sequence. - self assert: patched size = sequence size - description: 'To change the size, object must be replaced by another'. - self flag: #todo. "The comment above only holds as long as mutable sequenceable collections, such as OrderedCollection, are not captured specially." - self assert: sequence = file1 description: 'Unfitting diff'. - sequence replaceFrom: 1 to: sequence size with: patched startingAt: 1. - ^ sequence \ No newline at end of file diff --git a/src/Squot.package/GenericDiff.extension/instance/squotApplyToLoaded.with..st b/src/Squot.package/GenericDiff.extension/instance/squotApplyToLoaded.with..st deleted file mode 100644 index 183a240fe..000000000 --- a/src/Squot.package/GenericDiff.extension/instance/squotApplyToLoaded.with..st +++ /dev/null @@ -1,8 +0,0 @@ -*Squot-diff-patching -squotApplyToLoaded: sequence with: aPatcher - | patched | - patched := self diff applyTo: sequence. - self assert: patched size = sequence size - description: 'To change the size, object must be replaced by another'. - sequence replaceFrom: 1 to: sequence size with: patched startingAt: 1. - ^ sequence \ No newline at end of file diff --git a/src/Squot.package/GenericDiff.extension/instance/squotChangeAsStringOrText.st b/src/Squot.package/GenericDiff.extension/instance/squotChangeAsStringOrText.st deleted file mode 100644 index a96b2aed7..000000000 --- a/src/Squot.package/GenericDiff.extension/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools-Diffs -squotChangeAsStringOrText - ^ TextDiffBuilder buildDisplayPatchFrom: file1 to: file2 \ No newline at end of file diff --git a/src/Squot.package/GenericDiff.extension/instance/squotHasChanges.st b/src/Squot.package/GenericDiff.extension/instance/squotHasChanges.st deleted file mode 100644 index ed1709974..000000000 --- a/src/Squot.package/GenericDiff.extension/instance/squotHasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-diff-testing -squotHasChanges - ^ (file1 hasEqualElements: file2) not \ No newline at end of file diff --git a/src/Squot.package/GenericDiff.extension/instance/update.reflectedIn.asMaterializedFrom.reflectedIn..st b/src/Squot.package/GenericDiff.extension/instance/update.reflectedIn.asMaterializedFrom.reflectedIn..st deleted file mode 100644 index a74d8c2bb..000000000 --- a/src/Squot.package/GenericDiff.extension/instance/update.reflectedIn.asMaterializedFrom.reflectedIn..st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-diff-patching -update: anObject reflectedIn: aMirror asMaterializedFrom: aShadow reflectedIn: aShadowMirror - "If I know how to mutate my target object _except_ for changing its outgoing references, I shall do so here. Most diffs will only update references, which must not be done in this method!" - ^ self squotApplyToLoaded: anObject \ No newline at end of file diff --git a/src/Squot.package/GenericDiff.extension/methodProperties.json b/src/Squot.package/GenericDiff.extension/methodProperties.json deleted file mode 100644 index 6f04d5319..000000000 --- a/src/Squot.package/GenericDiff.extension/methodProperties.json +++ /dev/null @@ -1,21 +0,0 @@ -{ - "class" : { - "squotDiffClass" : "jr 6/15/2017 17:49" }, - "instance" : { - "addReferenceDiff:" : "jr 7/25/2021 17:49", - "applyToShadowNamed:inGraph:" : "jr 7/4/2021 17:50", - "initializeFrom:to:" : "jr 7/30/2021 19:28", - "initializeSquotDiffNodes:with:" : "jr 3/17/2018 14:09", - "isAddition" : "jr 6/26/2021 22:33", - "isModification" : "jr 6/26/2021 22:33", - "isRemoval" : "jr 6/26/2021 22:33", - "newSquotDiffNodes" : "jr 3/17/2018 14:06", - "referenceDiffsWithDefaultOwners:reflectedIn:do:" : "jr 7/4/2021 20:17", - "rightName" : "jr 7/4/2021 20:16", - "squotApplyTo:" : "jr 9/24/2019 00:24", - "squotApplyTo:with:" : "jr 6/18/2017 12:34", - "squotApplyToLoaded:" : "jr 6/16/2021 23:06", - "squotApplyToLoaded:with:" : "jr 9/18/2019 21:51", - "squotChangeAsStringOrText" : "jr 6/12/2017 17:49", - "squotHasChanges" : "jr 12/23/2019 16:53", - "update:reflectedIn:asMaterializedFrom:reflectedIn:" : "jr 7/4/2021 20:17" } } diff --git a/src/Squot.package/GenericDiff.extension/properties.json b/src/Squot.package/GenericDiff.extension/properties.json deleted file mode 100644 index c5313230d..000000000 --- a/src/Squot.package/GenericDiff.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GenericDiff" } diff --git a/src/Squot.package/HashedCollection.extension/class/squotMirror.st b/src/Squot.package/HashedCollection.extension/class/squotMirror.st deleted file mode 100644 index a9e28d6fe..000000000 --- a/src/Squot.package/HashedCollection.extension/class/squotMirror.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot -squotMirror - ^ SquotHashedCollectionMirror class: self \ No newline at end of file diff --git a/src/Squot.package/HashedCollection.extension/class/squotRelevantInstVars.st b/src/Squot.package/HashedCollection.extension/class/squotRelevantInstVars.st deleted file mode 100644 index 5d836cd3e..000000000 --- a/src/Squot.package/HashedCollection.extension/class/squotRelevantInstVars.st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-trackable-capturing -squotRelevantInstVars - "Exclude instance variables of HashedCollection. The elements are captured in extra slots." - self == HashedCollection ifTrue: [^ superclass squotRelevantInstVars]. - ^ super squotRelevantInstVars \ No newline at end of file diff --git a/src/Squot.package/HashedCollection.extension/instance/squotShadowFactory.st b/src/Squot.package/HashedCollection.extension/instance/squotShadowFactory.st deleted file mode 100644 index 3172fb3fa..000000000 --- a/src/Squot.package/HashedCollection.extension/instance/squotShadowFactory.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-trackable-capturing -squotShadowFactory - self flag: #deprecated. "Ask the mirror instead." - ^ SquotHashedCollectionShadow \ No newline at end of file diff --git a/src/Squot.package/HashedCollection.extension/methodProperties.json b/src/Squot.package/HashedCollection.extension/methodProperties.json deleted file mode 100644 index 9374e2ccc..000000000 --- a/src/Squot.package/HashedCollection.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - "squotMirror" : "jr 4/7/2021 22:18", - "squotRelevantInstVars" : "jr 7/16/2017 13:04" }, - "instance" : { - "squotShadowFactory" : "jr 1/10/2021 23:58" } } diff --git a/src/Squot.package/HashedCollection.extension/properties.json b/src/Squot.package/HashedCollection.extension/properties.json deleted file mode 100644 index e6f82c421..000000000 --- a/src/Squot.package/HashedCollection.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "HashedCollection" } diff --git a/src/Squot.package/LookupKey.extension/class/squotMirror.st b/src/Squot.package/LookupKey.extension/class/squotMirror.st deleted file mode 100644 index 6662bc312..000000000 --- a/src/Squot.package/LookupKey.extension/class/squotMirror.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot -squotMirror - ^ SquotLookupKeyMirror class: self \ No newline at end of file diff --git a/src/Squot.package/LookupKey.extension/methodProperties.json b/src/Squot.package/LookupKey.extension/methodProperties.json deleted file mode 100644 index 7c8d4ff73..000000000 --- a/src/Squot.package/LookupKey.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "squotMirror" : "jr 4/17/2021 18:02" }, - "instance" : { - } } diff --git a/src/Squot.package/LookupKey.extension/properties.json b/src/Squot.package/LookupKey.extension/properties.json deleted file mode 100644 index 46254e1e9..000000000 --- a/src/Squot.package/LookupKey.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "LookupKey" } diff --git a/src/Squot.package/MCClassDefinition.extension/instance/actualClassInSquotWorkingCopy..st b/src/Squot.package/MCClassDefinition.extension/instance/actualClassInSquotWorkingCopy..st deleted file mode 100644 index 53d725fe2..000000000 --- a/src/Squot.package/MCClassDefinition.extension/instance/actualClassInSquotWorkingCopy..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -actualClassInSquotWorkingCopy: aSquotWorkingCopyArtifact - ^ self actualClassIn: (PackageInfo squotEnvironmentOf: aSquotWorkingCopyArtifact) \ No newline at end of file diff --git a/src/Squot.package/MCClassDefinition.extension/instance/browse.st b/src/Squot.package/MCClassDefinition.extension/instance/browse.st deleted file mode 100644 index 9d089e2ff..000000000 --- a/src/Squot.package/MCClassDefinition.extension/instance/browse.st +++ /dev/null @@ -1,6 +0,0 @@ -*Squot-Tools -browse - ^ (MCSnapshotBrowser forSnapshot: (MCSnapshot fromDefinitions: {self})) - categorySelection: 1; - classSelection: 1; - showLabelled: 'Snapshot of ', self summary, ' definition' \ No newline at end of file diff --git a/src/Squot.package/MCClassDefinition.extension/instance/browseFromSquotWorkingCopyArtifact..st b/src/Squot.package/MCClassDefinition.extension/instance/browseFromSquotWorkingCopyArtifact..st deleted file mode 100644 index d9a5cabc7..000000000 --- a/src/Squot.package/MCClassDefinition.extension/instance/browseFromSquotWorkingCopyArtifact..st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-Tools -browseFromSquotWorkingCopyArtifact: aSquotWorkingCopyArtifact - aSquotWorkingCopyArtifact isLoaded ifFalse: [^ self browse]. - ^ (self actualClassIn: (PackageInfo squotEnvironmentOf: aSquotWorkingCopyArtifact)) - ifNotNil: [:class | class browse] \ No newline at end of file diff --git a/src/Squot.package/MCClassDefinition.extension/instance/squotAddToChangeSet..st b/src/Squot.package/MCClassDefinition.extension/instance/squotAddToChangeSet..st deleted file mode 100644 index 92838534c..000000000 --- a/src/Squot.package/MCClassDefinition.extension/instance/squotAddToChangeSet..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotAddToChangeSet: aChangeSet - aChangeSet changeClass: self actualClass from: self actualClass. \ No newline at end of file diff --git a/src/Squot.package/MCClassDefinition.extension/instance/squotBelongsToClass.st b/src/Squot.package/MCClassDefinition.extension/instance/squotBelongsToClass.st deleted file mode 100644 index 685401329..000000000 --- a/src/Squot.package/MCClassDefinition.extension/instance/squotBelongsToClass.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotBelongsToClass - ^ true \ No newline at end of file diff --git a/src/Squot.package/MCClassDefinition.extension/instance/squotGroup.st b/src/Squot.package/MCClassDefinition.extension/instance/squotGroup.st deleted file mode 100644 index 27a45d153..000000000 --- a/src/Squot.package/MCClassDefinition.extension/instance/squotGroup.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -squotGroup - "Group class definition with the instance-side methods (more common case)." - ^ self className \ No newline at end of file diff --git a/src/Squot.package/MCClassDefinition.extension/instance/squotIsInChangeSet..st b/src/Squot.package/MCClassDefinition.extension/instance/squotIsInChangeSet..st deleted file mode 100644 index 9139cfc88..000000000 --- a/src/Squot.package/MCClassDefinition.extension/instance/squotIsInChangeSet..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotIsInChangeSet: aChangeSet - ^ (aChangeSet classChangeAt: self className) includes: #change \ No newline at end of file diff --git a/src/Squot.package/MCClassDefinition.extension/instance/squotRemoveFromChangeSet..st b/src/Squot.package/MCClassDefinition.extension/instance/squotRemoveFromChangeSet..st deleted file mode 100644 index 845e0776e..000000000 --- a/src/Squot.package/MCClassDefinition.extension/instance/squotRemoveFromChangeSet..st +++ /dev/null @@ -1,8 +0,0 @@ -*Squot-Tools -squotRemoveFromChangeSet: aChangeSet - "Remove the class definition change, but preserve all selectors recorded." - | class selectors | - selectors := aChangeSet selectorsInClass: self className. - aChangeSet removeClassChanges: self className. - class := self actualClass. - selectors do: [:each | aChangeSet adoptSelector: each forClass: class] \ No newline at end of file diff --git a/src/Squot.package/MCClassDefinition.extension/instance/squotShouldGroupByClass.st b/src/Squot.package/MCClassDefinition.extension/instance/squotShouldGroupByClass.st deleted file mode 100644 index e13310a4e..000000000 --- a/src/Squot.package/MCClassDefinition.extension/instance/squotShouldGroupByClass.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -squotShouldGroupByClass - "Class definitions belong to the class that they define." - ^ true \ No newline at end of file diff --git a/src/Squot.package/MCClassDefinition.extension/methodProperties.json b/src/Squot.package/MCClassDefinition.extension/methodProperties.json index ff3d70853..94ea1fcfe 100644 --- a/src/Squot.package/MCClassDefinition.extension/methodProperties.json +++ b/src/Squot.package/MCClassDefinition.extension/methodProperties.json @@ -2,17 +2,8 @@ "class" : { }, "instance" : { - "actualClassInSquotWorkingCopy:" : "jr 5/17/2020 21:43", - "browse" : "jr 6/6/2020 03:05", - "browseFromSquotWorkingCopyArtifact:" : "jr 7/9/2022 11:12", - "squotAddToChangeSet:" : "jr 4/14/2020 15:34", - "squotBelongsToClass" : "jr 9/8/2020 22:00", "squotChangePath" : "mad 9/3/2023 17:55", "squotCopyWithSources:notifying:ifFail:" : "mad 10/24/2023 19:36", - "squotGroup" : "jr 9/8/2020 20:56", - "squotIsInChangeSet:" : "jr 4/14/2020 16:32", - "squotRemoveFromChangeSet:" : "jr 4/14/2020 16:26", - "squotShouldGroupByClass" : "jr 8/25/2020 18:26", "squotSources" : "mad 9/12/2023 15:08", "squotSourcesHelp" : "mad 9/13/2023 13:21", "squotSourcesSize" : "mad 9/12/2023 16:24", diff --git a/src/Squot.package/MCClassTraitDefinition.extension/instance/actualClass.st b/src/Squot.package/MCClassTraitDefinition.extension/instance/actualClass.st deleted file mode 100644 index a905c93c8..000000000 --- a/src/Squot.package/MCClassTraitDefinition.extension/instance/actualClass.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -actualClass - ^ self actualClassIn: Environment current \ No newline at end of file diff --git a/src/Squot.package/MCClassTraitDefinition.extension/instance/actualClassIn..st b/src/Squot.package/MCClassTraitDefinition.extension/instance/actualClassIn..st deleted file mode 100644 index f6adffd86..000000000 --- a/src/Squot.package/MCClassTraitDefinition.extension/instance/actualClassIn..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -actualClassIn: anEnvironment - ^ (anEnvironment classNamed: self baseTrait) ifNotNil: [:trait | trait classTrait] \ No newline at end of file diff --git a/src/Squot.package/MCClassTraitDefinition.extension/instance/actualClassInSquotWorkingCopy..st b/src/Squot.package/MCClassTraitDefinition.extension/instance/actualClassInSquotWorkingCopy..st deleted file mode 100644 index 5b9aea447..000000000 --- a/src/Squot.package/MCClassTraitDefinition.extension/instance/actualClassInSquotWorkingCopy..st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -actualClassInSquotWorkingCopy: aSquotWorkingCopyArtifact - ^ (PackageInfo squotEnvironmentOf: aSquotWorkingCopyArtifact) - classOrTraitNamed: self baseTrait \ No newline at end of file diff --git a/src/Squot.package/MCClassTraitDefinition.extension/instance/browse.st b/src/Squot.package/MCClassTraitDefinition.extension/instance/browse.st deleted file mode 100644 index 9d089e2ff..000000000 --- a/src/Squot.package/MCClassTraitDefinition.extension/instance/browse.st +++ /dev/null @@ -1,6 +0,0 @@ -*Squot-Tools -browse - ^ (MCSnapshotBrowser forSnapshot: (MCSnapshot fromDefinitions: {self})) - categorySelection: 1; - classSelection: 1; - showLabelled: 'Snapshot of ', self summary, ' definition' \ No newline at end of file diff --git a/src/Squot.package/MCClassTraitDefinition.extension/instance/browseFromSquotWorkingCopyArtifact..st b/src/Squot.package/MCClassTraitDefinition.extension/instance/browseFromSquotWorkingCopyArtifact..st deleted file mode 100644 index eb2907f23..000000000 --- a/src/Squot.package/MCClassTraitDefinition.extension/instance/browseFromSquotWorkingCopyArtifact..st +++ /dev/null @@ -1,7 +0,0 @@ -*Squot-Tools -browseFromSquotWorkingCopyArtifact: aSquotWorkingCopyArtifact - | trait | - aSquotWorkingCopyArtifact isLoaded ifFalse: [^ self browse]. - trait := (PackageInfo squotEnvironmentOf: aSquotWorkingCopyArtifact) - classOrTraitNamed: self baseTrait. - ^ trait ifNotNil: [trait theMetaClass browse] \ No newline at end of file diff --git a/src/Squot.package/MCClassTraitDefinition.extension/instance/squotAddToChangeSet..st b/src/Squot.package/MCClassTraitDefinition.extension/instance/squotAddToChangeSet..st deleted file mode 100644 index 92838534c..000000000 --- a/src/Squot.package/MCClassTraitDefinition.extension/instance/squotAddToChangeSet..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotAddToChangeSet: aChangeSet - aChangeSet changeClass: self actualClass from: self actualClass. \ No newline at end of file diff --git a/src/Squot.package/MCClassTraitDefinition.extension/instance/squotBelongsToClass.st b/src/Squot.package/MCClassTraitDefinition.extension/instance/squotBelongsToClass.st deleted file mode 100644 index 685401329..000000000 --- a/src/Squot.package/MCClassTraitDefinition.extension/instance/squotBelongsToClass.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotBelongsToClass - ^ true \ No newline at end of file diff --git a/src/Squot.package/MCClassTraitDefinition.extension/instance/squotGroup.st b/src/Squot.package/MCClassTraitDefinition.extension/instance/squotGroup.st deleted file mode 100644 index 3cf707713..000000000 --- a/src/Squot.package/MCClassTraitDefinition.extension/instance/squotGroup.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -squotGroup - "Group with class trait methods." - ^ self baseTrait, ' classSide' \ No newline at end of file diff --git a/src/Squot.package/MCClassTraitDefinition.extension/instance/squotIsInChangeSet..st b/src/Squot.package/MCClassTraitDefinition.extension/instance/squotIsInChangeSet..st deleted file mode 100644 index 45833cccc..000000000 --- a/src/Squot.package/MCClassTraitDefinition.extension/instance/squotIsInChangeSet..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotIsInChangeSet: aChangeSet - ^ (aChangeSet classChangeAt: self squotName) includes: #change \ No newline at end of file diff --git a/src/Squot.package/MCClassTraitDefinition.extension/instance/squotName.st b/src/Squot.package/MCClassTraitDefinition.extension/instance/squotName.st deleted file mode 100644 index ccc66469a..000000000 --- a/src/Squot.package/MCClassTraitDefinition.extension/instance/squotName.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotName - ^ self baseTrait, ' classTrait' \ No newline at end of file diff --git a/src/Squot.package/MCClassTraitDefinition.extension/instance/squotRemoveFromChangeSet..st b/src/Squot.package/MCClassTraitDefinition.extension/instance/squotRemoveFromChangeSet..st deleted file mode 100644 index 0b55976ef..000000000 --- a/src/Squot.package/MCClassTraitDefinition.extension/instance/squotRemoveFromChangeSet..st +++ /dev/null @@ -1,8 +0,0 @@ -*Squot-Tools -squotRemoveFromChangeSet: aChangeSet - "Remove the class definition change, but preserve all selectors recorded." - | class selectors | - selectors := aChangeSet selectorsInClass: self squotName. - aChangeSet removeClassChanges: self squotName. - class := self actualClass. - selectors do: [:each | aChangeSet adoptSelector: each forClass: class] \ No newline at end of file diff --git a/src/Squot.package/MCClassTraitDefinition.extension/instance/squotShouldGroupByClass.st b/src/Squot.package/MCClassTraitDefinition.extension/instance/squotShouldGroupByClass.st deleted file mode 100644 index 7aa15036d..000000000 --- a/src/Squot.package/MCClassTraitDefinition.extension/instance/squotShouldGroupByClass.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -squotShouldGroupByClass - "Class trait definitions belong to the base Trait." - ^ true \ No newline at end of file diff --git a/src/Squot.package/MCClassTraitDefinition.extension/methodProperties.json b/src/Squot.package/MCClassTraitDefinition.extension/methodProperties.json index 0da89e680..a62850732 100644 --- a/src/Squot.package/MCClassTraitDefinition.extension/methodProperties.json +++ b/src/Squot.package/MCClassTraitDefinition.extension/methodProperties.json @@ -2,19 +2,7 @@ "class" : { }, "instance" : { - "actualClass" : "jr 9/8/2020 22:58", - "actualClassIn:" : "jr 9/8/2020 22:57", - "actualClassInSquotWorkingCopy:" : "jr 5/17/2020 21:47", - "browse" : "jr 6/6/2020 03:03", - "browseFromSquotWorkingCopyArtifact:" : "jr 7/9/2022 11:12", - "squotAddToChangeSet:" : "jr 9/8/2020 23:02", - "squotBelongsToClass" : "jr 9/8/2020 22:00", "squotChangePath" : "mad 9/9/2023 12:58", "squotCopyWithSources:notifying:ifFail:" : "mad 10/24/2023 19:36", - "squotGroup" : "jr 9/8/2020 21:00", - "squotIsInChangeSet:" : "jr 9/8/2020 23:05", - "squotName" : "jr 9/8/2020 23:05", - "squotRemoveFromChangeSet:" : "jr 9/8/2020 23:05", - "squotShouldGroupByClass" : "jr 8/25/2020 18:26", "squotSourcesHelp" : "mad 9/13/2023 13:23", "squotSourcesStylerClasses" : "mad 9/13/2023 13:40" } } diff --git a/src/Squot.package/MCConflict.extension/instance/actualClassInSquotWorkingCopy..st b/src/Squot.package/MCConflict.extension/instance/actualClassInSquotWorkingCopy..st deleted file mode 100644 index c9662bc4f..000000000 --- a/src/Squot.package/MCConflict.extension/instance/actualClassInSquotWorkingCopy..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -actualClassInSquotWorkingCopy: aSquotWorkingCopyArtifact - ^ self definition actualClassInSquotWorkingCopy: aSquotWorkingCopyArtifact \ No newline at end of file diff --git a/src/Squot.package/MCConflict.extension/instance/browseFromSquotWorkingCopyArtifact..st b/src/Squot.package/MCConflict.extension/instance/browseFromSquotWorkingCopyArtifact..st deleted file mode 100644 index 8b7b5db12..000000000 --- a/src/Squot.package/MCConflict.extension/instance/browseFromSquotWorkingCopyArtifact..st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -browseFromSquotWorkingCopyArtifact: aSquotWorkingCopyArtifact - aSquotWorkingCopyArtifact isLoaded ifFalse: [^ self browse]. - ^ self definition browseFromSquotWorkingCopyArtifact: aSquotWorkingCopyArtifact \ No newline at end of file diff --git a/src/Squot.package/MCConflict.extension/instance/incoming.st b/src/Squot.package/MCConflict.extension/instance/incoming.st deleted file mode 100644 index bf7fa799b..000000000 --- a/src/Squot.package/MCConflict.extension/instance/incoming.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -incoming - ^ self remoteDefinition \ No newline at end of file diff --git a/src/Squot.package/MCConflict.extension/instance/squotChangeAsStringOrText.st b/src/Squot.package/MCConflict.extension/instance/squotChangeAsStringOrText.st deleted file mode 100644 index b75bb6933..000000000 --- a/src/Squot.package/MCConflict.extension/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotChangeAsStringOrText - ^ self localChosen ifTrue: [''] ifFalse: [self operation squotChangeAsStringOrText] \ No newline at end of file diff --git a/src/Squot.package/MCConflict.extension/instance/squotToolsDiffNodeContent.st b/src/Squot.package/MCConflict.extension/instance/squotToolsDiffNodeContent.st deleted file mode 100644 index 4adbb172a..000000000 --- a/src/Squot.package/MCConflict.extension/instance/squotToolsDiffNodeContent.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -squotToolsDiffNodeContent - "Objects of this type are used as the content of SquotDiffNode. Marker method." - \ No newline at end of file diff --git a/src/Squot.package/MCConflict.extension/methodProperties.json b/src/Squot.package/MCConflict.extension/methodProperties.json deleted file mode 100644 index 3880ea606..000000000 --- a/src/Squot.package/MCConflict.extension/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "actualClassInSquotWorkingCopy:" : "jr 5/17/2020 21:50", - "browseFromSquotWorkingCopyArtifact:" : "jr 7/9/2022 11:12", - "incoming" : "jr 6/6/2020 02:32", - "squotChangeAsStringOrText" : "jr 5/17/2020 22:31", - "squotToolsDiffNodeContent" : "jr 11/3/2019 12:09" } } diff --git a/src/Squot.package/MCConflict.extension/properties.json b/src/Squot.package/MCConflict.extension/properties.json deleted file mode 100644 index 944df5b24..000000000 --- a/src/Squot.package/MCConflict.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "MCConflict" } diff --git a/src/Squot.package/MCDefinition.extension/instance/actualClassInSquotWorkingCopy..st b/src/Squot.package/MCDefinition.extension/instance/actualClassInSquotWorkingCopy..st deleted file mode 100644 index 70989d3f0..000000000 --- a/src/Squot.package/MCDefinition.extension/instance/actualClassInSquotWorkingCopy..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -actualClassInSquotWorkingCopy: aSquotWorkingCopyArtifact - ^ nil \ No newline at end of file diff --git a/src/Squot.package/MCDefinition.extension/instance/browse.st b/src/Squot.package/MCDefinition.extension/instance/browse.st deleted file mode 100644 index 7f2abf1ff..000000000 --- a/src/Squot.package/MCDefinition.extension/instance/browse.st +++ /dev/null @@ -1,9 +0,0 @@ -*Squot-Tools -browse - ^ (MCSnapshotBrowser forSnapshot: (MCSnapshot fromDefinitions: {self})) - "Subclasses might want to do one or more of the following: - categorySelection: 1; - classSelection: 1; - protocolSelection: 1; - methodSelection: 1;" - showLabelled: 'Snapshot of ', self summary \ No newline at end of file diff --git a/src/Squot.package/MCDefinition.extension/instance/browseFromSquotWorkingCopyArtifact..st b/src/Squot.package/MCDefinition.extension/instance/browseFromSquotWorkingCopyArtifact..st deleted file mode 100644 index 2dcc49986..000000000 --- a/src/Squot.package/MCDefinition.extension/instance/browseFromSquotWorkingCopyArtifact..st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -browseFromSquotWorkingCopyArtifact: aSquotWorkingCopyArtifact - "Browse the working copy of the definition, if available." - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/MCDefinition.extension/instance/squotAddToChangeSet..st b/src/Squot.package/MCDefinition.extension/instance/squotAddToChangeSet..st deleted file mode 100644 index 480ca2434..000000000 --- a/src/Squot.package/MCDefinition.extension/instance/squotAddToChangeSet..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotAddToChangeSet: aChangeSet - self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/MCDefinition.extension/instance/squotBelongsToClass.st b/src/Squot.package/MCDefinition.extension/instance/squotBelongsToClass.st deleted file mode 100644 index 1a53119c6..000000000 --- a/src/Squot.package/MCDefinition.extension/instance/squotBelongsToClass.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotBelongsToClass - ^ false \ No newline at end of file diff --git a/src/Squot.package/MCDefinition.extension/instance/squotDiffNodeSummary.st b/src/Squot.package/MCDefinition.extension/instance/squotDiffNodeSummary.st deleted file mode 100644 index 8223a3221..000000000 --- a/src/Squot.package/MCDefinition.extension/instance/squotDiffNodeSummary.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotDiffNodeSummary - ^ self summary \ No newline at end of file diff --git a/src/Squot.package/MCDefinition.extension/instance/squotGroup.st b/src/Squot.package/MCDefinition.extension/instance/squotGroup.st deleted file mode 100644 index f4e84b54f..000000000 --- a/src/Squot.package/MCDefinition.extension/instance/squotGroup.st +++ /dev/null @@ -1,6 +0,0 @@ -*Squot-Tools -squotGroup - "Answer a string that will be the title of the parent node of a change to this definition in a diff tree." - ^ ('MC*Definition' match: self class name) - ifTrue: [self class name copyFrom: 3 to: self class name size - 'Definition' size] - ifFalse: [self subclassResponsibility] \ No newline at end of file diff --git a/src/Squot.package/MCDefinition.extension/instance/squotIsInChangeSet..st b/src/Squot.package/MCDefinition.extension/instance/squotIsInChangeSet..st deleted file mode 100644 index c5c03bc06..000000000 --- a/src/Squot.package/MCDefinition.extension/instance/squotIsInChangeSet..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotIsInChangeSet: aChangeSet - self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/MCDefinition.extension/instance/squotRemoveFromChangeSet..st b/src/Squot.package/MCDefinition.extension/instance/squotRemoveFromChangeSet..st deleted file mode 100644 index bed00b7cf..000000000 --- a/src/Squot.package/MCDefinition.extension/instance/squotRemoveFromChangeSet..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotRemoveFromChangeSet: aChangeSet - self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/MCDefinition.extension/methodProperties.json b/src/Squot.package/MCDefinition.extension/methodProperties.json index 700475537..20a9622d2 100644 --- a/src/Squot.package/MCDefinition.extension/methodProperties.json +++ b/src/Squot.package/MCDefinition.extension/methodProperties.json @@ -2,18 +2,9 @@ "class" : { }, "instance" : { - "actualClassInSquotWorkingCopy:" : "jr 5/17/2020 21:46", - "browse" : "jr 6/6/2020 03:05", - "browseFromSquotWorkingCopyArtifact:" : "jr 12/22/2019 20:12", "squotAboutToStyle:requestor:at:" : "mad 9/12/2023 16:52", - "squotAddToChangeSet:" : "jr 4/14/2020 14:42", - "squotBelongsToClass" : "jr 9/8/2020 22:00", "squotChangePath" : "mad 9/2/2023 19:12", "squotCopyWithSources:notifying:ifFail:" : "mad 10/24/2023 19:36", - "squotDiffNodeSummary" : "jr 4/17/2017 01:42", - "squotGroup" : "jr 9/8/2020 22:08", - "squotIsInChangeSet:" : "jr 4/14/2020 14:22", - "squotRemoveFromChangeSet:" : "jr 4/14/2020 14:42", "squotSources" : "mad 9/12/2023 15:06", "squotSourcesHelp" : "mad 9/13/2023 13:22", "squotSourcesIsTimeStamp" : "mad 11/3/2023 15:31", diff --git a/src/Squot.package/MCMethodDefinition.extension/instance/actualClassInSquotWorkingCopy..st b/src/Squot.package/MCMethodDefinition.extension/instance/actualClassInSquotWorkingCopy..st deleted file mode 100644 index 53d725fe2..000000000 --- a/src/Squot.package/MCMethodDefinition.extension/instance/actualClassInSquotWorkingCopy..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -actualClassInSquotWorkingCopy: aSquotWorkingCopyArtifact - ^ self actualClassIn: (PackageInfo squotEnvironmentOf: aSquotWorkingCopyArtifact) \ No newline at end of file diff --git a/src/Squot.package/MCMethodDefinition.extension/instance/browse.st b/src/Squot.package/MCMethodDefinition.extension/instance/browse.st deleted file mode 100644 index da23d064d..000000000 --- a/src/Squot.package/MCMethodDefinition.extension/instance/browse.st +++ /dev/null @@ -1,13 +0,0 @@ -*Squot-Tools -browse - | browser | - browser := MCSnapshotBrowser forSnapshot: (MCSnapshot fromDefinitions: {self}). - browser - categorySelection: 1; - classSelection: 1. - classIsMeta ifTrue: [browser switchBeClass]. - browser - protocolSelection: 1; - methodSelection: 1; - showLabelled: 'Snapshot of ', self summary. - ^ browser \ No newline at end of file diff --git a/src/Squot.package/MCMethodDefinition.extension/instance/browseFromSquotWorkingCopyArtifact..st b/src/Squot.package/MCMethodDefinition.extension/instance/browseFromSquotWorkingCopyArtifact..st deleted file mode 100644 index 7059537d9..000000000 --- a/src/Squot.package/MCMethodDefinition.extension/instance/browseFromSquotWorkingCopyArtifact..st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-Tools -browseFromSquotWorkingCopyArtifact: aSquotWorkingCopyArtifact - aSquotWorkingCopyArtifact isLoaded ifFalse: [^ self browse]. - ^ (self actualClassIn: (PackageInfo squotEnvironmentOf: aSquotWorkingCopyArtifact)) - ifNotNil: [:class | ToolSet browse: class selector: selector] \ No newline at end of file diff --git a/src/Squot.package/MCMethodDefinition.extension/instance/squotAddToChangeSet..st b/src/Squot.package/MCMethodDefinition.extension/instance/squotAddToChangeSet..st deleted file mode 100644 index 8292455fd..000000000 --- a/src/Squot.package/MCMethodDefinition.extension/instance/squotAddToChangeSet..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotAddToChangeSet: aChangeSet - aChangeSet adoptSelector: self selector forClass: self actualClass. \ No newline at end of file diff --git a/src/Squot.package/MCMethodDefinition.extension/instance/squotBelongsToClass.st b/src/Squot.package/MCMethodDefinition.extension/instance/squotBelongsToClass.st deleted file mode 100644 index 685401329..000000000 --- a/src/Squot.package/MCMethodDefinition.extension/instance/squotBelongsToClass.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotBelongsToClass - ^ true \ No newline at end of file diff --git a/src/Squot.package/MCMethodDefinition.extension/instance/squotDiffNodeSummary.st b/src/Squot.package/MCMethodDefinition.extension/instance/squotDiffNodeSummary.st deleted file mode 100644 index e99920997..000000000 --- a/src/Squot.package/MCMethodDefinition.extension/instance/squotDiffNodeSummary.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotDiffNodeSummary - ^ self selector \ No newline at end of file diff --git a/src/Squot.package/MCMethodDefinition.extension/instance/squotGroup.st b/src/Squot.package/MCMethodDefinition.extension/instance/squotGroup.st deleted file mode 100644 index 706065fda..000000000 --- a/src/Squot.package/MCMethodDefinition.extension/instance/squotGroup.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -squotGroup - "Separate instance methods from class methods." - ^ self fullClassName \ No newline at end of file diff --git a/src/Squot.package/MCMethodDefinition.extension/instance/squotIsInChangeSet..st b/src/Squot.package/MCMethodDefinition.extension/instance/squotIsInChangeSet..st deleted file mode 100644 index 0edbddf0d..000000000 --- a/src/Squot.package/MCMethodDefinition.extension/instance/squotIsInChangeSet..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotIsInChangeSet: aChangeSet - ^ (aChangeSet selectorsInClass: (SquotIgnoredSmalltalkCode symbolInChangeSet: self fullClassName)) includes: self selector \ No newline at end of file diff --git a/src/Squot.package/MCMethodDefinition.extension/instance/squotRemoveFromChangeSet..st b/src/Squot.package/MCMethodDefinition.extension/instance/squotRemoveFromChangeSet..st deleted file mode 100644 index 5568055af..000000000 --- a/src/Squot.package/MCMethodDefinition.extension/instance/squotRemoveFromChangeSet..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotRemoveFromChangeSet: aChangeSet - aChangeSet removeSelectorChanges: self selector class: self actualClass. \ No newline at end of file diff --git a/src/Squot.package/MCMethodDefinition.extension/instance/squotShouldGroupByClass.st b/src/Squot.package/MCMethodDefinition.extension/instance/squotShouldGroupByClass.st deleted file mode 100644 index c01549049..000000000 --- a/src/Squot.package/MCMethodDefinition.extension/instance/squotShouldGroupByClass.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -squotShouldGroupByClass - "Method definitions belong to the class of the method." - ^ true \ No newline at end of file diff --git a/src/Squot.package/MCMethodDefinition.extension/methodProperties.json b/src/Squot.package/MCMethodDefinition.extension/methodProperties.json index 7be8669cb..61cd15bf9 100644 --- a/src/Squot.package/MCMethodDefinition.extension/methodProperties.json +++ b/src/Squot.package/MCMethodDefinition.extension/methodProperties.json @@ -2,19 +2,9 @@ "class" : { }, "instance" : { - "actualClassInSquotWorkingCopy:" : "jr 5/17/2020 21:47", - "browse" : "jr 12/21/2020 00:05", - "browseFromSquotWorkingCopyArtifact:" : "jr 7/9/2022 11:13", "squotAboutToStyle:requestor:at:" : "mad 9/12/2023 16:53", - "squotAddToChangeSet:" : "jr 4/14/2020 14:46", - "squotBelongsToClass" : "jr 9/8/2020 22:00", "squotChangePath" : "mad 9/2/2023 19:13", "squotCopyWithSources:notifying:ifFail:" : "mad 2/20/2024 18:08", - "squotDiffNodeSummary" : "jr 4/17/2017 01:42", - "squotGroup" : "jr 9/8/2020 21:00", - "squotIsInChangeSet:" : "jr 9/8/2020 22:29", - "squotRemoveFromChangeSet:" : "jr 4/14/2020 14:44", - "squotShouldGroupByClass" : "jr 8/25/2020 18:27", "squotSources" : "mad 9/12/2023 15:10", "squotSourcesHelp" : "mad 9/13/2023 13:23", "squotSourcesIsTimeStamp" : "mad 11/3/2023 15:31", diff --git a/src/Squot.package/MCModification.extension/instance/squotChangeAsStringOrText.st b/src/Squot.package/MCModification.extension/instance/squotChangeAsStringOrText.st deleted file mode 100644 index 57a6626e1..000000000 --- a/src/Squot.package/MCModification.extension/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,7 +0,0 @@ -*Squot-Tools-Diffs -squotChangeAsStringOrText - | sourceChanged | - sourceChanged := modification source ~= obsoletion source. - sourceChanged - ifTrue: [^ self sourceText] - ifFalse: [^ self summary] \ No newline at end of file diff --git a/src/Squot.package/MCModification.extension/methodProperties.json b/src/Squot.package/MCModification.extension/methodProperties.json deleted file mode 100644 index 7e572bc4f..000000000 --- a/src/Squot.package/MCModification.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "squotChangeAsStringOrText" : "jr 1/2/2019 12:05" } } diff --git a/src/Squot.package/MCModification.extension/properties.json b/src/Squot.package/MCModification.extension/properties.json deleted file mode 100644 index 20c0de33a..000000000 --- a/src/Squot.package/MCModification.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "MCModification" } diff --git a/src/Squot.package/MCOrganizationDefinition.extension/instance/browse.st b/src/Squot.package/MCOrganizationDefinition.extension/instance/browse.st deleted file mode 100644 index eaa140dc0..000000000 --- a/src/Squot.package/MCOrganizationDefinition.extension/instance/browse.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -browse - ^ (MCSnapshotBrowser forSnapshot: (MCSnapshot fromDefinitions: {self})) - showLabelled: 'Snapshot of organization' \ No newline at end of file diff --git a/src/Squot.package/MCOrganizationDefinition.extension/instance/browseFromSquotWorkingCopyArtifact..st b/src/Squot.package/MCOrganizationDefinition.extension/instance/browseFromSquotWorkingCopyArtifact..st deleted file mode 100644 index f6ad3dd63..000000000 --- a/src/Squot.package/MCOrganizationDefinition.extension/instance/browseFromSquotWorkingCopyArtifact..st +++ /dev/null @@ -1,6 +0,0 @@ -*Squot-Tools -browseFromSquotWorkingCopyArtifact: aSquotWorkingCopyArtifact - categories ifEmpty: [^ self]. - aSquotWorkingCopyArtifact isLoaded ifFalse: [^ self browse]. - ^ (PackageInfo squotEnvironmentOf: aSquotWorkingCopyArtifact) beCurrentDuring: - [ToolSet browseCategory: categories anyOne] \ No newline at end of file diff --git a/src/Squot.package/MCOrganizationDefinition.extension/instance/squotAddToChangeSet..st b/src/Squot.package/MCOrganizationDefinition.extension/instance/squotAddToChangeSet..st deleted file mode 100644 index 83633eb8d..000000000 --- a/src/Squot.package/MCOrganizationDefinition.extension/instance/squotAddToChangeSet..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotAddToChangeSet: aChangeSet - ^ self "not yet implemented, how to record this properly?" \ No newline at end of file diff --git a/src/Squot.package/MCOrganizationDefinition.extension/instance/squotIsInChangeSet..st b/src/Squot.package/MCOrganizationDefinition.extension/instance/squotIsInChangeSet..st deleted file mode 100644 index ff08dbfee..000000000 --- a/src/Squot.package/MCOrganizationDefinition.extension/instance/squotIsInChangeSet..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotIsInChangeSet: aChangeSet - ^ false "not yet implemented, how to record this properly?" \ No newline at end of file diff --git a/src/Squot.package/MCOrganizationDefinition.extension/instance/squotRemoveFromChangeSet..st b/src/Squot.package/MCOrganizationDefinition.extension/instance/squotRemoveFromChangeSet..st deleted file mode 100644 index 1748ea22a..000000000 --- a/src/Squot.package/MCOrganizationDefinition.extension/instance/squotRemoveFromChangeSet..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotRemoveFromChangeSet: aChangeSet - ^ self "not yet implemented, how to record this properly?" \ No newline at end of file diff --git a/src/Squot.package/MCOrganizationDefinition.extension/methodProperties.json b/src/Squot.package/MCOrganizationDefinition.extension/methodProperties.json index dd0b1764a..f4bf45f8e 100644 --- a/src/Squot.package/MCOrganizationDefinition.extension/methodProperties.json +++ b/src/Squot.package/MCOrganizationDefinition.extension/methodProperties.json @@ -2,11 +2,6 @@ "class" : { }, "instance" : { - "browse" : "jr 6/6/2020 03:06", - "browseFromSquotWorkingCopyArtifact:" : "jr 7/9/2022 11:13", - "squotAddToChangeSet:" : "jr 4/14/2020 17:02", "squotChangePath" : "mad 9/2/2023 19:13", "squotCopyWithSources:notifying:ifFail:" : "mad 10/24/2023 19:36", - "squotIsInChangeSet:" : "jr 4/14/2020 17:02", - "squotRemoveFromChangeSet:" : "jr 4/14/2020 17:02", "squotSourcesHelp" : "mad 9/13/2023 13:23" } } diff --git a/src/Squot.package/MCPatch.extension/instance/squotAddOperation..st b/src/Squot.package/MCPatch.extension/instance/squotAddOperation..st deleted file mode 100644 index bb72e1192..000000000 --- a/src/Squot.package/MCPatch.extension/instance/squotAddOperation..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools-Diffs -squotAddOperation: aMCPatchOperation - operations add: aMCPatchOperation. \ No newline at end of file diff --git a/src/Squot.package/MCPatch.extension/instance/squotHasChanges.st b/src/Squot.package/MCPatch.extension/instance/squotHasChanges.st deleted file mode 100644 index 149e4cbf0..000000000 --- a/src/Squot.package/MCPatch.extension/instance/squotHasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-diff-testing -squotHasChanges - ^ self isEmpty not \ No newline at end of file diff --git a/src/Squot.package/MCPatch.extension/instance/squotRemoveOperation..st b/src/Squot.package/MCPatch.extension/instance/squotRemoveOperation..st deleted file mode 100644 index 86554977a..000000000 --- a/src/Squot.package/MCPatch.extension/instance/squotRemoveOperation..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools-Diffs -squotRemoveOperation: aMCPatchOperation - operations remove: aMCPatchOperation. \ No newline at end of file diff --git a/src/Squot.package/MCPatch.extension/methodProperties.json b/src/Squot.package/MCPatch.extension/methodProperties.json index 8dcef64da..1258a9825 100644 --- a/src/Squot.package/MCPatch.extension/methodProperties.json +++ b/src/Squot.package/MCPatch.extension/methodProperties.json @@ -2,8 +2,5 @@ "class" : { }, "instance" : { - "squotAddOperation:" : "jr 11/29/2020 20:23", "squotApplyTo:" : "jr 5/29/2017 23:45", - "squotApplyToLoaded:" : "jr 6/7/2017 14:49", - "squotHasChanges" : "jr 4/17/2017 01:15", - "squotRemoveOperation:" : "jr 11/29/2020 20:24" } } + "squotApplyToLoaded:" : "jr 6/7/2017 14:49" } } diff --git a/src/Squot.package/MCPatchOperation.extension/instance/actualClassInSquotWorkingCopy..st b/src/Squot.package/MCPatchOperation.extension/instance/actualClassInSquotWorkingCopy..st deleted file mode 100644 index c9662bc4f..000000000 --- a/src/Squot.package/MCPatchOperation.extension/instance/actualClassInSquotWorkingCopy..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -actualClassInSquotWorkingCopy: aSquotWorkingCopyArtifact - ^ self definition actualClassInSquotWorkingCopy: aSquotWorkingCopyArtifact \ No newline at end of file diff --git a/src/Squot.package/MCPatchOperation.extension/instance/browseFromSquotWorkingCopyArtifact..st b/src/Squot.package/MCPatchOperation.extension/instance/browseFromSquotWorkingCopyArtifact..st deleted file mode 100644 index e6e3a3a96..000000000 --- a/src/Squot.package/MCPatchOperation.extension/instance/browseFromSquotWorkingCopyArtifact..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -browseFromSquotWorkingCopyArtifact: aSquotWorkingCopyArtifact - ^ self definition browseFromSquotWorkingCopyArtifact: aSquotWorkingCopyArtifact \ No newline at end of file diff --git a/src/Squot.package/MCPatchOperation.extension/instance/ignoreInSquot.st b/src/Squot.package/MCPatchOperation.extension/instance/ignoreInSquot.st deleted file mode 100644 index 3f55e2490..000000000 --- a/src/Squot.package/MCPatchOperation.extension/instance/ignoreInSquot.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools-Diffs -ignoreInSquot - ^ SquotIgnoredSmalltalkCode ignore: self definition \ No newline at end of file diff --git a/src/Squot.package/MCPatchOperation.extension/instance/isCurrentlyIgnoredInSquot.st b/src/Squot.package/MCPatchOperation.extension/instance/isCurrentlyIgnoredInSquot.st deleted file mode 100644 index b1a2bb375..000000000 --- a/src/Squot.package/MCPatchOperation.extension/instance/isCurrentlyIgnoredInSquot.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools-Diffs -isCurrentlyIgnoredInSquot - ^ SquotIgnoredSmalltalkCode isIgnored: self definition \ No newline at end of file diff --git a/src/Squot.package/MCPatchOperation.extension/instance/left.st b/src/Squot.package/MCPatchOperation.extension/instance/left.st deleted file mode 100644 index 2f1c7e65d..000000000 --- a/src/Squot.package/MCPatchOperation.extension/instance/left.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools-Diffs -left - ^ self baseDefinition \ No newline at end of file diff --git a/src/Squot.package/MCPatchOperation.extension/instance/right.st b/src/Squot.package/MCPatchOperation.extension/instance/right.st deleted file mode 100644 index e23180a76..000000000 --- a/src/Squot.package/MCPatchOperation.extension/instance/right.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools-Diffs -right - ^ self targetDefinition \ No newline at end of file diff --git a/src/Squot.package/MCPatchOperation.extension/instance/squotAddDiffNodeMenuItems.for..st b/src/Squot.package/MCPatchOperation.extension/instance/squotAddDiffNodeMenuItems.for..st deleted file mode 100644 index 50a82e6eb..000000000 --- a/src/Squot.package/MCPatchOperation.extension/instance/squotAddDiffNodeMenuItems.for..st +++ /dev/null @@ -1,7 +0,0 @@ -*Squot-Tools-Diffs -squotAddDiffNodeMenuItems: aMenu for: aSquotChangesChooser - self definition isOrganizationDefinition "ignoring not implemented yet for organization" - ifFalse: - [self isCurrentlyIgnoredInSquot - ifTrue: [aSquotChangesChooser addUnignoreMenuItem: aMenu] - ifFalse: [aSquotChangesChooser addIgnoreMenuItem: aMenu]] \ No newline at end of file diff --git a/src/Squot.package/MCPatchOperation.extension/instance/squotChangeAsStringOrText.st b/src/Squot.package/MCPatchOperation.extension/instance/squotChangeAsStringOrText.st deleted file mode 100644 index 3fe2140d0..000000000 --- a/src/Squot.package/MCPatchOperation.extension/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools-Diffs -squotChangeAsStringOrText - ^ self sourceText \ No newline at end of file diff --git a/src/Squot.package/MCPatchOperation.extension/instance/squotDiffNodeSummary.st b/src/Squot.package/MCPatchOperation.extension/instance/squotDiffNodeSummary.st deleted file mode 100644 index da4b67f4d..000000000 --- a/src/Squot.package/MCPatchOperation.extension/instance/squotDiffNodeSummary.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools-Diffs -squotDiffNodeSummary - ^ self definition squotDiffNodeSummary, self summarySuffix \ No newline at end of file diff --git a/src/Squot.package/MCPatchOperation.extension/instance/squotToolsDiffNodeContent.st b/src/Squot.package/MCPatchOperation.extension/instance/squotToolsDiffNodeContent.st deleted file mode 100644 index 6503d9327..000000000 --- a/src/Squot.package/MCPatchOperation.extension/instance/squotToolsDiffNodeContent.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools-Diffs -squotToolsDiffNodeContent - "Objects of this type are used as the content of SquotDiffNode. Marker method." - \ No newline at end of file diff --git a/src/Squot.package/MCPatchOperation.extension/instance/unignoreInSquot.st b/src/Squot.package/MCPatchOperation.extension/instance/unignoreInSquot.st deleted file mode 100644 index be8b4e6eb..000000000 --- a/src/Squot.package/MCPatchOperation.extension/instance/unignoreInSquot.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools-Diffs -unignoreInSquot - ^ SquotIgnoredSmalltalkCode unignore: self definition \ No newline at end of file diff --git a/src/Squot.package/MCPatchOperation.extension/methodProperties.json b/src/Squot.package/MCPatchOperation.extension/methodProperties.json deleted file mode 100644 index 0c6cd8a55..000000000 --- a/src/Squot.package/MCPatchOperation.extension/methodProperties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "actualClassInSquotWorkingCopy:" : "ct 9/15/2022 18:57", - "browseFromSquotWorkingCopyArtifact:" : "jr 12/22/2019 20:26", - "ignoreInSquot" : "jr 4/14/2020 14:40", - "isCurrentlyIgnoredInSquot" : "jr 4/14/2020 14:18", - "left" : "jr 6/6/2020 01:33", - "right" : "jr 6/6/2020 01:33", - "squotAddDiffNodeMenuItems:for:" : "jr 5/2/2020 02:15", - "squotChangeAsStringOrText" : "jr 4/17/2017 01:17", - "squotDiffNodeSummary" : "jr 4/17/2017 01:41", - "squotToolsDiffNodeContent" : "jr 11/3/2019 12:08", - "unignoreInSquot" : "jr 4/14/2020 14:40" } } diff --git a/src/Squot.package/MCPatchOperation.extension/properties.json b/src/Squot.package/MCPatchOperation.extension/properties.json deleted file mode 100644 index 144099a2c..000000000 --- a/src/Squot.package/MCPatchOperation.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "MCPatchOperation" } diff --git a/src/Squot.package/MCPostscriptDefinition.extension/instance/squotAddToChangeSet..st b/src/Squot.package/MCPostscriptDefinition.extension/instance/squotAddToChangeSet..st deleted file mode 100644 index c92d2d810..000000000 --- a/src/Squot.package/MCPostscriptDefinition.extension/instance/squotAddToChangeSet..st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-Tools -squotAddToChangeSet: aChangeSet - aChangeSet postscript: - (aChangeSet postscript ifNil: ['']), String cr, - '"ignore ', packageName, ' postscript"'. \ No newline at end of file diff --git a/src/Squot.package/MCPostscriptDefinition.extension/instance/squotIsInChangeSet..st b/src/Squot.package/MCPostscriptDefinition.extension/instance/squotIsInChangeSet..st deleted file mode 100644 index c6afe92d9..000000000 --- a/src/Squot.package/MCPostscriptDefinition.extension/instance/squotIsInChangeSet..st +++ /dev/null @@ -1,7 +0,0 @@ -*Squot-Tools -squotIsInChangeSet: aChangeSet - ^ aChangeSet postscript - ifNil: [false] - ifNotNil: - [:postscript | - postscript includesSubstring: '"ignore ', packageName, ' postscript"'] \ No newline at end of file diff --git a/src/Squot.package/MCPostscriptDefinition.extension/instance/squotRemoveFromChangeSet..st b/src/Squot.package/MCPostscriptDefinition.extension/instance/squotRemoveFromChangeSet..st deleted file mode 100644 index 62f86af05..000000000 --- a/src/Squot.package/MCPostscriptDefinition.extension/instance/squotRemoveFromChangeSet..st +++ /dev/null @@ -1,10 +0,0 @@ -*Squot-Tools -squotRemoveFromChangeSet: aChangeSet - | newString | - newString := ((aChangeSet postscript ifNil: [^ self]) - lines - copyWithout: '"ignore ', packageName, ' postscript"') - joinSeparatedBy: String cr. - newString - ifEmpty: [aChangeSet removePostscript] - ifNotEmpty: [aChangeSet postscript: newString]. \ No newline at end of file diff --git a/src/Squot.package/MCPostscriptDefinition.extension/methodProperties.json b/src/Squot.package/MCPostscriptDefinition.extension/methodProperties.json deleted file mode 100644 index 6887ceea8..000000000 --- a/src/Squot.package/MCPostscriptDefinition.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "squotAddToChangeSet:" : "jr 4/14/2020 16:51", - "squotIsInChangeSet:" : "jr 4/14/2020 16:49", - "squotRemoveFromChangeSet:" : "jr 4/14/2020 16:54" } } diff --git a/src/Squot.package/MCPostscriptDefinition.extension/properties.json b/src/Squot.package/MCPostscriptDefinition.extension/properties.json deleted file mode 100644 index b88b59d9a..000000000 --- a/src/Squot.package/MCPostscriptDefinition.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "MCPostscriptDefinition" } diff --git a/src/Squot.package/MCPreambleDefinition.extension/instance/squotAddToChangeSet..st b/src/Squot.package/MCPreambleDefinition.extension/instance/squotAddToChangeSet..st deleted file mode 100644 index 93f7a3eeb..000000000 --- a/src/Squot.package/MCPreambleDefinition.extension/instance/squotAddToChangeSet..st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-Tools -squotAddToChangeSet: aChangeSet - aChangeSet preamble: - (aChangeSet preamble ifNil: ['']), String cr, - '"ignore ', packageName, ' preamble"'. \ No newline at end of file diff --git a/src/Squot.package/MCPreambleDefinition.extension/instance/squotIsInChangeSet..st b/src/Squot.package/MCPreambleDefinition.extension/instance/squotIsInChangeSet..st deleted file mode 100644 index 10cf481c3..000000000 --- a/src/Squot.package/MCPreambleDefinition.extension/instance/squotIsInChangeSet..st +++ /dev/null @@ -1,7 +0,0 @@ -*Squot-Tools -squotIsInChangeSet: aChangeSet - ^ aChangeSet preamble - ifNil: [false] - ifNotNil: - [:preamble | - preamble includesSubstring: '"ignore ', packageName, ' preamble"'] \ No newline at end of file diff --git a/src/Squot.package/MCPreambleDefinition.extension/instance/squotRemoveFromChangeSet..st b/src/Squot.package/MCPreambleDefinition.extension/instance/squotRemoveFromChangeSet..st deleted file mode 100644 index f7393ca63..000000000 --- a/src/Squot.package/MCPreambleDefinition.extension/instance/squotRemoveFromChangeSet..st +++ /dev/null @@ -1,10 +0,0 @@ -*Squot-Tools -squotRemoveFromChangeSet: aChangeSet - | newString | - newString := ((aChangeSet preamble ifNil: [^ self]) - lines - copyWithout: '"ignore ', packageName, ' preamble"') - joinSeparatedBy: String cr. - newString - ifEmpty: [aChangeSet removePreamble] - ifNotEmpty: [aChangeSet preamble: newString]. \ No newline at end of file diff --git a/src/Squot.package/MCPreambleDefinition.extension/methodProperties.json b/src/Squot.package/MCPreambleDefinition.extension/methodProperties.json deleted file mode 100644 index 6f71b13e8..000000000 --- a/src/Squot.package/MCPreambleDefinition.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "squotAddToChangeSet:" : "jr 4/14/2020 16:58", - "squotIsInChangeSet:" : "jr 4/14/2020 16:58", - "squotRemoveFromChangeSet:" : "jr 4/14/2020 16:59" } } diff --git a/src/Squot.package/MCPreambleDefinition.extension/properties.json b/src/Squot.package/MCPreambleDefinition.extension/properties.json deleted file mode 100644 index facfd8faf..000000000 --- a/src/Squot.package/MCPreambleDefinition.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "MCPreambleDefinition" } diff --git a/src/Squot.package/MCRemovalPostscriptDefinition.extension/instance/squotAddToChangeSet..st b/src/Squot.package/MCRemovalPostscriptDefinition.extension/instance/squotAddToChangeSet..st deleted file mode 100644 index 03b5080e2..000000000 --- a/src/Squot.package/MCRemovalPostscriptDefinition.extension/instance/squotAddToChangeSet..st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-Tools -squotAddToChangeSet: aChangeSet - aChangeSet postscript: - (aChangeSet postscript ifNil: ['']), String cr, - '"ignore ', packageName, ' removal postscript"'. \ No newline at end of file diff --git a/src/Squot.package/MCRemovalPostscriptDefinition.extension/instance/squotIsInChangeSet..st b/src/Squot.package/MCRemovalPostscriptDefinition.extension/instance/squotIsInChangeSet..st deleted file mode 100644 index 787731a52..000000000 --- a/src/Squot.package/MCRemovalPostscriptDefinition.extension/instance/squotIsInChangeSet..st +++ /dev/null @@ -1,7 +0,0 @@ -*Squot-Tools -squotIsInChangeSet: aChangeSet - ^ aChangeSet postscript - ifNil: [false] - ifNotNil: - [:postscript | - postscript includesSubstring: '"ignore ', packageName, ' removal postscript"'] \ No newline at end of file diff --git a/src/Squot.package/MCRemovalPostscriptDefinition.extension/instance/squotRemoveFromChangeSet..st b/src/Squot.package/MCRemovalPostscriptDefinition.extension/instance/squotRemoveFromChangeSet..st deleted file mode 100644 index eecd48f6e..000000000 --- a/src/Squot.package/MCRemovalPostscriptDefinition.extension/instance/squotRemoveFromChangeSet..st +++ /dev/null @@ -1,10 +0,0 @@ -*Squot-Tools -squotRemoveFromChangeSet: aChangeSet - | newString | - newString := ((aChangeSet postscript ifNil: [^ self]) - lines - copyWithout: '"ignore ', packageName, ' removal postscript"') - joinSeparatedBy: String cr. - newString - ifEmpty: [aChangeSet removePostscript] - ifNotEmpty: [aChangeSet postscript: newString]. \ No newline at end of file diff --git a/src/Squot.package/MCRemovalPostscriptDefinition.extension/methodProperties.json b/src/Squot.package/MCRemovalPostscriptDefinition.extension/methodProperties.json deleted file mode 100644 index c8f15c22b..000000000 --- a/src/Squot.package/MCRemovalPostscriptDefinition.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "squotAddToChangeSet:" : "jr 4/14/2020 17:00", - "squotIsInChangeSet:" : "jr 4/14/2020 16:59", - "squotRemoveFromChangeSet:" : "jr 4/14/2020 16:59" } } diff --git a/src/Squot.package/MCRemovalPostscriptDefinition.extension/properties.json b/src/Squot.package/MCRemovalPostscriptDefinition.extension/properties.json deleted file mode 100644 index e58fce149..000000000 --- a/src/Squot.package/MCRemovalPostscriptDefinition.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "MCRemovalPostscriptDefinition" } diff --git a/src/Squot.package/MCRemovalPreambleDefinition.extension/instance/squotAddToChangeSet..st b/src/Squot.package/MCRemovalPreambleDefinition.extension/instance/squotAddToChangeSet..st deleted file mode 100644 index a3766ccc3..000000000 --- a/src/Squot.package/MCRemovalPreambleDefinition.extension/instance/squotAddToChangeSet..st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-Tools -squotAddToChangeSet: aChangeSet - aChangeSet preamble: - (aChangeSet preamble ifNil: ['']), String cr, - '"ignore ', packageName, ' removal preamble"'. \ No newline at end of file diff --git a/src/Squot.package/MCRemovalPreambleDefinition.extension/instance/squotIsInChangeSet..st b/src/Squot.package/MCRemovalPreambleDefinition.extension/instance/squotIsInChangeSet..st deleted file mode 100644 index 6c29ca358..000000000 --- a/src/Squot.package/MCRemovalPreambleDefinition.extension/instance/squotIsInChangeSet..st +++ /dev/null @@ -1,7 +0,0 @@ -*Squot-Tools -squotIsInChangeSet: aChangeSet - ^ aChangeSet preamble - ifNil: [false] - ifNotNil: - [:preamble | - preamble includesSubstring: '"ignore ', packageName, ' removal preamble"'] \ No newline at end of file diff --git a/src/Squot.package/MCRemovalPreambleDefinition.extension/instance/squotRemoveFromChangeSet..st b/src/Squot.package/MCRemovalPreambleDefinition.extension/instance/squotRemoveFromChangeSet..st deleted file mode 100644 index b3faa983d..000000000 --- a/src/Squot.package/MCRemovalPreambleDefinition.extension/instance/squotRemoveFromChangeSet..st +++ /dev/null @@ -1,10 +0,0 @@ -*Squot-Tools -squotRemoveFromChangeSet: aChangeSet - | newString | - newString := ((aChangeSet preamble ifNil: [^ self]) - lines - copyWithout: '"ignore ', packageName, ' removal preamble"') - joinSeparatedBy: String cr. - newString - ifEmpty: [aChangeSet removePreamble] - ifNotEmpty: [aChangeSet preamble: newString]. \ No newline at end of file diff --git a/src/Squot.package/MCRemovalPreambleDefinition.extension/methodProperties.json b/src/Squot.package/MCRemovalPreambleDefinition.extension/methodProperties.json deleted file mode 100644 index 222ce3486..000000000 --- a/src/Squot.package/MCRemovalPreambleDefinition.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "squotAddToChangeSet:" : "jr 4/14/2020 17:00", - "squotIsInChangeSet:" : "jr 4/14/2020 17:00", - "squotRemoveFromChangeSet:" : "jr 4/14/2020 17:00" } } diff --git a/src/Squot.package/MCRemovalPreambleDefinition.extension/properties.json b/src/Squot.package/MCRemovalPreambleDefinition.extension/properties.json deleted file mode 100644 index e680cc569..000000000 --- a/src/Squot.package/MCRemovalPreambleDefinition.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "MCRemovalPreambleDefinition" } diff --git a/src/Squot.package/MCScriptDefinition.extension/instance/browseFromSquotWorkingCopyArtifact..st b/src/Squot.package/MCScriptDefinition.extension/instance/browseFromSquotWorkingCopyArtifact..st deleted file mode 100644 index 055cfa7d2..000000000 --- a/src/Squot.package/MCScriptDefinition.extension/instance/browseFromSquotWorkingCopyArtifact..st +++ /dev/null @@ -1,9 +0,0 @@ -*Squot-Tools -browseFromSquotWorkingCopyArtifact: aSquotWorkingCopyArtifact - aSquotWorkingCopyArtifact isLoaded ifFalse: [^ self browse]. - ^ (PackageInfo squotEnvironmentOf: aSquotWorkingCopyArtifact) packageOrganizer - packageNamed: self packageName - ifPresent: - [:packageInfo | - (packageInfo perform: self scriptSelector) - openLabel: self scriptSelector, ' of package ', self packageName] \ No newline at end of file diff --git a/src/Squot.package/MCScriptDefinition.extension/instance/squotGroup.st b/src/Squot.package/MCScriptDefinition.extension/instance/squotGroup.st deleted file mode 100644 index cd6f8d9f6..000000000 --- a/src/Squot.package/MCScriptDefinition.extension/instance/squotGroup.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotGroup - ^ 'Script' \ No newline at end of file diff --git a/src/Squot.package/MCScriptDefinition.extension/methodProperties.json b/src/Squot.package/MCScriptDefinition.extension/methodProperties.json index 651bd5954..ab66474b2 100644 --- a/src/Squot.package/MCScriptDefinition.extension/methodProperties.json +++ b/src/Squot.package/MCScriptDefinition.extension/methodProperties.json @@ -2,8 +2,6 @@ "class" : { }, "instance" : { - "browseFromSquotWorkingCopyArtifact:" : "jr 7/9/2022 11:13", "squotCopyWithSources:notifying:ifFail:" : "mad 11/3/2023 16:01", - "squotGroup" : "jr 9/9/2020 18:51", "squotSourcesHelp" : "mad 9/13/2023 13:24", "squotSourcesStylerClasses" : "mad 9/13/2023 13:40" } } diff --git a/src/Squot.package/MCSnapshot.extension/instance/asSquotArtifactForPackage..st b/src/Squot.package/MCSnapshot.extension/instance/asSquotArtifactForPackage..st deleted file mode 100644 index c2c4a4dd8..000000000 --- a/src/Squot.package/MCSnapshot.extension/instance/asSquotArtifactForPackage..st +++ /dev/null @@ -1,11 +0,0 @@ -*Squot-shadow -asSquotArtifactForPackage: aPackageInfo - ^ SquotArtifact new - content: (SquotShadowGraph withSingleShadow: - (SquotPackageShadow - forPackageNamed: aPackageInfo packageName - withSnapshot: self - tonelProperties: (Dictionary newFrom: {#name -> aPackageInfo packageName asSymbol}))); - path: aPackageInfo name, '.package'; - initializeDefaultStoreInfoFor: aPackageInfo; - yourself \ No newline at end of file diff --git a/src/Squot.package/MCSnapshot.extension/instance/asSquotArtifactForPackage.path..st b/src/Squot.package/MCSnapshot.extension/instance/asSquotArtifactForPackage.path..st deleted file mode 100644 index 5d1fe996c..000000000 --- a/src/Squot.package/MCSnapshot.extension/instance/asSquotArtifactForPackage.path..st +++ /dev/null @@ -1,17 +0,0 @@ -*Squot-shadow -asSquotArtifactForPackage: aPackageInfo path: path - | shadow storeInfo correctedPath artifact | - shadow := SquotShadowGraph withSingleShadow: - (SquotPackageShadow - forPackageNamed: aPackageInfo packageName - withSnapshot: self). - self flag: #duplication. "with SquotWorkingCopy adding methods" - storeInfo := SquotTrackedObjectMetadata new. - storeInfo - id: SquotArtifact newId; - at: #path put: path. - aPackageInfo squotInitializeStoreInfo: storeInfo. - SquotFileSystemStore initializeStoreInfo: storeInfo forObject: shadow. - correctedPath := storeInfo removeKey: #path. "for now..." - artifact := SquotArtifact path: correctedPath content: shadow storeInfo: storeInfo. - ^ artifact \ No newline at end of file diff --git a/src/Squot.package/MCSnapshot.extension/instance/squotShadowMarker.st b/src/Squot.package/MCSnapshot.extension/instance/squotShadowMarker.st deleted file mode 100644 index 3f0c09bbe..000000000 --- a/src/Squot.package/MCSnapshot.extension/instance/squotShadowMarker.st +++ /dev/null @@ -1,2 +0,0 @@ -*Squot-shadow -squotShadowMarker \ No newline at end of file diff --git a/src/Squot.package/MCSnapshot.extension/instance/squotWithSortedDefinitions.st b/src/Squot.package/MCSnapshot.extension/instance/squotWithSortedDefinitions.st deleted file mode 100644 index 9596f95e1..000000000 --- a/src/Squot.package/MCSnapshot.extension/instance/squotWithSortedDefinitions.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot -squotWithSortedDefinitions - ^ self class fromDefinitions: self definitions sorted \ No newline at end of file diff --git a/src/Squot.package/MCSnapshot.extension/instance/squotWrite.with..st b/src/Squot.package/MCSnapshot.extension/instance/squotWrite.with..st deleted file mode 100644 index fa7e54a55..000000000 --- a/src/Squot.package/MCSnapshot.extension/instance/squotWrite.with..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-shadow-serialization -squotWrite: anArtifact with: aSerializer - ^ aSerializer writeDefinitions: self definitions \ No newline at end of file diff --git a/src/Squot.package/MCSnapshot.extension/methodProperties.json b/src/Squot.package/MCSnapshot.extension/methodProperties.json deleted file mode 100644 index 36bf97b47..000000000 --- a/src/Squot.package/MCSnapshot.extension/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "asSquotArtifactForPackage:" : "jr 5/27/2022 17:37", - "asSquotArtifactForPackage:path:" : "jr 7/9/2022 13:24", - "squotShadowMarker" : "jr 6/17/2017 22:34", - "squotWithSortedDefinitions" : "jr 2/16/2017 01:42", - "squotWrite:with:" : "jr 1/29/2017 21:03" } } diff --git a/src/Squot.package/MCSnapshot.extension/properties.json b/src/Squot.package/MCSnapshot.extension/properties.json deleted file mode 100644 index 8bd30bd3a..000000000 --- a/src/Squot.package/MCSnapshot.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "MCSnapshot" } diff --git a/src/Squot.package/Metaclass.extension/instance/squotMirror.st b/src/Squot.package/Metaclass.extension/instance/squotMirror.st deleted file mode 100644 index bbbeda06a..000000000 --- a/src/Squot.package/Metaclass.extension/instance/squotMirror.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot -squotMirror - ^ SquotClassMirror class: thisClass \ No newline at end of file diff --git a/src/Squot.package/Metaclass.extension/methodProperties.json b/src/Squot.package/Metaclass.extension/methodProperties.json deleted file mode 100644 index a21d7c804..000000000 --- a/src/Squot.package/Metaclass.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "squotMirror" : "jr 1/10/2021 22:03" } } diff --git a/src/Squot.package/Metaclass.extension/properties.json b/src/Squot.package/Metaclass.extension/properties.json deleted file mode 100644 index cf72bf7ac..000000000 --- a/src/Squot.package/Metaclass.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Metaclass" } diff --git a/src/Squot.package/Morph.extension/instance/squotInitializeStoreInfo..st b/src/Squot.package/Morph.extension/instance/squotInitializeStoreInfo..st deleted file mode 100644 index 6e32ed37b..000000000 --- a/src/Squot.package/Morph.extension/instance/squotInitializeStoreInfo..st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-trackable -squotInitializeStoreInfo: aTrackedObjectMetadata - super squotInitializeStoreInfo: aTrackedObjectMetadata. - "Do not capture my owner, as I am the top-level tracked object here." - aTrackedObjectMetadata ignoreInstanceVariable: 'owner' in: self. \ No newline at end of file diff --git a/src/Squot.package/Morph.extension/methodProperties.json b/src/Squot.package/Morph.extension/methodProperties.json deleted file mode 100644 index c9470ca78..000000000 --- a/src/Squot.package/Morph.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "squotInitializeStoreInfo:" : "jr 7/20/2017 12:08" } } diff --git a/src/Squot.package/Morph.extension/properties.json b/src/Squot.package/Morph.extension/properties.json deleted file mode 100644 index 58989fd64..000000000 --- a/src/Squot.package/Morph.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Morph" } diff --git a/src/Squot.package/Number.extension/instance/squotShouldKeepIdentity.st b/src/Squot.package/Number.extension/instance/squotShouldKeepIdentity.st deleted file mode 100644 index 49f1b81f8..000000000 --- a/src/Squot.package/Number.extension/instance/squotShouldKeepIdentity.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-trackable -squotShouldKeepIdentity - ^ false \ No newline at end of file diff --git a/src/Squot.package/Number.extension/methodProperties.json b/src/Squot.package/Number.extension/methodProperties.json deleted file mode 100644 index 68d33a29a..000000000 --- a/src/Squot.package/Number.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "squotShouldKeepIdentity" : "jr 7/16/2017 15:58" } } diff --git a/src/Squot.package/Number.extension/properties.json b/src/Squot.package/Number.extension/properties.json deleted file mode 100644 index 1d2c94d4a..000000000 --- a/src/Squot.package/Number.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Number" } diff --git a/src/Squot.package/Object.extension/class/squotAllSerializers.st b/src/Squot.package/Object.extension/class/squotAllSerializers.st deleted file mode 100644 index 5d16ac86e..000000000 --- a/src/Squot.package/Object.extension/class/squotAllSerializers.st +++ /dev/null @@ -1,11 +0,0 @@ -*Squot-trackable -squotAllSerializers - | serializerFactories | - serializerFactories := OrderedCollection new. - (Pragma - allNamed: #squotSerializer:priority: - from: self class - to: Object class - sortedByArgument: 2) - do: [:each | serializerFactories add: (self perform: each selector)]. - ^ serializerFactories \ No newline at end of file diff --git a/src/Squot.package/Object.extension/class/squotRelevantInstVars.st b/src/Squot.package/Object.extension/class/squotRelevantInstVars.st deleted file mode 100644 index 0b85f48b8..000000000 --- a/src/Squot.package/Object.extension/class/squotRelevantInstVars.st +++ /dev/null @@ -1,9 +0,0 @@ -*Squot-trackable-capturing -squotRelevantInstVars - ^ ((self == Object ifTrue: [#()] ifFalse: [superclass squotRelevantInstVars]), - self instVarNames) - "Since Fuel offers a similar, but negated query, delegate to it if available." - in: [:vars | - (self respondsTo: #fuelIgnoredInstanceVariableNames) - ifTrue: [vars copyWithoutAll: self fuelIgnoredInstanceVariableNames] - ifFalse: [vars]] \ No newline at end of file diff --git a/src/Squot.package/Object.extension/class/squotSmartRefStreamSerializer.st b/src/Squot.package/Object.extension/class/squotSmartRefStreamSerializer.st deleted file mode 100644 index 76520fd9a..000000000 --- a/src/Squot.package/Object.extension/class/squotSmartRefStreamSerializer.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-trackable -squotSmartRefStreamSerializer - - ^ SquotSmartRefStreamSerializer \ No newline at end of file diff --git a/src/Squot.package/Object.extension/class/squotSpecializedSerializers.st b/src/Squot.package/Object.extension/class/squotSpecializedSerializers.st deleted file mode 100644 index cacf996dd..000000000 --- a/src/Squot.package/Object.extension/class/squotSpecializedSerializers.st +++ /dev/null @@ -1,12 +0,0 @@ -*Squot-trackable -squotSpecializedSerializers - self withAllSuperclassesDo: - [:eachClass | - (Pragma - allNamed: #squotSerializer:priority: - in: eachClass class - sortedByArgument: 2) - ifNotEmpty: - [:pragmas | - ^ pragmas collect: [:each | self perform: each selector]]]. - ^ #() \ No newline at end of file diff --git a/src/Squot.package/Object.extension/class/squotStonSerializer.st b/src/Squot.package/Object.extension/class/squotStonSerializer.st deleted file mode 100644 index acd32592b..000000000 --- a/src/Squot.package/Object.extension/class/squotStonSerializer.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-trackable -squotStonSerializer - - ^ SquotStonFileCodec \ No newline at end of file diff --git a/src/Squot.package/Object.extension/instance/browseFromSquotWorkingCopyArtifact..st b/src/Squot.package/Object.extension/instance/browseFromSquotWorkingCopyArtifact..st deleted file mode 100644 index 9613f46e5..000000000 --- a/src/Squot.package/Object.extension/instance/browseFromSquotWorkingCopyArtifact..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -browseFromSquotWorkingCopyArtifact: aSquotArtifact - ^ self browse \ No newline at end of file diff --git a/src/Squot.package/Object.extension/instance/canHaveNameAssignedBySquot.st b/src/Squot.package/Object.extension/instance/canHaveNameAssignedBySquot.st deleted file mode 100644 index 5ec9b21e7..000000000 --- a/src/Squot.package/Object.extension/instance/canHaveNameAssignedBySquot.st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-shadow-capturing -canHaveNameAssignedBySquot - "All objects except the most trivial ones can get a name, even if they don't usually need - one. This is used to assert that trivial objects really don't get names assigned." - ^ self class isImmediateClass not \ No newline at end of file diff --git a/src/Squot.package/Object.extension/instance/captureWithSquot..st b/src/Squot.package/Object.extension/instance/captureWithSquot..st deleted file mode 100644 index f47bfbf5a..000000000 --- a/src/Squot.package/Object.extension/instance/captureWithSquot..st +++ /dev/null @@ -1,11 +0,0 @@ -*Squot-trackable-capturing -captureWithSquot: aCapturer - "Use aCapturer to answer a conserved form of me that is suitable to be stored in Snapshots." - | replacementOrSelf | - self deprecated: 'Ask the mirror instead'. - self class isImmediateClass ifTrue: [^ aCapturer capturePrimitiveValue: self]. - self class isBits ifTrue: [^ aCapturer captureBits: self]. - replacementOrSelf := self squotReplacementFor: aCapturer. - ^ aCapturer - capture: replacementOrSelf - as: replacementOrSelf squotShadowFactory \ No newline at end of file diff --git a/src/Squot.package/Object.extension/instance/captureWithSquot.st b/src/Squot.package/Object.extension/instance/captureWithSquot.st deleted file mode 100644 index 37b902469..000000000 --- a/src/Squot.package/Object.extension/instance/captureWithSquot.st +++ /dev/null @@ -1,6 +0,0 @@ -*Squot-trackable -captureWithSquot - "Answer a conserved form of me that is suitable to be stored in Snapshots. - Can be redefined to use another capturer or to return a shadow right away, when the shadow does not need to support cyclic references." - self class isImmediateClass ifTrue: [^ SquotPrimitiveValue for: self]. - ^ SquotObjectCapturer new captureStandalone: self \ No newline at end of file diff --git a/src/Squot.package/Object.extension/instance/hasSquotShadowName.st b/src/Squot.package/Object.extension/instance/hasSquotShadowName.st deleted file mode 100644 index 065870609..000000000 --- a/src/Squot.package/Object.extension/instance/hasSquotShadowName.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot -hasSquotShadowName - ^ false \ No newline at end of file diff --git a/src/Squot.package/Object.extension/instance/shouldHaveNameAssignedBySquot.st b/src/Squot.package/Object.extension/instance/shouldHaveNameAssignedBySquot.st deleted file mode 100644 index 8263d409e..000000000 --- a/src/Squot.package/Object.extension/instance/shouldHaveNameAssignedBySquot.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-trackable-capturing -shouldHaveNameAssignedBySquot - "Answer if I should get name assigned while capturing objects. This helps preserve identity in repeated captures and diffs." - ^ self squotShouldKeepIdentity \ No newline at end of file diff --git a/src/Squot.package/Object.extension/instance/squotAddTransientStoreInfoTo..st b/src/Squot.package/Object.extension/instance/squotAddTransientStoreInfoTo..st deleted file mode 100644 index e61abd814..000000000 --- a/src/Squot.package/Object.extension/instance/squotAddTransientStoreInfoTo..st +++ /dev/null @@ -1,7 +0,0 @@ -*Squot-trackable -squotAddTransientStoreInfoTo: aTrackedObjectMetadata - "Add properties to aDictionary that should not be stored in a repository - because this property is only relevant in the currently running object memory. - Override in subclasses if appropriate. - Don't forget to call super, in case something is added here!" - aTrackedObjectMetadata replaceObjectNamesWithProperReferences \ No newline at end of file diff --git a/src/Squot.package/Object.extension/instance/squotCaptureSlotsIn.with..st b/src/Squot.package/Object.extension/instance/squotCaptureSlotsIn.with..st deleted file mode 100644 index 98e66691d..000000000 --- a/src/Squot.package/Object.extension/instance/squotCaptureSlotsIn.with..st +++ /dev/null @@ -1,14 +0,0 @@ -*Squot-trackable-capturing -squotCaptureSlotsIn: anObjectShadow with: aCapturer - self flag: #deprecated. "Use SquotObjectMirror>>initializeSnapshot: anObjectShadow of: self with: aCapturer instead." - self squotRelevantInstVars do: [:each | - anObjectShadow - addInstVarNamed: each - withValue: (self instVarNamed: each) - with: aCapturer]. - (self class isVariable and: [self class isWeak not]) ifTrue: - [1 to: self basicSize do: [:index | - anObjectShadow - addVariableSlotAt: index - withValue: (self basicAt: index) - with: aCapturer]]. \ No newline at end of file diff --git a/src/Squot.package/Object.extension/instance/squotDecoratedLike..st b/src/Squot.package/Object.extension/instance/squotDecoratedLike..st deleted file mode 100644 index 7bf55652c..000000000 --- a/src/Squot.package/Object.extension/instance/squotDecoratedLike..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot -squotDecoratedLike: aDecoratedObject - ^ aDecoratedObject squotSameDecorationOn: self \ No newline at end of file diff --git a/src/Squot.package/Object.extension/instance/squotInitializeStoreInfo..st b/src/Squot.package/Object.extension/instance/squotInitializeStoreInfo..st deleted file mode 100644 index 76230c9ed..000000000 --- a/src/Squot.package/Object.extension/instance/squotInitializeStoreInfo..st +++ /dev/null @@ -1,6 +0,0 @@ -*Squot-trackable -squotInitializeStoreInfo: aTrackedObjectMetadata - "Initialize metadata about me when stored in an artifact. - Subclasses may override to add additional properties. Do not forget to call super!" - aTrackedObjectMetadata objectClass: self class. - \ No newline at end of file diff --git a/src/Squot.package/Object.extension/instance/squotReactivateWith..st b/src/Squot.package/Object.extension/instance/squotReactivateWith..st deleted file mode 100644 index e229d4882..000000000 --- a/src/Squot.package/Object.extension/instance/squotReactivateWith..st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-trackable -squotReactivateWith: aMaterializer - "I was freshly materialized, reactivate me in this image." - ^ self comeFullyUpOnReload: aMaterializer \ No newline at end of file diff --git a/src/Squot.package/Object.extension/instance/squotRelevantInstVars.st b/src/Squot.package/Object.extension/instance/squotRelevantInstVars.st deleted file mode 100644 index fe9c22b49..000000000 --- a/src/Squot.package/Object.extension/instance/squotRelevantInstVars.st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-trackable-capturing -squotRelevantInstVars - "Answer all instance variable names that should be captured by default." - ^ self class squotRelevantInstVars copyWithoutAll: - (SquotCurrentMetadata value ignoredInstanceVariablesIn: self) \ No newline at end of file diff --git a/src/Squot.package/Object.extension/instance/squotRemoveTransientStoreInfoFrom..st b/src/Squot.package/Object.extension/instance/squotRemoveTransientStoreInfoFrom..st deleted file mode 100644 index d66f69e54..000000000 --- a/src/Squot.package/Object.extension/instance/squotRemoveTransientStoreInfoFrom..st +++ /dev/null @@ -1,7 +0,0 @@ -*Squot-trackable -squotRemoveTransientStoreInfoFrom: aTrackedObjectMetadata - "Remove properties from aDictionary that should not be stored in a repository - because this property is only relevant in the currently running object memory. - Override in subclasses if appropriate. - Don't forget to call super, in case something is added here!" - aTrackedObjectMetadata replaceObjectReferencesByTheirNames. \ No newline at end of file diff --git a/src/Squot.package/Object.extension/instance/squotReplacementFor..st b/src/Squot.package/Object.extension/instance/squotReplacementFor..st deleted file mode 100644 index db19dd7f6..000000000 --- a/src/Squot.package/Object.extension/instance/squotReplacementFor..st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-trackable-capturing -squotReplacementFor: aCapturer - "Answer an object that shall take my place in the captured object graph." - self flag: #deprecated. "Ask the mirror instead." - ^ self objectForDataStream: aCapturer \ No newline at end of file diff --git a/src/Squot.package/Object.extension/instance/squotShadowFactory.st b/src/Squot.package/Object.extension/instance/squotShadowFactory.st deleted file mode 100644 index e7a7c2b1f..000000000 --- a/src/Squot.package/Object.extension/instance/squotShadowFactory.st +++ /dev/null @@ -1,6 +0,0 @@ -*Squot-trackable-capturing -squotShadowFactory - self flag: #deprecated. "Ask the mirror instead." - ^ self class isImmediateClass - ifTrue: [SquotPrimitiveValue] - ifFalse: [SquotObjectShadow] \ No newline at end of file diff --git a/src/Squot.package/Object.extension/instance/squotShouldKeepIdentity.st b/src/Squot.package/Object.extension/instance/squotShouldKeepIdentity.st deleted file mode 100644 index edd885fa1..000000000 --- a/src/Squot.package/Object.extension/instance/squotShouldKeepIdentity.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-trackable-capturing -squotShouldKeepIdentity - "Answer if I should get a name assigned while capturing objects. This helps preserve identity in repeated captures and diffs." - ^ self class isImmediateClass not \ No newline at end of file diff --git a/src/Squot.package/Object.extension/instance/squotWrite.with..st b/src/Squot.package/Object.extension/instance/squotWrite.with..st deleted file mode 100644 index 6f934208d..000000000 --- a/src/Squot.package/Object.extension/instance/squotWrite.with..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-serializing -squotWrite: anArtifact with: aSerializer - ^ aSerializer writeObject: self from: anArtifact \ No newline at end of file diff --git a/src/Squot.package/Object.extension/instance/undecorated.st b/src/Squot.package/Object.extension/instance/undecorated.st deleted file mode 100644 index 231e244ca..000000000 --- a/src/Squot.package/Object.extension/instance/undecorated.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot -undecorated - "Answer the object that is decorated by me and possibly other decorators." - ^ self \ No newline at end of file diff --git a/src/Squot.package/Object.extension/methodProperties.json b/src/Squot.package/Object.extension/methodProperties.json deleted file mode 100644 index af5817888..000000000 --- a/src/Squot.package/Object.extension/methodProperties.json +++ /dev/null @@ -1,26 +0,0 @@ -{ - "class" : { - "squotAllSerializers" : "jr 3/17/2019 00:42", - "squotRelevantInstVars" : "jr 7/16/2017 13:02", - "squotSmartRefStreamSerializer" : "jr 3/17/2019 00:45", - "squotSpecializedSerializers" : "jr 3/17/2019 00:53", - "squotStonSerializer" : "jr 3/17/2019 00:46" }, - "instance" : { - "browseFromSquotWorkingCopyArtifact:" : "jr 11/1/2020 21:06", - "canHaveNameAssignedBySquot" : "jr 9/25/2019 14:34", - "captureWithSquot" : "jr 7/16/2017 00:16", - "captureWithSquot:" : "jr 7/25/2021 16:36", - "hasSquotShadowName" : "jr 6/20/2017 13:15", - "shouldHaveNameAssignedBySquot" : "jr 6/22/2017 15:19", - "squotAddTransientStoreInfoTo:" : "jr 7/16/2017 18:57", - "squotCaptureSlotsIn:with:" : "jr 1/16/2021 11:42", - "squotDecoratedLike:" : "jr 8/13/2017 18:34", - "squotInitializeStoreInfo:" : "jr 9/20/2017 20:24", - "squotReactivateWith:" : "jr 8/13/2017 20:39", - "squotRelevantInstVars" : "jr 10/1/2017 21:58", - "squotRemoveTransientStoreInfoFrom:" : "jr 7/16/2017 16:54", - "squotReplacementFor:" : "jr 4/3/2021 20:45", - "squotShadowFactory" : "jr 1/10/2021 23:57", - "squotShouldKeepIdentity" : "jr 6/23/2017 23:52", - "squotWrite:with:" : "jr 7/20/2017 14:05", - "undecorated" : "jr 6/20/2017 16:13" } } diff --git a/src/Squot.package/Object.extension/properties.json b/src/Squot.package/Object.extension/properties.json deleted file mode 100644 index 3d3b9ec45..000000000 --- a/src/Squot.package/Object.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Object" } diff --git a/src/Squot.package/PackageInfo.extension/class/squotCypressSerializer.st b/src/Squot.package/PackageInfo.extension/class/squotCypressSerializer.st deleted file mode 100644 index bd67dd1da..000000000 --- a/src/Squot.package/PackageInfo.extension/class/squotCypressSerializer.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-trackable -squotCypressSerializer - - ^ SquotCypressCodeSerializer \ No newline at end of file diff --git a/src/Squot.package/PackageInfo.extension/class/squotEnvironmentInMetadata..st b/src/Squot.package/PackageInfo.extension/class/squotEnvironmentInMetadata..st deleted file mode 100644 index d25841d7d..000000000 --- a/src/Squot.package/PackageInfo.extension/class/squotEnvironmentInMetadata..st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Packages -squotEnvironmentInMetadata: trackableObjectMetdata - "Retrieve the environment from package artifact metadata." - ^ trackableObjectMetdata at: #environment ifAbsent: [Environment current] \ No newline at end of file diff --git a/src/Squot.package/PackageInfo.extension/class/squotEnvironmentOf..st b/src/Squot.package/PackageInfo.extension/class/squotEnvironmentOf..st deleted file mode 100644 index f467c8a84..000000000 --- a/src/Squot.package/PackageInfo.extension/class/squotEnvironmentOf..st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Packages -squotEnvironmentOf: aSquotLiveArtifact - "Look up the environment of a package artifact." - ^ self squotEnvironmentInMetadata: aSquotLiveArtifact liveStoreInfo \ No newline at end of file diff --git a/src/Squot.package/PackageInfo.extension/class/squotMirror.st b/src/Squot.package/PackageInfo.extension/class/squotMirror.st deleted file mode 100644 index 9c6095887..000000000 --- a/src/Squot.package/PackageInfo.extension/class/squotMirror.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot -squotMirror - ^ SquotPackageMirror new \ No newline at end of file diff --git a/src/Squot.package/PackageInfo.extension/class/squotSetEnvironment.inMetadata..st b/src/Squot.package/PackageInfo.extension/class/squotSetEnvironment.inMetadata..st deleted file mode 100644 index ef0f13661..000000000 --- a/src/Squot.package/PackageInfo.extension/class/squotSetEnvironment.inMetadata..st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Packages -squotSetEnvironment: anEnvironment inMetadata: trackableObjectMetdata - "Set the environment in package artifact metadata." - ^ trackableObjectMetdata at: #environment put: anEnvironment \ No newline at end of file diff --git a/src/Squot.package/PackageInfo.extension/class/squotSetEnvironmentOf.to..st b/src/Squot.package/PackageInfo.extension/class/squotSetEnvironmentOf.to..st deleted file mode 100644 index 965b29797..000000000 --- a/src/Squot.package/PackageInfo.extension/class/squotSetEnvironmentOf.to..st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Packages -squotSetEnvironmentOf: aSquotLiveArtifact to: anEnvironment - "Set the environment of a package artifact." - ^ aSquotLiveArtifact liveStoreInfo at: #environment put: anEnvironment \ No newline at end of file diff --git a/src/Squot.package/PackageInfo.extension/instance/captureWithSquot..st b/src/Squot.package/PackageInfo.extension/instance/captureWithSquot..st deleted file mode 100644 index e2eefee42..000000000 --- a/src/Squot.package/PackageInfo.extension/instance/captureWithSquot..st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-trackable -captureWithSquot: aCapturer - self flag: #deprecated. "Ask the mirror instead." - ^ aCapturer shadowOf: self ifAbsentPut: [self captureWithSquot] \ No newline at end of file diff --git a/src/Squot.package/PackageInfo.extension/instance/captureWithSquot.st b/src/Squot.package/PackageInfo.extension/instance/captureWithSquot.st deleted file mode 100644 index 361fca265..000000000 --- a/src/Squot.package/PackageInfo.extension/instance/captureWithSquot.st +++ /dev/null @@ -1,15 +0,0 @@ -*Squot-trackable -captureWithSquot - | environment mcEnvironment snapshot | - self flag: #deprecated. "Ask the mirror instead." - environment := self class squotEnvironmentInMetadata: SquotCurrentMetadata value. - mcEnvironment := self workingCopy environment. - (mcEnvironment ~= environment and: [environment = Smalltalk globals]) ifTrue: - [Warning signal: 'Capturing ', self asString, ' in Environment ', mcEnvironment asString. - environment := mcEnvironment]. - snapshot := environment beCurrentDuring: - [(MCPackage named: self packageName) snapshot]. - ^ self squotShadowFactory - forPackageNamed: self packageName - withSnapshot: snapshot - tonelProperties: (SquotPackageInfoExtension of: self) tonelProperties \ No newline at end of file diff --git a/src/Squot.package/PackageInfo.extension/instance/shouldHaveNameAssignedBySquot.st b/src/Squot.package/PackageInfo.extension/instance/shouldHaveNameAssignedBySquot.st deleted file mode 100644 index 13d113b0c..000000000 --- a/src/Squot.package/PackageInfo.extension/instance/shouldHaveNameAssignedBySquot.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-trackable -shouldHaveNameAssignedBySquot - "Package is identified by its name already." - ^ false \ No newline at end of file diff --git a/src/Squot.package/PackageInfo.extension/instance/squotAddTransientStoreInfoTo..st b/src/Squot.package/PackageInfo.extension/instance/squotAddTransientStoreInfoTo..st deleted file mode 100644 index 7c97495d7..000000000 --- a/src/Squot.package/PackageInfo.extension/instance/squotAddTransientStoreInfoTo..st +++ /dev/null @@ -1,11 +0,0 @@ -*Squot-trackable -squotAddTransientStoreInfoTo: aTrackableObjectMetadata - | monticelloPackage | - super squotAddTransientStoreInfoTo: aTrackableObjectMetadata. - (monticelloPackage := self mcPackage) hasWorkingCopy - ifTrue: [aTrackableObjectMetadata at: #environment - put: (monticelloPackage workingCopy environment)] - ifFalse: [ | newWorkingCopy | - newWorkingCopy := monticelloPackage workingCopy. - newWorkingCopy environment: Environment current. - aTrackableObjectMetadata at: #environment put: newWorkingCopy environment]. \ No newline at end of file diff --git a/src/Squot.package/PackageInfo.extension/instance/squotRemoveTransientStoreInfoFrom..st b/src/Squot.package/PackageInfo.extension/instance/squotRemoveTransientStoreInfoFrom..st deleted file mode 100644 index 91fc8f385..000000000 --- a/src/Squot.package/PackageInfo.extension/instance/squotRemoveTransientStoreInfoFrom..st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-trackable -squotRemoveTransientStoreInfoFrom: aDictionary - super squotRemoveTransientStoreInfoFrom: aDictionary. - aDictionary removeKey: #environment ifAbsent: []. \ No newline at end of file diff --git a/src/Squot.package/PackageInfo.extension/instance/squotShadowFactory.st b/src/Squot.package/PackageInfo.extension/instance/squotShadowFactory.st deleted file mode 100644 index 0fbf18eec..000000000 --- a/src/Squot.package/PackageInfo.extension/instance/squotShadowFactory.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-trackable -squotShadowFactory - self flag: #deprecated. "Ask the mirror instead." - ^ SquotPackageShadow \ No newline at end of file diff --git a/src/Squot.package/PackageInfo.extension/instance/squotShouldKeepIdentity.st b/src/Squot.package/PackageInfo.extension/instance/squotShouldKeepIdentity.st deleted file mode 100644 index d51c30c8b..000000000 --- a/src/Squot.package/PackageInfo.extension/instance/squotShouldKeepIdentity.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-trackable -squotShouldKeepIdentity - "If a PackageInfo is already present, keep it." - ^ true \ No newline at end of file diff --git a/src/Squot.package/PackageInfo.extension/methodProperties.json b/src/Squot.package/PackageInfo.extension/methodProperties.json deleted file mode 100644 index 67f0dd375..000000000 --- a/src/Squot.package/PackageInfo.extension/methodProperties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "class" : { - "squotCypressSerializer" : "jr 3/17/2019 00:36", - "squotEnvironmentInMetadata:" : "jr 12/23/2019 12:20", - "squotEnvironmentOf:" : "jr 12/22/2019 17:32", - "squotMirror" : "jr 4/7/2021 22:36", - "squotSetEnvironment:inMetadata:" : "jr 12/22/2019 17:32", - "squotSetEnvironmentOf:to:" : "jr 12/22/2019 17:24" }, - "instance" : { - "captureWithSquot" : "jr 1/10/2021 23:59", - "captureWithSquot:" : "jr 1/11/2021 00:01", - "shouldHaveNameAssignedBySquot" : "jr 6/26/2021 22:37", - "squotAddTransientStoreInfoTo:" : "jr 7/22/2017 00:16", - "squotRemoveTransientStoreInfoFrom:" : "jr 3/5/2017 17:24", - "squotShadowFactory" : "jr 1/10/2021 23:57", - "squotShouldKeepIdentity" : "jr 6/26/2021 22:38" } } diff --git a/src/Squot.package/PackageInfo.extension/properties.json b/src/Squot.package/PackageInfo.extension/properties.json deleted file mode 100644 index 7da79deb3..000000000 --- a/src/Squot.package/PackageInfo.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "PackageInfo" } diff --git a/src/Squot.package/Point.extension/instance/squotShouldKeepIdentity.st b/src/Squot.package/Point.extension/instance/squotShouldKeepIdentity.st deleted file mode 100644 index 4b28d3976..000000000 --- a/src/Squot.package/Point.extension/instance/squotShouldKeepIdentity.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-trackable-capturing -squotShouldKeepIdentity - "I am used as a value object, my identity should not matter." - ^ false \ No newline at end of file diff --git a/src/Squot.package/Point.extension/methodProperties.json b/src/Squot.package/Point.extension/methodProperties.json deleted file mode 100644 index 0f1c4ca3d..000000000 --- a/src/Squot.package/Point.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "squotShouldKeepIdentity" : "jr 7/16/2017 12:32" } } diff --git a/src/Squot.package/Point.extension/properties.json b/src/Squot.package/Point.extension/properties.json deleted file mode 100644 index 3ae71f02e..000000000 --- a/src/Squot.package/Point.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Point" } diff --git a/src/Squot.package/ProtoObject.extension/class/squotMirror.st b/src/Squot.package/ProtoObject.extension/class/squotMirror.st deleted file mode 100644 index f3b42b188..000000000 --- a/src/Squot.package/ProtoObject.extension/class/squotMirror.st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot -squotMirror - self isImmediateClass ifTrue: [^ SquotOpaqueValueMirror new]. - self isBits ifTrue: [^ SquotBitsMirror class: self]. - ^ SquotObjectMirror class: self \ No newline at end of file diff --git a/src/Squot.package/ProtoObject.extension/methodProperties.json b/src/Squot.package/ProtoObject.extension/methodProperties.json deleted file mode 100644 index 2040f5a1a..000000000 --- a/src/Squot.package/ProtoObject.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "squotMirror" : "jr 4/8/2021 21:15" }, - "instance" : { - } } diff --git a/src/Squot.package/ProtoObject.extension/properties.json b/src/Squot.package/ProtoObject.extension/properties.json deleted file mode 100644 index 0affe292f..000000000 --- a/src/Squot.package/ProtoObject.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "ProtoObject" } diff --git a/src/Squot.package/STON.extension/class/squotPut.onStream..st b/src/Squot.package/STON.extension/class/squotPut.onStream..st deleted file mode 100644 index ceee96efe..000000000 --- a/src/Squot.package/STON.extension/class/squotPut.onStream..st +++ /dev/null @@ -1,7 +0,0 @@ -*Squot-serialization -squotPut: anObject onStream: aStream - "Write anObject pretty-printed and with unix line endings to aStream" - ^ (self writer on: aStream) - newLine: String lf; - prettyPrint: true; - nextPut: anObject \ No newline at end of file diff --git a/src/Squot.package/STON.extension/methodProperties.json b/src/Squot.package/STON.extension/methodProperties.json deleted file mode 100644 index 93f791268..000000000 --- a/src/Squot.package/STON.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "squotPut:onStream:" : "jr 2/24/2017 22:01" }, - "instance" : { - } } diff --git a/src/Squot.package/STON.extension/properties.json b/src/Squot.package/STON.extension/properties.json deleted file mode 100644 index c00d317e4..000000000 --- a/src/Squot.package/STON.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "STON" } diff --git a/src/Squot.package/SUnitChangeLogSuppressor.class/README.md b/src/Squot.package/SUnitChangeLogSuppressor.class/README.md deleted file mode 100644 index 0b5063766..000000000 --- a/src/Squot.package/SUnitChangeLogSuppressor.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I try to prevent cluttering of the changes file during tests by suppressing some change notifications. \ No newline at end of file diff --git a/src/Squot.package/SUnitChangeLogSuppressor.class/instance/suppressChangeNotificationsDuring..st b/src/Squot.package/SUnitChangeLogSuppressor.class/instance/suppressChangeNotificationsDuring..st deleted file mode 100644 index 1bcbf1813..000000000 --- a/src/Squot.package/SUnitChangeLogSuppressor.class/instance/suppressChangeNotificationsDuring..st +++ /dev/null @@ -1,3 +0,0 @@ -utilities -suppressChangeNotificationsDuring: aBlock - ^ SystemChangeNotifier uniqueInstance doSilently: aBlock \ No newline at end of file diff --git a/src/Squot.package/SUnitChangeLogSuppressor.class/methodProperties.json b/src/Squot.package/SUnitChangeLogSuppressor.class/methodProperties.json deleted file mode 100644 index 32b9d2199..000000000 --- a/src/Squot.package/SUnitChangeLogSuppressor.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "suppressChangeNotificationsDuring:" : "jr 4/29/2018 17:20" } } diff --git a/src/Squot.package/SUnitChangeLogSuppressor.class/properties.json b/src/Squot.package/SUnitChangeLogSuppressor.class/properties.json deleted file mode 100644 index 4c5dc1434..000000000 --- a/src/Squot.package/SUnitChangeLogSuppressor.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Support", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 4/29/2018 17:16", - "instvars" : [ - "hasLoggedStart" ], - "name" : "SUnitChangeLogSuppressor", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SUnitChangeLogSuppressorTest.class/README.md b/src/Squot.package/SUnitChangeLogSuppressorTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SUnitChangeLogSuppressorTest.class/instance/setUp.st b/src/Squot.package/SUnitChangeLogSuppressorTest.class/instance/setUp.st deleted file mode 100644 index b15f33f9a..000000000 --- a/src/Squot.package/SUnitChangeLogSuppressorTest.class/instance/setUp.st +++ /dev/null @@ -1,3 +0,0 @@ -running -setUp - changeLogSuppressor := SUnitChangeLogSuppressor new. \ No newline at end of file diff --git a/src/Squot.package/SUnitChangeLogSuppressorTest.class/instance/testAnswersSuppressBlockValue.st b/src/Squot.package/SUnitChangeLogSuppressorTest.class/instance/testAnswersSuppressBlockValue.st deleted file mode 100644 index 2daf169a6..000000000 --- a/src/Squot.package/SUnitChangeLogSuppressorTest.class/instance/testAnswersSuppressBlockValue.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -testAnswersSuppressBlockValue - self assert: (changeLogSuppressor suppressChangeNotificationsDuring: [42]) = 42. \ No newline at end of file diff --git a/src/Squot.package/SUnitChangeLogSuppressorTest.class/methodProperties.json b/src/Squot.package/SUnitChangeLogSuppressorTest.class/methodProperties.json deleted file mode 100644 index e7adbaf3e..000000000 --- a/src/Squot.package/SUnitChangeLogSuppressorTest.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "setUp" : "jr 4/29/2018 16:59", - "testAnswersSuppressBlockValue" : "jr 4/29/2018 17:00" } } diff --git a/src/Squot.package/SUnitChangeLogSuppressorTest.class/properties.json b/src/Squot.package/SUnitChangeLogSuppressorTest.class/properties.json deleted file mode 100644 index d2679f133..000000000 --- a/src/Squot.package/SUnitChangeLogSuppressorTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Support", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "changeLogSuppressor" ], - "name" : "SUnitChangeLogSuppressorTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotAbstractCollectionMerge.class/README.md b/src/Squot.package/SquotAbstractCollectionMerge.class/README.md deleted file mode 100644 index 38cac037e..000000000 --- a/src/Squot.package/SquotAbstractCollectionMerge.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A state-based three-way merge of some kind of collection. It can have conflicts about whether elements are part of the final collection or not. The elements can undergo merges themselves. \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/addMerge..st b/src/Squot.package/SquotAbstractCollectionMerge.class/instance/addMerge..st deleted file mode 100644 index e07149613..000000000 --- a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/addMerge..st +++ /dev/null @@ -1,4 +0,0 @@ -adding and removing -addMerge: aMerge - self assert: aMerge hasChanges description: 'should not add merges without changes'. - elementMerges at: (self keyOf: aMerge object) put: aMerge. \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/addModification..st b/src/Squot.package/SquotAbstractCollectionMerge.class/instance/addModification..st deleted file mode 100644 index 89b85d0df..000000000 --- a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/addModification..st +++ /dev/null @@ -1,5 +0,0 @@ -adding and removing -addModification: aModification - self assert: (aModification isAddition or: [aModification isRemoval or: [aModification isLoad]]) - description: 'Elements should be merged, not only modified'. - containerModifications at: (self keyOf: aModification object) put: aModification. \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/at..st b/src/Squot.package/SquotAbstractCollectionMerge.class/instance/at..st deleted file mode 100644 index 47e85bdd9..000000000 --- a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/at..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -at: key - ^ self conflictAt: key ifAbsent: [self modificationAt: key ifAbsent: [self mergeAt: key]] \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/conflictAt..st b/src/Squot.package/SquotAbstractCollectionMerge.class/instance/conflictAt..st deleted file mode 100644 index d4d394a4a..000000000 --- a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/conflictAt..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -conflictAt: key - ^ containerConflicts at: key \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/conflictAt.ifAbsent..st b/src/Squot.package/SquotAbstractCollectionMerge.class/instance/conflictAt.ifAbsent..st deleted file mode 100644 index d2abbf61b..000000000 --- a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/conflictAt.ifAbsent..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -conflictAt: key ifAbsent: aBlock - ^ containerConflicts at: key ifAbsent: aBlock \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/conflicts.st b/src/Squot.package/SquotAbstractCollectionMerge.class/instance/conflicts.st deleted file mode 100644 index 199f119f3..000000000 --- a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/conflicts.st +++ /dev/null @@ -1,8 +0,0 @@ -accessing -conflicts - | collection | - collection := Set new - addAll: containerConflicts values; - yourself. - self elementMerges do: [:each | collection addAll: each conflicts]. - ^ collection \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/containerConflicts.st b/src/Squot.package/SquotAbstractCollectionMerge.class/instance/containerConflicts.st deleted file mode 100644 index 38bb9e2c5..000000000 --- a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/containerConflicts.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -containerConflicts - - ^ containerConflicts \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/containerModifications.st b/src/Squot.package/SquotAbstractCollectionMerge.class/instance/containerModifications.st deleted file mode 100644 index 3ddd793f5..000000000 --- a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/containerModifications.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -containerModifications - - ^ containerModifications \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/elementMerges.st b/src/Squot.package/SquotAbstractCollectionMerge.class/instance/elementMerges.st deleted file mode 100644 index ba50c2663..000000000 --- a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/elementMerges.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -elementMerges - ^ elementMerges \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/hasChanges.st b/src/Squot.package/SquotAbstractCollectionMerge.class/instance/hasChanges.st deleted file mode 100644 index cb07f1d03..000000000 --- a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/hasChanges.st +++ /dev/null @@ -1,5 +0,0 @@ -testing -hasChanges - ^ (containerConflicts anySatisfy: [:each | each hasChanges]) or: - [(containerModifications anySatisfy: [:each | each squotHasChanges]) or: - [elementMerges anySatisfy: [:each | each hasChanges]]] \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/hasChangesAt..st b/src/Squot.package/SquotAbstractCollectionMerge.class/instance/hasChangesAt..st deleted file mode 100644 index b716bc043..000000000 --- a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/hasChangesAt..st +++ /dev/null @@ -1,5 +0,0 @@ -testing -hasChangesAt: key - ^ (containerConflicts at: key ifAbsent: - [containerModifications at: key ifAbsent: - [elementMerges at: key ifAbsent: [^ false]]]) hasChanges \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/hasConflicts.st b/src/Squot.package/SquotAbstractCollectionMerge.class/instance/hasConflicts.st deleted file mode 100644 index 4c01f1f45..000000000 --- a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/hasConflicts.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -hasConflicts - ^ (self containerConflicts anySatisfy: [:each | each isResolved not]) - or: [self elementMerges anySatisfy: [:each | each hasConflicts]] \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/includesModificationAt..st b/src/Squot.package/SquotAbstractCollectionMerge.class/instance/includesModificationAt..st deleted file mode 100644 index d414f8923..000000000 --- a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/includesModificationAt..st +++ /dev/null @@ -1,5 +0,0 @@ -testing -includesModificationAt: key - ^ (containerConflicts at: key ifAbsent: - [containerModifications at: key ifAbsent: - [elementMerges at: key ifAbsent: [^ false]]]) mayAffectArtifact \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/initialize.st b/src/Squot.package/SquotAbstractCollectionMerge.class/instance/initialize.st deleted file mode 100644 index ff0341d57..000000000 --- a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/initialize.st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -initialize - containerConflicts := Dictionary new. - containerModifications := Dictionary new. - elementMerges := Dictionary new. \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/keyOf..st b/src/Squot.package/SquotAbstractCollectionMerge.class/instance/keyOf..st deleted file mode 100644 index 4dd1e3f07..000000000 --- a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/keyOf..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -keyOf: anObject - ^ self keyOf: anObject ifAbsent: [(NotFound object: anObject) signal] \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/keyOf.ifAbsent..st b/src/Squot.package/SquotAbstractCollectionMerge.class/instance/keyOf.ifAbsent..st deleted file mode 100644 index a0733112a..000000000 --- a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/keyOf.ifAbsent..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -keyOf: anObject ifAbsent: aBlock - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/mergeAt..st b/src/Squot.package/SquotAbstractCollectionMerge.class/instance/mergeAt..st deleted file mode 100644 index 09c494916..000000000 --- a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/mergeAt..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -mergeAt: key - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/modificationAt.ifAbsent..st b/src/Squot.package/SquotAbstractCollectionMerge.class/instance/modificationAt.ifAbsent..st deleted file mode 100644 index c179892fc..000000000 --- a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/modificationAt.ifAbsent..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -modificationAt: key ifAbsent: aBlock - ^ containerModifications at: key ifAbsent: aBlock \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/modifies..st b/src/Squot.package/SquotAbstractCollectionMerge.class/instance/modifies..st deleted file mode 100644 index 65fa8c1e3..000000000 --- a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/modifies..st +++ /dev/null @@ -1,5 +0,0 @@ -testing -modifies: anObject - | key | - key := self keyOf: anObject ifAbsent: [^ false]. - ^ self includesModificationAt: key \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/printOn..st b/src/Squot.package/SquotAbstractCollectionMerge.class/instance/printOn..st deleted file mode 100644 index 9fe6e3eef..000000000 --- a/src/Squot.package/SquotAbstractCollectionMerge.class/instance/printOn..st +++ /dev/null @@ -1,10 +0,0 @@ -printing -printOn: aStream - super printOn: aStream. - aStream nextPutAll: ' ('; - print: containerConflicts size; - nextPutAll: ' conflicts, '; - print: containerModifications size; - nextPutAll: ' changes, '; - print: elementMerges size; - nextPutAll: ' merges)'. \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractCollectionMerge.class/methodProperties.json b/src/Squot.package/SquotAbstractCollectionMerge.class/methodProperties.json deleted file mode 100644 index c508e9b75..000000000 --- a/src/Squot.package/SquotAbstractCollectionMerge.class/methodProperties.json +++ /dev/null @@ -1,24 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "addMerge:" : "jr 8/3/2019 21:29", - "addModification:" : "jr 11/19/2020 15:01", - "at:" : "jr 7/30/2019 01:53", - "conflictAt:" : "jr 7/30/2019 01:12", - "conflictAt:ifAbsent:" : "jr 7/30/2019 01:13", - "conflicts" : "jr 7/30/2019 21:25", - "containerConflicts" : "jr 7/30/2019 01:11", - "containerModifications" : "jr 7/30/2019 01:44", - "elementMerges" : "jr 7/30/2019 01:51", - "hasChanges" : "jr 6/29/2022 00:41", - "hasChangesAt:" : "jr 11/19/2020 19:12", - "hasConflicts" : "jr 8/3/2019 21:19", - "includesModificationAt:" : "jr 11/19/2020 19:08", - "initialize" : "jr 7/30/2019 02:03", - "keyOf:" : "jr 10/30/2021 16:00", - "keyOf:ifAbsent:" : "jr 7/30/2019 01:22", - "mergeAt:" : "jr 7/30/2019 01:16", - "modificationAt:ifAbsent:" : "jr 7/30/2019 01:54", - "modifies:" : "jr 7/30/2019 02:02", - "printOn:" : "jr 1/2/2021 17:02" } } diff --git a/src/Squot.package/SquotAbstractCollectionMerge.class/properties.json b/src/Squot.package/SquotAbstractCollectionMerge.class/properties.json deleted file mode 100644 index 28c5eda16..000000000 --- a/src/Squot.package/SquotAbstractCollectionMerge.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Merging", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 7/30/2019 01:15", - "instvars" : [ - "containerConflicts", - "containerModifications", - "elementMerges" ], - "name" : "SquotAbstractCollectionMerge", - "pools" : [ - ], - "super" : "SquotAbstractMerge", - "type" : "normal" } diff --git a/src/Squot.package/SquotAbstractMerge.class/README.md b/src/Squot.package/SquotAbstractMerge.class/README.md deleted file mode 100644 index da8b3ec52..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A state-based three-way merge of anything. \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/class/into.merge.basedOn..st b/src/Squot.package/SquotAbstractMerge.class/class/into.merge.basedOn..st deleted file mode 100644 index f628d7fc2..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/class/into.merge.basedOn..st +++ /dev/null @@ -1,9 +0,0 @@ -instance creation -into: aWorkingCopy merge: incomingObject basedOn: baseObject - self flag: #deprecated. 'Compute differences in the caller and use full constructor for the merge instead'. - ^ self new - working: aWorkingCopy; - incoming: incomingObject; - base: baseObject; - computeDifferences; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/base..st b/src/Squot.package/SquotAbstractMerge.class/instance/base..st deleted file mode 100644 index 6e32bc756..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/base..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -base: anObject - - base := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/base.st b/src/Squot.package/SquotAbstractMerge.class/instance/base.st deleted file mode 100644 index 1b44f592d..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/base.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -base - - ^ base \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/browseFromSquotWorkingCopyArtifact..st b/src/Squot.package/SquotAbstractMerge.class/instance/browseFromSquotWorkingCopyArtifact..st deleted file mode 100644 index b887f7eae..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/browseFromSquotWorkingCopyArtifact..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -browseFromSquotWorkingCopyArtifact: aWorkingCopyArtifact - ^ self object browseFromSquotWorkingCopyArtifact: aWorkingCopyArtifact \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/chooseIncoming.st b/src/Squot.package/SquotAbstractMerge.class/instance/chooseIncoming.st deleted file mode 100644 index 86260d4ef..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/chooseIncoming.st +++ /dev/null @@ -1,3 +0,0 @@ -merging -chooseIncoming - self subclassResponsibility. \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/chooseWorking.st b/src/Squot.package/SquotAbstractMerge.class/instance/chooseWorking.st deleted file mode 100644 index dab144653..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/chooseWorking.st +++ /dev/null @@ -1,3 +0,0 @@ -merging -chooseWorking - self subclassResponsibility. \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/computeDifferences.st b/src/Squot.package/SquotAbstractMerge.class/instance/computeDifferences.st deleted file mode 100644 index 89be4e3d2..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/computeDifferences.st +++ /dev/null @@ -1,6 +0,0 @@ -private -computeDifferences - "Initialize conflicts, subordinate merges, and modifications - from base, working, and incoming." - "Called by the class-side factory method #into:merge:basedOn:" - self subclassResponsibility. \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/conflicts.st b/src/Squot.package/SquotAbstractMerge.class/instance/conflicts.st deleted file mode 100644 index bc21823d2..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/conflicts.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -conflicts - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/hasChanges.st b/src/Squot.package/SquotAbstractMerge.class/instance/hasChanges.st deleted file mode 100644 index 1c7367151..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/hasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasChanges - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/hasConflicts.st b/src/Squot.package/SquotAbstractMerge.class/instance/hasConflicts.st deleted file mode 100644 index 259326530..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/hasConflicts.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasConflicts - ^ self conflicts anySatisfy: [:each | each isResolved not] \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/incoming..st b/src/Squot.package/SquotAbstractMerge.class/instance/incoming..st deleted file mode 100644 index be0e1c937..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/incoming..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -incoming: anObject - - incoming := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/incoming.st b/src/Squot.package/SquotAbstractMerge.class/instance/incoming.st deleted file mode 100644 index bcea466da..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/incoming.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -incoming - - ^ incoming \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/initializeSquotDiffNodes.with..st b/src/Squot.package/SquotAbstractMerge.class/instance/initializeSquotDiffNodes.with..st deleted file mode 100644 index 6073180df..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/initializeSquotDiffNodes.with..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -initializeSquotDiffNodes: aCollection with: aSquotDiffNodesBuilder - self subclassResponsibility. \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/isAddition.st b/src/Squot.package/SquotAbstractMerge.class/instance/isAddition.st deleted file mode 100644 index baeb145a3..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/isAddition.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isAddition - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/isMerge.st b/src/Squot.package/SquotAbstractMerge.class/instance/isMerge.st deleted file mode 100644 index a66730331..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/isMerge.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isMerge - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/isModification.st b/src/Squot.package/SquotAbstractMerge.class/instance/isModification.st deleted file mode 100644 index c39c76071..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/isModification.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isModification - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/isRemoval.st b/src/Squot.package/SquotAbstractMerge.class/instance/isRemoval.st deleted file mode 100644 index 8f7f6d5ac..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/isRemoval.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isRemoval - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/modifications.st b/src/Squot.package/SquotAbstractMerge.class/instance/modifications.st deleted file mode 100644 index 2d6fac854..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/modifications.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -modifications - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/modifies..st b/src/Squot.package/SquotAbstractMerge.class/instance/modifies..st deleted file mode 100644 index 9fd2c13d5..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/modifies..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -modifies: anObject - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/newSquotDiffNodes.st b/src/Squot.package/SquotAbstractMerge.class/instance/newSquotDiffNodes.st deleted file mode 100644 index 71703412f..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/newSquotDiffNodes.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -newSquotDiffNodes - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/object.st b/src/Squot.package/SquotAbstractMerge.class/instance/object.st deleted file mode 100644 index b063d786c..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/object.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -object - "Answer what this merge is about" - ^ working ifNil: [incoming] \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/privateResolvedPatch.st b/src/Squot.package/SquotAbstractMerge.class/instance/privateResolvedPatch.st deleted file mode 100644 index 1ad7e9fd6..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/privateResolvedPatch.st +++ /dev/null @@ -1,3 +0,0 @@ -private -privateResolvedPatch - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/resetChoice.st b/src/Squot.package/SquotAbstractMerge.class/instance/resetChoice.st deleted file mode 100644 index 9fee2671b..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/resetChoice.st +++ /dev/null @@ -1,3 +0,0 @@ -merging -resetChoice - self subclassResponsibility. \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/resolvedPatch.st b/src/Squot.package/SquotAbstractMerge.class/instance/resolvedPatch.st deleted file mode 100644 index 1f7b8ec4b..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/resolvedPatch.st +++ /dev/null @@ -1,4 +0,0 @@ -merging -resolvedPatch - self hasConflicts ifTrue: [self error: 'Conflicts not resolved']. - ^ self privateResolvedPatch \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/setWorking.incoming.base..st b/src/Squot.package/SquotAbstractMerge.class/instance/setWorking.incoming.base..st deleted file mode 100644 index 912130d59..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/setWorking.incoming.base..st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -setWorking: workingObject incoming: incomingObject base: baseObject - working := workingObject. - incoming := incomingObject. - base := baseObject. \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotAbstractMerge.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index 8a2826d9d..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotChangeAsStringOrText - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/squotHasChanges.st b/src/Squot.package/SquotAbstractMerge.class/instance/squotHasChanges.st deleted file mode 100644 index bde8f1651..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/squotHasChanges.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -squotHasChanges - "Adapter for diff object protocol." - ^ self hasChanges \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/squotToolsDiffNodeContent.st b/src/Squot.package/SquotAbstractMerge.class/instance/squotToolsDiffNodeContent.st deleted file mode 100644 index 4adbb172a..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/squotToolsDiffNodeContent.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -squotToolsDiffNodeContent - "Objects of this type are used as the content of SquotDiffNode. Marker method." - \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/working..st b/src/Squot.package/SquotAbstractMerge.class/instance/working..st deleted file mode 100644 index 2aa2aa57c..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/working..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -working: anObject - - working := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/instance/working.st b/src/Squot.package/SquotAbstractMerge.class/instance/working.st deleted file mode 100644 index 6d38782c8..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/instance/working.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -working - - ^ working \ No newline at end of file diff --git a/src/Squot.package/SquotAbstractMerge.class/methodProperties.json b/src/Squot.package/SquotAbstractMerge.class/methodProperties.json deleted file mode 100644 index 762934b7a..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/methodProperties.json +++ /dev/null @@ -1,33 +0,0 @@ -{ - "class" : { - "into:merge:basedOn:" : "jr 12/23/2020 22:06" }, - "instance" : { - "base" : "jr 7/30/2019 00:53", - "base:" : "jr 7/30/2019 00:53", - "browseFromSquotWorkingCopyArtifact:" : "jr 12/23/2019 15:09", - "chooseIncoming" : "jr 7/30/2019 00:53", - "chooseWorking" : "jr 7/30/2019 00:53", - "computeDifferences" : "jr 8/13/2019 17:28", - "conflicts" : "jr 7/30/2019 00:52", - "hasChanges" : "jr 7/30/2019 00:53", - "hasConflicts" : "jr 7/30/2019 01:56", - "incoming" : "jr 7/30/2019 00:53", - "incoming:" : "jr 7/30/2019 00:53", - "initializeSquotDiffNodes:with:" : "jr 9/25/2019 21:50", - "isAddition" : "jr 3/8/2022 21:50", - "isMerge" : "jr 11/18/2020 16:01", - "isModification" : "jr 3/8/2022 21:50", - "isRemoval" : "jr 3/8/2022 21:50", - "modifications" : "jr 7/30/2019 00:55", - "modifies:" : "jr 7/30/2019 02:02", - "newSquotDiffNodes" : "jr 9/25/2019 21:45", - "object" : "jr 8/3/2019 21:57", - "privateResolvedPatch" : "jr 7/30/2019 01:20", - "resetChoice" : "jr 7/30/2019 00:53", - "resolvedPatch" : "jr 7/30/2019 01:20", - "setWorking:incoming:base:" : "jr 12/13/2020 13:16", - "squotChangeAsStringOrText" : "jr 9/25/2019 22:21", - "squotHasChanges" : "jr 3/8/2022 21:44", - "squotToolsDiffNodeContent" : "jr 11/3/2019 16:22", - "working" : "jr 7/30/2019 00:53", - "working:" : "jr 7/30/2019 00:53" } } diff --git a/src/Squot.package/SquotAbstractMerge.class/properties.json b/src/Squot.package/SquotAbstractMerge.class/properties.json deleted file mode 100644 index dcc6d4298..000000000 --- a/src/Squot.package/SquotAbstractMerge.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Merging", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 7/30/2019 01:08", - "instvars" : [ - "base", - "working", - "incoming" ], - "name" : "SquotAbstractMerge", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotActiveObjectRegistry.class/README.md b/src/Squot.package/SquotActiveObjectRegistry.class/README.md deleted file mode 100644 index 512c34023..000000000 --- a/src/Squot.package/SquotActiveObjectRegistry.class/README.md +++ /dev/null @@ -1 +0,0 @@ -Dynamic variable to access the currently relevant registry of objects to look them up by name. \ No newline at end of file diff --git a/src/Squot.package/SquotActiveObjectRegistry.class/class/nameOf..st b/src/Squot.package/SquotActiveObjectRegistry.class/class/nameOf..st deleted file mode 100644 index 065af5c95..000000000 --- a/src/Squot.package/SquotActiveObjectRegistry.class/class/nameOf..st +++ /dev/null @@ -1,5 +0,0 @@ -as yet unclassified -nameOf: anObject - ^ self value - ifNil: [(NotFound object: anObject) signal] - ifNotNil: [:registry | registry nameOf: anObject] \ No newline at end of file diff --git a/src/Squot.package/SquotActiveObjectRegistry.class/class/nameOf.ifAbsent..st b/src/Squot.package/SquotActiveObjectRegistry.class/class/nameOf.ifAbsent..st deleted file mode 100644 index 39250bb0d..000000000 --- a/src/Squot.package/SquotActiveObjectRegistry.class/class/nameOf.ifAbsent..st +++ /dev/null @@ -1,5 +0,0 @@ -as yet unclassified -nameOf: anObject ifAbsent: absentBlock - ^ self value - ifNil: [absentBlock value] - ifNotNil: [:registry | registry nameOf: anObject ifAbsent: absentBlock] \ No newline at end of file diff --git a/src/Squot.package/SquotActiveObjectRegistry.class/class/objectNamed..st b/src/Squot.package/SquotActiveObjectRegistry.class/class/objectNamed..st deleted file mode 100644 index 941ccc37e..000000000 --- a/src/Squot.package/SquotActiveObjectRegistry.class/class/objectNamed..st +++ /dev/null @@ -1,5 +0,0 @@ -as yet unclassified -objectNamed: name - ^ self value - ifNil: [(NotFound object: name) signal] - ifNotNil: [:registry | registry objectNamed: name] \ No newline at end of file diff --git a/src/Squot.package/SquotActiveObjectRegistry.class/methodProperties.json b/src/Squot.package/SquotActiveObjectRegistry.class/methodProperties.json deleted file mode 100644 index 55021984d..000000000 --- a/src/Squot.package/SquotActiveObjectRegistry.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - "nameOf:" : "jr 10/30/2021 16:00", - "nameOf:ifAbsent:" : "jr 4/8/2018 00:40", - "objectNamed:" : "jr 10/30/2021 16:00" }, - "instance" : { - } } diff --git a/src/Squot.package/SquotActiveObjectRegistry.class/properties.json b/src/Squot.package/SquotActiveObjectRegistry.class/properties.json deleted file mode 100644 index 8b7634365..000000000 --- a/src/Squot.package/SquotActiveObjectRegistry.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Capturing", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 18:50", - "instvars" : [ - ], - "name" : "SquotActiveObjectRegistry", - "pools" : [ - ], - "super" : "DynamicVariable", - "type" : "normal" } diff --git a/src/Squot.package/SquotArtifact.class/README.md b/src/Squot.package/SquotArtifact.class/README.md deleted file mode 100644 index 235454ba4..000000000 --- a/src/Squot.package/SquotArtifact.class/README.md +++ /dev/null @@ -1,6 +0,0 @@ -I wrap an object graph and combine it with storage metadata and a path in a SquotSnapshot. The storage metadata is used by stores to reproducibly capture my graph and to properly restore it. - -Instance Variables - content: the captured object graph - path: the path at which the content is stored in a snapshot - storeInfo: directions for Stores how to capture and restore the content \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/class/newId.st b/src/Squot.package/SquotArtifact.class/class/newId.st deleted file mode 100644 index c7666ac68..000000000 --- a/src/Squot.package/SquotArtifact.class/class/newId.st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -newId - ^ UUID new \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/class/path.content..st b/src/Squot.package/SquotArtifact.class/class/path.content..st deleted file mode 100644 index 250522dc3..000000000 --- a/src/Squot.package/SquotArtifact.class/class/path.content..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -path: aString content: aShadowGraph - ^ self new - setPath: aString content: aShadowGraph; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/class/path.content.storeInfo..st b/src/Squot.package/SquotArtifact.class/class/path.content.storeInfo..st deleted file mode 100644 index 421690ed8..000000000 --- a/src/Squot.package/SquotArtifact.class/class/path.content.storeInfo..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -path: aString content: aShadowGraph storeInfo: aTrackedObjectMetadata - ^ self new - setPath: aString content: aShadowGraph storeInfo: aTrackedObjectMetadata; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/^equals.st b/src/Squot.package/SquotArtifact.class/instance/^equals.st deleted file mode 100644 index 0ada7bb19..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/^equals.st +++ /dev/null @@ -1,7 +0,0 @@ -comparing -= anObject - anObject == self ifTrue: [^ true]. - (anObject respondsTo: #capture) ifFalse: [^ false]. - ^ path = anObject path - and: [self content = anObject content - and: [self storeInfo = anObject storeInfo]] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/browse.st b/src/Squot.package/SquotArtifact.class/instance/browse.st deleted file mode 100644 index ea4d46597..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/browse.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -browse - ^ self content browse \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/capture.st b/src/Squot.package/SquotArtifact.class/instance/capture.st deleted file mode 100644 index e5943fa53..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/capture.st +++ /dev/null @@ -1,4 +0,0 @@ -converting -capture - "Already captured." - ^ self \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/content..st b/src/Squot.package/SquotArtifact.class/instance/content..st deleted file mode 100644 index dbb65a12d..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/content..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -content: anObject - - content := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/content.st b/src/Squot.package/SquotArtifact.class/instance/content.st deleted file mode 100644 index a5f2cf173..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/content.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -content - - ^ content \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/convertToCurrentVersion.refStream..st b/src/Squot.package/SquotArtifact.class/instance/convertToCurrentVersion.refStream..st deleted file mode 100644 index 8152ca7dc..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/convertToCurrentVersion.refStream..st +++ /dev/null @@ -1,5 +0,0 @@ -update migration -convertToCurrentVersion: varDict refStream: smartRefStrm - "Upgrade storeInfo to SquotTrackedObjectMetadata" - (storeInfo isKindOf: SquotTrackedObjectMetadata) ifFalse: - [storeInfo := SquotTrackedObjectMetadata newFrom: storeInfo]. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/copyWithDiffApplied..st b/src/Squot.package/SquotArtifact.class/instance/copyWithDiffApplied..st deleted file mode 100644 index 029e8f3f5..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/copyWithDiffApplied..st +++ /dev/null @@ -1,9 +0,0 @@ -copying -copyWithDiffApplied: aDiff - | copy | - copy := self shallowCopy - setContent: (aDiff applyContentDiffTo: self content) - storeInfo: (aDiff applyMetadataDiffTo: self storeInfo); - yourself. - copy storeInfo at: #id put: copy id. "storeInfo id must match the inst var id." - ^ copy \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/copyWithDifferentContent..st b/src/Squot.package/SquotArtifact.class/instance/copyWithDifferentContent..st deleted file mode 100644 index a68d015d0..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/copyWithDifferentContent..st +++ /dev/null @@ -1,6 +0,0 @@ -copying -copyWithDifferentContent: newContent - ^ self shallowCopy - postCopyWithoutContent; - content: newContent; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/diffAgainst..st b/src/Squot.package/SquotArtifact.class/instance/diffAgainst..st deleted file mode 100644 index 3604cc3e7..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/diffAgainst..st +++ /dev/null @@ -1,12 +0,0 @@ -comparing -diffAgainst: anArtifact - | modification | - modification := SquotArtifactModification left: self right: anArtifact - isLoadedInWorkingCopy: ((anArtifact respondsTo: #isLoaded) and: [anArtifact isLoaded]) - contentDiff: (self content squotDiffAgainst: anArtifact content) - metadataDiff: (self storeInfo squotDiffAgainst: anArtifact storeInfo). - ^ (modification hasChanges not and: [(anArtifact respondsTo: #isLoaded) and: [anArtifact isLoaded not]]) - ifTrue: [(SquotArtifactLoad of: anArtifact) - toggleWhetherToLoad; "not by default" - yourself] - ifFalse: [modification] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/displayText.st b/src/Squot.package/SquotArtifact.class/instance/displayText.st deleted file mode 100644 index 126cb5ff4..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/displayText.st +++ /dev/null @@ -1,3 +0,0 @@ -printing -displayText - ^ self path \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/hash.st b/src/Squot.package/SquotArtifact.class/instance/hash.st deleted file mode 100644 index 598dc52e4..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/hash.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -hash - ^ ((self content hash bitXor: path hash) hashMultiply bitXor: self storeInfo hash) hashMultiply \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/id..st b/src/Squot.package/SquotArtifact.class/instance/id..st deleted file mode 100644 index c4e9cfa59..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/id..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -id: anObject - id := anObject. - storeInfo at: #id put: anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/id.st b/src/Squot.package/SquotArtifact.class/instance/id.st deleted file mode 100644 index 41241a326..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/id.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -id - ^ id \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/initialize.st b/src/Squot.package/SquotArtifact.class/instance/initialize.st deleted file mode 100644 index b337333af..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/initialize.st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -initialize - id := self class newId. - storeInfo := SquotTrackedObjectMetadata new. - storeInfo at: #id put: id. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/initializeDefaultStoreInfoFor..st b/src/Squot.package/SquotArtifact.class/instance/initializeDefaultStoreInfoFor..st deleted file mode 100644 index 69e3c6418..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/initializeDefaultStoreInfoFor..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tests -initializeDefaultStoreInfoFor: anObject - anObject squotInitializeStoreInfo: storeInfo. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/isLoadable.st b/src/Squot.package/SquotArtifact.class/instance/isLoadable.st deleted file mode 100644 index 00ca9938b..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/isLoadable.st +++ /dev/null @@ -1,4 +0,0 @@ -loading -isLoadable - "Instances of subclasses may answer false if they want to be ignored by an ImageStore." - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/materializeWith.replacing..st b/src/Squot.package/SquotArtifact.class/instance/materializeWith.replacing..st deleted file mode 100644 index aec21f2dc..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/materializeWith.replacing..st +++ /dev/null @@ -1,4 +0,0 @@ -loading -materializeWith: aMaterializer replacing: anObject - "Trigger a content-appropriate materialization procedure in aMaterializer" - ^ self content squotMaterializeWith: aMaterializer from: self replacing: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/mergeStoreInfo..st b/src/Squot.package/SquotArtifact.class/instance/mergeStoreInfo..st deleted file mode 100644 index a11019781..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/mergeStoreInfo..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -mergeStoreInfo: otherStoreInfo - self deprecated: 'Use updateStoreInfo: instead'. - self updateStoreInfo: otherStoreInfo. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/mergeWith.basedOn..st b/src/Squot.package/SquotArtifact.class/instance/mergeWith.basedOn..st deleted file mode 100644 index e6704067b..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/mergeWith.basedOn..st +++ /dev/null @@ -1,6 +0,0 @@ -merging -mergeWith: otherArtifact basedOn: baseArtifact - ^ SquotArtifactMerge into: self merge: otherArtifact basedOn: baseArtifact - willBeLoaded: false - graphMerge: (content squotDiffAgainst: otherArtifact content withBase: baseArtifact content) - metadataMerge: (storeInfo squotMergeWith: otherArtifact storeInfo basedOn: baseArtifact storeInfo) \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/path..st b/src/Squot.package/SquotArtifact.class/instance/path..st deleted file mode 100644 index 728008299..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/path..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -path: aString - | oldPath | - oldPath := path. - path := aString. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/path.st b/src/Squot.package/SquotArtifact.class/instance/path.st deleted file mode 100644 index 81c63b398..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/path.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -path - - ^ path \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/postCopy.st b/src/Squot.package/SquotArtifact.class/instance/postCopy.st deleted file mode 100644 index 21fa9023b..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/postCopy.st +++ /dev/null @@ -1,4 +0,0 @@ -copying -postCopy - self content: self content copy. - self postCopyWithoutContent. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/postCopyWithoutContent.st b/src/Squot.package/SquotArtifact.class/instance/postCopyWithoutContent.st deleted file mode 100644 index 6ba168eab..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/postCopyWithoutContent.st +++ /dev/null @@ -1,5 +0,0 @@ -copying -postCopyWithoutContent - "Copy all my inst vars except the content (which is set later)" - "path := path copy." - storeInfo := storeInfo copy. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/printOn..st b/src/Squot.package/SquotArtifact.class/instance/printOn..st deleted file mode 100644 index c64a0d3d0..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/printOn..st +++ /dev/null @@ -1,6 +0,0 @@ -printing -printOn: aStream - super printOn: aStream. - aStream nextPut: $(; - print: path; - nextPut: $). \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/putArtifactClassInStoreInfo.st b/src/Squot.package/SquotArtifact.class/instance/putArtifactClassInStoreInfo.st deleted file mode 100644 index 5a881b46e..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/putArtifactClassInStoreInfo.st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -putArtifactClassInStoreInfo - "To allow stores to accurately reproduce artifacts, put my class name in the metadata" - self class ~~ SquotArtifact - ifTrue: [self storeInfo at: #artifactClassName put: self class name]. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/serializer..st b/src/Squot.package/SquotArtifact.class/instance/serializer..st deleted file mode 100644 index f5e711243..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/serializer..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -serializer: aSerializerFactory - ^ self storeInfo at: #serializer put: aSerializerFactory name \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/setContent.storeInfo..st b/src/Squot.package/SquotArtifact.class/instance/setContent.storeInfo..st deleted file mode 100644 index 566517c4e..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/setContent.storeInfo..st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -setContent: aShadowGraph storeInfo: aTrackedObjectMetadata - "Used by copyWithDiffApplied:" - content := aShadowGraph. - storeInfo := aTrackedObjectMetadata. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/setPath.content..st b/src/Squot.package/SquotArtifact.class/instance/setPath.content..st deleted file mode 100644 index 895e5066f..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/setPath.content..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -setPath: aString content: aShadowGraph - path := aString. - content := aShadowGraph. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/setPath.content.storeInfo..st b/src/Squot.package/SquotArtifact.class/instance/setPath.content.storeInfo..st deleted file mode 100644 index cffa5c373..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/setPath.content.storeInfo..st +++ /dev/null @@ -1,6 +0,0 @@ -initialize-release -setPath: aString content: aShadowGraph storeInfo: aTrackedObjectMetadata - path := aString. - content := aShadowGraph. - storeInfo := aTrackedObjectMetadata. - id := aTrackedObjectMetadata at: #id ifAbsent: [id]. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/shadowOfTrackedObject.st b/src/Squot.package/SquotArtifact.class/instance/shadowOfTrackedObject.st deleted file mode 100644 index 0e985ac0a..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/shadowOfTrackedObject.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -shadowOfTrackedObject - "Answer the shadow of the object that is tracked by a store to produce editions such as me." - ^ self content ifNotNil: [:aShadowGraph | aShadowGraph startShadow] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/snapshot.st b/src/Squot.package/SquotArtifact.class/instance/snapshot.st deleted file mode 100644 index e7bcfa93b..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/snapshot.st +++ /dev/null @@ -1,4 +0,0 @@ -converting -snapshot - "Already captured." - ^ self \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/storeInfo..st b/src/Squot.package/SquotArtifact.class/instance/storeInfo..st deleted file mode 100644 index 8b57030ad..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/storeInfo..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -storeInfo: anObject - - storeInfo := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/storeInfo.st b/src/Squot.package/SquotArtifact.class/instance/storeInfo.st deleted file mode 100644 index 13a80510d..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/storeInfo.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -storeInfo - - ^ storeInfo \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/instance/updateStoreInfo..st b/src/Squot.package/SquotArtifact.class/instance/updateStoreInfo..st deleted file mode 100644 index f40bc765e..000000000 --- a/src/Squot.package/SquotArtifact.class/instance/updateStoreInfo..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -updateStoreInfo: otherStoreInfo - storeInfo updateFrom: otherStoreInfo. - id ifNil: [id := storeInfo at: #id ifAbsent: []]. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifact.class/methodProperties.json b/src/Squot.package/SquotArtifact.class/methodProperties.json deleted file mode 100644 index 0a66758c8..000000000 --- a/src/Squot.package/SquotArtifact.class/methodProperties.json +++ /dev/null @@ -1,40 +0,0 @@ -{ - "class" : { - "newId" : "jr 2/13/2022 17:41", - "path:content:" : "jr 12/23/2020 22:10", - "path:content:storeInfo:" : "jr 12/23/2020 22:11" }, - "instance" : { - "=" : "jr 11/21/2020 01:11", - "browse" : "jr 12/23/2019 14:39", - "capture" : "jr 7/16/2017 03:06", - "content" : "jr 1/27/2017 15:03", - "content:" : "jr 1/27/2017 15:03", - "convertToCurrentVersion:refStream:" : "jr 7/16/2017 12:06", - "copyWithDiffApplied:" : "jr 2/13/2022 15:51", - "copyWithDifferentContent:" : "jr 2/16/2017 00:40", - "diffAgainst:" : "jr 12/24/2020 00:35", - "displayText" : "fn 4/11/2017 14:24", - "hash" : "jr 5/28/2017 14:32", - "id" : "jr 2/13/2022 15:26", - "id:" : "jr 2/13/2022 15:50", - "initialize" : "jr 2/13/2022 17:41", - "initializeDefaultStoreInfoFor:" : "jr 2/21/2017 21:35", - "isLoadable" : "jr 3/8/2017 16:17", - "materializeWith:replacing:" : "jr 5/28/2017 14:33", - "mergeStoreInfo:" : "jr 12/13/2020 21:59", - "mergeWith:basedOn:" : "jr 12/23/2020 21:56", - "path" : "jr 1/27/2017 15:03", - "path:" : "jr 8/11/2020 23:46", - "postCopy" : "jr 5/28/2017 14:34", - "postCopyWithoutContent" : "jr 2/16/2017 00:40", - "printOn:" : "jr 2/1/2017 15:16", - "putArtifactClassInStoreInfo" : "jr 3/8/2017 15:55", - "serializer:" : "jr 9/26/2020 18:18", - "setContent:storeInfo:" : "jr 12/13/2020 13:03", - "setPath:content:" : "jr 12/23/2020 22:09", - "setPath:content:storeInfo:" : "jr 2/20/2022 20:55", - "shadowOfTrackedObject" : "jr 8/2/2020 15:31", - "snapshot" : "jr 11/22/2020 15:53", - "storeInfo" : "jr 1/27/2017 15:03", - "storeInfo:" : "jr 1/27/2017 15:03", - "updateStoreInfo:" : "jr 2/13/2022 17:22" } } diff --git a/src/Squot.package/SquotArtifact.class/properties.json b/src/Squot.package/SquotArtifact.class/properties.json deleted file mode 100644 index e56475337..000000000 --- a/src/Squot.package/SquotArtifact.class/properties.json +++ /dev/null @@ -1,19 +0,0 @@ -{ - "category" : "Squot-Core", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotArtifact classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 8/10/2017 19:59", - "instvars" : [ - "content", - "path", - "storeInfo", - "id" ], - "name" : "SquotArtifact", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotArtifact", - "type" : "normal" } diff --git a/src/Squot.package/SquotArtifactAddition.class/README.md b/src/Squot.package/SquotArtifactAddition.class/README.md deleted file mode 100644 index f410d6061..000000000 --- a/src/Squot.package/SquotArtifactAddition.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I record the addition of a new artifact. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactAddition.class/class/of..st b/src/Squot.package/SquotArtifactAddition.class/class/of..st deleted file mode 100644 index 34e56312c..000000000 --- a/src/Squot.package/SquotArtifactAddition.class/class/of..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -of: rightArtifact - ^ self new - diff: nil against: rightArtifact; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactAddition.class/instance/adornedDiffNodeTitle..st b/src/Squot.package/SquotArtifactAddition.class/instance/adornedDiffNodeTitle..st deleted file mode 100644 index 3848307ba..000000000 --- a/src/Squot.package/SquotArtifactAddition.class/instance/adornedDiffNodeTitle..st +++ /dev/null @@ -1,6 +0,0 @@ -*Squot-Tools -adornedDiffNodeTitle: aString - "Add adornments based on the state of the diff to the basic title, aString, and answer it." - ^ self willBeLoaded - ifTrue: [super adornedDiffNodeTitle: aString] - ifFalse: ['do not load ', (super adornedDiffNodeTitle: aString)] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactAddition.class/instance/applyToContainer..st b/src/Squot.package/SquotArtifactAddition.class/instance/applyToContainer..st deleted file mode 100644 index 608274057..000000000 --- a/src/Squot.package/SquotArtifactAddition.class/instance/applyToContainer..st +++ /dev/null @@ -1,5 +0,0 @@ -patching -applyToContainer: anObjectContainer - ^ self willBeLoaded - ifTrue: [anObjectContainer add: right] - ifFalse: [anObjectContainer addUnloaded: right] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactAddition.class/instance/diff.against..st b/src/Squot.package/SquotArtifactAddition.class/instance/diff.against..st deleted file mode 100644 index 766e2e0f3..000000000 --- a/src/Squot.package/SquotArtifactAddition.class/instance/diff.against..st +++ /dev/null @@ -1,6 +0,0 @@ -initialize-release -diff: leftArtifact against: rightArtifact - super diff: leftArtifact against: rightArtifact. - willBeLoaded := true. "by default" - (rightArtifact respondsTo: #applyLoadStatusTo:) ifTrue: - [rightArtifact applyLoadStatusTo: self]. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactAddition.class/instance/diffNodeFallbackTitle.st b/src/Squot.package/SquotArtifactAddition.class/instance/diffNodeFallbackTitle.st deleted file mode 100644 index 506b9bd4f..000000000 --- a/src/Squot.package/SquotArtifactAddition.class/instance/diffNodeFallbackTitle.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -diffNodeFallbackTitle - ^ right printString \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactAddition.class/instance/diffNodeOperationTitle.st b/src/Squot.package/SquotArtifactAddition.class/instance/diffNodeOperationTitle.st deleted file mode 100644 index fc7d19b2a..000000000 --- a/src/Squot.package/SquotArtifactAddition.class/instance/diffNodeOperationTitle.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -diffNodeOperationTitle - ^ 'added' \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactAddition.class/instance/isBasedOn..st b/src/Squot.package/SquotArtifactAddition.class/instance/isBasedOn..st deleted file mode 100644 index e31f5b6c6..000000000 --- a/src/Squot.package/SquotArtifactAddition.class/instance/isBasedOn..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isBasedOn: aSquotObjectContainer - ^ true "Cannot tell for real, my origin does not contain my artifact." \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactAddition.class/instance/mayAffectArtifact.st b/src/Squot.package/SquotArtifactAddition.class/instance/mayAffectArtifact.st deleted file mode 100644 index 7f33408df..000000000 --- a/src/Squot.package/SquotArtifactAddition.class/instance/mayAffectArtifact.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -mayAffectArtifact - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactAddition.class/instance/mergeWith..st b/src/Squot.package/SquotArtifactAddition.class/instance/mergeWith..st deleted file mode 100644 index 644d9b979..000000000 --- a/src/Squot.package/SquotArtifactAddition.class/instance/mergeWith..st +++ /dev/null @@ -1,6 +0,0 @@ -merging -mergeWith: anArtifactDiff - self assert: self left == anArtifactDiff left. - self assert: self path = anArtifactDiff path. - "double dispatch" - ^ anArtifactDiff mergeWithAddition: self \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactAddition.class/instance/mergeWithAddition..st b/src/Squot.package/SquotArtifactAddition.class/instance/mergeWithAddition..st deleted file mode 100644 index c82a97bcd..000000000 --- a/src/Squot.package/SquotArtifactAddition.class/instance/mergeWithAddition..st +++ /dev/null @@ -1,5 +0,0 @@ -merging -mergeWithAddition: anArtifactAddition - "When there are two additions, each difference between them is a conflict." - "double dispatch, initiated by #mergeWith:" - ^ anArtifactAddition right mergeWithoutBaseWith: self right \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactAddition.class/instance/mergeWithDiff..st b/src/Squot.package/SquotArtifactAddition.class/instance/mergeWithDiff..st deleted file mode 100644 index 84820570b..000000000 --- a/src/Squot.package/SquotArtifactAddition.class/instance/mergeWithDiff..st +++ /dev/null @@ -1,7 +0,0 @@ -merging -mergeWithDiff: anArtifactDiff - "Inverse case is in SquotArtifactDiff>>#mergeWithAddition:" - "double dispatch, initiated by #mergeWith:" - self error: 'Cannot merge additon with modification'. - "In fact, this should not be invoked, since there is a contradiction: according to me, the base version did not contain the artifact, but according to the other side, it did. - It is likely an error further up in the call stack." \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactAddition.class/instance/mergeWithLoad..st b/src/Squot.package/SquotArtifactAddition.class/instance/mergeWithLoad..st deleted file mode 100644 index aac3c699c..000000000 --- a/src/Squot.package/SquotArtifactAddition.class/instance/mergeWithLoad..st +++ /dev/null @@ -1,5 +0,0 @@ -merging -mergeWithLoad: anArtifactLoad - "I say the artifact did not exist, but the other side says that it did exist." - "double dispatch, initiated by #mergeWith:" - ^ self shouldNotImplement \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactAddition.class/instance/mergeWithRemoval..st b/src/Squot.package/SquotArtifactAddition.class/instance/mergeWithRemoval..st deleted file mode 100644 index d5d75584e..000000000 --- a/src/Squot.package/SquotArtifactAddition.class/instance/mergeWithRemoval..st +++ /dev/null @@ -1,7 +0,0 @@ -merging -mergeWithRemoval: anArtifactRemoval - "Inverse case is in SquotArtifactDiff>>mergeWithAddition:" - "double dispatch, initiated by #mergeWith:" - self error: 'Cannot merge additon with removal'. - "In fact, this should not be invoked, since there is a contradiction: according to me, the base version did not contain the artifact, but according to the other side, it did. - It is likely an error further up in the call stack." \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactAddition.class/instance/needsChoice.st b/src/Squot.package/SquotArtifactAddition.class/instance/needsChoice.st deleted file mode 100644 index 43d2dd45f..000000000 --- a/src/Squot.package/SquotArtifactAddition.class/instance/needsChoice.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -needsChoice - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactAddition.class/instance/rebaseOn..st b/src/Squot.package/SquotArtifactAddition.class/instance/rebaseOn..st deleted file mode 100644 index 445fc718a..000000000 --- a/src/Squot.package/SquotArtifactAddition.class/instance/rebaseOn..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -rebaseOn: anObjectContainer - ^ self \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactAddition.class/instance/resolveConflictWith..st b/src/Squot.package/SquotArtifactAddition.class/instance/resolveConflictWith..st deleted file mode 100644 index 1efb99ab3..000000000 --- a/src/Squot.package/SquotArtifactAddition.class/instance/resolveConflictWith..st +++ /dev/null @@ -1,7 +0,0 @@ -merging -resolveConflictWith: aSquotArtifactDiff - "Since I am an addition, the artifact did not exist in the base snapshot. - Therefore, the other diff must also be an addition. - Otherwise, I would be a modification, not an addition. - Answer the differences between my target state and the other target state." - ^ self right diffAgainst: aSquotArtifactDiff right \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactAddition.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotArtifactAddition.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index a6a0cb036..000000000 --- a/src/Squot.package/SquotArtifactAddition.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotChangeAsStringOrText - ^ (Text fromString: 'add ', right path, ': ') append: right squotSummaryText \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactAddition.class/instance/toggleWhetherToLoad.st b/src/Squot.package/SquotArtifactAddition.class/instance/toggleWhetherToLoad.st deleted file mode 100644 index 605394824..000000000 --- a/src/Squot.package/SquotArtifactAddition.class/instance/toggleWhetherToLoad.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -toggleWhetherToLoad - ^ willBeLoaded := self willBeLoaded not \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactAddition.class/instance/topNodes.st b/src/Squot.package/SquotArtifactAddition.class/instance/topNodes.st deleted file mode 100644 index a527213e3..000000000 --- a/src/Squot.package/SquotArtifactAddition.class/instance/topNodes.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -topNodes - ^ #() \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactAddition.class/instance/willBeLoaded.st b/src/Squot.package/SquotArtifactAddition.class/instance/willBeLoaded.st deleted file mode 100644 index 0fbbda4aa..000000000 --- a/src/Squot.package/SquotArtifactAddition.class/instance/willBeLoaded.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -willBeLoaded - ^ willBeLoaded ifNil: [isLoadedInWorkingCopy] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactAddition.class/methodProperties.json b/src/Squot.package/SquotArtifactAddition.class/methodProperties.json deleted file mode 100644 index 0dff5f472..000000000 --- a/src/Squot.package/SquotArtifactAddition.class/methodProperties.json +++ /dev/null @@ -1,23 +0,0 @@ -{ - "class" : { - "of:" : "jr 10/2/2017 19:59" }, - "instance" : { - "adornedDiffNodeTitle:" : "jr 11/17/2020 17:54", - "applyToContainer:" : "jr 11/21/2020 16:24", - "diff:against:" : "jr 11/22/2020 23:33", - "diffNodeFallbackTitle" : "jr 10/26/2019 21:29", - "diffNodeOperationTitle" : "jr 10/26/2019 21:29", - "isBasedOn:" : "jr 11/5/2020 16:54", - "mayAffectArtifact" : "jr 11/29/2020 22:20", - "mergeWith:" : "jr 4/15/2018 12:15", - "mergeWithAddition:" : "jr 7/29/2019 23:55", - "mergeWithDiff:" : "jr 4/15/2018 13:56", - "mergeWithLoad:" : "jr 11/19/2020 16:06", - "mergeWithRemoval:" : "jr 4/15/2018 13:57", - "needsChoice" : "jr 7/22/2017 23:55", - "rebaseOn:" : "jr 2/9/2020 03:50", - "resolveConflictWith:" : "jr 7/27/2019 00:02", - "squotChangeAsStringOrText" : "jr 11/17/2018 22:35", - "toggleWhetherToLoad" : "jr 10/4/2020 17:20", - "topNodes" : "jr 11/6/2018 08:11", - "willBeLoaded" : "jr 11/22/2020 22:53" } } diff --git a/src/Squot.package/SquotArtifactAddition.class/properties.json b/src/Squot.package/SquotArtifactAddition.class/properties.json deleted file mode 100644 index b6c9254c7..000000000 --- a/src/Squot.package/SquotArtifactAddition.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Diffs", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotAddition classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 10/21/2017 15:58", - "instvars" : [ - "willBeLoaded" ], - "name" : "SquotArtifactAddition", - "pools" : [ - ], - "super" : "SquotArtifactDiff", - "traitcomposition" : "TSquotAddition", - "type" : "normal" } diff --git a/src/Squot.package/SquotArtifactContentDiffMock.class/README.md b/src/Squot.package/SquotArtifactContentDiffMock.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotArtifactContentDiffMock.class/instance/asSquotHierarchicalDiff.st b/src/Squot.package/SquotArtifactContentDiffMock.class/instance/asSquotHierarchicalDiff.st deleted file mode 100644 index f0a798032..000000000 --- a/src/Squot.package/SquotArtifactContentDiffMock.class/instance/asSquotHierarchicalDiff.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tests-Tools -asSquotHierarchicalDiff - ^ topNodes ifNil: [#()] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentDiffMock.class/instance/defaultApplyBlock.st b/src/Squot.package/SquotArtifactContentDiffMock.class/instance/defaultApplyBlock.st deleted file mode 100644 index b653915a7..000000000 --- a/src/Squot.package/SquotArtifactContentDiffMock.class/instance/defaultApplyBlock.st +++ /dev/null @@ -1,5 +0,0 @@ -configuring -defaultApplyBlock - ^ [:this :target | - SquotArtifactContentMock new - id: 'generated by ', this id printString, ' applied to ', target id printString] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentDiffMock.class/instance/hasConflicts..st b/src/Squot.package/SquotArtifactContentDiffMock.class/instance/hasConflicts..st deleted file mode 100644 index fc1d1cfe0..000000000 --- a/src/Squot.package/SquotArtifactContentDiffMock.class/instance/hasConflicts..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -hasConflicts: aBoolean - hasConflicts := aBoolean. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentDiffMock.class/instance/hasConflicts.st b/src/Squot.package/SquotArtifactContentDiffMock.class/instance/hasConflicts.st deleted file mode 100644 index ffb21e1bf..000000000 --- a/src/Squot.package/SquotArtifactContentDiffMock.class/instance/hasConflicts.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -hasConflicts - ^ hasConflicts ifNil: [false] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentDiffMock.class/instance/id..st b/src/Squot.package/SquotArtifactContentDiffMock.class/instance/id..st deleted file mode 100644 index a6518b8fa..000000000 --- a/src/Squot.package/SquotArtifactContentDiffMock.class/instance/id..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -id: anObject - id := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentDiffMock.class/instance/id.st b/src/Squot.package/SquotArtifactContentDiffMock.class/instance/id.st deleted file mode 100644 index 41241a326..000000000 --- a/src/Squot.package/SquotArtifactContentDiffMock.class/instance/id.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -id - ^ id \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentDiffMock.class/instance/onApply..st b/src/Squot.package/SquotArtifactContentDiffMock.class/instance/onApply..st deleted file mode 100644 index d341cf513..000000000 --- a/src/Squot.package/SquotArtifactContentDiffMock.class/instance/onApply..st +++ /dev/null @@ -1,3 +0,0 @@ -configuring -onApply: aBlock - applyBlock := aBlock. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentDiffMock.class/instance/squotApplyTo..st b/src/Squot.package/SquotArtifactContentDiffMock.class/instance/squotApplyTo..st deleted file mode 100644 index a13fb66f1..000000000 --- a/src/Squot.package/SquotArtifactContentDiffMock.class/instance/squotApplyTo..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -squotApplyTo: aSquotArtifactContentMock - ^ (applyBlock ifNil: [self defaultApplyBlock]) value: self value: aSquotArtifactContentMock \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentDiffMock.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotArtifactContentDiffMock.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index f306dae62..000000000 --- a/src/Squot.package/SquotArtifactContentDiffMock.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tests-Tools -squotChangeAsStringOrText - ^ 'this is a mock' \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentDiffMock.class/instance/squotHasChanges.st b/src/Squot.package/SquotArtifactContentDiffMock.class/instance/squotHasChanges.st deleted file mode 100644 index 8cc45196a..000000000 --- a/src/Squot.package/SquotArtifactContentDiffMock.class/instance/squotHasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -squotHasChanges - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentDiffMock.class/instance/topNodes..st b/src/Squot.package/SquotArtifactContentDiffMock.class/instance/topNodes..st deleted file mode 100644 index edaa6375c..000000000 --- a/src/Squot.package/SquotArtifactContentDiffMock.class/instance/topNodes..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -topNodes: anObject - - topNodes := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentDiffMock.class/instance/topNodes.st b/src/Squot.package/SquotArtifactContentDiffMock.class/instance/topNodes.st deleted file mode 100644 index 3607a54ae..000000000 --- a/src/Squot.package/SquotArtifactContentDiffMock.class/instance/topNodes.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -topNodes - - ^ topNodes \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentDiffMock.class/instance/whenAppliedTo.return..st b/src/Squot.package/SquotArtifactContentDiffMock.class/instance/whenAppliedTo.return..st deleted file mode 100644 index 4d39c2430..000000000 --- a/src/Squot.package/SquotArtifactContentDiffMock.class/instance/whenAppliedTo.return..st +++ /dev/null @@ -1,9 +0,0 @@ -configuring -whenAppliedTo: otherContentOrMock return: aBlock - | previousBlock | - previousBlock := applyBlock ifNil: [self defaultApplyBlock]. - applyBlock := - [:this :target | - target = otherContentOrMock - ifTrue: [aBlock value] - ifFalse: [previousBlock cull: this cull: target]]. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentDiffMock.class/methodProperties.json b/src/Squot.package/SquotArtifactContentDiffMock.class/methodProperties.json deleted file mode 100644 index 853b11810..000000000 --- a/src/Squot.package/SquotArtifactContentDiffMock.class/methodProperties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "asSquotHierarchicalDiff" : "jr 11/5/2018 21:34", - "defaultApplyBlock" : "jr 8/21/2019 20:57", - "hasConflicts" : "jr 6/8/2019 00:06", - "hasConflicts:" : "jr 6/8/2019 00:06", - "id" : "jr 8/21/2019 20:49", - "id:" : "jr 8/21/2019 20:51", - "onApply:" : "jr 3/9/2019 22:51", - "squotApplyTo:" : "jr 8/21/2019 20:55", - "squotChangeAsStringOrText" : "jr 11/5/2018 21:36", - "squotHasChanges" : "jr 11/5/2018 21:48", - "topNodes" : "jr 11/5/2018 21:35", - "topNodes:" : "jr 11/5/2018 21:35", - "whenAppliedTo:return:" : "jr 8/21/2019 20:57" } } diff --git a/src/Squot.package/SquotArtifactContentDiffMock.class/properties.json b/src/Squot.package/SquotArtifactContentDiffMock.class/properties.json deleted file mode 100644 index fc0f6b134..000000000 --- a/src/Squot.package/SquotArtifactContentDiffMock.class/properties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "category" : "Squot-Tests-Support", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "id", - "topNodes", - "applyBlock", - "hasConflicts" ], - "name" : "SquotArtifactContentDiffMock", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotArtifactContentMock.class/README.md b/src/Squot.package/SquotArtifactContentMock.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotArtifactContentMock.class/instance/asShadowGraph.st b/src/Squot.package/SquotArtifactContentMock.class/instance/asShadowGraph.st deleted file mode 100644 index 547e45735..000000000 --- a/src/Squot.package/SquotArtifactContentMock.class/instance/asShadowGraph.st +++ /dev/null @@ -1,2 +0,0 @@ -converting -asShadowGraph \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentMock.class/instance/defaultCompareBlock.st b/src/Squot.package/SquotArtifactContentMock.class/instance/defaultCompareBlock.st deleted file mode 100644 index 92f263263..000000000 --- a/src/Squot.package/SquotArtifactContentMock.class/instance/defaultCompareBlock.st +++ /dev/null @@ -1,3 +0,0 @@ -configuring -defaultCompareBlock - ^ [:other :this | self error: self printString, ' not configured for diff'] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentMock.class/instance/defaultMaterializeBlock.st b/src/Squot.package/SquotArtifactContentMock.class/instance/defaultMaterializeBlock.st deleted file mode 100644 index c3b21afdf..000000000 --- a/src/Squot.package/SquotArtifactContentMock.class/instance/defaultMaterializeBlock.st +++ /dev/null @@ -1,3 +0,0 @@ -configuring -defaultMaterializeBlock - ^ [self error: 'Mock not configured for loading'] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentMock.class/instance/defaultMergeBlock.st b/src/Squot.package/SquotArtifactContentMock.class/instance/defaultMergeBlock.st deleted file mode 100644 index c49fd6a6d..000000000 --- a/src/Squot.package/SquotArtifactContentMock.class/instance/defaultMergeBlock.st +++ /dev/null @@ -1,3 +0,0 @@ -configuring -defaultMergeBlock - ^ [:other :base :this | self error: self printString, ' not configured for merge'] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentMock.class/instance/diffBlock..st b/src/Squot.package/SquotArtifactContentMock.class/instance/diffBlock..st deleted file mode 100644 index 5dae21bc0..000000000 --- a/src/Squot.package/SquotArtifactContentMock.class/instance/diffBlock..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -diffBlock: anObject - - diffBlock := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentMock.class/instance/diffBlock.st b/src/Squot.package/SquotArtifactContentMock.class/instance/diffBlock.st deleted file mode 100644 index f1dcad5cd..000000000 --- a/src/Squot.package/SquotArtifactContentMock.class/instance/diffBlock.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -diffBlock - - ^ diffBlock \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentMock.class/instance/id..st b/src/Squot.package/SquotArtifactContentMock.class/instance/id..st deleted file mode 100644 index 5561e6d65..000000000 --- a/src/Squot.package/SquotArtifactContentMock.class/instance/id..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -id: anObject - id := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentMock.class/instance/id.st b/src/Squot.package/SquotArtifactContentMock.class/instance/id.st deleted file mode 100644 index 41241a326..000000000 --- a/src/Squot.package/SquotArtifactContentMock.class/instance/id.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -id - ^ id \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentMock.class/instance/initialize.st b/src/Squot.package/SquotArtifactContentMock.class/instance/initialize.st deleted file mode 100644 index b07c18f2d..000000000 --- a/src/Squot.package/SquotArtifactContentMock.class/instance/initialize.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -initialize - names := IdentityDictionary new. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentMock.class/instance/nameOf..st b/src/Squot.package/SquotArtifactContentMock.class/instance/nameOf..st deleted file mode 100644 index 1d0297713..000000000 --- a/src/Squot.package/SquotArtifactContentMock.class/instance/nameOf..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -nameOf: anObject - ^ names at: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentMock.class/instance/nameOf.ifAbsent..st b/src/Squot.package/SquotArtifactContentMock.class/instance/nameOf.ifAbsent..st deleted file mode 100644 index ecaf06a8b..000000000 --- a/src/Squot.package/SquotArtifactContentMock.class/instance/nameOf.ifAbsent..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -nameOf: anObject ifAbsent: aBlock - ^ names at: anObject ifAbsent: aBlock \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentMock.class/instance/nameOf.is..st b/src/Squot.package/SquotArtifactContentMock.class/instance/nameOf.is..st deleted file mode 100644 index 971902f21..000000000 --- a/src/Squot.package/SquotArtifactContentMock.class/instance/nameOf.is..st +++ /dev/null @@ -1,3 +0,0 @@ -configuring -nameOf: anObject is: name - names at: anObject put: name. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentMock.class/instance/printOn..st b/src/Squot.package/SquotArtifactContentMock.class/instance/printOn..st deleted file mode 100644 index 75a0a77be..000000000 --- a/src/Squot.package/SquotArtifactContentMock.class/instance/printOn..st +++ /dev/null @@ -1,6 +0,0 @@ -printing -printOn: aStream - super printOn: aStream. - aStream space; - print: id. - \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentMock.class/instance/squotDiffAgainst..st b/src/Squot.package/SquotArtifactContentMock.class/instance/squotDiffAgainst..st deleted file mode 100644 index 314a1f216..000000000 --- a/src/Squot.package/SquotArtifactContentMock.class/instance/squotDiffAgainst..st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -squotDiffAgainst: aShadowGraph - ^ (diffBlock ifNil: [self defaultCompareBlock]) cull: aShadowGraph cull: self \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentMock.class/instance/squotDiffAgainst.withBase..st b/src/Squot.package/SquotArtifactContentMock.class/instance/squotDiffAgainst.withBase..st deleted file mode 100644 index 4f55a2e80..000000000 --- a/src/Squot.package/SquotArtifactContentMock.class/instance/squotDiffAgainst.withBase..st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -squotDiffAgainst: rightShadowGraph withBase: baseShadowGraph - ^ (mergeBlock ifNil: [self defaultMergeBlock]) cull: rightShadowGraph cull: baseShadowGraph cull: self \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentMock.class/instance/squotMaterializeWith.from.replacing..st b/src/Squot.package/SquotArtifactContentMock.class/instance/squotMaterializeWith.from.replacing..st deleted file mode 100644 index fe73a4370..000000000 --- a/src/Squot.package/SquotArtifactContentMock.class/instance/squotMaterializeWith.from.replacing..st +++ /dev/null @@ -1,3 +0,0 @@ -loading and unloading -squotMaterializeWith: aMaterializer from: aSquotArtifact replacing: anObject - ^ (materializeBlock ifNil: [self defaultMaterializeBlock]) cull: aMaterializer cull: aSquotArtifact cull: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentMock.class/instance/squotSummaryText.st b/src/Squot.package/SquotArtifactContentMock.class/instance/squotSummaryText.st deleted file mode 100644 index 866c2702e..000000000 --- a/src/Squot.package/SquotArtifactContentMock.class/instance/squotSummaryText.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -squotSummaryText - ^ 'this is a mock' \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentMock.class/instance/startShadow.st b/src/Squot.package/SquotArtifactContentMock.class/instance/startShadow.st deleted file mode 100644 index 4500b58f4..000000000 --- a/src/Squot.package/SquotArtifactContentMock.class/instance/startShadow.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -startShadow - ^ SquotShadowMock new \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentMock.class/instance/whenComparedReturnMock.st b/src/Squot.package/SquotArtifactContentMock.class/instance/whenComparedReturnMock.st deleted file mode 100644 index e3d6b01f8..000000000 --- a/src/Squot.package/SquotArtifactContentMock.class/instance/whenComparedReturnMock.st +++ /dev/null @@ -1,3 +0,0 @@ -configuring -whenComparedReturnMock - diffBlock := [:other :this | SquotArtifactContentDiffMock new] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentMock.class/instance/whenComparedWith.return..st b/src/Squot.package/SquotArtifactContentMock.class/instance/whenComparedWith.return..st deleted file mode 100644 index 519f23f9d..000000000 --- a/src/Squot.package/SquotArtifactContentMock.class/instance/whenComparedWith.return..st +++ /dev/null @@ -1,9 +0,0 @@ -configuring -whenComparedWith: aShadowGraphOrMock return: aBlock - | previousBlock | - previousBlock := diffBlock ifNil: [self defaultCompareBlock]. - diffBlock := - [:other :this | - other = aShadowGraphOrMock - ifTrue: [aBlock value] - ifFalse: [previousBlock cull: other cull: this]]. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentMock.class/instance/whenMaterializedReturn..st b/src/Squot.package/SquotArtifactContentMock.class/instance/whenMaterializedReturn..st deleted file mode 100644 index 9300a83da..000000000 --- a/src/Squot.package/SquotArtifactContentMock.class/instance/whenMaterializedReturn..st +++ /dev/null @@ -1,3 +0,0 @@ -configuring -whenMaterializedReturn: aBlock - materializeBlock := aBlock. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentMock.class/instance/whenMergedReturn..st b/src/Squot.package/SquotArtifactContentMock.class/instance/whenMergedReturn..st deleted file mode 100644 index b0dafac6f..000000000 --- a/src/Squot.package/SquotArtifactContentMock.class/instance/whenMergedReturn..st +++ /dev/null @@ -1,3 +0,0 @@ -configuring -whenMergedReturn: aMerge - mergeBlock := [:other :this | aMerge] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactContentMock.class/methodProperties.json b/src/Squot.package/SquotArtifactContentMock.class/methodProperties.json deleted file mode 100644 index 797e478fe..000000000 --- a/src/Squot.package/SquotArtifactContentMock.class/methodProperties.json +++ /dev/null @@ -1,26 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "asShadowGraph" : "jr 4/7/2019 22:06", - "defaultCompareBlock" : "jr 7/29/2019 23:47", - "defaultMaterializeBlock" : "jr 11/19/2020 18:20", - "defaultMergeBlock" : "jr 8/14/2019 23:37", - "diffBlock" : "jr 11/5/2018 21:25", - "diffBlock:" : "jr 11/5/2018 21:25", - "id" : "jr 8/15/2019 14:21", - "id:" : "jr 8/15/2019 14:21", - "initialize" : "jr 7/30/2019 00:43", - "nameOf:" : "jr 7/30/2019 00:44", - "nameOf:ifAbsent:" : "jr 7/30/2019 00:45", - "nameOf:is:" : "jr 7/30/2019 00:43", - "printOn:" : "jr 8/15/2019 14:22", - "squotDiffAgainst:" : "jr 7/29/2019 23:49", - "squotDiffAgainst:withBase:" : "jr 8/14/2019 23:38", - "squotMaterializeWith:from:replacing:" : "jr 11/19/2020 18:19", - "squotSummaryText" : "jr 11/5/2018 21:20", - "startShadow" : "jr 3/4/2020 08:57", - "whenComparedReturnMock" : "jr 7/29/2019 23:51", - "whenComparedWith:return:" : "jr 7/29/2019 23:46", - "whenMaterializedReturn:" : "jr 11/19/2020 18:22", - "whenMergedReturn:" : "jr 8/15/2019 00:18" } } diff --git a/src/Squot.package/SquotArtifactContentMock.class/properties.json b/src/Squot.package/SquotArtifactContentMock.class/properties.json deleted file mode 100644 index ddb499065..000000000 --- a/src/Squot.package/SquotArtifactContentMock.class/properties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "category" : "Squot-Tests-Support", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "id", - "diffBlock", - "mergeBlock", - "names", - "materializeBlock" ], - "name" : "SquotArtifactContentMock", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotArtifactDiff.class/README.md b/src/Squot.package/SquotArtifactDiff.class/README.md deleted file mode 100644 index baa9c26a6..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/README.md +++ /dev/null @@ -1,5 +0,0 @@ -I record the differences/changes/patch between two Artifacts. - -Instance Variables - left: left side of the diff - right: right side of the diff diff --git a/src/Squot.package/SquotArtifactDiff.class/class/isAbstract.st b/src/Squot.package/SquotArtifactDiff.class/class/isAbstract.st deleted file mode 100644 index 7c982b927..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/class/isAbstract.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isAbstract - ^ self name = #SquotArtifactDiff \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/class/left.right..st b/src/Squot.package/SquotArtifactDiff.class/class/left.right..st deleted file mode 100644 index 8cfa0c1c6..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/class/left.right..st +++ /dev/null @@ -1,6 +0,0 @@ -instance creation -left: leftArtifact right: rightArtifact - self flag: #deprecated. 'Compute differences in the caller and use full constructor for the modification instead'. - ^ self new - diff: leftArtifact against: rightArtifact; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/addToMerge.modifying..st b/src/Squot.package/SquotArtifactDiff.class/instance/addToMerge.modifying..st deleted file mode 100644 index 69b4be039..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/addToMerge.modifying..st +++ /dev/null @@ -1,4 +0,0 @@ -merging -addToMerge: aMerge modifying: anArtifact - "Merge my changes without conflicts." - aMerge addModification: self. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/adornedDiffNodeTitle..st b/src/Squot.package/SquotArtifactDiff.class/instance/adornedDiffNodeTitle..st deleted file mode 100644 index 809420094..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/adornedDiffNodeTitle..st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -adornedDiffNodeTitle: aString - "Add adornments based on the state of the diff to the basic title, aString, and answer it." - ^ aString, ' (', self diffNodeOperationTitle, ')' \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/applyTo..st b/src/Squot.package/SquotArtifactDiff.class/instance/applyTo..st deleted file mode 100644 index a97bf9585..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/applyTo..st +++ /dev/null @@ -1,4 +0,0 @@ -patching -applyTo: aSnapshotContent - self assert: (aSnapshotContent squotDiffAgainst: left content) squotHasChanges not. - ^ right content \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/applyToContainer..st b/src/Squot.package/SquotArtifactDiff.class/instance/applyToContainer..st deleted file mode 100644 index c9c39a83d..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/applyToContainer..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -applyToContainer: anObjectContainer - ^ anObjectContainer applyDiff: self toObjectAt: self path \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/asDiffTree.st b/src/Squot.package/SquotArtifactDiff.class/instance/asDiffTree.st deleted file mode 100644 index 65cb19d9f..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/asDiffTree.st +++ /dev/null @@ -1,11 +0,0 @@ -*Squot-Tools -asDiffTree - | node | - node := SquotDiffNode - title: self diffTreeNodeTitle - content: self - children: self topNodes - onInclude: [] - onExclude: []. - node withAllChildren do: [:each | each artifactDiff: self]. - ^ node \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/base.st b/src/Squot.package/SquotArtifactDiff.class/instance/base.st deleted file mode 100644 index 652a3cb36..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/base.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -base - ^ self left \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/browseFromSquotWorkingCopyArtifact..st b/src/Squot.package/SquotArtifactDiff.class/instance/browseFromSquotWorkingCopyArtifact..st deleted file mode 100644 index 3bd0a4f57..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/browseFromSquotWorkingCopyArtifact..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -browseFromSquotWorkingCopyArtifact: aSquotWorkingCopyArtifact - ^ self object browseFromSquotWorkingCopyArtifact: aSquotWorkingCopyArtifact \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/diff.against..st b/src/Squot.package/SquotArtifactDiff.class/instance/diff.against..st deleted file mode 100644 index 60901ddab..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/diff.against..st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -diff: leftArtifact against: rightArtifact - left := leftArtifact. - right := rightArtifact. - (left respondsTo: #applyLoadStatusTo:) ifTrue: [left applyLoadStatusTo: self]. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/diffNodeFallbackTitle.st b/src/Squot.package/SquotArtifactDiff.class/instance/diffNodeFallbackTitle.st deleted file mode 100644 index f3eff5e3e..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/diffNodeFallbackTitle.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -diffNodeFallbackTitle - ^ left printString \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/diffTreeNodeTitle.st b/src/Squot.package/SquotArtifactDiff.class/instance/diffTreeNodeTitle.st deleted file mode 100644 index b63e6809e..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/diffTreeNodeTitle.st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-Tools -diffTreeNodeTitle - ^ (self path isEmpty - ifTrue: [self diffNodeFallbackTitle] - ifFalse: [self path]) \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/hasChanges.st b/src/Squot.package/SquotArtifactDiff.class/instance/hasChanges.st deleted file mode 100644 index 16e26cb72..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/hasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasChanges - ^ left ~= right \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/inConflictWith..st b/src/Squot.package/SquotArtifactDiff.class/instance/inConflictWith..st deleted file mode 100644 index 39e64aca4..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/inConflictWith..st +++ /dev/null @@ -1,4 +0,0 @@ -combining diffs -inConflictWith: anArtifactDiff - self assert: left = anArtifactDiff left. - ^ SquotContainerConflict workingDiff: self conflictingDiff: anArtifactDiff \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/initialize.st b/src/Squot.package/SquotArtifactDiff.class/instance/initialize.st deleted file mode 100644 index 693ea903d..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/initialize.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -initialize - isLoadedInWorkingCopy := false. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/isAddition.st b/src/Squot.package/SquotArtifactDiff.class/instance/isAddition.st deleted file mode 100644 index baeb145a3..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/isAddition.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isAddition - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/isBasedOn..st b/src/Squot.package/SquotArtifactDiff.class/instance/isBasedOn..st deleted file mode 100644 index 94326fa8c..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/isBasedOn..st +++ /dev/null @@ -1,4 +0,0 @@ -testing -isBasedOn: aSquotObjectContainer - "Answer whether my origin matches the edition of my artifact in the given container." - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/isConflict.st b/src/Squot.package/SquotArtifactDiff.class/instance/isConflict.st deleted file mode 100644 index dc077983c..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/isConflict.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -isConflict - "See SquotContainerConflict" - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/isLoad.st b/src/Squot.package/SquotArtifactDiff.class/instance/isLoad.st deleted file mode 100644 index 176b1e8c5..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/isLoad.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isLoad - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/isMerge.st b/src/Squot.package/SquotArtifactDiff.class/instance/isMerge.st deleted file mode 100644 index c8d6ade46..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/isMerge.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isMerge - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/isModification.st b/src/Squot.package/SquotArtifactDiff.class/instance/isModification.st deleted file mode 100644 index c39c76071..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/isModification.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isModification - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/isRemoval.st b/src/Squot.package/SquotArtifactDiff.class/instance/isRemoval.st deleted file mode 100644 index 8f7f6d5ac..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/isRemoval.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isRemoval - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/left.st b/src/Squot.package/SquotArtifactDiff.class/instance/left.st deleted file mode 100644 index 3bb36da8e..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/left.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -left - ^ left \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/mayAffectArtifact.st b/src/Squot.package/SquotArtifactDiff.class/instance/mayAffectArtifact.st deleted file mode 100644 index 9619b9431..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/mayAffectArtifact.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -mayAffectArtifact - "Answer whether I might change anything about the artifact even if I should not change the snapshot of the objects themselves." - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/mergeWith..st b/src/Squot.package/SquotArtifactDiff.class/instance/mergeWith..st deleted file mode 100644 index 7c5577f5f..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/mergeWith..st +++ /dev/null @@ -1,9 +0,0 @@ -merging -mergeWith: anArtifactDiff - | merge | - self assert: self left = anArtifactDiff left. - self assert: self path = anArtifactDiff path. - "double dispatch" - merge := anArtifactDiff mergeWithDiff: self. - (self willBeLoaded and: [merge willBeLoaded not]) ifTrue: [merge toggleWhetherToLoad]. - ^ merge \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/mergeWithAddition..st b/src/Squot.package/SquotArtifactDiff.class/instance/mergeWithAddition..st deleted file mode 100644 index 5bfc8ab05..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/mergeWithAddition..st +++ /dev/null @@ -1,7 +0,0 @@ -merging -mergeWithAddition: anArtifactAddition - "Inverse case is in SquotArtifactAdditon>>#mergeWithDiff: and SquotArtifactAddition>>#mergeWithRemoval:" - "double dispatch, initiated by #mergeWith:" - self error: 'Cannot merge additon with modification or removal'. - "In fact, this should not be invoked, since there is a contradiction: according to me, the base version contained the artifact, but according to the other side, it did not. - It is likely an error further up in the call stack." \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/mergeWithDiff..st b/src/Squot.package/SquotArtifactDiff.class/instance/mergeWithDiff..st deleted file mode 100644 index 57ee5bd32..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/mergeWithDiff..st +++ /dev/null @@ -1,4 +0,0 @@ -merging -mergeWithDiff: anArtifactDiff - "double dispatch, initiated by #mergeWith:" - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/mergeWithLoad..st b/src/Squot.package/SquotArtifactDiff.class/instance/mergeWithLoad..st deleted file mode 100644 index 44ac3e2a5..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/mergeWithLoad..st +++ /dev/null @@ -1,8 +0,0 @@ -merging -mergeWithLoad: anArtifactLoad - "The other side did not change an artifact, but has it unloaded." - "double dispatch, initiated by #mergeWith:" - | merge | - merge := anArtifactLoad right mergeDiffWith: self right basedOn: anArtifactLoad left. - anArtifactLoad willBeLoaded ~= merge willBeLoaded ifTrue: [merge toggleWhetherToLoad]. - ^ merge \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/mergeWithRemoval..st b/src/Squot.package/SquotArtifactDiff.class/instance/mergeWithRemoval..st deleted file mode 100644 index f187d751a..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/mergeWithRemoval..st +++ /dev/null @@ -1,6 +0,0 @@ -merging -mergeWithRemoval: anArtifactRemoval - "The other side changed an artifact that was removed on my side. This is a conflict." - "Inverse case is in SquotArtifactRemoval>>#mergeWithDiff:" - "double dispatch, initiated by #mergeWith:" - ^ anArtifactRemoval inConflictWith: self \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/needsChoice.st b/src/Squot.package/SquotArtifactDiff.class/instance/needsChoice.st deleted file mode 100644 index 9bf9fe2fb..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/needsChoice.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -needsChoice - "Answer whether an externally supplied choice must be made before this diff can be applied (typically the answer is true for conflicts)." - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/object.st b/src/Squot.package/SquotArtifactDiff.class/instance/object.st deleted file mode 100644 index a70e92d86..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/object.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -object - ^ left ifNil: right \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/originalOrAddedArtifact.st b/src/Squot.package/SquotArtifactDiff.class/instance/originalOrAddedArtifact.st deleted file mode 100644 index b3f61ca4b..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/originalOrAddedArtifact.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -originalOrAddedArtifact - ^ left ifNil: right \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/path.st b/src/Squot.package/SquotArtifactDiff.class/instance/path.st deleted file mode 100644 index fe06eb627..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/path.st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -path - "Answer that path to which this diff can be applied." - ^ left - ifNotNil: [left path] - ifNil: [right path] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/printOn..st b/src/Squot.package/SquotArtifactDiff.class/instance/printOn..st deleted file mode 100644 index 07a71d812..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/printOn..st +++ /dev/null @@ -1,6 +0,0 @@ -printing -printOn: aStream - super printOn: aStream. - aStream - space; - print: self path. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/rebaseOn..st b/src/Squot.package/SquotArtifactDiff.class/instance/rebaseOn..st deleted file mode 100644 index cc358af83..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/rebaseOn..st +++ /dev/null @@ -1,4 +0,0 @@ -patching -rebaseOn: anObjectContainer - "This diff shall be applied to a different base. Answer a copy with the new base." - self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/resolveConflictWith..st b/src/Squot.package/SquotArtifactDiff.class/instance/resolveConflictWith..st deleted file mode 100644 index 5a0f6ce88..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/resolveConflictWith..st +++ /dev/null @@ -1,7 +0,0 @@ -merging -resolveConflictWith: aSquotArtifactDiff - "I am in conflict with another artifact diff (container conflict). - The other diff was elected to be applied to the working copy. - Answer an appropriate artifact diff that brings the working copy into the target state - of the given artifact diff." - self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/right.st b/src/Squot.package/SquotArtifactDiff.class/instance/right.st deleted file mode 100644 index 42b8b9e67..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/right.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -right - ^ right \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/setLeft.right.isLoadedInWorkingCopy..st b/src/Squot.package/SquotArtifactDiff.class/instance/setLeft.right.isLoadedInWorkingCopy..st deleted file mode 100644 index ce9a9cc3d..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/setLeft.right.isLoadedInWorkingCopy..st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -setLeft: leftArtifact right: rightArtifact isLoadedInWorkingCopy: aBoolean - left := leftArtifact. - right := rightArtifact. - isLoadedInWorkingCopy := aBoolean. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/setLoadedInWorkingCopy.st b/src/Squot.package/SquotArtifactDiff.class/instance/setLoadedInWorkingCopy.st deleted file mode 100644 index 6f036df03..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/setLoadedInWorkingCopy.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -setLoadedInWorkingCopy - isLoadedInWorkingCopy := true. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/setUpTreeRoot.toEditMerge..st b/src/Squot.package/SquotArtifactDiff.class/instance/setUpTreeRoot.toEditMerge..st deleted file mode 100644 index c0b34bf10..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/setUpTreeRoot.toEditMerge..st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-Tools -setUpTreeRoot: aDiffNode toEditMerge: aMerge - aDiffNode - includeBlock: [aMerge containerModifications at: aDiffNode content path put: aDiffNode content]; - excludeBlock: [aMerge containerModifications removeKey: aDiffNode content path]. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/setUpTreeRoot.toEditPatch..st b/src/Squot.package/SquotArtifactDiff.class/instance/setUpTreeRoot.toEditPatch..st deleted file mode 100644 index 8a601d26e..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/setUpTreeRoot.toEditPatch..st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-Tools -setUpTreeRoot: aDiffNode toEditPatch: aPatchBuilder - aDiffNode - includeBlock: [aPatchBuilder addDiff: self]; - excludeBlock: [aPatchBuilder resetAt: self path]. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/squotToolsDiffNodeContent.st b/src/Squot.package/SquotArtifactDiff.class/instance/squotToolsDiffNodeContent.st deleted file mode 100644 index 4adbb172a..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/squotToolsDiffNodeContent.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -squotToolsDiffNodeContent - "Objects of this type are used as the content of SquotDiffNode. Marker method." - \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/todo.st b/src/Squot.package/SquotArtifactDiff.class/instance/todo.st deleted file mode 100644 index 51768bd94..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/todo.st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -todo - self flag: #todo. "Move some implementations down to SquotArtifactModification (such as applyToContainer:) before Squot version 1.0. They are only in this class because originally SquotArtifactModification did not exist." \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/updateRightArtifact.st b/src/Squot.package/SquotArtifactDiff.class/instance/updateRightArtifact.st deleted file mode 100644 index 7821ddc1a..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/updateRightArtifact.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -updateRightArtifact - "Diffs that can only be applied whole or not at all need not do anything here. - If the diffs can be edited, update the right artifact from the altered diff instructions." \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/instance/willBeLoaded.st b/src/Squot.package/SquotArtifactDiff.class/instance/willBeLoaded.st deleted file mode 100644 index fbcc3740b..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/instance/willBeLoaded.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -willBeLoaded - ^ isLoadedInWorkingCopy \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiff.class/methodProperties.json b/src/Squot.package/SquotArtifactDiff.class/methodProperties.json deleted file mode 100644 index c0e5c2eb9..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/methodProperties.json +++ /dev/null @@ -1,48 +0,0 @@ -{ - "class" : { - "isAbstract" : "jr 8/15/2019 00:04", - "left:right:" : "jr 12/24/2020 00:39" }, - "instance" : { - "addToMerge:modifying:" : "jr 8/22/2019 00:37", - "adornedDiffNodeTitle:" : "jr 11/17/2020 17:52", - "applyTo:" : "jr 5/30/2017 00:40", - "applyToContainer:" : "jr 12/29/2021 21:34", - "asDiffTree" : "jr 12/22/2019 23:23", - "base" : "jr 5/29/2017 00:57", - "browseFromSquotWorkingCopyArtifact:" : "jr 12/22/2019 23:57", - "diff:against:" : "jr 11/26/2020 23:32", - "diffNodeFallbackTitle" : "jr 10/26/2019 21:29", - "diffTreeNodeTitle" : "jr 11/17/2020 17:50", - "hasChanges" : "jr 5/29/2017 13:42", - "inConflictWith:" : "jr 6/9/2019 02:42", - "initialize" : "jr 11/26/2020 23:32", - "isAddition" : "jr 9/17/2018 22:43", - "isBasedOn:" : "jr 11/5/2020 16:54", - "isConflict" : "jr 7/22/2019 22:49", - "isLoad" : "jr 11/4/2020 14:11", - "isMerge" : "jr 11/18/2020 16:02", - "isModification" : "jr 8/15/2019 00:03", - "isRemoval" : "jr 10/4/2017 20:11", - "left" : "jr 4/9/2017 23:13", - "mayAffectArtifact" : "jr 11/29/2020 22:20", - "mergeWith:" : "jr 11/22/2020 22:45", - "mergeWithAddition:" : "jr 4/15/2018 13:58", - "mergeWithDiff:" : "jr 11/22/2020 22:25", - "mergeWithLoad:" : "jr 11/19/2020 16:04", - "mergeWithRemoval:" : "jr 4/15/2018 13:38", - "needsChoice" : "jr 10/18/2017 10:16", - "object" : "jr 7/30/2019 21:19", - "originalOrAddedArtifact" : "jr 10/2/2017 23:46", - "path" : "jr 7/16/2017 02:25", - "printOn:" : "jr 4/7/2019 20:35", - "rebaseOn:" : "jr 2/9/2020 03:41", - "resolveConflictWith:" : "jr 7/27/2019 00:00", - "right" : "jr 4/9/2017 23:13", - "setLeft:right:isLoadedInWorkingCopy:" : "jr 12/7/2020 20:06", - "setLoadedInWorkingCopy" : "jr 11/19/2020 13:06", - "setUpTreeRoot:toEditMerge:" : "jr 8/15/2019 00:41", - "setUpTreeRoot:toEditPatch:" : "jr 3/3/2019 02:00", - "squotToolsDiffNodeContent" : "jr 11/3/2019 16:21", - "todo" : "jr 12/13/2020 19:10", - "updateRightArtifact" : "jr 3/9/2019 12:22", - "willBeLoaded" : "jr 11/22/2020 22:55" } } diff --git a/src/Squot.package/SquotArtifactDiff.class/properties.json b/src/Squot.package/SquotArtifactDiff.class/properties.json deleted file mode 100644 index f7d0a6aad..000000000 --- a/src/Squot.package/SquotArtifactDiff.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Diffs", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 4/10/2017 23:49", - "instvars" : [ - "left", - "right", - "isLoadedInWorkingCopy" ], - "name" : "SquotArtifactDiff", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotArtifactDiffMock.class/README.md b/src/Squot.package/SquotArtifactDiffMock.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotArtifactDiffMock.class/class/path..st b/src/Squot.package/SquotArtifactDiffMock.class/class/path..st deleted file mode 100644 index 7cc6a3ad4..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/class/path..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -path: aString - ^ self new - path: aString; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/^equals.st b/src/Squot.package/SquotArtifactDiffMock.class/instance/^equals.st deleted file mode 100644 index 0477fa713..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/^equals.st +++ /dev/null @@ -1,5 +0,0 @@ -comparing -= other - self == other ifTrue: [^ true]. - [^ self path = other path and: [self = other copiedFrom or: [other = self copiedFrom]]] - on: MessageNotUnderstood do: [^ false] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/addToMerge.modifying..st b/src/Squot.package/SquotArtifactDiffMock.class/instance/addToMerge.modifying..st deleted file mode 100644 index 3d6985a74..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/addToMerge.modifying..st +++ /dev/null @@ -1,3 +0,0 @@ -merging -addToMerge: aMerge modifying: anArtifactMock - aMerge addMerge: (mergeBlock cull: anArtifactMock cull: self). \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/applyToContainer..st b/src/Squot.package/SquotArtifactDiffMock.class/instance/applyToContainer..st deleted file mode 100644 index 008d723fa..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/applyToContainer..st +++ /dev/null @@ -1,8 +0,0 @@ -patching -applyToContainer: anObjectContainer - self isAddition ifTrue: - [self willBeLoaded - ifTrue: [^ anObjectContainer add: right] - ifFalse: [^ anObjectContainer addUnloaded: right]]. - self isRemoval ifTrue: [^ anObjectContainer removeAt: path]. - ^ anObjectContainer applyDiff: self toObjectAt: path \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/asDiffTree.st b/src/Squot.package/SquotArtifactDiffMock.class/instance/asDiffTree.st deleted file mode 100644 index af04028b9..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/asDiffTree.st +++ /dev/null @@ -1,7 +0,0 @@ -*Squot-Tests-Tools -asDiffTree - | node | - node := SquotDiffNode title: self path content: self children: self topNodes - onInclude: [] onExclude: []. - node withAllChildren do: [:each | each artifactDiff: self]. - ^ node \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/beAddition.st b/src/Squot.package/SquotArtifactDiffMock.class/instance/beAddition.st deleted file mode 100644 index 8cb63e534..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/beAddition.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -beAddition - isAddition := true. - isRemoval := false. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/beRemoval.st b/src/Squot.package/SquotArtifactDiffMock.class/instance/beRemoval.st deleted file mode 100644 index a73cc64bd..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/beRemoval.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -beRemoval - isRemoval := true. - isAddition := false. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/copiedFrom..st b/src/Squot.package/SquotArtifactDiffMock.class/instance/copiedFrom..st deleted file mode 100644 index 4e5ef7453..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/copiedFrom..st +++ /dev/null @@ -1,3 +0,0 @@ -copying -copiedFrom: anArtifactDiffMock - copiedFrom := anArtifactDiffMock. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/copiedFrom.st b/src/Squot.package/SquotArtifactDiffMock.class/instance/copiedFrom.st deleted file mode 100644 index 7ccc0314e..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/copiedFrom.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -copiedFrom - ^ copiedFrom \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/copy.st b/src/Squot.package/SquotArtifactDiffMock.class/instance/copy.st deleted file mode 100644 index 51bdabed2..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/copy.st +++ /dev/null @@ -1,5 +0,0 @@ -copying -copy - ^ super copy - copiedFrom: self; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/createArtifactMock.st b/src/Squot.package/SquotArtifactDiffMock.class/instance/createArtifactMock.st deleted file mode 100644 index 9ef37ef7e..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/createArtifactMock.st +++ /dev/null @@ -1,5 +0,0 @@ -private -createArtifactMock - ^ SquotArtifactMock new - path: self path; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/defaultMergeBlock.st b/src/Squot.package/SquotArtifactDiffMock.class/instance/defaultMergeBlock.st deleted file mode 100644 index bab1b3886..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/defaultMergeBlock.st +++ /dev/null @@ -1,3 +0,0 @@ -configuring -defaultMergeBlock - ^ [:other :this | self error: 'Mock not configured for merge'] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/hasChanges..st b/src/Squot.package/SquotArtifactDiffMock.class/instance/hasChanges..st deleted file mode 100644 index 5de42f638..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/hasChanges..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -hasChanges: aBoolean - hasChanges := aBoolean. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/hasChanges.st b/src/Squot.package/SquotArtifactDiffMock.class/instance/hasChanges.st deleted file mode 100644 index b60c505e0..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/hasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -hasChanges - ^ hasChanges ifNil: [true] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/hasConflicts..st b/src/Squot.package/SquotArtifactDiffMock.class/instance/hasConflicts..st deleted file mode 100644 index fc1d1cfe0..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/hasConflicts..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -hasConflicts: aBoolean - hasConflicts := aBoolean. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/hash.st b/src/Squot.package/SquotArtifactDiffMock.class/instance/hash.st deleted file mode 100644 index 5341a7a48..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/hash.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -hash - ^ path hash \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/isAddition.st b/src/Squot.package/SquotArtifactDiffMock.class/instance/isAddition.st deleted file mode 100644 index 91ef25600..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/isAddition.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isAddition - ^ isAddition ifNil: [false] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/isBasedOn..st b/src/Squot.package/SquotArtifactDiffMock.class/instance/isBasedOn..st deleted file mode 100644 index 6afffad8b..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/isBasedOn..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isBasedOn: aSquotObjectContainer - ^ self isAddition or: [self isLoad] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/isLoad.st b/src/Squot.package/SquotArtifactDiffMock.class/instance/isLoad.st deleted file mode 100644 index fb649c5ed..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/isLoad.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -isLoad - ^ isLoad ifNil: [false] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/isModification.st b/src/Squot.package/SquotArtifactDiffMock.class/instance/isModification.st deleted file mode 100644 index 8360cb024..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/isModification.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isModification - ^ self isAddition not and: [self isRemoval not] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/isRemoval.st b/src/Squot.package/SquotArtifactDiffMock.class/instance/isRemoval.st deleted file mode 100644 index 62edbe5df..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/isRemoval.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isRemoval - ^ isRemoval ifNil: [false] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/left..st b/src/Squot.package/SquotArtifactDiffMock.class/instance/left..st deleted file mode 100644 index d199f1007..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/left..st +++ /dev/null @@ -1,2 +0,0 @@ -accessing -left: aSquotArtifactMock \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/left.st b/src/Squot.package/SquotArtifactDiffMock.class/instance/left.st deleted file mode 100644 index 466597581..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/left.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -left - ^ SquotArtifactMock new path: path; yourself \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/mayAffectArtifact.st b/src/Squot.package/SquotArtifactDiffMock.class/instance/mayAffectArtifact.st deleted file mode 100644 index c41f48a9a..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/mayAffectArtifact.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -mayAffectArtifact - ^ mayAffectArtifact ifNil: [true] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/mergeWith..st b/src/Squot.package/SquotArtifactDiffMock.class/instance/mergeWith..st deleted file mode 100644 index 9cc96c83b..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/mergeWith..st +++ /dev/null @@ -1,3 +0,0 @@ -merging -mergeWith: anArtifactDiffOrMock - ^ mergeBlock cull: anArtifactDiffOrMock cull: self \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/object.st b/src/Squot.package/SquotArtifactDiffMock.class/instance/object.st deleted file mode 100644 index 420685b4a..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/object.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -object - ^ self right \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/path..st b/src/Squot.package/SquotArtifactDiffMock.class/instance/path..st deleted file mode 100644 index 87e72e993..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/path..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -path: aString - path := aString. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/path.st b/src/Squot.package/SquotArtifactDiffMock.class/instance/path.st deleted file mode 100644 index 0f90fd366..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/path.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -path - ^ path \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/rebaseOn..st b/src/Squot.package/SquotArtifactDiffMock.class/instance/rebaseOn..st deleted file mode 100644 index 445fc718a..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/rebaseOn..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -rebaseOn: anObjectContainer - ^ self \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/right..st b/src/Squot.package/SquotArtifactDiffMock.class/instance/right..st deleted file mode 100644 index fb718710d..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/right..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -right: anArtifact - right := anArtifact. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/right.st b/src/Squot.package/SquotArtifactDiffMock.class/instance/right.st deleted file mode 100644 index 17e62662a..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/right.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -right - ^ right ifNil: [right := self createArtifactMock] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/setUpTreeRoot.toEditMerge..st b/src/Squot.package/SquotArtifactDiffMock.class/instance/setUpTreeRoot.toEditMerge..st deleted file mode 100644 index 8a55e8a0d..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/setUpTreeRoot.toEditMerge..st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-Tests-Tools -setUpTreeRoot: aDiffNode toEditMerge: aMerge - aDiffNode - includeBlock: [aMerge containerModifications at: aDiffNode content path put: aDiffNode content]; - excludeBlock: [aMerge containerModifications removeKey: aDiffNode content path]. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/setUpTreeRoot.toEditPatch..st b/src/Squot.package/SquotArtifactDiffMock.class/instance/setUpTreeRoot.toEditPatch..st deleted file mode 100644 index a612fe3c4..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/setUpTreeRoot.toEditPatch..st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-Tests-Tools -setUpTreeRoot: aDiffNode toEditPatch: aPatchBuilder - aDiffNode - includeBlock: [aPatchBuilder addDiff: self]; - excludeBlock: [aPatchBuilder resetAt: self path]. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/toggleWhetherToLoad.st b/src/Squot.package/SquotArtifactDiffMock.class/instance/toggleWhetherToLoad.st deleted file mode 100644 index 482861c71..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/toggleWhetherToLoad.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -toggleWhetherToLoad - willBeLoaded := (willBeLoaded ifNil: [true]) not. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/topNodes.st b/src/Squot.package/SquotArtifactDiffMock.class/instance/topNodes.st deleted file mode 100644 index 3fd6315e7..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/topNodes.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -topNodes - ^ topNodes ifNil: [Array empty] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/updateRightArtifact.st b/src/Squot.package/SquotArtifactDiffMock.class/instance/updateRightArtifact.st deleted file mode 100644 index bf49d161a..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/updateRightArtifact.st +++ /dev/null @@ -1,2 +0,0 @@ -accessing -updateRightArtifact \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/whenMergedWith.return..st b/src/Squot.package/SquotArtifactDiffMock.class/instance/whenMergedWith.return..st deleted file mode 100644 index bf50574d1..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/whenMergedWith.return..st +++ /dev/null @@ -1,9 +0,0 @@ -configuring -whenMergedWith: otherArtifactDiffOrMock return: aBlock - | previousBlock | - previousBlock := mergeBlock ifNil: [self defaultMergeBlock]. - mergeBlock := - [:other :this | - other = otherArtifactDiffOrMock - ifTrue: [aBlock value] - ifFalse: [previousBlock cull: other cull: this]]. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/whenMergedWithA.return..st b/src/Squot.package/SquotArtifactDiffMock.class/instance/whenMergedWithA.return..st deleted file mode 100644 index 98bc5150d..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/whenMergedWithA.return..st +++ /dev/null @@ -1,9 +0,0 @@ -configuring -whenMergedWithA: aClass return: aBlock - | previousBlock | - previousBlock := mergeBlock ifNil: [self defaultMergeBlock]. - mergeBlock := - [:other :this | - (other isKindOf: aClass) - ifTrue: [aBlock value: other] - ifFalse: [previousBlock cull: other cull: this]]. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/willBeLoaded..st b/src/Squot.package/SquotArtifactDiffMock.class/instance/willBeLoaded..st deleted file mode 100644 index ffa488e71..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/willBeLoaded..st +++ /dev/null @@ -1,3 +0,0 @@ -configuring -willBeLoaded: aBoolean - willBeLoaded := aBoolean. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/instance/willBeLoaded.st b/src/Squot.package/SquotArtifactDiffMock.class/instance/willBeLoaded.st deleted file mode 100644 index 54dc224c7..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/instance/willBeLoaded.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -willBeLoaded - ^ willBeLoaded ifNil: [true] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffMock.class/methodProperties.json b/src/Squot.package/SquotArtifactDiffMock.class/methodProperties.json deleted file mode 100644 index bb95323f3..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/methodProperties.json +++ /dev/null @@ -1,43 +0,0 @@ -{ - "class" : { - "path:" : "jr 9/23/2018 21:46" }, - "instance" : { - "=" : "jr 11/26/2018 21:09", - "addToMerge:modifying:" : "jr 11/8/2020 00:31", - "applyToContainer:" : "jr 11/3/2020 16:12", - "asDiffTree" : "jr 12/22/2019 23:24", - "beAddition" : "jr 9/23/2018 21:50", - "beRemoval" : "jr 9/23/2018 21:50", - "copiedFrom" : "jr 11/26/2018 21:07", - "copiedFrom:" : "jr 11/26/2018 21:05", - "copy" : "jr 11/26/2018 21:04", - "createArtifactMock" : "jr 3/30/2019 12:34", - "defaultMergeBlock" : "jr 7/29/2019 23:34", - "hasChanges" : "jr 9/23/2018 21:47", - "hasChanges:" : "jr 9/23/2018 21:48", - "hasConflicts:" : "jr 6/8/2019 12:44", - "hash" : "jr 11/26/2018 21:07", - "isAddition" : "jr 9/23/2018 21:48", - "isBasedOn:" : "jr 11/5/2020 17:28", - "isLoad" : "jr 11/4/2020 17:46", - "isModification" : "jr 8/15/2019 03:23", - "isRemoval" : "jr 9/23/2018 21:50", - "left" : "jr 2/9/2020 03:36", - "left:" : "jr 2/9/2020 03:37", - "mayAffectArtifact" : "jr 11/6/2020 23:21", - "mergeWith:" : "jr 7/29/2019 23:38", - "object" : "jr 3/4/2020 08:58", - "path" : "jr 9/23/2018 21:47", - "path:" : "jr 9/23/2018 21:46", - "rebaseOn:" : "jr 2/9/2020 03:46", - "right" : "jr 3/30/2019 12:34", - "right:" : "jr 3/30/2019 12:33", - "setUpTreeRoot:toEditMerge:" : "jr 8/15/2019 00:41", - "setUpTreeRoot:toEditPatch:" : "jr 8/14/2019 22:56", - "toggleWhetherToLoad" : "jr 11/19/2020 15:17", - "topNodes" : "jr 9/23/2018 21:55", - "updateRightArtifact" : "jr 3/9/2019 15:37", - "whenMergedWith:return:" : "jr 7/29/2019 23:34", - "whenMergedWithA:return:" : "jr 7/29/2019 23:37", - "willBeLoaded" : "jr 11/3/2020 15:49", - "willBeLoaded:" : "jr 11/8/2020 00:55" } } diff --git a/src/Squot.package/SquotArtifactDiffMock.class/properties.json b/src/Squot.package/SquotArtifactDiffMock.class/properties.json deleted file mode 100644 index 0b9e93f7f..000000000 --- a/src/Squot.package/SquotArtifactDiffMock.class/properties.json +++ /dev/null @@ -1,25 +0,0 @@ -{ - "category" : "Squot-Tests-Diffs", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "path", - "hasChanges", - "isAddition", - "isRemoval", - "topNodes", - "copiedFrom", - "hasConflicts", - "right", - "mergeBlock", - "willBeLoaded", - "isLoad", - "mayAffectArtifact" ], - "name" : "SquotArtifactDiffMock", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotArtifactDiffTest.class/README.md b/src/Squot.package/SquotArtifactDiffTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotArtifactDiffTest.class/instance/applyDiffToWorkingCopy..st b/src/Squot.package/SquotArtifactDiffTest.class/instance/applyDiffToWorkingCopy..st deleted file mode 100644 index 790d1a9e9..000000000 --- a/src/Squot.package/SquotArtifactDiffTest.class/instance/applyDiffToWorkingCopy..st +++ /dev/null @@ -1,8 +0,0 @@ -tests -applyDiffToWorkingCopy: anArtifactDiff - workingCopy - applyPatch: - (workingCopy newPatchBuilder - addDiff: anArtifactDiff; - updateRightArtifacts; - buildPatch). \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffTest.class/instance/createWorkingCopyWithObjectAt..st b/src/Squot.package/SquotArtifactDiffTest.class/instance/createWorkingCopyWithObjectAt..st deleted file mode 100644 index a8d9f7f6b..000000000 --- a/src/Squot.package/SquotArtifactDiffTest.class/instance/createWorkingCopyWithObjectAt..st +++ /dev/null @@ -1,5 +0,0 @@ -tests -createWorkingCopyWithObjectAt: path - workingCopy := SquotWorkingCopy forTestInMemory. - workingCopy add: ValueHolder new at: path. - ^ (workingCopy artifactAt: path) capture. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffTest.class/instance/testAdditionsAreLoadedByDefault.st b/src/Squot.package/SquotArtifactDiffTest.class/instance/testAdditionsAreLoadedByDefault.st deleted file mode 100644 index 71098b1bf..000000000 --- a/src/Squot.package/SquotArtifactDiffTest.class/instance/testAdditionsAreLoadedByDefault.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testAdditionsAreLoadedByDefault - | snapshot | - snapshot := self createWorkingCopyWithObjectAt: 'obj'. - workingCopy removeAt: 'obj'. - self assert: (SquotArtifactAddition of: snapshot) willBeLoaded; - applyDiffToWorkingCopy: (SquotArtifactAddition of: snapshot); - assert: (workingCopy artifactAt: 'obj') isLoaded. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffTest.class/instance/testAdditionsCanBeUnloaded.st b/src/Squot.package/SquotArtifactDiffTest.class/instance/testAdditionsCanBeUnloaded.st deleted file mode 100644 index 703f51658..000000000 --- a/src/Squot.package/SquotArtifactDiffTest.class/instance/testAdditionsCanBeUnloaded.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testAdditionsCanBeUnloaded - | snapshot addition | - snapshot := self createWorkingCopyWithObjectAt: 'obj'. - workingCopy removeAt: 'obj'. - addition := SquotArtifactAddition of: snapshot. - addition toggleWhetherToLoad. - self deny: addition willBeLoaded; - applyDiffToWorkingCopy: addition; - deny: (workingCopy artifactAt: 'obj') isLoaded. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffTest.class/instance/testDiffTwoPackageArtifacts.st b/src/Squot.package/SquotArtifactDiffTest.class/instance/testDiffTwoPackageArtifacts.st deleted file mode 100644 index 4a4875b25..000000000 --- a/src/Squot.package/SquotArtifactDiffTest.class/instance/testDiffTwoPackageArtifacts.st +++ /dev/null @@ -1,54 +0,0 @@ -tests -testDiffTwoPackageArtifacts - | package classNode diff diffTree snapshot1 snapshot2 titles scriptNode | - package := PackageInfo new packageName: 'Foo'. - snapshot1 := (MCSnapshot fromDefinitions: { - MCClassDefinition name: #Foo superclassName: #Object category: 'Foo' - instVarNames: #(a b c) comment: 'Foo'. - MCMethodDefinition className: #Foo selector: #aaa category: 'accessing' - timeStamp: 'JohnWayne 4/10/2017 20:26' source: -'aaa - ^ a'. - MCMethodDefinition className: #Foo selector: #bbb category: 'accessing' - timeStamp: 'JohnWayne 4/10/2017 20:26' source: -'bbb - ^ b'. - MCMethodDefinition className: #Foo selector: #ccc category: 'accessing' - timeStamp: 'JohnWayne 4/10/2017 20:26' source: -'ccc - ^ c'. - MCPreambleDefinition script: 'Transcript show: #Foo1' packageName: 'Foo'.}) - asSquotArtifactForPackage: package. - snapshot2 := (MCSnapshot fromDefinitions: { - MCClassDefinition name: #Foo superclassName: #Object category: 'Foo' - instVarNames: #(a c) comment: 'Foo without c'. - MCMethodDefinition className: #Foo selector: #aaa category: 'accessing' - timeStamp: 'JohnWayne 4/10/2017 20:26' source: -'aaa - ^ a'. - MCMethodDefinition className: #Foo selector: #bbb category: 'accessing' - timeStamp: 'JohnWayne 4/10/2017 20:26' source: -'bbb - ^ c'. - MCMethodDefinition className: #Foo selector: #postCopy category: 'accessing' - timeStamp: 'JohnWayne 4/10/2017 20:26' source: -'postCopy - a := a copy. - c := c copy.'. - MCPreambleDefinition script: 'Transcript show: #Foo2' packageName: 'Foo'.}) - asSquotArtifactForPackage: package. - snapshot2 id: snapshot1 id. - diff := snapshot1 diffAgainst: snapshot2. - diffTree := diff asDiffTree. - self assert: diffTree children size = 2. - self assert: (classNode := diffTree children detect: [:each | each title = 'Foo'] ifNone: []) notNil. - self assert: classNode children size = 4. - titles := (classNode children collect: [:each | each title asString]). - self deny: (titles anySatisfy: [:each | each includesSubstring: 'aaa']). - self assert: (titles anySatisfy: [:each | each includesSubstring: 'Foo ']). - self assert: (titles anySatisfy: [:each | each includesSubstring: 'bbb']). - self assert: (titles anySatisfy: [:each | each includesSubstring: 'ccc']). - self assert: (titles anySatisfy: [:each | each includesSubstring: 'postCopy']). - self assert: (scriptNode := diffTree children detect: [:each | each title = 'Script'] ifNone: []) notNil. - self assert: scriptNode children size = 1. - self assert: (scriptNode children first title asString includesSubstring: 'preamble'). \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffTest.class/instance/testLoadedWorkingCopyArtifactsWillBeLoaded.st b/src/Squot.package/SquotArtifactDiffTest.class/instance/testLoadedWorkingCopyArtifactsWillBeLoaded.st deleted file mode 100644 index ebe4f882f..000000000 --- a/src/Squot.package/SquotArtifactDiffTest.class/instance/testLoadedWorkingCopyArtifactsWillBeLoaded.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testLoadedWorkingCopyArtifactsWillBeLoaded - | snapshot modification | - snapshot := self createWorkingCopyWithObjectAt: 'obj'. - (workingCopy objectAt: 'obj') contents: 2. - modification := (workingCopy artifactAt: 'obj') diffAgainst: snapshot. - self assert: modification willBeLoaded; - applyDiffToWorkingCopy: modification; - assert: (workingCopy artifactAt: 'obj') isLoaded; - assert: (workingCopy objectAt: 'obj') contents ~= 2. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffTest.class/instance/testLoadedWorkingCopyArtifactsWillBeLoaded2.st b/src/Squot.package/SquotArtifactDiffTest.class/instance/testLoadedWorkingCopyArtifactsWillBeLoaded2.st deleted file mode 100644 index 0c2f65c75..000000000 --- a/src/Squot.package/SquotArtifactDiffTest.class/instance/testLoadedWorkingCopyArtifactsWillBeLoaded2.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testLoadedWorkingCopyArtifactsWillBeLoaded2 - | snapshot modification | - snapshot := self createWorkingCopyWithObjectAt: 'obj'. - (workingCopy objectAt: 'obj') contents: 2. - modification := snapshot diffAgainst: (workingCopy artifactAt: 'obj'). - self assert: modification willBeLoaded. "so it is not displayed as unloaded in diff explorer" \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffTest.class/instance/testLoadsCanBeDisabled.st b/src/Squot.package/SquotArtifactDiffTest.class/instance/testLoadsCanBeDisabled.st deleted file mode 100644 index a9269356a..000000000 --- a/src/Squot.package/SquotArtifactDiffTest.class/instance/testLoadsCanBeDisabled.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testLoadsCanBeDisabled - | snapshot load | - snapshot := self createWorkingCopyWithObjectAt: 'obj'. - workingCopy - removeAt: 'obj'; - addUnloaded: snapshot. - load := SquotArtifactLoad of: (workingCopy artifactAt: 'obj'). - load toggleWhetherToLoad. - self deny: load willBeLoaded; - applyDiffToWorkingCopy: load; - deny: (workingCopy artifactAt: 'obj') isLoaded. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffTest.class/instance/testLoadsWillBeLoaded.st b/src/Squot.package/SquotArtifactDiffTest.class/instance/testLoadsWillBeLoaded.st deleted file mode 100644 index cf3afa650..000000000 --- a/src/Squot.package/SquotArtifactDiffTest.class/instance/testLoadsWillBeLoaded.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testLoadsWillBeLoaded - | snapshot load | - snapshot := self createWorkingCopyWithObjectAt: 'obj'. - workingCopy removeAt: 'obj'; addUnloaded: snapshot. - load := SquotArtifactLoad of: (workingCopy artifactAt: 'obj'). - self assert: load willBeLoaded; - applyDiffToWorkingCopy: load; - assert: (workingCopy artifactAt: 'obj') isLoaded; - assert: (workingCopy objectAt: 'obj') class = ValueHolder. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffTest.class/instance/testMetadataModification.st b/src/Squot.package/SquotArtifactDiffTest.class/instance/testMetadataModification.st deleted file mode 100644 index 1e66fb98c..000000000 --- a/src/Squot.package/SquotArtifactDiffTest.class/instance/testMetadataModification.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testMetadataModification - | original changed diff new | - original := self createWorkingCopyWithObjectAt: 'obj'. - (workingCopy store metadataForObjectAt: 'obj') at: #dummy put: 1. - changed := (workingCopy artifactAt: 'obj') snapshot. - diff := original diffAgainst: changed. - self assert: diff mayAffectArtifact. - new := original copyWithDiffApplied: diff. "This message is only used by snapshots, so this test case currently really needs to exist per object container type." - self deny: (changed diffAgainst: new) mayAffectArtifact. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffTest.class/instance/testPatchingPreservesIdOfWorkingCopy.st b/src/Squot.package/SquotArtifactDiffTest.class/instance/testPatchingPreservesIdOfWorkingCopy.st deleted file mode 100644 index f20f0c2d5..000000000 --- a/src/Squot.package/SquotArtifactDiffTest.class/instance/testPatchingPreservesIdOfWorkingCopy.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testPatchingPreservesIdOfWorkingCopy - | original changed diff new originalId | - original := self createWorkingCopyWithObjectAt: 'obj'. - originalId := original id. - (workingCopy store metadataForObjectAt: 'obj') at: #dummy put: 1. - changed := (workingCopy artifactAt: 'obj') snapshot. - changed id: UUID new. - diff := original diffAgainst: changed. - self assert: diff mayAffectArtifact. - new := original copyWithDiffApplied: diff. - self assert: originalId equals: new id. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffTest.class/instance/testUnloadedWorkingCopyArtifactRemovalsWillNotBeLoaded.st b/src/Squot.package/SquotArtifactDiffTest.class/instance/testUnloadedWorkingCopyArtifactRemovalsWillNotBeLoaded.st deleted file mode 100644 index b16c03c1b..000000000 --- a/src/Squot.package/SquotArtifactDiffTest.class/instance/testUnloadedWorkingCopyArtifactRemovalsWillNotBeLoaded.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testUnloadedWorkingCopyArtifactRemovalsWillNotBeLoaded - | snapshot removal | - snapshot := self createWorkingCopyWithObjectAt: 'obj'. - workingCopy removeAt: 'obj'; addUnloaded: snapshot. - removal := SquotArtifactRemoval of: (workingCopy artifactAt: 'obj'). - self deny: removal willBeLoaded; - applyDiffToWorkingCopy: removal; - deny: (workingCopy includesObjectAt: 'obj'). "Ideally would assert that the object was not materialized in the meantime." \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffTest.class/instance/testUnloadedWorkingCopyArtifactsWillNotBeLoaded.st b/src/Squot.package/SquotArtifactDiffTest.class/instance/testUnloadedWorkingCopyArtifactsWillNotBeLoaded.st deleted file mode 100644 index 75e003b13..000000000 --- a/src/Squot.package/SquotArtifactDiffTest.class/instance/testUnloadedWorkingCopyArtifactsWillNotBeLoaded.st +++ /dev/null @@ -1,13 +0,0 @@ -tests -testUnloadedWorkingCopyArtifactsWillNotBeLoaded - | snapshot1 snapshot2 modification | - snapshot1 := self createWorkingCopyWithObjectAt: 'obj'. - (workingCopy objectAt: 'obj') contents: 2. - snapshot2 := (workingCopy artifactAt: 'obj') capture. - workingCopy removeAt: 'obj'; addUnloaded: snapshot2. - modification := (workingCopy artifactAt: 'obj') diffAgainst: snapshot1. - self deny: modification willBeLoaded; - applyDiffToWorkingCopy: modification; - deny: (workingCopy artifactAt: 'obj') isLoaded; - deny: (workingCopy store includesObjectAt: 'obj'); - assert: snapshot1 equals: (workingCopy artifactAt: 'obj') artifact. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffTest.class/instance/testUnloadedWorkingCopyArtifactsWillNotBeLoaded2.st b/src/Squot.package/SquotArtifactDiffTest.class/instance/testUnloadedWorkingCopyArtifactsWillNotBeLoaded2.st deleted file mode 100644 index cb1212912..000000000 --- a/src/Squot.package/SquotArtifactDiffTest.class/instance/testUnloadedWorkingCopyArtifactsWillNotBeLoaded2.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testUnloadedWorkingCopyArtifactsWillNotBeLoaded2 - | snapshot1 snapshot2 modification | - snapshot1 := self createWorkingCopyWithObjectAt: 'obj'. - (workingCopy objectAt: 'obj') contents: 2. - snapshot2 := (workingCopy artifactAt: 'obj') capture. - workingCopy removeAt: 'obj'; addUnloaded: snapshot2. - modification := snapshot1 diffAgainst: (workingCopy artifactAt: 'obj'). - self deny: modification willBeLoaded. "so it will appear as not loaded in diff explorer" \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactDiffTest.class/methodProperties.json b/src/Squot.package/SquotArtifactDiffTest.class/methodProperties.json deleted file mode 100644 index 10dae62ab..000000000 --- a/src/Squot.package/SquotArtifactDiffTest.class/methodProperties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "applyDiffToWorkingCopy:" : "jr 7/17/2021 20:37", - "createWorkingCopyWithObjectAt:" : "jr 11/7/2020 23:16", - "testAdditionsAreLoadedByDefault" : "jr 11/7/2020 23:22", - "testAdditionsCanBeUnloaded" : "jr 11/7/2020 23:22", - "testDiffTwoPackageArtifacts" : "jr 2/13/2022 23:07", - "testLoadedWorkingCopyArtifactsWillBeLoaded" : "jr 11/18/2020 18:29", - "testLoadedWorkingCopyArtifactsWillBeLoaded2" : "jr 11/22/2020 21:55", - "testLoadsCanBeDisabled" : "jr 11/7/2020 23:24", - "testLoadsWillBeLoaded" : "jr 11/7/2020 23:26", - "testMetadataModification" : "jr 12/12/2020 12:11", - "testPatchingPreservesIdOfWorkingCopy" : "jr 2/13/2022 18:14", - "testUnloadedWorkingCopyArtifactRemovalsWillNotBeLoaded" : "jr 11/7/2020 23:27", - "testUnloadedWorkingCopyArtifactsWillNotBeLoaded" : "jr 11/22/2020 21:57", - "testUnloadedWorkingCopyArtifactsWillNotBeLoaded2" : "jr 11/22/2020 21:57" } } diff --git a/src/Squot.package/SquotArtifactDiffTest.class/properties.json b/src/Squot.package/SquotArtifactDiffTest.class/properties.json deleted file mode 100644 index 79b01d849..000000000 --- a/src/Squot.package/SquotArtifactDiffTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Diffs", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "workingCopy" ], - "name" : "SquotArtifactDiffTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotArtifactLoad.class/README.md b/src/Squot.package/SquotArtifactLoad.class/README.md deleted file mode 100644 index 4ac5b5ce6..000000000 --- a/src/Squot.package/SquotArtifactLoad.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I record that an artifact will be converted from unloaded to loaded. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLoad.class/class/of..st b/src/Squot.package/SquotArtifactLoad.class/class/of..st deleted file mode 100644 index b3a947bb4..000000000 --- a/src/Squot.package/SquotArtifactLoad.class/class/of..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -of: anUnloadedArtifact - ^ self new - setArtifact: anUnloadedArtifact; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLoad.class/instance/adornedDiffNodeTitle..st b/src/Squot.package/SquotArtifactLoad.class/instance/adornedDiffNodeTitle..st deleted file mode 100644 index 0aac3ff7f..000000000 --- a/src/Squot.package/SquotArtifactLoad.class/instance/adornedDiffNodeTitle..st +++ /dev/null @@ -1,9 +0,0 @@ -*Squot-Tools -adornedDiffNodeTitle: aString - "Add adornments based on the state of the diff to the basic title, aString, and answer it." - ^ self willBeLoaded - ifTrue: ['load ', (super adornedDiffNodeTitle: aString)] - ifFalse: - [ | text | - text := ('( do not load ', (super adornedDiffNodeTitle: aString), ' )') asText. - text addAttribute: (TextColor color: (self userInterfaceTheme excludedDiffItemColor ifNil: [(self userInterfaceTheme get: #tempVar for: #SHTextStylerST80) ifNotNil: [:collection | collection detect: [:each | each class = Color] ifNone: []] ifNil: [Color gray]]))] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLoad.class/instance/applyToContainer..st b/src/Squot.package/SquotArtifactLoad.class/instance/applyToContainer..st deleted file mode 100644 index 0314f3d4a..000000000 --- a/src/Squot.package/SquotArtifactLoad.class/instance/applyToContainer..st +++ /dev/null @@ -1,7 +0,0 @@ -patching -applyToContainer: anObjectContainer - willBeLoaded ifFalse: ["Do nothing" ^ left]. - anObjectContainer = left workingCopy - ifTrue: [^ left load]. - "Otherwise, this is also applied to load order merges, where it has no effect." - "No further effect on the object container." \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLoad.class/instance/diffNodeOperationTitle.st b/src/Squot.package/SquotArtifactLoad.class/instance/diffNodeOperationTitle.st deleted file mode 100644 index 8727fe4dc..000000000 --- a/src/Squot.package/SquotArtifactLoad.class/instance/diffNodeOperationTitle.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -diffNodeOperationTitle - ^ 'unchanged' \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLoad.class/instance/hasChanges.st b/src/Squot.package/SquotArtifactLoad.class/instance/hasChanges.st deleted file mode 100644 index 998cf1252..000000000 --- a/src/Squot.package/SquotArtifactLoad.class/instance/hasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasChanges - ^ false "Not to the snapshot, but to the state of the working copy." \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLoad.class/instance/initialize.st b/src/Squot.package/SquotArtifactLoad.class/instance/initialize.st deleted file mode 100644 index d33d514e0..000000000 --- a/src/Squot.package/SquotArtifactLoad.class/instance/initialize.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -initialize - willBeLoaded := true. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLoad.class/instance/isBasedOn..st b/src/Squot.package/SquotArtifactLoad.class/instance/isBasedOn..st deleted file mode 100644 index e432eea8b..000000000 --- a/src/Squot.package/SquotArtifactLoad.class/instance/isBasedOn..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isBasedOn: aSquotObjectContainer - ^ true "I bear no real differences in content, so each container that has me unloaded will match." \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLoad.class/instance/isLoad.st b/src/Squot.package/SquotArtifactLoad.class/instance/isLoad.st deleted file mode 100644 index 4909d32a5..000000000 --- a/src/Squot.package/SquotArtifactLoad.class/instance/isLoad.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isLoad - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLoad.class/instance/mayAffectArtifact.st b/src/Squot.package/SquotArtifactLoad.class/instance/mayAffectArtifact.st deleted file mode 100644 index 7f33408df..000000000 --- a/src/Squot.package/SquotArtifactLoad.class/instance/mayAffectArtifact.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -mayAffectArtifact - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLoad.class/instance/mergeWith..st b/src/Squot.package/SquotArtifactLoad.class/instance/mergeWith..st deleted file mode 100644 index f5ef590be..000000000 --- a/src/Squot.package/SquotArtifactLoad.class/instance/mergeWith..st +++ /dev/null @@ -1,6 +0,0 @@ -merging -mergeWith: anArtifactDiff - self assert: self left artifact "<-- difference to super method" = anArtifactDiff left. - self assert: self path = anArtifactDiff path. - "double dispatch" - ^ anArtifactDiff mergeWithLoad: self \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLoad.class/instance/mergeWithAddition..st b/src/Squot.package/SquotArtifactLoad.class/instance/mergeWithAddition..st deleted file mode 100644 index dd220e5e2..000000000 --- a/src/Squot.package/SquotArtifactLoad.class/instance/mergeWithAddition..st +++ /dev/null @@ -1,3 +0,0 @@ -merging -mergeWithAddition: anArtifactAddition - self shouldNotImplement. "I say the artifact already existed, the addition says it did not." \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLoad.class/instance/mergeWithDiff..st b/src/Squot.package/SquotArtifactLoad.class/instance/mergeWithDiff..st deleted file mode 100644 index 1e94054a1..000000000 --- a/src/Squot.package/SquotArtifactLoad.class/instance/mergeWithDiff..st +++ /dev/null @@ -1,7 +0,0 @@ -merging -mergeWithDiff: anArtifactDiff - "double dispatch, initiated by #mergeWith:" - | merge | - merge := anArtifactDiff right mergeDiffWith: self right basedOn: self left. - willBeLoaded ~= merge willBeLoaded ifTrue: [merge toggleWhetherToLoad]. - ^ merge \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLoad.class/instance/mergeWithRemoval..st b/src/Squot.package/SquotArtifactLoad.class/instance/mergeWithRemoval..st deleted file mode 100644 index 280e23d02..000000000 --- a/src/Squot.package/SquotArtifactLoad.class/instance/mergeWithRemoval..st +++ /dev/null @@ -1,4 +0,0 @@ -merging -mergeWithRemoval: anArtifactRemoval - "I simply say that the artifact was not loaded, not that there were changes. Therefore, the removal takes precedence." - ^ anArtifactRemoval \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLoad.class/instance/needsChoice.st b/src/Squot.package/SquotArtifactLoad.class/instance/needsChoice.st deleted file mode 100644 index 43d2dd45f..000000000 --- a/src/Squot.package/SquotArtifactLoad.class/instance/needsChoice.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -needsChoice - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLoad.class/instance/rebaseOn..st b/src/Squot.package/SquotArtifactLoad.class/instance/rebaseOn..st deleted file mode 100644 index d570764dc..000000000 --- a/src/Squot.package/SquotArtifactLoad.class/instance/rebaseOn..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -rebaseOn: anObjectContainer - self shouldNotImplement. "Should not be rebased on another container, only works for working copies." \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLoad.class/instance/resolveConflictWith..st b/src/Squot.package/SquotArtifactLoad.class/instance/resolveConflictWith..st deleted file mode 100644 index 0ee7cba35..000000000 --- a/src/Squot.package/SquotArtifactLoad.class/instance/resolveConflictWith..st +++ /dev/null @@ -1,3 +0,0 @@ -merging -resolveConflictWith: aSquotArtifactDiff - self shouldNotImplement. "I bear no changes except for loading an unchanged artifact." \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLoad.class/instance/setArtifact..st b/src/Squot.package/SquotArtifactLoad.class/instance/setArtifact..st deleted file mode 100644 index c5779fa2a..000000000 --- a/src/Squot.package/SquotArtifactLoad.class/instance/setArtifact..st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -setArtifact: anArtifact - left := anArtifact. - right := anArtifact artifact. - isLoadedInWorkingCopy := false. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLoad.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotArtifactLoad.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index 962bcaa87..000000000 --- a/src/Squot.package/SquotArtifactLoad.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotChangeAsStringOrText - ^ (Text fromString: 'load ', left path, ': ') append: left squotSummaryText \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLoad.class/instance/toggleWhetherToLoad.st b/src/Squot.package/SquotArtifactLoad.class/instance/toggleWhetherToLoad.st deleted file mode 100644 index 605394824..000000000 --- a/src/Squot.package/SquotArtifactLoad.class/instance/toggleWhetherToLoad.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -toggleWhetherToLoad - ^ willBeLoaded := self willBeLoaded not \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLoad.class/instance/topNodes.st b/src/Squot.package/SquotArtifactLoad.class/instance/topNodes.st deleted file mode 100644 index a527213e3..000000000 --- a/src/Squot.package/SquotArtifactLoad.class/instance/topNodes.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -topNodes - ^ #() \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLoad.class/instance/willBeLoaded.st b/src/Squot.package/SquotArtifactLoad.class/instance/willBeLoaded.st deleted file mode 100644 index 1bba37d76..000000000 --- a/src/Squot.package/SquotArtifactLoad.class/instance/willBeLoaded.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -willBeLoaded - ^ willBeLoaded \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLoad.class/methodProperties.json b/src/Squot.package/SquotArtifactLoad.class/methodProperties.json deleted file mode 100644 index cb6c78cf8..000000000 --- a/src/Squot.package/SquotArtifactLoad.class/methodProperties.json +++ /dev/null @@ -1,24 +0,0 @@ -{ - "class" : { - "of:" : "jr 11/5/2020 17:47" }, - "instance" : { - "adornedDiffNodeTitle:" : "jr 11/17/2020 18:16", - "applyToContainer:" : "jr 1/3/2021 22:16", - "diffNodeOperationTitle" : "jr 11/17/2020 18:14", - "hasChanges" : "jr 11/7/2020 00:08", - "initialize" : "jr 11/4/2020 14:30", - "isBasedOn:" : "jr 11/5/2020 16:55", - "isLoad" : "jr 11/4/2020 14:11", - "mayAffectArtifact" : "jr 11/29/2020 22:21", - "mergeWith:" : "jr 11/19/2020 15:55", - "mergeWithAddition:" : "jr 11/19/2020 15:45", - "mergeWithDiff:" : "jr 11/19/2020 15:59", - "mergeWithRemoval:" : "jr 11/19/2020 15:50", - "needsChoice" : "jr 7/22/2017 23:55", - "rebaseOn:" : "jr 11/4/2020 14:06", - "resolveConflictWith:" : "jr 11/4/2020 14:06", - "setArtifact:" : "jr 11/19/2020 13:06", - "squotChangeAsStringOrText" : "jr 11/4/2020 14:06", - "toggleWhetherToLoad" : "jr 10/4/2020 17:20", - "topNodes" : "jr 11/6/2018 08:11", - "willBeLoaded" : "jr 11/5/2020 14:31" } } diff --git a/src/Squot.package/SquotArtifactLoad.class/properties.json b/src/Squot.package/SquotArtifactLoad.class/properties.json deleted file mode 100644 index cf0e6ade7..000000000 --- a/src/Squot.package/SquotArtifactLoad.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Diffs", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 11/4/2020 12:58", - "instvars" : [ - "willBeLoaded" ], - "name" : "SquotArtifactLoad", - "pools" : [ - ], - "super" : "SquotArtifactDiff", - "type" : "normal" } diff --git a/src/Squot.package/SquotArtifactLocator.class/README.md b/src/Squot.package/SquotArtifactLocator.class/README.md deleted file mode 100644 index 17b3067dd..000000000 --- a/src/Squot.package/SquotArtifactLocator.class/README.md +++ /dev/null @@ -1,5 +0,0 @@ -I inspect files and directories for Squot artifacts (files that represent tracked Smalltalk objects). The search algorithm is run by SquotFileSearchForArtifacts. This is necessary when a repository is inspected that does not have the Squot metadata files, such as a table of contents. So the objects must be discovered in the file tree. - -My intended usage is that you create an extension method on SquotFileSystemStore with the following pragma: - -...and return an instance of me from the method. This has the store try the thus registered locator instance when searching for yet unknown artifacts. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLocator.class/instance/detectArtifactsIn.search..st b/src/Squot.package/SquotArtifactLocator.class/instance/detectArtifactsIn.search..st deleted file mode 100644 index 180522451..000000000 --- a/src/Squot.package/SquotArtifactLocator.class/instance/detectArtifactsIn.search..st +++ /dev/null @@ -1,3 +0,0 @@ -guessing -detectArtifactsIn: aFileOrDirectory search: aFileSearchForArtifacts - detectBlock value: aFileOrDirectory value: aFileSearchForArtifacts value: self. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLocator.class/instance/detectBlock..st b/src/Squot.package/SquotArtifactLocator.class/instance/detectBlock..st deleted file mode 100644 index 0e5edd0ab..000000000 --- a/src/Squot.package/SquotArtifactLocator.class/instance/detectBlock..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -detectBlock: anObject - - detectBlock := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLocator.class/instance/detectBlock.st b/src/Squot.package/SquotArtifactLocator.class/instance/detectBlock.st deleted file mode 100644 index 7606a71a5..000000000 --- a/src/Squot.package/SquotArtifactLocator.class/instance/detectBlock.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -detectBlock - - ^ detectBlock \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLocator.class/instance/name..st b/src/Squot.package/SquotArtifactLocator.class/instance/name..st deleted file mode 100644 index 7b35e8453..000000000 --- a/src/Squot.package/SquotArtifactLocator.class/instance/name..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name: aString - name := aString. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLocator.class/instance/name.st b/src/Squot.package/SquotArtifactLocator.class/instance/name.st deleted file mode 100644 index 782b00519..000000000 --- a/src/Squot.package/SquotArtifactLocator.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ name ifNil: [detectBlock homeMethod selector] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLocator.class/instance/printOn..st b/src/Squot.package/SquotArtifactLocator.class/instance/printOn..st deleted file mode 100644 index ae957a748..000000000 --- a/src/Squot.package/SquotArtifactLocator.class/instance/printOn..st +++ /dev/null @@ -1,4 +0,0 @@ -printing -printOn: aStream - aStream nextPutAll: self name. - \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLocator.class/methodProperties.json b/src/Squot.package/SquotArtifactLocator.class/methodProperties.json deleted file mode 100644 index bdf6f7023..000000000 --- a/src/Squot.package/SquotArtifactLocator.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "detectArtifactsIn:search:" : "jr 3/10/2019 21:23", - "detectBlock" : "jr 3/10/2019 20:52", - "detectBlock:" : "jr 3/10/2019 20:52", - "name" : "jr 3/12/2019 21:21", - "name:" : "jr 3/12/2019 21:18", - "printOn:" : "jr 3/12/2019 21:17" } } diff --git a/src/Squot.package/SquotArtifactLocator.class/properties.json b/src/Squot.package/SquotArtifactLocator.class/properties.json deleted file mode 100644 index 96f7eee1f..000000000 --- a/src/Squot.package/SquotArtifactLocator.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-FileSystemStore", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 20:36", - "instvars" : [ - "detectBlock", - "name" ], - "name" : "SquotArtifactLocator", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotArtifactLocatorTest.class/README.md b/src/Squot.package/SquotArtifactLocatorTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotArtifactLocatorTest.class/class/isAbstract.st b/src/Squot.package/SquotArtifactLocatorTest.class/class/isAbstract.st deleted file mode 100644 index 2a91fb46d..000000000 --- a/src/Squot.package/SquotArtifactLocatorTest.class/class/isAbstract.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isAbstract - ^ self = SquotArtifactLocatorTest \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLocatorTest.class/instance/setUp.st b/src/Squot.package/SquotArtifactLocatorTest.class/instance/setUp.st deleted file mode 100644 index 400613e7d..000000000 --- a/src/Squot.package/SquotArtifactLocatorTest.class/instance/setUp.st +++ /dev/null @@ -1,4 +0,0 @@ -running -setUp - rootDirectory := FileSystem memory root. - fileStore := SquotFileSystemStore inDirectory: rootDirectory. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactLocatorTest.class/methodProperties.json b/src/Squot.package/SquotArtifactLocatorTest.class/methodProperties.json deleted file mode 100644 index 5715790f6..000000000 --- a/src/Squot.package/SquotArtifactLocatorTest.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "isAbstract" : "jr 3/5/2019 23:19" }, - "instance" : { - "setUp" : "jr 3/6/2019 21:50" } } diff --git a/src/Squot.package/SquotArtifactLocatorTest.class/properties.json b/src/Squot.package/SquotArtifactLocatorTest.class/properties.json deleted file mode 100644 index 3f2473ea0..000000000 --- a/src/Squot.package/SquotArtifactLocatorTest.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Tests-Serialization", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "rootDirectory", - "locator", - "fileStore" ], - "name" : "SquotArtifactLocatorTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotArtifactMerge.class/README.md b/src/Squot.package/SquotArtifactMerge.class/README.md deleted file mode 100644 index 2ab4f8d86..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/README.md +++ /dev/null @@ -1 +0,0 @@ -The merge of three editions of a single artifact. Contains merges for all the parts of an artifact, such as the object graph and the metadata. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/class/into.merge.basedOn.willBeLoaded.graphMerge.metadataMerge..st b/src/Squot.package/SquotArtifactMerge.class/class/into.merge.basedOn.willBeLoaded.graphMerge.metadataMerge..st deleted file mode 100644 index 4f0d4f48f..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/class/into.merge.basedOn.willBeLoaded.graphMerge.metadataMerge..st +++ /dev/null @@ -1,10 +0,0 @@ -instance creation -into: workingArtifact merge: incomingArtifact basedOn: baseArtifact willBeLoaded: aBoolean graphMerge: anObjectGraphMerge metadataMerge: aTrackedObjectMetadataMerge - ^ self new - setWorking: workingArtifact - incoming: incomingArtifact - base: baseArtifact - willBeLoaded: aBoolean - graphMerge: anObjectGraphMerge - metadataMerge: aTrackedObjectMetadataMerge; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/adornedDiffNodeTitle..st b/src/Squot.package/SquotArtifactMerge.class/instance/adornedDiffNodeTitle..st deleted file mode 100644 index cca320fdc..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/adornedDiffNodeTitle..st +++ /dev/null @@ -1,8 +0,0 @@ -*Squot-Tools -adornedDiffNodeTitle: aString - ^ self workingIsLoaded - ifTrue: [aString, ' (merge)'] - ifFalse: - [self willBeLoaded - ifTrue: ['load ', aString, ' (merge, currently unloaded)'] - ifFalse: [aString, ' (merge, not loaded)']] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/asDiffTree.st b/src/Squot.package/SquotArtifactMerge.class/instance/asDiffTree.st deleted file mode 100644 index cd5fc6d71..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/asDiffTree.st +++ /dev/null @@ -1,19 +0,0 @@ -*Squot-Tools -asDiffTree - | node | - node := self hasConflicts - ifTrue: [SquotMergeDiffNode - title: self diffTreeNodeTitle - content: self - children: self diffTreeChildren - onInclude: [self chooseIncoming] - onExclude: [self chooseWorking] - onReset: [self resetChoice]] - ifFalse: [SquotDiffNode - title: self diffTreeNodeTitle - content: self - children: self diffTreeChildren - onInclude: [self chooseIncoming] - onExclude: [self chooseWorking]]. - node withAllChildren do: [:each | each artifactDiff: self]. - ^ node \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/base..st b/src/Squot.package/SquotArtifactMerge.class/instance/base..st deleted file mode 100644 index db0eae6a8..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/base..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -base: anArtifact - super base: anArtifact. - graphMerge base: anArtifact content. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/chooseIncoming.st b/src/Squot.package/SquotArtifactMerge.class/instance/chooseIncoming.st deleted file mode 100644 index 547bc4073..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/chooseIncoming.st +++ /dev/null @@ -1,3 +0,0 @@ -merging -chooseIncoming - graphMerge chooseIncoming. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/chooseWorking.st b/src/Squot.package/SquotArtifactMerge.class/instance/chooseWorking.st deleted file mode 100644 index 9e96f777f..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/chooseWorking.st +++ /dev/null @@ -1,3 +0,0 @@ -merging -chooseWorking - graphMerge chooseWorking. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/computeDifferences.st b/src/Squot.package/SquotArtifactMerge.class/instance/computeDifferences.st deleted file mode 100644 index dcbaec93c..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/computeDifferences.st +++ /dev/null @@ -1,5 +0,0 @@ -private -computeDifferences - self flag: #deprecated. 'Compute differences in the caller and use full constructor for the merge instead'. - graphMerge := working diffContentAgainstThatOf: incoming withBase: base. - metadataMerge := working storeInfo squotMergeWith: incoming storeInfo basedOn: base storeInfo. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/conflicts.st b/src/Squot.package/SquotArtifactMerge.class/instance/conflicts.st deleted file mode 100644 index f7a6603f3..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/conflicts.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -conflicts - ^ graphMerge conflicts \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/diffTreeChildren.st b/src/Squot.package/SquotArtifactMerge.class/instance/diffTreeChildren.st deleted file mode 100644 index 7f921afe1..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/diffTreeChildren.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -diffTreeChildren - ^ graphMerge asSquotHierarchicalDiff, self metadataDiffNodes \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/diffTreeNodeTitle.st b/src/Squot.package/SquotArtifactMerge.class/instance/diffTreeNodeTitle.st deleted file mode 100644 index 84a4786d2..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/diffTreeNodeTitle.st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-Tools -diffTreeNodeTitle - ^ (self path isEmpty - ifTrue: [working printString] - ifFalse: [self path]) \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/elementMerges.st b/src/Squot.package/SquotArtifactMerge.class/instance/elementMerges.st deleted file mode 100644 index bb955c1da..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/elementMerges.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -elementMerges - ^ graphMerge elementMerges \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/graphMerge..st b/src/Squot.package/SquotArtifactMerge.class/instance/graphMerge..st deleted file mode 100644 index 73973909e..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/graphMerge..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -graphMerge: anObject - - graphMerge := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/graphMerge.st b/src/Squot.package/SquotArtifactMerge.class/instance/graphMerge.st deleted file mode 100644 index 9c7ce2d9e..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/graphMerge.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -graphMerge - - ^ graphMerge \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/hasChanges.st b/src/Squot.package/SquotArtifactMerge.class/instance/hasChanges.st deleted file mode 100644 index 271686665..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/hasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasChanges - ^ graphMerge hasChanges or: [metadataMerge hasChanges] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/hasConflicts.st b/src/Squot.package/SquotArtifactMerge.class/instance/hasConflicts.st deleted file mode 100644 index 96aea6ccd..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/hasConflicts.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasConflicts - ^ graphMerge hasConflicts or: [metadataMerge hasConflicts] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/incoming..st b/src/Squot.package/SquotArtifactMerge.class/instance/incoming..st deleted file mode 100644 index 7ba40ae7e..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/incoming..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -incoming: anArtifact - super incoming: anArtifact. - graphMerge incoming: anArtifact content. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/initialize.st b/src/Squot.package/SquotArtifactMerge.class/instance/initialize.st deleted file mode 100644 index 391b7f9fd..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initialize - graphMerge := SquotObjectGraphMerge new. - willBeLoaded := false. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/mayAffectArtifact.st b/src/Squot.package/SquotArtifactMerge.class/instance/mayAffectArtifact.st deleted file mode 100644 index 2bbc32a14..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/mayAffectArtifact.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -mayAffectArtifact - "This message exists primarily because of artifact loads (they have no changes, but may still affect the artifact in the working copy). Merges imply that there are differences somewhere." - ^ self hasChanges \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/mergeOfTrackedObject.st b/src/Squot.package/SquotArtifactMerge.class/instance/mergeOfTrackedObject.st deleted file mode 100644 index bae88403a..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/mergeOfTrackedObject.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -mergeOfTrackedObject - ^ graphMerge mergeOfStartObject \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/metadata.st b/src/Squot.package/SquotArtifactMerge.class/instance/metadata.st deleted file mode 100644 index 3a15ef3b3..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/metadata.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -metadata - "Protocol of SquotArtifactDiff" - ^ metadataMerge \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/metadataDiffNodes.st b/src/Squot.package/SquotArtifactMerge.class/instance/metadataDiffNodes.st deleted file mode 100644 index afc0c1448..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/metadataDiffNodes.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -metadataDiffNodes - ^ metadataMerge asSquotHierarchicalDiff \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/modifications.st b/src/Squot.package/SquotArtifactMerge.class/instance/modifications.st deleted file mode 100644 index da744f210..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/modifications.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -modifications - ^ graphMerge modifications \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/path.st b/src/Squot.package/SquotArtifactMerge.class/instance/path.st deleted file mode 100644 index 1c0038339..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/path.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -path - ^ (working ifNil: [base]) path \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/privateResolvedPatch.st b/src/Squot.package/SquotArtifactMerge.class/instance/privateResolvedPatch.st deleted file mode 100644 index 63be25b67..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/privateResolvedPatch.st +++ /dev/null @@ -1,14 +0,0 @@ -private -privateResolvedPatch - | modification | - modification := (SquotArtifactModification - left: working - right: incoming - isLoadedInWorkingCopy: ((working respondsTo: #isLoaded) and: [working isLoaded]) - contentDiff: graphMerge resolvedPatch - metadataDiff: metadataMerge resolvedPatch) - updateRightArtifact; - yourself. - self workingIsLoaded ifTrue: [modification setLoadedInWorkingCopy]. - self willBeLoaded ifTrue: [modification setWillBeLoaded]. - ^ modification \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/resetChoice.st b/src/Squot.package/SquotArtifactMerge.class/instance/resetChoice.st deleted file mode 100644 index 8c73e9410..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/resetChoice.st +++ /dev/null @@ -1,3 +0,0 @@ -merging -resetChoice - graphMerge resetChoice. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/setLoadedInWorkingCopy.st b/src/Squot.package/SquotArtifactMerge.class/instance/setLoadedInWorkingCopy.st deleted file mode 100644 index f2d5d7d79..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/setLoadedInWorkingCopy.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -setLoadedInWorkingCopy - willBeLoaded := true. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/setMetadataMerge..st b/src/Squot.package/SquotArtifactMerge.class/instance/setMetadataMerge..st deleted file mode 100644 index 26158aed4..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/setMetadataMerge..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -setMetadataMerge: aTrackedObjectMetadataMerge - "Used when merging two additions in mergeWithoutBaseWith:" - metadataMerge := aTrackedObjectMetadataMerge. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/setUpTreeRoot.toEditMerge..st b/src/Squot.package/SquotArtifactMerge.class/instance/setUpTreeRoot.toEditMerge..st deleted file mode 100644 index 31bbe5004..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/setUpTreeRoot.toEditMerge..st +++ /dev/null @@ -1,7 +0,0 @@ -*Squot-Tools -setUpTreeRoot: aMergeNode toEditMerge: aMerge - aMergeNode - includeBlock: [self chooseIncoming]; - excludeBlock: [self chooseWorking]. - self hasConflicts ifTrue: - [aMergeNode resetBlock: [self resetChoice]]. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/setWorking.incoming.base.willBeLoaded.graphMerge.metadataMerge..st b/src/Squot.package/SquotArtifactMerge.class/instance/setWorking.incoming.base.willBeLoaded.graphMerge.metadataMerge..st deleted file mode 100644 index da73d9a1e..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/setWorking.incoming.base.willBeLoaded.graphMerge.metadataMerge..st +++ /dev/null @@ -1,6 +0,0 @@ -initialize-release -setWorking: workingArtifact incoming: incomingArtifact base: baseArtifact willBeLoaded: aBoolean graphMerge: anObjectGraphMerge metadataMerge: aTrackedObjectMetadataMerge - super setWorking: workingArtifact incoming: incomingArtifact base: baseArtifact. - graphMerge := anObjectGraphMerge. - willBeLoaded := aBoolean. - metadataMerge := aTrackedObjectMetadataMerge. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotArtifactMerge.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index c76c1015f..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,12 +0,0 @@ -*Squot-Tools -squotChangeAsStringOrText - | text | - text := ('Merge of ', self object path) asText allBold, ' - -'. - ((metadataMerge working includesKey: #id) not and: [metadataMerge incoming includesKey: #id]) - ifTrue: [text append: 'Set id to '; append: (metadataMerge incoming at: #id) asString; append: ' - -']. - text append: graphMerge squotChangeAsStringOrText. - ^ text \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/squotToolsDiffNodeContent.st b/src/Squot.package/SquotArtifactMerge.class/instance/squotToolsDiffNodeContent.st deleted file mode 100644 index 4adbb172a..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/squotToolsDiffNodeContent.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -squotToolsDiffNodeContent - "Objects of this type are used as the content of SquotDiffNode. Marker method." - \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/toggleWhetherToLoad.st b/src/Squot.package/SquotArtifactMerge.class/instance/toggleWhetherToLoad.st deleted file mode 100644 index 4a0d96876..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/toggleWhetherToLoad.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -toggleWhetherToLoad - willBeLoaded := self willBeLoaded not. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/willBeLoaded.st b/src/Squot.package/SquotArtifactMerge.class/instance/willBeLoaded.st deleted file mode 100644 index 7a8ee51a2..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/willBeLoaded.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -willBeLoaded - ^ willBeLoaded or: [self workingIsLoaded] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/working..st b/src/Squot.package/SquotArtifactMerge.class/instance/working..st deleted file mode 100644 index 67b387c29..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/working..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -working: anArtifact - super working: anArtifact. - graphMerge working: anArtifact content. - (anArtifact respondsTo: #applyLoadStatusTo:) ifTrue: [anArtifact applyLoadStatusTo: self]. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/instance/workingIsLoaded.st b/src/Squot.package/SquotArtifactMerge.class/instance/workingIsLoaded.st deleted file mode 100644 index d076793c5..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/instance/workingIsLoaded.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -workingIsLoaded - ^ (working respondsTo: #isLoaded) and: [working isLoaded] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMerge.class/methodProperties.json b/src/Squot.package/SquotArtifactMerge.class/methodProperties.json deleted file mode 100644 index 92dafb55f..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/methodProperties.json +++ /dev/null @@ -1,38 +0,0 @@ -{ - "class" : { - "into:merge:basedOn:willBeLoaded:graphMerge:metadataMerge:" : "jr 12/13/2020 13:18" }, - "instance" : { - "adornedDiffNodeTitle:" : "jr 11/18/2020 18:14", - "asDiffTree" : "jr 12/22/2019 23:24", - "base:" : "jr 7/30/2019 21:51", - "chooseIncoming" : "jr 8/14/2019 20:29", - "chooseWorking" : "jr 8/14/2019 21:35", - "computeDifferences" : "jr 12/24/2020 00:43", - "conflicts" : "jr 7/30/2019 00:50", - "diffTreeChildren" : "jr 8/10/2019 18:17", - "diffTreeNodeTitle" : "jr 8/4/2019 20:51", - "elementMerges" : "jr 8/3/2019 20:56", - "graphMerge" : "jr 7/29/2019 22:49", - "graphMerge:" : "jr 7/29/2019 22:49", - "hasChanges" : "jr 1/3/2021 15:57", - "hasConflicts" : "jr 1/16/2022 16:41", - "incoming:" : "jr 7/30/2019 21:50", - "initialize" : "jr 11/18/2020 18:14", - "mayAffectArtifact" : "jr 11/29/2020 22:18", - "mergeOfTrackedObject" : "jr 8/14/2019 19:50", - "metadata" : "jr 3/8/2022 21:43", - "metadataDiffNodes" : "jr 1/16/2022 18:36", - "modifications" : "jr 7/30/2019 01:37", - "path" : "jr 8/4/2019 20:47", - "privateResolvedPatch" : "jr 12/13/2020 16:20", - "resetChoice" : "jr 8/14/2019 21:35", - "setLoadedInWorkingCopy" : "jr 11/22/2020 22:35", - "setMetadataMerge:" : "jr 12/13/2020 18:08", - "setUpTreeRoot:toEditMerge:" : "jr 8/15/2019 00:31", - "setWorking:incoming:base:willBeLoaded:graphMerge:metadataMerge:" : "jr 12/13/2020 13:15", - "squotChangeAsStringOrText" : "jr 2/14/2022 00:05", - "squotToolsDiffNodeContent" : "jr 11/30/2020 00:56", - "toggleWhetherToLoad" : "jr 11/19/2020 16:19", - "willBeLoaded" : "jr 11/18/2020 18:16", - "working:" : "jr 11/22/2020 22:57", - "workingIsLoaded" : "jr 11/19/2020 16:27" } } diff --git a/src/Squot.package/SquotArtifactMerge.class/properties.json b/src/Squot.package/SquotArtifactMerge.class/properties.json deleted file mode 100644 index d896855ab..000000000 --- a/src/Squot.package/SquotArtifactMerge.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Merging", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/13/2019 17:05", - "instvars" : [ - "graphMerge", - "willBeLoaded", - "metadataMerge" ], - "name" : "SquotArtifactMerge", - "pools" : [ - ], - "super" : "SquotAbstractMerge", - "type" : "normal" } diff --git a/src/Squot.package/SquotArtifactMergeTest.class/README.md b/src/Squot.package/SquotArtifactMergeTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotArtifactMergeTest.class/instance/testMergeMetadataWithoutConflicts.st b/src/Squot.package/SquotArtifactMergeTest.class/instance/testMergeMetadataWithoutConflicts.st deleted file mode 100644 index 83d7a1f0e..000000000 --- a/src/Squot.package/SquotArtifactMergeTest.class/instance/testMergeMetadataWithoutConflicts.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testMergeMetadataWithoutConflicts - | a b c merge result | - a := SquotArtifact new path: 'p'; content: SquotArtifactContentMock new. - a storeInfo at: #dummy put: 1. - b := a copy content: SquotArtifactContentMock new. - b storeInfo at: #dummy put: 2. - c := a copy content: SquotArtifactContentMock new. - "when" - merge := SquotArtifactMerge into: a merge: b basedOn: c willBeLoaded: false graphMerge: (SquotObjectGraphMerge into: (SquotShadowGraph new startShadow: true) merge: (SquotShadowGraph new startShadow: true) basedOn: (SquotShadowGraph new startShadow: true)) metadataMerge: (a storeInfo squotMergeWith: b storeInfo basedOn: c storeInfo). - result := a copyWithDiffApplied: merge resolvedPatch. - "then" - self deny: merge hasConflicts. - self assert: 2 equals: (result storeInfo at: #dummy). \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMergeTest.class/instance/testMergeWithoutBase.st b/src/Squot.package/SquotArtifactMergeTest.class/instance/testMergeWithoutBase.st deleted file mode 100644 index 96ba0c25c..000000000 --- a/src/Squot.package/SquotArtifactMergeTest.class/instance/testMergeWithoutBase.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -testMergeWithoutBase - | a b conflictedObject merge | - conflictedObject := Object new. - a := SquotArtifact new path: 'p'; content: SquotArtifactContentMock new. - b := a copy content: SquotArtifactContentMock new. - a content whenMergedReturn: SquotMergeMock new. - "when" - merge := a mergeWithoutBaseWith: b. - "then" - self assert: merge hasConflicts. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMergeTest.class/instance/testPreservesIdOfWorkingCopy.st b/src/Squot.package/SquotArtifactMergeTest.class/instance/testPreservesIdOfWorkingCopy.st deleted file mode 100644 index 1608312b8..000000000 --- a/src/Squot.package/SquotArtifactMergeTest.class/instance/testPreservesIdOfWorkingCopy.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testPreservesIdOfWorkingCopy - | a b c merge result originalId | - a := SquotArtifact new path: 'p'; content: SquotArtifactContentMock new. - originalId := a id. - b := a copy content: SquotArtifactContentMock new. - b id: UUID new. - c := a copy content: SquotArtifactContentMock new. - c id: UUID new. - "When merging artifact versions with different ids, keep the id from the working copy." - merge := SquotArtifactMerge into: a merge: b basedOn: c willBeLoaded: false graphMerge: (SquotObjectGraphMerge into: (SquotShadowGraph new startShadow: true) merge: (SquotShadowGraph new startShadow: true) basedOn: (SquotShadowGraph new startShadow: true)) metadataMerge: (a storeInfo squotMergeWith: b storeInfo basedOn: c storeInfo). - result := a copyWithDiffApplied: merge resolvedPatch. - self assert: originalId equals: result id; - assert: originalId equals: (result storeInfo at: #id). \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMergeTest.class/methodProperties.json b/src/Squot.package/SquotArtifactMergeTest.class/methodProperties.json deleted file mode 100644 index 9f89ace63..000000000 --- a/src/Squot.package/SquotArtifactMergeTest.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testMergeMetadataWithoutConflicts" : "jr 12/13/2020 16:09", - "testMergeWithoutBase" : "jr 12/23/2020 22:16", - "testPreservesIdOfWorkingCopy" : "jr 2/13/2022 18:11" } } diff --git a/src/Squot.package/SquotArtifactMergeTest.class/properties.json b/src/Squot.package/SquotArtifactMergeTest.class/properties.json deleted file mode 100644 index 7db271645..000000000 --- a/src/Squot.package/SquotArtifactMergeTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Merging", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotArtifactMergeTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotArtifactMock.class/README.md b/src/Squot.package/SquotArtifactMock.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotArtifactMock.class/class/path..st b/src/Squot.package/SquotArtifactMock.class/class/path..st deleted file mode 100644 index 635620e36..000000000 --- a/src/Squot.package/SquotArtifactMock.class/class/path..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -path: path - ^ self new - path: path; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/capture.st b/src/Squot.package/SquotArtifactMock.class/instance/capture.st deleted file mode 100644 index 2f7318827..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/capture.st +++ /dev/null @@ -1,2 +0,0 @@ -capturing -capture \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/content.st b/src/Squot.package/SquotArtifactMock.class/instance/content.st deleted file mode 100644 index afd0ce527..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/content.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -content - ^ content ifNil: [SquotArtifactContentMock new] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/copyWithDiffApplied..st b/src/Squot.package/SquotArtifactMock.class/instance/copyWithDiffApplied..st deleted file mode 100644 index d6594094f..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/copyWithDiffApplied..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -copyWithDiffApplied: anArtifactDiff - ^ anArtifactDiff right \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/defaultMergeBlock.st b/src/Squot.package/SquotArtifactMock.class/instance/defaultMergeBlock.st deleted file mode 100644 index bab1b3886..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/defaultMergeBlock.st +++ /dev/null @@ -1,3 +0,0 @@ -configuring -defaultMergeBlock - ^ [:other :this | self error: 'Mock not configured for merge'] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/diffAgainst..st b/src/Squot.package/SquotArtifactMock.class/instance/diffAgainst..st deleted file mode 100644 index bd4ad84ba..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/diffAgainst..st +++ /dev/null @@ -1,3 +0,0 @@ -mocking -diffAgainst: aSquotArtifactMock - ^ diffBlock cull: aSquotArtifactMock cull: self \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/diffBlock..st b/src/Squot.package/SquotArtifactMock.class/instance/diffBlock..st deleted file mode 100644 index b6f51260e..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/diffBlock..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -diffBlock: anObject - diffBlock := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/diffContentAgainstThatOf..st b/src/Squot.package/SquotArtifactMock.class/instance/diffContentAgainstThatOf..st deleted file mode 100644 index 876360f08..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/diffContentAgainstThatOf..st +++ /dev/null @@ -1,3 +0,0 @@ -mocking -diffContentAgainstThatOf: anArtifactOrMock - ^ diffContentBlock cull: anArtifactOrMock cull: self \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/diffContentAgainstThatOf.withBase..st b/src/Squot.package/SquotArtifactMock.class/instance/diffContentAgainstThatOf.withBase..st deleted file mode 100644 index 51f7c75e2..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/diffContentAgainstThatOf.withBase..st +++ /dev/null @@ -1,3 +0,0 @@ -mocking -diffContentAgainstThatOf: incomingArtifactOrMock withBase: baseArtifactOrMock - ^ mergeContentBlock cull: incomingArtifactOrMock cull: self cull: baseArtifactOrMock \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/isLoadable..st b/src/Squot.package/SquotArtifactMock.class/instance/isLoadable..st deleted file mode 100644 index 9b0a545ae..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/isLoadable..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -isLoadable: anObject - - isLoadable := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/isLoadable.st b/src/Squot.package/SquotArtifactMock.class/instance/isLoadable.st deleted file mode 100644 index 105eaa067..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/isLoadable.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -isLoadable - ^ isLoadable ifNil: [true] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/materializeBlock..st b/src/Squot.package/SquotArtifactMock.class/instance/materializeBlock..st deleted file mode 100644 index 3ad418faa..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/materializeBlock..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -materializeBlock: anObject - - materializeBlock := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/materializeBlock.st b/src/Squot.package/SquotArtifactMock.class/instance/materializeBlock.st deleted file mode 100644 index 541625a59..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/materializeBlock.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -materializeBlock - - ^ materializeBlock \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/materializeWith.replacing..st b/src/Squot.package/SquotArtifactMock.class/instance/materializeWith.replacing..st deleted file mode 100644 index bd1c020e2..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/materializeWith.replacing..st +++ /dev/null @@ -1,3 +0,0 @@ -mocking -materializeWith: anImageStore replacing: anObject - ^ materializeBlock cull: self cull: anImageStore cull: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/mergeBlock..st b/src/Squot.package/SquotArtifactMock.class/instance/mergeBlock..st deleted file mode 100644 index b70ef1d2a..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/mergeBlock..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -mergeBlock: anObject - mergeBlock := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/mergeBlock.st b/src/Squot.package/SquotArtifactMock.class/instance/mergeBlock.st deleted file mode 100644 index fb1d2463a..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/mergeBlock.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -mergeBlock - ^ mergeBlock \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/mergeDiffWith.basedOn..st b/src/Squot.package/SquotArtifactMock.class/instance/mergeDiffWith.basedOn..st deleted file mode 100644 index 01c27b352..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/mergeDiffWith.basedOn..st +++ /dev/null @@ -1,3 +0,0 @@ -merging -mergeDiffWith: otherArtifactOrMock basedOn: baseArtifactOrMock - ^ self mergeWith: otherArtifactOrMock basedOn: baseArtifactOrMock \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/mergeWith.basedOn..st b/src/Squot.package/SquotArtifactMock.class/instance/mergeWith.basedOn..st deleted file mode 100644 index 416c45fea..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/mergeWith.basedOn..st +++ /dev/null @@ -1,3 +0,0 @@ -merging -mergeWith: otherArtifactOrMock basedOn: baseArtifactOrMock - ^ (mergeBlock ifNil: [self defaultMergeBlock]) cull: otherArtifactOrMock cull: self cull: baseArtifactOrMock \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/mergeWithoutBaseWith..st b/src/Squot.package/SquotArtifactMock.class/instance/mergeWithoutBaseWith..st deleted file mode 100644 index 3b0b12b65..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/mergeWithoutBaseWith..st +++ /dev/null @@ -1,3 +0,0 @@ -merging -mergeWithoutBaseWith: anArtifactOrMock - ^ (mergeBlock ifNil: [self defaultMergeBlock]) cull: anArtifactOrMock cull: self \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/path..st b/src/Squot.package/SquotArtifactMock.class/instance/path..st deleted file mode 100644 index 23eaf8543..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/path..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -path: anObject - - path := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/path.st b/src/Squot.package/SquotArtifactMock.class/instance/path.st deleted file mode 100644 index 81c63b398..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/path.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -path - - ^ path \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/printOn..st b/src/Squot.package/SquotArtifactMock.class/instance/printOn..st deleted file mode 100644 index 663b7e6e2..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/printOn..st +++ /dev/null @@ -1,4 +0,0 @@ -printing -printOn: aStream - super printOn: aStream. - aStream space; print: path. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/shadowOfTrackedObject.st b/src/Squot.package/SquotArtifactMock.class/instance/shadowOfTrackedObject.st deleted file mode 100644 index 6ac0f2a30..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/shadowOfTrackedObject.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -shadowOfTrackedObject - ^ self content startShadow \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/snapshot.st b/src/Squot.package/SquotArtifactMock.class/instance/snapshot.st deleted file mode 100644 index 7a273e89a..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/snapshot.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -snapshot - ^ self \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/squotSummaryText.st b/src/Squot.package/SquotArtifactMock.class/instance/squotSummaryText.st deleted file mode 100644 index 8f7c54fa5..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/squotSummaryText.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tests-Tools -squotSummaryText - ^ content printString \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/storeInfo..st b/src/Squot.package/SquotArtifactMock.class/instance/storeInfo..st deleted file mode 100644 index 690b11599..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/storeInfo..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -storeInfo: anObject - - storeInfo := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/storeInfo.st b/src/Squot.package/SquotArtifactMock.class/instance/storeInfo.st deleted file mode 100644 index e655cb782..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/storeInfo.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -storeInfo - - ^ storeInfo ifNil: [storeInfo := SquotTrackedObjectMetadata new] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/whenComparedWith.return..st b/src/Squot.package/SquotArtifactMock.class/instance/whenComparedWith.return..st deleted file mode 100644 index 6e09b9adb..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/whenComparedWith.return..st +++ /dev/null @@ -1,9 +0,0 @@ -configuring -whenComparedWith: otherArtifactOrMock return: aBlock - | previousBlock | - previousBlock := diffBlock ifNil: [[:other :this | self error: 'Mock not configured for diff']]. - diffBlock := - [:other :this | - other = otherArtifactOrMock - ifTrue: [aBlock value] - ifFalse: [previousBlock cull: other cull: this]]. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/whenContentComparedWith.return..st b/src/Squot.package/SquotArtifactMock.class/instance/whenContentComparedWith.return..st deleted file mode 100644 index 704e60bba..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/whenContentComparedWith.return..st +++ /dev/null @@ -1,9 +0,0 @@ -configuring -whenContentComparedWith: otherArtifactOrMock return: aBlock - | previousBlock | - previousBlock := diffContentBlock ifNil: [[:other :this | self error: 'Mock not configured for diff']]. - diffContentBlock := - [:other :this | - other = otherArtifactOrMock - ifTrue: [aBlock value] - ifFalse: [previousBlock cull: other cull: this]]. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/whenContentMergedWith.return..st b/src/Squot.package/SquotArtifactMock.class/instance/whenContentMergedWith.return..st deleted file mode 100644 index cf8baa31c..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/whenContentMergedWith.return..st +++ /dev/null @@ -1,9 +0,0 @@ -configuring -whenContentMergedWith: otherArtifactOrMock return: aBlock - | previousBlock | - previousBlock := mergeContentBlock ifNil: [[:other :this | self error: 'Mock not configured for merge']]. - mergeContentBlock := - [:other :this | - other = otherArtifactOrMock - ifTrue: [aBlock value] - ifFalse: [previousBlock cull: other cull: this]]. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/instance/whenMergeWith.return..st b/src/Squot.package/SquotArtifactMock.class/instance/whenMergeWith.return..st deleted file mode 100644 index 6031c2e43..000000000 --- a/src/Squot.package/SquotArtifactMock.class/instance/whenMergeWith.return..st +++ /dev/null @@ -1,9 +0,0 @@ -configuring -whenMergeWith: otherArtifactOrMock return: aBlock - | previousBlock | - previousBlock := mergeBlock ifNil: [[:other :this | self error: 'Mock not configured for merge']]. - mergeBlock := - [:other :this | - other = otherArtifactOrMock - ifTrue: [aBlock value] - ifFalse: [previousBlock value: other value: this]]. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactMock.class/methodProperties.json b/src/Squot.package/SquotArtifactMock.class/methodProperties.json deleted file mode 100644 index 1a129f2d5..000000000 --- a/src/Squot.package/SquotArtifactMock.class/methodProperties.json +++ /dev/null @@ -1,34 +0,0 @@ -{ - "class" : { - "path:" : "jr 10/18/2020 14:34" }, - "instance" : { - "capture" : "jr 10/18/2020 14:40", - "content" : "jr 7/30/2019 01:03", - "copyWithDiffApplied:" : "jr 11/18/2020 17:12", - "defaultMergeBlock" : "jr 8/4/2019 00:37", - "diffAgainst:" : "jr 7/29/2019 23:28", - "diffBlock:" : "jr 6/8/2019 12:37", - "diffContentAgainstThatOf:" : "jr 7/29/2019 23:42", - "diffContentAgainstThatOf:withBase:" : "jr 11/19/2020 16:24", - "isLoadable" : "jr 8/18/2018 18:27", - "isLoadable:" : "jr 8/18/2018 18:27", - "materializeBlock" : "jr 8/18/2018 18:30", - "materializeBlock:" : "jr 8/18/2018 18:30", - "materializeWith:replacing:" : "jr 8/18/2018 18:32", - "mergeBlock" : "jr 7/29/2019 23:17", - "mergeBlock:" : "jr 7/29/2019 23:17", - "mergeDiffWith:basedOn:" : "jr 12/13/2020 13:22", - "mergeWith:basedOn:" : "jr 12/13/2020 13:22", - "mergeWithoutBaseWith:" : "jr 7/29/2019 23:56", - "path" : "jr 8/18/2018 18:25", - "path:" : "jr 8/18/2018 18:25", - "printOn:" : "jr 11/1/2020 17:23", - "shadowOfTrackedObject" : "jr 3/4/2020 08:59", - "snapshot" : "jr 11/22/2020 15:56", - "squotSummaryText" : "jr 11/18/2020 20:54", - "storeInfo" : "jr 8/18/2018 18:28", - "storeInfo:" : "jr 8/18/2018 18:27", - "whenComparedWith:return:" : "jr 7/29/2019 23:30", - "whenContentComparedWith:return:" : "jr 7/29/2019 23:44", - "whenContentMergedWith:return:" : "jr 11/19/2020 16:23", - "whenMergeWith:return:" : "jr 7/29/2019 23:27" } } diff --git a/src/Squot.package/SquotArtifactMock.class/properties.json b/src/Squot.package/SquotArtifactMock.class/properties.json deleted file mode 100644 index 68b9165f5..000000000 --- a/src/Squot.package/SquotArtifactMock.class/properties.json +++ /dev/null @@ -1,22 +0,0 @@ -{ - "category" : "Squot-Tests-Support", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "path", - "isLoadable", - "storeInfo", - "materializeBlock", - "diffBlock", - "mergeBlock", - "diffContentBlock", - "content", - "mergeContentBlock" ], - "name" : "SquotArtifactMock", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotArtifactModification.class/README.md b/src/Squot.package/SquotArtifactModification.class/README.md deleted file mode 100644 index a423f6128..000000000 --- a/src/Squot.package/SquotArtifactModification.class/README.md +++ /dev/null @@ -1,6 +0,0 @@ -I record the differences between two Artifacts and provide details about the differences. -These details are currently called the diff "content" and it usually is an instance of SquotObjectGraphDiff. - -Instance Variables - diffContent: describes the changes - topNodes: top nodes of a hierarchical (tree) form of me \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/class/left.right.isLoadedInWorkingCopy.contentDiff.metadataDiff..st b/src/Squot.package/SquotArtifactModification.class/class/left.right.isLoadedInWorkingCopy.contentDiff.metadataDiff..st deleted file mode 100644 index 3bbed35b4..000000000 --- a/src/Squot.package/SquotArtifactModification.class/class/left.right.isLoadedInWorkingCopy.contentDiff.metadataDiff..st +++ /dev/null @@ -1,9 +0,0 @@ -instance creation -left: leftArtifact right: rightArtifact isLoadedInWorkingCopy: aBoolean contentDiff: aGraphDiff metadataDiff: aMetadataDiff - ^ self new - setLeft: leftArtifact - right: rightArtifact - isLoadedInWorkingCopy: aBoolean - contentDiff: aGraphDiff - metadataDiff: aMetadataDiff; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/addDifferencesAsConflicts..st b/src/Squot.package/SquotArtifactModification.class/instance/addDifferencesAsConflicts..st deleted file mode 100644 index bf4e71179..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/addDifferencesAsConflicts..st +++ /dev/null @@ -1,6 +0,0 @@ -merging -addDifferencesAsConflicts: anArtifactMerge - self deprecated: 'Effect a merge with an empty artifact as base instead'. - diffContent addModificationsAsConflicts: anArtifactMerge graphMerge. - anArtifactMerge setMetadataMerge: - (left storeInfo squotMergeWith: right storeInfo basedOn: SquotTrackedObjectMetadata new). \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/addToMerge.modifying..st b/src/Squot.package/SquotArtifactModification.class/instance/addToMerge.modifying..st deleted file mode 100644 index 0c4ef4ce2..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/addToMerge.modifying..st +++ /dev/null @@ -1,4 +0,0 @@ -merging -addToMerge: aMerge modifying: anArtifact - "Merge my changes without conflicts." - aMerge addMerge: (anArtifact mergeWith: self right basedOn: self left). \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/adornedDiffNodeTitle..st b/src/Squot.package/SquotArtifactModification.class/instance/adornedDiffNodeTitle..st deleted file mode 100644 index f200ed5cd..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/adornedDiffNodeTitle..st +++ /dev/null @@ -1,8 +0,0 @@ -*Squot-Tools -adornedDiffNodeTitle: aString - ^ isLoadedInWorkingCopy - ifTrue: [super adornedDiffNodeTitle: aString] - ifFalse: - [self willBeLoaded - ifTrue: ['load ', aString, ' (changed, currently unloaded)'] - ifFalse: [aString, ' (changed, not loaded)']] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/applyContentDiffTo..st b/src/Squot.package/SquotArtifactModification.class/instance/applyContentDiffTo..st deleted file mode 100644 index 5b965308a..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/applyContentDiffTo..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -applyContentDiffTo: aShadowGraph - ^ diffContent squotApplyTo: aShadowGraph \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/applyMetadataDiffTo..st b/src/Squot.package/SquotArtifactModification.class/instance/applyMetadataDiffTo..st deleted file mode 100644 index 2a7440779..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/applyMetadataDiffTo..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -applyMetadataDiffTo: aTrackedObjectMetadata - ^ metadataDiff squotApplyTo: aTrackedObjectMetadata \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/applyTo..st b/src/Squot.package/SquotArtifactModification.class/instance/applyTo..st deleted file mode 100644 index 20b3d57cf..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/applyTo..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -applyTo: aShadowGraph - ^ self applyContentDiffTo: aShadowGraph \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/applyToLoaded..st b/src/Squot.package/SquotArtifactModification.class/instance/applyToLoaded..st deleted file mode 100644 index a53caf927..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/applyToLoaded..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -applyToLoaded: anObject - diffContent squotApplyToLoaded: anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/content.st b/src/Squot.package/SquotArtifactModification.class/instance/content.st deleted file mode 100644 index a1593403c..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/content.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -content - ^ diffContent \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/diff.against..st b/src/Squot.package/SquotArtifactModification.class/instance/diff.against..st deleted file mode 100644 index 2c57cb13b..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/diff.against..st +++ /dev/null @@ -1,8 +0,0 @@ -initialize-release -diff: leftArtifact against: rightArtifact - super diff: leftArtifact against: rightArtifact. - self flag: #deprecated. 'Compute differences in the caller and use full constructor for the modification instead'. - diffContent := leftArtifact diffContentAgainstThatOf: rightArtifact. - metadataDiff := leftArtifact storeInfo squotDiffAgainst: rightArtifact storeInfo. - (rightArtifact respondsTo: #applyLoadStatusTo:) ifTrue: - [rightArtifact applyLoadStatusTo: self]. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/diffContent..st b/src/Squot.package/SquotArtifactModification.class/instance/diffContent..st deleted file mode 100644 index 4bd9671b6..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/diffContent..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -diffContent: aSquotObjectGraphDiff - diffContent := aSquotObjectGraphDiff. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/diffNodeOperationTitle.st b/src/Squot.package/SquotArtifactModification.class/instance/diffNodeOperationTitle.st deleted file mode 100644 index de5ce64cb..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/diffNodeOperationTitle.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -diffNodeOperationTitle - ^ 'changed' \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/diffOfTrackedObject.st b/src/Squot.package/SquotArtifactModification.class/instance/diffOfTrackedObject.st deleted file mode 100644 index 63d596626..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/diffOfTrackedObject.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -diffOfTrackedObject - ^ diffContent startDiff \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/hasChanges.st b/src/Squot.package/SquotArtifactModification.class/instance/hasChanges.st deleted file mode 100644 index 4996ac41a..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/hasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasChanges - ^ diffContent squotHasChanges or: [metadataDiff squotHasChanges] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/isBasedOn..st b/src/Squot.package/SquotArtifactModification.class/instance/isBasedOn..st deleted file mode 100644 index e09f38dfb..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/isBasedOn..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isBasedOn: aSquotObjectContainer - ^ (aSquotObjectContainer artifactAt: self path) = left \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/left..st b/src/Squot.package/SquotArtifactModification.class/instance/left..st deleted file mode 100644 index a013c679f..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/left..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -left: anArtifact - left := anArtifact. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/mayAffectArtifact.st b/src/Squot.package/SquotArtifactModification.class/instance/mayAffectArtifact.st deleted file mode 100644 index 6375a4802..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/mayAffectArtifact.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -mayAffectArtifact - ^ self hasChanges \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/mergeWithDiff..st b/src/Squot.package/SquotArtifactModification.class/instance/mergeWithDiff..st deleted file mode 100644 index 2f400a0f9..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/mergeWithDiff..st +++ /dev/null @@ -1,7 +0,0 @@ -merging -mergeWithDiff: anArtifactDiff - "double dispatch, initiated by #mergeWith:" - | merge | - merge := anArtifactDiff right mergeDiffWith: self right basedOn: self left. - (self willBeLoaded and: [merge willBeLoaded not]) ifTrue: [merge toggleWhetherToLoad]. - ^ merge \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/metadata.st b/src/Squot.package/SquotArtifactModification.class/instance/metadata.st deleted file mode 100644 index 4c2a2f3b5..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/metadata.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -metadata - ^ metadataDiff \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/metadataTreeNodes.st b/src/Squot.package/SquotArtifactModification.class/instance/metadataTreeNodes.st deleted file mode 100644 index 65b46b722..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/metadataTreeNodes.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -metadataTreeNodes - ^ metadataDiff newSquotDiffNodes \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/needsChoice.st b/src/Squot.package/SquotArtifactModification.class/instance/needsChoice.st deleted file mode 100644 index 43d2dd45f..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/needsChoice.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -needsChoice - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/optionalMetadataNode.st b/src/Squot.package/SquotArtifactModification.class/instance/optionalMetadataNode.st deleted file mode 100644 index 22f9f614a..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/optionalMetadataNode.st +++ /dev/null @@ -1,11 +0,0 @@ -*Squot-Tools -optionalMetadataNode - | nodes | - nodes := self metadataTreeNodes. - nodes ifEmpty: [^ #()]. - ^ {SquotDiffNode - title: '[', 'Metadata' translated, ']' - content: nil - children: nodes - onInclude: [] - onExclude: []} \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/postCopy.st b/src/Squot.package/SquotArtifactModification.class/instance/postCopy.st deleted file mode 100644 index 16b10727f..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/postCopy.st +++ /dev/null @@ -1,4 +0,0 @@ -copying -postCopy - "Also copy the contained diff data structure." - diffContent := diffContent copy. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/rebaseOn..st b/src/Squot.package/SquotArtifactModification.class/instance/rebaseOn..st deleted file mode 100644 index 2dfc868cb..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/rebaseOn..st +++ /dev/null @@ -1,5 +0,0 @@ -patching -rebaseOn: anObjectContainer - ^ self copy - left: (anObjectContainer artifactAt: self path); - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/resolveConflictWith..st b/src/Squot.package/SquotArtifactModification.class/instance/resolveConflictWith..st deleted file mode 100644 index 87944f657..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/resolveConflictWith..st +++ /dev/null @@ -1,7 +0,0 @@ -merging -resolveConflictWith: aSquotArtifactRemoval - "Since I am not an addition, the artifact existed in the base snapshot. - Therefore, the other diff also cannot be an addition. - The the other diff would have been a modification, too, there would be no conflict. - So, remove my artifact." - ^ aSquotArtifactRemoval \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/right..st b/src/Squot.package/SquotArtifactModification.class/instance/right..st deleted file mode 100644 index 0e0e2d1b3..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/right..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -right: aSquotArtifact - right := aSquotArtifact. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/setLeft.right.isLoadedInWorkingCopy.contentDiff.metadataDiff..st b/src/Squot.package/SquotArtifactModification.class/instance/setLeft.right.isLoadedInWorkingCopy.contentDiff.metadataDiff..st deleted file mode 100644 index 4a1042cde..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/setLeft.right.isLoadedInWorkingCopy.contentDiff.metadataDiff..st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -setLeft: leftArtifact right: rightArtifact isLoadedInWorkingCopy: aBoolean contentDiff: aGraphDiff metadataDiff: aMetadataDiff - super setLeft: leftArtifact right: rightArtifact isLoadedInWorkingCopy: aBoolean. - diffContent := aGraphDiff. - metadataDiff := aMetadataDiff. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/setLoadedInWorkingCopy.st b/src/Squot.package/SquotArtifactModification.class/instance/setLoadedInWorkingCopy.st deleted file mode 100644 index 7ef8eef98..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/setLoadedInWorkingCopy.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -setLoadedInWorkingCopy - super setLoadedInWorkingCopy. - willBeLoaded := true. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/setWillBeLoaded.st b/src/Squot.package/SquotArtifactModification.class/instance/setWillBeLoaded.st deleted file mode 100644 index 5b80a6a49..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/setWillBeLoaded.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -setWillBeLoaded - willBeLoaded := true. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotArtifactModification.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index f64f00b17..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,12 +0,0 @@ -*Squot-Tools -squotChangeAsStringOrText - | text | - text := ((self adornedDiffNodeTitle: left path), ': - -') asText allBold. - (metadataDiff includesId and: [metadataDiff right includesKey: #id]) - ifTrue: [text append: 'Set id to '; append: (metadataDiff right at: #id) asString; append: ' - -']. - text append: diffContent squotChangeAsStringOrText. - ^ text \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/toggleWhetherToLoad.st b/src/Squot.package/SquotArtifactModification.class/instance/toggleWhetherToLoad.st deleted file mode 100644 index 4a0d96876..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/toggleWhetherToLoad.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -toggleWhetherToLoad - willBeLoaded := self willBeLoaded not. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/topNodes.st b/src/Squot.package/SquotArtifactModification.class/instance/topNodes.st deleted file mode 100644 index daa6b6d02..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/topNodes.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -topNodes - ^ diffContent asSquotHierarchicalDiff, self optionalMetadataNode \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/updateRightArtifact.st b/src/Squot.package/SquotArtifactModification.class/instance/updateRightArtifact.st deleted file mode 100644 index cac313e0d..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/updateRightArtifact.st +++ /dev/null @@ -1,9 +0,0 @@ -accessing -updateRightArtifact - "Since my content could have been changed, compute the effective right artifact." - | oldRight rightMetadata | - oldRight := right. - self flag: #todo. "This keeping of the right storeInfo is required because that is the object edited in the tools, see SquotArtifactModification>>metadataTreeNodes." - rightMetadata := right storeInfo. - right := left copyWithDiffApplied: self. - right storeInfo: rightMetadata. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/instance/willBeLoaded.st b/src/Squot.package/SquotArtifactModification.class/instance/willBeLoaded.st deleted file mode 100644 index 0fbbda4aa..000000000 --- a/src/Squot.package/SquotArtifactModification.class/instance/willBeLoaded.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -willBeLoaded - ^ willBeLoaded ifNil: [isLoadedInWorkingCopy] \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactModification.class/methodProperties.json b/src/Squot.package/SquotArtifactModification.class/methodProperties.json deleted file mode 100644 index 69c092dcb..000000000 --- a/src/Squot.package/SquotArtifactModification.class/methodProperties.json +++ /dev/null @@ -1,37 +0,0 @@ -{ - "class" : { - "left:right:isLoadedInWorkingCopy:contentDiff:metadataDiff:" : "jr 12/7/2020 20:09" }, - "instance" : { - "addDifferencesAsConflicts:" : "jr 12/24/2020 00:43", - "addToMerge:modifying:" : "jr 12/23/2020 22:02", - "adornedDiffNodeTitle:" : "jr 11/19/2020 13:06", - "applyContentDiffTo:" : "jr 12/13/2020 21:20", - "applyMetadataDiffTo:" : "jr 12/13/2020 21:21", - "applyTo:" : "jr 12/13/2020 21:20", - "applyToLoaded:" : "jr 5/4/2017 13:28", - "content" : "jr 4/10/2017 22:49", - "diff:against:" : "jr 12/24/2020 00:34", - "diffContent:" : "jr 8/4/2019 00:23", - "diffNodeOperationTitle" : "jr 10/26/2019 21:30", - "diffOfTrackedObject" : "jr 7/22/2017 17:21", - "hasChanges" : "jr 12/7/2020 22:33", - "isBasedOn:" : "jr 11/5/2020 16:56", - "left:" : "jr 8/4/2019 00:21", - "mayAffectArtifact" : "jr 11/29/2020 22:21", - "mergeWithDiff:" : "jr 11/22/2020 22:42", - "metadata" : "jr 12/13/2020 12:54", - "metadataTreeNodes" : "jr 6/19/2022 23:12", - "needsChoice" : "jr 5/29/2017 00:33", - "optionalMetadataNode" : "jr 9/13/2020 17:52", - "postCopy" : "jr 11/18/2018 01:58", - "rebaseOn:" : "jr 2/9/2020 03:43", - "resolveConflictWith:" : "jr 11/22/2020 23:24", - "right:" : "jr 8/4/2019 00:22", - "setLeft:right:isLoadedInWorkingCopy:contentDiff:metadataDiff:" : "jr 12/7/2020 20:08", - "setLoadedInWorkingCopy" : "jr 11/19/2020 13:05", - "setWillBeLoaded" : "jr 11/22/2020 21:09", - "squotChangeAsStringOrText" : "jr 3/13/2022 11:43", - "toggleWhetherToLoad" : "jr 11/18/2020 14:57", - "topNodes" : "jr 9/13/2020 17:50", - "updateRightArtifact" : "jr 2/13/2022 22:56", - "willBeLoaded" : "jr 11/19/2020 13:06" } } diff --git a/src/Squot.package/SquotArtifactModification.class/properties.json b/src/Squot.package/SquotArtifactModification.class/properties.json deleted file mode 100644 index 1982a03fc..000000000 --- a/src/Squot.package/SquotArtifactModification.class/properties.json +++ /dev/null @@ -1,19 +0,0 @@ -{ - "category" : "Squot-Diffs", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotModification classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 14:27", - "instvars" : [ - "diffContent", - "metadataDiff", - "topNodes", - "willBeLoaded" ], - "name" : "SquotArtifactModification", - "pools" : [ - ], - "super" : "SquotArtifactDiff", - "traitcomposition" : "TSquotModification", - "type" : "normal" } diff --git a/src/Squot.package/SquotArtifactRemoval.class/README.md b/src/Squot.package/SquotArtifactRemoval.class/README.md deleted file mode 100644 index 5b1119b0d..000000000 --- a/src/Squot.package/SquotArtifactRemoval.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I record the removal of an existing artifact. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactRemoval.class/class/of..st b/src/Squot.package/SquotArtifactRemoval.class/class/of..st deleted file mode 100644 index 80eed73b3..000000000 --- a/src/Squot.package/SquotArtifactRemoval.class/class/of..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -of: leftArtifact - ^ self new - diff: leftArtifact against: nil; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactRemoval.class/instance/applyToContainer..st b/src/Squot.package/SquotArtifactRemoval.class/instance/applyToContainer..st deleted file mode 100644 index 14108174a..000000000 --- a/src/Squot.package/SquotArtifactRemoval.class/instance/applyToContainer..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -applyToContainer: anObjectContainer - ^ anObjectContainer removeAt: self path \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactRemoval.class/instance/diffNodeOperationTitle.st b/src/Squot.package/SquotArtifactRemoval.class/instance/diffNodeOperationTitle.st deleted file mode 100644 index 1232048bf..000000000 --- a/src/Squot.package/SquotArtifactRemoval.class/instance/diffNodeOperationTitle.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -diffNodeOperationTitle - ^ 'removed' \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactRemoval.class/instance/isBasedOn..st b/src/Squot.package/SquotArtifactRemoval.class/instance/isBasedOn..st deleted file mode 100644 index e09f38dfb..000000000 --- a/src/Squot.package/SquotArtifactRemoval.class/instance/isBasedOn..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isBasedOn: aSquotObjectContainer - ^ (aSquotObjectContainer artifactAt: self path) = left \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactRemoval.class/instance/mayAffectArtifact.st b/src/Squot.package/SquotArtifactRemoval.class/instance/mayAffectArtifact.st deleted file mode 100644 index 7f33408df..000000000 --- a/src/Squot.package/SquotArtifactRemoval.class/instance/mayAffectArtifact.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -mayAffectArtifact - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactRemoval.class/instance/mergeWith..st b/src/Squot.package/SquotArtifactRemoval.class/instance/mergeWith..st deleted file mode 100644 index 7ce865efe..000000000 --- a/src/Squot.package/SquotArtifactRemoval.class/instance/mergeWith..st +++ /dev/null @@ -1,6 +0,0 @@ -merging -mergeWith: anArtifactDiff. - self assert: self left = anArtifactDiff left. - self assert: self path = anArtifactDiff path. - "double dispatch" - ^ anArtifactDiff mergeWithRemoval: self \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactRemoval.class/instance/mergeWithDiff..st b/src/Squot.package/SquotArtifactRemoval.class/instance/mergeWithDiff..st deleted file mode 100644 index 7e9bd6c71..000000000 --- a/src/Squot.package/SquotArtifactRemoval.class/instance/mergeWithDiff..st +++ /dev/null @@ -1,6 +0,0 @@ -merging -mergeWithDiff: anArtifactDiff - "The other side changed an artifact that was removed on my side. This is a conflict." - "Inverse case is in SquotArtifactDiff>>#mergeWithRemoval:" - "double dispatch, initiated by #mergeWith:" - ^ anArtifactDiff inConflictWith: self \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactRemoval.class/instance/mergeWithLoad..st b/src/Squot.package/SquotArtifactRemoval.class/instance/mergeWithLoad..st deleted file mode 100644 index aacfbd99b..000000000 --- a/src/Squot.package/SquotArtifactRemoval.class/instance/mergeWithLoad..st +++ /dev/null @@ -1,5 +0,0 @@ -merging -mergeWithLoad: anArtifactLoad - "The other side simply says that the artifact was not loaded, not that there were changes. Therefore, the removal takes precedence." - "double dispatch, initiated by #mergeWith:" - ^ self \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactRemoval.class/instance/mergeWithRemoval..st b/src/Squot.package/SquotArtifactRemoval.class/instance/mergeWithRemoval..st deleted file mode 100644 index 8258ae086..000000000 --- a/src/Squot.package/SquotArtifactRemoval.class/instance/mergeWithRemoval..st +++ /dev/null @@ -1,7 +0,0 @@ -merging -mergeWithRemoval: anArtifactRemoval - "When an artifact was removed by the right side, or the to-be-merged version, and it has - already been removed on the left side, or the target of the merge, then there is nothing left - to apply." - "double dispatch, initiated by #mergeWith:" - ^ SquotDiffOfEqualObjects instance \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactRemoval.class/instance/needsChoice.st b/src/Squot.package/SquotArtifactRemoval.class/instance/needsChoice.st deleted file mode 100644 index 43d2dd45f..000000000 --- a/src/Squot.package/SquotArtifactRemoval.class/instance/needsChoice.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -needsChoice - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactRemoval.class/instance/rebaseOn..st b/src/Squot.package/SquotArtifactRemoval.class/instance/rebaseOn..st deleted file mode 100644 index 83f1643d3..000000000 --- a/src/Squot.package/SquotArtifactRemoval.class/instance/rebaseOn..st +++ /dev/null @@ -1,4 +0,0 @@ -patching -rebaseOn: anObjectContainer - "This diff shall be applied to a different base. Answer a copy with the new base." - ^ self class of: (anObjectContainer artifactAt: self path) \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactRemoval.class/instance/resolveConflictWith..st b/src/Squot.package/SquotArtifactRemoval.class/instance/resolveConflictWith..st deleted file mode 100644 index 46f73c549..000000000 --- a/src/Squot.package/SquotArtifactRemoval.class/instance/resolveConflictWith..st +++ /dev/null @@ -1,4 +0,0 @@ -merging -resolveConflictWith: aSquotArtifactDiff - "The other diff cannot be a removal because then there would be no conflict." - ^ SquotArtifactAddition of: aSquotArtifactDiff right \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactRemoval.class/instance/right.st b/src/Squot.package/SquotArtifactRemoval.class/instance/right.st deleted file mode 100644 index e5b8286e6..000000000 --- a/src/Squot.package/SquotArtifactRemoval.class/instance/right.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -right - self error: 'Cannot access patched object of a removal'. \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactRemoval.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotArtifactRemoval.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index adca8943c..000000000 --- a/src/Squot.package/SquotArtifactRemoval.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotChangeAsStringOrText - ^ (Text fromString: 'remove ', left path, ': ') append: left squotSummaryText \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactRemoval.class/instance/topNodes.st b/src/Squot.package/SquotArtifactRemoval.class/instance/topNodes.st deleted file mode 100644 index a527213e3..000000000 --- a/src/Squot.package/SquotArtifactRemoval.class/instance/topNodes.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -topNodes - ^ #() \ No newline at end of file diff --git a/src/Squot.package/SquotArtifactRemoval.class/methodProperties.json b/src/Squot.package/SquotArtifactRemoval.class/methodProperties.json deleted file mode 100644 index f293e5c0e..000000000 --- a/src/Squot.package/SquotArtifactRemoval.class/methodProperties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "class" : { - "of:" : "jr 10/2/2017 19:59" }, - "instance" : { - "applyToContainer:" : "jr 7/16/2017 02:36", - "diffNodeOperationTitle" : "jr 10/26/2019 21:25", - "isBasedOn:" : "jr 11/5/2020 16:56", - "mayAffectArtifact" : "jr 11/29/2020 22:21", - "mergeWith:" : "jr 3/16/2019 18:36", - "mergeWithDiff:" : "jr 4/15/2018 13:10", - "mergeWithLoad:" : "jr 11/19/2020 16:07", - "mergeWithRemoval:" : "jr 4/15/2018 12:13", - "needsChoice" : "jr 7/22/2017 23:55", - "rebaseOn:" : "jr 2/9/2020 03:44", - "resolveConflictWith:" : "jr 7/23/2019 00:20", - "right" : "jr 10/2/2017 19:58", - "squotChangeAsStringOrText" : "jr 11/17/2018 22:34", - "topNodes" : "jr 11/6/2018 08:11" } } diff --git a/src/Squot.package/SquotArtifactRemoval.class/properties.json b/src/Squot.package/SquotArtifactRemoval.class/properties.json deleted file mode 100644 index 9be2577fc..000000000 --- a/src/Squot.package/SquotArtifactRemoval.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Diffs", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotRemoval classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 10/21/2017 15:59", - "instvars" : [ - ], - "name" : "SquotArtifactRemoval", - "pools" : [ - ], - "super" : "SquotArtifactDiff", - "traitcomposition" : "TSquotRemoval", - "type" : "normal" } diff --git a/src/Squot.package/SquotAuthorRequest.class/README.md b/src/Squot.package/SquotAuthorRequest.class/README.md deleted file mode 100644 index f856ba892..000000000 --- a/src/Squot.package/SquotAuthorRequest.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am signalled when an object needs to know the current author. \ No newline at end of file diff --git a/src/Squot.package/SquotAuthorRequest.class/methodProperties.json b/src/Squot.package/SquotAuthorRequest.class/methodProperties.json deleted file mode 100644 index 0e4a66223..000000000 --- a/src/Squot.package/SquotAuthorRequest.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - } } diff --git a/src/Squot.package/SquotAuthorRequest.class/properties.json b/src/Squot.package/SquotAuthorRequest.class/properties.json deleted file mode 100644 index 5c8731bc2..000000000 --- a/src/Squot.package/SquotAuthorRequest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tools", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 19:38", - "instvars" : [ - ], - "name" : "SquotAuthorRequest", - "pools" : [ - ], - "super" : "Notification", - "type" : "normal" } diff --git a/src/Squot.package/SquotBasicUnitOfWork.class/README.md b/src/Squot.package/SquotBasicUnitOfWork.class/README.md deleted file mode 100644 index ad2e9099e..000000000 --- a/src/Squot.package/SquotBasicUnitOfWork.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am a template implementation for a unit of work. I count the number of clients that have started and finished me. Subclasses still have to implement the activateDuring: method. \ No newline at end of file diff --git a/src/Squot.package/SquotBasicUnitOfWork.class/instance/activateDuring..st b/src/Squot.package/SquotBasicUnitOfWork.class/instance/activateDuring..st deleted file mode 100644 index 6955f0776..000000000 --- a/src/Squot.package/SquotBasicUnitOfWork.class/instance/activateDuring..st +++ /dev/null @@ -1,6 +0,0 @@ -unit of work -activateDuring: aBlock - "Activate the unit of work for the current process while the block is evaluated. - If the repository receives #unitOfWork during the block, it should answer me unless there is another nested unit of work going on. - Answer the result of evaluating aBlock." - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotBasicUnitOfWork.class/instance/finish.st b/src/Squot.package/SquotBasicUnitOfWork.class/instance/finish.st deleted file mode 100644 index 7a5101fd2..000000000 --- a/src/Squot.package/SquotBasicUnitOfWork.class/instance/finish.st +++ /dev/null @@ -1,7 +0,0 @@ -unit of work -finish - "Conclude unit of work. Can be used to release resources. - Can be called multiple times if there are multiplie clients collaborating on a transaction." - numberOfClients := self numberOfClients - 1. - numberOfClients < 0 ifTrue: - [Warning signal: 'Unit of work finished more often than started']. \ No newline at end of file diff --git a/src/Squot.package/SquotBasicUnitOfWork.class/instance/numberOfClients.st b/src/Squot.package/SquotBasicUnitOfWork.class/instance/numberOfClients.st deleted file mode 100644 index 7933d9797..000000000 --- a/src/Squot.package/SquotBasicUnitOfWork.class/instance/numberOfClients.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -numberOfClients - ^ numberOfClients ifNil: [0] \ No newline at end of file diff --git a/src/Squot.package/SquotBasicUnitOfWork.class/instance/repository..st b/src/Squot.package/SquotBasicUnitOfWork.class/instance/repository..st deleted file mode 100644 index 4fcd72fb5..000000000 --- a/src/Squot.package/SquotBasicUnitOfWork.class/instance/repository..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -repository: anObject - repository := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotBasicUnitOfWork.class/instance/repository.st b/src/Squot.package/SquotBasicUnitOfWork.class/instance/repository.st deleted file mode 100644 index 5be976386..000000000 --- a/src/Squot.package/SquotBasicUnitOfWork.class/instance/repository.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -repository - ^ repository \ No newline at end of file diff --git a/src/Squot.package/SquotBasicUnitOfWork.class/instance/start.st b/src/Squot.package/SquotBasicUnitOfWork.class/instance/start.st deleted file mode 100644 index 85f183808..000000000 --- a/src/Squot.package/SquotBasicUnitOfWork.class/instance/start.st +++ /dev/null @@ -1,5 +0,0 @@ -unit of work -start - "Begin unit of work. Can be used to allocate resources upfront. - Can be called multiple times if there are multiplie clients collaborating on a transaction." - numberOfClients := self numberOfClients + 1. \ No newline at end of file diff --git a/src/Squot.package/SquotBasicUnitOfWork.class/methodProperties.json b/src/Squot.package/SquotBasicUnitOfWork.class/methodProperties.json deleted file mode 100644 index aa5900926..000000000 --- a/src/Squot.package/SquotBasicUnitOfWork.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "activateDuring:" : "jr 4/17/2020 14:39", - "finish" : "jr 4/17/2020 14:47", - "numberOfClients" : "jr 4/17/2020 14:47", - "repository" : "jr 4/17/2020 14:48", - "repository:" : "jr 4/17/2020 14:48", - "start" : "jr 4/17/2020 14:47" } } diff --git a/src/Squot.package/SquotBasicUnitOfWork.class/properties.json b/src/Squot.package/SquotBasicUnitOfWork.class/properties.json deleted file mode 100644 index a97502db8..000000000 --- a/src/Squot.package/SquotBasicUnitOfWork.class/properties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "category" : "Squot-Core", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotUnitOfWork classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 4/17/2020 14:47", - "instvars" : [ - "repository", - "numberOfClients" ], - "name" : "SquotBasicUnitOfWork", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotUnitOfWork", - "type" : "normal" } diff --git a/src/Squot.package/SquotBitsMirror.class/README.md b/src/Squot.package/SquotBitsMirror.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotBitsMirror.class/instance/initializeSnapshot.of.with..st b/src/Squot.package/SquotBitsMirror.class/instance/initializeSnapshot.of.with..st deleted file mode 100644 index 098da743d..000000000 --- a/src/Squot.package/SquotBitsMirror.class/instance/initializeSnapshot.of.with..st +++ /dev/null @@ -1,3 +0,0 @@ -capturing -initializeSnapshot: aSquotObjectShadow of: anObject with: aSquotObjectCapturer - aSquotObjectShadow copyBitsFrom: anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotBitsMirror.class/instance/is.comparableTo..st b/src/Squot.package/SquotBitsMirror.class/instance/is.comparableTo..st deleted file mode 100644 index 4f8d798ed..000000000 --- a/src/Squot.package/SquotBitsMirror.class/instance/is.comparableTo..st +++ /dev/null @@ -1,4 +0,0 @@ -comparing -is: anObject comparableTo: anotherObject - self assert: anObject class isBits. - ^ anObject isMemberOf: anotherObject class \ No newline at end of file diff --git a/src/Squot.package/SquotBitsMirror.class/instance/shadowFactory.st b/src/Squot.package/SquotBitsMirror.class/instance/shadowFactory.st deleted file mode 100644 index f74fff65a..000000000 --- a/src/Squot.package/SquotBitsMirror.class/instance/shadowFactory.st +++ /dev/null @@ -1,4 +0,0 @@ -capturing -shadowFactory - "Answer an object factory (e. g. a class) that can create snapshots of my reflected objects." - ^ SquotBitsObjectShadow \ No newline at end of file diff --git a/src/Squot.package/SquotBitsMirror.class/methodProperties.json b/src/Squot.package/SquotBitsMirror.class/methodProperties.json deleted file mode 100644 index 27ca5cde7..000000000 --- a/src/Squot.package/SquotBitsMirror.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "initializeSnapshot:of:with:" : "jr 7/17/2021 23:56", - "is:comparableTo:" : "jr 7/25/2021 16:42", - "shadowFactory" : "jr 4/8/2021 20:52" } } diff --git a/src/Squot.package/SquotBitsMirror.class/properties.json b/src/Squot.package/SquotBitsMirror.class/properties.json deleted file mode 100644 index 2797cebbe..000000000 --- a/src/Squot.package/SquotBitsMirror.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotBitsMirror", - "pools" : [ - ], - "super" : "SquotObjectMirror", - "type" : "normal" } diff --git a/src/Squot.package/SquotBitsObjectShadow.class/README.md b/src/Squot.package/SquotBitsObjectShadow.class/README.md deleted file mode 100644 index 37f737f58..000000000 --- a/src/Squot.package/SquotBitsObjectShadow.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am a shadow of bytes objects, 16-bit words objects, 32-bit words objects etc. \ No newline at end of file diff --git a/src/Squot.package/SquotBitsObjectShadow.class/class/squotMirror.st b/src/Squot.package/SquotBitsObjectShadow.class/class/squotMirror.st deleted file mode 100644 index f7cc0809a..000000000 --- a/src/Squot.package/SquotBitsObjectShadow.class/class/squotMirror.st +++ /dev/null @@ -1,3 +0,0 @@ -reflecting -squotMirror - ^ SquotBitsShadowMirror new \ No newline at end of file diff --git a/src/Squot.package/SquotBitsObjectShadow.class/instance/addVariablePartSlot..st b/src/Squot.package/SquotBitsObjectShadow.class/instance/addVariablePartSlot..st deleted file mode 100644 index dcc18cd99..000000000 --- a/src/Squot.package/SquotBitsObjectShadow.class/instance/addVariablePartSlot..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -addVariablePartSlot: aVariablePartSlot - | primitiveValue | - primitiveValue := aVariablePartSlot value. - value basicAt: aVariablePartSlot index put: primitiveValue value. \ No newline at end of file diff --git a/src/Squot.package/SquotBitsObjectShadow.class/instance/applySequenceDiff..st b/src/Squot.package/SquotBitsObjectShadow.class/instance/applySequenceDiff..st deleted file mode 100644 index 26a33ba38..000000000 --- a/src/Squot.package/SquotBitsObjectShadow.class/instance/applySequenceDiff..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-shadow-patching -applySequenceDiff: aDiffPatch - ^ self copy privateApplySequenceDiff: aDiffPatch \ No newline at end of file diff --git a/src/Squot.package/SquotBitsObjectShadow.class/instance/applySequenceDiff.with..st b/src/Squot.package/SquotBitsObjectShadow.class/instance/applySequenceDiff.with..st deleted file mode 100644 index b9d9e5214..000000000 --- a/src/Squot.package/SquotBitsObjectShadow.class/instance/applySequenceDiff.with..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-shadow-patching -applySequenceDiff: aDiffPatch with: aPatcher - ^ self copy privateApplySequenceDiff: aDiffPatch with: aPatcher \ No newline at end of file diff --git a/src/Squot.package/SquotBitsObjectShadow.class/instance/copyBitsFrom..st b/src/Squot.package/SquotBitsObjectShadow.class/instance/copyBitsFrom..st deleted file mode 100644 index 6884dea93..000000000 --- a/src/Squot.package/SquotBitsObjectShadow.class/instance/copyBitsFrom..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -copyBitsFrom: aBitsObject - value := aBitsObject copy. \ No newline at end of file diff --git a/src/Squot.package/SquotBitsObjectShadow.class/instance/initializeFrom.with..st b/src/Squot.package/SquotBitsObjectShadow.class/instance/initializeFrom.with..st deleted file mode 100644 index 3216d792d..000000000 --- a/src/Squot.package/SquotBitsObjectShadow.class/instance/initializeFrom.with..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initializeFrom: aBitsObject with: aContentCapturer - self flag: #deprecated. "Ask the mirror instead." - value := aBitsObject copy. \ No newline at end of file diff --git a/src/Squot.package/SquotBitsObjectShadow.class/instance/isComparableTo..st b/src/Squot.package/SquotBitsObjectShadow.class/instance/isComparableTo..st deleted file mode 100644 index 4c9811fee..000000000 --- a/src/Squot.package/SquotBitsObjectShadow.class/instance/isComparableTo..st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -isComparableTo: aBitsObjectShadow - ^ aBitsObjectShadow value isMemberOf: value class \ No newline at end of file diff --git a/src/Squot.package/SquotBitsObjectShadow.class/instance/privateApplySequenceDiff..st b/src/Squot.package/SquotBitsObjectShadow.class/instance/privateApplySequenceDiff..st deleted file mode 100644 index 5b9efdf79..000000000 --- a/src/Squot.package/SquotBitsObjectShadow.class/instance/privateApplySequenceDiff..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-shadow-patching -privateApplySequenceDiff: aDiffPatch - value := aDiffPatch applyTo: value. \ No newline at end of file diff --git a/src/Squot.package/SquotBitsObjectShadow.class/instance/privateApplySequenceDiff.with..st b/src/Squot.package/SquotBitsObjectShadow.class/instance/privateApplySequenceDiff.with..st deleted file mode 100644 index f78ea1d7f..000000000 --- a/src/Squot.package/SquotBitsObjectShadow.class/instance/privateApplySequenceDiff.with..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-shadow-patching -privateApplySequenceDiff: aDiffPatch with: aPatcher - value := aDiffPatch applyTo: value. \ No newline at end of file diff --git a/src/Squot.package/SquotBitsObjectShadow.class/instance/references.st b/src/Squot.package/SquotBitsObjectShadow.class/instance/references.st deleted file mode 100644 index a53e2eea7..000000000 --- a/src/Squot.package/SquotBitsObjectShadow.class/instance/references.st +++ /dev/null @@ -1,4 +0,0 @@ -reflection -references - ^ (1 to: (thisContext objectSize: value)) - collect: [:each | SquotIndexableField index: each] \ No newline at end of file diff --git a/src/Squot.package/SquotBitsObjectShadow.class/instance/sameIn.withName.ifAbsent..st b/src/Squot.package/SquotBitsObjectShadow.class/instance/sameIn.withName.ifAbsent..st deleted file mode 100644 index fca17d669..000000000 --- a/src/Squot.package/SquotBitsObjectShadow.class/instance/sameIn.withName.ifAbsent..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -sameIn: aShadowGraph withName: aName ifAbsent: aBlock - "Unlike objects of my superclass, I can have a name and an identity. - Answer the object with the same name from the other graph." - ^ [aShadowGraph class squotMirror reflect: (SquotGraphElementWithName name: aName) of: aShadowGraph] on: KeyNotFound do: [:e | e return: aBlock value] \ No newline at end of file diff --git a/src/Squot.package/SquotBitsObjectShadow.class/instance/squotDiffAgainst..st b/src/Squot.package/SquotBitsObjectShadow.class/instance/squotDiffAgainst..st deleted file mode 100644 index abbf77714..000000000 --- a/src/Squot.package/SquotBitsObjectShadow.class/instance/squotDiffAgainst..st +++ /dev/null @@ -1,6 +0,0 @@ -Squot-shadow-diffing -squotDiffAgainst: otherShadow - ^ GenericDiff squotDiffClass new - file1: value; - file2: (otherShadow value ifNil: [value class new: 0]); - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotBitsObjectShadow.class/instance/squotDiffAgainst.with..st b/src/Squot.package/SquotBitsObjectShadow.class/instance/squotDiffAgainst.with..st deleted file mode 100644 index fb18a1fec..000000000 --- a/src/Squot.package/SquotBitsObjectShadow.class/instance/squotDiffAgainst.with..st +++ /dev/null @@ -1,7 +0,0 @@ -Squot-shadow-diffing -squotDiffAgainst: otherShadow with: aDiffBuilder - self deprecated: 'See SquotBitsShadowMirror newDiffFrom:to:'. - ^ aDiffBuilder - diffFrom: self to: otherShadow - ifNew: [otherShadow squotWith: aDiffBuilder diffFromSequence: value] - andInitialize: [] \ No newline at end of file diff --git a/src/Squot.package/SquotBitsObjectShadow.class/instance/squotMaterializeWith..st b/src/Squot.package/SquotBitsObjectShadow.class/instance/squotMaterializeWith..st deleted file mode 100644 index f2c72279b..000000000 --- a/src/Squot.package/SquotBitsObjectShadow.class/instance/squotMaterializeWith..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-shadow -squotMaterializeWith: aMaterializer - ^ value copy \ No newline at end of file diff --git a/src/Squot.package/SquotBitsObjectShadow.class/instance/squotPreferredSerializer.st b/src/Squot.package/SquotBitsObjectShadow.class/instance/squotPreferredSerializer.st deleted file mode 100644 index 62655d0cd..000000000 --- a/src/Squot.package/SquotBitsObjectShadow.class/instance/squotPreferredSerializer.st +++ /dev/null @@ -1,5 +0,0 @@ -Squot-shadow -squotPreferredSerializer - ^ value isString - ifTrue: [SquotTextFileCodec] - ifFalse: [super squotPreferredSerializer] \ No newline at end of file diff --git a/src/Squot.package/SquotBitsObjectShadow.class/instance/squotShadowMarker.st b/src/Squot.package/SquotBitsObjectShadow.class/instance/squotShadowMarker.st deleted file mode 100644 index 0565557ef..000000000 --- a/src/Squot.package/SquotBitsObjectShadow.class/instance/squotShadowMarker.st +++ /dev/null @@ -1,2 +0,0 @@ -Squot-shadow -squotShadowMarker \ No newline at end of file diff --git a/src/Squot.package/SquotBitsObjectShadow.class/instance/squotWith.diffFromSequence..st b/src/Squot.package/SquotBitsObjectShadow.class/instance/squotWith.diffFromSequence..st deleted file mode 100644 index 7a33ab40f..000000000 --- a/src/Squot.package/SquotBitsObjectShadow.class/instance/squotWith.diffFromSequence..st +++ /dev/null @@ -1,8 +0,0 @@ -Squot-shadow-diffing -squotWith: aDiffBuilder diffFromSequence: leftSequence - "Double dispatch from a sequence." - self deprecated: 'Use squotDiffAgainst: instead, or better yet, use SquotBitsShadowMirror newDiffFrom:to:'. - ^ GenericDiff squotDiffClass new - file1: leftSequence; - file2: value; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotBitsObjectShadow.class/instance/variablePartSlotWithIndex..st b/src/Squot.package/SquotBitsObjectShadow.class/instance/variablePartSlotWithIndex..st deleted file mode 100644 index 124850e73..000000000 --- a/src/Squot.package/SquotBitsObjectShadow.class/instance/variablePartSlotWithIndex..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -variablePartSlotWithIndex: anInteger - ^ (value basicAt: anInteger) captureWithSquot \ No newline at end of file diff --git a/src/Squot.package/SquotBitsObjectShadow.class/instance/writeTo..st b/src/Squot.package/SquotBitsObjectShadow.class/instance/writeTo..st deleted file mode 100644 index 353961e03..000000000 --- a/src/Squot.package/SquotBitsObjectShadow.class/instance/writeTo..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-shadow-serializing -writeTo: aStream - aStream nextPutAll: value. \ No newline at end of file diff --git a/src/Squot.package/SquotBitsObjectShadow.class/methodProperties.json b/src/Squot.package/SquotBitsObjectShadow.class/methodProperties.json deleted file mode 100644 index 0f717b74f..000000000 --- a/src/Squot.package/SquotBitsObjectShadow.class/methodProperties.json +++ /dev/null @@ -1,22 +0,0 @@ -{ - "class" : { - "squotMirror" : "jr 7/25/2021 17:39" }, - "instance" : { - "addVariablePartSlot:" : "jr 7/25/2021 18:33", - "applySequenceDiff:" : "jr 9/24/2019 00:24", - "applySequenceDiff:with:" : "jr 6/27/2017 16:59", - "copyBitsFrom:" : "jr 4/8/2021 20:55", - "initializeFrom:with:" : "jr 1/11/2021 00:08", - "isComparableTo:" : "jr 7/25/2021 17:41", - "privateApplySequenceDiff:" : "jr 9/24/2019 00:24", - "privateApplySequenceDiff:with:" : "jr 10/24/2017 23:42", - "references" : "jr 7/25/2021 19:34", - "sameIn:withName:ifAbsent:" : "jr 9/11/2021 00:08", - "squotDiffAgainst:" : "jr 7/30/2021 19:39", - "squotDiffAgainst:with:" : "jr 7/30/2021 19:51", - "squotMaterializeWith:" : "jr 6/27/2017 17:03", - "squotPreferredSerializer" : "jr 9/20/2017 19:40", - "squotShadowMarker" : "jr 6/27/2017 17:04", - "squotWith:diffFromSequence:" : "jr 7/30/2021 19:56", - "variablePartSlotWithIndex:" : "jr 7/25/2021 18:30", - "writeTo:" : "jr 6/27/2017 17:06" } } diff --git a/src/Squot.package/SquotBitsObjectShadow.class/properties.json b/src/Squot.package/SquotBitsObjectShadow.class/properties.json deleted file mode 100644 index c40cf341a..000000000 --- a/src/Squot.package/SquotBitsObjectShadow.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Shadows", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 18:34", - "instvars" : [ - ], - "name" : "SquotBitsObjectShadow", - "pools" : [ - ], - "super" : "SquotPrimitiveValue", - "type" : "normal" } diff --git a/src/Squot.package/SquotBitsShadowMirror.class/README.md b/src/Squot.package/SquotBitsShadowMirror.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotBitsShadowMirror.class/instance/is.comparableTo..st b/src/Squot.package/SquotBitsShadowMirror.class/instance/is.comparableTo..st deleted file mode 100644 index 69da8c92d..000000000 --- a/src/Squot.package/SquotBitsShadowMirror.class/instance/is.comparableTo..st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -is: aSquotBitsObjectShadow comparableTo: aSquotBitsObjectShadow2 - ^ aSquotBitsObjectShadow isComparableTo: aSquotBitsObjectShadow2 \ No newline at end of file diff --git a/src/Squot.package/SquotBitsShadowMirror.class/instance/newDiffFrom.to..st b/src/Squot.package/SquotBitsShadowMirror.class/instance/newDiffFrom.to..st deleted file mode 100644 index 7a82367d3..000000000 --- a/src/Squot.package/SquotBitsShadowMirror.class/instance/newDiffFrom.to..st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -newDiffFrom: aBitsObjectShadow to: aBitsObjectShadow2 - ^ aBitsObjectShadow squotDiffAgainst: aBitsObjectShadow2 \ No newline at end of file diff --git a/src/Squot.package/SquotBitsShadowMirror.class/methodProperties.json b/src/Squot.package/SquotBitsShadowMirror.class/methodProperties.json deleted file mode 100644 index c9d953b2b..000000000 --- a/src/Squot.package/SquotBitsShadowMirror.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "is:comparableTo:" : "jr 7/25/2021 17:42", - "newDiffFrom:to:" : "jr 7/30/2021 19:40" } } diff --git a/src/Squot.package/SquotBitsShadowMirror.class/properties.json b/src/Squot.package/SquotBitsShadowMirror.class/properties.json deleted file mode 100644 index b26c80105..000000000 --- a/src/Squot.package/SquotBitsShadowMirror.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotBitsShadowMirror", - "pools" : [ - ], - "super" : "SquotObjectShadowMirror", - "type" : "normal" } diff --git a/src/Squot.package/SquotBrowseMockClass.class/README.md b/src/Squot.package/SquotBrowseMockClass.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotBrowseMockClass.class/class/browse.st b/src/Squot.package/SquotBrowseMockClass.class/class/browse.st deleted file mode 100644 index 78a7b1438..000000000 --- a/src/Squot.package/SquotBrowseMockClass.class/class/browse.st +++ /dev/null @@ -1,3 +0,0 @@ -mocking -browse - Browsed := true. \ No newline at end of file diff --git a/src/Squot.package/SquotBrowseMockClass.class/class/reset.st b/src/Squot.package/SquotBrowseMockClass.class/class/reset.st deleted file mode 100644 index 6285939fe..000000000 --- a/src/Squot.package/SquotBrowseMockClass.class/class/reset.st +++ /dev/null @@ -1,3 +0,0 @@ -mocking -reset - Browsed := false. \ No newline at end of file diff --git a/src/Squot.package/SquotBrowseMockClass.class/class/wasBrowsed.st b/src/Squot.package/SquotBrowseMockClass.class/class/wasBrowsed.st deleted file mode 100644 index de6c008a7..000000000 --- a/src/Squot.package/SquotBrowseMockClass.class/class/wasBrowsed.st +++ /dev/null @@ -1,3 +0,0 @@ -mocking -wasBrowsed - ^ Browsed == true \ No newline at end of file diff --git a/src/Squot.package/SquotBrowseMockClass.class/methodProperties.json b/src/Squot.package/SquotBrowseMockClass.class/methodProperties.json deleted file mode 100644 index 77cde924c..000000000 --- a/src/Squot.package/SquotBrowseMockClass.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - "browse" : "jr 11/3/2019 18:05", - "reset" : "jr 11/3/2019 18:06", - "wasBrowsed" : "jr 11/3/2019 18:06" }, - "instance" : { - } } diff --git a/src/Squot.package/SquotBrowseMockClass.class/properties.json b/src/Squot.package/SquotBrowseMockClass.class/properties.json deleted file mode 100644 index 1856519a7..000000000 --- a/src/Squot.package/SquotBrowseMockClass.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Tools", - "classinstvars" : [ - ], - "classvars" : [ - "Browsed" ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotBrowseMockClass", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotBrowseMockTrait.class/README.md b/src/Squot.package/SquotBrowseMockTrait.class/README.md deleted file mode 100644 index ec8deb38e..000000000 --- a/src/Squot.package/SquotBrowseMockTrait.class/README.md +++ /dev/null @@ -1 +0,0 @@ -Subclass of Trait (not a trait itself!) that mocks browsing. \ No newline at end of file diff --git a/src/Squot.package/SquotBrowseMockTrait.class/class/reset.st b/src/Squot.package/SquotBrowseMockTrait.class/class/reset.st deleted file mode 100644 index 6285939fe..000000000 --- a/src/Squot.package/SquotBrowseMockTrait.class/class/reset.st +++ /dev/null @@ -1,3 +0,0 @@ -mocking -reset - Browsed := false. \ No newline at end of file diff --git a/src/Squot.package/SquotBrowseMockTrait.class/class/setBrowsed.st b/src/Squot.package/SquotBrowseMockTrait.class/class/setBrowsed.st deleted file mode 100644 index 9e3a7ec08..000000000 --- a/src/Squot.package/SquotBrowseMockTrait.class/class/setBrowsed.st +++ /dev/null @@ -1,3 +0,0 @@ -mocking -setBrowsed - Browsed := true. \ No newline at end of file diff --git a/src/Squot.package/SquotBrowseMockTrait.class/class/wasBrowsed.st b/src/Squot.package/SquotBrowseMockTrait.class/class/wasBrowsed.st deleted file mode 100644 index de6c008a7..000000000 --- a/src/Squot.package/SquotBrowseMockTrait.class/class/wasBrowsed.st +++ /dev/null @@ -1,3 +0,0 @@ -mocking -wasBrowsed - ^ Browsed == true \ No newline at end of file diff --git a/src/Squot.package/SquotBrowseMockTrait.class/instance/browse.st b/src/Squot.package/SquotBrowseMockTrait.class/instance/browse.st deleted file mode 100644 index c6997e4f4..000000000 --- a/src/Squot.package/SquotBrowseMockTrait.class/instance/browse.st +++ /dev/null @@ -1,3 +0,0 @@ -mocking -browse - self class setBrowsed. \ No newline at end of file diff --git a/src/Squot.package/SquotBrowseMockTrait.class/methodProperties.json b/src/Squot.package/SquotBrowseMockTrait.class/methodProperties.json deleted file mode 100644 index 043188f2c..000000000 --- a/src/Squot.package/SquotBrowseMockTrait.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - "reset" : "jr 11/3/2019 18:08", - "setBrowsed" : "jr 11/3/2019 18:08", - "wasBrowsed" : "jr 11/3/2019 18:08" }, - "instance" : { - "browse" : "jr 12/10/2019 00:16" } } diff --git a/src/Squot.package/SquotBrowseMockTrait.class/properties.json b/src/Squot.package/SquotBrowseMockTrait.class/properties.json deleted file mode 100644 index 3a8f17412..000000000 --- a/src/Squot.package/SquotBrowseMockTrait.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Tools", - "classinstvars" : [ - ], - "classvars" : [ - "Browsed" ], - "commentStamp" : "jr 11/3/2019 18:34", - "instvars" : [ - ], - "name" : "SquotBrowseMockTrait", - "pools" : [ - ], - "super" : "Trait", - "type" : "normal" } diff --git a/src/Squot.package/SquotCannotExportEmptyHistory.class/README.md b/src/Squot.package/SquotCannotExportEmptyHistory.class/README.md deleted file mode 100644 index 92dbd82b9..000000000 --- a/src/Squot.package/SquotCannotExportEmptyHistory.class/README.md +++ /dev/null @@ -1,3 +0,0 @@ -Attempted to export a historian to a remote repository, but the historian did not record any versions yet, so there is nothing to export. - -In Git terms: attempted to push a branch, but this branch did not exist yet. \ No newline at end of file diff --git a/src/Squot.package/SquotCannotExportEmptyHistory.class/instance/historian..st b/src/Squot.package/SquotCannotExportEmptyHistory.class/instance/historian..st deleted file mode 100644 index 5a6890634..000000000 --- a/src/Squot.package/SquotCannotExportEmptyHistory.class/instance/historian..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -historian: anObject - - historian := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotCannotExportEmptyHistory.class/instance/historian.st b/src/Squot.package/SquotCannotExportEmptyHistory.class/instance/historian.st deleted file mode 100644 index 041e1ecc0..000000000 --- a/src/Squot.package/SquotCannotExportEmptyHistory.class/instance/historian.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -historian - - ^ historian \ No newline at end of file diff --git a/src/Squot.package/SquotCannotExportEmptyHistory.class/methodProperties.json b/src/Squot.package/SquotCannotExportEmptyHistory.class/methodProperties.json deleted file mode 100644 index 5c255e2a0..000000000 --- a/src/Squot.package/SquotCannotExportEmptyHistory.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "historian" : "jr 7/23/2020 00:48", - "historian:" : "jr 7/23/2020 00:48" } } diff --git a/src/Squot.package/SquotCannotExportEmptyHistory.class/properties.json b/src/Squot.package/SquotCannotExportEmptyHistory.class/properties.json deleted file mode 100644 index cd079ca82..000000000 --- a/src/Squot.package/SquotCannotExportEmptyHistory.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Exceptions", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 20:29", - "instvars" : [ - "historian" ], - "name" : "SquotCannotExportEmptyHistory", - "pools" : [ - ], - "super" : "Error", - "type" : "normal" } diff --git a/src/Squot.package/SquotCannotFindSerializer.class/README.md b/src/Squot.package/SquotCannotFindSerializer.class/README.md deleted file mode 100644 index 7da47e857..000000000 --- a/src/Squot.package/SquotCannotFindSerializer.class/README.md +++ /dev/null @@ -1,4 +0,0 @@ -I am signalled when SquotFileSystemStore cannot determine how to deal with a file or a set of files that encode an artifact. - -Instance Variables - fileOrDirectory: \ No newline at end of file diff --git a/src/Squot.package/SquotCannotFindSerializer.class/class/for..st b/src/Squot.package/SquotCannotFindSerializer.class/class/for..st deleted file mode 100644 index 2cfc635cb..000000000 --- a/src/Squot.package/SquotCannotFindSerializer.class/class/for..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -for: aFileOrDirectoryReference - ^ self new - fileOrDirectory: aFileOrDirectoryReference; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotCannotFindSerializer.class/instance/fileOrDirectory..st b/src/Squot.package/SquotCannotFindSerializer.class/instance/fileOrDirectory..st deleted file mode 100644 index 8823791ae..000000000 --- a/src/Squot.package/SquotCannotFindSerializer.class/instance/fileOrDirectory..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -fileOrDirectory: anObject - - fileOrDirectory := anObject. diff --git a/src/Squot.package/SquotCannotFindSerializer.class/instance/fileOrDirectory.st b/src/Squot.package/SquotCannotFindSerializer.class/instance/fileOrDirectory.st deleted file mode 100644 index 3f6f4093c..000000000 --- a/src/Squot.package/SquotCannotFindSerializer.class/instance/fileOrDirectory.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -fileOrDirectory - - ^ fileOrDirectory diff --git a/src/Squot.package/SquotCannotFindSerializer.class/methodProperties.json b/src/Squot.package/SquotCannotFindSerializer.class/methodProperties.json deleted file mode 100644 index ec0d8fb12..000000000 --- a/src/Squot.package/SquotCannotFindSerializer.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - "for:" : "jr 5/9/2017 18:01" }, - "instance" : { - "fileOrDirectory" : "jr 5/9/2017 18:02", - "fileOrDirectory:" : "jr 5/9/2017 18:02" } } diff --git a/src/Squot.package/SquotCannotFindSerializer.class/properties.json b/src/Squot.package/SquotCannotFindSerializer.class/properties.json deleted file mode 100644 index 5010fccc9..000000000 --- a/src/Squot.package/SquotCannotFindSerializer.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-FileSystemStore", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 19:20", - "instvars" : [ - "fileOrDirectory" ], - "name" : "SquotCannotFindSerializer", - "pools" : [ - ], - "super" : "Error", - "type" : "normal" } diff --git a/src/Squot.package/SquotChangeSetTestCleanup.class/README.md b/src/Squot.package/SquotChangeSetTestCleanup.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotChangeSetTestCleanup.class/class/removeNewChangeSetsNamedLike.after..st b/src/Squot.package/SquotChangeSetTestCleanup.class/class/removeNewChangeSetsNamedLike.after..st deleted file mode 100644 index 437943660..000000000 --- a/src/Squot.package/SquotChangeSetTestCleanup.class/class/removeNewChangeSetsNamedLike.after..st +++ /dev/null @@ -1,8 +0,0 @@ -cleanup -removeNewChangeSetsNamedLike: aString after: aBlock - | existingSets newSets | - existingSets := ChangeSet allChangeSets asSet. - aBlock ensure: - [newSets := ChangeSet allChangeSets asSet copyWithoutAll: existingSets. - newSets select: [:each | each name beginsWith: aString] - thenDo: [:each | ChangeSet removeChangeSet: each]]. \ No newline at end of file diff --git a/src/Squot.package/SquotChangeSetTestCleanup.class/methodProperties.json b/src/Squot.package/SquotChangeSetTestCleanup.class/methodProperties.json deleted file mode 100644 index 8b9cb4ff7..000000000 --- a/src/Squot.package/SquotChangeSetTestCleanup.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "removeNewChangeSetsNamedLike:after:" : "jr 9/20/2019 20:32" }, - "instance" : { - } } diff --git a/src/Squot.package/SquotChangeSetTestCleanup.class/properties.json b/src/Squot.package/SquotChangeSetTestCleanup.class/properties.json deleted file mode 100644 index 5dc183e6f..000000000 --- a/src/Squot.package/SquotChangeSetTestCleanup.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Support", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotChangeSetTestCleanup", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotChangedArtifactsChooser.class/README.md b/src/Squot.package/SquotChangedArtifactsChooser.class/README.md deleted file mode 100644 index f6fca44c2..000000000 --- a/src/Squot.package/SquotChangedArtifactsChooser.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I carry the old name of SquotChangesChooser. I am only here for compatibility reasons and will be removed in a future release. My subclasses will then become subclasses of my parent class. Please move your extension methods to my parent class. \ No newline at end of file diff --git a/src/Squot.package/SquotChangedArtifactsChooser.class/methodProperties.json b/src/Squot.package/SquotChangedArtifactsChooser.class/methodProperties.json deleted file mode 100644 index 0e4a66223..000000000 --- a/src/Squot.package/SquotChangedArtifactsChooser.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - } } diff --git a/src/Squot.package/SquotChangedArtifactsChooser.class/properties.json b/src/Squot.package/SquotChangedArtifactsChooser.class/properties.json deleted file mode 100644 index 01a305815..000000000 --- a/src/Squot.package/SquotChangedArtifactsChooser.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tools", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 9/25/2020 18:30", - "instvars" : [ - ], - "name" : "SquotChangedArtifactsChooser", - "pools" : [ - ], - "super" : "SquotChangesChooser", - "type" : "normal" } diff --git a/src/Squot.package/SquotChangesChooser.class/README.md b/src/Squot.package/SquotChangesChooser.class/README.md deleted file mode 100644 index 9fb9fa203..000000000 --- a/src/Squot.package/SquotChangesChooser.class/README.md +++ /dev/null @@ -1,12 +0,0 @@ -I am a tool that allows the user to pick changes to manipulate a SquotPatch. - -To allow for clean canceling, the artifactDiffs are not changed immediately when the SquotDiffNodes displayed herein are manipulated. -Only after the changes are #accepted, the #selectedPatch will contain the adjusted diffs. - -Instance Variables - canceled: - controllerForIgnores: delegate for ignore state modifications - ignored: ignored artifacts - artifactDiffs: the artifact differences from the patch to be manipulated - rootNodes: list of tree roots of SquotDiffNode trees - selectedNode: the currently selected node \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/class/on..st b/src/Squot.package/SquotChangesChooser.class/class/on..st deleted file mode 100644 index 737de3253..000000000 --- a/src/Squot.package/SquotChangesChooser.class/class/on..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -on: aPatch - ^ self new on: aPatch \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/class/themeProperties.st b/src/Squot.package/SquotChangesChooser.class/class/themeProperties.st deleted file mode 100644 index 84886860e..000000000 --- a/src/Squot.package/SquotChangesChooser.class/class/themeProperties.st +++ /dev/null @@ -1,6 +0,0 @@ -preferences -themeProperties - ^ super themeProperties, { - { #acceptColor. 'Colors'. 'Color for the accept button.' }. - { #cancelColor. 'Colors'. 'Color for the cancel button.' }. - } \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/accept.st b/src/Squot.package/SquotChangesChooser.class/instance/accept.st deleted file mode 100644 index 795c4645f..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/accept.st +++ /dev/null @@ -1,6 +0,0 @@ -actions -accept - (rootNodes anySatisfy: [:any | any anyChildNeedsChoice]) - ifTrue: [^ self inform: 'Some conflicts must still be resolved.']. - canceled := false. - self changed: #close. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/acceptColor.st b/src/Squot.package/SquotChangesChooser.class/instance/acceptColor.st deleted file mode 100644 index 5f4402d4b..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/acceptColor.st +++ /dev/null @@ -1,4 +0,0 @@ -ui toolbuilder -acceptColor - ^ self userInterfaceTheme acceptColor - ifNil: [self userInterfaceTheme get: #okColor for: #DialogWindow] \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/accepted.st b/src/Squot.package/SquotChangesChooser.class/instance/accepted.st deleted file mode 100644 index f49bb6036..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/accepted.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -accepted - ^ canceled == false \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/activateNodeCommandLabel.st b/src/Squot.package/SquotChangesChooser.class/instance/activateNodeCommandLabel.st deleted file mode 100644 index 1d6fa39ec..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/activateNodeCommandLabel.st +++ /dev/null @@ -1,3 +0,0 @@ -ui labels -activateNodeCommandLabel - ^ 'Choose this edition (x)' \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/activateSelectedNode.st b/src/Squot.package/SquotChangesChooser.class/instance/activateSelectedNode.st deleted file mode 100644 index 096cee6d0..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/activateSelectedNode.st +++ /dev/null @@ -1,8 +0,0 @@ -actions -activateSelectedNode - | nodesToInclude ancestorNodes | - nodesToInclude := self selectedNode withAllChildren. - nodesToInclude do: [:each | each include]. - ancestorNodes := selectedNodePath ifNil: [Array empty]. - ancestorNodes allButFirstDo: [:each | each offersChoice ifFalse: [each include]]. - self changed: #rootNodes. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/addCustomMenuItemsOfSelectedNode..st b/src/Squot.package/SquotChangesChooser.class/instance/addCustomMenuItemsOfSelectedNode..st deleted file mode 100644 index 5ea56b37e..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/addCustomMenuItemsOfSelectedNode..st +++ /dev/null @@ -1,6 +0,0 @@ -ui menus -addCustomMenuItemsOfSelectedNode: aMenu - | object | - object := self selectedNode content. - (object respondsTo: #squotAddDiffNodeMenuItems:for:) ifTrue: - [object squotAddDiffNodeMenuItems: aMenu for: self]. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/addIgnoreMenuItem..st b/src/Squot.package/SquotChangesChooser.class/instance/addIgnoreMenuItem..st deleted file mode 100644 index 48d60a523..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/addIgnoreMenuItem..st +++ /dev/null @@ -1,4 +0,0 @@ -ui menus -addIgnoreMenuItem: aMenu - aMenu add: 'Ignore this change from now on (I)' translated - action: #ignoreSelectedNode. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/addUnignoreMenuItem..st b/src/Squot.package/SquotChangesChooser.class/instance/addUnignoreMenuItem..st deleted file mode 100644 index 1153370c8..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/addUnignoreMenuItem..st +++ /dev/null @@ -1,4 +0,0 @@ -ui menus -addUnignoreMenuItem: aMenu - aMenu add: 'Do not ignore this change any more (I)' translated - action: #unignoreSelectedNode. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/addUnloadedArtifactMenuItems..st b/src/Squot.package/SquotChangesChooser.class/instance/addUnloadedArtifactMenuItems..st deleted file mode 100644 index a8dafa979..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/addUnloadedArtifactMenuItems..st +++ /dev/null @@ -1,5 +0,0 @@ -ui menus -addUnloadedArtifactMenuItems: aMenu - (self selectedNode isArtifactNode and: [self canBeLoaded: self selectedNode]) ifFalse: [^ self]. - aMenu - add: 'Toggle whether this will be loaded' action: #toggleLoadSelectedNode. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/annotation.st b/src/Squot.package/SquotChangesChooser.class/instance/annotation.st deleted file mode 100644 index 442b0bf3c..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/annotation.st +++ /dev/null @@ -1,4 +0,0 @@ -ui diff tree -annotation - ^ selectedNode - ifNotNil: [[selectedNode annotations] ifError: [:ex | ex]] \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/applyUserInterfaceTheme.st b/src/Squot.package/SquotChangesChooser.class/instance/applyUserInterfaceTheme.st deleted file mode 100644 index 992edbed3..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/applyUserInterfaceTheme.st +++ /dev/null @@ -1,6 +0,0 @@ -updating -applyUserInterfaceTheme - super applyUserInterfaceTheme. - self - changed: #acceptColor; - changed: #cancelColor. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/autoProcessNodes..st b/src/Squot.package/SquotChangesChooser.class/instance/autoProcessNodes..st deleted file mode 100644 index 197c21ca2..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/autoProcessNodes..st +++ /dev/null @@ -1,4 +0,0 @@ -ui diff tree -autoProcessNodes: aCollection - "Subclasses may automatically apply some modifications to the tree nodes." - ^ aCollection \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/browseIncomingEdition.st b/src/Squot.package/SquotChangesChooser.class/instance/browseIncomingEdition.st deleted file mode 100644 index fe3f0bc4e..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/browseIncomingEdition.st +++ /dev/null @@ -1,4 +0,0 @@ -actions -browseIncomingEdition - selectedNode ifNil: [^ self]. - workingCopy repository withUnitOfWork: [selectedNode browseIncomingEdition: workingCopy]. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/browseOriginalEdition.st b/src/Squot.package/SquotChangesChooser.class/instance/browseOriginalEdition.st deleted file mode 100644 index 1babce626..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/browseOriginalEdition.st +++ /dev/null @@ -1,4 +0,0 @@ -actions -browseOriginalEdition - selectedNode ifNil: [^ self]. - workingCopy repository withUnitOfWork: [selectedNode browseOriginalEdition: workingCopy]. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/browseOtherEdition.st b/src/Squot.package/SquotChangesChooser.class/instance/browseOtherEdition.st deleted file mode 100644 index b4bdfbb95..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/browseOtherEdition.st +++ /dev/null @@ -1,3 +0,0 @@ -actions -browseOtherEdition - self browseIncomingEdition. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/browseOtherEditionLabel.st b/src/Squot.package/SquotChangesChooser.class/instance/browseOtherEditionLabel.st deleted file mode 100644 index 6f00e88ee..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/browseOtherEditionLabel.st +++ /dev/null @@ -1,3 +0,0 @@ -ui labels -browseOtherEditionLabel - ^ 'Browse incoming edition' \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/browseWorkingCopyEdition.st b/src/Squot.package/SquotChangesChooser.class/instance/browseWorkingCopyEdition.st deleted file mode 100644 index 8b4fe81af..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/browseWorkingCopyEdition.st +++ /dev/null @@ -1,4 +0,0 @@ -actions -browseWorkingCopyEdition - selectedNode ifNil: [^ self]. - self selectedNode browseInWorkingCopy. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/buildButtonBar..st b/src/Squot.package/SquotChangesChooser.class/instance/buildButtonBar..st deleted file mode 100644 index 93bd8f14a..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/buildButtonBar..st +++ /dev/null @@ -1,28 +0,0 @@ -ui toolbuilder -buildButtonBar: builder - | buttonBar cancelButton acceptButton | - buttonBar := builder pluggablePanelSpec new - layout: #horizontal; - "spacing: -1;" - children: OrderedCollection new; - frame: (LayoutFrame new leftFraction: 0 offset: 0; - topFraction: 1 offset: self buttonHeight negated; - rightFraction: 1 offset: 0; - bottomFraction: 1 offset: 0) - yourself. - acceptButton := builder pluggableButtonSpec new - model: self; - label: 'Accept' translated; - help: 'accept the selected changes' translated; - action: #accept; - color: #acceptColor; - yourself. - cancelButton := builder pluggableButtonSpec new - model: self; - label: 'Cancel' translated; - help: 'discard selection and abort' translated; - action: #cancel; - color: #cancelColor; - yourself. - buttonBar children addAll: {acceptButton. cancelButton}. - ^ buttonBar \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/buildDiffPane..st b/src/Squot.package/SquotChangesChooser.class/instance/buildDiffPane..st deleted file mode 100644 index 6c2969a59..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/buildDiffPane..st +++ /dev/null @@ -1,12 +0,0 @@ -ui toolbuilder -buildDiffPane: builder - | mainWidgets mainWidgetsPanel | - mainWidgets := self chooserWidgetSpecs: builder. - mainWidgetsPanel := builder pluggablePanelSpec new - children: mainWidgets; - frame: (LayoutFrame - fractions: (0@0 corner: 1@1) - offsets: (0@0 corner: 0@(self buttonHeight negated))); - wantsResizeHandles: true; - yourself. - ^ mainWidgetsPanel \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/buildWith..st b/src/Squot.package/SquotChangesChooser.class/instance/buildWith..st deleted file mode 100644 index 98491024f..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/buildWith..st +++ /dev/null @@ -1,9 +0,0 @@ -ui toolbuilder -buildWith: builder - | window windowWidgets | - windowWidgets := self widgetSpecs: builder. - window := builder pluggableWindowSpec new. - window model: self; - label: self windowLabel; - children: windowWidgets. - ^ builder build: window \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/buttonHeight.st b/src/Squot.package/SquotChangesChooser.class/instance/buttonHeight.st deleted file mode 100644 index c0e6a24fd..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/buttonHeight.st +++ /dev/null @@ -1,3 +0,0 @@ -ui toolbuilder -buttonHeight - ^ SquotGUI buttonBarHeight \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/canBeLoaded..st b/src/Squot.package/SquotChangesChooser.class/instance/canBeLoaded..st deleted file mode 100644 index bd50ea165..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/canBeLoaded..st +++ /dev/null @@ -1,11 +0,0 @@ -ui menus -canBeLoaded: aDiffNode - "Answer yes if the artifact of the node is currently not loaded, but could be loaded in the current operation (restore or merge)." - | isNotLoaded | - (aDiffNode isArtifactNode not or: [aDiffNode content isConflict]) ifTrue: [^ false]. - isNotLoaded := [:anArtifact | (anArtifact respondsTo: #isLoaded) and: [anArtifact isLoaded not]]. - ^ aDiffNode artifactDiff isMerge - ifTrue: [isNotLoaded value: aDiffNode artifactDiff working] - ifFalse: - [| diff | diff := aDiffNode artifactDiff. - diff isAddition or: [diff isRemoval not and: [isNotLoaded value: diff left]]] \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/cancel.st b/src/Squot.package/SquotChangesChooser.class/instance/cancel.st deleted file mode 100644 index ff7e73dc1..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/cancel.st +++ /dev/null @@ -1,4 +0,0 @@ -actions -cancel - canceled := true. - self changed: #close. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/cancelColor.st b/src/Squot.package/SquotChangesChooser.class/instance/cancelColor.st deleted file mode 100644 index c29080b6e..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/cancelColor.st +++ /dev/null @@ -1,4 +0,0 @@ -ui toolbuilder -cancelColor - ^ self userInterfaceTheme cancelColor - ifNil: [self userInterfaceTheme get: #cancelColor for: #DialogWindow] \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/canceled..st b/src/Squot.package/SquotChangesChooser.class/instance/canceled..st deleted file mode 100644 index 230418715..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/canceled..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -canceled: anObject - - canceled := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/canceled.st b/src/Squot.package/SquotChangesChooser.class/instance/canceled.st deleted file mode 100644 index efeb6d472..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/canceled.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -canceled - - ^ canceled \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/childNodesOf..st b/src/Squot.package/SquotChangesChooser.class/instance/childNodesOf..st deleted file mode 100644 index 1de8fa06c..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/childNodesOf..st +++ /dev/null @@ -1,3 +0,0 @@ -ui diff tree -childNodesOf: aSquotDiffNode - ^ aSquotDiffNode children \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/chooseLeftCommandLabel.st b/src/Squot.package/SquotChangesChooser.class/instance/chooseLeftCommandLabel.st deleted file mode 100644 index 9d947a837..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/chooseLeftCommandLabel.st +++ /dev/null @@ -1,3 +0,0 @@ -ui labels -chooseLeftCommandLabel - ^ 'Choose already loaded edition (x)' \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/chooseRightCommandLabel.st b/src/Squot.package/SquotChangesChooser.class/instance/chooseRightCommandLabel.st deleted file mode 100644 index 1dce951a5..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/chooseRightCommandLabel.st +++ /dev/null @@ -1,3 +0,0 @@ -ui labels -chooseRightCommandLabel - ^ 'Choose this edition (x)' \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/chooserWidgetSpecs..st b/src/Squot.package/SquotChangesChooser.class/instance/chooserWidgetSpecs..st deleted file mode 100644 index 845c20089..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/chooserWidgetSpecs..st +++ /dev/null @@ -1,29 +0,0 @@ -ui toolbuilder -chooserWidgetSpecs: builder - ^ {builder pluggableTreeSpec new - name: 'hierarchical diff'; - model: self; - nodeClass: SquotDiffNodeTreeWrapper; - roots: #rootNodes; - label: #nodeLabelOf:; - getSelected: #selectedNode; - setSelected: #selectNode:; - setSelectedPath: #selectedNodePath:; - getChildren: #childNodesOf:; - hasChildren: #hasChildren:; - keyPress: #diffKey:from:event:; - menu: #diffNodeMenu:shifted:; - frame: (0@0 corner: 0.4@1); - yourself. - builder pluggableTextSpec new - name: 'diff text for selected item'; - model: self; - getText: #diffText; - frame: (LayoutFrame fractions: (0.4@0 corner: 1@1) offsets: (0 @ 0 corner: 0 @ self defaultAnnotationPaneHeight negated)); - yourself. - builder pluggableTextSpec new - name: #annotationPane; - model: self; - getText: #annotation; - frame: (LayoutFrame fractions: (0.4@1 corner: 1@1) offsets: (0 @ self defaultAnnotationPaneHeight negated corner: 0 @ 0)); - yourself} \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/controllerForIgnores..st b/src/Squot.package/SquotChangesChooser.class/instance/controllerForIgnores..st deleted file mode 100644 index 84eb88fbc..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/controllerForIgnores..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -controllerForIgnores: anObject - - controllerForIgnores := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/controllerForIgnores.st b/src/Squot.package/SquotChangesChooser.class/instance/controllerForIgnores.st deleted file mode 100644 index 898cc4469..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/controllerForIgnores.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -controllerForIgnores - - ^ controllerForIgnores \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/createLoadOrderNodes.st b/src/Squot.package/SquotChangesChooser.class/instance/createLoadOrderNodes.st deleted file mode 100644 index 0d6526455..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/createLoadOrderNodes.st +++ /dev/null @@ -1,7 +0,0 @@ -ui diff tree -createLoadOrderNodes - | loadOrderNodes | - loadOrderNodes := OrderedCollection new. - editedPatch addLoadOrderDiffTreeTo: loadOrderNodes. - loadOrderNodes do: [:each | each withAllChildren do: [:eachNode | eachNode workingCopy: workingCopy]]. - ^ loadOrderNodes. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/createRootNodes.st b/src/Squot.package/SquotChangesChooser.class/instance/createRootNodes.st deleted file mode 100644 index 635c0de52..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/createRootNodes.st +++ /dev/null @@ -1,13 +0,0 @@ -ui diff tree -createRootNodes - | nodes | - nodes := OrderedCollection new. - editedPatch - diffsDo: [ :each | - | root | - root := each asDiffTree. - each setUpTreeRoot: root toEditPatch: editedPatch. - root withAllChildren do: [ :eachNode | eachNode workingCopy: workingCopy ]. - nodes add: root ]. - nodes addAll: self createLoadOrderNodes. - ^ nodes \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/deactivateNodeCommandLabel.st b/src/Squot.package/SquotChangesChooser.class/instance/deactivateNodeCommandLabel.st deleted file mode 100644 index 8c5128392..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/deactivateNodeCommandLabel.st +++ /dev/null @@ -1,3 +0,0 @@ -ui labels -deactivateNodeCommandLabel - ^ 'Skip this change (x)' \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/deactivateSelectedNode.st b/src/Squot.package/SquotChangesChooser.class/instance/deactivateSelectedNode.st deleted file mode 100644 index 05eddf924..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/deactivateSelectedNode.st +++ /dev/null @@ -1,6 +0,0 @@ -actions -deactivateSelectedNode - | nodesToExclude | - nodesToExclude := self selectedNode withAllChildren. - nodesToExclude do: [:each | each exclude]. - self changed: #rootNodes. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/defaultAnnotationPaneHeight.st b/src/Squot.package/SquotChangesChooser.class/instance/defaultAnnotationPaneHeight.st deleted file mode 100644 index 2d6700391..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/defaultAnnotationPaneHeight.st +++ /dev/null @@ -1,4 +0,0 @@ -ui toolbuilder -defaultAnnotationPaneHeight - - ^ SquotGUI inputFieldHeightFor: 2 "lines" \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/diffKey.from.event..st b/src/Squot.package/SquotChangesChooser.class/instance/diffKey.from.event..st deleted file mode 100644 index 66f6f8011..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/diffKey.from.event..st +++ /dev/null @@ -1,26 +0,0 @@ -ui diff tree -diffKey: aChar from: view event: event - - self hasNodeSelected ifFalse: [^ false]. - event anyModifierKeyPressed ifFalse: [^ false]. - - aChar == $x ifTrue: [ - self selectedDiffNodeIsIncluded - ifTrue: [self deactivateSelectedNode] - ifFalse: [self activateSelectedNode]. ^ true]. - aChar == $i ifTrue: [ - self inspectSelectedDiffContent. - ^ true]. - aChar == $b ifTrue: [ - self browseWorkingCopyEdition. - ^ true]. - aChar = $I ifTrue: - [self selectedNode content ifNotNil: - [:content | - (content respondsTo: #isCurrentlyIgnoredInSquot) ifTrue: - [content isCurrentlyIgnoredInSquot - ifTrue: [self unignoreSelectedNode] - ifFalse: [self ignoreSelectedNode]. - ^ true]]]. - - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/diffNodeMenu.shifted..st b/src/Squot.package/SquotChangesChooser.class/instance/diffNodeMenu.shifted..st deleted file mode 100644 index 507113d89..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/diffNodeMenu.shifted..st +++ /dev/null @@ -1,3 +0,0 @@ -ui diff tree -diffNodeMenu: aMenu shifted: aBoolean - ^ self menu: aMenu for: #(menuSquotDiffNode) \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/diffNodeMenuHook..st b/src/Squot.package/SquotChangesChooser.class/instance/diffNodeMenuHook..st deleted file mode 100644 index 8c46e4e96..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/diffNodeMenuHook..st +++ /dev/null @@ -1,28 +0,0 @@ -ui menus -diffNodeMenuHook: aMenu - - self selectedNode ifNil: [^ aMenu]. - self selectedNode offersChoice - ifTrue: [aMenu - add: self chooseRightCommandLabel action: #activateSelectedNode; - add: self chooseLeftCommandLabel action: #deactivateSelectedNode; - add: self resetChoiceCommandLabel action: #resetChoiceForSelectedNode] - ifFalse: [self selectedNode isActive - ifTrue: [aMenu add: self deactivateNodeCommandLabel action: #deactivateSelectedNode] - ifFalse: [aMenu add: self activateNodeCommandLabel action: #activateSelectedNode]]. - self addUnloadedArtifactMenuItems: aMenu. - self selectedNode isArtifactNode ifTrue: - [aMenu - add: 'Move up in load order' action: #moveUpSelectedInLoadOrder; - add: 'Move down in load order' action: #moveDownSelectedInLoadOrder]. - aMenu addLine. - aMenu add: 'Inspect diff (i)' action: #inspectSelectedDiffContent. - self selectedNode content ifNotNil: - [ - aMenu add: 'Browse full (b)' action: #browseWorkingCopyEdition. - aMenu add: self browseOtherEditionLabel action: #browseOtherEdition. - self addCustomMenuItemsOfSelectedNode: aMenu]. - self selectedNode isArtifactNode ifTrue: - [aMenu add: self inspectOriginalArtifactCommandLabel action: #inspectOriginalArtifactOfSelectedNode. - aMenu add: self inspectProposedArtifactCommandLabel action: #inspectProposedArtifactOfSelectedNode]. - ^ aMenu \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/diffText.st b/src/Squot.package/SquotChangesChooser.class/instance/diffText.st deleted file mode 100644 index d9381e199..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/diffText.st +++ /dev/null @@ -1,5 +0,0 @@ -ui diff tree -diffText - ^ selectedNode - ifNil: [''] - ifNotNil: [workingCopy repository withUnitOfWork: [selectedNode asStringOrText]] \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/doItContext.st b/src/Squot.package/SquotChangesChooser.class/instance/doItContext.st deleted file mode 100644 index 7584b505c..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/doItContext.st +++ /dev/null @@ -1,4 +0,0 @@ -Smalltalk tools -doItContext - - ^ nil \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/doItReceiver.st b/src/Squot.package/SquotChangesChooser.class/instance/doItReceiver.st deleted file mode 100644 index 1d859e510..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/doItReceiver.st +++ /dev/null @@ -1,4 +0,0 @@ -Smalltalk tools -doItReceiver - - ^ self selectedClass ifNotNil: [:class | class theNonMetaClass] \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/environment.st b/src/Squot.package/SquotChangesChooser.class/instance/environment.st deleted file mode 100644 index 0daf33055..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/environment.st +++ /dev/null @@ -1,7 +0,0 @@ -Smalltalk tools -environment - | workingCopyArtifact | - self selectedNode ifNil: [^ super environment]. - workingCopyArtifact := self workingCopy artifactAt: self selectedNode artifactDiff path ifAbsent: [^ super environment]. - workingCopyArtifact isLoaded ifFalse: [^ super environment]. - ^ PackageInfo squotEnvironmentOf: workingCopyArtifact \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/excludeMethodsWithOnlyTimestampChanges..st b/src/Squot.package/SquotChangesChooser.class/instance/excludeMethodsWithOnlyTimestampChanges..st deleted file mode 100644 index d776aedca..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/excludeMethodsWithOnlyTimestampChanges..st +++ /dev/null @@ -1,8 +0,0 @@ -actions -excludeMethodsWithOnlyTimestampChanges: aCollection - aCollection do: [:eachPackageNode | - eachPackageNode children do: [:eachClassNode | - eachClassNode children - select: [:each | each title endsWith: '(only different time stamp)'] - thenDo: [:each | each exclude]. - eachClassNode hasActiveChildren ifFalse: [eachClassNode exclude]]]. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/excludePackagesWithoutActiveChanges..st b/src/Squot.package/SquotChangesChooser.class/instance/excludePackagesWithoutActiveChanges..st deleted file mode 100644 index 48cfc64d4..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/excludePackagesWithoutActiveChanges..st +++ /dev/null @@ -1,5 +0,0 @@ -actions -excludePackagesWithoutActiveChanges: aCollection - aCollection do: [:eachPackage | - eachPackage hasActiveChildren ifFalse: - [eachPackage artifactDiff metadata squotHasChanges ifFalse: [eachPackage exclude]]]. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/hasChildren..st b/src/Squot.package/SquotChangesChooser.class/instance/hasChildren..st deleted file mode 100644 index d8a50ecb8..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/hasChildren..st +++ /dev/null @@ -1,3 +0,0 @@ -ui diff tree -hasChildren: aSquotDiffNode - ^ aSquotDiffNode hasChildren \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/hasNodeSelected.st b/src/Squot.package/SquotChangesChooser.class/instance/hasNodeSelected.st deleted file mode 100644 index 2e83552a4..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/hasNodeSelected.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasNodeSelected - ^ selectedNode notNil \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/ignoreSelectedNode.st b/src/Squot.package/SquotChangesChooser.class/instance/ignoreSelectedNode.st deleted file mode 100644 index 361bb2f8c..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/ignoreSelectedNode.st +++ /dev/null @@ -1,5 +0,0 @@ -actions -ignoreSelectedNode - self selectedNode content ifNil: [^ self]. - self selectedNode ignore. - self deactivateSelectedNode. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/inspectOriginalArtifactCommandLabel.st b/src/Squot.package/SquotChangesChooser.class/instance/inspectOriginalArtifactCommandLabel.st deleted file mode 100644 index 86b649399..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/inspectOriginalArtifactCommandLabel.st +++ /dev/null @@ -1,3 +0,0 @@ -ui labels -inspectOriginalArtifactCommandLabel - ^ 'Inspect currently loaded edition' \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/inspectOriginalArtifactOfSelectedNode.st b/src/Squot.package/SquotChangesChooser.class/instance/inspectOriginalArtifactOfSelectedNode.st deleted file mode 100644 index a90cfeed1..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/inspectOriginalArtifactOfSelectedNode.st +++ /dev/null @@ -1,4 +0,0 @@ -actions -inspectOriginalArtifactOfSelectedNode - self selectedNode content isAddition ifTrue: [^ SquotGUI inform: 'Object did not exist yet']. - self selectedNode content left explore. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/inspectProposedArtifactCommandLabel.st b/src/Squot.package/SquotChangesChooser.class/instance/inspectProposedArtifactCommandLabel.st deleted file mode 100644 index 8d1306fe2..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/inspectProposedArtifactCommandLabel.st +++ /dev/null @@ -1,3 +0,0 @@ -ui labels -inspectProposedArtifactCommandLabel - ^ 'Inspect modified edition' \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/inspectProposedArtifactOfSelectedNode.st b/src/Squot.package/SquotChangesChooser.class/instance/inspectProposedArtifactOfSelectedNode.st deleted file mode 100644 index 394f66dc2..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/inspectProposedArtifactOfSelectedNode.st +++ /dev/null @@ -1,4 +0,0 @@ -actions -inspectProposedArtifactOfSelectedNode - self selectedNode content isRemoval ifTrue: [^ SquotGUI inform: 'Object was removed']. - self selectedNode content right explore. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/inspectSelectedDiffContent.st b/src/Squot.package/SquotChangesChooser.class/instance/inspectSelectedDiffContent.st deleted file mode 100644 index 983b28c1a..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/inspectSelectedDiffContent.st +++ /dev/null @@ -1,3 +0,0 @@ -actions -inspectSelectedDiffContent - self selectedNode inspectContent. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/moveDownSelectedInLoadOrder.st b/src/Squot.package/SquotChangesChooser.class/instance/moveDownSelectedInLoadOrder.st deleted file mode 100644 index 0277d39ff..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/moveDownSelectedInLoadOrder.st +++ /dev/null @@ -1,11 +0,0 @@ -actions -moveDownSelectedInLoadOrder - | loadOrder element index | - loadOrder := editedPatch newLoadOrder. - element := self selectedNode content path. - loadOrder last = element ifTrue: [^ self]. - loadOrder swap: (index := loadOrder indexOf: element) with: index + 1. - editedPatch newLoadOrder: loadOrder. - rootNodes swap: (index := rootNodes indexOf: self selectedNode) with: index + 1. - self updateRootNodesAfterLoadOrderChange. - self changed: #rootNodes. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/moveUpSelectedInLoadOrder.st b/src/Squot.package/SquotChangesChooser.class/instance/moveUpSelectedInLoadOrder.st deleted file mode 100644 index b7ca5233a..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/moveUpSelectedInLoadOrder.st +++ /dev/null @@ -1,11 +0,0 @@ -actions -moveUpSelectedInLoadOrder - | loadOrder element index | - loadOrder := editedPatch newLoadOrder. - element := self selectedNode content path. - loadOrder first = element ifTrue: [^ self]. - loadOrder swap: (index := loadOrder indexOf: element) with: index - 1. - editedPatch newLoadOrder: loadOrder. - rootNodes swap: (index := rootNodes indexOf: self selectedNode) with: index - 1. - self updateRootNodesAfterLoadOrderChange. - self changed: #rootNodes. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/nodeLabelOf..st b/src/Squot.package/SquotChangesChooser.class/instance/nodeLabelOf..st deleted file mode 100644 index 8f8c96a6c..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/nodeLabelOf..st +++ /dev/null @@ -1,5 +0,0 @@ -ui diff tree -nodeLabelOf: aSquotDiffNode - | text | - text := aSquotDiffNode title. - ^ text \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/on..st b/src/Squot.package/SquotChangesChooser.class/instance/on..st deleted file mode 100644 index baf42205b..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/on..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -on: aPatch - editedPatch := aPatch createNewBuilder. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/requestSelectedChangesWithTitle..st b/src/Squot.package/SquotChangesChooser.class/instance/requestSelectedChangesWithTitle..st deleted file mode 100644 index 5b72859d0..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/requestSelectedChangesWithTitle..st +++ /dev/null @@ -1,6 +0,0 @@ -public -requestSelectedChangesWithTitle: titleString - | builder | - builder := ToolBuilder default. - view := builder open: self label: titleString. - builder runModal: view. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/resetChoiceCommandLabel.st b/src/Squot.package/SquotChangesChooser.class/instance/resetChoiceCommandLabel.st deleted file mode 100644 index cc42284d8..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/resetChoiceCommandLabel.st +++ /dev/null @@ -1,3 +0,0 @@ -ui labels -resetChoiceCommandLabel - ^ 'Reset conflict resolution choice' \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/resetChoiceForSelectedNode.st b/src/Squot.package/SquotChangesChooser.class/instance/resetChoiceForSelectedNode.st deleted file mode 100644 index 5395a0a46..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/resetChoiceForSelectedNode.st +++ /dev/null @@ -1,4 +0,0 @@ -actions -resetChoiceForSelectedNode - self selectedNode resetChoice. - self changed: #rootNodes. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/rootNodes.st b/src/Squot.package/SquotChangesChooser.class/instance/rootNodes.st deleted file mode 100644 index 0d8a68408..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/rootNodes.st +++ /dev/null @@ -1,6 +0,0 @@ -ui diff tree -rootNodes - rootNodes ifNotNil: [ ^ rootNodes ]. - rootNodes := self createRootNodes. - rootNodes := self autoProcessNodes: rootNodes. - ^ rootNodes \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/selectNode..st b/src/Squot.package/SquotChangesChooser.class/instance/selectNode..st deleted file mode 100644 index bfafa2717..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/selectNode..st +++ /dev/null @@ -1,6 +0,0 @@ -ui diff tree -selectNode: aSquotDiffNode - selectedNode := aSquotDiffNode. - self changed: #selectedNode. - self changed: #diffText. - self changed: #annotation. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/selectedChangesWithTitle..st b/src/Squot.package/SquotChangesChooser.class/instance/selectedChangesWithTitle..st deleted file mode 100644 index 1ce68237e..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/selectedChangesWithTitle..st +++ /dev/null @@ -1,8 +0,0 @@ -public -selectedChangesWithTitle: titleString - | builder | - promise ifNil: [promise := Promise new]. - builder := ToolBuilder default. - Project current addDeferredUIMessage: - [view := builder open: self label: titleString]. - ^ promise \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/selectedClass.st b/src/Squot.package/SquotChangesChooser.class/instance/selectedClass.st deleted file mode 100644 index 88ce80782..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/selectedClass.st +++ /dev/null @@ -1,10 +0,0 @@ -Smalltalk tools -selectedClass - | workingCopyArtifact | - self selectedNode ifNil: [^ super selectedClass]. - workingCopyArtifact := self workingCopy artifactAt: self selectedNode artifactDiff path ifAbsent: [^ super selectedClass]. - workingCopyArtifact isLoaded ifFalse: [^ super selectedClass]. - (self selectedNode content respondsTo: #actualClassInSquotWorkingCopy:) - ifFalse: [^ super selectedClass]. - ^ self selectedNode content actualClassInSquotWorkingCopy: - (self workingCopy artifactAt: self selectedNode artifactDiff path) \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/selectedDiffNodeIsIncluded.st b/src/Squot.package/SquotChangesChooser.class/instance/selectedDiffNodeIsIncluded.st deleted file mode 100644 index fb1162f8e..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/selectedDiffNodeIsIncluded.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -selectedDiffNodeIsIncluded - ^ self selectedNode isActive \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/selectedNode.st b/src/Squot.package/SquotChangesChooser.class/instance/selectedNode.st deleted file mode 100644 index e35298895..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/selectedNode.st +++ /dev/null @@ -1,3 +0,0 @@ -ui diff tree -selectedNode - ^ selectedNode \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/selectedNodePath..st b/src/Squot.package/SquotChangesChooser.class/instance/selectedNodePath..st deleted file mode 100644 index 835c64d29..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/selectedNodePath..st +++ /dev/null @@ -1,3 +0,0 @@ -ui diff tree -selectedNodePath: aCollection - selectedNodePath := aCollection. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/selectedPatch.st b/src/Squot.package/SquotChangesChooser.class/instance/selectedPatch.st deleted file mode 100644 index cb3406690..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/selectedPatch.st +++ /dev/null @@ -1,6 +0,0 @@ -results -selectedPatch - self accepted ifFalse: [^ self error: 'Should not ask for patch if selection was aborted']. - ^ editedPatch - updateRightArtifacts; - buildPatch \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/toggleLoadSelectedNode.st b/src/Squot.package/SquotChangesChooser.class/instance/toggleLoadSelectedNode.st deleted file mode 100644 index 2c3e84cb8..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/toggleLoadSelectedNode.st +++ /dev/null @@ -1,8 +0,0 @@ -actions -toggleLoadSelectedNode - self assert: self selectedNode isArtifactNode. - self selectedNode isActive ifFalse: [self selectedNode include]. - self selectedNode artifactDiff toggleWhetherToLoad. - self changed: #rootNodes; - changed: #diffText; - changed: #annotation. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/unignoreSelectedNode.st b/src/Squot.package/SquotChangesChooser.class/instance/unignoreSelectedNode.st deleted file mode 100644 index ab0db20ff..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/unignoreSelectedNode.st +++ /dev/null @@ -1,5 +0,0 @@ -actions -unignoreSelectedNode - self selectedNode content ifNil: [^ self]. - self selectedNode unignore. - self activateSelectedNode. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/updateRootNodesAfterLoadOrderChange.st b/src/Squot.package/SquotChangesChooser.class/instance/updateRootNodesAfterLoadOrderChange.st deleted file mode 100644 index a90eca930..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/updateRootNodesAfterLoadOrderChange.st +++ /dev/null @@ -1,4 +0,0 @@ -actions -updateRootNodesAfterLoadOrderChange - rootNodes last content ~= editedPatch loadOrderMerge - ifTrue: [rootNodes addAll: self createLoadOrderNodes]. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/widgetSpecs..st b/src/Squot.package/SquotChangesChooser.class/instance/widgetSpecs..st deleted file mode 100644 index 197456a5a..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/widgetSpecs..st +++ /dev/null @@ -1,3 +0,0 @@ -ui toolbuilder -widgetSpecs: builder - ^ {self buildDiffPane: builder. self buildButtonBar: builder} \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/windowIsClosing.st b/src/Squot.package/SquotChangesChooser.class/instance/windowIsClosing.st deleted file mode 100644 index a495a397b..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/windowIsClosing.st +++ /dev/null @@ -1,5 +0,0 @@ -updating -windowIsClosing - "Resolve or reject the promise." - promise ifNotNil: - [self accepted ifTrue: [promise resolveWith: self] ifFalse: [promise rejectWith: self]]. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/windowLabel.st b/src/Squot.package/SquotChangesChooser.class/instance/windowLabel.st deleted file mode 100644 index 01901342b..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/windowLabel.st +++ /dev/null @@ -1,3 +0,0 @@ -ui toolbuilder -windowLabel - ^ 'Changed Artifacts' \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/workingCopy..st b/src/Squot.package/SquotChangesChooser.class/instance/workingCopy..st deleted file mode 100644 index edbc52b75..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/workingCopy..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -workingCopy: anObject - workingCopy := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/instance/workingCopy.st b/src/Squot.package/SquotChangesChooser.class/instance/workingCopy.st deleted file mode 100644 index 685b55241..000000000 --- a/src/Squot.package/SquotChangesChooser.class/instance/workingCopy.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -workingCopy - ^ workingCopy \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooser.class/methodProperties.json b/src/Squot.package/SquotChangesChooser.class/methodProperties.json deleted file mode 100644 index c1439dabb..000000000 --- a/src/Squot.package/SquotChangesChooser.class/methodProperties.json +++ /dev/null @@ -1,82 +0,0 @@ -{ - "class" : { - "on:" : "jr 9/25/2020 19:02", - "themeProperties" : "jr 9/25/2020 18:24" }, - "instance" : { - "accept" : "jr 9/25/2020 18:24", - "acceptColor" : "jr 9/25/2020 18:25", - "accepted" : "jr 9/25/2020 18:25", - "activateNodeCommandLabel" : "jr 9/25/2020 18:26", - "activateSelectedNode" : "jr 11/30/2020 01:05", - "addCustomMenuItemsOfSelectedNode:" : "jr 9/25/2020 18:26", - "addIgnoreMenuItem:" : "jr 9/25/2020 18:26", - "addUnignoreMenuItem:" : "jr 9/25/2020 18:26", - "addUnloadedArtifactMenuItems:" : "jr 11/19/2020 20:20", - "annotation" : "ct 2/3/2022 21:11", - "applyUserInterfaceTheme" : "jr 9/25/2020 18:26", - "autoProcessNodes:" : "jr 3/8/2022 22:51", - "browseIncomingEdition" : "jr 6/6/2022 19:13", - "browseOriginalEdition" : "jr 6/6/2022 19:13", - "browseOtherEdition" : "jr 9/25/2020 18:26", - "browseOtherEditionLabel" : "jr 9/25/2020 18:26", - "browseWorkingCopyEdition" : "jr 9/25/2020 18:26", - "buildButtonBar:" : "jr 12/22/2021 13:08", - "buildDiffPane:" : "jr 12/22/2021 13:07", - "buildWith:" : "jr 9/25/2020 18:26", - "buttonHeight" : "jr 2/20/2022 11:29", - "canBeLoaded:" : "jr 11/19/2020 20:18", - "cancel" : "jr 9/25/2020 18:24", - "cancelColor" : "jr 9/25/2020 18:26", - "canceled" : "jr 9/25/2020 18:26", - "canceled:" : "jr 9/25/2020 18:26", - "childNodesOf:" : "jr 9/25/2020 18:26", - "chooseLeftCommandLabel" : "jr 9/25/2020 18:26", - "chooseRightCommandLabel" : "jr 9/25/2020 18:27", - "chooserWidgetSpecs:" : "ct 2/3/2022 21:09", - "controllerForIgnores" : "jr 9/25/2020 18:27", - "controllerForIgnores:" : "jr 9/25/2020 18:27", - "createLoadOrderNodes" : "jr 11/3/2020 22:01", - "createRootNodes" : "jr 5/14/2021 16:26", - "deactivateNodeCommandLabel" : "jr 9/25/2020 18:27", - "deactivateSelectedNode" : "jr 9/25/2020 18:27", - "defaultAnnotationPaneHeight" : "jr 3/13/2022 11:26", - "diffKey:from:event:" : "jr 9/25/2020 18:27", - "diffNodeMenu:shifted:" : "jr 9/25/2020 18:27", - "diffNodeMenuHook:" : "jr 11/18/2020 15:26", - "diffText" : "jr 6/6/2022 19:12", - "doItContext" : "ct 9/15/2022 18:56", - "doItReceiver" : "ct 9/15/2022 18:57", - "environment" : "jr 7/9/2022 12:12", - "excludeMethodsWithOnlyTimestampChanges:" : "jr 3/8/2022 20:28", - "excludePackagesWithoutActiveChanges:" : "jr 3/8/2022 20:28", - "hasChildren:" : "jr 9/25/2020 18:27", - "hasNodeSelected" : "jr 9/25/2020 18:27", - "ignoreSelectedNode" : "jr 9/25/2020 18:27", - "inspectOriginalArtifactCommandLabel" : "jr 9/25/2020 18:27", - "inspectOriginalArtifactOfSelectedNode" : "jr 6/6/2022 19:21", - "inspectProposedArtifactCommandLabel" : "jr 9/25/2020 18:27", - "inspectProposedArtifactOfSelectedNode" : "jr 6/6/2022 19:20", - "inspectSelectedDiffContent" : "jr 9/25/2020 18:27", - "moveDownSelectedInLoadOrder" : "jr 11/3/2020 22:04", - "moveUpSelectedInLoadOrder" : "jr 11/3/2020 22:04", - "nodeLabelOf:" : "jr 11/17/2020 17:48", - "on:" : "jr 9/25/2020 18:28", - "requestSelectedChangesWithTitle:" : "jr 9/25/2020 18:28", - "resetChoiceCommandLabel" : "jr 9/25/2020 18:28", - "resetChoiceForSelectedNode" : "jr 9/25/2020 18:28", - "rootNodes" : "jr 3/8/2022 22:51", - "selectNode:" : "ct 2/3/2022 21:09", - "selectedChangesWithTitle:" : "jr 9/25/2020 19:36", - "selectedClass" : "jr 7/9/2022 12:13", - "selectedDiffNodeIsIncluded" : "jr 9/25/2020 18:28", - "selectedNode" : "jr 9/25/2020 18:28", - "selectedNodePath:" : "jr 9/26/2020 14:03", - "selectedPatch" : "jr 7/17/2021 20:30", - "toggleLoadSelectedNode" : "ct 2/3/2022 21:09", - "unignoreSelectedNode" : "jr 9/25/2020 18:28", - "updateRootNodesAfterLoadOrderChange" : "jr 11/3/2020 22:04", - "widgetSpecs:" : "jr 9/25/2020 18:28", - "windowIsClosing" : "jr 9/26/2020 00:34", - "windowLabel" : "jr 9/25/2020 18:28", - "workingCopy" : "jr 9/25/2020 18:28", - "workingCopy:" : "jr 9/25/2020 18:28" } } diff --git a/src/Squot.package/SquotChangesChooser.class/properties.json b/src/Squot.package/SquotChangesChooser.class/properties.json deleted file mode 100644 index b0065225c..000000000 --- a/src/Squot.package/SquotChangesChooser.class/properties.json +++ /dev/null @@ -1,23 +0,0 @@ -{ - "category" : "Squot-Tools", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 9/25/2020 18:29", - "instvars" : [ - "controllerForIgnores", - "ignored", - "canceled", - "rootNodes", - "editedPatch", - "selectedNode", - "workingCopy", - "view", - "promise", - "selectedNodePath" ], - "name" : "SquotChangesChooser", - "pools" : [ - ], - "super" : "Model", - "type" : "normal" } diff --git a/src/Squot.package/SquotChangesChooserTest.class/README.md b/src/Squot.package/SquotChangesChooserTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotChangesChooserTest.class/class/shouldInheritSelectors.st b/src/Squot.package/SquotChangesChooserTest.class/class/shouldInheritSelectors.st deleted file mode 100644 index 70c7c157d..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/class/shouldInheritSelectors.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -shouldInheritSelectors - "Me and my subclasses should inherit selectors" - ^ (Array with: self with: self superclass) includes: SquotChangesChooserTest \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/applyToWorkingCopy.st b/src/Squot.package/SquotChangesChooserTest.class/instance/applyToWorkingCopy.st deleted file mode 100644 index e0101d624..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/applyToWorkingCopy.st +++ /dev/null @@ -1,3 +0,0 @@ -test objects -applyToWorkingCopy - workingCopy applyPatch: tool selectedPatch. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/changedArtifactAt.in..st b/src/Squot.package/SquotChangesChooserTest.class/instance/changedArtifactAt.in..st deleted file mode 100644 index 27a9e47f4..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/changedArtifactAt.in..st +++ /dev/null @@ -1,3 +0,0 @@ -test objects -changedArtifactAt: path in: patch - ^ patch patched artifactAt: path \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/hasChangesAt.in..st b/src/Squot.package/SquotChangesChooserTest.class/instance/hasChangesAt.in..st deleted file mode 100644 index bfbc2d9bb..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/hasChangesAt.in..st +++ /dev/null @@ -1,3 +0,0 @@ -test objects -hasChangesAt: path in: patch - ^ (patch includesDiffAt: path) and: [(patch diffAt: path) hasChanges] \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/includesDiffAt.in..st b/src/Squot.package/SquotChangesChooserTest.class/instance/includesDiffAt.in..st deleted file mode 100644 index fe191ae20..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/includesDiffAt.in..st +++ /dev/null @@ -1,3 +0,0 @@ -test objects -includesDiffAt: path in: patch - ^ patch includesDiffAt: path \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/loadOrderHasChanges.st b/src/Squot.package/SquotChangesChooserTest.class/instance/loadOrderHasChanges.st deleted file mode 100644 index 9e79bbc3c..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/loadOrderHasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -tests load order -loadOrderHasChanges - ^ tool selectedPatch loadOrderDiff squotHasChanges \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/newToolOn..st b/src/Squot.package/SquotChangesChooserTest.class/instance/newToolOn..st deleted file mode 100644 index 9c9f4a9f8..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/newToolOn..st +++ /dev/null @@ -1,5 +0,0 @@ -utilities -newToolOn: patch - ^ (SquotChangesChooser on: patch) - workingCopy: workingCopy; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/patchAddingArtifactAt..st b/src/Squot.package/SquotChangesChooserTest.class/instance/patchAddingArtifactAt..st deleted file mode 100644 index 68480dcff..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/patchAddingArtifactAt..st +++ /dev/null @@ -1,5 +0,0 @@ -test objects -patchAddingArtifactAt: path - | artifact | - artifact := SquotArtifact new path: path; content: SquotArtifactContentMock new. - ^ SquotPatch builder addDiff: (SquotArtifactAddition of: artifact); updateRightArtifacts; buildPatch. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/patchChangingArtifactAt..st b/src/Squot.package/SquotChangesChooserTest.class/instance/patchChangingArtifactAt..st deleted file mode 100644 index 2009e27ec..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/patchChangingArtifactAt..st +++ /dev/null @@ -1,10 +0,0 @@ -test objects -patchChangingArtifactAt: path - | object changed | - object := ValueHolder new contents: 1; yourself. - workingCopy add: object at: path. - changed := object copy. - changed contents: 2. - ^ (SquotImageStore new add: changed at: path; captureSnapshot) - patchRelativeToBase: - workingCopy \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/patchChangingArtifactMetadataAt..st b/src/Squot.package/SquotChangesChooserTest.class/instance/patchChangingArtifactMetadataAt..st deleted file mode 100644 index b6417b6c8..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/patchChangingArtifactMetadataAt..st +++ /dev/null @@ -1,13 +0,0 @@ -test objects -patchChangingArtifactMetadataAt: path - | object snapshot | - object := ValueHolder new contents: 1; yourself. - workingCopy add: object at: path. - (workingCopy artifactAt: path) liveStoreInfo - at: #customProperty put: 'old'; - at: #toBeRemoved put: true. - snapshot := workingCopy snapshot. - (workingCopy artifactAt: path) liveStoreInfo - at: #customProperty put: 'new'; - removeKey: #toBeRemoved. - ^ workingCopy patchRelativeToBase: snapshot \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/patchChangingUnloadedArtifactAt..st b/src/Squot.package/SquotChangesChooserTest.class/instance/patchChangingUnloadedArtifactAt..st deleted file mode 100644 index 9a3ce8dc6..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/patchChangingUnloadedArtifactAt..st +++ /dev/null @@ -1,13 +0,0 @@ -test objects -patchChangingUnloadedArtifactAt: path - | artifact changed | - artifact := SquotArtifactMock path: path. - changed := artifact copy. - artifact whenContentComparedWith: changed return: [SquotArtifactContentDiffMock new]. - ^ (SquotWorkingCopy forTestInMemory - addUnloaded: artifact; - newPatchBuilder) - addDiff: (SquotArtifactModification left: artifact right: changed - "Note: not sending setLoadedInWorkingCopy!"); - updateRightArtifacts; - buildPatch \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/patchModifyingMethodTimestampInArtifactAt..st b/src/Squot.package/SquotChangesChooserTest.class/instance/patchModifyingMethodTimestampInArtifactAt..st deleted file mode 100644 index ed419d11d..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/patchModifyingMethodTimestampInArtifactAt..st +++ /dev/null @@ -1,18 +0,0 @@ -test objects -patchModifyingMethodTimestampInArtifactAt: path - | before after | - before := SquotSnapshot builder - add: (((MCSnapshot fromDefinitions: { - MCMethodDefinition className: 'TestClass' classIsMeta: false selector: 'a' - category: 'changed stamps' timeStamp: '1' source: 'a'. - }) asSquotArtifactForPackage: (PackageInfo new packageName: 'TestPackage')) - path: path); - buildSnapshot. - after := SquotSnapshot builder - add: (((MCSnapshot fromDefinitions: { - MCMethodDefinition className: 'TestClass' classIsMeta: false selector: 'a' - category: 'changed stamps' timeStamp: '2' source: 'a'. - }) asSquotArtifactForPackage: (PackageInfo new packageName: 'TestPackage')) - path: path); - buildSnapshot. - ^ after patchRelativeToBase: before \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/patchRemovingArtifactAt..st b/src/Squot.package/SquotChangesChooserTest.class/instance/patchRemovingArtifactAt..st deleted file mode 100644 index 4a4c7f481..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/patchRemovingArtifactAt..st +++ /dev/null @@ -1,8 +0,0 @@ -test objects -patchRemovingArtifactAt: path - | artifact | - artifact := SquotArtifact new path: path; content: SquotArtifactContentMock new. - ^ (SquotSnapshot builder add: artifact; newPatchBuilder) - addDiff: (SquotArtifactRemoval of: artifact); - updateRightArtifacts; - buildPatch \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/patchWithLoadOrderChange.st b/src/Squot.package/SquotChangesChooserTest.class/instance/patchWithLoadOrderChange.st deleted file mode 100644 index 1954bff22..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/patchWithLoadOrderChange.st +++ /dev/null @@ -1,16 +0,0 @@ -test objects -patchWithLoadOrderChange - | patch | - patch := SquotPatch builder - startingFrom: (SquotSnapshot builder - add: (SquotArtifact new path: '1'); - add: (SquotArtifact new path: '2'); - buildSnapshot); - addDiff: (SquotArtifactDiffMock path: '1'); - addDiff: (SquotArtifactDiffMock path: '2'); - newLoadOrder: #('2' '1'); - updateRightArtifacts; - buildPatch. - self assert: patch diffs size = 2; - assert: (patch loadOrderDiff applyTo: #('1' '2')) = #('2' '1'). - ^ patch \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/patchWithLoadOrderChangeRegression1.st b/src/Squot.package/SquotChangesChooserTest.class/instance/patchWithLoadOrderChangeRegression1.st deleted file mode 100644 index b9bdb8b99..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/patchWithLoadOrderChangeRegression1.st +++ /dev/null @@ -1,14 +0,0 @@ -test objects -patchWithLoadOrderChangeRegression1 - | newLoadOrder patch patchBuilder base | - base := SquotSnapshot builder. - patchBuilder := SquotPatch builder. - 1 to: 16 do: [:i | base add: (SquotArtifact new path: i asString)]. - patchBuilder startingFrom: (base := base buildSnapshot). - base artifactsDo: [:each | patchBuilder addDiff: (SquotArtifactDiffMock path: each path)]. - newLoadOrder := #('16' '13' '3' '7' '4' '2' '5' '6' '15' '12' '14' '9' '11' '10' '8' '1'). - patchBuilder newLoadOrder: newLoadOrder. - patch := patchBuilder updateRightArtifacts; buildPatch. - self assert: (patch loadOrderDiff applyTo: ((1 to: 16) collect: #asString)) = newLoadOrder. - self assert: patch patchedLoadOrder = newLoadOrder. - ^ patch \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/patchWithTwoChangedArtifacts.st b/src/Squot.package/SquotChangesChooserTest.class/instance/patchWithTwoChangedArtifacts.st deleted file mode 100644 index 541def74d..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/patchWithTwoChangedArtifacts.st +++ /dev/null @@ -1,11 +0,0 @@ -test objects -patchWithTwoChangedArtifacts - ^ (SquotSnapshot builder - add: (SquotArtifactMock new path: '1'; yourself); - add: (SquotArtifactMock new path: '2'; yourself); - newPatchBuilder) - addDiff: (SquotArtifactDiffMock path: '1'); - addDiff: (SquotArtifactDiffMock path: '2'); - newLoadOrder: #('1' '2'); - updateRightArtifacts; - buildPatch. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/patchWithUnloadedArtifactAt..st b/src/Squot.package/SquotChangesChooserTest.class/instance/patchWithUnloadedArtifactAt..st deleted file mode 100644 index b308619ad..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/patchWithUnloadedArtifactAt..st +++ /dev/null @@ -1,8 +0,0 @@ -test objects -patchWithUnloadedArtifactAt: path - | artifact | - artifact := SquotArtifactMock path: path. - artifact whenComparedWith: artifact return: [SquotDiffOfEqualObjects instance]. - workingCopy addUnloaded: artifact. - artifact materializeBlock: [:mock | Object new]. - ^ (SquotSnapshot builder add: artifact; buildSnapshot) patchRelativeToBase: workingCopy \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/patchedLoadOrderAfter..st b/src/Squot.package/SquotChangesChooserTest.class/instance/patchedLoadOrderAfter..st deleted file mode 100644 index c23475f15..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/patchedLoadOrderAfter..st +++ /dev/null @@ -1,3 +0,0 @@ -test objects -patchedLoadOrderAfter: patch - ^ patch patchedLoadOrder \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/performUiInteractionTestsOnNode.withPath.inTree..st b/src/Squot.package/SquotChangesChooserTest.class/instance/performUiInteractionTestsOnNode.withPath.inTree..st deleted file mode 100644 index 1957fa1bc..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/performUiInteractionTestsOnNode.withPath.inTree..st +++ /dev/null @@ -1,12 +0,0 @@ -tests -performUiInteractionTestsOnNode: aSquotDiffNode withPath: aCollection inTree: treeView - super performUiInteractionTestsOnNode: aSquotDiffNode withPath: aCollection inTree: treeView. - tool deactivateSelectedNode. - tool activateSelectedNode. - ((treeView getMenu: false) items anySatisfy: [:each | #toggleLoadSelectedNode = each selector]) - ifTrue: - [| initially | initially := tool selectedNode content willBeLoaded. - tool toggleLoadSelectedNode. - self assert: initially not equals: tool selectedNode content willBeLoaded. - tool toggleLoadSelectedNode. - self assert: initially equals: tool selectedNode content willBeLoaded]. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/performUiTestsOnToolBuiltBy..st b/src/Squot.package/SquotChangesChooserTest.class/instance/performUiTestsOnToolBuiltBy..st deleted file mode 100644 index 668fa929e..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/performUiTestsOnToolBuiltBy..st +++ /dev/null @@ -1,5 +0,0 @@ -tests -performUiTestsOnToolBuiltBy: aToolBuilder - super performUiTestsOnToolBuiltBy: aToolBuilder. - tool accept. - tool selectedPatch. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/resultDiffAt..st b/src/Squot.package/SquotChangesChooserTest.class/instance/resultDiffAt..st deleted file mode 100644 index 9ef135acd..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/resultDiffAt..st +++ /dev/null @@ -1,3 +0,0 @@ -test objects -resultDiffAt: path - ^ tool selectedPatch diffAt: path \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/resultHasChangesAt..st b/src/Squot.package/SquotChangesChooserTest.class/instance/resultHasChangesAt..st deleted file mode 100644 index f320e61f9..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/resultHasChangesAt..st +++ /dev/null @@ -1,3 +0,0 @@ -test objects -resultHasChangesAt: path - ^ self hasChangesAt: path in: tool selectedPatch \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/resultIncludesDiffAt..st b/src/Squot.package/SquotChangesChooserTest.class/instance/resultIncludesDiffAt..st deleted file mode 100644 index 7aed73dd4..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/resultIncludesDiffAt..st +++ /dev/null @@ -1,3 +0,0 @@ -test objects -resultIncludesDiffAt: path - ^ self includesDiffAt: path in: tool selectedPatch \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/resultLoadOrder.st b/src/Squot.package/SquotChangesChooserTest.class/instance/resultLoadOrder.st deleted file mode 100644 index 5afeb3796..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/resultLoadOrder.st +++ /dev/null @@ -1,3 +0,0 @@ -test objects -resultLoadOrder - ^ tool selectedPatch patchedLoadOrder \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/testAcceptArtifactAddition.st b/src/Squot.package/SquotChangesChooserTest.class/instance/testAcceptArtifactAddition.st deleted file mode 100644 index c80a3c37f..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/testAcceptArtifactAddition.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testAcceptArtifactAddition - | path acceptReturned | - path := 'conflicted-artifact'. - tool := self newToolOn: (self patchAddingArtifactAt: path). - self assert: #('conflicted-artifact (added)' 'Changed load order') equals: (tool rootNodes collect: [:each | (tool nodeLabelOf: each) asString]) asArray. - self closeDialogPossiblyOpenedDuring: [tool accept. acceptReturned := true] - timeoutMsecs: 5. - self assert: acceptReturned == true. - self assert: (self resultDiffAt: path) isAddition. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/testAcceptArtifactChange.st b/src/Squot.package/SquotChangesChooserTest.class/instance/testAcceptArtifactChange.st deleted file mode 100644 index 48daae604..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/testAcceptArtifactChange.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -testAcceptArtifactChange - | path patch acceptReturned | - path := 'changed-artifact'. - tool := self newToolOn: (patch := self patchChangingArtifactAt: path). - self assert: tool rootNodes size = 1. - tool rootNodes first include. - self closeDialogPossiblyOpenedDuring: [tool accept. acceptReturned := true] - timeoutMsecs: 5. - self assert: acceptReturned == true. - self assert: (self resultDiffAt: path) isModification. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/testAcceptArtifactMetadataChange.st b/src/Squot.package/SquotChangesChooserTest.class/instance/testAcceptArtifactMetadataChange.st deleted file mode 100644 index 5f00327b9..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/testAcceptArtifactMetadataChange.st +++ /dev/null @@ -1,23 +0,0 @@ -tests -testAcceptArtifactMetadataChange - | path metadataRootNode modificationNode removalNode acceptReturned patch propertyAtFirst | - path := 'changed-artifact'. - tool := self newToolOn: (patch := self patchChangingArtifactMetadataAt: path). - propertyAtFirst := (self changedArtifactAt: path in: patch) storeInfo at: #customProperty. - self assert: tool rootNodes size = 1. tool selectNode: tool rootNodes first. - self assert: tool selectedNode hasChildren. tool selectNode: tool selectedNode children first. - self assert: (tool selectedNode title asString asLowercase includesSubstring: "M"'etadata'). - metadataRootNode := tool selectedNode. - self assert: metadataRootNode hasChildren. - modificationNode := metadataRootNode children detect: [:each | each title asString includesSubstring: 'customProperty']. - removalNode := metadataRootNode children detect: [:each | each title asString includesSubstring: 'toBeRemoved']. - tool selectNode: modificationNode. - self assert: (modificationNode title asString includesSubstring: 'new'). - tool selectNode: removalNode. - self closeDialogPossiblyOpenedDuring: [tool accept. acceptReturned := true] - timeoutMsecs: 5. - self assert: acceptReturned == true. - self assert: (self resultHasChangesAt: path) description: 'Metadata changes not viewed as changes'. - self applyToWorkingCopy. - self assert: 'new' equals: ((workingCopy artifactAt: path) liveStoreInfo at: #customProperty) description: 'Modification not applied'; - deny: ((workingCopy artifactAt: path) liveStoreInfo includesKey: #toBeRemoved) description: 'Property not removed'. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/testAcceptArtifactRemoval.st b/src/Squot.package/SquotChangesChooserTest.class/instance/testAcceptArtifactRemoval.st deleted file mode 100644 index bb0e4b2c4..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/testAcceptArtifactRemoval.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testAcceptArtifactRemoval - | path acceptReturned | - path := 'removed-artifact'. - tool := self newToolOn: (self patchRemovingArtifactAt: path). - self assert: #('removed-artifact (removed)' 'Changed load order') equals: (tool rootNodes collect: [:each | (tool nodeLabelOf: each) asString]) asArray. - self closeDialogPossiblyOpenedDuring: [tool accept. acceptReturned := true] - timeoutMsecs: 5. - self assert: acceptReturned == true. - self assert: (self resultDiffAt: path) isRemoval. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/testDoNotLoadAddedArtifact.st b/src/Squot.package/SquotChangesChooserTest.class/instance/testDoNotLoadAddedArtifact.st deleted file mode 100644 index 0c726b4ae..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/testDoNotLoadAddedArtifact.st +++ /dev/null @@ -1,21 +0,0 @@ -tests unloaded artifacts -testDoNotLoadAddedArtifact - | path acceptReturned mock | - path := 'conflicted-artifact'. - tool := self newToolOn: (self patchAddingArtifactAt: path). - tool selectNode: tool rootNodes first. - self assert: (self treeViewMenuIncludesAction: #toggleLoadSelectedNode). - tool toggleLoadSelectedNode. - self assert: ('do not load * (added)' match: (tool nodeLabelOf: tool selectedNode) asString); - assert: (self treeViewMenuIncludesAction: #toggleLoadSelectedNode). - self - closeDialogPossiblyOpenedDuring: - [tool accept. - acceptReturned := true] - timeoutMsecs: 5. - self assert: acceptReturned == true. - self - assert: (self resultIncludesDiffAt: path); - assert: (self resultDiffAt: path) isAddition. - (self resultDiffAt: path) applyToContainer: (mock := SquotMock new). - self assert: (mock hasReceivedMessageWithSelector: #addUnloaded:). \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/testLeaveUnloadedArtifactUnloaded.st b/src/Squot.package/SquotChangesChooserTest.class/instance/testLeaveUnloadedArtifactUnloaded.st deleted file mode 100644 index 0bec68722..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/testLeaveUnloadedArtifactUnloaded.st +++ /dev/null @@ -1,14 +0,0 @@ -tests unloaded artifacts -testLeaveUnloadedArtifactUnloaded - | path acceptReturned | - path := 'artifact'. - tool := self newToolOn: (self patchWithUnloadedArtifactAt: path). - tool selectNode: tool rootNodes first. - self deny: tool selectedNode content willBeLoaded "not by default"; - assert: (self treeViewMenuIncludesAction: #toggleLoadSelectedNode); - assert: ('( * )' match: (tool nodeLabelOf: tool selectedNode)). - self closeDialogPossiblyOpenedDuring: [tool accept. acceptReturned := true] - timeoutMsecs: 5. - self assert: acceptReturned == true. - self applyToWorkingCopy. - self deny: (workingCopy artifactAt: path) isLoaded. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/testLoadOrderNode.st b/src/Squot.package/SquotChangesChooserTest.class/instance/testLoadOrderNode.st deleted file mode 100644 index bebe851b3..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/testLoadOrderNode.st +++ /dev/null @@ -1,15 +0,0 @@ -tests load order -testLoadOrderNode - | loadOrderNode | - tool := self newToolOn: self patchWithTwoChangedArtifacts. - "when" - tool - selectNode: tool rootNodes second; - moveUpSelectedInLoadOrder. - "then" - loadOrderNode := tool rootNodes detect: [:each | (tool nodeLabelOf: each) asString includesSubstring: 'load order'] ifNone: []. - self assert: loadOrderNode notNil. - tool selectNode: loadOrderNode; deactivateSelectedNode; accept. - self deny: self loadOrderHasChanges. - tool selectNode: loadOrderNode; activateSelectedNode; accept. - self assert: self loadOrderHasChanges. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/testLoadUnloadedArtifact.st b/src/Squot.package/SquotChangesChooserTest.class/instance/testLoadUnloadedArtifact.st deleted file mode 100644 index 84f237f80..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/testLoadUnloadedArtifact.st +++ /dev/null @@ -1,19 +0,0 @@ -tests unloaded artifacts -testLoadUnloadedArtifact - | path acceptReturned | - path := 'artifact'. - tool := self newToolOn: (self patchWithUnloadedArtifactAt: path). - tool selectNode: tool rootNodes first. - self assert: ('( * )' match: (tool nodeLabelOf: tool selectedNode) asString); - assert: (self treeViewMenuIncludesAction: #toggleLoadSelectedNode). - tool toggleLoadSelectedNode. - self assert: ('load *(*unchanged*)' match: (tool nodeLabelOf: tool selectedNode) asString); - assert: (self treeViewMenuIncludesAction: #toggleLoadSelectedNode). - self closeDialogPossiblyOpenedDuring: [tool accept. acceptReturned := true] - timeoutMsecs: 5. - self assert: acceptReturned == true. - self assert: (self resultIncludesDiffAt: path); - assert: (self resultDiffAt: path) willBeLoaded. - (self resultDiffAt: path) applyToContainer: workingCopy. - self assert: (workingCopy artifactAt: path) isLoaded; - assert: (workingCopy store includesObjectAt: path). \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/testLoadUnloadedArtifactDuringModification.st b/src/Squot.package/SquotChangesChooserTest.class/instance/testLoadUnloadedArtifactDuringModification.st deleted file mode 100644 index aea3b3780..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/testLoadUnloadedArtifactDuringModification.st +++ /dev/null @@ -1,19 +0,0 @@ -tests unloaded artifacts -testLoadUnloadedArtifactDuringModification - | path acceptReturned mock | - path := 'artifact'. - tool := self newToolOn: (self patchChangingUnloadedArtifactAt: path). - tool selectNode: tool rootNodes first. - self assert: ('*(*not loaded*)' match: (tool nodeLabelOf: tool selectedNode) asString); - assert: (self treeViewMenuIncludesAction: #toggleLoadSelectedNode). - tool toggleLoadSelectedNode. - self assert: ('load *(*currently unloaded*)' match: (tool nodeLabelOf: tool selectedNode) asString); - assert: (self treeViewMenuIncludesAction: #toggleLoadSelectedNode). - self closeDialogPossiblyOpenedDuring: [tool accept. acceptReturned := true] - timeoutMsecs: 5. - self assert: acceptReturned == true. - self assert: (self resultIncludesDiffAt: path); - assert: (self resultDiffAt: path) isModification; - assert: (self resultDiffAt: path) willBeLoaded. - (self resultDiffAt: path) applyToContainer: (mock := SquotMock new). - self assert: (mock hasReceivedMessageWithSelector: #applyDiff:toObjectAt:). \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/testLoadedArtifactsNotAdornedAsUnloaded.st b/src/Squot.package/SquotChangesChooserTest.class/instance/testLoadedArtifactsNotAdornedAsUnloaded.st deleted file mode 100644 index cda4bfe18..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/testLoadedArtifactsNotAdornedAsUnloaded.st +++ /dev/null @@ -1,7 +0,0 @@ -tests unloaded artifacts -testLoadedArtifactsNotAdornedAsUnloaded - | path patch | - path := 'changed-artifact'. - tool := self newToolOn: (patch := self patchChangingArtifactAt: path). - tool selectNode: tool rootNodes first. - self deny: ('*(*not loaded*)*' match: (tool nodeLabelOf: tool selectedNode)). \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/testMoveDownInLoadOrder.st b/src/Squot.package/SquotChangesChooserTest.class/instance/testMoveDownInLoadOrder.st deleted file mode 100644 index dd4735606..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/testMoveDownInLoadOrder.st +++ /dev/null @@ -1,12 +0,0 @@ -tests load order -testMoveDownInLoadOrder - tool := self newToolOn: self patchWithTwoChangedArtifacts. - "when" - tool - selectNode: tool rootNodes first; - moveDownSelectedInLoadOrder. - tool accept. - "then" - self assert: (self resultIncludesDiffAt: '1'); - assert: (self resultIncludesDiffAt: '2'); - assert: #('2' '1') equals: self resultLoadOrder. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/testMoveUpInLoadOrder.st b/src/Squot.package/SquotChangesChooserTest.class/instance/testMoveUpInLoadOrder.st deleted file mode 100644 index 280c84032..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/testMoveUpInLoadOrder.st +++ /dev/null @@ -1,12 +0,0 @@ -tests load order -testMoveUpInLoadOrder - tool := self newToolOn: self patchWithTwoChangedArtifacts. - "when" - tool - selectNode: tool rootNodes second; - moveUpSelectedInLoadOrder. - tool accept. - "then" - self assert: (self resultIncludesDiffAt: '1'); - assert: (self resultIncludesDiffAt: '2'); - assert: #('2' '1') equals: self resultLoadOrder. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/testPreservesLoadOrderChanges.st b/src/Squot.package/SquotChangesChooserTest.class/instance/testPreservesLoadOrderChanges.st deleted file mode 100644 index 7615253d4..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/testPreservesLoadOrderChanges.st +++ /dev/null @@ -1,10 +0,0 @@ -tests load order -testPreservesLoadOrderChanges - | selectedPatch | - tool := self newToolOn: self patchWithLoadOrderChange. - tool rootNodes. "generate nodes" - "when" - tool accept. - selectedPatch := tool selectedPatch. - "then" - self assert: self resultLoadOrder = #('2' '1'). \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/testPreservesLoadOrderChanges2.st b/src/Squot.package/SquotChangesChooserTest.class/instance/testPreservesLoadOrderChanges2.st deleted file mode 100644 index 0c8d46284..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/testPreservesLoadOrderChanges2.st +++ /dev/null @@ -1,10 +0,0 @@ -tests load order -testPreservesLoadOrderChanges2 - | patch selectedPatch | - tool := self newToolOn: (patch := self patchWithLoadOrderChangeRegression1). - tool rootNodes. "generate nodes" - "when" - tool accept. - selectedPatch := tool selectedPatch. - "then" - self assert: self resultLoadOrder = (self patchedLoadOrderAfter: patch). \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/testRejectArtifactAddition.st b/src/Squot.package/SquotChangesChooserTest.class/instance/testRejectArtifactAddition.st deleted file mode 100644 index df61d1e90..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/testRejectArtifactAddition.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testRejectArtifactAddition - | path acceptReturned | - path := 'conflicted-artifact'. - tool := self newToolOn: (self patchAddingArtifactAt: path). - self assert: #('conflicted-artifact (added)' 'Changed load order') equals: (tool rootNodes collect: [:each | (tool nodeLabelOf: each) asString]) asArray. - tool selectNode: tool rootNodes first. - tool deactivateSelectedNode. - self closeDialogPossiblyOpenedDuring: [tool accept. acceptReturned := true] - timeoutMsecs: 5. - self assert: acceptReturned == true. - self deny: (self resultIncludesDiffAt: path). \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/testRejectArtifactChange.st b/src/Squot.package/SquotChangesChooserTest.class/instance/testRejectArtifactChange.st deleted file mode 100644 index 173d221fe..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/testRejectArtifactChange.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testRejectArtifactChange - | path acceptReturned | - path := 'changed-artifact'. - tool := self newToolOn: (self patchChangingArtifactAt: path). - self assert: tool rootNodes size = 1. - tool selectNode: tool rootNodes first. - tool deactivateSelectedNode. - self closeDialogPossiblyOpenedDuring: [tool accept. acceptReturned := true] - timeoutMsecs: 5. - self assert: acceptReturned == true. - self deny: (self resultHasChangesAt: path). \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/testRejectArtifactMetadataChange.st b/src/Squot.package/SquotChangesChooserTest.class/instance/testRejectArtifactMetadataChange.st deleted file mode 100644 index f0c7d2ac1..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/testRejectArtifactMetadataChange.st +++ /dev/null @@ -1,25 +0,0 @@ -tests -testRejectArtifactMetadataChange - | path metadataRootNode modificationNode removalNode acceptReturned patch propertyAtFirst | - path := 'changed-artifact'. - tool := self newToolOn: (patch := self patchChangingArtifactMetadataAt: path). - propertyAtFirst := (self changedArtifactAt: path in: patch) storeInfo at: #customProperty. - self assert: tool rootNodes size = 1. tool selectNode: tool rootNodes first. - self assert: tool selectedNode hasChildren. tool selectNode: tool selectedNode children first. - self assert: (tool selectedNode title asString asLowercase includesSubstring: "M"'etadata'). - metadataRootNode := tool selectedNode. - self assert: metadataRootNode hasChildren. - modificationNode := metadataRootNode children detect: [:each | each title asString includesSubstring: 'customProperty']. - removalNode := metadataRootNode children detect: [:each | each title asString includesSubstring: 'toBeRemoved']. - tool selectNode: modificationNode. - self assert: (modificationNode title asString includesSubstring: 'new'). - tool deactivateSelectedNode. - tool selectNode: removalNode. - tool deactivateSelectedNode. - self closeDialogPossiblyOpenedDuring: [tool accept. acceptReturned := true] - timeoutMsecs: 5. - self assert: acceptReturned == true. - self deny: (self resultHasChangesAt: path) description: 'Excluded changes not excluded'. - "Make sure that the original snapshot of the comparison was not altered. This was incorrect for some time in the past." - self assert: propertyAtFirst equals: ((self changedArtifactAt: path in: patch) storeInfo at: #customProperty); - deny: ((self changedArtifactAt: path in: patch) storeInfo includesKey: #toBeRemoved). \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/testRejectArtifactRemoval.st b/src/Squot.package/SquotChangesChooserTest.class/instance/testRejectArtifactRemoval.st deleted file mode 100644 index d2a35de1f..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/testRejectArtifactRemoval.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testRejectArtifactRemoval - | path acceptReturned | - path := 'removed-artifact'. - tool := self newToolOn: (self patchRemovingArtifactAt: path). - self assert: #('removed-artifact (removed)' 'Changed load order') equals: (tool rootNodes collect: [:each | (tool nodeLabelOf: each) asString]) asArray. - tool selectNode: tool rootNodes first. - tool deactivateSelectedNode. - self closeDialogPossiblyOpenedDuring: [tool accept. acceptReturned := true] - timeoutMsecs: 5. - self assert: acceptReturned == true. - self deny: (self resultIncludesDiffAt: path). \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/testSelectedPatchIsIdempotentWithoutChangingNodes.st b/src/Squot.package/SquotChangesChooserTest.class/instance/testSelectedPatchIsIdempotentWithoutChangingNodes.st deleted file mode 100644 index 2c5a76f28..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/testSelectedPatchIsIdempotentWithoutChangingNodes.st +++ /dev/null @@ -1,16 +0,0 @@ -tests -testSelectedPatchIsIdempotentWithoutChangingNodes - | patch selectedPatch | - patch := self patchWithTwoChangedArtifacts. - self assert: (self includesDiffAt: '1' in: patch); - assert: (self includesDiffAt: '2' in: patch); - assert: (self patchedLoadOrderAfter: patch) = #('1' '2'). "no changes" - tool := self newToolOn: patch. - tool rootNodes. "generate nodes" - "when" - tool accept. - selectedPatch := tool selectedPatch. - "then" - self assert: (self resultIncludesDiffAt: '1'); - assert: (self resultIncludesDiffAt: '2'); - assert: self resultLoadOrder = #('1' '2'). "no changes" \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/testToggleLoadAddedArtifact.st b/src/Squot.package/SquotChangesChooserTest.class/instance/testToggleLoadAddedArtifact.st deleted file mode 100644 index ae301ddd4..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/testToggleLoadAddedArtifact.st +++ /dev/null @@ -1,17 +0,0 @@ -tests unloaded artifacts -testToggleLoadAddedArtifact - | path acceptReturned mock | - path := 'conflicted-artifact'. - tool := self newToolOn: (self patchAddingArtifactAt: path). - tool selectNode: tool rootNodes first. - self assert: (self treeViewMenuIncludesAction: #toggleLoadSelectedNode). - tool toggleLoadSelectedNode; - toggleLoadSelectedNode. - self deny: ('do not load *' match: (tool nodeLabelOf: tool selectedNode) asString). - self closeDialogPossiblyOpenedDuring: [tool accept. acceptReturned := true] - timeoutMsecs: 5. - self assert: acceptReturned == true. - self assert: (self resultIncludesDiffAt: path); - assert: (self resultDiffAt: path) isAddition. - (self resultDiffAt: path) applyToContainer: (mock := SquotMock new). - self assert: (mock hasReceivedMessageWithSelector: #add:). \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/testUnloadedArtifactsAdorned.st b/src/Squot.package/SquotChangesChooserTest.class/instance/testUnloadedArtifactsAdorned.st deleted file mode 100644 index fed9b0244..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/testUnloadedArtifactsAdorned.st +++ /dev/null @@ -1,14 +0,0 @@ -tests unloaded artifacts -testUnloadedArtifactsAdorned - | path acceptReturned mock | - path := 'artifact'. - tool := self newToolOn: (self patchChangingUnloadedArtifactAt: path). - tool selectNode: tool rootNodes first. - self assert: ('*(*not loaded*)' match: (tool nodeLabelOf: tool selectedNode) asString). - self closeDialogPossiblyOpenedDuring: [tool accept. acceptReturned := true] - timeoutMsecs: 5. - self assert: acceptReturned == true. - self assert: (self resultIncludesDiffAt: path); - assert: (self resultDiffAt: path) isModification. - (self resultDiffAt: path) applyToContainer: (mock := SquotMock new). - self assert: (mock hasReceivedMessageWithSelector: #applyDiff:toObjectAt:). \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/instance/treeViewMenuIncludesAction..st b/src/Squot.package/SquotChangesChooserTest.class/instance/treeViewMenuIncludesAction..st deleted file mode 100644 index 54145b685..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/instance/treeViewMenuIncludesAction..st +++ /dev/null @@ -1,7 +0,0 @@ -utilities -treeViewMenuIncludesAction: aSymbol - | view menu | - ^ [view := self openTool. - menu := (toolBuilder widgetAt: 'hierarchical diff') getMenu: false. - menu items anySatisfy: [:each | aSymbol = each selector]] - ensure: [self closeTool: view]. \ No newline at end of file diff --git a/src/Squot.package/SquotChangesChooserTest.class/methodProperties.json b/src/Squot.package/SquotChangesChooserTest.class/methodProperties.json deleted file mode 100644 index cf499a0f1..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/methodProperties.json +++ /dev/null @@ -1,49 +0,0 @@ -{ - "class" : { - "shouldInheritSelectors" : "jr 9/25/2020 19:10" }, - "instance" : { - "applyToWorkingCopy" : "jr 11/19/2020 15:09", - "changedArtifactAt:in:" : "jr 6/19/2022 22:49", - "hasChangesAt:in:" : "jr 11/19/2020 19:14", - "includesDiffAt:in:" : "jr 8/15/2019 01:21", - "loadOrderHasChanges" : "jr 11/3/2020 16:44", - "newToolOn:" : "jr 9/25/2020 19:12", - "patchAddingArtifactAt:" : "jr 7/17/2021 20:41", - "patchChangingArtifactAt:" : "jr 6/6/2022 23:17", - "patchChangingArtifactMetadataAt:" : "jr 6/19/2022 23:26", - "patchChangingUnloadedArtifactAt:" : "jr 7/17/2021 20:41", - "patchModifyingMethodTimestampInArtifactAt:" : "jr 5/14/2021 16:14", - "patchRemovingArtifactAt:" : "jr 7/17/2021 20:41", - "patchWithLoadOrderChange" : "jr 7/17/2021 20:41", - "patchWithLoadOrderChangeRegression1" : "jr 7/17/2021 20:42", - "patchWithTwoChangedArtifacts" : "jr 7/17/2021 20:42", - "patchWithUnloadedArtifactAt:" : "jr 11/18/2020 20:59", - "patchedLoadOrderAfter:" : "jr 8/15/2019 01:07", - "performUiInteractionTestsOnNode:withPath:inTree:" : "jr 11/18/2020 19:57", - "performUiTestsOnToolBuiltBy:" : "jr 10/3/2018 00:45", - "resultDiffAt:" : "jr 8/14/2019 23:26", - "resultHasChangesAt:" : "jr 11/19/2020 19:13", - "resultIncludesDiffAt:" : "jr 8/15/2019 01:22", - "resultLoadOrder" : "jr 8/15/2019 01:06", - "testAcceptArtifactAddition" : "jr 11/18/2020 16:10", - "testAcceptArtifactChange" : "jr 8/21/2019 23:57", - "testAcceptArtifactMetadataChange" : "jr 6/19/2022 23:48", - "testAcceptArtifactRemoval" : "jr 11/18/2020 16:10", - "testDoNotLoadAddedArtifact" : "jr 11/18/2020 20:42", - "testLeaveUnloadedArtifactUnloaded" : "jr 6/6/2022 23:17", - "testLoadOrderNode" : "jr 11/18/2020 15:13", - "testLoadUnloadedArtifact" : "jr 6/6/2022 23:17", - "testLoadUnloadedArtifactDuringModification" : "jr 11/18/2020 20:55", - "testLoadedArtifactsNotAdornedAsUnloaded" : "jr 11/18/2020 22:18", - "testMoveDownInLoadOrder" : "jr 8/15/2019 14:02", - "testMoveUpInLoadOrder" : "jr 8/15/2019 14:02", - "testPreservesLoadOrderChanges" : "jr 8/15/2019 01:05", - "testPreservesLoadOrderChanges2" : "jr 8/15/2019 01:07", - "testRejectArtifactAddition" : "jr 11/18/2020 16:11", - "testRejectArtifactChange" : "jr 11/19/2020 19:20", - "testRejectArtifactMetadataChange" : "jr 6/19/2022 23:31", - "testRejectArtifactRemoval" : "jr 11/18/2020 16:12", - "testSelectedPatchIsIdempotentWithoutChangingNodes" : "jr 8/15/2019 01:23", - "testToggleLoadAddedArtifact" : "jr 11/18/2020 20:44", - "testUnloadedArtifactsAdorned" : "jr 11/18/2020 16:13", - "treeViewMenuIncludesAction:" : "jr 11/8/2020 00:03" } } diff --git a/src/Squot.package/SquotChangesChooserTest.class/properties.json b/src/Squot.package/SquotChangesChooserTest.class/properties.json deleted file mode 100644 index 034dc7e18..000000000 --- a/src/Squot.package/SquotChangesChooserTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Tools", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotChangesChooserTest", - "pools" : [ - ], - "super" : "SquotDiffExplorerTest", - "type" : "normal" } diff --git a/src/Squot.package/SquotCherryPickOperation.class/README.md b/src/Squot.package/SquotCherryPickOperation.class/README.md deleted file mode 100644 index d08af621e..000000000 --- a/src/Squot.package/SquotCherryPickOperation.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I coordinate a cherry pick to a working copy. A cherry pick reproduces the changes that were committed with a version on another base version. This creates a new version on the other base version. Therefore a cherry-pick is composed of a merge and a save operation. \ No newline at end of file diff --git a/src/Squot.package/SquotCherryPickOperation.class/instance/applyMerge.st b/src/Squot.package/SquotCherryPickOperation.class/instance/applyMerge.st deleted file mode 100644 index b06e16664..000000000 --- a/src/Squot.package/SquotCherryPickOperation.class/instance/applyMerge.st +++ /dev/null @@ -1,7 +0,0 @@ -applying -applyMerge - "Execute the merge and answer the applied patch." - ^ loadedPatch := - merge - applyToWorkingCopy; - appliedPatch \ No newline at end of file diff --git a/src/Squot.package/SquotCherryPickOperation.class/instance/applyToWorkingCopy.st b/src/Squot.package/SquotCherryPickOperation.class/instance/applyToWorkingCopy.st deleted file mode 100644 index db04fc814..000000000 --- a/src/Squot.package/SquotCherryPickOperation.class/instance/applyToWorkingCopy.st +++ /dev/null @@ -1,10 +0,0 @@ -applying -applyToWorkingCopy - "Execute the cherry pick." - self withUnitOfWork: - [self validate. - self workingCopy withCurrentSnapshot: - [self - prepareMerge; - applyMerge]. - self save]. \ No newline at end of file diff --git a/src/Squot.package/SquotCherryPickOperation.class/instance/defaultMessage.st b/src/Squot.package/SquotCherryPickOperation.class/instance/defaultMessage.st deleted file mode 100644 index 2befd20e3..000000000 --- a/src/Squot.package/SquotCherryPickOperation.class/instance/defaultMessage.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -defaultMessage - ^ pickedVersion message, - String cr, String cr, - '(cherry-picked from commit ', pickedVersion internalId, ')' \ No newline at end of file diff --git a/src/Squot.package/SquotCherryPickOperation.class/instance/loadedPatch..st b/src/Squot.package/SquotCherryPickOperation.class/instance/loadedPatch..st deleted file mode 100644 index b44401b20..000000000 --- a/src/Squot.package/SquotCherryPickOperation.class/instance/loadedPatch..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -loadedPatch: anObject - - loadedPatch := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotCherryPickOperation.class/instance/loadedPatch.st b/src/Squot.package/SquotCherryPickOperation.class/instance/loadedPatch.st deleted file mode 100644 index 4cd5671cf..000000000 --- a/src/Squot.package/SquotCherryPickOperation.class/instance/loadedPatch.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -loadedPatch - - ^ loadedPatch \ No newline at end of file diff --git a/src/Squot.package/SquotCherryPickOperation.class/instance/merge..st b/src/Squot.package/SquotCherryPickOperation.class/instance/merge..st deleted file mode 100644 index b1897417d..000000000 --- a/src/Squot.package/SquotCherryPickOperation.class/instance/merge..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -merge: anObject - - merge := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotCherryPickOperation.class/instance/merge.st b/src/Squot.package/SquotCherryPickOperation.class/instance/merge.st deleted file mode 100644 index 067f5ed7d..000000000 --- a/src/Squot.package/SquotCherryPickOperation.class/instance/merge.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -merge - - ^ merge \ No newline at end of file diff --git a/src/Squot.package/SquotCherryPickOperation.class/instance/message..st b/src/Squot.package/SquotCherryPickOperation.class/instance/message..st deleted file mode 100644 index ff9946f3c..000000000 --- a/src/Squot.package/SquotCherryPickOperation.class/instance/message..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -message: aString - message := aString. - save ifNotNil: [save message: aString]. \ No newline at end of file diff --git a/src/Squot.package/SquotCherryPickOperation.class/instance/pickedVersion..st b/src/Squot.package/SquotCherryPickOperation.class/instance/pickedVersion..st deleted file mode 100644 index 8fd1813e7..000000000 --- a/src/Squot.package/SquotCherryPickOperation.class/instance/pickedVersion..st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -pickedVersion: aVersion - - pickedVersion := aVersion. - self withUnitOfWorkActive: - [self workingCopy addGlobalObjectsToStore: aVersion]. \ No newline at end of file diff --git a/src/Squot.package/SquotCherryPickOperation.class/instance/pickedVersion.st b/src/Squot.package/SquotCherryPickOperation.class/instance/pickedVersion.st deleted file mode 100644 index a13fc79cc..000000000 --- a/src/Squot.package/SquotCherryPickOperation.class/instance/pickedVersion.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -pickedVersion - - ^ pickedVersion \ No newline at end of file diff --git a/src/Squot.package/SquotCherryPickOperation.class/instance/prepareMerge.st b/src/Squot.package/SquotCherryPickOperation.class/instance/prepareMerge.st deleted file mode 100644 index 50629ce6c..000000000 --- a/src/Squot.package/SquotCherryPickOperation.class/instance/prepareMerge.st +++ /dev/null @@ -1,14 +0,0 @@ -applying -prepareMerge - "Compute the merge and answer it (not the merge operation)." - ^ self withUnitOfWorkActive: - [self validateAncestry. - (merge := self privateNewMerge) - unitOfWork: self unitOfWork; - doNotAddParent; - workingCopySnapshot: self workingCopySnapshot; - mergeVersion: pickedVersion; - baseVersion: relevantParentOfPickedVersion; - title: 'Cherry-pick ', pickedVersion asString; - requestor: self. - merge prepare] \ No newline at end of file diff --git a/src/Squot.package/SquotCherryPickOperation.class/instance/prepareSave.st b/src/Squot.package/SquotCherryPickOperation.class/instance/prepareSave.st deleted file mode 100644 index fdbfe1667..000000000 --- a/src/Squot.package/SquotCherryPickOperation.class/instance/prepareSave.st +++ /dev/null @@ -1,13 +0,0 @@ -applying -prepareSave - | patchBuilder | - ^ self withUnitOfWorkActive: - [patchBuilder := self workingCopy baseVersion newPatchBuilder. - loadedPatch diffsDo: [:each | each hasChanges ifTrue: [patchBuilder addDiff: each]]. - save := self privateNewSave - message: (message ifNil: [self defaultMessage]); - patch: (patchBuilder updateRightArtifacts; buildPatch); - author: pickedVersion author; - timestamp: pickedVersion timestamp; - unitOfWork: self unitOfWork; - yourself] \ No newline at end of file diff --git a/src/Squot.package/SquotCherryPickOperation.class/instance/privateNewMerge.st b/src/Squot.package/SquotCherryPickOperation.class/instance/privateNewMerge.st deleted file mode 100644 index c4f9a2ccb..000000000 --- a/src/Squot.package/SquotCherryPickOperation.class/instance/privateNewMerge.st +++ /dev/null @@ -1,3 +0,0 @@ -applying -privateNewMerge - ^ self workingCopy newMergeOperation \ No newline at end of file diff --git a/src/Squot.package/SquotCherryPickOperation.class/instance/privateNewSave.st b/src/Squot.package/SquotCherryPickOperation.class/instance/privateNewSave.st deleted file mode 100644 index 633de3b02..000000000 --- a/src/Squot.package/SquotCherryPickOperation.class/instance/privateNewSave.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -privateNewSave - ^ self workingCopy newSaveOperation \ No newline at end of file diff --git a/src/Squot.package/SquotCherryPickOperation.class/instance/relevantParentOfPickedVersion..st b/src/Squot.package/SquotCherryPickOperation.class/instance/relevantParentOfPickedVersion..st deleted file mode 100644 index ed6f3b863..000000000 --- a/src/Squot.package/SquotCherryPickOperation.class/instance/relevantParentOfPickedVersion..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -relevantParentOfPickedVersion: anObject - - relevantParentOfPickedVersion := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotCherryPickOperation.class/instance/relevantParentOfPickedVersion.st b/src/Squot.package/SquotCherryPickOperation.class/instance/relevantParentOfPickedVersion.st deleted file mode 100644 index 09cefb69a..000000000 --- a/src/Squot.package/SquotCherryPickOperation.class/instance/relevantParentOfPickedVersion.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -relevantParentOfPickedVersion - - ^ relevantParentOfPickedVersion \ No newline at end of file diff --git a/src/Squot.package/SquotCherryPickOperation.class/instance/revertMerge.st b/src/Squot.package/SquotCherryPickOperation.class/instance/revertMerge.st deleted file mode 100644 index 92048da74..000000000 --- a/src/Squot.package/SquotCherryPickOperation.class/instance/revertMerge.st +++ /dev/null @@ -1,7 +0,0 @@ -applying -revertMerge - "Revert the changes loaded during the merge." - "Uses the snapshot previously captured in prepareMerge" - loadedPatch artifacts do: - [:each | workingCopy loadArtifact: (self workingCopySnapshot artifactAt: each path)]. - workingCopy resetNewVersionMessage. \ No newline at end of file diff --git a/src/Squot.package/SquotCherryPickOperation.class/instance/save.st b/src/Squot.package/SquotCherryPickOperation.class/instance/save.st deleted file mode 100644 index 923df89f5..000000000 --- a/src/Squot.package/SquotCherryPickOperation.class/instance/save.st +++ /dev/null @@ -1,5 +0,0 @@ -applying -save - "Save the new version." - ^ self prepareSave - applyToWorkingCopy \ No newline at end of file diff --git a/src/Squot.package/SquotCherryPickOperation.class/instance/validate.st b/src/Squot.package/SquotCherryPickOperation.class/instance/validate.st deleted file mode 100644 index c80e16fc2..000000000 --- a/src/Squot.package/SquotCherryPickOperation.class/instance/validate.st +++ /dev/null @@ -1,3 +0,0 @@ -applying -validate - self validateAncestry. \ No newline at end of file diff --git a/src/Squot.package/SquotCherryPickOperation.class/instance/validateAncestry.st b/src/Squot.package/SquotCherryPickOperation.class/instance/validateAncestry.st deleted file mode 100644 index 962022014..000000000 --- a/src/Squot.package/SquotCherryPickOperation.class/instance/validateAncestry.st +++ /dev/null @@ -1,7 +0,0 @@ -applying -validateAncestry - pickedVersion ifNil: [self error: 'Version to pick not configured']. - relevantParentOfPickedVersion ifNil: - [pickedVersion parents isEmpty - ifTrue: [relevantParentOfPickedVersion := SquotSnapshot empty] - ifFalse: [self error: 'Parent of version to pick not configured']]. \ No newline at end of file diff --git a/src/Squot.package/SquotCherryPickOperation.class/methodProperties.json b/src/Squot.package/SquotCherryPickOperation.class/methodProperties.json deleted file mode 100644 index 00cc64d13..000000000 --- a/src/Squot.package/SquotCherryPickOperation.class/methodProperties.json +++ /dev/null @@ -1,24 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "applyMerge" : "jr 1/6/2020 23:02", - "applyToWorkingCopy" : "jr 11/22/2020 17:41", - "defaultMessage" : "jr 11/22/2020 17:44", - "loadedPatch" : "jr 1/4/2020 19:27", - "loadedPatch:" : "jr 1/4/2020 19:27", - "merge" : "jr 1/4/2020 19:27", - "merge:" : "jr 1/4/2020 19:27", - "message:" : "jr 11/22/2020 17:47", - "pickedVersion" : "jr 1/4/2020 19:19", - "pickedVersion:" : "jr 4/17/2020 12:26", - "prepareMerge" : "jr 9/21/2020 23:56", - "prepareSave" : "jr 7/17/2021 20:31", - "privateNewMerge" : "jr 1/19/2020 01:43", - "privateNewSave" : "jr 1/26/2020 21:47", - "relevantParentOfPickedVersion" : "jr 1/4/2020 19:19", - "relevantParentOfPickedVersion:" : "jr 1/4/2020 19:19", - "revertMerge" : "jr 5/9/2020 01:14", - "save" : "jr 2/1/2020 00:15", - "validate" : "jr 11/22/2020 17:47", - "validateAncestry" : "jr 1/6/2020 23:38" } } diff --git a/src/Squot.package/SquotCherryPickOperation.class/properties.json b/src/Squot.package/SquotCherryPickOperation.class/properties.json deleted file mode 100644 index c5075bfd3..000000000 --- a/src/Squot.package/SquotCherryPickOperation.class/properties.json +++ /dev/null @@ -1,19 +0,0 @@ -{ - "category" : "Squot-WorkingCopies", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 1/4/2020 22:40", - "instvars" : [ - "pickedVersion", - "relevantParentOfPickedVersion", - "merge", - "loadedPatch", - "save", - "message" ], - "name" : "SquotCherryPickOperation", - "pools" : [ - ], - "super" : "SquotWorkingCopyOperation", - "type" : "normal" } diff --git a/src/Squot.package/SquotClassFactoryForTestCase.class/README.md b/src/Squot.package/SquotClassFactoryForTestCase.class/README.md deleted file mode 100644 index b219f1450..000000000 --- a/src/Squot.package/SquotClassFactoryForTestCase.class/README.md +++ /dev/null @@ -1 +0,0 @@ -Like ClassFactoryForTestCase, but the packageName can be configured. \ No newline at end of file diff --git a/src/Squot.package/SquotClassFactoryForTestCase.class/instance/newName.st b/src/Squot.package/SquotClassFactoryForTestCase.class/instance/newName.st deleted file mode 100644 index 5dc2b9a39..000000000 --- a/src/Squot.package/SquotClassFactoryForTestCase.class/instance/newName.st +++ /dev/null @@ -1,5 +0,0 @@ -creating -newName - | postFix | - postFix := (self createdClasses size + 1) printString. - ^#ClassForSquotTestToBeDeleted, postFix \ No newline at end of file diff --git a/src/Squot.package/SquotClassFactoryForTestCase.class/instance/packageName..st b/src/Squot.package/SquotClassFactoryForTestCase.class/instance/packageName..st deleted file mode 100644 index 7b3e2c53c..000000000 --- a/src/Squot.package/SquotClassFactoryForTestCase.class/instance/packageName..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -packageName: anObject - packageName := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotClassFactoryForTestCase.class/instance/packageName.st b/src/Squot.package/SquotClassFactoryForTestCase.class/instance/packageName.st deleted file mode 100644 index 08e963b2d..000000000 --- a/src/Squot.package/SquotClassFactoryForTestCase.class/instance/packageName.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -packageName - ^ packageName ifNil: [super packageName] \ No newline at end of file diff --git a/src/Squot.package/SquotClassFactoryForTestCase.class/methodProperties.json b/src/Squot.package/SquotClassFactoryForTestCase.class/methodProperties.json deleted file mode 100644 index 7b357a8df..000000000 --- a/src/Squot.package/SquotClassFactoryForTestCase.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "newName" : "jr 4/7/2018 22:52", - "packageName" : "jr 4/7/2018 19:43", - "packageName:" : "jr 4/7/2018 19:42" } } diff --git a/src/Squot.package/SquotClassFactoryForTestCase.class/properties.json b/src/Squot.package/SquotClassFactoryForTestCase.class/properties.json deleted file mode 100644 index 8a682a43f..000000000 --- a/src/Squot.package/SquotClassFactoryForTestCase.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Support", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 4/7/2018 19:42", - "instvars" : [ - "packageName" ], - "name" : "SquotClassFactoryForTestCase", - "pools" : [ - ], - "super" : "ClassFactoryForTestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotClassMirror.class/README.md b/src/Squot.package/SquotClassMirror.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotClassMirror.class/class/class..st b/src/Squot.package/SquotClassMirror.class/class/class..st deleted file mode 100644 index 5025e5831..000000000 --- a/src/Squot.package/SquotClassMirror.class/class/class..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -class: aClass - ^ self new - setReflectedClass: aClass; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotClassMirror.class/instance/capture.with.ifReplaced..st b/src/Squot.package/SquotClassMirror.class/instance/capture.with.ifReplaced..st deleted file mode 100644 index ef91d13da..000000000 --- a/src/Squot.package/SquotClassMirror.class/instance/capture.with.ifReplaced..st +++ /dev/null @@ -1,8 +0,0 @@ -capturing -capture: aClass with: aSquotObjectCapturer ifReplaced: aBlock - aClass isMeta ifTrue: [self error: 'Should capture class, not metaclass']. - ^ SquotClassShadow - forPackageNamed: aClass category - withSnapshot: (MCSnapshot fromDefinitions: (Array streamContents: [:stream | - stream nextPutAll: aClass classDefinitions. - aClass selectorsDo: [:each | stream nextPut: (MethodReference class: aClass selector: each) asMethodDefinition]])) \ No newline at end of file diff --git a/src/Squot.package/SquotClassMirror.class/instance/replacementFor.using..st b/src/Squot.package/SquotClassMirror.class/instance/replacementFor.using..st deleted file mode 100644 index 5134cde84..000000000 --- a/src/Squot.package/SquotClassMirror.class/instance/replacementFor.using..st +++ /dev/null @@ -1,4 +0,0 @@ -capturing -replacementFor: aClass using: aCapturer - "Do not replace the class when captured in this mirror." - ^ aClass \ No newline at end of file diff --git a/src/Squot.package/SquotClassMirror.class/instance/setReflectedClass..st b/src/Squot.package/SquotClassMirror.class/instance/setReflectedClass..st deleted file mode 100644 index e0af05ad7..000000000 --- a/src/Squot.package/SquotClassMirror.class/instance/setReflectedClass..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -setReflectedClass: aClass - reflectedClass := aClass. \ No newline at end of file diff --git a/src/Squot.package/SquotClassMirror.class/instance/shouldObjectHaveNameAssigned..st b/src/Squot.package/SquotClassMirror.class/instance/shouldObjectHaveNameAssigned..st deleted file mode 100644 index e5871cb3c..000000000 --- a/src/Squot.package/SquotClassMirror.class/instance/shouldObjectHaveNameAssigned..st +++ /dev/null @@ -1,4 +0,0 @@ -testing -shouldObjectHaveNameAssigned: aClass - "Class identified by its name already" - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotClassMirror.class/methodProperties.json b/src/Squot.package/SquotClassMirror.class/methodProperties.json deleted file mode 100644 index ec42643d5..000000000 --- a/src/Squot.package/SquotClassMirror.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - "class:" : "jr 1/10/2021 22:04" }, - "instance" : { - "capture:with:ifReplaced:" : "jr 7/17/2021 23:56", - "replacementFor:using:" : "jr 4/8/2021 22:30", - "setReflectedClass:" : "jr 1/10/2021 22:05", - "shouldObjectHaveNameAssigned:" : "jr 6/26/2021 22:27" } } diff --git a/src/Squot.package/SquotClassMirror.class/properties.json b/src/Squot.package/SquotClassMirror.class/properties.json deleted file mode 100644 index af8cdb108..000000000 --- a/src/Squot.package/SquotClassMirror.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "reflectedClass" ], - "name" : "SquotClassMirror", - "pools" : [ - ], - "super" : "SquotMirror", - "type" : "normal" } diff --git a/src/Squot.package/SquotClassShadow.class/README.md b/src/Squot.package/SquotClassShadow.class/README.md deleted file mode 100644 index 8211424e6..000000000 --- a/src/Squot.package/SquotClassShadow.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am a captured single class, independent of a particular package. \ No newline at end of file diff --git a/src/Squot.package/SquotClassShadow.class/instance/browse.st b/src/Squot.package/SquotClassShadow.class/instance/browse.st deleted file mode 100644 index ce3bb0d4a..000000000 --- a/src/Squot.package/SquotClassShadow.class/instance/browse.st +++ /dev/null @@ -1,7 +0,0 @@ -*Squot-Tools -browse - snapshot definitions isEmpty ifTrue: [^ self inform: 'Class does not exist']. - ^ (MCSnapshotBrowser forSnapshot: snapshot) - categorySelection: 1; - classSelection: 1; - showLabelled: 'Snapshot of ', self className \ No newline at end of file diff --git a/src/Squot.package/SquotClassShadow.class/instance/className.st b/src/Squot.package/SquotClassShadow.class/instance/className.st deleted file mode 100644 index 06a0a4cf3..000000000 --- a/src/Squot.package/SquotClassShadow.class/instance/className.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -className - ^ (snapshot definitions detect: [:each | each respondsTo: #actualClass]) className \ No newline at end of file diff --git a/src/Squot.package/SquotClassShadow.class/instance/squotMaterializeWith..st b/src/Squot.package/SquotClassShadow.class/instance/squotMaterializeWith..st deleted file mode 100644 index 8e411a667..000000000 --- a/src/Squot.package/SquotClassShadow.class/instance/squotMaterializeWith..st +++ /dev/null @@ -1,10 +0,0 @@ -Squot-shadow -squotMaterializeWith: aMaterializer - | className | - (PackageInfo squotEnvironmentInMetadata: SquotCurrentMetadata value) - beCurrentDuring: - [className := (snapshot definitions detect: #isClassDefinition) name. - MCPackageLoader new - installSnapshot: snapshot; - loadWithNameLike: className. - ^ Environment current at: className] \ No newline at end of file diff --git a/src/Squot.package/SquotClassShadow.class/instance/squotRewritePath.with..st b/src/Squot.package/SquotClassShadow.class/instance/squotRewritePath.with..st deleted file mode 100644 index 8b29d0cb7..000000000 --- a/src/Squot.package/SquotClassShadow.class/instance/squotRewritePath.with..st +++ /dev/null @@ -1,4 +0,0 @@ -serializing -squotRewritePath: pathString with: aSerializer - "double dispatch" - ^ aSerializer rewritePath: pathString ofClass: self \ No newline at end of file diff --git a/src/Squot.package/SquotClassShadow.class/methodProperties.json b/src/Squot.package/SquotClassShadow.class/methodProperties.json deleted file mode 100644 index 7e7d336aa..000000000 --- a/src/Squot.package/SquotClassShadow.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "browse" : "jr 6/6/2020 03:25", - "className" : "jr 6/6/2020 02:40", - "squotMaterializeWith:" : "jr 12/23/2019 12:32", - "squotRewritePath:with:" : "jr 9/20/2017 21:02" } } diff --git a/src/Squot.package/SquotClassShadow.class/properties.json b/src/Squot.package/SquotClassShadow.class/properties.json deleted file mode 100644 index 5e4fd197a..000000000 --- a/src/Squot.package/SquotClassShadow.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Packages", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 19:18", - "instvars" : [ - ], - "name" : "SquotClassShadow", - "pools" : [ - ], - "super" : "SquotPackageShadow", - "type" : "normal" } diff --git a/src/Squot.package/SquotCollectionElement.class/README.md b/src/Squot.package/SquotCollectionElement.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotCollectionElement.class/class/target..st b/src/Squot.package/SquotCollectionElement.class/class/target..st deleted file mode 100644 index b079dd703..000000000 --- a/src/Squot.package/SquotCollectionElement.class/class/target..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -target: anObject - ^ self new - setElement: anObject; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotCollectionElement.class/class/targetWithRelevantHash..st b/src/Squot.package/SquotCollectionElement.class/class/targetWithRelevantHash..st deleted file mode 100644 index 3d3b52d06..000000000 --- a/src/Squot.package/SquotCollectionElement.class/class/targetWithRelevantHash..st +++ /dev/null @@ -1,6 +0,0 @@ -instance creation -targetWithRelevantHash: anObject - ^ self new - setElement: anObject; - setHashRelevant; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotCollectionElement.class/instance/^equals.st b/src/Squot.package/SquotCollectionElement.class/instance/^equals.st deleted file mode 100644 index 6dc98b7d9..000000000 --- a/src/Squot.package/SquotCollectionElement.class/instance/^equals.st +++ /dev/null @@ -1,13 +0,0 @@ -comparing -= anObject - "Answer whether the receiver and anObject represent the same object." - - self == anObject - ifTrue: [^ true]. - [anObject target] on: MessageNotUnderstood do: - [:e | (e message selector == #target and: [e receiver == anObject]) - ifTrue: [^ false] - ifFalse: [e pass]]. - ^ self target hasSquotShadowName - ifTrue: [anObject target hasSquotShadowName and: [self target name = anObject target name]] - ifFalse: [self target = anObject target]. \ No newline at end of file diff --git a/src/Squot.package/SquotCollectionElement.class/instance/asCapturedReference.st b/src/Squot.package/SquotCollectionElement.class/instance/asCapturedReference.st deleted file mode 100644 index 1466decb1..000000000 --- a/src/Squot.package/SquotCollectionElement.class/instance/asCapturedReference.st +++ /dev/null @@ -1,4 +0,0 @@ -capturing -asCapturedReference - "Since a captured reference will need to refer to the captured snapshot instead of the live object, make an empty copy." - ^ self copyWithTarget: nil \ No newline at end of file diff --git a/src/Squot.package/SquotCollectionElement.class/instance/asDiffTreeStringOrText.st b/src/Squot.package/SquotCollectionElement.class/instance/asDiffTreeStringOrText.st deleted file mode 100644 index 2c60a17c3..000000000 --- a/src/Squot.package/SquotCollectionElement.class/instance/asDiffTreeStringOrText.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -asDiffTreeStringOrText - ^ 'element ', (target printStringLimitedTo: 100) \ No newline at end of file diff --git a/src/Squot.package/SquotCollectionElement.class/instance/asMaterializedReference.st b/src/Squot.package/SquotCollectionElement.class/instance/asMaterializedReference.st deleted file mode 100644 index f3c5dac66..000000000 --- a/src/Squot.package/SquotCollectionElement.class/instance/asMaterializedReference.st +++ /dev/null @@ -1,4 +0,0 @@ -materializing -asMaterializedReference - "Since a rematerialized reference will need to refer to the rematerialized object instead of the snapshot object, make an empty copy." - ^ self copyWithTarget: nil \ No newline at end of file diff --git a/src/Squot.package/SquotCollectionElement.class/instance/asSlotDiffKey.st b/src/Squot.package/SquotCollectionElement.class/instance/asSlotDiffKey.st deleted file mode 100644 index 441f44d3c..000000000 --- a/src/Squot.package/SquotCollectionElement.class/instance/asSlotDiffKey.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -asSlotDiffKey - ^ self \ No newline at end of file diff --git a/src/Squot.package/SquotCollectionElement.class/instance/asSlotWithValue..st b/src/Squot.package/SquotCollectionElement.class/instance/asSlotWithValue..st deleted file mode 100644 index ae9c27a9a..000000000 --- a/src/Squot.package/SquotCollectionElement.class/instance/asSlotWithValue..st +++ /dev/null @@ -1,6 +0,0 @@ -converting -asSlotWithValue: anObject - self assert: target = anObject. - ^ anObject originalClass = Association - ifTrue: [SquotDictionarySlot key: self value: anObject] - ifFalse: [SquotHashedCollectionSlot key: self value: anObject] \ No newline at end of file diff --git a/src/Squot.package/SquotCollectionElement.class/instance/copyWithTarget..st b/src/Squot.package/SquotCollectionElement.class/instance/copyWithTarget..st deleted file mode 100644 index 1eaf13026..000000000 --- a/src/Squot.package/SquotCollectionElement.class/instance/copyWithTarget..st +++ /dev/null @@ -1,5 +0,0 @@ -copying -copyWithTarget: anObject - ^ self copy - setElement: anObject; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotCollectionElement.class/instance/hash.st b/src/Squot.package/SquotCollectionElement.class/instance/hash.st deleted file mode 100644 index 86d89a730..000000000 --- a/src/Squot.package/SquotCollectionElement.class/instance/hash.st +++ /dev/null @@ -1,7 +0,0 @@ -comparing -hash - "Answer an integer value that is related to the identity of the receiver." - - ^ self target hasSquotShadowName - ifTrue: [self target name hash] - ifFalse: [self target hash]. \ No newline at end of file diff --git a/src/Squot.package/SquotCollectionElement.class/instance/initialize.st b/src/Squot.package/SquotCollectionElement.class/instance/initialize.st deleted file mode 100644 index cd629f6b4..000000000 --- a/src/Squot.package/SquotCollectionElement.class/instance/initialize.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -initialize - isHashRelevant := false. \ No newline at end of file diff --git a/src/Squot.package/SquotCollectionElement.class/instance/isCollectionElement.st b/src/Squot.package/SquotCollectionElement.class/instance/isCollectionElement.st deleted file mode 100644 index fe75659f1..000000000 --- a/src/Squot.package/SquotCollectionElement.class/instance/isCollectionElement.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isCollectionElement - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotCollectionElement.class/instance/isHashRelevant.st b/src/Squot.package/SquotCollectionElement.class/instance/isHashRelevant.st deleted file mode 100644 index 688f77a37..000000000 --- a/src/Squot.package/SquotCollectionElement.class/instance/isHashRelevant.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isHashRelevant - ^ isHashRelevant \ No newline at end of file diff --git a/src/Squot.package/SquotCollectionElement.class/instance/newNameFragment.st b/src/Squot.package/SquotCollectionElement.class/instance/newNameFragment.st deleted file mode 100644 index e6a7b2b8d..000000000 --- a/src/Squot.package/SquotCollectionElement.class/instance/newNameFragment.st +++ /dev/null @@ -1,4 +0,0 @@ -capturing -newNameFragment - "There is no identifier for this element except its object identity." - ^ 'element' \ No newline at end of file diff --git a/src/Squot.package/SquotCollectionElement.class/instance/printOn..st b/src/Squot.package/SquotCollectionElement.class/instance/printOn..st deleted file mode 100644 index 827765cc1..000000000 --- a/src/Squot.package/SquotCollectionElement.class/instance/printOn..st +++ /dev/null @@ -1,8 +0,0 @@ -printing -printOn: aStream - "Append a sequence of characters to aStream that identify the receiver." - - super printOn: aStream. - aStream - nextPutAll: ' target: '; - print: target. \ No newline at end of file diff --git a/src/Squot.package/SquotCollectionElement.class/instance/reflect.in..st b/src/Squot.package/SquotCollectionElement.class/instance/reflect.in..st deleted file mode 100644 index 74f02cd8e..000000000 --- a/src/Squot.package/SquotCollectionElement.class/instance/reflect.in..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflect: anObject in: aMirror - ^ aMirror reflectElement: self of: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotCollectionElement.class/instance/reflect.in.put..st b/src/Squot.package/SquotCollectionElement.class/instance/reflect.in.put..st deleted file mode 100644 index c843ebfa6..000000000 --- a/src/Squot.package/SquotCollectionElement.class/instance/reflect.in.put..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflect: anObject in: aMirror put: newValue - ^ aMirror reflectElement: self of: anObject put: newValue \ No newline at end of file diff --git a/src/Squot.package/SquotCollectionElement.class/instance/removeFrom.reflectedIn..st b/src/Squot.package/SquotCollectionElement.class/instance/removeFrom.reflectedIn..st deleted file mode 100644 index 1900d11ba..000000000 --- a/src/Squot.package/SquotCollectionElement.class/instance/removeFrom.reflectedIn..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -removeFrom: aCollection reflectedIn: aMirror - ^ aMirror removeElement: self from: aCollection \ No newline at end of file diff --git a/src/Squot.package/SquotCollectionElement.class/instance/setElement..st b/src/Squot.package/SquotCollectionElement.class/instance/setElement..st deleted file mode 100644 index 9456eccd3..000000000 --- a/src/Squot.package/SquotCollectionElement.class/instance/setElement..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -setElement: anObject - target := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotCollectionElement.class/instance/setHashRelevant.st b/src/Squot.package/SquotCollectionElement.class/instance/setHashRelevant.st deleted file mode 100644 index af875c538..000000000 --- a/src/Squot.package/SquotCollectionElement.class/instance/setHashRelevant.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -setHashRelevant - isHashRelevant := true. \ No newline at end of file diff --git a/src/Squot.package/SquotCollectionElement.class/instance/target..st b/src/Squot.package/SquotCollectionElement.class/instance/target..st deleted file mode 100644 index a2e909a3c..000000000 --- a/src/Squot.package/SquotCollectionElement.class/instance/target..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -target: anObject - target := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotCollectionElement.class/instance/target.st b/src/Squot.package/SquotCollectionElement.class/instance/target.st deleted file mode 100644 index 2e1e15ca8..000000000 --- a/src/Squot.package/SquotCollectionElement.class/instance/target.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -target - ^ target \ No newline at end of file diff --git a/src/Squot.package/SquotCollectionElement.class/methodProperties.json b/src/Squot.package/SquotCollectionElement.class/methodProperties.json deleted file mode 100644 index 5f57a428c..000000000 --- a/src/Squot.package/SquotCollectionElement.class/methodProperties.json +++ /dev/null @@ -1,25 +0,0 @@ -{ - "class" : { - "target:" : "jr 4/3/2021 21:14", - "targetWithRelevantHash:" : "jr 4/17/2021 17:29" }, - "instance" : { - "=" : "jr 4/8/2021 13:32", - "asCapturedReference" : "jr 4/17/2021 18:24", - "asDiffTreeStringOrText" : "jr 1/16/2022 21:32", - "asMaterializedReference" : "jr 4/17/2021 18:19", - "asSlotDiffKey" : "jr 7/18/2021 20:28", - "asSlotWithValue:" : "jr 7/18/2021 21:50", - "copyWithTarget:" : "jr 4/17/2021 18:25", - "hash" : "jr 4/7/2021 21:34", - "initialize" : "jr 4/17/2021 17:30", - "isCollectionElement" : "jr 4/17/2021 18:07", - "isHashRelevant" : "jr 4/17/2021 18:26", - "newNameFragment" : "jr 4/4/2021 12:55", - "printOn:" : "jr 4/3/2021 22:14", - "reflect:in:" : "jr 4/3/2021 22:19", - "reflect:in:put:" : "jr 4/3/2021 21:32", - "removeFrom:reflectedIn:" : "jr 4/8/2021 13:36", - "setElement:" : "jr 4/3/2021 22:14", - "setHashRelevant" : "jr 4/17/2021 17:29", - "target" : "jr 4/3/2021 22:14", - "target:" : "jr 4/3/2021 22:15" } } diff --git a/src/Squot.package/SquotCollectionElement.class/properties.json b/src/Squot.package/SquotCollectionElement.class/properties.json deleted file mode 100644 index f5dd66e4e..000000000 --- a/src/Squot.package/SquotCollectionElement.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "target", - "isHashRelevant" ], - "name" : "SquotCollectionElement", - "pools" : [ - ], - "super" : "SquotReference", - "type" : "normal" } diff --git a/src/Squot.package/SquotCommitterRequest.class/README.md b/src/Squot.package/SquotCommitterRequest.class/README.md deleted file mode 100644 index 1c277b1ed..000000000 --- a/src/Squot.package/SquotCommitterRequest.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am signalled when an object needs to know the current committer. \ No newline at end of file diff --git a/src/Squot.package/SquotCommitterRequest.class/methodProperties.json b/src/Squot.package/SquotCommitterRequest.class/methodProperties.json deleted file mode 100644 index 0e4a66223..000000000 --- a/src/Squot.package/SquotCommitterRequest.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - } } diff --git a/src/Squot.package/SquotCommitterRequest.class/properties.json b/src/Squot.package/SquotCommitterRequest.class/properties.json deleted file mode 100644 index f037ec237..000000000 --- a/src/Squot.package/SquotCommitterRequest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tools", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 19:43", - "instvars" : [ - ], - "name" : "SquotCommitterRequest", - "pools" : [ - ], - "super" : "Notification", - "type" : "normal" } diff --git a/src/Squot.package/SquotCompiledCodeHeaderReference.class/README.md b/src/Squot.package/SquotCompiledCodeHeaderReference.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotCompiledCodeHeaderReference.class/instance/asDiffTreeStringOrText.st b/src/Squot.package/SquotCompiledCodeHeaderReference.class/instance/asDiffTreeStringOrText.st deleted file mode 100644 index 02ecba0ef..000000000 --- a/src/Squot.package/SquotCompiledCodeHeaderReference.class/instance/asDiffTreeStringOrText.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -asDiffTreeStringOrText - ^ 'header' \ No newline at end of file diff --git a/src/Squot.package/SquotCompiledCodeHeaderReference.class/instance/newNameFragment.st b/src/Squot.package/SquotCompiledCodeHeaderReference.class/instance/newNameFragment.st deleted file mode 100644 index 08966d360..000000000 --- a/src/Squot.package/SquotCompiledCodeHeaderReference.class/instance/newNameFragment.st +++ /dev/null @@ -1,3 +0,0 @@ -capturing -newNameFragment - ^ 'header' \ No newline at end of file diff --git a/src/Squot.package/SquotCompiledCodeHeaderReference.class/instance/reflect.in..st b/src/Squot.package/SquotCompiledCodeHeaderReference.class/instance/reflect.in..st deleted file mode 100644 index 810b9da63..000000000 --- a/src/Squot.package/SquotCompiledCodeHeaderReference.class/instance/reflect.in..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflect: aCompiledCode in: aMirror - ^ aMirror reflectHeader: self of: aCompiledCode \ No newline at end of file diff --git a/src/Squot.package/SquotCompiledCodeHeaderReference.class/instance/reflect.in.put..st b/src/Squot.package/SquotCompiledCodeHeaderReference.class/instance/reflect.in.put..st deleted file mode 100644 index a2e7732ff..000000000 --- a/src/Squot.package/SquotCompiledCodeHeaderReference.class/instance/reflect.in.put..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflect: aCompiledCode in: aMirror put: newValue - ^ aMirror reflectHeader: self of: aCompiledCode put: newValue \ No newline at end of file diff --git a/src/Squot.package/SquotCompiledCodeHeaderReference.class/methodProperties.json b/src/Squot.package/SquotCompiledCodeHeaderReference.class/methodProperties.json deleted file mode 100644 index 49405e553..000000000 --- a/src/Squot.package/SquotCompiledCodeHeaderReference.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "asDiffTreeStringOrText" : "jr 1/16/2022 21:31", - "newNameFragment" : "jr 4/7/2021 23:15", - "reflect:in:" : "jr 4/7/2021 23:16", - "reflect:in:put:" : "jr 4/7/2021 23:16" } } diff --git a/src/Squot.package/SquotCompiledCodeHeaderReference.class/properties.json b/src/Squot.package/SquotCompiledCodeHeaderReference.class/properties.json deleted file mode 100644 index 3463e1496..000000000 --- a/src/Squot.package/SquotCompiledCodeHeaderReference.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotCompiledCodeHeaderReference", - "pools" : [ - ], - "super" : "SquotReference", - "type" : "normal" } diff --git a/src/Squot.package/SquotCompiledCodeLiteralReference.class/README.md b/src/Squot.package/SquotCompiledCodeLiteralReference.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotCompiledCodeLiteralReference.class/class/index..st b/src/Squot.package/SquotCompiledCodeLiteralReference.class/class/index..st deleted file mode 100644 index 19716680f..000000000 --- a/src/Squot.package/SquotCompiledCodeLiteralReference.class/class/index..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -index: anInteger - ^ self new setLiteralIndex: anInteger; yourself \ No newline at end of file diff --git a/src/Squot.package/SquotCompiledCodeLiteralReference.class/instance/asDiffTreeStringOrText.st b/src/Squot.package/SquotCompiledCodeLiteralReference.class/instance/asDiffTreeStringOrText.st deleted file mode 100644 index 28cf2dffe..000000000 --- a/src/Squot.package/SquotCompiledCodeLiteralReference.class/instance/asDiffTreeStringOrText.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -asDiffTreeStringOrText - ^ 'literal #', literalIndex \ No newline at end of file diff --git a/src/Squot.package/SquotCompiledCodeLiteralReference.class/instance/literalIndex.st b/src/Squot.package/SquotCompiledCodeLiteralReference.class/instance/literalIndex.st deleted file mode 100644 index 2ad81cec7..000000000 --- a/src/Squot.package/SquotCompiledCodeLiteralReference.class/instance/literalIndex.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -literalIndex - ^ literalIndex \ No newline at end of file diff --git a/src/Squot.package/SquotCompiledCodeLiteralReference.class/instance/newNameFragment.st b/src/Squot.package/SquotCompiledCodeLiteralReference.class/instance/newNameFragment.st deleted file mode 100644 index cef3d3ce5..000000000 --- a/src/Squot.package/SquotCompiledCodeLiteralReference.class/instance/newNameFragment.st +++ /dev/null @@ -1,3 +0,0 @@ -capturing -newNameFragment - ^ 'literal ', literalIndex \ No newline at end of file diff --git a/src/Squot.package/SquotCompiledCodeLiteralReference.class/instance/reflect.in..st b/src/Squot.package/SquotCompiledCodeLiteralReference.class/instance/reflect.in..st deleted file mode 100644 index a496fe376..000000000 --- a/src/Squot.package/SquotCompiledCodeLiteralReference.class/instance/reflect.in..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflect: aCompiledCode in: aMirror - ^ aMirror reflectLiteral: self of: aCompiledCode \ No newline at end of file diff --git a/src/Squot.package/SquotCompiledCodeLiteralReference.class/instance/reflect.in.put..st b/src/Squot.package/SquotCompiledCodeLiteralReference.class/instance/reflect.in.put..st deleted file mode 100644 index 8b1beabae..000000000 --- a/src/Squot.package/SquotCompiledCodeLiteralReference.class/instance/reflect.in.put..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflect: aCompiledCode in: aMirror put: newValue - ^ aMirror reflectLiteral: self of: aCompiledCode put: newValue \ No newline at end of file diff --git a/src/Squot.package/SquotCompiledCodeLiteralReference.class/instance/setLiteralIndex..st b/src/Squot.package/SquotCompiledCodeLiteralReference.class/instance/setLiteralIndex..st deleted file mode 100644 index b04ad05b5..000000000 --- a/src/Squot.package/SquotCompiledCodeLiteralReference.class/instance/setLiteralIndex..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -setLiteralIndex: anInteger - literalIndex := anInteger. \ No newline at end of file diff --git a/src/Squot.package/SquotCompiledCodeLiteralReference.class/methodProperties.json b/src/Squot.package/SquotCompiledCodeLiteralReference.class/methodProperties.json deleted file mode 100644 index e8c715c5b..000000000 --- a/src/Squot.package/SquotCompiledCodeLiteralReference.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - "index:" : "jr 4/7/2021 23:32" }, - "instance" : { - "asDiffTreeStringOrText" : "jr 1/16/2022 21:31", - "literalIndex" : "jr 4/7/2021 23:32", - "newNameFragment" : "jr 4/7/2021 23:33", - "reflect:in:" : "jr 4/7/2021 23:33", - "reflect:in:put:" : "jr 4/7/2021 23:34", - "setLiteralIndex:" : "jr 4/7/2021 23:32" } } diff --git a/src/Squot.package/SquotCompiledCodeLiteralReference.class/properties.json b/src/Squot.package/SquotCompiledCodeLiteralReference.class/properties.json deleted file mode 100644 index ffd536f7b..000000000 --- a/src/Squot.package/SquotCompiledCodeLiteralReference.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "literalIndex" ], - "name" : "SquotCompiledCodeLiteralReference", - "pools" : [ - ], - "super" : "SquotReference", - "type" : "normal" } diff --git a/src/Squot.package/SquotCompiledCodeMirror.class/README.md b/src/Squot.package/SquotCompiledCodeMirror.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotCompiledCodeMirror.class/instance/referencesFrom..st b/src/Squot.package/SquotCompiledCodeMirror.class/instance/referencesFrom..st deleted file mode 100644 index 77864d094..000000000 --- a/src/Squot.package/SquotCompiledCodeMirror.class/instance/referencesFrom..st +++ /dev/null @@ -1,11 +0,0 @@ -enumerating -referencesFrom: aCompiledCode - | references | - references := OrderedCollection new. - references add: SquotCompiledCodeHeaderReference new. - 1 to: aCompiledCode numLiterals do: [:index | - references add: (SquotCompiledCodeLiteralReference index: index)]. - aCompiledCode initialPC to: aCompiledCode basicSize do: - [:index | references add: (SquotIndexableField index: index)]. - self flag: 'TODO: capture source code if available?'. - ^ references \ No newline at end of file diff --git a/src/Squot.package/SquotCompiledCodeMirror.class/instance/reflectHeader.of..st b/src/Squot.package/SquotCompiledCodeMirror.class/instance/reflectHeader.of..st deleted file mode 100644 index 0bfe2d04f..000000000 --- a/src/Squot.package/SquotCompiledCodeMirror.class/instance/reflectHeader.of..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflectHeader: aCompiledCodeHeaderReference of: aCompiledCode - ^ aCompiledCode header \ No newline at end of file diff --git a/src/Squot.package/SquotCompiledCodeMirror.class/instance/reflectHeader.of.put..st b/src/Squot.package/SquotCompiledCodeMirror.class/instance/reflectHeader.of.put..st deleted file mode 100644 index 5e788dec5..000000000 --- a/src/Squot.package/SquotCompiledCodeMirror.class/instance/reflectHeader.of.put..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflectHeader: aCompiledCodeHeaderReference of: aCompiledCode put: newValue - self shouldNotImplement \ No newline at end of file diff --git a/src/Squot.package/SquotCompiledCodeMirror.class/instance/reflectLiteral.of..st b/src/Squot.package/SquotCompiledCodeMirror.class/instance/reflectLiteral.of..st deleted file mode 100644 index 26cf8e48f..000000000 --- a/src/Squot.package/SquotCompiledCodeMirror.class/instance/reflectLiteral.of..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflectLiteral: aCompiledCodeLiteralReference of: aCompiledCode - ^ aCompiledCode literalAt: aCompiledCodeLiteralReference literalIndex \ No newline at end of file diff --git a/src/Squot.package/SquotCompiledCodeMirror.class/instance/reflectLiteral.of.put..st b/src/Squot.package/SquotCompiledCodeMirror.class/instance/reflectLiteral.of.put..st deleted file mode 100644 index 66321c948..000000000 --- a/src/Squot.package/SquotCompiledCodeMirror.class/instance/reflectLiteral.of.put..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflectLiteral: aCompiledCodeLiteralReference of: aCompiledCode put: newValue - self shouldNotImplement \ No newline at end of file diff --git a/src/Squot.package/SquotCompiledCodeMirror.class/instance/shadowFactory.st b/src/Squot.package/SquotCompiledCodeMirror.class/instance/shadowFactory.st deleted file mode 100644 index 4c7120b59..000000000 --- a/src/Squot.package/SquotCompiledCodeMirror.class/instance/shadowFactory.st +++ /dev/null @@ -1,3 +0,0 @@ -capturing -shadowFactory - ^ SquotCompiledCodeShadow \ No newline at end of file diff --git a/src/Squot.package/SquotCompiledCodeMirror.class/methodProperties.json b/src/Squot.package/SquotCompiledCodeMirror.class/methodProperties.json deleted file mode 100644 index 2233a5aa4..000000000 --- a/src/Squot.package/SquotCompiledCodeMirror.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "referencesFrom:" : "jr 4/7/2021 23:31", - "reflectHeader:of:" : "jr 4/7/2021 23:17", - "reflectHeader:of:put:" : "jr 4/7/2021 23:17", - "reflectLiteral:of:" : "jr 4/7/2021 23:34", - "reflectLiteral:of:put:" : "jr 4/7/2021 23:34", - "shadowFactory" : "jr 4/7/2021 22:52" } } diff --git a/src/Squot.package/SquotCompiledCodeMirror.class/properties.json b/src/Squot.package/SquotCompiledCodeMirror.class/properties.json deleted file mode 100644 index f4562f4ab..000000000 --- a/src/Squot.package/SquotCompiledCodeMirror.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotCompiledCodeMirror", - "pools" : [ - ], - "super" : "SquotObjectMirror", - "type" : "normal" } diff --git a/src/Squot.package/SquotCompiledCodeShadow.class/README.md b/src/Squot.package/SquotCompiledCodeShadow.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotCompiledCodeShadow.class/class/squotMirror.st b/src/Squot.package/SquotCompiledCodeShadow.class/class/squotMirror.st deleted file mode 100644 index e9ed143a0..000000000 --- a/src/Squot.package/SquotCompiledCodeShadow.class/class/squotMirror.st +++ /dev/null @@ -1,3 +0,0 @@ -reflecting -squotMirror - ^ SquotCompiledCodeShadowMirror new \ No newline at end of file diff --git a/src/Squot.package/SquotCompiledCodeShadow.class/methodProperties.json b/src/Squot.package/SquotCompiledCodeShadow.class/methodProperties.json deleted file mode 100644 index 96241adeb..000000000 --- a/src/Squot.package/SquotCompiledCodeShadow.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "squotMirror" : "jr 4/7/2021 23:24" }, - "instance" : { - } } diff --git a/src/Squot.package/SquotCompiledCodeShadow.class/properties.json b/src/Squot.package/SquotCompiledCodeShadow.class/properties.json deleted file mode 100644 index c58e08a9f..000000000 --- a/src/Squot.package/SquotCompiledCodeShadow.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Shadows", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotCompiledCodeShadow", - "pools" : [ - ], - "super" : "SquotObjectShadow", - "type" : "normal" } diff --git a/src/Squot.package/SquotCompiledCodeShadowMirror.class/README.md b/src/Squot.package/SquotCompiledCodeShadowMirror.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotCompiledCodeShadowMirror.class/instance/reflectHeader.of..st b/src/Squot.package/SquotCompiledCodeShadowMirror.class/instance/reflectHeader.of..st deleted file mode 100644 index 0843f9843..000000000 --- a/src/Squot.package/SquotCompiledCodeShadowMirror.class/instance/reflectHeader.of..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflectHeader: aCompiledCodeHeaderReference of: aCompiledCodeShadow - ^ (aCompiledCodeShadow instVarSlotNamed: 'header') value \ No newline at end of file diff --git a/src/Squot.package/SquotCompiledCodeShadowMirror.class/instance/reflectHeader.of.put..st b/src/Squot.package/SquotCompiledCodeShadowMirror.class/instance/reflectHeader.of.put..st deleted file mode 100644 index e1cb68aa3..000000000 --- a/src/Squot.package/SquotCompiledCodeShadowMirror.class/instance/reflectHeader.of.put..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflectHeader: aCompiledCodeHeaderReference of: aCompiledCodeShadow put: newValue - ^ aCompiledCodeShadow addInstVarSlot: (SquotInstVarSlot key: 'header' value: newValue) \ No newline at end of file diff --git a/src/Squot.package/SquotCompiledCodeShadowMirror.class/instance/reflectLiteral.of..st b/src/Squot.package/SquotCompiledCodeShadowMirror.class/instance/reflectLiteral.of..st deleted file mode 100644 index a66fb9b4b..000000000 --- a/src/Squot.package/SquotCompiledCodeShadowMirror.class/instance/reflectLiteral.of..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflectLiteral: aCompiledCodeLiteralReference of: aCompiledCodeShadow - ^ (aCompiledCodeShadow instVarSlotNamed: 'literals') value at: aCompiledCodeLiteralReference literalIndex \ No newline at end of file diff --git a/src/Squot.package/SquotCompiledCodeShadowMirror.class/instance/reflectLiteral.of.put..st b/src/Squot.package/SquotCompiledCodeShadowMirror.class/instance/reflectLiteral.of.put..st deleted file mode 100644 index f4af32bdd..000000000 --- a/src/Squot.package/SquotCompiledCodeShadowMirror.class/instance/reflectLiteral.of.put..st +++ /dev/null @@ -1,5 +0,0 @@ -reflection -reflectLiteral: aCompiledCodeLiteralReference of: aCompiledCodeShadow put: newValue - (aCompiledCodeShadow includesSlot: 'literals') - ifFalse: [aCompiledCodeShadow addInstVarSlot: (SquotInstVarSlot key: 'literals' value: Dictionary new)]. - (aCompiledCodeShadow instVarSlotNamed: 'literals') at: aCompiledCodeLiteralReference literalIndex put: newValue. \ No newline at end of file diff --git a/src/Squot.package/SquotCompiledCodeShadowMirror.class/methodProperties.json b/src/Squot.package/SquotCompiledCodeShadowMirror.class/methodProperties.json deleted file mode 100644 index d921af634..000000000 --- a/src/Squot.package/SquotCompiledCodeShadowMirror.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "reflectHeader:of:" : "jr 4/7/2021 23:20", - "reflectHeader:of:put:" : "jr 4/7/2021 23:25", - "reflectLiteral:of:" : "jr 4/7/2021 23:35", - "reflectLiteral:of:put:" : "jr 4/7/2021 23:38" } } diff --git a/src/Squot.package/SquotCompiledCodeShadowMirror.class/properties.json b/src/Squot.package/SquotCompiledCodeShadowMirror.class/properties.json deleted file mode 100644 index 20ae66077..000000000 --- a/src/Squot.package/SquotCompiledCodeShadowMirror.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotCompiledCodeShadowMirror", - "pools" : [ - ], - "super" : "SquotObjectShadowMirror", - "type" : "normal" } diff --git a/src/Squot.package/SquotConflict.class/README.md b/src/Squot.package/SquotConflict.class/README.md deleted file mode 100644 index ac9bd3b16..000000000 --- a/src/Squot.package/SquotConflict.class/README.md +++ /dev/null @@ -1,6 +0,0 @@ -A conflict in a state-based three-way merge. - -working is the edition in the working copy. -incoming is the edition to be merged. -base is the edition that is the merge base between working and incoming. -resolution is a diff from working to whatever the resolution of the conflict shall be. \ No newline at end of file diff --git a/src/Squot.package/SquotConflict.class/instance/base..st b/src/Squot.package/SquotConflict.class/instance/base..st deleted file mode 100644 index 6e32bc756..000000000 --- a/src/Squot.package/SquotConflict.class/instance/base..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -base: anObject - - base := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotConflict.class/instance/base.st b/src/Squot.package/SquotConflict.class/instance/base.st deleted file mode 100644 index 1b44f592d..000000000 --- a/src/Squot.package/SquotConflict.class/instance/base.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -base - - ^ base \ No newline at end of file diff --git a/src/Squot.package/SquotConflict.class/instance/browseFromSquotWorkingCopyArtifact..st b/src/Squot.package/SquotConflict.class/instance/browseFromSquotWorkingCopyArtifact..st deleted file mode 100644 index 5f31a553d..000000000 --- a/src/Squot.package/SquotConflict.class/instance/browseFromSquotWorkingCopyArtifact..st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -browseFromSquotWorkingCopyArtifact: aSquotWorkingCopyArtifact - "Browse the working copy of the object for which there are conflict." - ^ self object browseFromSquotWorkingCopyArtifact: aSquotWorkingCopyArtifact \ No newline at end of file diff --git a/src/Squot.package/SquotConflict.class/instance/chooseIncoming.st b/src/Squot.package/SquotConflict.class/instance/chooseIncoming.st deleted file mode 100644 index a40eed381..000000000 --- a/src/Squot.package/SquotConflict.class/instance/chooseIncoming.st +++ /dev/null @@ -1,3 +0,0 @@ -merging -chooseIncoming - resolution := working squotDiffAgainst: incoming. \ No newline at end of file diff --git a/src/Squot.package/SquotConflict.class/instance/chooseWorking.st b/src/Squot.package/SquotConflict.class/instance/chooseWorking.st deleted file mode 100644 index b1d127f23..000000000 --- a/src/Squot.package/SquotConflict.class/instance/chooseWorking.st +++ /dev/null @@ -1,4 +0,0 @@ -merging -chooseWorking - "Do not change the working copy." - resolution := SquotDiffOfEqualObjects object: working. \ No newline at end of file diff --git a/src/Squot.package/SquotConflict.class/instance/hasChanges.st b/src/Squot.package/SquotConflict.class/instance/hasChanges.st deleted file mode 100644 index cc3afeeea..000000000 --- a/src/Squot.package/SquotConflict.class/instance/hasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasChanges - ^ resolution isNil or: [resolution squotHasChanges] \ No newline at end of file diff --git a/src/Squot.package/SquotConflict.class/instance/incoming..st b/src/Squot.package/SquotConflict.class/instance/incoming..st deleted file mode 100644 index be0e1c937..000000000 --- a/src/Squot.package/SquotConflict.class/instance/incoming..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -incoming: anObject - - incoming := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotConflict.class/instance/incoming.st b/src/Squot.package/SquotConflict.class/instance/incoming.st deleted file mode 100644 index bcea466da..000000000 --- a/src/Squot.package/SquotConflict.class/instance/incoming.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -incoming - - ^ incoming \ No newline at end of file diff --git a/src/Squot.package/SquotConflict.class/instance/isAddition.st b/src/Squot.package/SquotConflict.class/instance/isAddition.st deleted file mode 100644 index baeb145a3..000000000 --- a/src/Squot.package/SquotConflict.class/instance/isAddition.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isAddition - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotConflict.class/instance/isConflict.st b/src/Squot.package/SquotConflict.class/instance/isConflict.st deleted file mode 100644 index 55619badb..000000000 --- a/src/Squot.package/SquotConflict.class/instance/isConflict.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isConflict - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotConflict.class/instance/isMerge.st b/src/Squot.package/SquotConflict.class/instance/isMerge.st deleted file mode 100644 index c8d6ade46..000000000 --- a/src/Squot.package/SquotConflict.class/instance/isMerge.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isMerge - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotConflict.class/instance/isModification.st b/src/Squot.package/SquotConflict.class/instance/isModification.st deleted file mode 100644 index c39c76071..000000000 --- a/src/Squot.package/SquotConflict.class/instance/isModification.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isModification - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotConflict.class/instance/isRemoval.st b/src/Squot.package/SquotConflict.class/instance/isRemoval.st deleted file mode 100644 index 8f7f6d5ac..000000000 --- a/src/Squot.package/SquotConflict.class/instance/isRemoval.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isRemoval - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotConflict.class/instance/isResolved.st b/src/Squot.package/SquotConflict.class/instance/isResolved.st deleted file mode 100644 index e927b79a8..000000000 --- a/src/Squot.package/SquotConflict.class/instance/isResolved.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isResolved - ^ resolution notNil \ No newline at end of file diff --git a/src/Squot.package/SquotConflict.class/instance/key..st b/src/Squot.package/SquotConflict.class/instance/key..st deleted file mode 100644 index 65a18ad20..000000000 --- a/src/Squot.package/SquotConflict.class/instance/key..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -key: anObject - key := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotConflict.class/instance/key.st b/src/Squot.package/SquotConflict.class/instance/key.st deleted file mode 100644 index 8df805514..000000000 --- a/src/Squot.package/SquotConflict.class/instance/key.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -key - ^ key \ No newline at end of file diff --git a/src/Squot.package/SquotConflict.class/instance/object.st b/src/Squot.package/SquotConflict.class/instance/object.st deleted file mode 100644 index fc144e9e9..000000000 --- a/src/Squot.package/SquotConflict.class/instance/object.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -object - "Answer what this conflict is about." - ^ working ifNil: [incoming] \ No newline at end of file diff --git a/src/Squot.package/SquotConflict.class/instance/resetChoice.st b/src/Squot.package/SquotConflict.class/instance/resetChoice.st deleted file mode 100644 index c85f19efd..000000000 --- a/src/Squot.package/SquotConflict.class/instance/resetChoice.st +++ /dev/null @@ -1,3 +0,0 @@ -merging -resetChoice - resolution := nil. \ No newline at end of file diff --git a/src/Squot.package/SquotConflict.class/instance/resolution..st b/src/Squot.package/SquotConflict.class/instance/resolution..st deleted file mode 100644 index 9894b0de4..000000000 --- a/src/Squot.package/SquotConflict.class/instance/resolution..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -resolution: anObject - - resolution := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotConflict.class/instance/resolution.st b/src/Squot.package/SquotConflict.class/instance/resolution.st deleted file mode 100644 index 1fbed4818..000000000 --- a/src/Squot.package/SquotConflict.class/instance/resolution.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -resolution - ^ resolution \ No newline at end of file diff --git a/src/Squot.package/SquotConflict.class/instance/setKey.base.working.incoming..st b/src/Squot.package/SquotConflict.class/instance/setKey.base.working.incoming..st deleted file mode 100644 index b70c2abce..000000000 --- a/src/Squot.package/SquotConflict.class/instance/setKey.base.working.incoming..st +++ /dev/null @@ -1,6 +0,0 @@ -initialize-release -setKey: anObject base: baseObject working: workingObject incoming: incomingObject - key := anObject. - base := baseObject. - working := workingObject. - incoming := incomingObject. \ No newline at end of file diff --git a/src/Squot.package/SquotConflict.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotConflict.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index 8a2826d9d..000000000 --- a/src/Squot.package/SquotConflict.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotChangeAsStringOrText - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotConflict.class/instance/squotHasChanges.st b/src/Squot.package/SquotConflict.class/instance/squotHasChanges.st deleted file mode 100644 index bde8f1651..000000000 --- a/src/Squot.package/SquotConflict.class/instance/squotHasChanges.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -squotHasChanges - "Adapter for diff object protocol." - ^ self hasChanges \ No newline at end of file diff --git a/src/Squot.package/SquotConflict.class/instance/squotToolsDiffNodeContent.st b/src/Squot.package/SquotConflict.class/instance/squotToolsDiffNodeContent.st deleted file mode 100644 index 4adbb172a..000000000 --- a/src/Squot.package/SquotConflict.class/instance/squotToolsDiffNodeContent.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -squotToolsDiffNodeContent - "Objects of this type are used as the content of SquotDiffNode. Marker method." - \ No newline at end of file diff --git a/src/Squot.package/SquotConflict.class/instance/working..st b/src/Squot.package/SquotConflict.class/instance/working..st deleted file mode 100644 index 2aa2aa57c..000000000 --- a/src/Squot.package/SquotConflict.class/instance/working..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -working: anObject - - working := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotConflict.class/instance/working.st b/src/Squot.package/SquotConflict.class/instance/working.st deleted file mode 100644 index 6d38782c8..000000000 --- a/src/Squot.package/SquotConflict.class/instance/working.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -working - - ^ working \ No newline at end of file diff --git a/src/Squot.package/SquotConflict.class/methodProperties.json b/src/Squot.package/SquotConflict.class/methodProperties.json deleted file mode 100644 index 7c4409186..000000000 --- a/src/Squot.package/SquotConflict.class/methodProperties.json +++ /dev/null @@ -1,30 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "base" : "jr 7/30/2019 01:35", - "base:" : "jr 7/30/2019 01:35", - "browseFromSquotWorkingCopyArtifact:" : "jr 12/23/2019 15:15", - "chooseIncoming" : "jr 9/25/2019 23:34", - "chooseWorking" : "jr 1/9/2022 20:08", - "hasChanges" : "jr 6/29/2022 00:44", - "incoming" : "jr 7/30/2019 01:35", - "incoming:" : "jr 7/30/2019 01:35", - "isAddition" : "jr 3/8/2022 22:35", - "isConflict" : "jr 9/25/2019 23:29", - "isMerge" : "jr 11/18/2020 16:02", - "isModification" : "jr 3/8/2022 22:35", - "isRemoval" : "jr 3/8/2022 22:35", - "isResolved" : "jr 7/30/2019 01:56", - "key" : "jr 7/30/2019 01:55", - "key:" : "jr 7/30/2019 01:55", - "object" : "jr 8/3/2019 21:58", - "resetChoice" : "jr 9/25/2019 23:33", - "resolution" : "jr 7/30/2019 01:35", - "resolution:" : "jr 7/30/2019 01:35", - "setKey:base:working:incoming:" : "jr 12/13/2020 15:07", - "squotChangeAsStringOrText" : "jr 11/1/2020 18:48", - "squotHasChanges" : "jr 3/8/2022 22:37", - "squotToolsDiffNodeContent" : "jr 11/3/2019 16:21", - "working" : "jr 7/30/2019 01:35", - "working:" : "jr 7/30/2019 01:35" } } diff --git a/src/Squot.package/SquotConflict.class/properties.json b/src/Squot.package/SquotConflict.class/properties.json deleted file mode 100644 index ead10594c..000000000 --- a/src/Squot.package/SquotConflict.class/properties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "category" : "Squot-Merging", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 9/25/2019 23:24", - "instvars" : [ - "key", - "base", - "working", - "incoming", - "resolution" ], - "name" : "SquotConflict", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotContainerConflict.class/README.md b/src/Squot.package/SquotContainerConflict.class/README.md deleted file mode 100644 index dc0a4b906..000000000 --- a/src/Squot.package/SquotContainerConflict.class/README.md +++ /dev/null @@ -1,8 +0,0 @@ -A conflict of containment: at least one of the three editions does not contain the artifact. - -Instance Variables - base: - incoming: between base and the other container - resolution: that patches the working copy to the chosen state - working: between base and working copy - preparedResolution: between working copy and the other container, modifable \ No newline at end of file diff --git a/src/Squot.package/SquotContainerConflict.class/class/workingDiff.conflictingDiff..st b/src/Squot.package/SquotContainerConflict.class/class/workingDiff.conflictingDiff..st deleted file mode 100644 index b62e67067..000000000 --- a/src/Squot.package/SquotContainerConflict.class/class/workingDiff.conflictingDiff..st +++ /dev/null @@ -1,6 +0,0 @@ -instance creation -workingDiff: workingArtifactDiff conflictingDiff: incomingArtifactDiff - ^ self new - workingDiff: workingArtifactDiff; - incomingDiff: incomingArtifactDiff; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotContainerConflict.class/instance/asDiffTree.st b/src/Squot.package/SquotContainerConflict.class/instance/asDiffTree.st deleted file mode 100644 index df226925d..000000000 --- a/src/Squot.package/SquotContainerConflict.class/instance/asDiffTree.st +++ /dev/null @@ -1,12 +0,0 @@ -*Squot-Tools -asDiffTree - | node | - node := SquotMergeDiffNode - title: self diffTreeNodeTitle - content: self - children: self diffTreeChildren - onInclude: [self chooseIncoming] - onExclude: [self chooseWorking] - onReset: [self resetChoice]. - node withAllChildren do: [:each | each artifactDiff: self]. - ^ node \ No newline at end of file diff --git a/src/Squot.package/SquotContainerConflict.class/instance/chooseIncoming.st b/src/Squot.package/SquotContainerConflict.class/instance/chooseIncoming.st deleted file mode 100644 index 0bab0c659..000000000 --- a/src/Squot.package/SquotContainerConflict.class/instance/chooseIncoming.st +++ /dev/null @@ -1,4 +0,0 @@ -merging -chooseIncoming - "The resolution is to patch the working copy to the state of the incoming objects." - resolution := self preparedResolution. \ No newline at end of file diff --git a/src/Squot.package/SquotContainerConflict.class/instance/diffTreeChildren.st b/src/Squot.package/SquotContainerConflict.class/instance/diffTreeChildren.st deleted file mode 100644 index 062385302..000000000 --- a/src/Squot.package/SquotContainerConflict.class/instance/diffTreeChildren.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -diffTreeChildren - ^ self preparedResolution topNodes \ No newline at end of file diff --git a/src/Squot.package/SquotContainerConflict.class/instance/diffTreeNodeTitle.st b/src/Squot.package/SquotContainerConflict.class/instance/diffTreeNodeTitle.st deleted file mode 100644 index 3269b98cf..000000000 --- a/src/Squot.package/SquotContainerConflict.class/instance/diffTreeNodeTitle.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -diffTreeNodeTitle - ^ self path, ' (', working diffNodeOperationTitle, '/', incoming diffNodeOperationTitle, ')' \ No newline at end of file diff --git a/src/Squot.package/SquotContainerConflict.class/instance/incomingArtifact.st b/src/Squot.package/SquotContainerConflict.class/instance/incomingArtifact.st deleted file mode 100644 index 12312afcd..000000000 --- a/src/Squot.package/SquotContainerConflict.class/instance/incomingArtifact.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -incomingArtifact - ^ incoming right \ No newline at end of file diff --git a/src/Squot.package/SquotContainerConflict.class/instance/incomingDiff..st b/src/Squot.package/SquotContainerConflict.class/instance/incomingDiff..st deleted file mode 100644 index c23d0161e..000000000 --- a/src/Squot.package/SquotContainerConflict.class/instance/incomingDiff..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -incomingDiff: anArtifactDiff - self assert: base = anArtifactDiff base. - incoming := anArtifactDiff. \ No newline at end of file diff --git a/src/Squot.package/SquotContainerConflict.class/instance/mayAffectArtifact.st b/src/Squot.package/SquotContainerConflict.class/instance/mayAffectArtifact.st deleted file mode 100644 index 8149afdcd..000000000 --- a/src/Squot.package/SquotContainerConflict.class/instance/mayAffectArtifact.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -mayAffectArtifact - "Answer whether I might change anything about the artifact even if I should not change the snapshot of the objects themselves." - ^ resolution isNil or: [resolution mayAffectArtifact] \ No newline at end of file diff --git a/src/Squot.package/SquotContainerConflict.class/instance/path.st b/src/Squot.package/SquotContainerConflict.class/instance/path.st deleted file mode 100644 index 74ad124a1..000000000 --- a/src/Squot.package/SquotContainerConflict.class/instance/path.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -path - ^ base path \ No newline at end of file diff --git a/src/Squot.package/SquotContainerConflict.class/instance/preparedResolution.st b/src/Squot.package/SquotContainerConflict.class/instance/preparedResolution.st deleted file mode 100644 index 0dce7e510..000000000 --- a/src/Squot.package/SquotContainerConflict.class/instance/preparedResolution.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -preparedResolution - ^ preparedResolution ifNil: [preparedResolution := working resolveConflictWith: incoming] \ No newline at end of file diff --git a/src/Squot.package/SquotContainerConflict.class/instance/setUpTreeRoot.toEditMerge..st b/src/Squot.package/SquotContainerConflict.class/instance/setUpTreeRoot.toEditMerge..st deleted file mode 100644 index 8db5802f3..000000000 --- a/src/Squot.package/SquotContainerConflict.class/instance/setUpTreeRoot.toEditMerge..st +++ /dev/null @@ -1,6 +0,0 @@ -*Squot-Tools -setUpTreeRoot: aMergeNode toEditMerge: aMerge - aMergeNode - includeBlock: [self chooseIncoming]; - excludeBlock: [self chooseWorking]; - resetBlock: [self resetChoice]. \ No newline at end of file diff --git a/src/Squot.package/SquotContainerConflict.class/instance/setUpTreeRoot.toEditPatch..st b/src/Squot.package/SquotContainerConflict.class/instance/setUpTreeRoot.toEditPatch..st deleted file mode 100644 index 087ca0b8b..000000000 --- a/src/Squot.package/SquotContainerConflict.class/instance/setUpTreeRoot.toEditPatch..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -setUpTreeRoot: aDiffNode toEditPatch: aMerge - "Node is already sufficiently set up" \ No newline at end of file diff --git a/src/Squot.package/SquotContainerConflict.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotContainerConflict.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index 87de7179a..000000000 --- a/src/Squot.package/SquotContainerConflict.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,6 +0,0 @@ -*Squot-Tools -squotChangeAsStringOrText - ^ (Text fromString: 'Conflict: ') allBold - append: working squotChangeAsStringOrText; - append: (Text fromString: ' vs. ') allBold; - append: incoming squotChangeAsStringOrText \ No newline at end of file diff --git a/src/Squot.package/SquotContainerConflict.class/instance/toggleWhetherToLoad.st b/src/Squot.package/SquotContainerConflict.class/instance/toggleWhetherToLoad.st deleted file mode 100644 index 66282ac7f..000000000 --- a/src/Squot.package/SquotContainerConflict.class/instance/toggleWhetherToLoad.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -toggleWhetherToLoad - working isRemoval not ifTrue: [working toggleWhetherToLoad]. - incoming isRemoval not ifTrue: [incoming toggleWhetherToLoad]. - resolution ifNotNil: [resolution isRemoval not ifTrue: [resolution toggleWhetherToLoad]]. \ No newline at end of file diff --git a/src/Squot.package/SquotContainerConflict.class/instance/willBeLoaded.st b/src/Squot.package/SquotContainerConflict.class/instance/willBeLoaded.st deleted file mode 100644 index 157696214..000000000 --- a/src/Squot.package/SquotContainerConflict.class/instance/willBeLoaded.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -willBeLoaded - ^ (resolution ifNil: [working]) willBeLoaded \ No newline at end of file diff --git a/src/Squot.package/SquotContainerConflict.class/instance/workingDiff..st b/src/Squot.package/SquotContainerConflict.class/instance/workingDiff..st deleted file mode 100644 index d3bfcc469..000000000 --- a/src/Squot.package/SquotContainerConflict.class/instance/workingDiff..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -workingDiff: anArtifactDiff - base := anArtifactDiff left. - working := anArtifactDiff. \ No newline at end of file diff --git a/src/Squot.package/SquotContainerConflict.class/methodProperties.json b/src/Squot.package/SquotContainerConflict.class/methodProperties.json deleted file mode 100644 index 3d144a6ab..000000000 --- a/src/Squot.package/SquotContainerConflict.class/methodProperties.json +++ /dev/null @@ -1,19 +0,0 @@ -{ - "class" : { - "workingDiff:conflictingDiff:" : "jr 6/9/2019 02:56" }, - "instance" : { - "asDiffTree" : "jr 12/22/2019 23:27", - "chooseIncoming" : "jr 10/26/2019 21:18", - "diffTreeChildren" : "jr 10/26/2019 21:35", - "diffTreeNodeTitle" : "jr 10/26/2019 21:34", - "incomingArtifact" : "jr 7/23/2019 00:32", - "incomingDiff:" : "jr 7/22/2019 22:38", - "mayAffectArtifact" : "jr 11/6/2020 23:38", - "path" : "jr 7/22/2019 22:52", - "preparedResolution" : "jr 10/26/2019 21:18", - "setUpTreeRoot:toEditMerge:" : "jr 8/15/2019 01:43", - "setUpTreeRoot:toEditPatch:" : "jr 7/22/2019 23:07", - "squotChangeAsStringOrText" : "jr 7/22/2019 23:11", - "toggleWhetherToLoad" : "jr 11/22/2020 23:49", - "willBeLoaded" : "jr 11/22/2020 23:34", - "workingDiff:" : "jr 7/22/2019 22:38" } } diff --git a/src/Squot.package/SquotContainerConflict.class/properties.json b/src/Squot.package/SquotContainerConflict.class/properties.json deleted file mode 100644 index ff7346984..000000000 --- a/src/Squot.package/SquotContainerConflict.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Merging", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 10/26/2019 21:17", - "instvars" : [ - "preparedResolution" ], - "name" : "SquotContainerConflict", - "pools" : [ - ], - "super" : "SquotConflict", - "type" : "normal" } diff --git a/src/Squot.package/SquotContainerConflictTest.class/README.md b/src/Squot.package/SquotContainerConflictTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotContainerConflictTest.class/instance/testAdditionAndAdditionFormMerge.st b/src/Squot.package/SquotContainerConflictTest.class/instance/testAdditionAndAdditionFormMerge.st deleted file mode 100644 index b94c82119..000000000 --- a/src/Squot.package/SquotContainerConflictTest.class/instance/testAdditionAndAdditionFormMerge.st +++ /dev/null @@ -1,18 +0,0 @@ -tests -testAdditionAndAdditionFormMerge - | base working incoming merge expected | - base := SquotSnapshot empty. - working := SquotSnapshot builder - add: (SquotArtifactMock new path: 'a'); - buildSnapshot. - incoming := SquotSnapshot builder - add: (SquotArtifactMock new path: 'a'); - buildSnapshot. - (working artifactAt: 'a') whenMergeWith: (incoming artifactAt: 'a') - return: [expected := SquotArtifactMerge new - working: (working artifactAt: 'a'); - graphMerge: (SquotGraphMergeMock new hasChanges: true)]. - "when" - merge := SquotMerge into: working merge: incoming basedOn: base. - "then" - self assert: (merge at: 'a') == expected. \ No newline at end of file diff --git a/src/Squot.package/SquotContainerConflictTest.class/instance/testChangeAndRemovalFormConflict.st b/src/Squot.package/SquotContainerConflictTest.class/instance/testChangeAndRemovalFormConflict.st deleted file mode 100644 index 898c0f831..000000000 --- a/src/Squot.package/SquotContainerConflictTest.class/instance/testChangeAndRemovalFormConflict.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testChangeAndRemovalFormConflict - | base working incoming merge | - base := SquotSnapshot builder - add: (SquotArtifact new path: 'a'; content: SquotArtifactContentMock new); - buildSnapshot. - working := SquotSnapshot builder - add: (SquotArtifact new path: 'a'; content: SquotArtifactContentMock new); - buildSnapshot. - incoming := SquotSnapshot empty. - (base artifactAt: 'a') content whenComparedReturnMock. - "when" - merge := SquotMerge into: working merge: incoming basedOn: base. - "then" - self assert: (merge at: 'a') isConflict. \ No newline at end of file diff --git a/src/Squot.package/SquotContainerConflictTest.class/instance/testRemovalAndChangeFormConflict.st b/src/Squot.package/SquotContainerConflictTest.class/instance/testRemovalAndChangeFormConflict.st deleted file mode 100644 index 4a4bdb301..000000000 --- a/src/Squot.package/SquotContainerConflictTest.class/instance/testRemovalAndChangeFormConflict.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testRemovalAndChangeFormConflict - | base working incoming merge | - base := SquotSnapshot builder - add: (SquotArtifact new path: 'a'; content: SquotArtifactContentMock new); - buildSnapshot. - working := SquotSnapshot empty. - incoming := SquotSnapshot builder - add: (SquotArtifact new path: 'a'; content: SquotArtifactContentMock new); - buildSnapshot. - (base artifactAt: 'a') content whenComparedReturnMock. - "when" - merge := SquotMerge into: working merge: incoming basedOn: base. - "then" - self assert: (merge at: 'a') isConflict. \ No newline at end of file diff --git a/src/Squot.package/SquotContainerConflictTest.class/instance/testRemovalAndRemovalResolvesTrivially.st b/src/Squot.package/SquotContainerConflictTest.class/instance/testRemovalAndRemovalResolvesTrivially.st deleted file mode 100644 index 3e10ee53d..000000000 --- a/src/Squot.package/SquotContainerConflictTest.class/instance/testRemovalAndRemovalResolvesTrivially.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testRemovalAndRemovalResolvesTrivially - | base working incoming merge | - base := SquotSnapshot builder - add: (SquotArtifact new path: 'a'; content: SquotArtifactContentMock new); - buildSnapshot. - working := SquotSnapshot empty. - incoming := SquotSnapshot empty. - "when" - merge := SquotMerge into: working merge: incoming basedOn: base. - "then" - self deny: (merge modifies: (base artifactAt: 'a')). \ No newline at end of file diff --git a/src/Squot.package/SquotContainerConflictTest.class/methodProperties.json b/src/Squot.package/SquotContainerConflictTest.class/methodProperties.json deleted file mode 100644 index ab6e4ff75..000000000 --- a/src/Squot.package/SquotContainerConflictTest.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testAdditionAndAdditionFormMerge" : "jr 7/30/2019 00:01", - "testChangeAndRemovalFormConflict" : "jr 7/29/2019 23:51", - "testRemovalAndChangeFormConflict" : "jr 7/30/2019 00:05", - "testRemovalAndRemovalResolvesTrivially" : "jr 8/3/2019 21:28" } } diff --git a/src/Squot.package/SquotContainerConflictTest.class/properties.json b/src/Squot.package/SquotContainerConflictTest.class/properties.json deleted file mode 100644 index a1e7eae07..000000000 --- a/src/Squot.package/SquotContainerConflictTest.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Tests-Merging", - "classinstvars" : [ - ], - "classtraitcomposition" : "TTestCaseSuppressingProgressDisplay classTrait", - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotContainerConflictTest", - "pools" : [ - ], - "super" : "TestCase", - "traitcomposition" : "TTestCaseSuppressingProgressDisplay", - "type" : "normal" } diff --git a/src/Squot.package/SquotCreatorDecorator.class/README.md b/src/Squot.package/SquotCreatorDecorator.class/README.md deleted file mode 100644 index 614dcbe9e..000000000 --- a/src/Squot.package/SquotCreatorDecorator.class/README.md +++ /dev/null @@ -1,5 +0,0 @@ -I decorate an object with its "owner" object (or the first other object that refers to the decorated object) and the slot that contains the decorated object. - -Instance Variables - creator: that owns or prominently refers to the decorated object - creatorSlot: a Slot in the creator through which the decorated object is reached \ No newline at end of file diff --git a/src/Squot.package/SquotCreatorDecorator.class/class/on.creator.slot..st b/src/Squot.package/SquotCreatorDecorator.class/class/on.creator.slot..st deleted file mode 100644 index 248b9ef87..000000000 --- a/src/Squot.package/SquotCreatorDecorator.class/class/on.creator.slot..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -on: anObject creator: creatorObject slot: slot - ^ self new - decorated: anObject withCreator: creatorObject slot: slot; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotCreatorDecorator.class/instance/creator.st b/src/Squot.package/SquotCreatorDecorator.class/instance/creator.st deleted file mode 100644 index 4f4d20659..000000000 --- a/src/Squot.package/SquotCreatorDecorator.class/instance/creator.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -creator - ^ creator \ No newline at end of file diff --git a/src/Squot.package/SquotCreatorDecorator.class/instance/creatorSlot.st b/src/Squot.package/SquotCreatorDecorator.class/instance/creatorSlot.st deleted file mode 100644 index 83e15e449..000000000 --- a/src/Squot.package/SquotCreatorDecorator.class/instance/creatorSlot.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -creatorSlot - ^ creatorSlot \ No newline at end of file diff --git a/src/Squot.package/SquotCreatorDecorator.class/instance/decorated.withCreator.slot..st b/src/Squot.package/SquotCreatorDecorator.class/instance/decorated.withCreator.slot..st deleted file mode 100644 index c54a6fa17..000000000 --- a/src/Squot.package/SquotCreatorDecorator.class/instance/decorated.withCreator.slot..st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -decorated: aShadow withCreator: theCreatorShadow slot: aShadowSlot - decoratedObject := aShadow. - creator := theCreatorShadow. - creatorSlot := aShadowSlot. \ No newline at end of file diff --git a/src/Squot.package/SquotCreatorDecorator.class/instance/printOn..st b/src/Squot.package/SquotCreatorDecorator.class/instance/printOn..st deleted file mode 100644 index 2901eeb0c..000000000 --- a/src/Squot.package/SquotCreatorDecorator.class/instance/printOn..st +++ /dev/null @@ -1,4 +0,0 @@ -printing -printOn: aStream - aStream print: decoratedObject; - nextPutAll: ' with creator'. \ No newline at end of file diff --git a/src/Squot.package/SquotCreatorDecorator.class/methodProperties.json b/src/Squot.package/SquotCreatorDecorator.class/methodProperties.json deleted file mode 100644 index 48f60403d..000000000 --- a/src/Squot.package/SquotCreatorDecorator.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - "on:creator:slot:" : "jr 6/20/2017 16:08" }, - "instance" : { - "creator" : "jr 6/20/2017 16:16", - "creatorSlot" : "jr 6/20/2017 15:35", - "decorated:withCreator:slot:" : "jr 6/20/2017 16:16", - "printOn:" : "jr 6/20/2017 16:32" } } diff --git a/src/Squot.package/SquotCreatorDecorator.class/properties.json b/src/Squot.package/SquotCreatorDecorator.class/properties.json deleted file mode 100644 index 0e735b3a1..000000000 --- a/src/Squot.package/SquotCreatorDecorator.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-Capturing", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 17:52", - "instvars" : [ - "creatorSlot", - "creator" ], - "name" : "SquotCreatorDecorator", - "pools" : [ - ], - "super" : "SquotDecorator", - "type" : "normal" } diff --git a/src/Squot.package/SquotCurrentMetadata.class/README.md b/src/Squot.package/SquotCurrentMetadata.class/README.md deleted file mode 100644 index a9d0dfbc3..000000000 --- a/src/Squot.package/SquotCurrentMetadata.class/README.md +++ /dev/null @@ -1,3 +0,0 @@ -Dynamic variable to access the metadata about the currently processed object graph. - -The type is SquotTrackedObjectMetadata. \ No newline at end of file diff --git a/src/Squot.package/SquotCurrentMetadata.class/class/default.st b/src/Squot.package/SquotCurrentMetadata.class/class/default.st deleted file mode 100644 index 3cdd1cfaf..000000000 --- a/src/Squot.package/SquotCurrentMetadata.class/class/default.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -default - ^ SquotTrackedObjectMetadata new \ No newline at end of file diff --git a/src/Squot.package/SquotCurrentMetadata.class/methodProperties.json b/src/Squot.package/SquotCurrentMetadata.class/methodProperties.json deleted file mode 100644 index 43e07fbd1..000000000 --- a/src/Squot.package/SquotCurrentMetadata.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "default" : "jr 10/1/2017 21:48" }, - "instance" : { - } } diff --git a/src/Squot.package/SquotCurrentMetadata.class/properties.json b/src/Squot.package/SquotCurrentMetadata.class/properties.json deleted file mode 100644 index f9ea7c026..000000000 --- a/src/Squot.package/SquotCurrentMetadata.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Capturing", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 17:51", - "instvars" : [ - ], - "name" : "SquotCurrentMetadata", - "pools" : [ - ], - "super" : "DynamicVariable", - "type" : "normal" } diff --git a/src/Squot.package/SquotCurrentWorkingCopySnapshotBlock.class/README.md b/src/Squot.package/SquotCurrentWorkingCopySnapshotBlock.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotCurrentWorkingCopySnapshotBlock.class/methodProperties.json b/src/Squot.package/SquotCurrentWorkingCopySnapshotBlock.class/methodProperties.json deleted file mode 100644 index 0e4a66223..000000000 --- a/src/Squot.package/SquotCurrentWorkingCopySnapshotBlock.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - } } diff --git a/src/Squot.package/SquotCurrentWorkingCopySnapshotBlock.class/properties.json b/src/Squot.package/SquotCurrentWorkingCopySnapshotBlock.class/properties.json deleted file mode 100644 index 77222c48d..000000000 --- a/src/Squot.package/SquotCurrentWorkingCopySnapshotBlock.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-WorkingCopies", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotCurrentWorkingCopySnapshotBlock", - "pools" : [ - ], - "super" : "DynamicVariable", - "type" : "normal" } diff --git a/src/Squot.package/SquotCypressCodeDeserializer.class/README.md b/src/Squot.package/SquotCypressCodeDeserializer.class/README.md deleted file mode 100644 index c2edb6453..000000000 --- a/src/Squot.package/SquotCypressCodeDeserializer.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I read Smalltalk code from Cypress-formatted file trees and convert them to Monticello snapshots. I use a modified MCFileTreeStCypressReader to accomplish this. \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeDeserializer.class/class/canReadObjectSerializedBy..st b/src/Squot.package/SquotCypressCodeDeserializer.class/class/canReadObjectSerializedBy..st deleted file mode 100644 index fb4673503..000000000 --- a/src/Squot.package/SquotCypressCodeDeserializer.class/class/canReadObjectSerializedBy..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot deserialization -canReadObjectSerializedBy: serializerName - ^ serializerName beginsWith: 'SquotCypressCodeSerializer' "version?" \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeDeserializer.class/instance/fillContentOf.from..st b/src/Squot.package/SquotCypressCodeDeserializer.class/instance/fillContentOf.from..st deleted file mode 100644 index b3639cb0b..000000000 --- a/src/Squot.package/SquotCypressCodeDeserializer.class/instance/fillContentOf.from..st +++ /dev/null @@ -1,20 +0,0 @@ -Squot deserialization -fillContentOf: anArtifact from: aDirectory - | classOfStoredObject isClass packageDirectory packageName snapshot | - self flag: 'magic constant PackageInfo'. - classOfStoredObject := anArtifact storeInfo at: #objectClassName ifAbsent: ['PackageInfo']. - isClass := classOfStoredObject endsWith: ' class'. - isClass - ifTrue: [self initializeCypressReaderToReadClassFrom: aDirectory] - ifFalse: [self initializeCypressReaderToReadPackageFrom: aDirectory]. - packageDirectory := isClass ifTrue: [aDirectory parent] ifFalse: [aDirectory]. - packageName := packageDirectory basename first: packageDirectory basename size - '.package' size. - snapshot := isClass - ifFalse: [cypressReader snapshot] - ifTrue: [ | className | className := classOfStoredObject substrings first. - MCSnapshot fromDefinitions: (cypressReader definitions - select: [:each | (each respondsTo: #className) and: [each className = className]])]. - anArtifact content: (SquotShadowGraph withSingleShadow: - ((isClass ifTrue: [SquotClassShadow] ifFalse: [SquotPackageShadow]) - forPackageNamed: packageName - withSnapshot: snapshot squotWithSortedDefinitions)). \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeDeserializer.class/instance/initialize.st b/src/Squot.package/SquotCypressCodeDeserializer.class/instance/initialize.st deleted file mode 100644 index 488f62813..000000000 --- a/src/Squot.package/SquotCypressCodeDeserializer.class/instance/initialize.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -initialize - fileUtils := MCFileTreeFileSystemUtilsForSquot new. \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeDeserializer.class/instance/initializeCypressReaderToReadClassFrom..st b/src/Squot.package/SquotCypressCodeDeserializer.class/instance/initializeCypressReaderToReadClassFrom..st deleted file mode 100644 index 47be737bc..000000000 --- a/src/Squot.package/SquotCypressCodeDeserializer.class/instance/initializeCypressReaderToReadClassFrom..st +++ /dev/null @@ -1,8 +0,0 @@ -Squot deserialization -initializeCypressReaderToReadClassFrom: aDirectory - | packageDirectory | - cypressReader := MCFileTreeStCypressReaderWithSettableFileUtils on: aDirectory. - cypressReader fileUtils: fileUtils. - fileUtils directory: aDirectory. - packageDirectory := aDirectory parent. - cypressReader packageDirectory: packageDirectory pathString. \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeDeserializer.class/instance/initializeCypressReaderToReadPackageFrom..st b/src/Squot.package/SquotCypressCodeDeserializer.class/instance/initializeCypressReaderToReadPackageFrom..st deleted file mode 100644 index ded908fa2..000000000 --- a/src/Squot.package/SquotCypressCodeDeserializer.class/instance/initializeCypressReaderToReadPackageFrom..st +++ /dev/null @@ -1,6 +0,0 @@ -Squot deserialization -initializeCypressReaderToReadPackageFrom: aDirectory - cypressReader := MCFileTreeStCypressReaderWithSettableFileUtils on: aDirectory. - cypressReader fileUtils: fileUtils. - fileUtils directory: aDirectory. - cypressReader packageDirectory: aDirectory pathString. \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeDeserializer.class/methodProperties.json b/src/Squot.package/SquotCypressCodeDeserializer.class/methodProperties.json deleted file mode 100644 index 827ca53a9..000000000 --- a/src/Squot.package/SquotCypressCodeDeserializer.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - "canReadObjectSerializedBy:" : "jr 1/18/2017 16:29" }, - "instance" : { - "fillContentOf:from:" : "jr 7/30/2017 02:08", - "initialize" : "jr 1/18/2017 17:17", - "initializeCypressReaderToReadClassFrom:" : "jr 7/22/2017 02:19", - "initializeCypressReaderToReadPackageFrom:" : "jr 7/22/2017 02:18" } } diff --git a/src/Squot.package/SquotCypressCodeDeserializer.class/properties.json b/src/Squot.package/SquotCypressCodeDeserializer.class/properties.json deleted file mode 100644 index 37d1647f6..000000000 --- a/src/Squot.package/SquotCypressCodeDeserializer.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-Serialization-Cypress", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 19:36", - "instvars" : [ - "fileUtils", - "cypressReader" ], - "name" : "SquotCypressCodeDeserializer", - "pools" : [ - ], - "super" : "SquotDeserializer", - "type" : "normal" } diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/README.md b/src/Squot.package/SquotCypressCodeSerializer.class/README.md deleted file mode 100644 index 5d6426595..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/README.md +++ /dev/null @@ -1,9 +0,0 @@ -I write Smalltalk classes in Cypress format. I use a modified MCFileTreeStCypressWriter to accomplish this. - -My code is mostly based on MCPackage snapshot, but without PackageInfo unless a Package is to be written. - -Instance Variables - definitions: - -definitions - - xxxxx diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/class/addPackageAndClassDirectoryForClass.to..st b/src/Squot.package/SquotCypressCodeSerializer.class/class/addPackageAndClassDirectoryForClass.to..st deleted file mode 100644 index 955453753..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/class/addPackageAndClassDirectoryForClass.to..st +++ /dev/null @@ -1,6 +0,0 @@ -as yet unclassified -addPackageAndClassDirectoryForClass: aClassShadow to: pathElements - ^ pathElements, { - aClassShadow packageName, '.package'. - aClassShadow className, '.class' } - joinSeparatedBy: $/ \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/class/addPackageDirectoryForPackage.to..st b/src/Squot.package/SquotCypressCodeSerializer.class/class/addPackageDirectoryForPackage.to..st deleted file mode 100644 index 71f293e7b..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/class/addPackageDirectoryForPackage.to..st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -addPackageDirectoryForPackage: aPackageShadow to: pathElements - ^ pathElements, {aPackageShadow packageName, '.package'} joinSeparatedBy: $/ \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/class/rewritePath.for..st b/src/Squot.package/SquotCypressCodeSerializer.class/class/rewritePath.for..st deleted file mode 100644 index ef4399074..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/class/rewritePath.for..st +++ /dev/null @@ -1,4 +0,0 @@ -as yet unclassified -rewritePath: pathString for: anObject - "Append package and class directory if necessary." - ^ anObject squotRewritePath: pathString with: self "double dispatch" \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/class/rewritePath.ofClass..st b/src/Squot.package/SquotCypressCodeSerializer.class/class/rewritePath.ofClass..st deleted file mode 100644 index e03c35d94..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/class/rewritePath.ofClass..st +++ /dev/null @@ -1,12 +0,0 @@ -as yet unclassified -rewritePath: pathString ofClass: aClassShadow - "Append package and class directory if necessary." - | elements | - elements := pathString squotPathSegments. - elements size < 2 - ifTrue: [^ self addPackageAndClassDirectoryForClass: aClassShadow to: elements]. - ((elements at: elements size - 1) endsWith: '.package') - ifFalse: [^ self addPackageAndClassDirectoryForClass: aClassShadow to: elements]. - (elements last = (aClassShadow className, '.class')) - ifFalse: [^ self addPackageAndClassDirectoryForClass: aClassShadow to: elements]. - ^ pathString \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/class/rewritePath.ofPackage..st b/src/Squot.package/SquotCypressCodeSerializer.class/class/rewritePath.ofPackage..st deleted file mode 100644 index b297c5a11..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/class/rewritePath.ofPackage..st +++ /dev/null @@ -1,13 +0,0 @@ -as yet unclassified -rewritePath: pathString ofPackage: aPackageShadow - "Append package directory if necessary." - | elements packageName | - elements := pathString squotPathSegments. - elements ifEmpty: - [^ self addPackageDirectoryForPackage: aPackageShadow to: elements]. - packageName := aPackageShadow packageName. - elements last = (packageName, '.package') ifTrue: [^ pathString]. - (elements last beginsWith: packageName) ifTrue: - [^ self addPackageDirectoryForPackage: aPackageShadow - to: elements allButLast]. - ^ self addPackageDirectoryForPackage: aPackageShadow to: elements \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/class/userFriendlyTitle.st b/src/Squot.package/SquotCypressCodeSerializer.class/class/userFriendlyTitle.st deleted file mode 100644 index 3e2542d4d..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/class/userFriendlyTitle.st +++ /dev/null @@ -1,3 +0,0 @@ -user interface -userFriendlyTitle - ^ 'Cypress/FileTree format' \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/instance/canWriteDiffs.st b/src/Squot.package/SquotCypressCodeSerializer.class/instance/canWriteDiffs.st deleted file mode 100644 index f8b67b857..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/instance/canWriteDiffs.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -canWriteDiffs - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/instance/delete..st b/src/Squot.package/SquotCypressCodeSerializer.class/instance/delete..st deleted file mode 100644 index fa4fc3148..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/instance/delete..st +++ /dev/null @@ -1,9 +0,0 @@ -private -delete: aMCDefinition - aMCDefinition isMethodDefinition ifTrue: [^ self deleteMethod: aMCDefinition]. - aMCDefinition isClassDefinition ifTrue: [^ self deleteClassifier: aMCDefinition]. - "isClassDefinition is also true for MCTraitDefinition" - aMCDefinition isScriptDefinition ifTrue: [^ self deleteScript: aMCDefinition]. - (aMCDefinition isKindOf: MCClassTraitDefinition) ifTrue: [^ self "nothing to delete, but the base trait definition must be written out"]. - self halt. - \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/instance/deleteClassifier..st b/src/Squot.package/SquotCypressCodeSerializer.class/instance/deleteClassifier..st deleted file mode 100644 index 70ea97a01..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/instance/deleteClassifier..st +++ /dev/null @@ -1,6 +0,0 @@ -private -deleteClassifier: aMCClassDefinition - | classPath | - classPath := aMCClassDefinition className, (aMCClassDefinition isTraitDefinition ifTrue: ['.trait'] ifFalse: ['.class']). - self flag: #todo. "isTraitDefinition is currently provided by the MonticelloTonel package and Cypress serialization should not depend on Tonel" - (currentDirectory resolve: classPath) deleteAll. \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/instance/deleteExtension..st b/src/Squot.package/SquotCypressCodeSerializer.class/instance/deleteExtension..st deleted file mode 100644 index 4d0d5f90b..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/instance/deleteExtension..st +++ /dev/null @@ -1,5 +0,0 @@ -private -deleteExtension: classNameSymbol - | path | - path := classNameSymbol, '.extension'. - (currentDirectory resolve: path) deleteAll. \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/instance/deleteMethod..st b/src/Squot.package/SquotCypressCodeSerializer.class/instance/deleteMethod..st deleted file mode 100644 index a7c7a2df5..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/instance/deleteMethod..st +++ /dev/null @@ -1,12 +0,0 @@ -private -deleteMethod: aMCMethodDefinition - | fileNameMap classifier | - fileNameMap := cypressWriter fileNameMapFor: {aMCMethodDefinition}. - classifier := definitions detect: [:each | each isClassDefinition and: [each className = aMCMethodDefinition className]] ifNone: []. - classifier - ifNotNil: - [(cypressWriter fileUtils directory / (aMCMethodDefinition className, (classifier isTraitDefinition ifTrue: ['.trait'] ifFalse: ['.class'])) / (aMCMethodDefinition classIsMeta ifTrue: ['class'] ifFalse: ['instance']) / ((fileNameMap at: aMCMethodDefinition classIsMeta) at: aMCMethodDefinition selector), 'st') - delete] - ifNil: "extension method removed" - [(cypressWriter fileUtils directory / (aMCMethodDefinition className, ('.extension')) / (aMCMethodDefinition classIsMeta ifTrue: ['class'] ifFalse: ['instance']) / ((fileNameMap at: aMCMethodDefinition classIsMeta) at: aMCMethodDefinition selector), 'st') - delete] \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/instance/deleteScript..st b/src/Squot.package/SquotCypressCodeSerializer.class/instance/deleteScript..st deleted file mode 100644 index 937fc4b36..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/instance/deleteScript..st +++ /dev/null @@ -1,5 +0,0 @@ -private -deleteScript: aMCScriptDefinition - | file | - file := currentDirectory / cypressWriter monticelloMetaDirName / (aMCScriptDefinition scriptSelector asString, '.st'). - file delete. \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/instance/directory.st b/src/Squot.package/SquotCypressCodeSerializer.class/instance/directory.st deleted file mode 100644 index 18fe040a2..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/instance/directory.st +++ /dev/null @@ -1,3 +0,0 @@ -private -directory - ^ currentDirectory \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/instance/initialize.st b/src/Squot.package/SquotCypressCodeSerializer.class/instance/initialize.st deleted file mode 100644 index eb5c37c86..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/instance/initialize.st +++ /dev/null @@ -1,9 +0,0 @@ -initialize-release -initialize - super initialize. - definitions := OrderedCollection new. - fileUtils := MCFileTreeFileSystemUtilsForSquot new. - fileTreeWriter := MCFileTreeWriterWithSettableFileUtils on: self "as impostor MCRepository". - fileTreeWriter fileUtils: fileUtils. - cypressWriter := MCFileTreeStCypressWriterWithSettableFileUtils on: fileTreeWriter. - cypressWriter fileUtils: fileUtils. \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/instance/initializeFileTreeWritersInPackageDirectory..st b/src/Squot.package/SquotCypressCodeSerializer.class/instance/initializeFileTreeWritersInPackageDirectory..st deleted file mode 100644 index 78cee66f0..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/instance/initializeFileTreeWritersInPackageDirectory..st +++ /dev/null @@ -1,7 +0,0 @@ -private -initializeFileTreeWritersInPackageDirectory: aDirectoryReference - currentDirectory := aDirectoryReference. - currentDirectory ensureDirectory. - fileTreeWriter directory: currentDirectory pathString. - fileUtils directory: currentDirectory. - fileTreeWriter initializePackageFileDirectoryCache. \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/instance/propertiesFileContents.st b/src/Squot.package/SquotCypressCodeSerializer.class/instance/propertiesFileContents.st deleted file mode 100644 index 59768e9f2..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/instance/propertiesFileContents.st +++ /dev/null @@ -1,7 +0,0 @@ -Squot serialization -propertiesFileContents - "For IceBerg repositories." - ^ '{ - #format : #filetree -} -' \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/instance/propertyFileExtension.st b/src/Squot.package/SquotCypressCodeSerializer.class/instance/propertyFileExtension.st deleted file mode 100644 index 62d778cf4..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/instance/propertyFileExtension.st +++ /dev/null @@ -1,3 +0,0 @@ -MCRepository -propertyFileExtension - ^ '.json' \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/instance/version.st b/src/Squot.package/SquotCypressCodeSerializer.class/instance/version.st deleted file mode 100644 index 27cb7b3ab..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/instance/version.st +++ /dev/null @@ -1,3 +0,0 @@ -Squot serialization -version - ^ '1' \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/instance/write..st b/src/Squot.package/SquotCypressCodeSerializer.class/instance/write..st deleted file mode 100644 index 40f9fdf7f..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/instance/write..st +++ /dev/null @@ -1,6 +0,0 @@ -Squot serialization -write: anArtifact - self initialize. - ((anArtifact storeInfo at: #objectClassName ifAbsent: [#PackageInfo]) endsWith: ' class') - ifTrue: [self writeClass: anArtifact] - ifFalse: [self writePackage: anArtifact] \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/instance/writeClass..st b/src/Squot.package/SquotCypressCodeSerializer.class/instance/writeClass..st deleted file mode 100644 index 53082cf93..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/instance/writeClass..st +++ /dev/null @@ -1,6 +0,0 @@ -private -writeClass: anArtifact - "initialize writers in the parent (package) directory, because they operate on packages" - self initializeFileTreeWritersInPackageDirectory: (rootDirectory resolve: anArtifact path) parent. - anArtifact shadowOfTrackedObject squotWrite: anArtifact with: self. - self writePropertiesIfExists. \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/instance/writeDefinitions..st b/src/Squot.package/SquotCypressCodeSerializer.class/instance/writeDefinitions..st deleted file mode 100644 index 63d70d00a..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/instance/writeDefinitions..st +++ /dev/null @@ -1,4 +0,0 @@ -private -writeDefinitions: aCollectionOfMCDefinitions - definitions addAll: aCollectionOfMCDefinitions. - cypressWriter writeDefinitions: definitions. \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/instance/writeDiff..st b/src/Squot.package/SquotCypressCodeSerializer.class/instance/writeDiff..st deleted file mode 100644 index 04c0502bf..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/instance/writeDiff..st +++ /dev/null @@ -1,87 +0,0 @@ -Squot serialization -writeDiff: aSquotArtifactDiff - | directory mcPatch newDefinitions classifierDefinitions missingClassifiers removedMethods removedClassifiers removedClassTraits removedOthers allMethods allClassifiers extensions classTraits missingClassTraits | - aSquotArtifactDiff isAddition ifTrue: [^ self write: aSquotArtifactDiff right]. - aSquotArtifactDiff isRemoval ifTrue: [^ self notYetImplemented]. - self assert: aSquotArtifactDiff isModification. - aSquotArtifactDiff content squotHasChanges ifFalse: [^ self "nothing to do"]. - directory := ((aSquotArtifactDiff right storeInfo at: #objectClassName ifAbsent: [#PackageInfo]) endsWith: ' class') - ifTrue: [(rootDirectory resolve: aSquotArtifactDiff path) parent] - ifFalse: [rootDirectory resolve: aSquotArtifactDiff path]. - self initializeFileTreeWritersInPackageDirectory: directory. - removedMethods := Dictionary new. - removedClassifiers := Dictionary new. - removedClassTraits := Dictionary new. - removedOthers := Dictionary new. - classTraits := Dictionary new. - mcPatch := aSquotArtifactDiff content startDiff patch. - newDefinitions := OrderedCollection new: mcPatch operations size. - mcPatch operations do: - [:each | - each isRemoval - ifTrue: [ each definition isMethodDefinition ifTrue: [removedMethods at: each definition description put: each definition]. - each definition isClassDefinition ifTrue: [removedClassifiers at: each definition description put: each definition]. - (each definition isTraitDefinition and: [each definition isClassDefinition not]) ifTrue: [removedClassTraits at: each baseTrait put: each definition]. - (each definition isMethodDefinition not and: [each definition isClassDefinition not and: [each definition isTraitDefinition not]]) - ifTrue: [removedOthers at: each definition description put: each definition]]. - each isAddition ifTrue: [newDefinitions add: each definition]. - each isModification ifTrue: [newDefinitions add: each modification]]. - "If class traits are modified, there is both an addition and a removal for them, instead of a modification." - (newDefinitions select: [:each | each isTraitDefinition and: [each isClassDefinition not]]) - do: [:each | - classTraits at: each baseTrait put: each. - removedClassTraits removeKey: each baseTrait ifAbsent: []]. - "Add missing class definitions or the cypress writer will treat methods as extensions. Also, to remove or change class traits definitions, the base trait must be written out." - classifierDefinitions := (newDefinitions select: [:each | each isClassDefinition "also covers baseTraits, but not classTraits (no problem)"]) collect: [:each | each className -> each] as: Dictionary. - allClassifiers := classifierDefinitions copy. - aSquotArtifactDiff content startDiff working definitions do: - [:each | (each isClassDefinition and: [(removedClassifiers includesKey: each description) not]) - ifTrue: [allClassifiers at: each className ifAbsentPut: [each]]. - (each isTraitDefinition and: [each isClassDefinition not]) - ifTrue: [classTraits at: each baseTrait ifAbsentPut: [each]]]. - missingClassifiers := ((((newDefinitions select: [:each | (each isMethodDefinition and: [(classifierDefinitions includesKey: each className) not]) or: [each summary endsWith: ' classTrait']]), - (removedMethods values select: [:each | (classifierDefinitions includesKey: each className) not]), - (removedClassTraits values select: [:each | (each summary endsWith: ' classTrait') and: [(classifierDefinitions includesKey: each className) not]])) - collect: [:each | each className] as: Set) asArray - collect: [:each | allClassifiers at: each ifAbsent: []]) - reject: [:each | each isNil]. - missingClassTraits := OrderedCollection new. - newDefinitions do: - [:each | | classTrait | - (each isTraitDefinition and: [each isClassDefinition "i. e. is a baseTrait"]) - ifTrue: - [classTrait := classTraits at: each className. - (newDefinitions includes: classTrait) ifFalse: [missingClassTraits add: classTrait]]]. - (missingClassifiers select: [:each | each isTraitDefinition]) - do: [:each | | classTrait | classTrait := classTraits at: each className ifAbsent: []. - (classTrait notNil and: [(newDefinitions includes: classTrait) not]) - ifTrue: [missingClassTraits add: classTrait]]. - cypressWriter writeDefinitions: newDefinitions, missingClassifiers, missingClassTraits. - "Fix up methodProperties.json files (they now only include the methods that were newly written)." - allMethods := (newDefinitions select: [:each | each isMethodDefinition]) collect: [:each | each description -> each] as: Dictionary. - aSquotArtifactDiff content startDiff working definitions do: - [:each | (each isMethodDefinition and: [(removedMethods includesKey: each description) not]) ifTrue: [allMethods at: each description ifAbsentPut: [each]]]. - allMethods := allMethods groupBy: [:each | each className]. - classifierDefinitions asArray, missingClassifiers do: - [:each | - cypressWriter writeInDirectoryName: each className, (each isTraitDefinition ifTrue: ['.trait'] ifFalse: ['.class']), cypressWriter fileUtils pathNameDelimiter - fileName: 'methodProperties' - extension: cypressWriter propertyFileExtension - visit: [cypressWriter writeMethodProperties: (allMethods at: each className ifAbsent: [#()])]]. - "Fix up methodProperties.json for class extensions" - extensions := allMethods keys reject: [:each | allClassifiers includesKey: each]. - extensions do: - [:each | - cypressWriter writeInDirectoryName: each, '.extension', cypressWriter fileUtils pathNameDelimiter asString - fileName: 'methodProperties' - extension: cypressWriter propertyFileExtension - visit: [cypressWriter writeMethodProperties: (allMethods at: each)]]. - "Delete removed items" - definitions := allMethods values concatenation, allClassifiers values. - removedOthers, removedMethods, removedClassTraits, removedClassifiers do: [:each | self delete: each]. - "Delete empty extensions" - ((((removedMethods groupBy: [:each | each className]) keys - copyWithoutAll: allMethods keys) "to preserve still existing extensions" - copyWithoutAll: allClassifiers keys) "to preserve classes (not extensions) without methods" - copyWithoutAll: (removedClassifiers collect: [:each | each className] as: Array)) "these are not extensions" - do: [:each | self deleteExtension: each]. \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/instance/writeMCSnapshot.forPackageNamed.from..st b/src/Squot.package/SquotCypressCodeSerializer.class/instance/writeMCSnapshot.forPackageNamed.from..st deleted file mode 100644 index 09d4ada50..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/instance/writeMCSnapshot.forPackageNamed.from..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot serialization -writeMCSnapshot: aMCSnapshot forPackageNamed: aString from: anArtifact - ^ aMCSnapshot squotWrite: anArtifact with: self \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/instance/writePackage..st b/src/Squot.package/SquotCypressCodeSerializer.class/instance/writePackage..st deleted file mode 100644 index 482529022..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/instance/writePackage..st +++ /dev/null @@ -1,5 +0,0 @@ -private -writePackage: anArtifact - self initializeFileTreeWritersInPackageDirectory: (rootDirectory resolve: anArtifact path). - anArtifact shadowOfTrackedObject squotWrite: anArtifact with: self. - self writePropertiesIfExists. \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/instance/writePropertiesIfExists.st b/src/Squot.package/SquotCypressCodeSerializer.class/instance/writePropertiesIfExists.st deleted file mode 100644 index d4b7ab5f8..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/instance/writePropertiesIfExists.st +++ /dev/null @@ -1,7 +0,0 @@ -private -writePropertiesIfExists - "For IceBerg repositories." - (currentDirectory parent / '.properties') exists ifTrue: - [currentDirectory parent / '.properties' writeStreamDo: - [:stream | - stream truncate; nextPutAll: self propertiesFileContents]]. \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/methodProperties.json b/src/Squot.package/SquotCypressCodeSerializer.class/methodProperties.json deleted file mode 100644 index 03350bdba..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/methodProperties.json +++ /dev/null @@ -1,28 +0,0 @@ -{ - "class" : { - "addPackageAndClassDirectoryForClass:to:" : "jr 9/20/2017 21:05", - "addPackageDirectoryForPackage:to:" : "jr 9/20/2017 21:01", - "rewritePath:for:" : "jr 1/25/2017 17:23", - "rewritePath:ofClass:" : "jr 9/20/2017 21:04", - "rewritePath:ofPackage:" : "jr 3/17/2019 00:19", - "userFriendlyTitle" : "jr 3/16/2019 15:52" }, - "instance" : { - "canWriteDiffs" : "jr 11/20/2021 15:06", - "delete:" : "jr 8/7/2022 22:38", - "deleteClassifier:" : "jr 11/20/2021 12:27", - "deleteExtension:" : "jr 11/20/2021 12:42", - "deleteMethod:" : "jr 11/20/2021 11:46", - "deleteScript:" : "jr 11/20/2021 20:11", - "directory" : "jr 1/17/2017 14:24", - "initialize" : "jr 2/26/2017 13:55", - "initializeFileTreeWritersInPackageDirectory:" : "jr 2/26/2017 13:56", - "propertiesFileContents" : "jr 9/3/2020 22:47", - "propertyFileExtension" : "jr 1/17/2017 15:19", - "version" : "jr 1/15/2017 19:07", - "write:" : "jr 5/9/2017 18:24", - "writeClass:" : "jr 9/3/2020 22:48", - "writeDefinitions:" : "jr 1/29/2017 21:08", - "writeDiff:" : "jr 8/8/2022 19:29", - "writeMCSnapshot:forPackageNamed:from:" : "jr 3/16/2019 23:35", - "writePackage:" : "jr 9/3/2020 22:47", - "writePropertiesIfExists" : "jr 9/3/2020 22:47" } } diff --git a/src/Squot.package/SquotCypressCodeSerializer.class/properties.json b/src/Squot.package/SquotCypressCodeSerializer.class/properties.json deleted file mode 100644 index 5729a4aed..000000000 --- a/src/Squot.package/SquotCypressCodeSerializer.class/properties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "category" : "Squot-Serialization-Cypress", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 1/17/2017 14:21", - "instvars" : [ - "definitions", - "fileTreeWriter", - "cypressWriter", - "fileUtils", - "currentDirectory" ], - "name" : "SquotCypressCodeSerializer", - "pools" : [ - ], - "super" : "SquotSerializer", - "type" : "normal" } diff --git a/src/Squot.package/SquotCypressCodeSerializerTest.class/README.md b/src/Squot.package/SquotCypressCodeSerializerTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/directoryForTests.st b/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/directoryForTests.st deleted file mode 100644 index e6899ced8..000000000 --- a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/directoryForTests.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -directoryForTests - | directory | - directory := (FileSystem store: (SquotFSStoreSpy on: FileSystem memory store "FileSystem disk store")) referenceTo: FSPath root "FSLocator image parent / 'test'". - directory ensureDirectory. - directory children do: [:each | each deleteAll]. - ^ directory \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testDoesNotWritePropertiesFileByDefault.st b/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testDoesNotWritePropertiesFileByDefault.st deleted file mode 100644 index 35c63434f..000000000 --- a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testDoesNotWritePropertiesFileByDefault.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testDoesNotWritePropertiesFileByDefault - | directory serializer artifact | - directory := FileSystem memory root. - serializer := SquotCypressCodeSerializer writingBelow: directory. - artifact := (MCSnapshot fromDefinitions: {MCOrganizationDefinition categories: #('Empty')}) - asSquotArtifactForPackage: (PackageInfo new packageName: 'Empty'). - serializer write: artifact. - self deny: (directory / '.properties') exists. \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testRewritePathForEmptyPath.st b/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testRewritePathForEmptyPath.st deleted file mode 100644 index 2d3c6da0a..000000000 --- a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testRewritePathForEmptyPath.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testRewritePathForEmptyPath - | path serializerClass | - serializerClass := SquotCypressCodeSerializer. - path := serializerClass rewritePath: '' ofPackage: (PackageInfo new packageName: 'Test'). - self assert: 'Test.package' equals: path. \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testRewritePathForOrdinaryPath.st b/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testRewritePathForOrdinaryPath.st deleted file mode 100644 index 5d557ce65..000000000 --- a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testRewritePathForOrdinaryPath.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testRewritePathForOrdinaryPath - | path serializerClass | - serializerClass := SquotCypressCodeSerializer. - path := serializerClass rewritePath: 'src/test' ofPackage: (PackageInfo new packageName: 'Test'). - self assert: 'src/test/Test.package' equals: path. \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testRewritePathWithPackageAlreadyIncluded.st b/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testRewritePathWithPackageAlreadyIncluded.st deleted file mode 100644 index 766b7b3e7..000000000 --- a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testRewritePathWithPackageAlreadyIncluded.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testRewritePathWithPackageAlreadyIncluded - | path serializerClass | - serializerClass := SquotCypressCodeSerializer. - path := serializerClass rewritePath: 'src/test/Test.package' ofPackage: (PackageInfo new packageName: 'Test'). - self assert: 'src/test/Test.package' equals: path. \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testRewriteTonelPath.st b/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testRewriteTonelPath.st deleted file mode 100644 index 3ccd5c26e..000000000 --- a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testRewriteTonelPath.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testRewriteTonelPath - | path serializerClass | - serializerClass := SquotCypressCodeSerializer. - path := serializerClass rewritePath: 'src/test/Test' ofPackage: (PackageInfo new packageName: 'Test'). - self assert: 'src/test/Test.package' equals: path. \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithClassRemoved.st b/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithClassRemoved.st deleted file mode 100644 index a674e0244..000000000 --- a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithClassRemoved.st +++ /dev/null @@ -1,41 +0,0 @@ -tests -testWriteDiffWithClassRemoved - | directory packageInfo classDef unchangedClassDef originalArtifact changedArtifact readArtifact artifactModification classDir unchangedClassFile | - "given" - directory := self directoryForTests. - originalArtifact := (MCSnapshot fromDefinitions: - {classDef := MCClassDefinition name: 'TheClass' - superclassName: 'Object' - category: 'Test Category' - instVarNames: #() - comment: 'No comment'. - MCMethodDefinition className: 'TheClass' - selector: 'theMethod' - category: 'tests' - timeStamp: 'author 11/19/2021' - source: 'theMethod ^ 42'. - unchangedClassDef := MCClassDefinition name: 'UnchangedClass' - superclassName: 'Object' - category: 'Test Category' - instVarNames: #() - comment: 'No comment'}) - asSquotArtifactForPackage: (packageInfo := PackageInfo new packageName: 'Test Category'). - (SquotCypressCodeSerializer writingBelow: directory) write: originalArtifact. - changedArtifact := (MCSnapshot fromDefinitions: {unchangedClassDef}) - asSquotArtifactForPackage: packageInfo. - artifactModification := originalArtifact diffAgainst: changedArtifact. - classDir := directory / 'Test Category.package' / 'TheClass.class'. - unchangedClassFile := directory / 'Test Category.package' / 'UnchangedClass.class' / 'methodProperties.json'. - directory fileSystem store resetObservations. - "when" - (SquotCypressCodeSerializer writingBelow: directory) writeDiff: artifactModification. - "then" - self deny: classDir exists; - assert: unchangedClassFile exists; - deny: (directory fileSystem store wasDeleted: unchangedClassFile); - deny: (directory fileSystem store wasOpened: unchangedClassFile); - deny: (classDir parent / 'TheClass.extension') exists. - readArtifact := originalArtifact copy. - SquotCypressCodeDeserializer new fillContentOf: readArtifact from: directory / 'Test Category.package'. - self deny: (readArtifact packageArtifactDefinitions anySatisfy: [:each | each isClassDefinition and: [each className = 'TheClass']]); - assert: (readArtifact packageArtifactDefinitions asSet = changedArtifact packageArtifactDefinitions asSet). \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithClassWithoutMethods.st b/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithClassWithoutMethods.st deleted file mode 100644 index 8ff3e4c3d..000000000 --- a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithClassWithoutMethods.st +++ /dev/null @@ -1,31 +0,0 @@ -tests -testWriteDiffWithClassWithoutMethods - | directory packageInfo originalArtifact changedArtifact readArtifact artifactModification classDir | - "given" - directory := self directoryForTests. - originalArtifact := (MCSnapshot fromDefinitions: - {MCClassDefinition name: 'TheClass' - superclassName: 'Object' - category: 'Test Category' - instVarNames: #() - comment: 'No comment'}) - asSquotArtifactForPackage: (packageInfo := PackageInfo new packageName: 'Test Category'). - (SquotCypressCodeSerializer writingBelow: directory) write: originalArtifact. - changedArtifact := (MCSnapshot fromDefinitions: - {MCClassDefinition name: 'TheClass' - superclassName: 'Object' - category: 'Test Category' - instVarNames: #() - comment: 'Changed comment'}) - asSquotArtifactForPackage: packageInfo. - artifactModification := originalArtifact diffAgainst: changedArtifact. - classDir := directory / 'Test Category.package' / 'TheClass.class'. - directory fileSystem store resetObservations. - "when" - (SquotCypressCodeSerializer writingBelow: directory) writeDiff: artifactModification. - "then" - self deny: (classDir parent / 'TheClass.extension') exists. - readArtifact := originalArtifact copy. - SquotCypressCodeDeserializer new fillContentOf: readArtifact from: directory / 'Test Category.package'. - self assert: (readArtifact packageArtifactDefinitions anySatisfy: [:each | each isClassDefinition and: [each comment = 'Changed comment']]); - assert: (readArtifact packageArtifactDefinitions asSet = changedArtifact packageArtifactDefinitions asSet). \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithExtensionRemoved.st b/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithExtensionRemoved.st deleted file mode 100644 index 7ffa15ab7..000000000 --- a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithExtensionRemoved.st +++ /dev/null @@ -1,46 +0,0 @@ -tests -testWriteDiffWithExtensionRemoved - | directory packageInfo unchangedMethodDef unchangedClassDef originalArtifact changedArtifact readArtifact artifactModification classDir theMethodFile unchangedMethodFile unchangedClassFile | - "given" - directory := self directoryForTests. - originalArtifact := (MCSnapshot fromDefinitions: - {MCMethodDefinition className: 'TheClass' - selector: 'theMethod' - category: '*Test Category' - timeStamp: 'author 11/19/2021' - source: 'theMethod ^ 42'. - unchangedMethodDef := MCMethodDefinition className: 'UnchangedClass' - selector: 'unchangedMethod' - category: '*Test Category' - timeStamp: 'author 11/19/2021' - source: 'unchangedMethod ^ 0'. - unchangedClassDef := MCClassDefinition name: 'EmptyClass' - superclassName: 'Object' - category: 'Test Category' - instVarNames: #() - comment: 'No comment'}) - asSquotArtifactForPackage: (packageInfo := PackageInfo new packageName: 'Test Category'). - (SquotCypressCodeSerializer writingBelow: directory) write: originalArtifact. - changedArtifact := (MCSnapshot fromDefinitions: {unchangedMethodDef. unchangedClassDef}) - asSquotArtifactForPackage: packageInfo. - artifactModification := originalArtifact diffAgainst: changedArtifact. - classDir := directory / 'Test Category.package' / 'TheClass.extension'. - theMethodFile := classDir / 'instance' / 'theMethod.st'. - unchangedMethodFile := directory / 'Test Category.package' / 'UnchangedClass.extension' / 'instance' / 'unchangedMethod.st'. - unchangedClassFile := directory / 'Test Category.package' / 'EmptyClass.class' / 'methodProperties.json'. - directory fileSystem store resetObservations. - "when" - (SquotCypressCodeSerializer writingBelow: directory) writeDiff: artifactModification. - "then" - self deny: classDir exists; - assert: unchangedMethodFile exists; - assert: unchangedClassFile exists; - deny: (directory fileSystem store wasDeleted: unchangedMethodFile); - deny: (directory fileSystem store wasOpened: unchangedMethodFile); - deny: (directory fileSystem store wasDeleted: unchangedClassFile); - deny: (directory fileSystem store wasOpened: unchangedClassFile); - deny: (classDir parent / 'TheClass.class') exists. - readArtifact := originalArtifact copy. - SquotCypressCodeDeserializer new fillContentOf: readArtifact from: directory / 'Test Category.package'. - self deny: (readArtifact packageArtifactDefinitions anySatisfy: [:each | each source = 'theMethod ^ 42']); - assert: (readArtifact packageArtifactDefinitions asSet = changedArtifact packageArtifactDefinitions asSet). \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithScriptAdded.st b/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithScriptAdded.st deleted file mode 100644 index ad3e7b77b..000000000 --- a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithScriptAdded.st +++ /dev/null @@ -1,29 +0,0 @@ -tests -testWriteDiffWithScriptAdded - | directory packageInfo unchangedScriptDef originalArtifact changedArtifact readArtifact artifactModification scriptDir theScriptFile unchangedScriptFile | - "given" - directory := self directoryForTests. - originalArtifact := (MCSnapshot fromDefinitions: - {unchangedScriptDef := MCPreambleDefinition script: 'Transcript show: 0' packageName: 'Test Category'}) - asSquotArtifactForPackage: (packageInfo := PackageInfo new packageName: 'Test Category'). - (SquotCypressCodeSerializer writingBelow: directory) write: originalArtifact. - changedArtifact := (MCSnapshot fromDefinitions: - {unchangedScriptDef. - MCPostscriptDefinition script: 'Transcript show: 42' packageName: 'Test Category'}) - asSquotArtifactForPackage: packageInfo. - artifactModification := originalArtifact diffAgainst: changedArtifact. - scriptDir := directory / 'Test Category.package' / 'monticello.meta'. - theScriptFile := scriptDir / 'postscript.st'. - unchangedScriptFile := scriptDir / 'preamble.st'. - directory fileSystem store resetObservations. - "when" - (SquotCypressCodeSerializer writingBelow: directory) writeDiff: artifactModification. - "then" - self assert: theScriptFile exists; - assert: unchangedScriptFile exists; - deny: (directory fileSystem store wasDeleted: unchangedScriptFile); - deny: (directory fileSystem store wasOpened: unchangedScriptFile). - readArtifact := originalArtifact copy. - SquotCypressCodeDeserializer new fillContentOf: readArtifact from: directory / 'Test Category.package'. - self assert: (readArtifact packageArtifactDefinitions anySatisfy: [:each | each source = 'Transcript show: 42']); - assert: (readArtifact packageArtifactDefinitions asSet = changedArtifact packageArtifactDefinitions asSet). \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithScriptChanged.st b/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithScriptChanged.st deleted file mode 100644 index e97418d6b..000000000 --- a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithScriptChanged.st +++ /dev/null @@ -1,31 +0,0 @@ -tests -testWriteDiffWithScriptChanged - | directory packageInfo unchangedScriptDef originalArtifact changedArtifact readArtifact artifactModification scriptDir theScriptFile unchangedScriptFile | - "given" - directory := self directoryForTests. - originalArtifact := (MCSnapshot fromDefinitions: - {MCPostscriptDefinition script: 'Transcript show: 42' packageName: 'Test Category'. - unchangedScriptDef := MCPreambleDefinition script: 'Transcript show: 0' packageName: 'Test Category'}) - asSquotArtifactForPackage: (packageInfo := PackageInfo new packageName: 'Test Category'). - (SquotCypressCodeSerializer writingBelow: directory) write: originalArtifact. - changedArtifact := (MCSnapshot fromDefinitions: - {unchangedScriptDef. - MCPostscriptDefinition script: 'Transcript show: #pi' packageName: 'Test Category'}) - asSquotArtifactForPackage: packageInfo. - artifactModification := originalArtifact diffAgainst: changedArtifact. - scriptDir := directory / 'Test Category.package' / 'monticello.meta'. - theScriptFile := scriptDir / 'postscript.st'. - unchangedScriptFile := scriptDir / 'preamble.st'. - directory fileSystem store resetObservations. - "when" - (SquotCypressCodeSerializer writingBelow: directory) writeDiff: artifactModification. - "then" - self assert: theScriptFile exists; - assert: unchangedScriptFile exists; - deny: (directory fileSystem store wasDeleted: unchangedScriptFile); - deny: (directory fileSystem store wasOpened: unchangedScriptFile); - assert: (directory fileSystem store wasOpened: theScriptFile). - readArtifact := originalArtifact copy. - SquotCypressCodeDeserializer new fillContentOf: readArtifact from: directory / 'Test Category.package'. - self assert: (readArtifact packageArtifactDefinitions anySatisfy: [:each | each source = 'Transcript show: #pi']); - assert: (readArtifact packageArtifactDefinitions asSet = changedArtifact packageArtifactDefinitions asSet). \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithScriptRemoved.st b/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithScriptRemoved.st deleted file mode 100644 index 29d5fa8bd..000000000 --- a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithScriptRemoved.st +++ /dev/null @@ -1,28 +0,0 @@ -tests -testWriteDiffWithScriptRemoved - | directory packageInfo unchangedScriptDef originalArtifact changedArtifact readArtifact artifactModification scriptDir theScriptFile unchangedScriptFile | - "given" - directory := self directoryForTests. - originalArtifact := (MCSnapshot fromDefinitions: - {MCPostscriptDefinition script: 'Transcript show: 42' packageName: 'Test Category'. - unchangedScriptDef := MCPreambleDefinition script: 'Transcript show: 0' packageName: 'Test Category'}) - asSquotArtifactForPackage: (packageInfo := PackageInfo new packageName: 'Test Category'). - (SquotCypressCodeSerializer writingBelow: directory) write: originalArtifact. - changedArtifact := (MCSnapshot fromDefinitions: {unchangedScriptDef}) - asSquotArtifactForPackage: packageInfo. - artifactModification := originalArtifact diffAgainst: changedArtifact. - scriptDir := directory / 'Test Category.package' / 'monticello.meta'. - theScriptFile := scriptDir / 'postscript.st'. - unchangedScriptFile := scriptDir / 'preamble.st'. - directory fileSystem store resetObservations. - "when" - (SquotCypressCodeSerializer writingBelow: directory) writeDiff: artifactModification. - "then" - self deny: theScriptFile exists; - assert: unchangedScriptFile exists; - deny: (directory fileSystem store wasDeleted: unchangedScriptFile); - deny: (directory fileSystem store wasOpened: unchangedScriptFile). - readArtifact := originalArtifact copy. - SquotCypressCodeDeserializer new fillContentOf: readArtifact from: directory / 'Test Category.package'. - self deny: (readArtifact packageArtifactDefinitions anySatisfy: [:each | each source = 'Transcript show: 42']); - assert: (readArtifact packageArtifactDefinitions asSet = changedArtifact packageArtifactDefinitions asSet). \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleExtensionMethodAdded.st b/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleExtensionMethodAdded.st deleted file mode 100644 index fa2e723a7..000000000 --- a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleExtensionMethodAdded.st +++ /dev/null @@ -1,39 +0,0 @@ -tests -testWriteDiffWithSingleExtensionMethodAdded - | directory packageInfo unchangedMethodDef originalArtifact changedArtifact readArtifact artifactModification classDir theMethodFile unchangedMethodFile | - "given" - directory := self directoryForTests. - originalArtifact := (MCSnapshot fromDefinitions: - {unchangedMethodDef := MCMethodDefinition className: 'TheClass' - selector: 'unchangedMethod' - category: '*Test Category' - timeStamp: 'author 11/19/2021' - source: 'unchangedMethod ^ 0'}) - asSquotArtifactForPackage: (packageInfo := PackageInfo new packageName: 'Test Category'). - (SquotCypressCodeSerializer writingBelow: directory) write: originalArtifact. - changedArtifact := (MCSnapshot fromDefinitions: - {unchangedMethodDef. - MCMethodDefinition className: 'TheClass' - selector: 'theMethod' - category: '*Test Category' - timeStamp: 'author 11/19/2021' - source: 'theMethod ^ 42'}) - asSquotArtifactForPackage: packageInfo. - artifactModification := originalArtifact diffAgainst: changedArtifact. - classDir := directory / 'Test Category.package' / 'TheClass.extension'. - theMethodFile := classDir / 'instance' / 'theMethod.st'. - unchangedMethodFile := classDir / 'instance' / 'unchangedMethod.st'. - directory fileSystem store resetObservations. - "when" - (SquotCypressCodeSerializer writingBelow: directory) writeDiff: artifactModification. - "then" - self assert: theMethodFile exists; - assert: unchangedMethodFile exists; - deny: (directory fileSystem store wasDeleted: unchangedMethodFile); - deny: (directory fileSystem store wasOpened: unchangedMethodFile); - assert: (directory fileSystem store wasOpened: classDir / 'methodProperties.json'); - deny: (classDir parent / 'TheClass.class') exists. - readArtifact := originalArtifact copy. - SquotCypressCodeDeserializer new fillContentOf: readArtifact from: directory / 'Test Category.package'. - self assert: (readArtifact packageArtifactDefinitions anySatisfy: [:each | each source = 'theMethod ^ 42']); - assert: (readArtifact packageArtifactDefinitions asSet = changedArtifact packageArtifactDefinitions asSet). \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleExtensionMethodChanged.st b/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleExtensionMethodChanged.st deleted file mode 100644 index 7b96df6e8..000000000 --- a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleExtensionMethodChanged.st +++ /dev/null @@ -1,45 +0,0 @@ -tests -testWriteDiffWithSingleExtensionMethodChanged - | directory packageInfo unchangedMethodDef originalArtifact changedArtifact readArtifact artifactModification classDir theMethodFile unchangedMethodFile | - "given" - directory := self directoryForTests. - originalArtifact := (MCSnapshot fromDefinitions: - {MCMethodDefinition className: 'TheClass' - selector: 'theMethod' - category: '*Test Category' - timeStamp: 'author 11/19/2021' - source: 'theMethod ^ 42'. - unchangedMethodDef := MCMethodDefinition className: 'TheClass' - selector: 'unchangedMethod' - category: '*Test Category' - timeStamp: 'author 11/19/2021' - source: 'unchangedMethod ^ 0'}) - asSquotArtifactForPackage: (packageInfo := PackageInfo new packageName: 'Test Category'). - (SquotCypressCodeSerializer writingBelow: directory) write: originalArtifact. - changedArtifact := (MCSnapshot fromDefinitions: - {unchangedMethodDef. - MCMethodDefinition className: 'TheClass' - selector: 'theMethod' - category: '*Test Category' - timeStamp: 'author 11/19/2021' - source: 'theMethod ^ #pi'}) - asSquotArtifactForPackage: packageInfo. - artifactModification := originalArtifact diffAgainst: changedArtifact. - classDir := directory / 'Test Category.package' / 'TheClass.extension'. - theMethodFile := classDir / 'instance' / 'theMethod.st'. - unchangedMethodFile := classDir / 'instance' / 'unchangedMethod.st'. - directory fileSystem store resetObservations. - "when" - (SquotCypressCodeSerializer writingBelow: directory) writeDiff: artifactModification. - "then" - self assert: theMethodFile exists; - assert: unchangedMethodFile exists; - deny: (directory fileSystem store wasDeleted: unchangedMethodFile); - deny: (directory fileSystem store wasOpened: unchangedMethodFile); - assert: (directory fileSystem store wasOpened: theMethodFile); - assert: (directory fileSystem store wasOpened: classDir / 'methodProperties.json'); - deny: (classDir parent / 'TheClass.class') exists. - readArtifact := originalArtifact copy. - SquotCypressCodeDeserializer new fillContentOf: readArtifact from: directory / 'Test Category.package'. - self assert: (readArtifact packageArtifactDefinitions anySatisfy: [:each | each source = 'theMethod ^ #pi']); - assert: (readArtifact packageArtifactDefinitions asSet = changedArtifact packageArtifactDefinitions asSet). \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleExtensionMethodRemoved.st b/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleExtensionMethodRemoved.st deleted file mode 100644 index 2246939ad..000000000 --- a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleExtensionMethodRemoved.st +++ /dev/null @@ -1,38 +0,0 @@ -tests -testWriteDiffWithSingleExtensionMethodRemoved - | directory packageInfo unchangedMethodDef originalArtifact changedArtifact readArtifact artifactModification classDir theMethodFile unchangedMethodFile | - "given" - directory := self directoryForTests. - originalArtifact := (MCSnapshot fromDefinitions: - {MCMethodDefinition className: 'TheClass' - selector: 'theMethod' - category: '*Test Category' - timeStamp: 'author 11/19/2021' - source: 'theMethod ^ 42'. - unchangedMethodDef := MCMethodDefinition className: 'TheClass' - selector: 'unchangedMethod' - category: '*Test Category' - timeStamp: 'author 11/19/2021' - source: 'unchangedMethod ^ 0'}) - asSquotArtifactForPackage: (packageInfo := PackageInfo new packageName: 'Test Category'). - (SquotCypressCodeSerializer writingBelow: directory) write: originalArtifact. - changedArtifact := (MCSnapshot fromDefinitions: {unchangedMethodDef}) - asSquotArtifactForPackage: packageInfo. - artifactModification := originalArtifact diffAgainst: changedArtifact. - classDir := directory / 'Test Category.package' / 'TheClass.extension'. - theMethodFile := classDir / 'instance' / 'theMethod.st'. - unchangedMethodFile := classDir / 'instance' / 'unchangedMethod.st'. - directory fileSystem store resetObservations. - "when" - (SquotCypressCodeSerializer writingBelow: directory) writeDiff: artifactModification. - "then" - self deny: theMethodFile exists; - assert: unchangedMethodFile exists; - deny: (directory fileSystem store wasDeleted: unchangedMethodFile); - deny: (directory fileSystem store wasOpened: unchangedMethodFile); - assert: (directory fileSystem store wasOpened: classDir / 'methodProperties.json'); - deny: (classDir parent / 'TheClass.class') exists. - readArtifact := originalArtifact copy. - SquotCypressCodeDeserializer new fillContentOf: readArtifact from: directory / 'Test Category.package'. - self deny: (readArtifact packageArtifactDefinitions anySatisfy: [:each | each source = 'theMethod ^ 42']); - assert: (readArtifact packageArtifactDefinitions asSet = changedArtifact packageArtifactDefinitions asSet). \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleMethodAdded.st b/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleMethodAdded.st deleted file mode 100644 index 9abaf3d29..000000000 --- a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleMethodAdded.st +++ /dev/null @@ -1,44 +0,0 @@ -tests -testWriteDiffWithSingleMethodAdded - | directory packageInfo classDef unchangedMethodDef originalArtifact changedArtifact readArtifact artifactModification classDir theMethodFile unchangedMethodFile | - "given" - directory := self directoryForTests. - originalArtifact := (MCSnapshot fromDefinitions: - {classDef := MCClassDefinition name: 'TheClass' - superclassName: 'Object' - category: 'Test Category' - instVarNames: #() - comment: 'No comment'. - unchangedMethodDef := MCMethodDefinition className: 'TheClass' - selector: 'unchangedMethod' - category: 'tests' - timeStamp: 'author 11/19/2021' - source: 'unchangedMethod ^ 0'}) - asSquotArtifactForPackage: (packageInfo := PackageInfo new packageName: 'Test Category'). - (SquotCypressCodeSerializer writingBelow: directory) write: originalArtifact. - changedArtifact := (MCSnapshot fromDefinitions: - {classDef. unchangedMethodDef. - MCMethodDefinition className: 'TheClass' - selector: 'theMethod' - category: 'tests' - timeStamp: 'author 11/19/2021' - source: 'theMethod ^ 42'.}) - asSquotArtifactForPackage: packageInfo. - artifactModification := originalArtifact diffAgainst: changedArtifact. - classDir := directory / 'Test Category.package' / 'TheClass.class'. - theMethodFile := classDir / 'instance' / 'theMethod.st'. - unchangedMethodFile := classDir / 'instance' / 'unchangedMethod.st'. - directory fileSystem store resetObservations. - "when" - (SquotCypressCodeSerializer writingBelow: directory) writeDiff: artifactModification. - "then" - self assert: theMethodFile exists; - assert: unchangedMethodFile exists; - deny: (directory fileSystem store wasDeleted: unchangedMethodFile); - deny: (directory fileSystem store wasOpened: unchangedMethodFile); - assert: (directory fileSystem store wasOpened: classDir / 'methodProperties.json'); - deny: (classDir parent / 'TheClass.extension') exists. - readArtifact := originalArtifact copy. - SquotCypressCodeDeserializer new fillContentOf: readArtifact from: directory / 'Test Category.package'. - self assert: (readArtifact packageArtifactDefinitions anySatisfy: [:each | each source = 'theMethod ^ 42']); - assert: (readArtifact packageArtifactDefinitions asSet = changedArtifact packageArtifactDefinitions asSet). \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleMethodChanged.st b/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleMethodChanged.st deleted file mode 100644 index 8113e9f24..000000000 --- a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleMethodChanged.st +++ /dev/null @@ -1,50 +0,0 @@ -tests -testWriteDiffWithSingleMethodChanged - | directory packageInfo classDef unchangedMethodDef originalArtifact changedArtifact readArtifact artifactModification classDir theMethodFile unchangedMethodFile | - "given" - directory := self directoryForTests. - originalArtifact := (MCSnapshot fromDefinitions: - {classDef := MCClassDefinition name: 'TheClass' - superclassName: 'Object' - category: 'Test Category' - instVarNames: #() - comment: 'No comment'. - MCMethodDefinition className: 'TheClass' - selector: 'theMethod' - category: 'tests' - timeStamp: 'author 11/19/2021' - source: 'theMethod ^ 42'. - unchangedMethodDef := MCMethodDefinition className: 'TheClass' - selector: 'unchangedMethod' - category: 'tests' - timeStamp: 'author 11/19/2021' - source: 'unchangedMethod ^ 0'}) - asSquotArtifactForPackage: (packageInfo := PackageInfo new packageName: 'Test Category'). - (SquotCypressCodeSerializer writingBelow: directory) write: originalArtifact. - changedArtifact := (MCSnapshot fromDefinitions: - {classDef. unchangedMethodDef. - MCMethodDefinition className: 'TheClass' - selector: 'theMethod' - category: 'tests' - timeStamp: 'author 11/19/2021' - source: 'theMethod ^ #pi'}) - asSquotArtifactForPackage: packageInfo. - artifactModification := originalArtifact diffAgainst: changedArtifact. - classDir := directory / 'Test Category.package' / 'TheClass.class'. - theMethodFile := classDir / 'instance' / 'theMethod.st'. - unchangedMethodFile := classDir / 'instance' / 'unchangedMethod.st'. - directory fileSystem store resetObservations. - "when" - (SquotCypressCodeSerializer writingBelow: directory) writeDiff: artifactModification. - "then" - self assert: theMethodFile exists; - assert: unchangedMethodFile exists; - deny: (directory fileSystem store wasDeleted: unchangedMethodFile); - deny: (directory fileSystem store wasOpened: unchangedMethodFile); - assert: (directory fileSystem store wasOpened: theMethodFile); - assert: (directory fileSystem store wasOpened: classDir / 'methodProperties.json'); - deny: (classDir parent / 'TheClass.extension') exists. - readArtifact := originalArtifact copy. - SquotCypressCodeDeserializer new fillContentOf: readArtifact from: directory / 'Test Category.package'. - self assert: (readArtifact packageArtifactDefinitions anySatisfy: [:each | each source = 'theMethod ^ #pi']); - assert: (readArtifact packageArtifactDefinitions asSet = changedArtifact packageArtifactDefinitions asSet). \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleMethodRemoved.st b/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleMethodRemoved.st deleted file mode 100644 index 1df166c56..000000000 --- a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleMethodRemoved.st +++ /dev/null @@ -1,44 +0,0 @@ -tests -testWriteDiffWithSingleMethodRemoved - | directory packageInfo classDef unchangedMethodDef originalArtifact changedArtifact readArtifact artifactModification classDir theMethodFile unchangedMethodFile | - "given" - directory := self directoryForTests. - originalArtifact := (MCSnapshot fromDefinitions: - {classDef := MCClassDefinition name: 'TheClass' - superclassName: 'Object' - category: 'Test Category' - instVarNames: #() - comment: 'No comment'. - MCMethodDefinition className: 'TheClass' - selector: 'theMethod' - category: 'tests' - timeStamp: 'author 11/19/2021' - source: 'theMethod ^ 42'. - unchangedMethodDef := MCMethodDefinition className: 'TheClass' - selector: 'unchangedMethod' - category: 'tests' - timeStamp: 'author 11/19/2021' - source: 'unchangedMethod ^ 0'}) - asSquotArtifactForPackage: (packageInfo := PackageInfo new packageName: 'Test Category'). - (SquotCypressCodeSerializer writingBelow: directory) write: originalArtifact. - changedArtifact := (MCSnapshot fromDefinitions: {classDef. unchangedMethodDef}) - asSquotArtifactForPackage: packageInfo. - artifactModification := originalArtifact diffAgainst: changedArtifact. - classDir := directory / 'Test Category.package' / 'TheClass.class'. - theMethodFile := classDir / 'instance' / 'theMethod.st'. - unchangedMethodFile := classDir / 'instance' / 'unchangedMethod.st'. - directory fileSystem store resetObservations. - "when" - (SquotCypressCodeSerializer writingBelow: directory) writeDiff: artifactModification. - "then" - self deny: theMethodFile exists; - assert: unchangedMethodFile exists; - deny: (directory fileSystem store wasDeleted: unchangedMethodFile); - deny: (directory fileSystem store wasOpened: unchangedMethodFile); - assert: (directory fileSystem store wasDeleted: theMethodFile); - assert: (directory fileSystem store wasOpened: classDir / 'methodProperties.json'); - deny: (classDir parent / 'TheClass.extension') exists. - readArtifact := originalArtifact copy. - SquotCypressCodeDeserializer new fillContentOf: readArtifact from: directory / 'Test Category.package'. - self deny: (readArtifact packageArtifactDefinitions anySatisfy: [:each | each source = 'theMethod ^ 42']); - assert: (readArtifact packageArtifactDefinitions asSet = changedArtifact packageArtifactDefinitions asSet). \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleTraitMethodAdded.st b/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleTraitMethodAdded.st deleted file mode 100644 index baa3ad99a..000000000 --- a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleTraitMethodAdded.st +++ /dev/null @@ -1,44 +0,0 @@ -tests -testWriteDiffWithSingleTraitMethodAdded - | directory packageInfo traitDef unchangedMethodDef originalArtifact changedArtifact readArtifact artifactModification traitDir theMethodFile unchangedMethodFile | - "given" - directory := self directoryForTests. - originalArtifact := (MCSnapshot fromDefinitions: - {traitDef := MCTraitDefinition name: 'TheTrait' - superclassName: 'Object' - category: 'Test Category' - instVarNames: #() - comment: 'No comment'. - unchangedMethodDef := MCMethodDefinition className: 'TheTrait' - selector: 'unchangedMethod' - category: 'tests' - timeStamp: 'author 11/19/2021' - source: 'unchangedMethod ^ 0'}) - asSquotArtifactForPackage: (packageInfo := PackageInfo new packageName: 'Test Category'). - (SquotCypressCodeSerializer writingBelow: directory) write: originalArtifact. - changedArtifact := (MCSnapshot fromDefinitions: - {traitDef. unchangedMethodDef. - MCMethodDefinition className: 'TheTrait' - selector: 'theMethod' - category: 'tests' - timeStamp: 'author 11/19/2021' - source: 'theMethod ^ 42'}) - asSquotArtifactForPackage: packageInfo. - artifactModification := originalArtifact diffAgainst: changedArtifact. - traitDir := directory / 'Test Category.package' / 'TheTrait.trait'. - theMethodFile := traitDir / 'instance' / 'theMethod.st'. - unchangedMethodFile := traitDir / 'instance' / 'unchangedMethod.st'. - directory fileSystem store resetObservations. - "when" - (SquotCypressCodeSerializer writingBelow: directory) writeDiff: artifactModification. - "then" - self assert: theMethodFile exists; - assert: unchangedMethodFile exists; - deny: (directory fileSystem store wasDeleted: unchangedMethodFile); - deny: (directory fileSystem store wasOpened: unchangedMethodFile); - assert: (directory fileSystem store wasOpened: traitDir / 'methodProperties.json'); - deny: (traitDir parent / 'TheTrait.extension') exists. - readArtifact := originalArtifact copy. - SquotCypressCodeDeserializer new fillContentOf: readArtifact from: directory / 'Test Category.package'. - self assert: (readArtifact packageArtifactDefinitions anySatisfy: [:each | each source = 'theMethod ^ 42']); - assert: (readArtifact packageArtifactDefinitions asSet = changedArtifact packageArtifactDefinitions asSet). \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleTraitMethodChanged.st b/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleTraitMethodChanged.st deleted file mode 100644 index f240f5597..000000000 --- a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleTraitMethodChanged.st +++ /dev/null @@ -1,50 +0,0 @@ -tests -testWriteDiffWithSingleTraitMethodChanged - | directory packageInfo traitDef unchangedMethodDef originalArtifact changedArtifact readArtifact artifactModification traitDir theMethodFile unchangedMethodFile | - "given" - directory := self directoryForTests. - originalArtifact := (MCSnapshot fromDefinitions: - {traitDef := MCTraitDefinition name: 'TheTrait' - superclassName: 'Object' - category: 'Test Category' - instVarNames: #() - comment: 'No comment'. - MCMethodDefinition className: 'TheTrait' - selector: 'theMethod' - category: 'tests' - timeStamp: 'author 11/19/2021' - source: 'theMethod ^ 42'. - unchangedMethodDef := MCMethodDefinition className: 'TheTrait' - selector: 'unchangedMethod' - category: 'tests' - timeStamp: 'author 11/19/2021' - source: 'unchangedMethod ^ 0'}) - asSquotArtifactForPackage: (packageInfo := PackageInfo new packageName: 'Test Category'). - (SquotCypressCodeSerializer writingBelow: directory) write: originalArtifact. - changedArtifact := (MCSnapshot fromDefinitions: - {traitDef. unchangedMethodDef. - MCMethodDefinition className: 'TheTrait' - selector: 'theMethod' - category: 'tests' - timeStamp: 'author 11/19/2021' - source: 'theMethod ^ #pi'}) - asSquotArtifactForPackage: packageInfo. - artifactModification := originalArtifact diffAgainst: changedArtifact. - traitDir := directory / 'Test Category.package' / 'TheTrait.trait'. - theMethodFile := traitDir / 'instance' / 'theMethod.st'. - unchangedMethodFile := traitDir / 'instance' / 'unchangedMethod.st'. - directory fileSystem store resetObservations. - "when" - (SquotCypressCodeSerializer writingBelow: directory) writeDiff: artifactModification. - "then" - self assert: theMethodFile exists; - assert: unchangedMethodFile exists; - deny: (directory fileSystem store wasDeleted: unchangedMethodFile); - deny: (directory fileSystem store wasOpened: unchangedMethodFile); - assert: (directory fileSystem store wasOpened: theMethodFile); - assert: (directory fileSystem store wasOpened: traitDir / 'methodProperties.json'); - deny: (traitDir parent / 'TheTrait.extension') exists. - readArtifact := originalArtifact copy. - SquotCypressCodeDeserializer new fillContentOf: readArtifact from: directory / 'Test Category.package'. - self assert: (readArtifact packageArtifactDefinitions anySatisfy: [:each | each source = 'theMethod ^ #pi']); - assert: (readArtifact packageArtifactDefinitions asSet = changedArtifact packageArtifactDefinitions asSet). \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleTraitMethodRemoved.st b/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleTraitMethodRemoved.st deleted file mode 100644 index 059ace68b..000000000 --- a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithSingleTraitMethodRemoved.st +++ /dev/null @@ -1,43 +0,0 @@ -tests -testWriteDiffWithSingleTraitMethodRemoved - | directory packageInfo traitDef unchangedMethodDef originalArtifact changedArtifact readArtifact artifactModification traitDir theMethodFile unchangedMethodFile | - "given" - directory := self directoryForTests. - originalArtifact := (MCSnapshot fromDefinitions: - {traitDef := MCTraitDefinition name: 'TheTrait' - superclassName: 'Object' - category: 'Test Category' - instVarNames: #() - comment: 'No comment'. - MCMethodDefinition className: 'TheTrait' - selector: 'theMethod' - category: 'tests' - timeStamp: 'author 11/19/2021' - source: 'theMethod ^ 42'. - unchangedMethodDef := MCMethodDefinition className: 'TheTrait' - selector: 'unchangedMethod' - category: 'tests' - timeStamp: 'author 11/19/2021' - source: 'unchangedMethod ^ 0'}) - asSquotArtifactForPackage: (packageInfo := PackageInfo new packageName: 'Test Category'). - (SquotCypressCodeSerializer writingBelow: directory) write: originalArtifact. - changedArtifact := (MCSnapshot fromDefinitions: {traitDef. unchangedMethodDef}) - asSquotArtifactForPackage: packageInfo. - artifactModification := originalArtifact diffAgainst: changedArtifact. - traitDir := directory / 'Test Category.package' / 'TheTrait.trait'. - theMethodFile := traitDir / 'instance' / 'theMethod.st'. - unchangedMethodFile := traitDir / 'instance' / 'unchangedMethod.st'. - directory fileSystem store resetObservations. - "when" - (SquotCypressCodeSerializer writingBelow: directory) writeDiff: artifactModification. - "then" - self deny: theMethodFile exists; - assert: unchangedMethodFile exists; - deny: (directory fileSystem store wasDeleted: unchangedMethodFile); - deny: (directory fileSystem store wasOpened: unchangedMethodFile); - assert: (directory fileSystem store wasOpened: traitDir / 'methodProperties.json'); - deny: (traitDir parent / 'TheTrait.extension') exists. - readArtifact := originalArtifact copy. - SquotCypressCodeDeserializer new fillContentOf: readArtifact from: directory / 'Test Category.package'. - self deny: (readArtifact packageArtifactDefinitions anySatisfy: [:each | each source = 'theMethod ^ 42']); - assert: (readArtifact packageArtifactDefinitions asSet = changedArtifact packageArtifactDefinitions asSet). \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithTraitRemoved.st b/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithTraitRemoved.st deleted file mode 100644 index 0a9fdc57c..000000000 --- a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWriteDiffWithTraitRemoved.st +++ /dev/null @@ -1,41 +0,0 @@ -tests -testWriteDiffWithTraitRemoved - | directory packageInfo traitDef unchangedTraitDef originalArtifact changedArtifact readArtifact artifactModification traitDir unchangedTraitFile | - "given" - directory := self directoryForTests. - originalArtifact := (MCSnapshot fromDefinitions: - {traitDef := MCTraitDefinition name: 'TheTrait' - superclassName: 'Object' - category: 'Test Category' - instVarNames: #() - comment: 'No comment'. - MCMethodDefinition className: 'TheTrait' - selector: 'theMethod' - category: 'tests' - timeStamp: 'author 11/19/2021' - source: 'theMethod ^ 42'. - unchangedTraitDef := MCTraitDefinition name: 'UnchangedTrait' - superclassName: 'Object' - category: 'Test Category' - instVarNames: #() - comment: 'No comment'}) - asSquotArtifactForPackage: (packageInfo := PackageInfo new packageName: 'Test Category'). - (SquotCypressCodeSerializer writingBelow: directory) write: originalArtifact. - changedArtifact := (MCSnapshot fromDefinitions: {unchangedTraitDef}) - asSquotArtifactForPackage: packageInfo. - artifactModification := originalArtifact diffAgainst: changedArtifact. - traitDir := directory / 'Test Category.package' / 'TheTrait.trait'. - unchangedTraitFile := directory / 'Test Category.package' / 'UnchangedTrait.trait' / 'methodProperties.json'. - directory fileSystem store resetObservations. - "when" - (SquotCypressCodeSerializer writingBelow: directory) writeDiff: artifactModification. - "then" - self deny: traitDir exists; - assert: unchangedTraitFile exists; - deny: (directory fileSystem store wasDeleted: unchangedTraitFile); - deny: (directory fileSystem store wasOpened: unchangedTraitFile); - deny: (traitDir parent / 'TheTrait.extension') exists. - readArtifact := originalArtifact copy. - SquotCypressCodeDeserializer new fillContentOf: readArtifact from: directory / 'Test Category.package'. - self deny: (readArtifact packageArtifactDefinitions anySatisfy: [:each | each isTraitDefinition and: [each className = 'TheTrait']]); - assert: (readArtifact packageArtifactDefinitions asSet = changedArtifact packageArtifactDefinitions asSet). \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWritesPropertiesFileIfItExistsAlready.st b/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWritesPropertiesFileIfItExistsAlready.st deleted file mode 100644 index 76e51ee58..000000000 --- a/src/Squot.package/SquotCypressCodeSerializerTest.class/instance/testWritesPropertiesFileIfItExistsAlready.st +++ /dev/null @@ -1,18 +0,0 @@ -tests -testWritesPropertiesFileIfItExistsAlready - | directory propertiesFile serializer artifact | - directory := FileSystem memory root. - (propertiesFile := directory / '.properties') writeStreamDo: [:stream | stream nextPutAll: '{ - #format : #tonel -} -']. - serializer := SquotCypressCodeSerializer writingBelow: directory. - artifact := (MCSnapshot fromDefinitions: {MCOrganizationDefinition categories: #('Empty')}) - asSquotArtifactForPackage: (PackageInfo new packageName: 'Empty'). - serializer write: artifact. - self assert: propertiesFile exists. - propertiesFile readStreamDo: - [:stream | self assert: (stream upToEnd = '{ - #format : #filetree -} -')]. \ No newline at end of file diff --git a/src/Squot.package/SquotCypressCodeSerializerTest.class/methodProperties.json b/src/Squot.package/SquotCypressCodeSerializerTest.class/methodProperties.json deleted file mode 100644 index 7b3615057..000000000 --- a/src/Squot.package/SquotCypressCodeSerializerTest.class/methodProperties.json +++ /dev/null @@ -1,27 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "directoryForTests" : "jr 11/20/2021 14:16", - "testDoesNotWritePropertiesFileByDefault" : "jr 9/3/2020 22:25", - "testRewritePathForEmptyPath" : "jr 5/8/2017 19:49", - "testRewritePathForOrdinaryPath" : "jr 5/8/2017 19:49", - "testRewritePathWithPackageAlreadyIncluded" : "jr 5/8/2017 19:50", - "testRewriteTonelPath" : "jr 3/17/2019 00:10", - "testWriteDiffWithClassRemoved" : "jr 11/20/2021 11:55", - "testWriteDiffWithClassWithoutMethods" : "jr 11/20/2021 20:23", - "testWriteDiffWithExtensionRemoved" : "jr 11/20/2021 12:47", - "testWriteDiffWithScriptAdded" : "jr 11/20/2021 20:14", - "testWriteDiffWithScriptChanged" : "jr 11/20/2021 15:37", - "testWriteDiffWithScriptRemoved" : "jr 11/20/2021 15:38", - "testWriteDiffWithSingleExtensionMethodAdded" : "jr 11/20/2021 11:49", - "testWriteDiffWithSingleExtensionMethodChanged" : "jr 11/20/2021 00:18", - "testWriteDiffWithSingleExtensionMethodRemoved" : "jr 11/20/2021 11:41", - "testWriteDiffWithSingleMethodAdded" : "jr 11/20/2021 11:49", - "testWriteDiffWithSingleMethodChanged" : "jr 11/20/2021 00:18", - "testWriteDiffWithSingleMethodRemoved" : "jr 11/20/2021 00:27", - "testWriteDiffWithSingleTraitMethodAdded" : "jr 11/20/2021 11:50", - "testWriteDiffWithSingleTraitMethodChanged" : "jr 11/20/2021 00:23", - "testWriteDiffWithSingleTraitMethodRemoved" : "jr 11/20/2021 11:48", - "testWriteDiffWithTraitRemoved" : "jr 11/20/2021 12:25", - "testWritesPropertiesFileIfItExistsAlready" : "jr 9/3/2020 22:48" } } diff --git a/src/Squot.package/SquotCypressCodeSerializerTest.class/properties.json b/src/Squot.package/SquotCypressCodeSerializerTest.class/properties.json deleted file mode 100644 index b0ca8fb51..000000000 --- a/src/Squot.package/SquotCypressCodeSerializerTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Serialization", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotCypressCodeSerializerTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotCypressPackageLocatorTest.class/README.md b/src/Squot.package/SquotCypressPackageLocatorTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotCypressPackageLocatorTest.class/instance/testFindsMultiplePackages.st b/src/Squot.package/SquotCypressPackageLocatorTest.class/instance/testFindsMultiplePackages.st deleted file mode 100644 index 2774f7563..000000000 --- a/src/Squot.package/SquotCypressPackageLocatorTest.class/instance/testFindsMultiplePackages.st +++ /dev/null @@ -1,20 +0,0 @@ -tests -testFindsMultiplePackages - | artifactsFound | - "given" - #('X.package' 'Y.package') - do: [:each | (rootDirectory / each) ensureDirectory. - (rootDirectory / each / '.filetree') ensureFile ]. - "decoys" - (rootDirectory / 'Z.package') ensureDirectory. - (rootDirectory / 'NoPackageExtension') ensureDirectory. - (rootDirectory / 'NoPackageExtension' / '.filetree') ensureFile. - "when" - artifactsFound := SquotFileSearchForArtifacts new - visit: rootDirectory with: fileStore cypressPackageLocator; - runSearch; - artifactsFound. - "then" - self assert: (artifactsFound anySatisfy: [:each | each path = 'X.package']); - assert: (artifactsFound anySatisfy: [:each | each path = 'Y.package']); - assert: artifactsFound size = 2. \ No newline at end of file diff --git a/src/Squot.package/SquotCypressPackageLocatorTest.class/instance/testFindsPackageInSubdirectory.st b/src/Squot.package/SquotCypressPackageLocatorTest.class/instance/testFindsPackageInSubdirectory.st deleted file mode 100644 index e29ae729d..000000000 --- a/src/Squot.package/SquotCypressPackageLocatorTest.class/instance/testFindsPackageInSubdirectory.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testFindsPackageInSubdirectory - | artifactsFound | - (rootDirectory / 'src' / 'Xyz.package') ensureDirectory. - (rootDirectory / 'src' / 'Xyz.package' / '.filetree') ensureFile. - artifactsFound := SquotFileSearchForArtifacts new - visit: rootDirectory with: fileStore cypressPackageLocator; - runSearch; - artifactsFound. - self assert: (artifactsFound anySatisfy: [:each | each path = 'src/Xyz.package']). \ No newline at end of file diff --git a/src/Squot.package/SquotCypressPackageLocatorTest.class/instance/testFindsPackageUnderRoot.st b/src/Squot.package/SquotCypressPackageLocatorTest.class/instance/testFindsPackageUnderRoot.st deleted file mode 100644 index 2d820b156..000000000 --- a/src/Squot.package/SquotCypressPackageLocatorTest.class/instance/testFindsPackageUnderRoot.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testFindsPackageUnderRoot - | artifactsFound | - (rootDirectory / 'Xyz.package') ensureDirectory. - (rootDirectory / 'Xyz.package' / '.filetree') ensureFile. - artifactsFound := SquotFileSearchForArtifacts new - visit: rootDirectory with: fileStore cypressPackageLocator; - runSearch; - artifactsFound. - self assert: (artifactsFound anySatisfy: [:each | each path = 'Xyz.package']). \ No newline at end of file diff --git a/src/Squot.package/SquotCypressPackageLocatorTest.class/methodProperties.json b/src/Squot.package/SquotCypressPackageLocatorTest.class/methodProperties.json deleted file mode 100644 index 199a7b7fa..000000000 --- a/src/Squot.package/SquotCypressPackageLocatorTest.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testFindsMultiplePackages" : "jr 3/10/2019 21:31", - "testFindsPackageInSubdirectory" : "jr 3/10/2019 21:32", - "testFindsPackageUnderRoot" : "jr 3/10/2019 21:32" } } diff --git a/src/Squot.package/SquotCypressPackageLocatorTest.class/properties.json b/src/Squot.package/SquotCypressPackageLocatorTest.class/properties.json deleted file mode 100644 index 5c8b35623..000000000 --- a/src/Squot.package/SquotCypressPackageLocatorTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Serialization", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotCypressPackageLocatorTest", - "pools" : [ - ], - "super" : "SquotArtifactLocatorTest", - "type" : "normal" } diff --git a/src/Squot.package/SquotDecorator.class/README.md b/src/Squot.package/SquotDecorator.class/README.md deleted file mode 100644 index 3b8204944..000000000 --- a/src/Squot.package/SquotDecorator.class/README.md +++ /dev/null @@ -1,6 +0,0 @@ -I decorate arbitrary objects. From an outside object's view, I extend the interface of the decorated object. See decorator pattern. I use #doesNotUnderstand: to delegate messages that are not relevant for the decoration to the decorated object. - -To not inherit too many "own" methods from Object, this class inherits from ProtoObject. On the other hand, this means some useful or required methods only present in Object, but not in ProtoObject, are reimplemented here. - -Instance Variables - decoratedObject: \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/class/newFrom..st b/src/Squot.package/SquotDecorator.class/class/newFrom..st deleted file mode 100644 index 8b3f8910c..000000000 --- a/src/Squot.package/SquotDecorator.class/class/newFrom..st +++ /dev/null @@ -1,4 +0,0 @@ -instance creation -newFrom: aSimilarObject - ^ self basicNew - squotDecoratorCopySameFrom: aSimilarObject \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/^equals.st b/src/Squot.package/SquotDecorator.class/instance/^equals.st deleted file mode 100644 index 494bc3824..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/^equals.st +++ /dev/null @@ -1,3 +0,0 @@ -Object -= other - ^ self == other \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/applyDiff.with..st b/src/Squot.package/SquotDecorator.class/instance/applyDiff.with..st deleted file mode 100644 index 1d342777f..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/applyDiff.with..st +++ /dev/null @@ -1,3 +0,0 @@ -keeping decoration -applyDiff: aDiff with: aPatcher - ^ self squotSameDecorationOn: (decoratedObject applyDiff: aDiff with: aPatcher) \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/asExplorerString.st b/src/Squot.package/SquotDecorator.class/instance/asExplorerString.st deleted file mode 100644 index 0ea70998f..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/asExplorerString.st +++ /dev/null @@ -1,3 +0,0 @@ -Object -asExplorerString - ^ self printString \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/asLink.st b/src/Squot.package/SquotDecorator.class/instance/asLink.st deleted file mode 100644 index 5a41afcf0..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/asLink.st +++ /dev/null @@ -1,3 +0,0 @@ -keeping decoration -asLink - ^ self withArgs: #() executeMethod: (Object >> #asLink) \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/basicInspect.st b/src/Squot.package/SquotDecorator.class/instance/basicInspect.st deleted file mode 100644 index 2af85914d..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/basicInspect.st +++ /dev/null @@ -1,3 +0,0 @@ -Object -basicInspect - ^ self withArgs: #() executeMethod: (Object >> #basicInspect) \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/basicSize.st b/src/Squot.package/SquotDecorator.class/instance/basicSize.st deleted file mode 100644 index 22b064818..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/basicSize.st +++ /dev/null @@ -1,4 +0,0 @@ -Object -basicSize - - ^ 0 \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/comeFullyUpOnReload..st b/src/Squot.package/SquotDecorator.class/instance/comeFullyUpOnReload..st deleted file mode 100644 index ca485f9ca..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/comeFullyUpOnReload..st +++ /dev/null @@ -1,3 +0,0 @@ -keeping decoration -comeFullyUpOnReload: aDataStream - ^ self squotSameDecorationOn: (decoratedObject comeFullyUpOnReload: aDataStream) \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/copy.st b/src/Squot.package/SquotDecorator.class/instance/copy.st deleted file mode 100644 index e3737b616..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/copy.st +++ /dev/null @@ -1,3 +0,0 @@ -keeping decoration -copy - ^ self squotSameDecorationOn: decoratedObject copy \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/decoratorClass.st b/src/Squot.package/SquotDecorator.class/instance/decoratorClass.st deleted file mode 100644 index 944e82fac..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/decoratorClass.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -decoratorClass - ^ self withArgs: #() executeMethod: (Object >> #class) \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/doesNotUnderstand..st b/src/Squot.package/SquotDecorator.class/instance/doesNotUnderstand..st deleted file mode 100644 index 99a581c61..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/doesNotUnderstand..st +++ /dev/null @@ -1,9 +0,0 @@ -delegating -doesNotUnderstand: aMessage - | answer | - ^ (thisContext - object: (answer := aMessage sendTo: decoratedObject) - eqeq: decoratedObject) - - ifTrue: [self] - ifFalse: [answer] \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/in..st b/src/Squot.package/SquotDecorator.class/instance/in..st deleted file mode 100644 index aad75fd24..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/in..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -in: aBlock - ^ self withArgs: {aBlock} executeMethod: (Object >> #in:) \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/inspectorClass.st b/src/Squot.package/SquotDecorator.class/instance/inspectorClass.st deleted file mode 100644 index 6b2975b29..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/inspectorClass.st +++ /dev/null @@ -1,4 +0,0 @@ -tools -inspectorClass - "Answer an inspector that does not send me messages which could be forwarded to my decorated object." - ^ BasicInspector \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/instVarAt..st b/src/Squot.package/SquotDecorator.class/instance/instVarAt..st deleted file mode 100644 index 0d1d91d7e..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/instVarAt..st +++ /dev/null @@ -1,3 +0,0 @@ -Object -instVarAt: offset - ^ self withArgs: {offset} executeMethod: (Object >> #instVarAt:) \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/instVarAt.put..st b/src/Squot.package/SquotDecorator.class/instance/instVarAt.put..st deleted file mode 100644 index 67fad207f..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/instVarAt.put..st +++ /dev/null @@ -1,3 +0,0 @@ -Object -instVarAt: offset put: anObject - ^ self withArgs: {offset. anObject} executeMethod: (Object >> #instVarAt:put:) \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/objectForDataStream..st b/src/Squot.package/SquotDecorator.class/instance/objectForDataStream..st deleted file mode 100644 index 231cd91ce..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/objectForDataStream..st +++ /dev/null @@ -1,3 +0,0 @@ -keeping decoration -objectForDataStream: aDataStream - ^ self squotSameDecorationOn: (decoratedObject objectForDataStream: aDataStream) \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/outboundPointersDo..st b/src/Squot.package/SquotDecorator.class/instance/outboundPointersDo..st deleted file mode 100644 index a5ccf483e..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/outboundPointersDo..st +++ /dev/null @@ -1,5 +0,0 @@ -tools - debugger -outboundPointersDo: aBlock - aBlock value: (thisContext objectClass: self). - 1 to: (thisContext objectClass: self) instSize do: [:i | aBlock value: (thisContext object: self instVarAt: i)]. - 1 to: (thisContext objectSize: self) do: [:i | aBlock value: (thisContext object: self basicAt: i)]. \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/perform..st b/src/Squot.package/SquotDecorator.class/instance/perform..st deleted file mode 100644 index 3a18d9157..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/perform..st +++ /dev/null @@ -1,4 +0,0 @@ -Object -perform: aSelector - - ^ self withArgs: {aSelector} executeMethod: (Object >> #perform:) \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/perform.withArguments..st b/src/Squot.package/SquotDecorator.class/instance/perform.withArguments..st deleted file mode 100644 index 0ce6ff6f5..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/perform.withArguments..st +++ /dev/null @@ -1,4 +0,0 @@ -Object -perform: aSelector withArguments: aCollection - - ^ self withArgs: {aSelector. aCollection} executeMethod: (Object >> #perform:withArguments:) \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/primitiveFailed.st b/src/Squot.package/SquotDecorator.class/instance/primitiveFailed.st deleted file mode 100644 index e66c36b8c..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/primitiveFailed.st +++ /dev/null @@ -1,3 +0,0 @@ -Object -primitiveFailed - ^ self withArgs: #() executeMethod: (Object >> #primitiveFailed) \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/printOn..st b/src/Squot.package/SquotDecorator.class/instance/printOn..st deleted file mode 100644 index 892e16ea2..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/printOn..st +++ /dev/null @@ -1,4 +0,0 @@ -printing -printOn: aStream - aStream nextPutAll: 'decorated '; - print: decoratedObject \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/printString.st b/src/Squot.package/SquotDecorator.class/instance/printString.st deleted file mode 100644 index 55f17a61e..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/printString.st +++ /dev/null @@ -1,3 +0,0 @@ -Object -printString - ^ self withArgs: #() executeMethod: (Object >> #printString) \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/printStringLimitedTo..st b/src/Squot.package/SquotDecorator.class/instance/printStringLimitedTo..st deleted file mode 100644 index d7196c637..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/printStringLimitedTo..st +++ /dev/null @@ -1,3 +0,0 @@ -Object -printStringLimitedTo: anInteger - ^ self withArgs: {anInteger} executeMethod: (Object >> #printStringLimitedTo:) \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/readDataFrom.size..st b/src/Squot.package/SquotDecorator.class/instance/readDataFrom.size..st deleted file mode 100644 index d2b7216d2..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/readDataFrom.size..st +++ /dev/null @@ -1,4 +0,0 @@ -Object -readDataFrom: aDataStream size: varsOnDisk - ^ self withArgs: {aDataStream. varsOnDisk} - executeMethod: (Object >> #readDataFrom:size:) \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/respondsTo..st b/src/Squot.package/SquotDecorator.class/instance/respondsTo..st deleted file mode 100644 index a785967ac..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/respondsTo..st +++ /dev/null @@ -1,4 +0,0 @@ -Object -respondsTo: aSymbol - ^ (self decoratorClass canUnderstand: aSymbol) - or: [decoratedObject respondsTo: aSymbol] \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/shouldFollowOutboundPointers.st b/src/Squot.package/SquotDecorator.class/instance/shouldFollowOutboundPointers.st deleted file mode 100644 index 89324bff2..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/shouldFollowOutboundPointers.st +++ /dev/null @@ -1,3 +0,0 @@ -tools - debugger -shouldFollowOutboundPointers - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/squotDecoratorClass.st b/src/Squot.package/SquotDecorator.class/instance/squotDecoratorClass.st deleted file mode 100644 index 9958cd531..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/squotDecoratorClass.st +++ /dev/null @@ -1,8 +0,0 @@ -accessing -squotDecoratorClass - "Primitive. Answer the object which is the receiver's class. Essential. See - Object documentation whatIsAPrimitive." - - - ^ self class - "when this is executed by the VM, this answers the correct result, but in the Debugger, it is wrong!" \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/squotDecoratorCopySameFrom..st b/src/Squot.package/SquotDecorator.class/instance/squotDecoratorCopySameFrom..st deleted file mode 100644 index c133ac04b..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/squotDecoratorCopySameFrom..st +++ /dev/null @@ -1,13 +0,0 @@ -copying -squotDecoratorCopySameFrom: otherObject - "Copy of Object>>copySameFrom: but with #squotDecoratorClass instead of #class." - - | myInstVars otherInstVars | - myInstVars := self squotDecoratorClass allInstVarNames. - otherInstVars := otherObject squotDecoratorClass allInstVarNames. - myInstVars withIndexDo: [:each :index | - | match | - (match := otherInstVars indexOf: each) > 0 ifTrue: - [self instVarAt: index put: (otherObject instVarAt: match)]]. - 1 to: (self basicSize min: otherObject basicSize) do: [:i | - self basicAt: i put: (otherObject basicAt: i)]. diff --git a/src/Squot.package/SquotDecorator.class/instance/squotDecoratorDecoratedObject..st b/src/Squot.package/SquotDecorator.class/instance/squotDecoratorDecoratedObject..st deleted file mode 100644 index a5203d34b..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/squotDecoratorDecoratedObject..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -squotDecoratorDecoratedObject: anObject - "Set the decorated object." - "The message name is so long and awkward to avoid shadowing a message to the decorated object." - decoratedObject := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/squotReactivateWith..st b/src/Squot.package/SquotDecorator.class/instance/squotReactivateWith..st deleted file mode 100644 index bef3f2805..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/squotReactivateWith..st +++ /dev/null @@ -1,3 +0,0 @@ -keeping decoration -squotReactivateWith: aMaterializerOrPatcher - ^ self squotSameDecorationOn: (decoratedObject squotReactivateWith: aMaterializerOrPatcher) \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/squotReplacementFor..st b/src/Squot.package/SquotDecorator.class/instance/squotReplacementFor..st deleted file mode 100644 index 97c24a204..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/squotReplacementFor..st +++ /dev/null @@ -1,3 +0,0 @@ -keeping decoration -squotReplacementFor: aCapturer - ^ self squotSameDecorationOn: (decoratedObject squotReplacementFor: aCapturer) \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/squotSameDecorationOn..st b/src/Squot.package/SquotDecorator.class/instance/squotSameDecorationOn..st deleted file mode 100644 index ee43f35e0..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/squotSameDecorationOn..st +++ /dev/null @@ -1,6 +0,0 @@ -keeping decoration -squotSameDecorationOn: anObject - anObject == decoratedObject ifTrue: [^ self]. - ^ (self squotDecoratorClass newFrom: self) - squotDecoratorDecoratedObject: anObject; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/storeDataOn..st b/src/Squot.package/SquotDecorator.class/instance/storeDataOn..st deleted file mode 100644 index 85f388bdc..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/storeDataOn..st +++ /dev/null @@ -1,3 +0,0 @@ -Object -storeDataOn: aDataStream - ^ self withArgs: {aDataStream} executeMethod: (Object >> #storeDataOn:) \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/undecorated.st b/src/Squot.package/SquotDecorator.class/instance/undecorated.st deleted file mode 100644 index 4db651293..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/undecorated.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -undecorated - ^ decoratedObject undecorated \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/instance/xxxClass.st b/src/Squot.package/SquotDecorator.class/instance/xxxClass.st deleted file mode 100644 index e2e2ad1b8..000000000 --- a/src/Squot.package/SquotDecorator.class/instance/xxxClass.st +++ /dev/null @@ -1,3 +0,0 @@ -Object -xxxClass - ^ self withArgs: {} executeMethod: (Object >> #xxxClass) \ No newline at end of file diff --git a/src/Squot.package/SquotDecorator.class/methodProperties.json b/src/Squot.package/SquotDecorator.class/methodProperties.json deleted file mode 100644 index fed295333..000000000 --- a/src/Squot.package/SquotDecorator.class/methodProperties.json +++ /dev/null @@ -1,38 +0,0 @@ -{ - "class" : { - "newFrom:" : "jr 7/20/2017 14:39" }, - "instance" : { - "=" : "jr 6/20/2017 13:42", - "applyDiff:with:" : "jr 5/10/2018 18:41", - "asExplorerString" : "jr 6/20/2017 17:15", - "asLink" : "jr 7/16/2017 11:08", - "basicInspect" : "jr 6/20/2017 13:41", - "basicSize" : "jr 9/15/2018 19:38", - "comeFullyUpOnReload:" : "jr 7/22/2017 01:06", - "copy" : "jr 7/22/2017 01:07", - "decoratorClass" : "jr 6/20/2017 13:31", - "doesNotUnderstand:" : "jr 3/23/2020 21:57", - "in:" : "jr 4/10/2021 17:20", - "inspectorClass" : "jr 1/16/2022 18:28", - "instVarAt:" : "jr 6/20/2017 13:36", - "instVarAt:put:" : "jr 6/20/2017 13:35", - "objectForDataStream:" : "jr 7/22/2017 01:05", - "outboundPointersDo:" : "jr 4/17/2020 15:56", - "perform:" : "jr 7/30/2017 17:25", - "perform:withArguments:" : "jr 7/16/2017 19:41", - "primitiveFailed" : "jr 6/20/2017 13:42", - "printOn:" : "jr 6/20/2017 13:43", - "printString" : "jr 6/20/2017 13:44", - "printStringLimitedTo:" : "jr 6/20/2017 13:57", - "readDataFrom:size:" : "jr 7/20/2017 14:55", - "respondsTo:" : "jr 6/20/2017 13:30", - "shouldFollowOutboundPointers" : "jr 3/4/2020 22:08", - "squotDecoratorClass" : "jr 7/20/2017 14:35", - "squotDecoratorCopySameFrom:" : "jr 5/22/2022 09:14", - "squotDecoratorDecoratedObject:" : "jr 7/20/2017 14:32", - "squotReactivateWith:" : "jr 8/13/2017 20:39", - "squotReplacementFor:" : "jr 8/13/2017 20:36", - "squotSameDecorationOn:" : "jr 7/22/2017 01:05", - "storeDataOn:" : "jr 10/3/2018 16:48", - "undecorated" : "jr 6/20/2017 16:12", - "xxxClass" : "jr 7/20/2017 14:59" } } diff --git a/src/Squot.package/SquotDecorator.class/properties.json b/src/Squot.package/SquotDecorator.class/properties.json deleted file mode 100644 index e4f72b525..000000000 --- a/src/Squot.package/SquotDecorator.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Internal", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 18:54", - "instvars" : [ - "decoratedObject" ], - "name" : "SquotDecorator", - "pools" : [ - ], - "super" : "ProtoObject", - "type" : "normal" } diff --git a/src/Squot.package/SquotDeserializer.class/README.md b/src/Squot.package/SquotDeserializer.class/README.md deleted file mode 100644 index 460eaad84..000000000 --- a/src/Squot.package/SquotDeserializer.class/README.md +++ /dev/null @@ -1,3 +0,0 @@ -I document the interface for every Squot Deserializer. - -Instance Variables diff --git a/src/Squot.package/SquotDeserializer.class/class/canReadObjectSerializedBy..st b/src/Squot.package/SquotDeserializer.class/class/canReadObjectSerializedBy..st deleted file mode 100644 index 9c1e0fd22..000000000 --- a/src/Squot.package/SquotDeserializer.class/class/canReadObjectSerializedBy..st +++ /dev/null @@ -1,4 +0,0 @@ -Squot deserialization -canReadObjectSerializedBy: serializerName - "Answers whether I can read objects written by a Serializer named serializerName" - ^ self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/SquotDeserializer.class/instance/canReadDiffs.st b/src/Squot.package/SquotDeserializer.class/instance/canReadDiffs.st deleted file mode 100644 index ae6536ce4..000000000 --- a/src/Squot.package/SquotDeserializer.class/instance/canReadDiffs.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -canReadDiffs - "Override to answer true if the class implements the deserialization of just differences (given the information which files and directories have changed) instead of reading all files that make up an artifact." - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotDeserializer.class/instance/fillContentOf.from..st b/src/Squot.package/SquotDeserializer.class/instance/fillContentOf.from..st deleted file mode 100644 index b4f017e6b..000000000 --- a/src/Squot.package/SquotDeserializer.class/instance/fillContentOf.from..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot deserialization -fillContentOf: anArtifact from: aFileOrDirectoryReference - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/SquotDeserializer.class/methodProperties.json b/src/Squot.package/SquotDeserializer.class/methodProperties.json deleted file mode 100644 index b49a1a9f9..000000000 --- a/src/Squot.package/SquotDeserializer.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - "canReadObjectSerializedBy:" : "jr 1/18/2017 16:30" }, - "instance" : { - "canReadDiffs" : "jr 11/19/2021 20:50", - "fillContentOf:from:" : "jr 1/29/2017 22:05" } } diff --git a/src/Squot.package/SquotDeserializer.class/properties.json b/src/Squot.package/SquotDeserializer.class/properties.json deleted file mode 100644 index 35d74737b..000000000 --- a/src/Squot.package/SquotDeserializer.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Serialization", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 1/5/2017 15:21", - "instvars" : [ - ], - "name" : "SquotDeserializer", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotDictionaryDiff.class/README.md b/src/Squot.package/SquotDictionaryDiff.class/README.md deleted file mode 100644 index 3214f676f..000000000 --- a/src/Squot.package/SquotDictionaryDiff.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I specialize in the differences between Dictionaries. I send the proper messages to SquotDictionaryShadow to perform my duties. \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryDiff.class/methodProperties.json b/src/Squot.package/SquotDictionaryDiff.class/methodProperties.json deleted file mode 100644 index 0e4a66223..000000000 --- a/src/Squot.package/SquotDictionaryDiff.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - } } diff --git a/src/Squot.package/SquotDictionaryDiff.class/properties.json b/src/Squot.package/SquotDictionaryDiff.class/properties.json deleted file mode 100644 index f20763eed..000000000 --- a/src/Squot.package/SquotDictionaryDiff.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Diffs-Generic", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 19:03", - "instvars" : [ - ], - "name" : "SquotDictionaryDiff", - "pools" : [ - ], - "super" : "SquotHashedCollectionDiff", - "type" : "normal" } diff --git a/src/Squot.package/SquotDictionaryEntry.class/README.md b/src/Squot.package/SquotDictionaryEntry.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotDictionaryEntry.class/class/key..st b/src/Squot.package/SquotDictionaryEntry.class/class/key..st deleted file mode 100644 index 4d6ec559e..000000000 --- a/src/Squot.package/SquotDictionaryEntry.class/class/key..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -key: anObject - ^ self new setKey: anObject; yourself \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryEntry.class/instance/^equals.st b/src/Squot.package/SquotDictionaryEntry.class/instance/^equals.st deleted file mode 100644 index 3ddbf6498..000000000 --- a/src/Squot.package/SquotDictionaryEntry.class/instance/^equals.st +++ /dev/null @@ -1,9 +0,0 @@ -comparing -= anObject - "Answer whether the receiver and anObject represent the same object." - - self == anObject - ifTrue: [^ true]. - self class = anObject class - ifFalse: [^ false]. - ^ self key = anObject key. \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryEntry.class/instance/addTo.withValue..st b/src/Squot.package/SquotDictionaryEntry.class/instance/addTo.withValue..st deleted file mode 100644 index 320ca0720..000000000 --- a/src/Squot.package/SquotDictionaryEntry.class/instance/addTo.withValue..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -addTo: aDictionary withValue: anObject - ^ aDictionary at: key ifPresent: [self error: 'Already exists'] ifAbsentPut: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryEntry.class/instance/asCapturedReference.st b/src/Squot.package/SquotDictionaryEntry.class/instance/asCapturedReference.st deleted file mode 100644 index 626af0093..000000000 --- a/src/Squot.package/SquotDictionaryEntry.class/instance/asCapturedReference.st +++ /dev/null @@ -1,3 +0,0 @@ -capturing -asCapturedReference - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryEntry.class/instance/asDiffTreeStringOrText.st b/src/Squot.package/SquotDictionaryEntry.class/instance/asDiffTreeStringOrText.st deleted file mode 100644 index af0341759..000000000 --- a/src/Squot.package/SquotDictionaryEntry.class/instance/asDiffTreeStringOrText.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -asDiffTreeStringOrText - ^ key printStringLimitedTo: 100 \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryEntry.class/instance/asMaterializedReference.st b/src/Squot.package/SquotDictionaryEntry.class/instance/asMaterializedReference.st deleted file mode 100644 index 668db8146..000000000 --- a/src/Squot.package/SquotDictionaryEntry.class/instance/asMaterializedReference.st +++ /dev/null @@ -1,3 +0,0 @@ -materializing -asMaterializedReference - self shouldBeImplemented. \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryEntry.class/instance/hash.st b/src/Squot.package/SquotDictionaryEntry.class/instance/hash.st deleted file mode 100644 index f80065b78..000000000 --- a/src/Squot.package/SquotDictionaryEntry.class/instance/hash.st +++ /dev/null @@ -1,5 +0,0 @@ -comparing -hash - "Answer an integer value that is related to the identity of the receiver." - - ^ self key hash. \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryEntry.class/instance/key.st b/src/Squot.package/SquotDictionaryEntry.class/instance/key.st deleted file mode 100644 index 8df805514..000000000 --- a/src/Squot.package/SquotDictionaryEntry.class/instance/key.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -key - ^ key \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryEntry.class/instance/printOn..st b/src/Squot.package/SquotDictionaryEntry.class/instance/printOn..st deleted file mode 100644 index a873a7ac8..000000000 --- a/src/Squot.package/SquotDictionaryEntry.class/instance/printOn..st +++ /dev/null @@ -1,8 +0,0 @@ -printing -printOn: aStream - "Append a sequence of characters to aStream that identify the receiver." - - super printOn: aStream. - aStream - nextPutAll: ' key: '; - print: key. \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryEntry.class/instance/reflect.in..st b/src/Squot.package/SquotDictionaryEntry.class/instance/reflect.in..st deleted file mode 100644 index 1929185f2..000000000 --- a/src/Squot.package/SquotDictionaryEntry.class/instance/reflect.in..st +++ /dev/null @@ -1,4 +0,0 @@ -reflection -reflect: aDictionary in: aMirror - "Answer the value of this reference in anObject." - ^ aMirror reflectEntry: self of: aDictionary \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryEntry.class/instance/reflect.in.put..st b/src/Squot.package/SquotDictionaryEntry.class/instance/reflect.in.put..st deleted file mode 100644 index 7d6f3d81e..000000000 --- a/src/Squot.package/SquotDictionaryEntry.class/instance/reflect.in.put..st +++ /dev/null @@ -1,4 +0,0 @@ -reflection -reflect: aDictionary in: aMirror put: newValue - "Replace the value of this reference in anObject." - ^ aMirror reflectEntry: self of: aDictionary put: newValue \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryEntry.class/instance/removeFrom.reflectedIn..st b/src/Squot.package/SquotDictionaryEntry.class/instance/removeFrom.reflectedIn..st deleted file mode 100644 index e44e22aa5..000000000 --- a/src/Squot.package/SquotDictionaryEntry.class/instance/removeFrom.reflectedIn..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -removeFrom: aDictionary reflectedIn: aMirror - ^ aMirror removeDictionaryEntry: self from: aDictionary \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryEntry.class/instance/setKey..st b/src/Squot.package/SquotDictionaryEntry.class/instance/setKey..st deleted file mode 100644 index f0a0479ee..000000000 --- a/src/Squot.package/SquotDictionaryEntry.class/instance/setKey..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -setKey: anObject - key := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryEntry.class/methodProperties.json b/src/Squot.package/SquotDictionaryEntry.class/methodProperties.json deleted file mode 100644 index da6e96f3b..000000000 --- a/src/Squot.package/SquotDictionaryEntry.class/methodProperties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "class" : { - "key:" : "jr 12/15/2020 23:25" }, - "instance" : { - "=" : "jr 12/15/2020 23:29", - "addTo:withValue:" : "jr 12/16/2020 00:31", - "asCapturedReference" : "jr 4/3/2021 21:43", - "asDiffTreeStringOrText" : "jr 1/16/2022 21:43", - "asMaterializedReference" : "jr 4/10/2021 02:27", - "hash" : "jr 12/15/2020 23:29", - "key" : "jr 12/15/2020 23:29", - "printOn:" : "jr 12/15/2020 23:59", - "reflect:in:" : "jr 12/16/2020 00:18", - "reflect:in:put:" : "jr 12/16/2020 00:18", - "removeFrom:reflectedIn:" : "jr 4/8/2021 13:38", - "setKey:" : "jr 12/15/2020 23:26" } } diff --git a/src/Squot.package/SquotDictionaryEntry.class/properties.json b/src/Squot.package/SquotDictionaryEntry.class/properties.json deleted file mode 100644 index 350c2cdda..000000000 --- a/src/Squot.package/SquotDictionaryEntry.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "key" ], - "name" : "SquotDictionaryEntry", - "pools" : [ - ], - "super" : "SquotReference", - "type" : "normal" } diff --git a/src/Squot.package/SquotDictionaryMirror.class/README.md b/src/Squot.package/SquotDictionaryMirror.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotDictionaryMirror.class/instance/classUsesIdentityHash.st b/src/Squot.package/SquotDictionaryMirror.class/instance/classUsesIdentityHash.st deleted file mode 100644 index ab3ff8b62..000000000 --- a/src/Squot.package/SquotDictionaryMirror.class/instance/classUsesIdentityHash.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -classUsesIdentityHash - ^ (class newFromPairs: {(Array new: 0). nil. (Array new: 0). nil}) size > 1 \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryMirror.class/instance/mirrorOf.reachedVia.from..st b/src/Squot.package/SquotDictionaryMirror.class/instance/mirrorOf.reachedVia.from..st deleted file mode 100644 index 7f1e41e1a..000000000 --- a/src/Squot.package/SquotDictionaryMirror.class/instance/mirrorOf.reachedVia.from..st +++ /dev/null @@ -1,5 +0,0 @@ -reflection -mirrorOf: anObject reachedVia: aReference from: referrerObject - (aReference isCollectionElement and: [self classUsesIdentityHash]) - ifTrue: [^ SquotLookupKeyMirror classWithIrrelevantKeyHash: anObject class]. - ^ super mirrorOf: anObject reachedVia: aReference from: referrerObject \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryMirror.class/instance/referencesFrom..st b/src/Squot.package/SquotDictionaryMirror.class/instance/referencesFrom..st deleted file mode 100644 index 4470004cd..000000000 --- a/src/Squot.package/SquotDictionaryMirror.class/instance/referencesFrom..st +++ /dev/null @@ -1,12 +0,0 @@ -enumerating -referencesFrom: aDictionary - | references | - references := OrderedCollection new. - references - addAll: ((class allInstVarNames copyWithoutAll: Dictionary allInstVarNames) - collect: [:each | SquotInstanceVariable named: each]); - addAll: ((1 to: (thisContext objectSize: aDictionary)) - collect: [:each | SquotIndexableField index: each]). - aDictionary associationsDo: - [:each | references add: (SquotCollectionElement targetWithRelevantHash: each)]. - ^ references \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryMirror.class/instance/reflect.removeFrom..st b/src/Squot.package/SquotDictionaryMirror.class/instance/reflect.removeFrom..st deleted file mode 100644 index a7dcaa25d..000000000 --- a/src/Squot.package/SquotDictionaryMirror.class/instance/reflect.removeFrom..st +++ /dev/null @@ -1,5 +0,0 @@ -reflection -reflect: aCollectionElementOrDictionaryEntry removeFrom: aDictionary - "Remove the reference from the object." - ^ aCollectionElementOrDictionaryEntry removeFrom: aDictionary reflectedIn: self - \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryMirror.class/instance/reflectElement.of..st b/src/Squot.package/SquotDictionaryMirror.class/instance/reflectElement.of..st deleted file mode 100644 index 1dfc8961e..000000000 --- a/src/Squot.package/SquotDictionaryMirror.class/instance/reflectElement.of..st +++ /dev/null @@ -1,4 +0,0 @@ -reflection -reflectElement: aCollectionElement of: aDictionary - "Answer the Association from aDictionary with the same key as the element's association key." - ^ aDictionary associationAt: aCollectionElement target key \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryMirror.class/instance/reflectElement.of.put..st b/src/Squot.package/SquotDictionaryMirror.class/instance/reflectElement.of.put..st deleted file mode 100644 index c901733f5..000000000 --- a/src/Squot.package/SquotDictionaryMirror.class/instance/reflectElement.of.put..st +++ /dev/null @@ -1,4 +0,0 @@ -reflection -reflectElement: aSquotCollectionElement of: aDictionary put: anAssociation - aSquotCollectionElement target: anAssociation. - ^ aDictionary add: anAssociation \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryMirror.class/instance/reflectEntry.of..st b/src/Squot.package/SquotDictionaryMirror.class/instance/reflectEntry.of..st deleted file mode 100644 index 817824561..000000000 --- a/src/Squot.package/SquotDictionaryMirror.class/instance/reflectEntry.of..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflectEntry: aDictionaryEntry of: aDictionary - ^ aDictionary at: aDictionaryEntry key \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryMirror.class/instance/reflectEntry.of.put..st b/src/Squot.package/SquotDictionaryMirror.class/instance/reflectEntry.of.put..st deleted file mode 100644 index 2b5047718..000000000 --- a/src/Squot.package/SquotDictionaryMirror.class/instance/reflectEntry.of.put..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflectEntry: aDictionaryEntry of: aDictionary put: newValue - ^ aDictionary at: aDictionaryEntry key put: newValue \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryMirror.class/instance/removeDictionaryEntry.from..st b/src/Squot.package/SquotDictionaryMirror.class/instance/removeDictionaryEntry.from..st deleted file mode 100644 index 5b9945722..000000000 --- a/src/Squot.package/SquotDictionaryMirror.class/instance/removeDictionaryEntry.from..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -removeDictionaryEntry: aDictionaryEntry from: aDictionary - ^ aDictionary removeKey: aDictionaryEntry key \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryMirror.class/instance/removeElement.from..st b/src/Squot.package/SquotDictionaryMirror.class/instance/removeElement.from..st deleted file mode 100644 index 3cd40c9b8..000000000 --- a/src/Squot.package/SquotDictionaryMirror.class/instance/removeElement.from..st +++ /dev/null @@ -1,4 +0,0 @@ -reflection -removeElement: aCollectionElement from: aDictionary - ^ (aDictionary at: aCollectionElement target key ifAbsent: []) = aCollectionElement target value - ifTrue: [aDictionary removeKey: aCollectionElement target key] \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryMirror.class/instance/shadowFactory.st b/src/Squot.package/SquotDictionaryMirror.class/instance/shadowFactory.st deleted file mode 100644 index f2d79203b..000000000 --- a/src/Squot.package/SquotDictionaryMirror.class/instance/shadowFactory.st +++ /dev/null @@ -1,3 +0,0 @@ -capturing -shadowFactory - ^ SquotDictionaryShadow \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryMirror.class/instance/shouldObjectHaveNameAssigned..st b/src/Squot.package/SquotDictionaryMirror.class/instance/shouldObjectHaveNameAssigned..st deleted file mode 100644 index 4b7b58206..000000000 --- a/src/Squot.package/SquotDictionaryMirror.class/instance/shouldObjectHaveNameAssigned..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -shouldObjectHaveNameAssigned: aDictionary - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryMirror.class/methodProperties.json b/src/Squot.package/SquotDictionaryMirror.class/methodProperties.json deleted file mode 100644 index 3c85bd727..000000000 --- a/src/Squot.package/SquotDictionaryMirror.class/methodProperties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "classUsesIdentityHash" : "jr 4/17/2021 17:35", - "mirrorOf:reachedVia:from:" : "jr 4/17/2021 18:11", - "referencesFrom:" : "jr 4/17/2021 21:14", - "reflect:removeFrom:" : "jr 4/8/2021 13:35", - "reflectElement:of:" : "jr 4/3/2021 22:20", - "reflectElement:of:put:" : "jr 4/10/2021 17:24", - "reflectEntry:of:" : "jr 12/16/2020 00:18", - "reflectEntry:of:put:" : "jr 12/16/2020 00:18", - "removeDictionaryEntry:from:" : "jr 4/8/2021 13:40", - "removeElement:from:" : "jr 4/8/2021 13:37", - "shadowFactory" : "jr 1/17/2021 23:02", - "shouldObjectHaveNameAssigned:" : "jr 1/10/2021 21:55" } } diff --git a/src/Squot.package/SquotDictionaryMirror.class/properties.json b/src/Squot.package/SquotDictionaryMirror.class/properties.json deleted file mode 100644 index 732288a0d..000000000 --- a/src/Squot.package/SquotDictionaryMirror.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotDictionaryMirror", - "pools" : [ - ], - "super" : "SquotObjectMirror", - "type" : "normal" } diff --git a/src/Squot.package/SquotDictionaryShadow.class/README.md b/src/Squot.package/SquotDictionaryShadow.class/README.md deleted file mode 100644 index 2eb61b1d5..000000000 --- a/src/Squot.package/SquotDictionaryShadow.class/README.md +++ /dev/null @@ -1,6 +0,0 @@ -I am a captured Dictionary. My item slots (for HashedCollection items) are the shadows of the associations contained in me. - -Materialization of dictionaries is a bit tricky: - 1. The dictionary must only be reactivated (rehashed) once all associations are materialized and in place. - 2. Associations must only be added once their key is materialized and in place. They must not be added in an intermediary nil->nil state because their key hash is still wrong. -Therefore, all references to associations indicate that the hash of the reference value is significant. This will cause that the associations are not added to the Dictionary until they are fully reactivated (which is done only after all their references, to the key and value, have been filled in). While IdentityDictionaries do not need the hash of the key, but only its identity hash, still they must wait until the key is filled into the association. For simplicity, these associations are also added only after they have been fully reactivated. \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryShadow.class/class/squotMirror.st b/src/Squot.package/SquotDictionaryShadow.class/class/squotMirror.st deleted file mode 100644 index a5bfcbd54..000000000 --- a/src/Squot.package/SquotDictionaryShadow.class/class/squotMirror.st +++ /dev/null @@ -1,3 +0,0 @@ -reflecting -squotMirror - ^ SquotDictionaryShadowMirror class: self \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryShadow.class/instance/addAssociation..st b/src/Squot.package/SquotDictionaryShadow.class/instance/addAssociation..st deleted file mode 100644 index f4dd9596c..000000000 --- a/src/Squot.package/SquotDictionaryShadow.class/instance/addAssociation..st +++ /dev/null @@ -1,6 +0,0 @@ -initialize-release -addAssociation: aShadowOfAnAssociation - "Adds an association to the dictionary. - The association must already have been added to the patcher's target graph!" - self flag: 'TODO: what if an association with an equal dictionary key already exists?'. - itemSlots := itemSlots copyWith: (SquotDictionarySlot key: nil value: aShadowOfAnAssociation). \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryShadow.class/instance/addAssociation.with..st b/src/Squot.package/SquotDictionaryShadow.class/instance/addAssociation.with..st deleted file mode 100644 index 0e5be1469..000000000 --- a/src/Squot.package/SquotDictionaryShadow.class/instance/addAssociation.with..st +++ /dev/null @@ -1,6 +0,0 @@ -initialize-release -addAssociation: aShadowOfAnAssociation with: aPatcher - "Adds an association to the dictionary. - The association must already have been added to the patcher's target graph!" - self flag: 'TODO: what if an association with an equal key already exists?'. - itemSlots := itemSlots copyWith: (SquotDictionarySlot key: (aPatcher nameOf: aShadowOfAnAssociation undecorated) value: aShadowOfAnAssociation). \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryShadow.class/instance/atElement.put..st b/src/Squot.package/SquotDictionaryShadow.class/instance/atElement.put..st deleted file mode 100644 index 0c9d0a4b1..000000000 --- a/src/Squot.package/SquotDictionaryShadow.class/instance/atElement.put..st +++ /dev/null @@ -1,7 +0,0 @@ -initialize-release -atElement: aSquotCollectionElement put: anObject - | existing | - existing := itemSlots detect: [:each | each key = aSquotCollectionElement] ifNone: []. - existing - ifNil: [itemSlots := itemSlots copyWith: (SquotDictionarySlot key: aSquotCollectionElement value: anObject)] - ifNotNil: [existing value: anObject]. \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryShadow.class/instance/diffClass.st b/src/Squot.package/SquotDictionaryShadow.class/instance/diffClass.st deleted file mode 100644 index 4e19f6e3d..000000000 --- a/src/Squot.package/SquotDictionaryShadow.class/instance/diffClass.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -diffClass - ^ SquotDictionaryDiff \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryShadow.class/instance/explorerItemFor..st b/src/Squot.package/SquotDictionaryShadow.class/instance/explorerItemFor..st deleted file mode 100644 index d39d2726c..000000000 --- a/src/Squot.package/SquotDictionaryShadow.class/instance/explorerItemFor..st +++ /dev/null @@ -1,7 +0,0 @@ -*Squot-Tools -explorerItemFor: aDictionarySlot - ^ ObjectExplorerWrapper - with: aDictionarySlot valueShadow - name: aDictionarySlot keyShadow printString - model: self - \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryShadow.class/instance/initializeHashedItems.with..st b/src/Squot.package/SquotDictionaryShadow.class/instance/initializeHashedItems.with..st deleted file mode 100644 index 3f8d9ce19..000000000 --- a/src/Squot.package/SquotDictionaryShadow.class/instance/initializeHashedItems.with..st +++ /dev/null @@ -1,6 +0,0 @@ -hashed slots -initializeHashedItems: aDictionary with: aCapturer - self flag: #deprecated. "Ask the mirror instead." - itemSlots := (aDictionary associations collect: [:each | | slot | - slot := aCapturer capture: each asValueOfSlot: SquotDictionarySlot new. - slot key: (aCapturer nameOf: each)]). \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryShadow.class/instance/removeAssociation..st b/src/Squot.package/SquotDictionaryShadow.class/instance/removeAssociation..st deleted file mode 100644 index df0217aa5..000000000 --- a/src/Squot.package/SquotDictionaryShadow.class/instance/removeAssociation..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -removeAssociation: aShadowOfAnAssociation - itemSlots := itemSlots copyWithout: - (itemSlots detect: [:each | each value = aShadowOfAnAssociation]). \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryShadow.class/methodProperties.json b/src/Squot.package/SquotDictionaryShadow.class/methodProperties.json deleted file mode 100644 index 87934bde2..000000000 --- a/src/Squot.package/SquotDictionaryShadow.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - "squotMirror" : "jr 1/17/2021 23:04" }, - "instance" : { - "addAssociation:" : "jr 9/23/2019 23:23", - "addAssociation:with:" : "jr 5/11/2018 00:23", - "atElement:put:" : "jr 4/7/2021 22:26", - "diffClass" : "jr 6/12/2017 13:05", - "explorerItemFor:" : "jr 12/30/2019 01:02", - "initializeHashedItems:with:" : "jr 4/7/2021 21:06", - "removeAssociation:" : "jr 7/29/2017 22:25" } } diff --git a/src/Squot.package/SquotDictionaryShadow.class/properties.json b/src/Squot.package/SquotDictionaryShadow.class/properties.json deleted file mode 100644 index 43486c905..000000000 --- a/src/Squot.package/SquotDictionaryShadow.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Shadows", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 4/17/2021 21:08", - "instvars" : [ - ], - "name" : "SquotDictionaryShadow", - "pools" : [ - ], - "super" : "SquotHashedCollectionShadow", - "type" : "normal" } diff --git a/src/Squot.package/SquotDictionaryShadowMirror.class/README.md b/src/Squot.package/SquotDictionaryShadowMirror.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotDictionaryShadowMirror.class/instance/reflectElement.of..st b/src/Squot.package/SquotDictionaryShadowMirror.class/instance/reflectElement.of..st deleted file mode 100644 index 3469f80a1..000000000 --- a/src/Squot.package/SquotDictionaryShadowMirror.class/instance/reflectElement.of..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflectElement: aSquotCollectionElement of: aSquotDictionaryShadow - ^ aSquotDictionaryShadow atElement: aSquotCollectionElement \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryShadowMirror.class/instance/reflectElement.of.put..st b/src/Squot.package/SquotDictionaryShadowMirror.class/instance/reflectElement.of.put..st deleted file mode 100644 index 0c9d7fb95..000000000 --- a/src/Squot.package/SquotDictionaryShadowMirror.class/instance/reflectElement.of.put..st +++ /dev/null @@ -1,5 +0,0 @@ -reflection -reflectElement: aCollectionElement of: aDictionaryShadow put: anObject - aCollectionElement target: anObject. - aDictionaryShadow atElement: aCollectionElement put: anObject. - ^ anObject \ No newline at end of file diff --git a/src/Squot.package/SquotDictionaryShadowMirror.class/methodProperties.json b/src/Squot.package/SquotDictionaryShadowMirror.class/methodProperties.json deleted file mode 100644 index 7a74f2ed2..000000000 --- a/src/Squot.package/SquotDictionaryShadowMirror.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "reflectElement:of:" : "jr 4/10/2021 17:01", - "reflectElement:of:put:" : "jr 4/7/2021 22:26" } } diff --git a/src/Squot.package/SquotDictionaryShadowMirror.class/properties.json b/src/Squot.package/SquotDictionaryShadowMirror.class/properties.json deleted file mode 100644 index 520110476..000000000 --- a/src/Squot.package/SquotDictionaryShadowMirror.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotDictionaryShadowMirror", - "pools" : [ - ], - "super" : "SquotObjectShadowMirror", - "type" : "normal" } diff --git a/src/Squot.package/SquotDictionarySlot.class/README.md b/src/Squot.package/SquotDictionarySlot.class/README.md deleted file mode 100644 index b0170b20c..000000000 --- a/src/Squot.package/SquotDictionarySlot.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I capture the containment of an association in a dictionary. \ No newline at end of file diff --git a/src/Squot.package/SquotDictionarySlot.class/class/printHeadlineForChangesTextOn..st b/src/Squot.package/SquotDictionarySlot.class/class/printHeadlineForChangesTextOn..st deleted file mode 100644 index d8a2ac296..000000000 --- a/src/Squot.package/SquotDictionarySlot.class/class/printHeadlineForChangesTextOn..st +++ /dev/null @@ -1,3 +0,0 @@ -tools -printHeadlineForChangesTextOn: aTextStream - aTextStream nextPutAll: 'association changes'. \ No newline at end of file diff --git a/src/Squot.package/SquotDictionarySlot.class/instance/addTo..st b/src/Squot.package/SquotDictionarySlot.class/instance/addTo..st deleted file mode 100644 index eecde3f4e..000000000 --- a/src/Squot.package/SquotDictionarySlot.class/instance/addTo..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -addTo: aDictionaryShadow - aDictionaryShadow addAssociation: self association. \ No newline at end of file diff --git a/src/Squot.package/SquotDictionarySlot.class/instance/addTo.with..st b/src/Squot.package/SquotDictionarySlot.class/instance/addTo.with..st deleted file mode 100644 index b650ac62d..000000000 --- a/src/Squot.package/SquotDictionarySlot.class/instance/addTo.with..st +++ /dev/null @@ -1,4 +0,0 @@ -patching -addTo: aDictionaryShadow with: aPatcher - aPatcher addToGraph: self association. - aDictionaryShadow addAssociation: self association with: aPatcher. \ No newline at end of file diff --git a/src/Squot.package/SquotDictionarySlot.class/instance/asReference.st b/src/Squot.package/SquotDictionarySlot.class/instance/asReference.st deleted file mode 100644 index d0542c8f3..000000000 --- a/src/Squot.package/SquotDictionarySlot.class/instance/asReference.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -asReference - ^ SquotCollectionElement target: self association \ No newline at end of file diff --git a/src/Squot.package/SquotDictionarySlot.class/instance/association.st b/src/Squot.package/SquotDictionarySlot.class/instance/association.st deleted file mode 100644 index ce2b72f28..000000000 --- a/src/Squot.package/SquotDictionarySlot.class/instance/association.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -association - ^ self value \ No newline at end of file diff --git a/src/Squot.package/SquotDictionarySlot.class/instance/diffToBaseDictionarySlot..st b/src/Squot.package/SquotDictionarySlot.class/instance/diffToBaseDictionarySlot..st deleted file mode 100644 index 83909dd43..000000000 --- a/src/Squot.package/SquotDictionarySlot.class/instance/diffToBaseDictionarySlot..st +++ /dev/null @@ -1,5 +0,0 @@ -comparing -diffToBaseDictionarySlot: aDictionarySlot - self assert: aDictionarySlot value = self value - description: 'Associations should be added or removed'. - ^ SquotDiffOfEqualObjects instance \ No newline at end of file diff --git a/src/Squot.package/SquotDictionarySlot.class/instance/keyShadow.st b/src/Squot.package/SquotDictionarySlot.class/instance/keyShadow.st deleted file mode 100644 index f07f3d7e1..000000000 --- a/src/Squot.package/SquotDictionarySlot.class/instance/keyShadow.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -keyShadow - ^ (self association instVarSlotNamed: #key) \ No newline at end of file diff --git a/src/Squot.package/SquotDictionarySlot.class/instance/lookupIn..st b/src/Squot.package/SquotDictionarySlot.class/instance/lookupIn..st deleted file mode 100644 index d111819eb..000000000 --- a/src/Squot.package/SquotDictionarySlot.class/instance/lookupIn..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -lookupIn: aHashedCollectionShadow - ^ aHashedCollectionShadow itemSlotForValue: self value \ No newline at end of file diff --git a/src/Squot.package/SquotDictionarySlot.class/instance/newNameFragment.st b/src/Squot.package/SquotDictionarySlot.class/instance/newNameFragment.st deleted file mode 100644 index 67c99dfcf..000000000 --- a/src/Squot.package/SquotDictionarySlot.class/instance/newNameFragment.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -newNameFragment - "The associations do not have an ordering in general (they do have for OrderedDictionary, but we do not specialize for it here)." - ^ 'an Association' \ No newline at end of file diff --git a/src/Squot.package/SquotDictionarySlot.class/instance/removeFrom..st b/src/Squot.package/SquotDictionarySlot.class/instance/removeFrom..st deleted file mode 100644 index ff0b2065a..000000000 --- a/src/Squot.package/SquotDictionarySlot.class/instance/removeFrom..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -removeFrom: aDictionaryShadow - aDictionaryShadow removeAssociation: self association \ No newline at end of file diff --git a/src/Squot.package/SquotDictionarySlot.class/instance/removeFrom.with..st b/src/Squot.package/SquotDictionarySlot.class/instance/removeFrom.with..st deleted file mode 100644 index 1789b9a8c..000000000 --- a/src/Squot.package/SquotDictionarySlot.class/instance/removeFrom.with..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -removeFrom: aDictionaryShadow with: aPatcher - aDictionaryShadow removeAssociation: self association \ No newline at end of file diff --git a/src/Squot.package/SquotDictionarySlot.class/instance/squotDiffAgainst..st b/src/Squot.package/SquotDictionarySlot.class/instance/squotDiffAgainst..st deleted file mode 100644 index a0a7a0b51..000000000 --- a/src/Squot.package/SquotDictionarySlot.class/instance/squotDiffAgainst..st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -squotDiffAgainst: otherSlot - ^ otherSlot diffToBaseDictionarySlot: self \ No newline at end of file diff --git a/src/Squot.package/SquotDictionarySlot.class/instance/valueShadow.st b/src/Squot.package/SquotDictionarySlot.class/instance/valueShadow.st deleted file mode 100644 index 7eda0958e..000000000 --- a/src/Squot.package/SquotDictionarySlot.class/instance/valueShadow.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -valueShadow - ^ (self association instVarSlotNamed: #value) \ No newline at end of file diff --git a/src/Squot.package/SquotDictionarySlot.class/methodProperties.json b/src/Squot.package/SquotDictionarySlot.class/methodProperties.json deleted file mode 100644 index 1eae7b787..000000000 --- a/src/Squot.package/SquotDictionarySlot.class/methodProperties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "class" : { - "printHeadlineForChangesTextOn:" : "jr 10/31/2017 20:53" }, - "instance" : { - "addTo:" : "jr 9/23/2019 23:20", - "addTo:with:" : "jr 7/30/2017 00:19", - "asReference" : "jr 4/10/2021 12:26", - "association" : "jr 6/20/2017 17:48", - "diffToBaseDictionarySlot:" : "jr 9/18/2019 20:35", - "keyShadow" : "jr 2/23/2020 20:13", - "lookupIn:" : "jr 7/16/2017 15:37", - "newNameFragment" : "jr 7/30/2017 00:42", - "removeFrom:" : "jr 9/25/2019 20:24", - "removeFrom:with:" : "jr 7/29/2017 22:24", - "squotDiffAgainst:" : "jr 9/18/2019 20:26", - "valueShadow" : "jr 2/23/2020 20:13" } } diff --git a/src/Squot.package/SquotDictionarySlot.class/properties.json b/src/Squot.package/SquotDictionarySlot.class/properties.json deleted file mode 100644 index 12cbbba03..000000000 --- a/src/Squot.package/SquotDictionarySlot.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Shadows", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 9/18/2019 20:33", - "instvars" : [ - ], - "name" : "SquotDictionarySlot", - "pools" : [ - ], - "super" : "SquotShadowSlot", - "type" : "normal" } diff --git a/src/Squot.package/SquotDiffBuilder.class/README.md b/src/Squot.package/SquotDiffBuilder.class/README.md deleted file mode 100644 index 3a3d85634..000000000 --- a/src/Squot.package/SquotDiffBuilder.class/README.md +++ /dev/null @@ -1,18 +0,0 @@ -I create diffs for graphs of objects. - -To dispatch the diff creation for two objects, send #left:right: to me. -To create a diff for transforming one shadow into another send #transformingFrom:to: to me. -To create a diff that will replace one object with another at the target, send #replacing:with: to me. This is most relevant for primitive values such as SmallIntegers, Characters, true, false, nil. - -In slots-based shadows (SquotObjectShadow and subclasses), I will insert SquotSlotTransitiveChange instances along the path to objects whose slots have been modified. To achieve that, the referrer slots (owning object + the slot itself) are remembered for each visited object. Each such referrer link is like an inverted edge in the diffed object graph. When actual differences for an object are detected, the chain of referrer links is followed to create the SquotSlotTransitiveChange slot diffs. - -Instance Variables - absentShadows: cache of shadows (by type) denoting absence - objectDiffs: Diff> already created diffs - shadowNames: name> names of the encountered objects - diffedPair: current pair of compared objects - graphDiff: that is under construction - objectsWithChanges: objects for which changes have already been found and for which SquotSlotTransitiveChanges have already been created - referrers: Collection> inverse edges of the object graph for creating SquotSlotTransitiveChanges when necessary - toBeVisited: search queue for the object graph traversal - visited: already visited objects, used for multiple-path pruning \ No newline at end of file diff --git a/src/Squot.package/SquotDiffBuilder.class/instance/addChangesTo.when.reachedFrom.isDifferentFrom.reachedFrom.via..st b/src/Squot.package/SquotDiffBuilder.class/instance/addChangesTo.when.reachedFrom.isDifferentFrom.reachedFrom.via..st deleted file mode 100644 index cc864b861..000000000 --- a/src/Squot.package/SquotDiffBuilder.class/instance/addChangesTo.when.reachedFrom.isDifferentFrom.reachedFrom.via..st +++ /dev/null @@ -1,39 +0,0 @@ -private -addChangesTo: diff when: leftValue reachedFrom: leftShadow isDifferentFrom: rightValue reachedFrom: rightShadow via: aReference - | rightName | - self rememberNameOf: leftValue. - rightName := self rememberNameOf: rightValue. - (shadowNames at: leftValue undecorated ifAbsent: [1]) - = (shadowNames at: rightValue undecorated ifAbsent: [2]) - ifTrue: "The reference itself did not change, but we might later find out that the value has some differences." - [| alreadyVisited | - alreadyVisited := false. - walk checkPathsTo: leftValue undecorated ifMultiple: [alreadyVisited := true]. - alreadyVisited - ifTrue: - [(objectsWithChanges includes: leftValue undecorated) - ifTrue: [diff addReferenceDiff: - (SquotDifferentReferenceTarget - reference: aReference - leftOwner: leftShadow target: leftValue - rightOwner: rightShadow target: rightValue)]] - ifFalse: "left object not visited yet" - [self compareLater: leftValue with: rightValue reachedVia: aReference]] - ifFalse: "Reference was reassigned to a different object or the targets are value objects." - [leftValue = rightValue ifFalse: - [diff addReferenceDiff: - (SquotReferenceTargetExchange - reference: aReference - leftOwner: leftShadow target: leftValue - rightOwner: rightShadow target: rightValue)]]. - rightValue sameIn: left asIn: right ifAbsent: - [| alreadyVisited | - alreadyVisited := false. - walk checkPathsTo: rightValue ifMultiple: [alreadyVisited := true]. - alreadyVisited ifFalse: - [self addedObject: rightValue withName: rightName reachedVia: aReference]]. - (objectsWithChanges includes: leftValue undecorated) ifFalse: - [(referrers at: leftValue undecorated ifAbsentPut: [OrderedCollection new]) - add: leftShadow -> aReference. - (referrers at: rightValue undecorated ifAbsentPut: [OrderedCollection new]) - add: rightShadow -> aReference]. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffBuilder.class/instance/addDiffsToGraphDiff.st b/src/Squot.package/SquotDiffBuilder.class/instance/addDiffsToGraphDiff.st deleted file mode 100644 index 42e285b41..000000000 --- a/src/Squot.package/SquotDiffBuilder.class/instance/addDiffsToGraphDiff.st +++ /dev/null @@ -1,7 +0,0 @@ -private -addDiffsToGraphDiff - (objectDiffs select: [:each | each squotHasChanges]) - keysAndValuesDo: - [:shadow :diff | - graphDiff addDiff: diff forObjectNamed: (left nameOf: shadow). - self noteChanged: shadow]. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffBuilder.class/instance/addedObject.withName.reachedVia..st b/src/Squot.package/SquotDiffBuilder.class/instance/addedObject.withName.reachedVia..st deleted file mode 100644 index 6bd1d0d4e..000000000 --- a/src/Squot.package/SquotDiffBuilder.class/instance/addedObject.withName.reachedVia..st +++ /dev/null @@ -1,4 +0,0 @@ -private -addedObject: aShadow withName: name reachedVia: aReference - name ifNotNil: [graphDiff addShadow: aShadow named: name]. - walk addNewObject: aShadow reachedVia: aReference. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffBuilder.class/instance/compare.reachedFrom.with.reachedFrom.via..st b/src/Squot.package/SquotDiffBuilder.class/instance/compare.reachedFrom.with.reachedFrom.via..st deleted file mode 100644 index 48385e1a9..000000000 --- a/src/Squot.package/SquotDiffBuilder.class/instance/compare.reachedFrom.with.reachedFrom.via..st +++ /dev/null @@ -1,40 +0,0 @@ -private -compare: leftShadow reachedFrom: leftReferrer with: rightShadow reachedFrom: rightReferrer via: reference - | diff | - diff := objectDiffs at: leftShadow undecorated. - "Give objects with intrinsic state a chance to compute the mutation." - diff initializeFrom: leftShadow to: rightShadow. - "For other objects, the evaluation of the references is the important part." - walk followReferencesOf: leftShadow and: rightShadow - ifDifferentShape: - ["Replaced or objects without modeled outgoing references." - "Except for the start objects, this case was already handled in detectStartObjectReplacement:with:. Objects of different kinds must have different identities if they have any identity at all." - | name | - self assert: reference isNil. "May only happen with the start objects." - name := shadowNames at: rightShadow undecorated. - self searchFor: rightShadow - named: name - ifNew: - [self addedObject: rightShadow withName: name reachedVia: nil. - "Add to the walk again to get the addition in the graph diff."] - ifFound: - [:existing | - existing undecorated ~= leftShadow - ifTrue: [self compareLater: existing with: rightShadow reachedVia: nil]]] - ifFromBoth: - [:leftValue :rightValue :commonPath | - self addChangesTo: diff - when: leftValue reachedFrom: leftShadow - isDifferentFrom: rightValue reachedFrom: rightShadow via: commonPath last] - ifOnlyLeft: [:removed :oldPath | "Reference was removed" - diff addReferenceDiff: - (SquotReferenceRemoval of: removed - from: leftShadow reference: oldPath last - rightObject: rightShadow)] - ifOnlyRight: [:added :newPath | - "Reference was added. Target might be new too, but not necessarily." - diff addReferenceDiff: - (SquotReferenceAddition - to: leftShadow reference: newPath last target: added - rightOwner: rightShadow). - self searchAndFollowOnce: added reachedVia: newPath last]. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffBuilder.class/instance/compareLater.with.reachedVia..st b/src/Squot.package/SquotDiffBuilder.class/instance/compareLater.with.reachedVia..st deleted file mode 100644 index baeda6f61..000000000 --- a/src/Squot.package/SquotDiffBuilder.class/instance/compareLater.with.reachedVia..st +++ /dev/null @@ -1,7 +0,0 @@ -private -compareLater: leftValue with: rightValue reachedVia: aReference - | newDiff | - leftValue undecorated = rightValue undecorated ifTrue: [^ self]. - "Attention: the comparison above might not return if shadows implement comparing and do not watch out for cycles in the object graph." - newDiff := walk addLeft: leftValue right: rightValue reachedVia: aReference. - objectDiffs at: leftValue undecorated put: newDiff. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffBuilder.class/instance/detectStartObjectReplacement.with..st b/src/Squot.package/SquotDiffBuilder.class/instance/detectStartObjectReplacement.with..st deleted file mode 100644 index 26cc80256..000000000 --- a/src/Squot.package/SquotDiffBuilder.class/instance/detectStartObjectReplacement.with..st +++ /dev/null @@ -1,8 +0,0 @@ -private -detectStartObjectReplacement: leftStartShadow with: rightStartShadow - (shadowNames at: leftStartShadow undecorated) ~= (shadowNames at: rightStartShadow undecorated) - ifTrue: - ["Start objects have different identities." - | newName | - newName := shadowNames at: rightStartShadow undecorated. - objectDiffs at: leftStartShadow undecorated put: (SquotObjectReplacement left: leftStartShadow right: rightStartShadow)]. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffBuilder.class/instance/diffFrom.to.ifNew.andInitialize..st b/src/Squot.package/SquotDiffBuilder.class/instance/diffFrom.to.ifNew.andInitialize..st deleted file mode 100644 index 375ceee47..000000000 --- a/src/Squot.package/SquotDiffBuilder.class/instance/diffFrom.to.ifNew.andInitialize..st +++ /dev/null @@ -1,13 +0,0 @@ -comparing -diffFrom: leftShadow to: rightShadow ifNew: newBlock andInitialize: initBlock - | diff leftUndecorated | - self deprecated: 'Rely on the walk (SquotGraphComparisonWalk) instead'. - leftUndecorated := leftShadow undecorated. - diff := objectDiffs at: leftUndecorated - ifPresent: [:existing | ^ existing] - ifAbsentPut: newBlock. - initBlock cull: diff cull: leftShadow cull: rightShadow. - diff squotHasChanges ifTrue: - [graphDiff addDiff: diff forObjectNamed: (shadowNames at: leftUndecorated ifAbsent: nil). - self noteChanged: leftUndecorated]. - ^ diff \ No newline at end of file diff --git a/src/Squot.package/SquotDiffBuilder.class/instance/followNewObject..st b/src/Squot.package/SquotDiffBuilder.class/instance/followNewObject..st deleted file mode 100644 index daeb3a3bb..000000000 --- a/src/Squot.package/SquotDiffBuilder.class/instance/followNewObject..st +++ /dev/null @@ -1,4 +0,0 @@ -private -followNewObject: rightShadow - walk followReferencesOfNewObject: rightShadow do: - [:value :newPath | self searchAndFollowOnce: value reachedVia: newPath last]. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffBuilder.class/instance/initialize.st b/src/Squot.package/SquotDiffBuilder.class/instance/initialize.st deleted file mode 100644 index c482103d4..000000000 --- a/src/Squot.package/SquotDiffBuilder.class/instance/initialize.st +++ /dev/null @@ -1,9 +0,0 @@ -initialize-release -initialize - objectDiffs := IdentityDictionary new. - shadowNames := IdentityDictionary new. - toBeVisited := OrderedCollection new. - visited := IdentitySet new. - referrers := IdentityDictionary new. - objectsWithChanges := IdentitySet new. - graphDiff := SquotObjectGraphDiff new. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffBuilder.class/instance/left..st b/src/Squot.package/SquotDiffBuilder.class/instance/left..st deleted file mode 100644 index 76788dbf7..000000000 --- a/src/Squot.package/SquotDiffBuilder.class/instance/left..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -left: anObject - left := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotDiffBuilder.class/instance/left.st b/src/Squot.package/SquotDiffBuilder.class/instance/left.st deleted file mode 100644 index 3bb36da8e..000000000 --- a/src/Squot.package/SquotDiffBuilder.class/instance/left.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -left - ^ left \ No newline at end of file diff --git a/src/Squot.package/SquotDiffBuilder.class/instance/noteChanged..st b/src/Squot.package/SquotDiffBuilder.class/instance/noteChanged..st deleted file mode 100644 index c164bd357..000000000 --- a/src/Squot.package/SquotDiffBuilder.class/instance/noteChanged..st +++ /dev/null @@ -1,13 +0,0 @@ -private diffing -noteChanged: anUndecoratedShadow - | name | - (objectsWithChanges ifAbsentAdd: anUndecoratedShadow) - ifFalse: [^ self]. - name := shadowNames at: anUndecoratedShadow. - graphDiff diffForObjectNamed: name - ifAbsent: [graphDiff addDiff: (objectDiffs at: anUndecoratedShadow) forObjectNamed: name]. - (referrers removeKey: anUndecoratedShadow ifAbsent: #()) - do: [:each | - self noteChangedReferrer: each key - via: each value - to: anUndecoratedShadow] \ No newline at end of file diff --git a/src/Squot.package/SquotDiffBuilder.class/instance/noteChangedReferrer.via.to..st b/src/Squot.package/SquotDiffBuilder.class/instance/noteChangedReferrer.via.to..st deleted file mode 100644 index e073eefe5..000000000 --- a/src/Squot.package/SquotDiffBuilder.class/instance/noteChangedReferrer.via.to..st +++ /dev/null @@ -1,6 +0,0 @@ -private diffing -noteChangedReferrer: referringShadow via: aReference to: anUndecoratedShadow - "Add a deep change for aSlot in the diff of referringShadow." - (objectDiffs at: referringShadow undecorated) - addTransitiveChangeIn: aReference. - self noteChanged: referringShadow. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffBuilder.class/instance/rememberNameOf..st b/src/Squot.package/SquotDiffBuilder.class/instance/rememberNameOf..st deleted file mode 100644 index c2c7f2e1f..000000000 --- a/src/Squot.package/SquotDiffBuilder.class/instance/rememberNameOf..st +++ /dev/null @@ -1,9 +0,0 @@ -private -rememberNameOf: aShadow - aShadow hasSquotShadowName - ifTrue: [^ shadowNames at: aShadow undecorated put: aShadow name]. - (left nameOf: aShadow undecorated ifAbsent: []) - ifNotNil: [:name | ^ shadowNames at: aShadow undecorated put: name]. - (right nameOf: aShadow undecorated ifAbsent: []) - ifNotNil: [:name | ^ shadowNames at: aShadow undecorated put: name]. - ^ nil \ No newline at end of file diff --git a/src/Squot.package/SquotDiffBuilder.class/instance/rememberNameOf.orAssume..st b/src/Squot.package/SquotDiffBuilder.class/instance/rememberNameOf.orAssume..st deleted file mode 100644 index b617b257f..000000000 --- a/src/Squot.package/SquotDiffBuilder.class/instance/rememberNameOf.orAssume..st +++ /dev/null @@ -1,6 +0,0 @@ -private -rememberNameOf: aShadow orAssume: fallbackNameBlock - ^ shadowNames at: aShadow undecorated put: - (aShadow hasSquotShadowName - ifTrue: [aShadow name] - ifFalse: [fallbackNameBlock value]) \ No newline at end of file diff --git a/src/Squot.package/SquotDiffBuilder.class/instance/rememberStartObjectNamesLeft.right..st b/src/Squot.package/SquotDiffBuilder.class/instance/rememberStartObjectNamesLeft.right..st deleted file mode 100644 index d60bda1bb..000000000 --- a/src/Squot.package/SquotDiffBuilder.class/instance/rememberStartObjectNamesLeft.right..st +++ /dev/null @@ -1,8 +0,0 @@ -private -rememberStartObjectNamesLeft: leftStartShadow right: rightStartShadow - | fallbackName | - fallbackName := ({rightStartShadow. leftStartShadow} detect: #hasSquotShadowName ifNone: []) - ifNotNil: [:shadow | shadow name] - ifNil: [SquotObjectCapturer new rootName]. - self rememberNameOf: leftStartShadow orAssume: [fallbackName]. - self rememberNameOf: rightStartShadow orAssume: [fallbackName]. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffBuilder.class/instance/right..st b/src/Squot.package/SquotDiffBuilder.class/instance/right..st deleted file mode 100644 index 0246a03b1..000000000 --- a/src/Squot.package/SquotDiffBuilder.class/instance/right..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -right: anObject - right := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotDiffBuilder.class/instance/right.st b/src/Squot.package/SquotDiffBuilder.class/instance/right.st deleted file mode 100644 index 42b8b9e67..000000000 --- a/src/Squot.package/SquotDiffBuilder.class/instance/right.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -right - ^ right \ No newline at end of file diff --git a/src/Squot.package/SquotDiffBuilder.class/instance/searchAndFollowOnce.reachedVia..st b/src/Squot.package/SquotDiffBuilder.class/instance/searchAndFollowOnce.reachedVia..st deleted file mode 100644 index 404cddc57..000000000 --- a/src/Squot.package/SquotDiffBuilder.class/instance/searchAndFollowOnce.reachedVia..st +++ /dev/null @@ -1,5 +0,0 @@ -private -searchAndFollowOnce: value reachedVia: aReference - self searchOnceFor: value - ifNew: [:name | self addedObject: value withName: name reachedVia: aReference] - ifFound: [:existing | self compareLater: existing with: value reachedVia: aReference]. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffBuilder.class/instance/searchFor.named.ifNew.ifFound..st b/src/Squot.package/SquotDiffBuilder.class/instance/searchFor.named.ifNew.ifFound..st deleted file mode 100644 index 1be8d30c1..000000000 --- a/src/Squot.package/SquotDiffBuilder.class/instance/searchFor.named.ifNew.ifFound..st +++ /dev/null @@ -1,7 +0,0 @@ -private -searchFor: value named: name ifNew: newBlock ifFound: foundBlock - | existing | - existing := value sameIn: left asIn: right ifAbsent: []. - existing - ifNil: [newBlock value] - ifNotNil: [foundBlock value: existing]. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffBuilder.class/instance/searchOnceFor.ifNew.ifFound..st b/src/Squot.package/SquotDiffBuilder.class/instance/searchOnceFor.ifNew.ifFound..st deleted file mode 100644 index cd4b069a3..000000000 --- a/src/Squot.package/SquotDiffBuilder.class/instance/searchOnceFor.ifNew.ifFound..st +++ /dev/null @@ -1,8 +0,0 @@ -private -searchOnceFor: value ifNew: newBlock ifFound: foundBlock - | name | - walk checkPathsTo: value undecorated ifMultiple: [^ self]. - name := self rememberNameOf: value. - self searchFor: value named: name - ifNew: [newBlock value: name] - ifFound: foundBlock. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffBuilder.class/instance/startFromLeft.right..st b/src/Squot.package/SquotDiffBuilder.class/instance/startFromLeft.right..st deleted file mode 100644 index dc9372ae1..000000000 --- a/src/Squot.package/SquotDiffBuilder.class/instance/startFromLeft.right..st +++ /dev/null @@ -1,22 +0,0 @@ -comparing -startFromLeft: leftStartShadow right: rightStartShadow - "Walk the two object graphs and record the differences. Answer the graph diff." - "The first objects always get a name, so that their diff can be found in the graph diff. If the first objects have different identities, a SquotObjectReplacement is recorded as their diff. Otherwise the references of each pair of encountered object are followed and if the values of the references have been reassigned, diffs are created for the referrers and reference diffs are added to them. If references have been added or removed, this is also added to the diff of the referrers. If a diff is created for a pair of objects, a diff is also created for the pair of referrers, noting that the object referred to has been changed somehow." - self initialize. - graphDiff left: left; right: right. - walk := SquotGraphComparisonWalk new. - objectDiffs at: leftStartShadow undecorated put: (walk startFrom: leftStartShadow and: rightStartShadow). - walk checkPathsTo: leftStartShadow undecorated ifMultiple: []. "Make sure the leftStartShadow is not compared multiple times." - self rememberStartObjectNamesLeft: leftStartShadow right: rightStartShadow. - self detectStartObjectReplacement: leftStartShadow with: rightStartShadow. - walk - newObjectsDo: "Walking via a new object that did not exist in the old graph." - [:rightShadow :rightReferrer :path | self followNewObject: rightShadow] - existingObjectsPairsDo: "Comparing two objects with the same identity (except for the start objects which might still have different identities)." - [:leftShadow :rightShadow :leftReferrer :rightReferrer :path | - self compare: leftShadow reachedFrom: leftReferrer - with: rightShadow reachedFrom: rightReferrer - via: (path ifEmpty: [] ifNotEmpty: [path last])]. - self addDiffsToGraphDiff. - graphDiff startObjectName: (shadowNames at: leftStartShadow undecorated). - ^ graphDiff \ No newline at end of file diff --git a/src/Squot.package/SquotDiffBuilder.class/methodProperties.json b/src/Squot.package/SquotDiffBuilder.class/methodProperties.json deleted file mode 100644 index 37fded481..000000000 --- a/src/Squot.package/SquotDiffBuilder.class/methodProperties.json +++ /dev/null @@ -1,26 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "addChangesTo:when:reachedFrom:isDifferentFrom:reachedFrom:via:" : "jr 7/30/2021 21:37", - "addDiffsToGraphDiff" : "jr 7/25/2021 21:15", - "addedObject:withName:reachedVia:" : "jr 7/25/2021 20:54", - "compare:reachedFrom:with:reachedFrom:via:" : "jr 7/30/2021 20:27", - "compareLater:with:reachedVia:" : "jr 8/8/2021 17:15", - "detectStartObjectReplacement:with:" : "jr 7/30/2021 19:12", - "diffFrom:to:ifNew:andInitialize:" : "jr 7/30/2021 19:53", - "followNewObject:" : "jr 7/25/2021 22:00", - "initialize" : "jr 9/30/2017 19:47", - "left" : "jr 9/21/2019 21:03", - "left:" : "jr 9/21/2019 21:03", - "noteChanged:" : "jr 8/15/2017 19:03", - "noteChangedReferrer:via:to:" : "jr 7/30/2021 19:29", - "rememberNameOf:" : "jr 11/19/2020 16:36", - "rememberNameOf:orAssume:" : "jr 7/21/2017 00:42", - "rememberStartObjectNamesLeft:right:" : "jr 7/25/2021 20:06", - "right" : "jr 9/21/2019 21:03", - "right:" : "jr 9/21/2019 21:03", - "searchAndFollowOnce:reachedVia:" : "jr 7/30/2021 20:28", - "searchFor:named:ifNew:ifFound:" : "jr 7/25/2021 22:03", - "searchOnceFor:ifNew:ifFound:" : "jr 7/30/2021 21:37", - "startFromLeft:right:" : "jr 7/30/2021 21:37" } } diff --git a/src/Squot.package/SquotDiffBuilder.class/properties.json b/src/Squot.package/SquotDiffBuilder.class/properties.json deleted file mode 100644 index 39a6ef0f8..000000000 --- a/src/Squot.package/SquotDiffBuilder.class/properties.json +++ /dev/null @@ -1,24 +0,0 @@ -{ - "category" : "Squot-Diffs", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 10/1/2017 02:20", - "instvars" : [ - "left", - "right", - "absentShadows", - "objectDiffs", - "shadowNames", - "toBeVisited", - "visited", - "objectsWithChanges", - "referrers", - "graphDiff", - "walk" ], - "name" : "SquotDiffBuilder", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotDiffExplorer.class/README.md b/src/Squot.package/SquotDiffExplorer.class/README.md deleted file mode 100644 index 4e15709e9..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/README.md +++ /dev/null @@ -1,6 +0,0 @@ -I am a tool that displays diffs hierarchically. - -Instance Variables - original: original artifacts before any changes (left side of a diff) - proposed: proposed artifacts after any changes (right side of a diff) - artifactDiffs: diffs of the artifacts from original to proposed \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorer.class/class/forPatch..st b/src/Squot.package/SquotDiffExplorer.class/class/forPatch..st deleted file mode 100644 index bb69ba5b8..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/class/forPatch..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -forPatch: aPatch - ^ self new - fromPatch: aPatch; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorer.class/class/from.to..st b/src/Squot.package/SquotDiffExplorer.class/class/from.to..st deleted file mode 100644 index d41a846a8..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/class/from.to..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -from: baseContainer to: targetContainer - ^ self new - from: baseContainer to: targetContainer; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorer.class/instance/browseLoadedEditionOfSelectedNode.st b/src/Squot.package/SquotDiffExplorer.class/instance/browseLoadedEditionOfSelectedNode.st deleted file mode 100644 index 2cd35bcb0..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/instance/browseLoadedEditionOfSelectedNode.st +++ /dev/null @@ -1,3 +0,0 @@ -actions -browseLoadedEditionOfSelectedNode - self selectedNode browseInWorkingCopy. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorer.class/instance/browseModifiedObject.st b/src/Squot.package/SquotDiffExplorer.class/instance/browseModifiedObject.st deleted file mode 100644 index 2442d00e0..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/instance/browseModifiedObject.st +++ /dev/null @@ -1,3 +0,0 @@ -actions -browseModifiedObject - self selectedNode browseIncomingEdition: workingCopy. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorer.class/instance/browseOriginalObject.st b/src/Squot.package/SquotDiffExplorer.class/instance/browseOriginalObject.st deleted file mode 100644 index 2efc7847b..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/instance/browseOriginalObject.st +++ /dev/null @@ -1,3 +0,0 @@ -actions -browseOriginalObject - self selectedNode browseOriginalEdition: workingCopy. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorer.class/instance/buildWith..st b/src/Squot.package/SquotDiffExplorer.class/instance/buildWith..st deleted file mode 100644 index e1412ea03..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/instance/buildWith..st +++ /dev/null @@ -1,9 +0,0 @@ -ui toolbuilder -buildWith: builder - | mainWidgets window | - mainWidgets := self chooserWidgetSpecs: builder. - window := builder pluggableWindowSpec new. - window model: self; - label: 'Changed Artifacts' ; - children: mainWidgets. - ^ builder build: window \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorer.class/instance/childNodesOf..st b/src/Squot.package/SquotDiffExplorer.class/instance/childNodesOf..st deleted file mode 100644 index 1de8fa06c..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/instance/childNodesOf..st +++ /dev/null @@ -1,3 +0,0 @@ -ui diff tree -childNodesOf: aSquotDiffNode - ^ aSquotDiffNode children \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorer.class/instance/chooserWidgetSpecs..st b/src/Squot.package/SquotDiffExplorer.class/instance/chooserWidgetSpecs..st deleted file mode 100644 index 1e5e4dc15..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/instance/chooserWidgetSpecs..st +++ /dev/null @@ -1,22 +0,0 @@ -ui toolbuilder -chooserWidgetSpecs: builder - ^ {builder pluggableTreeSpec new - name: 'hierarchical diff'; - model: self; - nodeClass: SquotDiffNodeTreeWrapper; - roots: #rootNodes; - label: #nodeLabelOf:; - getSelected: #selectedNode; - setSelected: #selectNode:; - setSelectedPath: #selectedNodePath:; - getChildren: #childNodesOf:; - hasChildren: #hasChildren:; - menu: #diffNodeMenu:shifted:; - frame: (0@0 corner: 0.4@1); - yourself. - builder pluggableTextSpec new - name: 'diff text for selected item'; - model: self; - getText: #diffText; - frame: (0.4@0 corner: 1@1); - yourself} \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorer.class/instance/diffNodeMenu.shifted..st b/src/Squot.package/SquotDiffExplorer.class/instance/diffNodeMenu.shifted..st deleted file mode 100644 index 507113d89..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/instance/diffNodeMenu.shifted..st +++ /dev/null @@ -1,3 +0,0 @@ -ui diff tree -diffNodeMenu: aMenu shifted: aBoolean - ^ self menu: aMenu for: #(menuSquotDiffNode) \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorer.class/instance/diffNodeMenuHook..st b/src/Squot.package/SquotDiffExplorer.class/instance/diffNodeMenuHook..st deleted file mode 100644 index 7885e9f71..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/instance/diffNodeMenuHook..st +++ /dev/null @@ -1,12 +0,0 @@ -ui diff tree -diffNodeMenuHook: aMenu - - self selectedNode ifNil: [^ aMenu]. - aMenu add: 'Browse original edition' action: #browseOriginalObject. - aMenu add: 'Browse modified edition' action: #browseModifiedObject. - aMenu add: 'Browse loaded edition' action: #browseLoadedEditionOfSelectedNode. - self selectedNode isArtifactNode ifTrue: - [aMenu add: 'Inspect original edition' action: #inspectOriginalArtifactOfSelectedNode. - aMenu add: 'Inspect modified edition' action: #inspectChangedArtifactOfSelectedNode]. - aMenu add: 'Inspect diff' action: #inspectSelectedDiffContent. - ^ aMenu \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorer.class/instance/diffText.st b/src/Squot.package/SquotDiffExplorer.class/instance/diffText.st deleted file mode 100644 index 717c43a0e..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/instance/diffText.st +++ /dev/null @@ -1,5 +0,0 @@ -ui diff tree -diffText - ^ selectedNode - ifNil: [''] - ifNotNil: [selectedNode asStringOrText] \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorer.class/instance/from.to..st b/src/Squot.package/SquotDiffExplorer.class/instance/from.to..st deleted file mode 100644 index a51ea1225..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/instance/from.to..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -from: leftContainer to: rightContainer - self fromPatch: (rightContainer patchRelativeToBase: leftContainer). \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorer.class/instance/fromPatch..st b/src/Squot.package/SquotDiffExplorer.class/instance/fromPatch..st deleted file mode 100644 index 0c436c57a..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/instance/fromPatch..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -fromPatch: aPatch - patch := aPatch. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorer.class/instance/hasChildren..st b/src/Squot.package/SquotDiffExplorer.class/instance/hasChildren..st deleted file mode 100644 index d8a50ecb8..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/instance/hasChildren..st +++ /dev/null @@ -1,3 +0,0 @@ -ui diff tree -hasChildren: aSquotDiffNode - ^ aSquotDiffNode hasChildren \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorer.class/instance/inspectChangedArtifactOfSelectedNode.st b/src/Squot.package/SquotDiffExplorer.class/instance/inspectChangedArtifactOfSelectedNode.st deleted file mode 100644 index 009440779..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/instance/inspectChangedArtifactOfSelectedNode.st +++ /dev/null @@ -1,4 +0,0 @@ -actions -inspectChangedArtifactOfSelectedNode - self selectedNode content isRemoval ifTrue: [^ SquotGUI inform: 'Object was removed']. - self selectedNode content right explore. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorer.class/instance/inspectOriginalArtifactOfSelectedNode.st b/src/Squot.package/SquotDiffExplorer.class/instance/inspectOriginalArtifactOfSelectedNode.st deleted file mode 100644 index a90cfeed1..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/instance/inspectOriginalArtifactOfSelectedNode.st +++ /dev/null @@ -1,4 +0,0 @@ -actions -inspectOriginalArtifactOfSelectedNode - self selectedNode content isAddition ifTrue: [^ SquotGUI inform: 'Object did not exist yet']. - self selectedNode content left explore. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorer.class/instance/inspectSelectedDiffContent.st b/src/Squot.package/SquotDiffExplorer.class/instance/inspectSelectedDiffContent.st deleted file mode 100644 index 983b28c1a..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/instance/inspectSelectedDiffContent.st +++ /dev/null @@ -1,3 +0,0 @@ -actions -inspectSelectedDiffContent - self selectedNode inspectContent. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorer.class/instance/nodeLabelOf..st b/src/Squot.package/SquotDiffExplorer.class/instance/nodeLabelOf..st deleted file mode 100644 index 37ff59943..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/instance/nodeLabelOf..st +++ /dev/null @@ -1,7 +0,0 @@ -ui diff tree -nodeLabelOf: aSquotDiffNode - | title | - title := aSquotDiffNode title. - ^ aSquotDiffNode anyChildNeedsChoice - ifTrue: [title asText allBold; yourself] - ifFalse: [title] \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorer.class/instance/open.st b/src/Squot.package/SquotDiffExplorer.class/instance/open.st deleted file mode 100644 index 471304cb1..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/instance/open.st +++ /dev/null @@ -1,3 +0,0 @@ -public -open - ^ ToolBuilder open: self \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorer.class/instance/openLabel..st b/src/Squot.package/SquotDiffExplorer.class/instance/openLabel..st deleted file mode 100644 index aff52a042..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/instance/openLabel..st +++ /dev/null @@ -1,5 +0,0 @@ -public -openLabel: titleString - | builder view | - builder := ToolBuilder default. - view := builder open: self label: titleString. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorer.class/instance/rootNodes.st b/src/Squot.package/SquotDiffExplorer.class/instance/rootNodes.st deleted file mode 100644 index 9cfd632f8..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/instance/rootNodes.st +++ /dev/null @@ -1,10 +0,0 @@ -ui diff tree -rootNodes - rootNodes ifNotNil: [^ rootNodes]. - rootNodes := Array streamContents: [:stream | - patch diffsDo: [:each | | root | - each hasChanges ifTrue: "Does not make sense to display SquotArtifactLoads when not loading." - [root := each asDiffTree. - root withAllChildren do: [:eachNode | eachNode workingCopy: workingCopy]. - stream nextPut: root]]]. - ^ rootNodes \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorer.class/instance/selectNode..st b/src/Squot.package/SquotDiffExplorer.class/instance/selectNode..st deleted file mode 100644 index 22f2d4178..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/instance/selectNode..st +++ /dev/null @@ -1,5 +0,0 @@ -ui diff tree -selectNode: aSquotDiffNode - selectedNode := aSquotDiffNode. - self changed: #selectedNode. - self changed: #diffText. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorer.class/instance/selectedNode.st b/src/Squot.package/SquotDiffExplorer.class/instance/selectedNode.st deleted file mode 100644 index e35298895..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/instance/selectedNode.st +++ /dev/null @@ -1,3 +0,0 @@ -ui diff tree -selectedNode - ^ selectedNode \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorer.class/instance/selectedNodePath..st b/src/Squot.package/SquotDiffExplorer.class/instance/selectedNodePath..st deleted file mode 100644 index 6ed6d7910..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/instance/selectedNodePath..st +++ /dev/null @@ -1,2 +0,0 @@ -ui diff tree -selectedNodePath: aCollection \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorer.class/instance/workingCopy..st b/src/Squot.package/SquotDiffExplorer.class/instance/workingCopy..st deleted file mode 100644 index edbc52b75..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/instance/workingCopy..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -workingCopy: anObject - workingCopy := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorer.class/instance/workingCopy.st b/src/Squot.package/SquotDiffExplorer.class/instance/workingCopy.st deleted file mode 100644 index 685b55241..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/instance/workingCopy.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -workingCopy - ^ workingCopy \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorer.class/methodProperties.json b/src/Squot.package/SquotDiffExplorer.class/methodProperties.json deleted file mode 100644 index 938206674..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/methodProperties.json +++ /dev/null @@ -1,29 +0,0 @@ -{ - "class" : { - "forPatch:" : "jr 10/31/2017 18:20", - "from:to:" : "jr 7/23/2017 02:03" }, - "instance" : { - "browseLoadedEditionOfSelectedNode" : "jr 12/23/2019 00:15", - "browseModifiedObject" : "jr 6/6/2020 03:23", - "browseOriginalObject" : "jr 6/6/2020 03:24", - "buildWith:" : "jr 7/1/2017 22:28", - "childNodesOf:" : "jr 4/26/2017 16:00", - "chooserWidgetSpecs:" : "jr 9/26/2020 12:12", - "diffNodeMenu:shifted:" : "jr 4/26/2017 17:38", - "diffNodeMenuHook:" : "jr 6/6/2020 03:22", - "diffText" : "jr 4/26/2017 15:58", - "from:to:" : "jr 10/31/2017 18:16", - "fromPatch:" : "jr 10/3/2018 00:27", - "hasChildren:" : "jr 4/26/2017 15:59", - "inspectChangedArtifactOfSelectedNode" : "jr 7/9/2022 11:39", - "inspectOriginalArtifactOfSelectedNode" : "jr 7/9/2022 11:40", - "inspectSelectedDiffContent" : "jr 4/26/2017 17:56", - "nodeLabelOf:" : "jr 11/18/2020 15:19", - "open" : "jr 10/31/2017 18:24", - "openLabel:" : "jr 5/3/2020 23:02", - "rootNodes" : "jr 11/25/2020 21:47", - "selectNode:" : "jr 4/26/2017 17:36", - "selectedNode" : "jr 4/26/2017 15:57", - "selectedNodePath:" : "jr 9/26/2020 15:20", - "workingCopy" : "jr 12/23/2019 00:06", - "workingCopy:" : "jr 12/23/2019 00:06" } } diff --git a/src/Squot.package/SquotDiffExplorer.class/properties.json b/src/Squot.package/SquotDiffExplorer.class/properties.json deleted file mode 100644 index 4a7a92bb5..000000000 --- a/src/Squot.package/SquotDiffExplorer.class/properties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "category" : "Squot-Tools", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 7/1/2017 23:04", - "instvars" : [ - "rootNodes", - "selectedNode", - "patch", - "workingCopy" ], - "name" : "SquotDiffExplorer", - "pools" : [ - ], - "super" : "Model", - "type" : "normal" } diff --git a/src/Squot.package/SquotDiffExplorerTest.class/README.md b/src/Squot.package/SquotDiffExplorerTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotDiffExplorerTest.class/class/shouldInheritSelectors.st b/src/Squot.package/SquotDiffExplorerTest.class/class/shouldInheritSelectors.st deleted file mode 100644 index 0306008c7..000000000 --- a/src/Squot.package/SquotDiffExplorerTest.class/class/shouldInheritSelectors.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -shouldInheritSelectors - "Me and my subclasses should inherit selectors" - ^ (Array with: self with: self superclass) includes: SquotDiffExplorerTest \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorerTest.class/instance/newToolOn..st b/src/Squot.package/SquotDiffExplorerTest.class/instance/newToolOn..st deleted file mode 100644 index f384e23a4..000000000 --- a/src/Squot.package/SquotDiffExplorerTest.class/instance/newToolOn..st +++ /dev/null @@ -1,5 +0,0 @@ -utilities -newToolOn: patch - ^ (SquotDiffExplorer forPatch: patch) - workingCopy: workingCopy; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorerTest.class/instance/setUp.st b/src/Squot.package/SquotDiffExplorerTest.class/instance/setUp.st deleted file mode 100644 index a54b6bfb5..000000000 --- a/src/Squot.package/SquotDiffExplorerTest.class/instance/setUp.st +++ /dev/null @@ -1,4 +0,0 @@ -tests -setUp - super setUp. - workingCopy := SquotWorkingCopy forTestInMemory. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorerTest.class/instance/tearDown.st b/src/Squot.package/SquotDiffExplorerTest.class/instance/tearDown.st deleted file mode 100644 index fcaf3a00e..000000000 --- a/src/Squot.package/SquotDiffExplorerTest.class/instance/tearDown.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -tearDown - classFactory ifNotNil: [classFactory cleanUp]. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorerTest.class/instance/testSmalltalkCodeDiffs.st b/src/Squot.package/SquotDiffExplorerTest.class/instance/testSmalltalkCodeDiffs.st deleted file mode 100644 index d9831aeb0..000000000 --- a/src/Squot.package/SquotDiffExplorerTest.class/instance/testSmalltalkCodeDiffs.st +++ /dev/null @@ -1,72 +0,0 @@ -*Squot-Tests-Packages -testSmalltalkCodeDiffs - | before after changedClass otherClass removedClass classA classB patch | - classFactory := ClassFactoryForTestCase new. - SystemChangeNotifier uniqueInstance doSilently: - [changedClass := classFactory newClassInCategory: 'ChangedPackage'. - changedClass compileSilently: 'timeStamp ^ nil'. - otherClass := classFactory newClassInCategory: 'ChangedPackage'. - otherClass compileSilently: 'changedMethod ^ $A'. - removedClass := classFactory newClassInCategory: 'ChangedPackage'. - removedClass compileSilently: 'deletedMethod ^ nil'. - classA := classFactory newClassInCategory: 'RemovedPackage'. - classA compileSilently: 'removed ^ nil'. - classB := classFactory newClassInCategory: 'AddedPackage'. - classB compileSilently: 'added ^ nil']. - before := SquotSnapshot builder - add: ((MCSnapshot fromDefinitions: - {MCOrganizationDefinition categories: - {classFactory packageName, '-', 'ChangedPackage-Core'. - classFactory packageName, '-', 'ChangedPackage-Tests'}. - MCClassDefinition name: changedClass name superclassName: 'Object' - category: classFactory packageName, '-', 'ChangedPackage-Core' - instVarNames: '' comment: 'A'. - MCMethodDefinition className: changedClass name selector: 'timeStamp' - category: 'changed' timeStamp: 'A' source: 'timeStamp ^ nil'. - MCClassDefinition name: otherClass name superclassName: 'Object' - category: classFactory packageName, '-', 'ChangedPackage-Core' instVarNames: '' comment: ''. - MCMethodDefinition className: otherClass name selector: 'changedMethod' - category: 'changed' timeStamp: '' source: 'changedMethod ^ $A'. - MCClassDefinition name: removedClass name superclassName: 'TestCase' - category: classFactory packageName, '-', 'ChangedPackage-Tests' instVarNames: '' comment: ''. - MCMethodDefinition className: removedClass name selector: 'deletedMethod' - category: 'removed' timeStamp: '' source: 'deletedMethod ^ nil'.}) - asSquotArtifactForPackage: - (PackageInfo new packageName: classFactory packageName, '-', 'ChangedPackage')); - add: ((MCSnapshot fromDefinitions: - {MCOrganizationDefinition categories: #('RemovedPackage'). - MCClassDefinition name: classA name superclassName: 'Object' - category: classFactory packageName, '-', 'RemovedPackage' instVarNames: '' comment: ''. - MCMethodDefinition className: classA name selector: 'removed' - category: 'removed' timeStamp: '' source: 'removed ^ nil'}) - asSquotArtifactForPackage: - (PackageInfo new packageName: classFactory packageName, '-', 'RemovedPackage')); - buildSnapshot. - after := SquotSnapshot builder - add: ((MCSnapshot fromDefinitions: - {MCOrganizationDefinition categories: - {classFactory packageName, '-', 'ChangedPackage-Core'}. - MCClassDefinition name: changedClass name superclassName: 'Object' - category: classFactory packageName, '-', 'ChangedPackage-Core' instVarNames: #('newVar') comment: 'B'. - MCMethodDefinition className: changedClass name selector: 'timeStamp' - category: 'changed' timeStamp: 'B' source: 'timeStamp ^ nil'. - MCClassDefinition name: otherClass name superclassName: 'Object' - category: classFactory packageName, '-', 'ChangedPackage-Core' instVarNames: '' comment: ''. - MCMethodDefinition className: otherClass name selector: 'changedMethod' - category: 'changed' timeStamp: '' source: 'changedMethod ^ $B'}) - asSquotArtifactForPackage: (PackageInfo named: classFactory packageName, '-', 'ChangedPackage')); - add: ((MCSnapshot fromDefinitions: - {MCOrganizationDefinition categories: #('AddedPackage'). - MCClassDefinition name: classB name superclassName: 'Object' - category: classFactory packageName, '-', 'AddedPackage' instVarNames: '' comment: ''. - MCMethodDefinition className: classB name selector: 'added' - category: 'added' timeStamp: '' source: 'added ^ nil'}) - asSquotArtifactForPackage: - (PackageInfo new packageName: classFactory packageName, '-', 'AddedPackage')); - buildSnapshot. - patch := after patchRelativeToBase: before. - workingCopy - add: (PackageInfo new packageName: classFactory packageName, '-', 'ChangedPackage') at: classFactory packageName, '-', 'ChangedPackage.package'; - add: (PackageInfo new packageName: classFactory packageName, '-', 'RemovedPackage') at: classFactory packageName, '-', 'RemovedPackage.package'; - add: (PackageInfo new packageName: classFactory packageName, '-', 'AddedPackage') at: classFactory packageName, '-', 'AddedPackage.package'. - self openToolAndTestOnPatch: patch. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorerTest.class/instance/testTextAddition.st b/src/Squot.package/SquotDiffExplorerTest.class/instance/testTextAddition.st deleted file mode 100644 index 1d5321af5..000000000 --- a/src/Squot.package/SquotDiffExplorerTest.class/instance/testTextAddition.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testTextAddition - | patch snapshotWithText | - snapshotWithText := SquotImageStore new - add: (Text fromString: 'foo') at: 'text'; - captureSnapshot. - patch := snapshotWithText patchRelativeToBase: SquotSnapshot empty. - self openToolAndTestOnPatch: patch. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorerTest.class/instance/testTextRemoval.st b/src/Squot.package/SquotDiffExplorerTest.class/instance/testTextRemoval.st deleted file mode 100644 index b328dbebd..000000000 --- a/src/Squot.package/SquotDiffExplorerTest.class/instance/testTextRemoval.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testTextRemoval - | patch snapshotWithText | - snapshotWithText := SquotImageStore new - add: (Text fromString: 'foo') at: 'text'; - captureSnapshot. - patch := SquotSnapshot empty patchRelativeToBase: snapshotWithText. - self openToolAndTestOnPatch: patch. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffExplorerTest.class/methodProperties.json b/src/Squot.package/SquotDiffExplorerTest.class/methodProperties.json deleted file mode 100644 index 42ea34a90..000000000 --- a/src/Squot.package/SquotDiffExplorerTest.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - "shouldInheritSelectors" : "jr 9/29/2019 22:20" }, - "instance" : { - "newToolOn:" : "jr 5/2/2020 01:49", - "setUp" : "jr 6/6/2022 23:16", - "tearDown" : "jr 5/2/2020 01:53", - "testSmalltalkCodeDiffs" : "jr 6/6/2022 23:17", - "testTextAddition" : "jr 10/15/2017 20:37", - "testTextRemoval" : "jr 10/15/2017 20:37" } } diff --git a/src/Squot.package/SquotDiffExplorerTest.class/properties.json b/src/Squot.package/SquotDiffExplorerTest.class/properties.json deleted file mode 100644 index 6d3e4e149..000000000 --- a/src/Squot.package/SquotDiffExplorerTest.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-Tests-Tools", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "workingCopy", - "classFactory" ], - "name" : "SquotDiffExplorerTest", - "pools" : [ - ], - "super" : "SquotDiffTreeToolTestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotDiffMock.class/README.md b/src/Squot.package/SquotDiffMock.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotDiffMock.class/instance/^equals.st b/src/Squot.package/SquotDiffMock.class/instance/^equals.st deleted file mode 100644 index 74c87a13c..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/^equals.st +++ /dev/null @@ -1,5 +0,0 @@ -comparing -= other - self == other ifTrue: [^ true]. - [^ self = other copiedFrom or: [other = self copiedFrom]] - on: MessageNotUnderstood do: [^ false] \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/asDiffTree.st b/src/Squot.package/SquotDiffMock.class/instance/asDiffTree.st deleted file mode 100644 index 83d3b53f6..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/asDiffTree.st +++ /dev/null @@ -1,7 +0,0 @@ -converting -asDiffTree - | node | - node := SquotDiffNode title: self path content: self children: self topNodes - onInclude: [] onExclude: []. - node withAllChildren do: [:each | each artifactDiff: self]. - ^ node \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/beAddition.st b/src/Squot.package/SquotDiffMock.class/instance/beAddition.st deleted file mode 100644 index 43741f23e..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/beAddition.st +++ /dev/null @@ -1,4 +0,0 @@ -configuring -beAddition - isAddition := true. - isRemoval := false. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/beRemoval.st b/src/Squot.package/SquotDiffMock.class/instance/beRemoval.st deleted file mode 100644 index 71559e982..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/beRemoval.st +++ /dev/null @@ -1,4 +0,0 @@ -configuring -beRemoval - isRemoval := true. - isAddition := false. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/copiedFrom..st b/src/Squot.package/SquotDiffMock.class/instance/copiedFrom..st deleted file mode 100644 index 4e5ef7453..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/copiedFrom..st +++ /dev/null @@ -1,3 +0,0 @@ -copying -copiedFrom: anArtifactDiffMock - copiedFrom := anArtifactDiffMock. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/copiedFrom.st b/src/Squot.package/SquotDiffMock.class/instance/copiedFrom.st deleted file mode 100644 index 7ccc0314e..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/copiedFrom.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -copiedFrom - ^ copiedFrom \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/copy.st b/src/Squot.package/SquotDiffMock.class/instance/copy.st deleted file mode 100644 index 51bdabed2..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/copy.st +++ /dev/null @@ -1,5 +0,0 @@ -copying -copy - ^ super copy - copiedFrom: self; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/defaultApplyBlock.st b/src/Squot.package/SquotDiffMock.class/instance/defaultApplyBlock.st deleted file mode 100644 index f05871ef1..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/defaultApplyBlock.st +++ /dev/null @@ -1,3 +0,0 @@ -configuring -defaultApplyBlock - ^ [:other :this | self error: self printString, ' not configured for patching'] \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/defaultMergeBlock.st b/src/Squot.package/SquotDiffMock.class/instance/defaultMergeBlock.st deleted file mode 100644 index cf36bc2d6..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/defaultMergeBlock.st +++ /dev/null @@ -1,3 +0,0 @@ -configuring -defaultMergeBlock - ^ [:other :this | self error: self printString, ' not configured for merge'] \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/hasChanges..st b/src/Squot.package/SquotDiffMock.class/instance/hasChanges..st deleted file mode 100644 index 01c5d877b..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/hasChanges..st +++ /dev/null @@ -1,3 +0,0 @@ -configuring -hasChanges: aBoolean - hasChanges := aBoolean. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/hasChanges.st b/src/Squot.package/SquotDiffMock.class/instance/hasChanges.st deleted file mode 100644 index ee7c1a4e3..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/hasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasChanges - ^ hasChanges ifNil: [true] \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/hasConflicts..st b/src/Squot.package/SquotDiffMock.class/instance/hasConflicts..st deleted file mode 100644 index f9c7bd073..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/hasConflicts..st +++ /dev/null @@ -1,3 +0,0 @@ -configuring -hasConflicts: aBoolean - hasConflicts := aBoolean. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/hash.st b/src/Squot.package/SquotDiffMock.class/instance/hash.st deleted file mode 100644 index c5ffc504d..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/hash.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -hash - ^ (self copiedFrom ifNil: [^ super hash]) hash \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/isAddition.st b/src/Squot.package/SquotDiffMock.class/instance/isAddition.st deleted file mode 100644 index 91ef25600..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/isAddition.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isAddition - ^ isAddition ifNil: [false] \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/isBasedOn..st b/src/Squot.package/SquotDiffMock.class/instance/isBasedOn..st deleted file mode 100644 index ca549ff90..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/isBasedOn..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isBasedOn: anObjectContainer - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/isRemoval.st b/src/Squot.package/SquotDiffMock.class/instance/isRemoval.st deleted file mode 100644 index 62edbe5df..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/isRemoval.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isRemoval - ^ isRemoval ifNil: [false] \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/mergeWith..st b/src/Squot.package/SquotDiffMock.class/instance/mergeWith..st deleted file mode 100644 index df2c44522..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/mergeWith..st +++ /dev/null @@ -1,3 +0,0 @@ -merging -mergeWith: anArtifactDiffOrMock - ^ (mergeBlock ifNil: [self defaultMergeBlock]) cull: anArtifactDiffOrMock cull: self \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/right..st b/src/Squot.package/SquotDiffMock.class/instance/right..st deleted file mode 100644 index fb718710d..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/right..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -right: anArtifact - right := anArtifact. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/right.st b/src/Squot.package/SquotDiffMock.class/instance/right.st deleted file mode 100644 index 17e62662a..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/right.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -right - ^ right ifNil: [right := self createArtifactMock] \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/setUpTreeRoot.toEditPatch..st b/src/Squot.package/SquotDiffMock.class/instance/setUpTreeRoot.toEditPatch..st deleted file mode 100644 index bd88026b5..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/setUpTreeRoot.toEditPatch..st +++ /dev/null @@ -1,5 +0,0 @@ -converting -setUpTreeRoot: aDiffNode toEditPatch: aPatchBuilder - aDiffNode - includeBlock: [aPatchBuilder addDiff: self]; - excludeBlock: [aPatchBuilder resetAt: self path]. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/squotApplyTo..st b/src/Squot.package/SquotDiffMock.class/instance/squotApplyTo..st deleted file mode 100644 index 07b5d4f17..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/squotApplyTo..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -squotApplyTo: anObject - ^ (applyBlock ifNil: [self defaultApplyBlock]) cull: anObject cull: self \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/squotHasChanges.st b/src/Squot.package/SquotDiffMock.class/instance/squotHasChanges.st deleted file mode 100644 index 79dcbd680..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/squotHasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -squotHasChanges - ^ self hasChanges \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/topNodes.st b/src/Squot.package/SquotDiffMock.class/instance/topNodes.st deleted file mode 100644 index 3fd6315e7..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/topNodes.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -topNodes - ^ topNodes ifNil: [Array empty] \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/updateRightArtifact.st b/src/Squot.package/SquotDiffMock.class/instance/updateRightArtifact.st deleted file mode 100644 index bf49d161a..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/updateRightArtifact.st +++ /dev/null @@ -1,2 +0,0 @@ -accessing -updateRightArtifact \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/whenAppliedDoNothing.st b/src/Squot.package/SquotDiffMock.class/instance/whenAppliedDoNothing.st deleted file mode 100644 index 3f15a546d..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/whenAppliedDoNothing.st +++ /dev/null @@ -1,3 +0,0 @@ -configuring -whenAppliedDoNothing - applyBlock := [:other :this | other]. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/whenAppliedReturn..st b/src/Squot.package/SquotDiffMock.class/instance/whenAppliedReturn..st deleted file mode 100644 index eccc6b857..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/whenAppliedReturn..st +++ /dev/null @@ -1,3 +0,0 @@ -configuring -whenAppliedReturn: aMock - applyBlock := [:other :this | aMock]. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/whenAppliedTo.return..st b/src/Squot.package/SquotDiffMock.class/instance/whenAppliedTo.return..st deleted file mode 100644 index 63b225612..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/whenAppliedTo.return..st +++ /dev/null @@ -1,9 +0,0 @@ -configuring -whenAppliedTo: anObject return: aBlock - | previousBlock | - previousBlock := applyBlock ifNil: [self defaultApplyBlock]. - mergeBlock := - [:other :this | - other = anObject - ifTrue: [aBlock value] - ifFalse: [previousBlock cull: other cull: this]]. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/whenMergedWith.return..st b/src/Squot.package/SquotDiffMock.class/instance/whenMergedWith.return..st deleted file mode 100644 index bf50574d1..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/whenMergedWith.return..st +++ /dev/null @@ -1,9 +0,0 @@ -configuring -whenMergedWith: otherArtifactDiffOrMock return: aBlock - | previousBlock | - previousBlock := mergeBlock ifNil: [self defaultMergeBlock]. - mergeBlock := - [:other :this | - other = otherArtifactDiffOrMock - ifTrue: [aBlock value] - ifFalse: [previousBlock cull: other cull: this]]. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/instance/whenMergedWithA.return..st b/src/Squot.package/SquotDiffMock.class/instance/whenMergedWithA.return..st deleted file mode 100644 index 98bc5150d..000000000 --- a/src/Squot.package/SquotDiffMock.class/instance/whenMergedWithA.return..st +++ /dev/null @@ -1,9 +0,0 @@ -configuring -whenMergedWithA: aClass return: aBlock - | previousBlock | - previousBlock := mergeBlock ifNil: [self defaultMergeBlock]. - mergeBlock := - [:other :this | - (other isKindOf: aClass) - ifTrue: [aBlock value: other] - ifFalse: [previousBlock cull: other cull: this]]. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffMock.class/methodProperties.json b/src/Squot.package/SquotDiffMock.class/methodProperties.json deleted file mode 100644 index cc2b1c807..000000000 --- a/src/Squot.package/SquotDiffMock.class/methodProperties.json +++ /dev/null @@ -1,33 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "=" : "jr 8/15/2019 01:28", - "asDiffTree" : "jr 12/22/2019 23:27", - "beAddition" : "jr 9/23/2018 21:50", - "beRemoval" : "jr 9/23/2018 21:50", - "copiedFrom" : "jr 11/26/2018 21:07", - "copiedFrom:" : "jr 11/26/2018 21:05", - "copy" : "jr 11/26/2018 21:04", - "defaultApplyBlock" : "jr 8/15/2019 01:35", - "defaultMergeBlock" : "jr 8/15/2019 01:29", - "hasChanges" : "jr 9/23/2018 21:47", - "hasChanges:" : "jr 9/23/2018 21:48", - "hasConflicts:" : "jr 6/8/2019 12:44", - "hash" : "jr 8/15/2019 01:30", - "isAddition" : "jr 9/23/2018 21:48", - "isBasedOn:" : "jr 11/8/2020 00:47", - "isRemoval" : "jr 9/23/2018 21:50", - "mergeWith:" : "jr 8/15/2019 01:31", - "right" : "jr 3/30/2019 12:34", - "right:" : "jr 3/30/2019 12:33", - "setUpTreeRoot:toEditPatch:" : "jr 8/14/2019 22:56", - "squotApplyTo:" : "jr 8/15/2019 01:35", - "squotHasChanges" : "jr 8/15/2019 01:31", - "topNodes" : "jr 9/23/2018 21:55", - "updateRightArtifact" : "jr 3/9/2019 15:37", - "whenAppliedDoNothing" : "jr 8/15/2019 01:41", - "whenAppliedReturn:" : "jr 8/21/2019 23:53", - "whenAppliedTo:return:" : "jr 8/15/2019 01:36", - "whenMergedWith:return:" : "jr 7/29/2019 23:34", - "whenMergedWithA:return:" : "jr 7/29/2019 23:37" } } diff --git a/src/Squot.package/SquotDiffMock.class/properties.json b/src/Squot.package/SquotDiffMock.class/properties.json deleted file mode 100644 index 08691e003..000000000 --- a/src/Squot.package/SquotDiffMock.class/properties.json +++ /dev/null @@ -1,22 +0,0 @@ -{ - "category" : "Squot-Tests-Diffs", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "hasChanges", - "isAddition", - "isRemoval", - "topNodes", - "copiedFrom", - "hasConflicts", - "right", - "mergeBlock", - "applyBlock" ], - "name" : "SquotDiffMock", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotDiffNode.class/README.md b/src/Squot.package/SquotDiffNode.class/README.md deleted file mode 100644 index cee241dc2..000000000 --- a/src/Squot.package/SquotDiffNode.class/README.md +++ /dev/null @@ -1,8 +0,0 @@ -I am a node in a hierarchical (i. e., tree) representation of a diff. - -Instance Variables - children: - content: anything that identifies the aspect of the diff that is represented by me - title: short description (one line) of the object I represent - -The #content can be a complete TSquotDiff object, but it could also be some auxiliary object to denote only a part of such a diff object. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/class/title.content.children.onInclude.onExclude..st b/src/Squot.package/SquotDiffNode.class/class/title.content.children.onInclude.onExclude..st deleted file mode 100644 index 160979b97..000000000 --- a/src/Squot.package/SquotDiffNode.class/class/title.content.children.onInclude.onExclude..st +++ /dev/null @@ -1,7 +0,0 @@ -instance creation -title: aStringOrText content: diffContent children: aCollectionOfDiffNodes onInclude: includeBlock onExclude: excludeBlock - ^ self new - setTitle: aStringOrText content: diffContent children: aCollectionOfDiffNodes; - includeBlock: includeBlock; - excludeBlock: excludeBlock; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/accept..st b/src/Squot.package/SquotDiffNode.class/instance/accept..st deleted file mode 100644 index 1c09ad8c4..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/accept..st +++ /dev/null @@ -1,3 +0,0 @@ -visiting -accept: aSquotDiffNodeSearch - ^ aSquotDiffNodeSearch visitDiffNode: self \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/addContentForInspectionTo..st b/src/Squot.package/SquotDiffNode.class/instance/addContentForInspectionTo..st deleted file mode 100644 index fbc197efc..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/addContentForInspectionTo..st +++ /dev/null @@ -1,4 +0,0 @@ -as yet unclassified -addContentForInspectionTo: aStream - content ifNotNil: [^ aStream nextPut: content]. - children do: [:each | each addContentForInspectionTo: aStream]. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/annotations.st b/src/Squot.package/SquotDiffNode.class/instance/annotations.st deleted file mode 100644 index b40768f7e..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/annotations.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -annotations - - ^ (content respondsTo: #annotations) - ifTrue: [content annotations] \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/anyChildNeedsChoice.st b/src/Squot.package/SquotDiffNode.class/instance/anyChildNeedsChoice.st deleted file mode 100644 index 109bfd480..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/anyChildNeedsChoice.st +++ /dev/null @@ -1,5 +0,0 @@ -as yet unclassified -anyChildNeedsChoice - ^ (SquotDiffNodeSearchForChoiceNeeded new - searchFrom: self; - nodeThatNeedsChoice) notNil \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/artifactDiff..st b/src/Squot.package/SquotDiffNode.class/instance/artifactDiff..st deleted file mode 100644 index 97ab3aa42..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/artifactDiff..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -artifactDiff: anObject - artifactDiff := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/artifactDiff.st b/src/Squot.package/SquotDiffNode.class/instance/artifactDiff.st deleted file mode 100644 index 587702e8a..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/artifactDiff.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -artifactDiff - ^ artifactDiff \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/asStringOrText.st b/src/Squot.package/SquotDiffNode.class/instance/asStringOrText.st deleted file mode 100644 index 01fd58b02..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/asStringOrText.st +++ /dev/null @@ -1,6 +0,0 @@ -as yet unclassified -asStringOrText - ^ content - ifNil: [self hasChildren ifFalse: [^ '']. - (self title asText, String cr, String cr) allBold, self concatenatedChildrenTexts] - ifNotNil: [content squotChangeAsStringOrText] \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/balloonText.st b/src/Squot.package/SquotDiffNode.class/instance/balloonText.st deleted file mode 100644 index a52deda46..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/balloonText.st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -balloonText - ^ content ifNotNil: [content squotChangeAsStringOrText] \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/browse..st b/src/Squot.package/SquotDiffNode.class/instance/browse..st deleted file mode 100644 index 0478e7b64..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/browse..st +++ /dev/null @@ -1,3 +0,0 @@ -browsing -browse: anObject - (anObject ifNil: [^ self inform: 'Object does not exist.']) browse. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/browseInWorkingCopy.st b/src/Squot.package/SquotDiffNode.class/instance/browseInWorkingCopy.st deleted file mode 100644 index 715b8128c..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/browseInWorkingCopy.st +++ /dev/null @@ -1,8 +0,0 @@ -actions -browseInWorkingCopy - self content ifNotNil: - [:object | | path | - path := self artifactDiff ifNotNil: [:diff | diff path]. - (self workingCopy includesObjectAt: path) ifFalse: [^ SquotGUI inform: 'Object is not loaded']. - object browseFromSquotWorkingCopyArtifact: - (path ifNotNil: [self workingCopy artifactAt: path] ifNil: [])]. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/browseIncomingEdition..st b/src/Squot.package/SquotDiffNode.class/instance/browseIncomingEdition..st deleted file mode 100644 index 99610ed80..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/browseIncomingEdition..st +++ /dev/null @@ -1,7 +0,0 @@ -browsing -browseIncomingEdition: aWorkingCopy - self browse: - ((((self content respondsTo: #isMerge) and: [self content isMerge]) - or: [(self content respondsTo: #isConflict) and: [self content isConflict]]) - ifTrue: [self content incoming] - ifFalse: [self content right]) \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/browseOriginalEdition..st b/src/Squot.package/SquotDiffNode.class/instance/browseOriginalEdition..st deleted file mode 100644 index 2e0d3f87c..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/browseOriginalEdition..st +++ /dev/null @@ -1,7 +0,0 @@ -browsing -browseOriginalEdition: aWorkingCopy - self browse: - ((((self content respondsTo: #isMerge) and: [self content isMerge]) - or: [(self content respondsTo: #isConflict) and: [self content isConflict]]) - ifTrue: [self content base] - ifFalse: [self content left]). \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/children..st b/src/Squot.package/SquotDiffNode.class/instance/children..st deleted file mode 100644 index a811588ce..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/children..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -children: aCollection - children := aCollection. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/children.st b/src/Squot.package/SquotDiffNode.class/instance/children.st deleted file mode 100644 index c0c773f02..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/children.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -children - ^ children \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/concatenatedChildrenTexts.st b/src/Squot.package/SquotDiffNode.class/instance/concatenatedChildrenTexts.st deleted file mode 100644 index 6696d129f..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/concatenatedChildrenTexts.st +++ /dev/null @@ -1,7 +0,0 @@ -as yet unclassified -concatenatedChildrenTexts - ^ self children inject: Text new into: [:text :each | - each isActive - ifTrue: [text append: each asStringOrText; - append: String cr; append: String cr] - ifFalse: [text]] \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/content..st b/src/Squot.package/SquotDiffNode.class/instance/content..st deleted file mode 100644 index 3bbbf6887..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/content..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -content: anObject - content := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/content.st b/src/Squot.package/SquotDiffNode.class/instance/content.st deleted file mode 100644 index 1c69a5730..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/content.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -content - ^ content \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/exclude.st b/src/Squot.package/SquotDiffNode.class/instance/exclude.st deleted file mode 100644 index 2872f9cdd..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/exclude.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -exclude - isActive ifFalse: [^ self]. - isActive := false. - excludeBlock value. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/excludeBlock..st b/src/Squot.package/SquotDiffNode.class/instance/excludeBlock..st deleted file mode 100644 index 5f17bbe3e..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/excludeBlock..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -excludeBlock: aBlock - excludeBlock := aBlock \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/excludeBlock.st b/src/Squot.package/SquotDiffNode.class/instance/excludeBlock.st deleted file mode 100644 index 6be06ee90..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/excludeBlock.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -excludeBlock - ^ excludeBlock \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/hasActiveChildren.st b/src/Squot.package/SquotDiffNode.class/instance/hasActiveChildren.st deleted file mode 100644 index b223cac03..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/hasActiveChildren.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasActiveChildren - ^ children anySatisfy: [:each | each isActive] \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/hasChildren.st b/src/Squot.package/SquotDiffNode.class/instance/hasChildren.st deleted file mode 100644 index 9bee0bcee..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/hasChildren.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasChildren - ^ children notEmpty \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/ignore.st b/src/Squot.package/SquotDiffNode.class/instance/ignore.st deleted file mode 100644 index ba9953263..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/ignore.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -ignore - content ifNil: [^ self]. - self flag: #todo. "Environment access is specific to packages" - self withPackageEnvironmentDo: [content ignoreInSquot]. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/include.st b/src/Squot.package/SquotDiffNode.class/instance/include.st deleted file mode 100644 index 180826cec..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/include.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -include - isActive ifTrue: [^ self]. - isActive := true. - includeBlock value. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/includeBlock..st b/src/Squot.package/SquotDiffNode.class/instance/includeBlock..st deleted file mode 100644 index 9c245f589..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/includeBlock..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -includeBlock: aBlock - includeBlock := aBlock \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/includeBlock.st b/src/Squot.package/SquotDiffNode.class/instance/includeBlock.st deleted file mode 100644 index 67661bc4f..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/includeBlock.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -includeBlock - ^ includeBlock \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/initialize.st b/src/Squot.package/SquotDiffNode.class/instance/initialize.st deleted file mode 100644 index f3b55af6b..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initialize - super initialize. - isActive := true. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/inspectContent.st b/src/Squot.package/SquotDiffNode.class/instance/inspectContent.st deleted file mode 100644 index 82aea04c1..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/inspectContent.st +++ /dev/null @@ -1,5 +0,0 @@ -as yet unclassified -inspectContent - content ifNotNil: [^ content explore]. - (Array streamContents: [:stream | - children do: [:each | each addContentForInspectionTo: stream]]) explore \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/isActive.st b/src/Squot.package/SquotDiffNode.class/instance/isActive.st deleted file mode 100644 index 2b464ad2e..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/isActive.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isActive - ^ isActive \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/isArtifactNode.st b/src/Squot.package/SquotDiffNode.class/instance/isArtifactNode.st deleted file mode 100644 index 3fdb3f796..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/isArtifactNode.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isArtifactNode - ^ content respondsTo: #asDiffTree \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/needsChoice.st b/src/Squot.package/SquotDiffNode.class/instance/needsChoice.st deleted file mode 100644 index 43d2dd45f..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/needsChoice.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -needsChoice - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/offersChoice.st b/src/Squot.package/SquotDiffNode.class/instance/offersChoice.st deleted file mode 100644 index edfcd8dd8..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/offersChoice.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -offersChoice - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/printOn..st b/src/Squot.package/SquotDiffNode.class/instance/printOn..st deleted file mode 100644 index 60013e158..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/printOn..st +++ /dev/null @@ -1,6 +0,0 @@ -as yet unclassified -printOn: aStream - super printOn: aStream. - aStream - nextPut: Character space; - print: title. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/setTitle.content.children..st b/src/Squot.package/SquotDiffNode.class/instance/setTitle.content.children..st deleted file mode 100644 index 4724039f7..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/setTitle.content.children..st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -setTitle: aStringOrText content: diffContent children: aCollectionOfDiffNodes - title := aStringOrText. - content := diffContent. - children := aCollectionOfDiffNodes. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/title..st b/src/Squot.package/SquotDiffNode.class/instance/title..st deleted file mode 100644 index 87c0fe758..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/title..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -title: aString - title := aString. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/title.st b/src/Squot.package/SquotDiffNode.class/instance/title.st deleted file mode 100644 index 404760ec1..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/title.st +++ /dev/null @@ -1,9 +0,0 @@ -accessing -title - | adornedTitle | - adornedTitle := ((content respondsTo: #adornedDiffNodeTitle:) - ifTrue: [content adornedDiffNodeTitle: title] - ifFalse: [title]) asText. - self anyChildNeedsChoice - ifTrue: [adornedTitle addAttribute: TextEmphasis bold]. - ^ adornedTitle \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/unignore.st b/src/Squot.package/SquotDiffNode.class/instance/unignore.st deleted file mode 100644 index 178dd42dd..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/unignore.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -unignore - content ifNil: [^ self]. - self flag: #todo. "Environment access is specific to packages" - self withPackageEnvironmentDo: [content unignoreInSquot]. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/withAllChildren.st b/src/Squot.package/SquotDiffNode.class/instance/withAllChildren.st deleted file mode 100644 index 79d373b00..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/withAllChildren.st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -withAllChildren - ^ SquotDiffNodeSegmentCollection new allBelowAndIncluding: self \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/withPackageEnvironmentDo..st b/src/Squot.package/SquotDiffNode.class/instance/withPackageEnvironmentDo..st deleted file mode 100644 index b8b986bd0..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/withPackageEnvironmentDo..st +++ /dev/null @@ -1,7 +0,0 @@ -as yet unclassified -withPackageEnvironmentDo: aBlock - | workingCopyArtifact | - workingCopyArtifact := workingCopy artifactAt: artifactDiff path ifAbsent: []. - ^ (workingCopyArtifact isNil or: [workingCopyArtifact isLoaded not]) - ifTrue: [aBlock value] - ifFalse: [(PackageInfo squotEnvironmentOf: workingCopyArtifact) beCurrentDuring: aBlock] \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/workingCopy..st b/src/Squot.package/SquotDiffNode.class/instance/workingCopy..st deleted file mode 100644 index edbc52b75..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/workingCopy..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -workingCopy: anObject - workingCopy := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/instance/workingCopy.st b/src/Squot.package/SquotDiffNode.class/instance/workingCopy.st deleted file mode 100644 index 685b55241..000000000 --- a/src/Squot.package/SquotDiffNode.class/instance/workingCopy.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -workingCopy - ^ workingCopy \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNode.class/methodProperties.json b/src/Squot.package/SquotDiffNode.class/methodProperties.json deleted file mode 100644 index 4ff8c0cce..000000000 --- a/src/Squot.package/SquotDiffNode.class/methodProperties.json +++ /dev/null @@ -1,45 +0,0 @@ -{ - "class" : { - "title:content:children:onInclude:onExclude:" : "jr 11/1/2020 21:42" }, - "instance" : { - "accept:" : "jr 11/19/2017 19:26", - "addContentForInspectionTo:" : "jr 4/17/2017 02:28", - "annotations" : "ct 2/3/2022 21:11", - "anyChildNeedsChoice" : "jr 11/19/2017 19:05", - "artifactDiff" : "jr 12/22/2019 18:34", - "artifactDiff:" : "jr 12/22/2019 18:34", - "asStringOrText" : "jr 11/18/2020 15:20", - "balloonText" : "jr 4/17/2017 01:20", - "browse:" : "jr 6/6/2020 02:53", - "browseInWorkingCopy" : "jr 6/6/2022 19:17", - "browseIncomingEdition:" : "jr 7/9/2022 11:48", - "browseOriginalEdition:" : "jr 7/9/2022 11:48", - "children" : "jr 4/17/2017 01:01", - "children:" : "jr 11/18/2017 22:31", - "concatenatedChildrenTexts" : "jr 5/23/2017 14:09", - "content" : "jr 4/17/2017 02:25", - "content:" : "jr 11/18/2017 22:31", - "exclude" : "jr 11/21/2018 22:06", - "excludeBlock" : "jr 11/18/2018 02:12", - "excludeBlock:" : "jr 11/18/2018 02:11", - "hasActiveChildren" : "jr 3/3/2020 22:41", - "hasChildren" : "jr 4/17/2017 00:58", - "ignore" : "jr 7/9/2022 12:57", - "include" : "jr 11/21/2018 22:08", - "includeBlock" : "jr 11/18/2018 02:11", - "includeBlock:" : "jr 11/18/2018 02:11", - "initialize" : "jr 4/17/2017 22:52", - "inspectContent" : "jr 4/17/2017 02:27", - "isActive" : "jr 4/17/2017 22:53", - "isArtifactNode" : "jr 9/26/2019 00:48", - "needsChoice" : "jr 5/29/2017 00:00", - "offersChoice" : "jr 5/29/2017 01:34", - "printOn:" : "jr 5/28/2017 15:01", - "setTitle:content:children:" : "jr 11/1/2020 21:42", - "title" : "jr 11/17/2020 17:47", - "title:" : "jr 11/18/2017 22:30", - "unignore" : "jr 7/9/2022 12:57", - "withAllChildren" : "jr 11/19/2017 19:25", - "withPackageEnvironmentDo:" : "jr 7/9/2022 12:57", - "workingCopy" : "jr 12/22/2019 18:36", - "workingCopy:" : "jr 12/22/2019 18:36" } } diff --git a/src/Squot.package/SquotDiffNode.class/properties.json b/src/Squot.package/SquotDiffNode.class/properties.json deleted file mode 100644 index 1b39d271b..000000000 --- a/src/Squot.package/SquotDiffNode.class/properties.json +++ /dev/null @@ -1,21 +0,0 @@ -{ - "category" : "Squot-Tools-Support", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 15:22", - "instvars" : [ - "title", - "content", - "children", - "isActive", - "includeBlock", - "excludeBlock", - "artifactDiff", - "workingCopy" ], - "name" : "SquotDiffNode", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotDiffNodeSearch.class/README.md b/src/Squot.package/SquotDiffNodeSearch.class/README.md deleted file mode 100644 index 8eeb3f75b..000000000 --- a/src/Squot.package/SquotDiffNodeSearch.class/README.md +++ /dev/null @@ -1,5 +0,0 @@ -I am a generic search/visitor traversing a graph of SquotDiffNode objects. - -Instance Variables - upcomingNodes: - visitedNodes: \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNodeSearch.class/instance/enqueueAll..st b/src/Squot.package/SquotDiffNodeSearch.class/instance/enqueueAll..st deleted file mode 100644 index 98c4f152f..000000000 --- a/src/Squot.package/SquotDiffNodeSearch.class/instance/enqueueAll..st +++ /dev/null @@ -1,3 +0,0 @@ -visiting -enqueueAll: aCollection - upcomingNodes addAll: (aCollection reject: [:each | visitedNodes includes: each]). \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNodeSearch.class/instance/initialize.st b/src/Squot.package/SquotDiffNodeSearch.class/instance/initialize.st deleted file mode 100644 index d74a61dd3..000000000 --- a/src/Squot.package/SquotDiffNodeSearch.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initialize - upcomingNodes := OrderedCollection new. - visitedNodes := Set new. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNodeSearch.class/instance/searchFrom..st b/src/Squot.package/SquotDiffNodeSearch.class/instance/searchFrom..st deleted file mode 100644 index 2d88f64c3..000000000 --- a/src/Squot.package/SquotDiffNodeSearch.class/instance/searchFrom..st +++ /dev/null @@ -1,5 +0,0 @@ -visiting -searchFrom: aDiffNode - self enqueueAll: (Array with: aDiffNode). - [upcomingNodes notEmpty] whileTrue: - [self visit: upcomingNodes removeFirst]. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNodeSearch.class/instance/visit..st b/src/Squot.package/SquotDiffNodeSearch.class/instance/visit..st deleted file mode 100644 index ac91f6591..000000000 --- a/src/Squot.package/SquotDiffNodeSearch.class/instance/visit..st +++ /dev/null @@ -1,4 +0,0 @@ -visiting -visit: aDiffNode - visitedNodes add: aDiffNode. - ^ aDiffNode accept: self \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNodeSearch.class/instance/visitDiffNode..st b/src/Squot.package/SquotDiffNodeSearch.class/instance/visitDiffNode..st deleted file mode 100644 index 8aa151f11..000000000 --- a/src/Squot.package/SquotDiffNodeSearch.class/instance/visitDiffNode..st +++ /dev/null @@ -1,3 +0,0 @@ -visiting -visitDiffNode: aDiffNode - self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNodeSearch.class/methodProperties.json b/src/Squot.package/SquotDiffNodeSearch.class/methodProperties.json deleted file mode 100644 index 233411115..000000000 --- a/src/Squot.package/SquotDiffNodeSearch.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "enqueueAll:" : "jr 11/19/2017 19:11", - "initialize" : "jr 11/19/2017 19:11", - "searchFrom:" : "jr 11/19/2017 19:14", - "visit:" : "jr 11/19/2017 19:20", - "visitDiffNode:" : "jr 11/19/2017 18:59" } } diff --git a/src/Squot.package/SquotDiffNodeSearch.class/properties.json b/src/Squot.package/SquotDiffNodeSearch.class/properties.json deleted file mode 100644 index c93848f80..000000000 --- a/src/Squot.package/SquotDiffNodeSearch.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-Tools-Support", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 19:05", - "instvars" : [ - "visitedNodes", - "upcomingNodes" ], - "name" : "SquotDiffNodeSearch", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotDiffNodeSearchForChoiceNeeded.class/README.md b/src/Squot.package/SquotDiffNodeSearchForChoiceNeeded.class/README.md deleted file mode 100644 index 34d8822fc..000000000 --- a/src/Squot.package/SquotDiffNodeSearchForChoiceNeeded.class/README.md +++ /dev/null @@ -1,4 +0,0 @@ -I look for nodes that need a choice before the current operation can proceed. - -Instance Variables - nodeThatNeedsChoice: \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNodeSearchForChoiceNeeded.class/instance/nodeThatNeedsChoice.st b/src/Squot.package/SquotDiffNodeSearchForChoiceNeeded.class/instance/nodeThatNeedsChoice.st deleted file mode 100644 index 2425784c5..000000000 --- a/src/Squot.package/SquotDiffNodeSearchForChoiceNeeded.class/instance/nodeThatNeedsChoice.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -nodeThatNeedsChoice - ^ nodeThatNeedsChoice \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNodeSearchForChoiceNeeded.class/instance/searchFrom..st b/src/Squot.package/SquotDiffNodeSearchForChoiceNeeded.class/instance/searchFrom..st deleted file mode 100644 index 7c807ca12..000000000 --- a/src/Squot.package/SquotDiffNodeSearchForChoiceNeeded.class/instance/searchFrom..st +++ /dev/null @@ -1,5 +0,0 @@ -visiting -searchFrom: aDiffNode - self enqueueAll: (Array with: aDiffNode). - [nodeThatNeedsChoice isNil and: [upcomingNodes notEmpty]] whileTrue: - [self visit: upcomingNodes removeFirst]. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNodeSearchForChoiceNeeded.class/instance/visitDiffNode..st b/src/Squot.package/SquotDiffNodeSearchForChoiceNeeded.class/instance/visitDiffNode..st deleted file mode 100644 index 97db266b8..000000000 --- a/src/Squot.package/SquotDiffNodeSearchForChoiceNeeded.class/instance/visitDiffNode..st +++ /dev/null @@ -1,5 +0,0 @@ -visiting -visitDiffNode: aDiffNode - aDiffNode needsChoice - ifTrue: [nodeThatNeedsChoice := aDiffNode] - ifFalse: [self enqueueAll: aDiffNode children]. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNodeSearchForChoiceNeeded.class/methodProperties.json b/src/Squot.package/SquotDiffNodeSearchForChoiceNeeded.class/methodProperties.json deleted file mode 100644 index b0ae5fc8c..000000000 --- a/src/Squot.package/SquotDiffNodeSearchForChoiceNeeded.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "nodeThatNeedsChoice" : "jr 11/19/2017 19:04", - "searchFrom:" : "jr 1/15/2018 21:32", - "visitDiffNode:" : "jr 11/19/2017 19:02" } } diff --git a/src/Squot.package/SquotDiffNodeSearchForChoiceNeeded.class/properties.json b/src/Squot.package/SquotDiffNodeSearchForChoiceNeeded.class/properties.json deleted file mode 100644 index e0b27c9de..000000000 --- a/src/Squot.package/SquotDiffNodeSearchForChoiceNeeded.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tools-Support", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 19:05", - "instvars" : [ - "nodeThatNeedsChoice" ], - "name" : "SquotDiffNodeSearchForChoiceNeeded", - "pools" : [ - ], - "super" : "SquotDiffNodeSearch", - "type" : "normal" } diff --git a/src/Squot.package/SquotDiffNodeSegmentCollection.class/README.md b/src/Squot.package/SquotDiffNodeSegmentCollection.class/README.md deleted file mode 100644 index b9b227272..000000000 --- a/src/Squot.package/SquotDiffNodeSegmentCollection.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I collect the start node and all of its descendants in a graph of nodes. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNodeSegmentCollection.class/instance/allBelowAndIncluding..st b/src/Squot.package/SquotDiffNodeSegmentCollection.class/instance/allBelowAndIncluding..st deleted file mode 100644 index a48b0e5c8..000000000 --- a/src/Squot.package/SquotDiffNodeSegmentCollection.class/instance/allBelowAndIncluding..st +++ /dev/null @@ -1,4 +0,0 @@ -visiting -allBelowAndIncluding: aDiffNode - self searchFrom: aDiffNode. - ^ collection \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNodeSegmentCollection.class/instance/initialize.st b/src/Squot.package/SquotDiffNodeSegmentCollection.class/instance/initialize.st deleted file mode 100644 index 907673eaa..000000000 --- a/src/Squot.package/SquotDiffNodeSegmentCollection.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initialize - super initialize. - collection := OrderedCollection new. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNodeSegmentCollection.class/instance/visitDiffNode..st b/src/Squot.package/SquotDiffNodeSegmentCollection.class/instance/visitDiffNode..st deleted file mode 100644 index ec7e7a7ad..000000000 --- a/src/Squot.package/SquotDiffNodeSegmentCollection.class/instance/visitDiffNode..st +++ /dev/null @@ -1,5 +0,0 @@ -visiting -visitDiffNode: aDiffNode - "collect into another collection next to visitedNodes because of the different collection type" - collection add: aDiffNode. - self enqueueAll: aDiffNode children. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNodeSegmentCollection.class/methodProperties.json b/src/Squot.package/SquotDiffNodeSegmentCollection.class/methodProperties.json deleted file mode 100644 index c711459b6..000000000 --- a/src/Squot.package/SquotDiffNodeSegmentCollection.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "allBelowAndIncluding:" : "jr 11/19/2017 19:24", - "initialize" : "jr 11/19/2017 19:24", - "visitDiffNode:" : "jr 11/19/2017 19:25" } } diff --git a/src/Squot.package/SquotDiffNodeSegmentCollection.class/properties.json b/src/Squot.package/SquotDiffNodeSegmentCollection.class/properties.json deleted file mode 100644 index 89ca41711..000000000 --- a/src/Squot.package/SquotDiffNodeSegmentCollection.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tools-Support", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 19:05", - "instvars" : [ - "collection" ], - "name" : "SquotDiffNodeSegmentCollection", - "pools" : [ - ], - "super" : "SquotDiffNodeSearch", - "type" : "normal" } diff --git a/src/Squot.package/SquotDiffNodeTreeWrapper.class/README.md b/src/Squot.package/SquotDiffNodeTreeWrapper.class/README.md deleted file mode 100644 index 63ce3d69f..000000000 --- a/src/Squot.package/SquotDiffNodeTreeWrapper.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am a PluggableTreeItemNode that changes the appearance of nodes for deselected changes. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNodeTreeWrapper.class/instance/asString.st b/src/Squot.package/SquotDiffNodeTreeWrapper.class/instance/asString.st deleted file mode 100644 index b4cd3933d..000000000 --- a/src/Squot.package/SquotDiffNodeTreeWrapper.class/instance/asString.st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -asString - | unembellishedString | - unembellishedString := super asString. - item isActive ifTrue: [^ unembellishedString]. - ^ '( ', unembellishedString, ' )' \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNodeTreeWrapper.class/instance/preferredColor.st b/src/Squot.package/SquotDiffNodeTreeWrapper.class/instance/preferredColor.st deleted file mode 100644 index 9a221e81a..000000000 --- a/src/Squot.package/SquotDiffNodeTreeWrapper.class/instance/preferredColor.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -preferredColor - ^ item isActive - ifTrue: [super preferredColor] - ifFalse: [self userInterfaceTheme excludedDiffItemColor ifNil: [(self userInterfaceTheme get: #tempVar for: #SHTextStylerST80) ifNotNil: [:collection | collection detect: [:each | each class = Color] ifNone: []] ifNil: [Color gray]]] \ No newline at end of file diff --git a/src/Squot.package/SquotDiffNodeTreeWrapper.class/methodProperties.json b/src/Squot.package/SquotDiffNodeTreeWrapper.class/methodProperties.json deleted file mode 100644 index 4abeabd59..000000000 --- a/src/Squot.package/SquotDiffNodeTreeWrapper.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "asString" : "jr 4/17/2017 23:24", - "preferredColor" : "jr 11/14/2020 21:25" } } diff --git a/src/Squot.package/SquotDiffNodeTreeWrapper.class/properties.json b/src/Squot.package/SquotDiffNodeTreeWrapper.class/properties.json deleted file mode 100644 index 7b5efb13c..000000000 --- a/src/Squot.package/SquotDiffNodeTreeWrapper.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tools-Support", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 19:51", - "instvars" : [ - ], - "name" : "SquotDiffNodeTreeWrapper", - "pools" : [ - ], - "super" : "PluggableTreeItemNode", - "type" : "normal" } diff --git a/src/Squot.package/SquotDiffOfEqualObjects.class/README.md b/src/Squot.package/SquotDiffOfEqualObjects.class/README.md deleted file mode 100644 index aeca4af24..000000000 --- a/src/Squot.package/SquotDiffOfEqualObjects.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I simply respond that there are no changes. I must not be recorded in patches as I don't support being applied to any objects. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffOfEqualObjects.class/class/instance.st b/src/Squot.package/SquotDiffOfEqualObjects.class/class/instance.st deleted file mode 100644 index 5ff6e5638..000000000 --- a/src/Squot.package/SquotDiffOfEqualObjects.class/class/instance.st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -instance - ^ instance ifNil: [instance := self new] \ No newline at end of file diff --git a/src/Squot.package/SquotDiffOfEqualObjects.class/class/object..st b/src/Squot.package/SquotDiffOfEqualObjects.class/class/object..st deleted file mode 100644 index e1b5880db..000000000 --- a/src/Squot.package/SquotDiffOfEqualObjects.class/class/object..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -object: anObject - ^ self new - setObject: anObject; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotDiffOfEqualObjects.class/instance/hasChanges.st b/src/Squot.package/SquotDiffOfEqualObjects.class/instance/hasChanges.st deleted file mode 100644 index 9d8e9e64f..000000000 --- a/src/Squot.package/SquotDiffOfEqualObjects.class/instance/hasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasChanges - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotDiffOfEqualObjects.class/instance/mayAffectArtifact.st b/src/Squot.package/SquotDiffOfEqualObjects.class/instance/mayAffectArtifact.st deleted file mode 100644 index 9e9e8d5e5..000000000 --- a/src/Squot.package/SquotDiffOfEqualObjects.class/instance/mayAffectArtifact.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -mayAffectArtifact - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotDiffOfEqualObjects.class/instance/object.st b/src/Squot.package/SquotDiffOfEqualObjects.class/instance/object.st deleted file mode 100644 index 7afc87058..000000000 --- a/src/Squot.package/SquotDiffOfEqualObjects.class/instance/object.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -object - ^ object ifNil: [self error: 'No object was provided when this ', self class, ' was constructed'] \ No newline at end of file diff --git a/src/Squot.package/SquotDiffOfEqualObjects.class/instance/setObject..st b/src/Squot.package/SquotDiffOfEqualObjects.class/instance/setObject..st deleted file mode 100644 index 42f1a9e0b..000000000 --- a/src/Squot.package/SquotDiffOfEqualObjects.class/instance/setObject..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -setObject: anObject - object := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffOfEqualObjects.class/instance/squotHasChanges.st b/src/Squot.package/SquotDiffOfEqualObjects.class/instance/squotHasChanges.st deleted file mode 100644 index 5813b5bad..000000000 --- a/src/Squot.package/SquotDiffOfEqualObjects.class/instance/squotHasChanges.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -squotHasChanges - "Answer false if the two compared objects were equal, answer true if there were diffs." - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotDiffOfEqualObjects.class/instance/squotReflectOn.in..st b/src/Squot.package/SquotDiffOfEqualObjects.class/instance/squotReflectOn.in..st deleted file mode 100644 index ab8e76829..000000000 --- a/src/Squot.package/SquotDiffOfEqualObjects.class/instance/squotReflectOn.in..st +++ /dev/null @@ -1,4 +0,0 @@ -reflecting -squotReflectOn: anObject in: aMirror - "Do nothing" - ^ anObject \ No newline at end of file diff --git a/src/Squot.package/SquotDiffOfEqualObjects.class/instance/willBeLoaded.st b/src/Squot.package/SquotDiffOfEqualObjects.class/instance/willBeLoaded.st deleted file mode 100644 index 0729d2ed9..000000000 --- a/src/Squot.package/SquotDiffOfEqualObjects.class/instance/willBeLoaded.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -willBeLoaded - ^ true "Nothing will be loaded, but this is no addition of something to the working copy." \ No newline at end of file diff --git a/src/Squot.package/SquotDiffOfEqualObjects.class/methodProperties.json b/src/Squot.package/SquotDiffOfEqualObjects.class/methodProperties.json deleted file mode 100644 index dfbeedcae..000000000 --- a/src/Squot.package/SquotDiffOfEqualObjects.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - "instance" : "jr 4/9/2017 22:43", - "object:" : "jr 1/9/2022 20:06" }, - "instance" : { - "hasChanges" : "jr 7/22/2017 02:44", - "mayAffectArtifact" : "jr 11/6/2020 23:06", - "object" : "jr 1/9/2022 20:08", - "setObject:" : "jr 1/9/2022 20:07", - "squotHasChanges" : "jr 4/9/2017 22:43", - "squotReflectOn:in:" : "jr 7/17/2021 02:41", - "willBeLoaded" : "jr 10/4/2020 17:47" } } diff --git a/src/Squot.package/SquotDiffOfEqualObjects.class/properties.json b/src/Squot.package/SquotDiffOfEqualObjects.class/properties.json deleted file mode 100644 index 25dadebd9..000000000 --- a/src/Squot.package/SquotDiffOfEqualObjects.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Diffs", - "classinstvars" : [ - "instance" ], - "classtraitcomposition" : "TSquotModification classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 9/25/2019 20:01", - "instvars" : [ - "object" ], - "name" : "SquotDiffOfEqualObjects", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotModification", - "type" : "normal" } diff --git a/src/Squot.package/SquotDiffTreeBuilder.class/README.md b/src/Squot.package/SquotDiffTreeBuilder.class/README.md deleted file mode 100644 index 8dc8a8099..000000000 --- a/src/Squot.package/SquotDiffTreeBuilder.class/README.md +++ /dev/null @@ -1,5 +0,0 @@ -I build graphs of SquotDiffNodes. My purpose is to deal with cycles in diff graphs. - -Instance Variables - graphDiff: - nodes: \ No newline at end of file diff --git a/src/Squot.package/SquotDiffTreeBuilder.class/instance/convertDiffOf..st b/src/Squot.package/SquotDiffTreeBuilder.class/instance/convertDiffOf..st deleted file mode 100644 index 9b328f822..000000000 --- a/src/Squot.package/SquotDiffTreeBuilder.class/instance/convertDiffOf..st +++ /dev/null @@ -1,7 +0,0 @@ -converting -convertDiffOf: aShadow - ^ aShadow hasSquotShadowName - ifTrue: [self convertToNodes: - (graphDiff diffForObjectNamed: aShadow name - ifAbsent: ["assume the object has been added" ^ #()])] - ifFalse: ["assume the object has been added" #()] \ No newline at end of file diff --git a/src/Squot.package/SquotDiffTreeBuilder.class/instance/convertToNodes..st b/src/Squot.package/SquotDiffTreeBuilder.class/instance/convertToNodes..st deleted file mode 100644 index cdc2b00fc..000000000 --- a/src/Squot.package/SquotDiffTreeBuilder.class/instance/convertToNodes..st +++ /dev/null @@ -1,8 +0,0 @@ -as yet unclassified -convertToNodes: aDiff - | newNodes | - nodes at: aDiff - ifPresent: [:existingNodes | ^ existingNodes] - ifAbsentPut: [newNodes := aDiff newSquotDiffNodes]. - newNodes ifNotEmpty: [aDiff initializeSquotDiffNodes: newNodes with: self]. - ^ newNodes \ No newline at end of file diff --git a/src/Squot.package/SquotDiffTreeBuilder.class/instance/graphDiff..st b/src/Squot.package/SquotDiffTreeBuilder.class/instance/graphDiff..st deleted file mode 100644 index 46a090ab1..000000000 --- a/src/Squot.package/SquotDiffTreeBuilder.class/instance/graphDiff..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -graphDiff: aSquotShadowGraphDiff - graphDiff := aSquotShadowGraphDiff. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffTreeBuilder.class/instance/initialize.st b/src/Squot.package/SquotDiffTreeBuilder.class/instance/initialize.st deleted file mode 100644 index da595db29..000000000 --- a/src/Squot.package/SquotDiffTreeBuilder.class/instance/initialize.st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -initialize - nodes := IdentityDictionary new. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffTreeBuilder.class/methodProperties.json b/src/Squot.package/SquotDiffTreeBuilder.class/methodProperties.json deleted file mode 100644 index 61d4e0127..000000000 --- a/src/Squot.package/SquotDiffTreeBuilder.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "convertDiffOf:" : "jr 3/17/2018 23:34", - "convertToNodes:" : "jr 6/27/2020 10:28", - "graphDiff:" : "jr 11/18/2017 23:39", - "initialize" : "jr 6/12/2017 16:56" } } diff --git a/src/Squot.package/SquotDiffTreeBuilder.class/properties.json b/src/Squot.package/SquotDiffTreeBuilder.class/properties.json deleted file mode 100644 index d5bbec172..000000000 --- a/src/Squot.package/SquotDiffTreeBuilder.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-Tools-Support", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 19:06", - "instvars" : [ - "nodes", - "graphDiff" ], - "name" : "SquotDiffTreeBuilder", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotDiffTreeToolTestCase.class/README.md b/src/Squot.package/SquotDiffTreeToolTestCase.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotDiffTreeToolTestCase.class/class/isAbstract.st b/src/Squot.package/SquotDiffTreeToolTestCase.class/class/isAbstract.st deleted file mode 100644 index c5d6b359b..000000000 --- a/src/Squot.package/SquotDiffTreeToolTestCase.class/class/isAbstract.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isAbstract - ^ self name = #SquotDiffTreeToolTestCase \ No newline at end of file diff --git a/src/Squot.package/SquotDiffTreeToolTestCase.class/instance/performUiInteractionTestsOnNode.withPath.inTree..st b/src/Squot.package/SquotDiffTreeToolTestCase.class/instance/performUiInteractionTestsOnNode.withPath.inTree..st deleted file mode 100644 index 8d2849121..000000000 --- a/src/Squot.package/SquotDiffTreeToolTestCase.class/instance/performUiInteractionTestsOnNode.withPath.inTree..st +++ /dev/null @@ -1,9 +0,0 @@ -utilities -performUiInteractionTestsOnNode: aSquotDiffNode withPath: aCollection inTree: treeView - tool selectNode: aSquotDiffNode; - selectedNodePath: aCollection. - treeView expandAll. - tool nodeLabelOf: aSquotDiffNode. - self assert: (tool diffText isString or: [tool diffText isText]). - treeView getMenu: false. - treeView getMenu: true. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffTreeToolTestCase.class/instance/performUiTestsOnToolBuiltBy..st b/src/Squot.package/SquotDiffTreeToolTestCase.class/instance/performUiTestsOnToolBuiltBy..st deleted file mode 100644 index 8425f953b..000000000 --- a/src/Squot.package/SquotDiffTreeToolTestCase.class/instance/performUiTestsOnToolBuiltBy..st +++ /dev/null @@ -1,11 +0,0 @@ -utilities -performUiTestsOnToolBuiltBy: aToolBuilder - | treeView remaining currentPath | - treeView := aToolBuilder widgetAt: 'hierarchical diff'. - remaining := OrderedCollection new. - tool rootNodes reverseDo: [:each | remaining add: (Array with: each)]. - [remaining isEmpty] whileFalse: - [currentPath := remaining removeLast. - self performUiInteractionTestsOnNode: currentPath first withPath: currentPath inTree: treeView. - currentPath first children reverseDo: - [:each | remaining add: (currentPath copyWithFirst: each)]]. \ No newline at end of file diff --git a/src/Squot.package/SquotDiffTreeToolTestCase.class/methodProperties.json b/src/Squot.package/SquotDiffTreeToolTestCase.class/methodProperties.json deleted file mode 100644 index e650c2d8a..000000000 --- a/src/Squot.package/SquotDiffTreeToolTestCase.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - "isAbstract" : "jr 8/14/2019 22:21" }, - "instance" : { - "performUiInteractionTestsOnNode:withPath:inTree:" : "jr 9/26/2020 15:14", - "performUiTestsOnToolBuiltBy:" : "jr 9/26/2020 19:34" } } diff --git a/src/Squot.package/SquotDiffTreeToolTestCase.class/properties.json b/src/Squot.package/SquotDiffTreeToolTestCase.class/properties.json deleted file mode 100644 index ec0119dc3..000000000 --- a/src/Squot.package/SquotDiffTreeToolTestCase.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Tools", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotDiffTreeToolTestCase", - "pools" : [ - ], - "super" : "SquotToolTestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotDifferentReferenceTarget.class/README.md b/src/Squot.package/SquotDifferentReferenceTarget.class/README.md deleted file mode 100644 index 0040c3765..000000000 --- a/src/Squot.package/SquotDifferentReferenceTarget.class/README.md +++ /dev/null @@ -1,7 +0,0 @@ -I tell how the target of a reference has changed. Either the target has mutated or it was exchanged. The mutation might also be "deep" within the object, which means in Smalltalk terms, that an instance variable might not have actually changed to another object, but the object in this variable might have somehow changed. - -For example: - Set #1 -> Array #1 -> 1 - changes to: - Set #1 -> Array #1 -> 2 -The reference from the Set to the Array does not change, and the Array stays the same, but the "value" of the array (and more importantly its hash) has changed, so the Set may get a SquotDifferenceReferenceTarget in its diff, even though no reference of the Set needs to be updated to reproduce the change. The Set may need to be rehashed though. If there were another Array between the Array #1 and the numbers, the situation would basically be the same as far as the Set is concerned. \ No newline at end of file diff --git a/src/Squot.package/SquotDifferentReferenceTarget.class/class/reference.leftOwner.target.rightOwner.target..st b/src/Squot.package/SquotDifferentReferenceTarget.class/class/reference.leftOwner.target.rightOwner.target..st deleted file mode 100644 index e29ead83c..000000000 --- a/src/Squot.package/SquotDifferentReferenceTarget.class/class/reference.leftOwner.target.rightOwner.target..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -reference: aReference leftOwner: leftObject target: leftTargetObject rightOwner: rightObject target: rightTargetObject - ^ self new - setReference: aReference leftOwner: leftObject target: leftTargetObject rightOwner: rightObject target: rightTargetObject; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotDifferentReferenceTarget.class/instance/leftTarget.st b/src/Squot.package/SquotDifferentReferenceTarget.class/instance/leftTarget.st deleted file mode 100644 index 6238397de..000000000 --- a/src/Squot.package/SquotDifferentReferenceTarget.class/instance/leftTarget.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -leftTarget - ^ leftTarget \ No newline at end of file diff --git a/src/Squot.package/SquotDifferentReferenceTarget.class/instance/printOn..st b/src/Squot.package/SquotDifferentReferenceTarget.class/instance/printOn..st deleted file mode 100644 index 28e63f409..000000000 --- a/src/Squot.package/SquotDifferentReferenceTarget.class/instance/printOn..st +++ /dev/null @@ -1,5 +0,0 @@ -printing -printOn: aStream - aStream - nextPutAll: 'modified '; - print: reference. \ No newline at end of file diff --git a/src/Squot.package/SquotDifferentReferenceTarget.class/instance/rightTarget.st b/src/Squot.package/SquotDifferentReferenceTarget.class/instance/rightTarget.st deleted file mode 100644 index 918d26644..000000000 --- a/src/Squot.package/SquotDifferentReferenceTarget.class/instance/rightTarget.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rightTarget - ^ rightTarget \ No newline at end of file diff --git a/src/Squot.package/SquotDifferentReferenceTarget.class/instance/setReference.leftOwner.target.rightOwner.target..st b/src/Squot.package/SquotDifferentReferenceTarget.class/instance/setReference.leftOwner.target.rightOwner.target..st deleted file mode 100644 index d18891524..000000000 --- a/src/Squot.package/SquotDifferentReferenceTarget.class/instance/setReference.leftOwner.target.rightOwner.target..st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -setReference: aReference leftOwner: leftObject target: leftTargetObject rightOwner: rightObject target: rightTargetObject - super setReference: aReference leftOwner: leftObject rightOwner: rightObject. - leftTarget := leftTargetObject. - rightTarget := rightTargetObject. \ No newline at end of file diff --git a/src/Squot.package/SquotDifferentReferenceTarget.class/instance/squotReflectOn.in.withValue..st b/src/Squot.package/SquotDifferentReferenceTarget.class/instance/squotReflectOn.in.withValue..st deleted file mode 100644 index 463cde6eb..000000000 --- a/src/Squot.package/SquotDifferentReferenceTarget.class/instance/squotReflectOn.in.withValue..st +++ /dev/null @@ -1,4 +0,0 @@ -patching -squotReflectOn: ownerObject in: aMirror withValue: targetObject - "Do not actually change anything, only my subclasses do that." - ^ targetObject \ No newline at end of file diff --git a/src/Squot.package/SquotDifferentReferenceTarget.class/instance/squotValueShadowFrom.reflectedIn..st b/src/Squot.package/SquotDifferentReferenceTarget.class/instance/squotValueShadowFrom.reflectedIn..st deleted file mode 100644 index 9edbfc90c..000000000 --- a/src/Squot.package/SquotDifferentReferenceTarget.class/instance/squotValueShadowFrom.reflectedIn..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -squotValueShadowFrom: anObject reflectedIn: aMirror - ^ rightTarget \ No newline at end of file diff --git a/src/Squot.package/SquotDifferentReferenceTarget.class/methodProperties.json b/src/Squot.package/SquotDifferentReferenceTarget.class/methodProperties.json deleted file mode 100644 index 956757606..000000000 --- a/src/Squot.package/SquotDifferentReferenceTarget.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - "reference:leftOwner:target:rightOwner:target:" : "jr 12/24/2020 01:03" }, - "instance" : { - "leftTarget" : "jr 1/16/2022 21:26", - "printOn:" : "jr 6/16/2021 21:19", - "rightTarget" : "jr 1/16/2022 21:26", - "setReference:leftOwner:target:rightOwner:target:" : "jr 12/24/2020 01:03", - "squotReflectOn:in:withValue:" : "jr 6/20/2021 21:01", - "squotValueShadowFrom:reflectedIn:" : "jr 7/18/2021 00:37" } } diff --git a/src/Squot.package/SquotDifferentReferenceTarget.class/properties.json b/src/Squot.package/SquotDifferentReferenceTarget.class/properties.json deleted file mode 100644 index 3a5e8095b..000000000 --- a/src/Squot.package/SquotDifferentReferenceTarget.class/properties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "category" : "Squot-Diffs", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotModification classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 6/13/2021 10:59", - "instvars" : [ - "leftTarget", - "rightTarget" ], - "name" : "SquotDifferentReferenceTarget", - "pools" : [ - ], - "super" : "SquotReferenceDiff", - "traitcomposition" : "TSquotModification", - "type" : "normal" } diff --git a/src/Squot.package/SquotDiskProxyMirror.class/README.md b/src/Squot.package/SquotDiskProxyMirror.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotDiskProxyMirror.class/instance/capture.with.ifReplaced..st b/src/Squot.package/SquotDiskProxyMirror.class/instance/capture.with.ifReplaced..st deleted file mode 100644 index 3cbaa68bf..000000000 --- a/src/Squot.package/SquotDiskProxyMirror.class/instance/capture.with.ifReplaced..st +++ /dev/null @@ -1,3 +0,0 @@ -capturing -capture: aDiskProxy with: aSquotObjectCapturer ifReplaced: aBlock - ^ SquotDiskProxyShadow for: aDiskProxy \ No newline at end of file diff --git a/src/Squot.package/SquotDiskProxyMirror.class/instance/newDiffFrom.to..st b/src/Squot.package/SquotDiskProxyMirror.class/instance/newDiffFrom.to..st deleted file mode 100644 index d7c81f929..000000000 --- a/src/Squot.package/SquotDiskProxyMirror.class/instance/newDiffFrom.to..st +++ /dev/null @@ -1,7 +0,0 @@ -comparing -newDiffFrom: aDiskProxyShadow to: aDiskProxyShadow2 - self isThisEverCalled. - "Should only be called if the DiskProxies were the roots of the object graph (which would not make much sense, to track something that is then proxied to hide any details). Otherwise, if the DiskProxy is different, the target of the reference from which it was reached is also likely to have a different identity, so the DiskProxy versions would not be compared with each other." - ^ aDiskProxyShadow = aDiskProxyShadow2 - ifTrue: [SquotDiffOfEqualObjects instance] - ifFalse: [self isThisEverCalled. SquotObjectReplacement left: aDiskProxyShadow right: aDiskProxyShadow2] \ No newline at end of file diff --git a/src/Squot.package/SquotDiskProxyMirror.class/instance/shouldObjectHaveNameAssigned..st b/src/Squot.package/SquotDiskProxyMirror.class/instance/shouldObjectHaveNameAssigned..st deleted file mode 100644 index 5dab3d8c3..000000000 --- a/src/Squot.package/SquotDiskProxyMirror.class/instance/shouldObjectHaveNameAssigned..st +++ /dev/null @@ -1,5 +0,0 @@ -testing -shouldObjectHaveNameAssigned: anObject - "Actually, this depends on whether the original object had an identifier... - The DiskProxy should not get its own name, but it can bear the name of its original object in object graph snapshots." - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotDiskProxyMirror.class/methodProperties.json b/src/Squot.package/SquotDiskProxyMirror.class/methodProperties.json deleted file mode 100644 index 69e0ace7f..000000000 --- a/src/Squot.package/SquotDiskProxyMirror.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "capture:with:ifReplaced:" : "jr 7/17/2021 23:57", - "newDiffFrom:to:" : "jr 8/8/2021 18:42", - "shouldObjectHaveNameAssigned:" : "jr 4/8/2021 22:05" } } diff --git a/src/Squot.package/SquotDiskProxyMirror.class/properties.json b/src/Squot.package/SquotDiskProxyMirror.class/properties.json deleted file mode 100644 index 2d6a0a29c..000000000 --- a/src/Squot.package/SquotDiskProxyMirror.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotDiskProxyMirror", - "pools" : [ - ], - "super" : "SquotOpaqueValueMirror", - "type" : "normal" } diff --git a/src/Squot.package/SquotDiskProxyShadow.class/README.md b/src/Squot.package/SquotDiskProxyShadow.class/README.md deleted file mode 100644 index 11d000ad6..000000000 --- a/src/Squot.package/SquotDiskProxyShadow.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I wrap a DiskProxy that is captured as-is. When rematerializing, the proxy constructor is evaluated. \ No newline at end of file diff --git a/src/Squot.package/SquotDiskProxyShadow.class/class/for..st b/src/Squot.package/SquotDiskProxyShadow.class/class/for..st deleted file mode 100644 index 1511dd77c..000000000 --- a/src/Squot.package/SquotDiskProxyShadow.class/class/for..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -for: aDiskProxy - ^ self new setDiskProxy: aDiskProxy; yourself \ No newline at end of file diff --git a/src/Squot.package/SquotDiskProxyShadow.class/class/squotMirror.st b/src/Squot.package/SquotDiskProxyShadow.class/class/squotMirror.st deleted file mode 100644 index c78bb9180..000000000 --- a/src/Squot.package/SquotDiskProxyShadow.class/class/squotMirror.st +++ /dev/null @@ -1,3 +0,0 @@ -reflecting -squotMirror - ^ SquotDiskProxyMirror new \ No newline at end of file diff --git a/src/Squot.package/SquotDiskProxyShadow.class/instance/^equals.st b/src/Squot.package/SquotDiskProxyShadow.class/instance/^equals.st deleted file mode 100644 index 307c96332..000000000 --- a/src/Squot.package/SquotDiskProxyShadow.class/instance/^equals.st +++ /dev/null @@ -1,10 +0,0 @@ -comparing -= anObject - "For some reason, DiskProxy does not have comparator methods." - ^ [proxy globalObjectName = anObject proxy globalObjectName - and: [proxy constructorSelector = anObject proxy constructorSelector - and: [proxy preSelector = anObject proxy preSelector - and: [proxy constructorArgs = anObject proxy constructorArgs]]]] - on: MessageNotUnderstood do: - [:e | (e receiver == anObject and: [e message selector == #proxy]) - ifTrue: [e return: false] ifFalse: [e pass]] \ No newline at end of file diff --git a/src/Squot.package/SquotDiskProxyShadow.class/instance/assumeOriginalClassOf..st b/src/Squot.package/SquotDiskProxyShadow.class/instance/assumeOriginalClassOf..st deleted file mode 100644 index a2af90bae..000000000 --- a/src/Squot.package/SquotDiskProxyShadow.class/instance/assumeOriginalClassOf..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -assumeOriginalClassOf: anObject - "Do not need this." \ No newline at end of file diff --git a/src/Squot.package/SquotDiskProxyShadow.class/instance/hash.st b/src/Squot.package/SquotDiskProxyShadow.class/instance/hash.st deleted file mode 100644 index ccce7613f..000000000 --- a/src/Squot.package/SquotDiskProxyShadow.class/instance/hash.st +++ /dev/null @@ -1,6 +0,0 @@ -comparing -hash - ^ proxy constructorArgs hash hashMultiply bitXor: - (proxy constructorSelector hash hashMultiply bitXor: - (proxy globalObjectName hash hashMultiply bitXor: - proxy preSelector hash)) \ No newline at end of file diff --git a/src/Squot.package/SquotDiskProxyShadow.class/instance/proxy.st b/src/Squot.package/SquotDiskProxyShadow.class/instance/proxy.st deleted file mode 100644 index e0299b6e9..000000000 --- a/src/Squot.package/SquotDiskProxyShadow.class/instance/proxy.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -proxy - ^ proxy \ No newline at end of file diff --git a/src/Squot.package/SquotDiskProxyShadow.class/instance/sameIn.withName.ifAbsent..st b/src/Squot.package/SquotDiskProxyShadow.class/instance/sameIn.withName.ifAbsent..st deleted file mode 100644 index 5ce25c247..000000000 --- a/src/Squot.package/SquotDiskProxyShadow.class/instance/sameIn.withName.ifAbsent..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -sameIn: aShadowGraph withName: aName ifAbsent: aBlock - ^ [aShadowGraph class squotMirror reflect: (SquotGraphElementWithName name: aName) of: aShadowGraph] on: KeyNotFound do: [:e | e return: aBlock value] \ No newline at end of file diff --git a/src/Squot.package/SquotDiskProxyShadow.class/instance/setDiskProxy..st b/src/Squot.package/SquotDiskProxyShadow.class/instance/setDiskProxy..st deleted file mode 100644 index 4ba55e116..000000000 --- a/src/Squot.package/SquotDiskProxyShadow.class/instance/setDiskProxy..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -setDiskProxy: aDiskProxy - proxy := aDiskProxy. \ No newline at end of file diff --git a/src/Squot.package/SquotDiskProxyShadow.class/instance/squotDiffAgainst.with..st b/src/Squot.package/SquotDiskProxyShadow.class/instance/squotDiffAgainst.with..st deleted file mode 100644 index b9df89fa4..000000000 --- a/src/Squot.package/SquotDiskProxyShadow.class/instance/squotDiffAgainst.with..st +++ /dev/null @@ -1,7 +0,0 @@ -Squot-shadow-diffing -squotDiffAgainst: otherShadow with: aDiffBuilder - "If the otherShadow is also a DiskProxy shadow, compare the constructors. Otherwise, exchange the objects." - self deprecated: 'See SquotDiskProxyMirror newDiffFrom:to:'. - ^ self = otherShadow - ifTrue: [SquotDiffOfEqualObjects instance] - ifFalse: [SquotObjectReplacement left: self right: otherShadow] \ No newline at end of file diff --git a/src/Squot.package/SquotDiskProxyShadow.class/instance/squotMaterializeWith..st b/src/Squot.package/SquotDiskProxyShadow.class/instance/squotMaterializeWith..st deleted file mode 100644 index c1a04393b..000000000 --- a/src/Squot.package/SquotDiskProxyShadow.class/instance/squotMaterializeWith..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-shadow -squotMaterializeWith: aMaterializer - ^ proxy comeFullyUpOnReload: aMaterializer \ No newline at end of file diff --git a/src/Squot.package/SquotDiskProxyShadow.class/instance/squotOutgoingReferences.st b/src/Squot.package/SquotDiskProxyShadow.class/instance/squotOutgoingReferences.st deleted file mode 100644 index e475139fd..000000000 --- a/src/Squot.package/SquotDiskProxyShadow.class/instance/squotOutgoingReferences.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -squotOutgoingReferences - "None that any diff builders should care about." - ^ #() \ No newline at end of file diff --git a/src/Squot.package/SquotDiskProxyShadow.class/methodProperties.json b/src/Squot.package/SquotDiskProxyShadow.class/methodProperties.json deleted file mode 100644 index ebd468a93..000000000 --- a/src/Squot.package/SquotDiskProxyShadow.class/methodProperties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "class" : { - "for:" : "jr 4/8/2021 22:07", - "squotMirror" : "jr 4/11/2021 18:32" }, - "instance" : { - "=" : "jr 4/8/2021 22:25", - "assumeOriginalClassOf:" : "jr 7/18/2021 00:07", - "hash" : "jr 4/8/2021 22:22", - "proxy" : "jr 4/8/2021 22:25", - "sameIn:withName:ifAbsent:" : "jr 9/11/2021 00:08", - "setDiskProxy:" : "jr 4/8/2021 22:08", - "squotDiffAgainst:with:" : "jr 7/30/2021 19:50", - "squotMaterializeWith:" : "jr 4/8/2021 22:09", - "squotOutgoingReferences" : "jr 4/8/2021 22:15" } } diff --git a/src/Squot.package/SquotDiskProxyShadow.class/properties.json b/src/Squot.package/SquotDiskProxyShadow.class/properties.json deleted file mode 100644 index 8faaa0799..000000000 --- a/src/Squot.package/SquotDiskProxyShadow.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Shadows", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotDiffableShadow classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 4/8/2021 22:12", - "instvars" : [ - "proxy" ], - "name" : "SquotDiskProxyShadow", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotDiffableShadow", - "type" : "normal" } diff --git a/src/Squot.package/SquotFSStoreSpy.class/README.md b/src/Squot.package/SquotFSStoreSpy.class/README.md deleted file mode 100644 index c353a4ffb..000000000 --- a/src/Squot.package/SquotFSStoreSpy.class/README.md +++ /dev/null @@ -1,5 +0,0 @@ -I wrap a FileSystemStore and log when files are opened in it. - -Instance Variables - openedFiles: - watchedStore: \ No newline at end of file diff --git a/src/Squot.package/SquotFSStoreSpy.class/class/on..st b/src/Squot.package/SquotFSStoreSpy.class/class/on..st deleted file mode 100644 index 55618c8ae..000000000 --- a/src/Squot.package/SquotFSStoreSpy.class/class/on..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -on: aFileSystemStore - ^ self new on: aFileSystemStore; yourself \ No newline at end of file diff --git a/src/Squot.package/SquotFSStoreSpy.class/instance/basicOpen.writable..st b/src/Squot.package/SquotFSStoreSpy.class/instance/basicOpen.writable..st deleted file mode 100644 index b3d9a695d..000000000 --- a/src/Squot.package/SquotFSStoreSpy.class/instance/basicOpen.writable..st +++ /dev/null @@ -1,4 +0,0 @@ -spying -basicOpen: aPath writable: aBoolean - self recordOpened: aPath writable: aBoolean. - ^ watchedStore basicOpen: aPath writable: aBoolean \ No newline at end of file diff --git a/src/Squot.package/SquotFSStoreSpy.class/instance/delete..st b/src/Squot.package/SquotFSStoreSpy.class/instance/delete..st deleted file mode 100644 index f8fa3f358..000000000 --- a/src/Squot.package/SquotFSStoreSpy.class/instance/delete..st +++ /dev/null @@ -1,4 +0,0 @@ -spying -delete: aPath - self recordDelete: aPath. - ^ watchedStore delete: aPath \ No newline at end of file diff --git a/src/Squot.package/SquotFSStoreSpy.class/instance/doesNotUnderstand..st b/src/Squot.package/SquotFSStoreSpy.class/instance/doesNotUnderstand..st deleted file mode 100644 index 65d0c3c61..000000000 --- a/src/Squot.package/SquotFSStoreSpy.class/instance/doesNotUnderstand..st +++ /dev/null @@ -1,3 +0,0 @@ -forwarding -doesNotUnderstand: aMessage - ^ aMessage sendTo: watchedStore \ No newline at end of file diff --git a/src/Squot.package/SquotFSStoreSpy.class/instance/initialize.st b/src/Squot.package/SquotFSStoreSpy.class/instance/initialize.st deleted file mode 100644 index f92ace7ac..000000000 --- a/src/Squot.package/SquotFSStoreSpy.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initialize - openedFiles := Dictionary new. - deletedFiles := Set new. \ No newline at end of file diff --git a/src/Squot.package/SquotFSStoreSpy.class/instance/on..st b/src/Squot.package/SquotFSStoreSpy.class/instance/on..st deleted file mode 100644 index 26c53bfcc..000000000 --- a/src/Squot.package/SquotFSStoreSpy.class/instance/on..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -on: aFileSystemStore - watchedStore := aFileSystemStore. \ No newline at end of file diff --git a/src/Squot.package/SquotFSStoreSpy.class/instance/recordDelete..st b/src/Squot.package/SquotFSStoreSpy.class/instance/recordDelete..st deleted file mode 100644 index c72b74165..000000000 --- a/src/Squot.package/SquotFSStoreSpy.class/instance/recordDelete..st +++ /dev/null @@ -1,3 +0,0 @@ -private -recordDelete: aPath - deletedFiles add: aPath. \ No newline at end of file diff --git a/src/Squot.package/SquotFSStoreSpy.class/instance/recordOpened.writable..st b/src/Squot.package/SquotFSStoreSpy.class/instance/recordOpened.writable..st deleted file mode 100644 index 27382d5e4..000000000 --- a/src/Squot.package/SquotFSStoreSpy.class/instance/recordOpened.writable..st +++ /dev/null @@ -1,7 +0,0 @@ -private -recordOpened: aPath writable: aBoolean - | access existingAccess | - access := aBoolean ifTrue: [#write] ifFalse: [#read]. - existingAccess := openedFiles at: aPath ifAbsentPut: [#read]. - (existingAccess == #write and: [access == #read]) ifTrue: [^ self]. - openedFiles at: aPath put: access. \ No newline at end of file diff --git a/src/Squot.package/SquotFSStoreSpy.class/instance/resetObservations.st b/src/Squot.package/SquotFSStoreSpy.class/instance/resetObservations.st deleted file mode 100644 index 7cb578e72..000000000 --- a/src/Squot.package/SquotFSStoreSpy.class/instance/resetObservations.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -resetObservations - self initialize. \ No newline at end of file diff --git a/src/Squot.package/SquotFSStoreSpy.class/instance/wasDeleted..st b/src/Squot.package/SquotFSStoreSpy.class/instance/wasDeleted..st deleted file mode 100644 index d6ed5cdfd..000000000 --- a/src/Squot.package/SquotFSStoreSpy.class/instance/wasDeleted..st +++ /dev/null @@ -1,6 +0,0 @@ -testing -wasDeleted: aResolvable - | path | - path := aResolvable asPathWith: watchedStore. - ^ deletedFiles includes: path - \ No newline at end of file diff --git a/src/Squot.package/SquotFSStoreSpy.class/instance/wasOpened..st b/src/Squot.package/SquotFSStoreSpy.class/instance/wasOpened..st deleted file mode 100644 index fd7796df3..000000000 --- a/src/Squot.package/SquotFSStoreSpy.class/instance/wasOpened..st +++ /dev/null @@ -1,6 +0,0 @@ -testing -wasOpened: aResolvable - | path | - path := aResolvable asPathWith: watchedStore. - ^ openedFiles includesKey: path - \ No newline at end of file diff --git a/src/Squot.package/SquotFSStoreSpy.class/methodProperties.json b/src/Squot.package/SquotFSStoreSpy.class/methodProperties.json deleted file mode 100644 index 14713de88..000000000 --- a/src/Squot.package/SquotFSStoreSpy.class/methodProperties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "class" : { - "on:" : "jr 5/28/2017 13:00" }, - "instance" : { - "basicOpen:writable:" : "jr 5/28/2017 13:04", - "delete:" : "jr 11/19/2021 21:28", - "doesNotUnderstand:" : "jr 5/28/2017 12:59", - "initialize" : "jr 11/19/2021 21:29", - "on:" : "jr 5/28/2017 13:01", - "recordDelete:" : "jr 11/19/2021 21:29", - "recordOpened:writable:" : "jr 5/28/2017 13:05", - "resetObservations" : "jr 11/19/2021 21:30", - "wasDeleted:" : "jr 11/19/2021 21:29", - "wasOpened:" : "jr 5/28/2017 13:09" } } diff --git a/src/Squot.package/SquotFSStoreSpy.class/properties.json b/src/Squot.package/SquotFSStoreSpy.class/properties.json deleted file mode 100644 index a4e41b841..000000000 --- a/src/Squot.package/SquotFSStoreSpy.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Tests-Files", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 5/28/2017 12:59", - "instvars" : [ - "watchedStore", - "openedFiles", - "deletedFiles" ], - "name" : "SquotFSStoreSpy", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotFakeToolSet.class/README.md b/src/Squot.package/SquotFakeToolSet.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotFakeToolSet.class/class/browse.selector..st b/src/Squot.package/SquotFakeToolSet.class/class/browse.selector..st deleted file mode 100644 index d4809bc02..000000000 --- a/src/Squot.package/SquotFakeToolSet.class/class/browse.selector..st +++ /dev/null @@ -1,3 +0,0 @@ -mocking -browse: aClass selector: aSymbol - self browsedMethods add: (MethodReference class: aClass selector: aSymbol). \ No newline at end of file diff --git a/src/Squot.package/SquotFakeToolSet.class/class/browsedMethods.st b/src/Squot.package/SquotFakeToolSet.class/class/browsedMethods.st deleted file mode 100644 index 3d6515d9c..000000000 --- a/src/Squot.package/SquotFakeToolSet.class/class/browsedMethods.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -browsedMethods - BrowsedMethods ifNil: [BrowsedMethods := Set new]. - ^ BrowsedMethods \ No newline at end of file diff --git a/src/Squot.package/SquotFakeToolSet.class/class/didBrowseMethod..st b/src/Squot.package/SquotFakeToolSet.class/class/didBrowseMethod..st deleted file mode 100644 index 2ee7b95bd..000000000 --- a/src/Squot.package/SquotFakeToolSet.class/class/didBrowseMethod..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -didBrowseMethod: aMethodReference - ^ self browsedMethods includes: aMethodReference \ No newline at end of file diff --git a/src/Squot.package/SquotFakeToolSet.class/class/installDuring..st b/src/Squot.package/SquotFakeToolSet.class/class/installDuring..st deleted file mode 100644 index f45c1b6fb..000000000 --- a/src/Squot.package/SquotFakeToolSet.class/class/installDuring..st +++ /dev/null @@ -1,11 +0,0 @@ -tests -installDuring: aBlock - | oldToolSet | - oldToolSet := ToolSet defaultOrNil. - ToolSet default: self. - [aBlock - on: UnhandledError, Halt do: - [:e | ToolSet default: oldToolSet. e pass]] - ensure: - [ToolSet default: oldToolSet; - unregister: self] \ No newline at end of file diff --git a/src/Squot.package/SquotFakeToolSet.class/class/reset.st b/src/Squot.package/SquotFakeToolSet.class/class/reset.st deleted file mode 100644 index f595a9802..000000000 --- a/src/Squot.package/SquotFakeToolSet.class/class/reset.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -reset - BrowsedMethods := nil. \ No newline at end of file diff --git a/src/Squot.package/SquotFakeToolSet.class/methodProperties.json b/src/Squot.package/SquotFakeToolSet.class/methodProperties.json deleted file mode 100644 index ee593f7ad..000000000 --- a/src/Squot.package/SquotFakeToolSet.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - "browse:selector:" : "jr 12/22/2019 22:48", - "browsedMethods" : "jr 12/22/2019 22:48", - "didBrowseMethod:" : "jr 12/22/2019 22:49", - "installDuring:" : "jr 12/22/2019 22:42", - "reset" : "jr 12/22/2019 22:49" }, - "instance" : { - } } diff --git a/src/Squot.package/SquotFakeToolSet.class/properties.json b/src/Squot.package/SquotFakeToolSet.class/properties.json deleted file mode 100644 index 9fa07142d..000000000 --- a/src/Squot.package/SquotFakeToolSet.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Tools-Packages", - "classinstvars" : [ - ], - "classvars" : [ - "BrowsedMethods" ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotFakeToolSet", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotFileArtifact.class/README.md b/src/Squot.package/SquotFileArtifact.class/README.md deleted file mode 100644 index 997b74ee5..000000000 --- a/src/Squot.package/SquotFileArtifact.class/README.md +++ /dev/null @@ -1,6 +0,0 @@ -I am an Artifact for a file that is not explicitly tracked by Squot. It could be a resource in the repository or metadata. - -Because I do not store the content but only keep a reference to the file, you must be careful when you work with me. My file's content might be changed by operations on a repository or working copy, or by other programs. - -Instance Variables - fileReference: \ No newline at end of file diff --git a/src/Squot.package/SquotFileArtifact.class/class/for..st b/src/Squot.package/SquotFileArtifact.class/class/for..st deleted file mode 100644 index e5cf2952d..000000000 --- a/src/Squot.package/SquotFileArtifact.class/class/for..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -for: aFileReference - ^ self new - fileReference: aFileReference; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotFileArtifact.class/instance/^equals.st b/src/Squot.package/SquotFileArtifact.class/instance/^equals.st deleted file mode 100644 index d57377acf..000000000 --- a/src/Squot.package/SquotFileArtifact.class/instance/^equals.st +++ /dev/null @@ -1,6 +0,0 @@ -comparing -= anotherObject - self species = anotherObject species - ifFalse: [^ super = anotherObject]. - ^ fileReference = anotherObject fileReference - \ No newline at end of file diff --git a/src/Squot.package/SquotFileArtifact.class/instance/content..st b/src/Squot.package/SquotFileArtifact.class/instance/content..st deleted file mode 100644 index 2a106f0cf..000000000 --- a/src/Squot.package/SquotFileArtifact.class/instance/content..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -content: anObject - self shouldNotImplement. - "maybe I should, but let's be sure of the use case first" \ No newline at end of file diff --git a/src/Squot.package/SquotFileArtifact.class/instance/content.st b/src/Squot.package/SquotFileArtifact.class/instance/content.st deleted file mode 100644 index a5048ce7b..000000000 --- a/src/Squot.package/SquotFileArtifact.class/instance/content.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -content - ^ fileReference readStreamDo: [:stream | stream contents] \ No newline at end of file diff --git a/src/Squot.package/SquotFileArtifact.class/instance/fileReference..st b/src/Squot.package/SquotFileArtifact.class/instance/fileReference..st deleted file mode 100644 index 37cb39c6b..000000000 --- a/src/Squot.package/SquotFileArtifact.class/instance/fileReference..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -fileReference: anObject - - fileReference := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotFileArtifact.class/instance/fileReference.st b/src/Squot.package/SquotFileArtifact.class/instance/fileReference.st deleted file mode 100644 index 6439b4bfe..000000000 --- a/src/Squot.package/SquotFileArtifact.class/instance/fileReference.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -fileReference - - ^ fileReference \ No newline at end of file diff --git a/src/Squot.package/SquotFileArtifact.class/instance/hash.st b/src/Squot.package/SquotFileArtifact.class/instance/hash.st deleted file mode 100644 index 76a10e96c..000000000 --- a/src/Squot.package/SquotFileArtifact.class/instance/hash.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -hash - ^ (fileReference hash hashMultiply bitXor: self species hash) hashMultiply \ No newline at end of file diff --git a/src/Squot.package/SquotFileArtifact.class/instance/isLoadable.st b/src/Squot.package/SquotFileArtifact.class/instance/isLoadable.st deleted file mode 100644 index 86d6ffa9c..000000000 --- a/src/Squot.package/SquotFileArtifact.class/instance/isLoadable.st +++ /dev/null @@ -1,3 +0,0 @@ -loading -isLoadable - ^ false "for now" \ No newline at end of file diff --git a/src/Squot.package/SquotFileArtifact.class/instance/materializeWith.replacing..st b/src/Squot.package/SquotFileArtifact.class/instance/materializeWith.replacing..st deleted file mode 100644 index 77fc1668f..000000000 --- a/src/Squot.package/SquotFileArtifact.class/instance/materializeWith.replacing..st +++ /dev/null @@ -1,6 +0,0 @@ -loading -materializeWith: imageStore replacing: anObject - "Answer myself as the object in the image." - self flag: 'Another possiblity would be to place the fileReference in the image'. - self assert: (anObject isNil or: [anObject species = self species]). - ^ self "do not invoke the store's loading facilities, we do not want to destroy snapshots etc." \ No newline at end of file diff --git a/src/Squot.package/SquotFileArtifact.class/instance/printOn..st b/src/Squot.package/SquotFileArtifact.class/instance/printOn..st deleted file mode 100644 index 7247ac5ad..000000000 --- a/src/Squot.package/SquotFileArtifact.class/instance/printOn..st +++ /dev/null @@ -1,6 +0,0 @@ -printing -printOn: aStream - super printOn: aStream. - aStream nextPut: $(; - print: fileReference; - nextPut: $). \ No newline at end of file diff --git a/src/Squot.package/SquotFileArtifact.class/instance/squotSummaryText.st b/src/Squot.package/SquotFileArtifact.class/instance/squotSummaryText.st deleted file mode 100644 index 9f07d413a..000000000 --- a/src/Squot.package/SquotFileArtifact.class/instance/squotSummaryText.st +++ /dev/null @@ -1,3 +0,0 @@ -tools -squotSummaryText - ^ self content \ No newline at end of file diff --git a/src/Squot.package/SquotFileArtifact.class/instance/storeWith..st b/src/Squot.package/SquotFileArtifact.class/instance/storeWith..st deleted file mode 100644 index 85dbf1f6a..000000000 --- a/src/Squot.package/SquotFileArtifact.class/instance/storeWith..st +++ /dev/null @@ -1,4 +0,0 @@ -serializing -storeWith: aStore - "double dispatch" - ^ aStore storeFile: self \ No newline at end of file diff --git a/src/Squot.package/SquotFileArtifact.class/instance/wantsToBeInTableOfContents.st b/src/Squot.package/SquotFileArtifact.class/instance/wantsToBeInTableOfContents.st deleted file mode 100644 index b67accbe9..000000000 --- a/src/Squot.package/SquotFileArtifact.class/instance/wantsToBeInTableOfContents.st +++ /dev/null @@ -1,4 +0,0 @@ -serializing -wantsToBeInTableOfContents - "Stray files are not in the table of contents, otherwise they would be ordinary Artifacts." - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotFileArtifact.class/instance/writeWith..st b/src/Squot.package/SquotFileArtifact.class/instance/writeWith..st deleted file mode 100644 index 8970d8f31..000000000 --- a/src/Squot.package/SquotFileArtifact.class/instance/writeWith..st +++ /dev/null @@ -1,4 +0,0 @@ -serializing -writeWith: aSerializer - "I already am a file, no need to serialize me again." - self shouldNotImplement \ No newline at end of file diff --git a/src/Squot.package/SquotFileArtifact.class/methodProperties.json b/src/Squot.package/SquotFileArtifact.class/methodProperties.json deleted file mode 100644 index 982b91f23..000000000 --- a/src/Squot.package/SquotFileArtifact.class/methodProperties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "class" : { - "for:" : "jr 1/31/2017 11:54" }, - "instance" : { - "=" : "jr 1/31/2017 14:14", - "content" : "jr 1/31/2017 11:56", - "content:" : "jr 1/31/2017 11:57", - "fileReference" : "jr 1/31/2017 11:55", - "fileReference:" : "jr 1/31/2017 11:55", - "hash" : "jr 3/7/2017 00:58", - "isLoadable" : "jr 3/8/2017 16:16", - "materializeWith:replacing:" : "jr 5/31/2017 16:37", - "printOn:" : "jr 1/31/2017 14:45", - "squotSummaryText" : "jr 11/17/2018 22:29", - "storeWith:" : "jr 1/31/2017 13:54", - "wantsToBeInTableOfContents" : "jr 1/31/2017 13:36", - "writeWith:" : "jr 1/31/2017 14:10" } } diff --git a/src/Squot.package/SquotFileArtifact.class/properties.json b/src/Squot.package/SquotFileArtifact.class/properties.json deleted file mode 100644 index dae46b29c..000000000 --- a/src/Squot.package/SquotFileArtifact.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-FileSystemStore", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 19:21", - "instvars" : [ - "fileReference" ], - "name" : "SquotFileArtifact", - "pools" : [ - ], - "super" : "SquotArtifact", - "type" : "normal" } diff --git a/src/Squot.package/SquotFileSearchForArtifacts.class/README.md b/src/Squot.package/SquotFileSearchForArtifacts.class/README.md deleted file mode 100644 index 0f8f746aa..000000000 --- a/src/Squot.package/SquotFileSearchForArtifacts.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I search a file system tree for Squot artifacts. My SquotArtifactLocator companions detect for me whether a directory or file could have been a Smalltalk object. This is necessary when a repository is inspected that does not have the Squot metadata files, such as a table of contents. So the objects must be discovered in the file tree. \ No newline at end of file diff --git a/src/Squot.package/SquotFileSearchForArtifacts.class/instance/addArtifact..st b/src/Squot.package/SquotFileSearchForArtifacts.class/instance/addArtifact..st deleted file mode 100644 index 810f82777..000000000 --- a/src/Squot.package/SquotFileSearchForArtifacts.class/instance/addArtifact..st +++ /dev/null @@ -1,4 +0,0 @@ -directing -addArtifact: anArtifact - artifactsFound add: anArtifact. - ^ anArtifact \ No newline at end of file diff --git a/src/Squot.package/SquotFileSearchForArtifacts.class/instance/artifactsFound.st b/src/Squot.package/SquotFileSearchForArtifacts.class/instance/artifactsFound.st deleted file mode 100644 index e4fa4e152..000000000 --- a/src/Squot.package/SquotFileSearchForArtifacts.class/instance/artifactsFound.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -artifactsFound - ^ artifactsFound \ No newline at end of file diff --git a/src/Squot.package/SquotFileSearchForArtifacts.class/instance/initialize.st b/src/Squot.package/SquotFileSearchForArtifacts.class/instance/initialize.st deleted file mode 100644 index a622d9321..000000000 --- a/src/Squot.package/SquotFileSearchForArtifacts.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initialize - searchFrontier := OrderedCollection new. "reference -> clients" - artifactsFound := OrderedCollection new. \ No newline at end of file diff --git a/src/Squot.package/SquotFileSearchForArtifacts.class/instance/runSearch.st b/src/Squot.package/SquotFileSearchForArtifacts.class/instance/runSearch.st deleted file mode 100644 index bbf2912bd..000000000 --- a/src/Squot.package/SquotFileSearchForArtifacts.class/instance/runSearch.st +++ /dev/null @@ -1,4 +0,0 @@ -searching -runSearch - [searchFrontier notEmpty] whileTrue: - [self searchNext]. \ No newline at end of file diff --git a/src/Squot.package/SquotFileSearchForArtifacts.class/instance/searchNext.st b/src/Squot.package/SquotFileSearchForArtifacts.class/instance/searchNext.st deleted file mode 100644 index ce22b1afb..000000000 --- a/src/Squot.package/SquotFileSearchForArtifacts.class/instance/searchNext.st +++ /dev/null @@ -1,7 +0,0 @@ -searching -searchNext - | association fileOrDirectory locators | - association := searchFrontier removeFirst. - fileOrDirectory := association key. - locators := association value. - locators do: [:each | each detectArtifactsIn: fileOrDirectory search: self]. \ No newline at end of file diff --git a/src/Squot.package/SquotFileSearchForArtifacts.class/instance/visit.with..st b/src/Squot.package/SquotFileSearchForArtifacts.class/instance/visit.with..st deleted file mode 100644 index fe3c142b5..000000000 --- a/src/Squot.package/SquotFileSearchForArtifacts.class/instance/visit.with..st +++ /dev/null @@ -1,6 +0,0 @@ -directing -visit: aFileOrDirectory with: anArtifactLocator - (searchFrontier - detect: [:each | each key = aFileOrDirectory] - ifNone: [searchFrontier addLast: aFileOrDirectory -> OrderedCollection new]) - value add: anArtifactLocator. \ No newline at end of file diff --git a/src/Squot.package/SquotFileSearchForArtifacts.class/instance/visitSubdirectories.with..st b/src/Squot.package/SquotFileSearchForArtifacts.class/instance/visitSubdirectories.with..st deleted file mode 100644 index dc28c3408..000000000 --- a/src/Squot.package/SquotFileSearchForArtifacts.class/instance/visitSubdirectories.with..st +++ /dev/null @@ -1,5 +0,0 @@ -directing -visitSubdirectories: aFileOrDirectory with: anArtifactLocator - aFileOrDirectory entries - select: [:each | each isDirectory] - thenDo: [:each | self visit: each reference with: anArtifactLocator]. \ No newline at end of file diff --git a/src/Squot.package/SquotFileSearchForArtifacts.class/methodProperties.json b/src/Squot.package/SquotFileSearchForArtifacts.class/methodProperties.json deleted file mode 100644 index ffcf1ff2e..000000000 --- a/src/Squot.package/SquotFileSearchForArtifacts.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "addArtifact:" : "jr 3/10/2019 21:04", - "artifactsFound" : "jr 3/10/2019 21:24", - "initialize" : "jr 3/10/2019 21:05", - "runSearch" : "jr 3/10/2019 20:48", - "searchNext" : "jr 3/10/2019 20:51", - "visit:with:" : "jr 3/10/2019 21:21", - "visitSubdirectories:with:" : "jr 3/10/2019 21:24" } } diff --git a/src/Squot.package/SquotFileSearchForArtifacts.class/properties.json b/src/Squot.package/SquotFileSearchForArtifacts.class/properties.json deleted file mode 100644 index e76b598a1..000000000 --- a/src/Squot.package/SquotFileSearchForArtifacts.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-FileSystemStore", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 20:36", - "instvars" : [ - "searchFrontier", - "artifactsFound" ], - "name" : "SquotFileSearchForArtifacts", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotFileStoreArtifactGuessingTest.class/README.md b/src/Squot.package/SquotFileStoreArtifactGuessingTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotFileStoreArtifactGuessingTest.class/instance/setUp.st b/src/Squot.package/SquotFileStoreArtifactGuessingTest.class/instance/setUp.st deleted file mode 100644 index 6d301de9d..000000000 --- a/src/Squot.package/SquotFileStoreArtifactGuessingTest.class/instance/setUp.st +++ /dev/null @@ -1,3 +0,0 @@ -running -setUp - fileStore := SquotFileSystemStore inDirectory: FileSystem memory root. \ No newline at end of file diff --git a/src/Squot.package/SquotFileStoreArtifactGuessingTest.class/instance/testFindCypressPackage.st b/src/Squot.package/SquotFileStoreArtifactGuessingTest.class/instance/testFindCypressPackage.st deleted file mode 100644 index 519c59c0d..000000000 --- a/src/Squot.package/SquotFileStoreArtifactGuessingTest.class/instance/testFindCypressPackage.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testFindCypressPackage - | packageDir snapshot | - packageDir := fileStore directory / 'src' / 'Test.package'. - packageDir ensureDirectory. - (packageDir / '.filetree') ensureFile. - self assert: ((snapshot := fileStore captureLazySnapshot) - includesObjectAt: 'src/Test.package'); - assert: SquotCypressCodeSerializer name - equals: ((snapshot artifactAt: 'src/Test.package') storeInfo serializer); - assert: ((snapshot artifactAt: 'src/Test.package') content startShadow respondsTo: #packageName) - description: 'not a SquotPackageShadow'. \ No newline at end of file diff --git a/src/Squot.package/SquotFileStoreArtifactGuessingTest.class/instance/testRestoresMissingTableOfContents.st b/src/Squot.package/SquotFileStoreArtifactGuessingTest.class/instance/testRestoresMissingTableOfContents.st deleted file mode 100644 index fe5bc010a..000000000 --- a/src/Squot.package/SquotFileStoreArtifactGuessingTest.class/instance/testRestoresMissingTableOfContents.st +++ /dev/null @@ -1,18 +0,0 @@ -tests -testRestoresMissingTableOfContents - | packageArtifact | - packageArtifact := (MCSnapshot fromDefinitions: {MCPostscriptDefinition script: '' packageName: 'A'}) asSquotArtifactForPackage: (PackageInfo new packageName: 'A'; yourself). - fileStore doStoreMetadata. - fileStore add: packageArtifact. - self assert: fileStore tableOfContents exists. - "when" - fileStore tableOfContents delete. - self shouldnt: - [fileStore removeAt: packageArtifact path. - fileStore add: packageArtifact. - fileStore tableOfContents delete. - fileStore add: (MCSnapshot empty asSquotArtifactForPackage: (PackageInfo new packageName: 'B'; yourself))] - raise: Error. - "then" - self assert: fileStore tableOfContents exists; - assert: (fileStore artifactAt: packageArtifact path ifAbsent: []) notNil. \ No newline at end of file diff --git a/src/Squot.package/SquotFileStoreArtifactGuessingTest.class/methodProperties.json b/src/Squot.package/SquotFileStoreArtifactGuessingTest.class/methodProperties.json deleted file mode 100644 index 1df9f27e8..000000000 --- a/src/Squot.package/SquotFileStoreArtifactGuessingTest.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "setUp" : "jr 12/9/2018 17:01", - "testFindCypressPackage" : "jr 4/7/2019 21:39", - "testRestoresMissingTableOfContents" : "jr 9/1/2020 00:11" } } diff --git a/src/Squot.package/SquotFileStoreArtifactGuessingTest.class/properties.json b/src/Squot.package/SquotFileStoreArtifactGuessingTest.class/properties.json deleted file mode 100644 index b034dd933..000000000 --- a/src/Squot.package/SquotFileStoreArtifactGuessingTest.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Tests-Files", - "classinstvars" : [ - ], - "classtraitcomposition" : "TTestCaseSuppressingProgressDisplay classTrait", - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "fileStore" ], - "name" : "SquotFileStoreArtifactGuessingTest", - "pools" : [ - ], - "super" : "TestCase", - "traitcomposition" : "TTestCaseSuppressingProgressDisplay", - "type" : "normal" } diff --git a/src/Squot.package/SquotFileStoreTest.class/README.md b/src/Squot.package/SquotFileStoreTest.class/README.md deleted file mode 100644 index 3a719caab..000000000 --- a/src/Squot.package/SquotFileStoreTest.class/README.md +++ /dev/null @@ -1,3 +0,0 @@ -I test how SquotFileSystemStore updates a FileSystem. - -Instance Variables diff --git a/src/Squot.package/SquotFileStoreTest.class/instance/assertTableOfContentsExists.st b/src/Squot.package/SquotFileStoreTest.class/instance/assertTableOfContentsExists.st deleted file mode 100644 index dbfb49d72..000000000 --- a/src/Squot.package/SquotFileStoreTest.class/instance/assertTableOfContentsExists.st +++ /dev/null @@ -1,3 +0,0 @@ -utilities -assertTableOfContentsExists - self assert: (fileStore directory / '.squot') isFile description: 'table of contents not found'. \ No newline at end of file diff --git a/src/Squot.package/SquotFileStoreTest.class/instance/setUp.st b/src/Squot.package/SquotFileStoreTest.class/instance/setUp.st deleted file mode 100644 index 6d301de9d..000000000 --- a/src/Squot.package/SquotFileStoreTest.class/instance/setUp.st +++ /dev/null @@ -1,3 +0,0 @@ -running -setUp - fileStore := SquotFileSystemStore inDirectory: FileSystem memory root. \ No newline at end of file diff --git a/src/Squot.package/SquotFileStoreTest.class/instance/tearDown.st b/src/Squot.package/SquotFileStoreTest.class/instance/tearDown.st deleted file mode 100644 index 0408fc3fd..000000000 --- a/src/Squot.package/SquotFileStoreTest.class/instance/tearDown.st +++ /dev/null @@ -1,3 +0,0 @@ -running -tearDown - fileStore := nil. \ No newline at end of file diff --git a/src/Squot.package/SquotFileStoreTest.class/instance/testAddedArtifactsNotReadUntilLoaded.st b/src/Squot.package/SquotFileStoreTest.class/instance/testAddedArtifactsNotReadUntilLoaded.st deleted file mode 100644 index fb7c4dadf..000000000 --- a/src/Squot.package/SquotFileStoreTest.class/instance/testAddedArtifactsNotReadUntilLoaded.st +++ /dev/null @@ -1,19 +0,0 @@ -tests -testAddedArtifactsNotReadUntilLoaded - | workingCopy patch | - "given" - fileStore add: (SquotImageStore new - add: (ValueHolder new contents: #old; yourself) at: 'object'; - artifactAt: 'object'). - self assert: (fileStore directory / 'object') exists. - "when" - workingCopy := SquotWorkingCopy forTestInMemory. - patch := fileStore patchRelativeToBase: workingCopy. - "then the object file should not have been read yet" - fileStore - removeAt: 'object'; - add: (SquotImageStore new - add: (ValueHolder new contents: #new; yourself) at: 'object'; - artifactAt: 'object'). - workingCopy applyPatch: patch. - self assert: #new equals: (workingCopy objectAt: 'object') contents. \ No newline at end of file diff --git a/src/Squot.package/SquotFileStoreTest.class/instance/testByteArrayAsBinaryFile.st b/src/Squot.package/SquotFileStoreTest.class/instance/testByteArrayAsBinaryFile.st deleted file mode 100644 index 8524e03e2..000000000 --- a/src/Squot.package/SquotFileStoreTest.class/instance/testByteArrayAsBinaryFile.st +++ /dev/null @@ -1,20 +0,0 @@ -tests -testByteArrayAsBinaryFile - | bytes filename artifactReference | - bytes := #[0 0 0 0 1 2 3 4]. - filename := 'stuff.dat'. - fileStore add: (SquotArtifact new - content: (SquotShadowGraph withSingleShadow: - (SquotBitsObjectShadow for: bytes)); - path: filename; - initializeDefaultStoreInfoFor: bytes; - yourself). - artifactReference := fileStore directory resolve: filename. - self assert: artifactReference exists description: 'file not found'. - "self assert: bytes equals: (artifactReference readStreamDo: [:s | s binary contents])." - self assert: (artifactReference parent / '.stuff.dat.squot-contents') isFile - description: 'metadata file not found'. - self assertTableOfContentsExists. - self assert: bytes - equals: (fileStore artifactAt: filename) shadowOfTrackedObject value - description: 'bytes not restored correctly'. \ No newline at end of file diff --git a/src/Squot.package/SquotFileStoreTest.class/instance/testCypressCode.st b/src/Squot.package/SquotFileStoreTest.class/instance/testCypressCode.st deleted file mode 100644 index 35fdc4783..000000000 --- a/src/Squot.package/SquotFileStoreTest.class/instance/testCypressCode.st +++ /dev/null @@ -1,20 +0,0 @@ -tests -testCypressCode - | sampleMethod sampleClass samplePackage definitions methodFile | - sampleMethod := self class >> self selector. - sampleClass := sampleMethod methodClass. - samplePackage := sampleClass package. - definitions := {sampleClass asClassDefinition. - sampleMethod methodReference asMethodDefinition}. - fileStore add: (((MCSnapshot fromDefinitions: definitions) - asSquotArtifactForPackage: samplePackage) - path: 'src/', samplePackage name, '.package'; - initializeDefaultStoreInfoFor: samplePackage; - yourself). - methodFile := fileStore directory - resolve: 'src/', samplePackage name, '.package/', - sampleClass name, '.class/instance/', sampleMethod selector, '.st'. - self assert: methodFile exists description: 'method not found'. - self assert: ((fileStore artifactAt: 'src/', samplePackage name, '.package') - packageArtifactDefinitions includesAllOf: definitions) - description: 'class or method not read correctly'. \ No newline at end of file diff --git a/src/Squot.package/SquotFileStoreTest.class/instance/testDeleteArtifact.st b/src/Squot.package/SquotFileStoreTest.class/instance/testDeleteArtifact.st deleted file mode 100644 index a702af141..000000000 --- a/src/Squot.package/SquotFileStoreTest.class/instance/testDeleteArtifact.st +++ /dev/null @@ -1,18 +0,0 @@ -tests -testDeleteArtifact - | object snapshotWithArtifact snapshotWithoutArtifact artifactReference | - snapshotWithArtifact := SquotSnapshot builder - add: (SquotArtifact new - content: (SquotShadowGraph - withSingleShadow: (object := 1 @ 2) captureWithSquot); - path: 'aPoint'; - initializeDefaultStoreInfoFor: object; - yourself); - buildSnapshot. - fileStore restoreToSnapshot: snapshotWithArtifact. - artifactReference := fileStore directory resolve: 'aPoint'. - self assert: artifactReference exists description: 'artifacts should exist'. - snapshotWithoutArtifact := SquotSnapshot builder - buildSnapshot. - fileStore restoreToSnapshot: snapshotWithoutArtifact. - self deny: artifactReference exists description: 'artifact should not exist'. \ No newline at end of file diff --git a/src/Squot.package/SquotFileStoreTest.class/instance/testDeleteMethod.st b/src/Squot.package/SquotFileStoreTest.class/instance/testDeleteMethod.st deleted file mode 100644 index f6fac0ed7..000000000 --- a/src/Squot.package/SquotFileStoreTest.class/instance/testDeleteMethod.st +++ /dev/null @@ -1,27 +0,0 @@ -tests -testDeleteMethod - | sampleMethod sampleClass snapshotWithMethod snapshotWithoutMethod methodFile | - sampleMethod := self class >> self selector. - sampleClass := sampleMethod methodClass. - snapshotWithMethod := SquotSnapshot builder - add: (((MCSnapshot - fromDefinitions: {sampleClass asClassDefinition. - sampleMethod methodReference asMethodDefinition}) - asSquotArtifactForPackage: sampleClass package) - path: 'src/', sampleClass package name, '.package'; - initializeDefaultStoreInfoFor: sampleClass package; - yourself); - buildSnapshot. - fileStore restoreToSnapshot: snapshotWithMethod. - methodFile := fileStore directory - resolve: 'src/', sampleClass package name, '.package/', - sampleClass name, '.class/instance/', sampleMethod selector, '.st'. - self assert: methodFile exists description: 'method file not created by restoreToSnapshot'. - snapshotWithoutMethod := SquotSnapshot builder - add: (snapshotWithMethod artifacts anyOne copyWithDifferentContent: - ((MCSnapshot - fromDefinitions: {sampleClass asClassDefinition}) - asSquotArtifactForPackage: sampleClass package) content); - buildSnapshot. - fileStore restoreToSnapshot: snapshotWithoutMethod. - self deny: methodFile exists description: 'method should not exist'. \ No newline at end of file diff --git a/src/Squot.package/SquotFileStoreTest.class/instance/testLazySnapshot.st b/src/Squot.package/SquotFileStoreTest.class/instance/testLazySnapshot.st deleted file mode 100644 index 471a1bc81..000000000 --- a/src/Squot.package/SquotFileStoreTest.class/instance/testLazySnapshot.st +++ /dev/null @@ -1,23 +0,0 @@ -tests -testLazySnapshot - | textFile hollowArtifact hollowSnapshot lazySnapshot lazyArtifact spyingFs watchedTextFile watchedStore | - "given a tracked text" - textFile := fileStore directory / 'aText.txt'. - textFile writeStreamDo: [:stream | stream nextPutAll: 'Hello world']. - hollowArtifact := SquotArtifact new path: (SquotPath fromReference: textFile); yourself. - hollowArtifact storeInfo at: #serializer put: SquotTextFileCodec name. - hollowSnapshot := SquotSnapshot builder add: hollowArtifact; buildSnapshot. - fileStore tableOfContents add: hollowArtifact; fileOut. - fileStore storeSquotMetadataFor: hollowArtifact. - "when" - spyingFs := FileSystem store: (SquotFSStoreSpy on: textFile fileSystem store). - watchedStore := SquotFileSystemStore inDirectory: (spyingFs referenceTo: fileStore directory). - lazySnapshot := watchedStore captureLazySnapshot. - "then do not read the text file" - lazyArtifact := lazySnapshot artifactAt: 'aText.txt'. - self assert: 'aText.txt' equals: lazyArtifact path. "access the path" - watchedTextFile := spyingFs referenceTo: textFile path. - self deny: (spyingFs store wasOpened: watchedTextFile). - "until the content of the artifact is accessed" - self assert: 'Hello world' equals: (SquotImageStore new restoreObjectFrom: lazyArtifact). - self assert: (spyingFs store wasOpened: watchedTextFile). \ No newline at end of file diff --git a/src/Squot.package/SquotFileStoreTest.class/instance/testLoadOrderIsPreserved.st b/src/Squot.package/SquotFileStoreTest.class/instance/testLoadOrderIsPreserved.st deleted file mode 100644 index dfe3f50f6..000000000 --- a/src/Squot.package/SquotFileStoreTest.class/instance/testLoadOrderIsPreserved.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testLoadOrderIsPreserved - | snapshot | - snapshot := SquotTestSnapshots snapshotWithChangedLoadOrder. - "when" - fileStore restoreToSnapshot: snapshot. - "then" - "have to cut away the pseudo-artifact for untracked files" - self assert: (fileStore captureLazySnapshot loadOrder first: snapshot loadOrder size) asArray = snapshot loadOrder asArray. \ No newline at end of file diff --git a/src/Squot.package/SquotFileStoreTest.class/instance/testMetadataModification.st b/src/Squot.package/SquotFileStoreTest.class/instance/testMetadataModification.st deleted file mode 100644 index f2c3f64fd..000000000 --- a/src/Squot.package/SquotFileStoreTest.class/instance/testMetadataModification.st +++ /dev/null @@ -1,23 +0,0 @@ -tests -testMetadataModification - | metadata changed diff | - metadata := SquotTrackedObjectMetadata new. - metadata - at: #dummy put: {1}; - at: #toBeRemoved put: 'yes'; - serializer: SquotStonFileCodec. - fileStore add: (SquotArtifact new - path: 'example'; - content: (SquotShadowGraph new startShadow: true captureWithSquot); - storeInfo: metadata; - yourself). - changed := (fileStore artifactAt: 'example') snapshot copy. - changed storeInfo - at: #dummy put: {2}; - removeKey: #toBeRemoved. - "when" - diff := (fileStore artifactAt: 'example') diffAgainst: changed. - fileStore applyDiff: diff toObjectAt: 'example'. - "then" - self assert: {2} equals: ((fileStore artifactAt: 'example') storeInfo at: #dummy); - deny: ((fileStore artifactAt: 'example') storeInfo includesKey: #toBeRemoved). \ No newline at end of file diff --git a/src/Squot.package/SquotFileStoreTest.class/instance/testPatchDeleteArtifact.st b/src/Squot.package/SquotFileStoreTest.class/instance/testPatchDeleteArtifact.st deleted file mode 100644 index bbaf69a4e..000000000 --- a/src/Squot.package/SquotFileStoreTest.class/instance/testPatchDeleteArtifact.st +++ /dev/null @@ -1,18 +0,0 @@ -tests -testPatchDeleteArtifact - | object snapshotWithArtifact snapshotWithoutArtifact artifactReference metadata patch | - snapshotWithArtifact := SquotSnapshot builder - add: (SquotImageStore new - add: (object := 'a string') at: 'aString.txt'; - artifactAt: 'aString.txt'); - buildSnapshot. - fileStore restoreToSnapshot: snapshotWithArtifact. - artifactReference := fileStore directory resolve: 'aString.txt'. - self assert: artifactReference exists description: 'artifacts should exist'. - self assert: (metadata := fileStore metadataForObjectAt: artifactReference) isPresent - description: 'metadata should exist'. - snapshotWithoutArtifact := SquotSnapshot builder buildSnapshot. - patch := snapshotWithoutArtifact patchRelativeToBase: snapshotWithArtifact. - fileStore applyPatch: patch. - self deny: artifactReference exists description: 'artifact should not exist'. - self deny: metadata isPresent description: 'metadata should no longer exist'. \ No newline at end of file diff --git a/src/Squot.package/SquotFileStoreTest.class/instance/testPatchDeleteFolderArtifact.st b/src/Squot.package/SquotFileStoreTest.class/instance/testPatchDeleteFolderArtifact.st deleted file mode 100644 index d84f3bf14..000000000 --- a/src/Squot.package/SquotFileStoreTest.class/instance/testPatchDeleteFolderArtifact.st +++ /dev/null @@ -1,18 +0,0 @@ -tests -testPatchDeleteFolderArtifact - | object snapshotWithArtifact snapshotWithoutArtifact artifactReference metadata patch | - object := PackageInfo new packageName: 'Foo'. - snapshotWithArtifact := SquotSnapshot builder - add: ((MCSnapshot fromDefinitions: {MCClassDefinition name: #Foo superclassName: #Object category: 'Foo' instVarNames: #() comment: ''}) - asSquotArtifactForPackage: object); - buildSnapshot. - fileStore restoreToSnapshot: snapshotWithArtifact. - artifactReference := fileStore directory resolve: 'Foo.package'. - self assert: artifactReference exists description: 'artifacts should exist'. - self assert: (metadata := fileStore metadataForObjectAt: artifactReference) isPresent - description: 'metadata should exist'. - snapshotWithoutArtifact := SquotSnapshot builder buildSnapshot. - patch := snapshotWithoutArtifact patchRelativeToBase: snapshotWithArtifact. - fileStore applyPatch: patch. - self deny: artifactReference exists description: 'artifact should not exist'. - self deny: metadata isPresent description: 'metadata should no longer exist'. \ No newline at end of file diff --git a/src/Squot.package/SquotFileStoreTest.class/instance/testPatchDeleteMethod.st b/src/Squot.package/SquotFileStoreTest.class/instance/testPatchDeleteMethod.st deleted file mode 100644 index 05cdefc6e..000000000 --- a/src/Squot.package/SquotFileStoreTest.class/instance/testPatchDeleteMethod.st +++ /dev/null @@ -1,23 +0,0 @@ -tests -testPatchDeleteMethod - | sampleClass snapshotWithMethod snapshotWithoutMethod methodFile patch | - sampleClass := self class. - snapshotWithMethod := SquotSnapshot builder - add: ((MCSnapshot - fromDefinitions: {sampleClass asClassDefinition. - (sampleClass >> self selector) methodReference asMethodDefinition}) - asSquotArtifactForPackage: sampleClass package); - buildSnapshot. - fileStore restoreToSnapshot: snapshotWithMethod. - methodFile := fileStore directory - resolve: sampleClass package name, '.package/', - sampleClass name, '.class/instance/', self selector, '.st'. - self assert: methodFile exists description: 'method exists'. - snapshotWithoutMethod := SquotSnapshot builder - add: ((MCSnapshot - fromDefinitions: {sampleClass asClassDefinition}) - asSquotArtifactForPackage: sampleClass package); - buildSnapshot. - patch := snapshotWithoutMethod patchRelativeToBase: snapshotWithMethod. - fileStore applyPatch: patch. - self deny: methodFile exists description: 'method should not exist'. \ No newline at end of file diff --git a/src/Squot.package/SquotFileStoreTest.class/instance/testPatchFileTreeWithoutMetadata.st b/src/Squot.package/SquotFileStoreTest.class/instance/testPatchFileTreeWithoutMetadata.st deleted file mode 100644 index d9af4ce86..000000000 --- a/src/Squot.package/SquotFileStoreTest.class/instance/testPatchFileTreeWithoutMetadata.st +++ /dev/null @@ -1,32 +0,0 @@ -tests -testPatchFileTreeWithoutMetadata - | object originalSnapshot patchedSnapshot artifactReference metadata patch | - "given a file tree with artifacts but without metadata" - originalSnapshot := SquotSnapshot builder - add: (SquotImageStore new - add: (object := 'a string' copy) at: 'aString.txt'; - artifactAt: 'aString.txt'); - buildSnapshot. - fileStore - doNotStoreMetadata; - restoreToSnapshot: originalSnapshot. - artifactReference := fileStore directory resolve: 'aString.txt'. - self assert: artifactReference exists description: 'artifacts should exist'. - self deny: (metadata := fileStore metadataForObjectAt: artifactReference) isPresent - description: 'metadata should not exist'. - self deny: fileStore tableOfContentsReference exists description: 'table of contents should not exist'. - "when applying a patch" - patchedSnapshot := SquotSnapshot builder - add: (SquotImageStore new - add: (originalSnapshot artifactAt: 'aString.txt'); - in: [:store | (store objectAt: 'aString.txt') become: 'another string' copy]; - artifactAt: 'aString.txt'); - buildSnapshot. - patch := patchedSnapshot patchRelativeToBase: originalSnapshot. - fileStore - doStoreMetadata; - applyPatch: patch. - "then the metadata was written properly" - self assert: artifactReference exists description: 'artifact should still exist'; - assert: metadata isPresent description: 'metadata should now exist'; - assert: fileStore tableOfContentsReference exists description: 'table of contents exists'. \ No newline at end of file diff --git a/src/Squot.package/SquotFileStoreTest.class/instance/testPatchingPreservesId.st b/src/Squot.package/SquotFileStoreTest.class/instance/testPatchingPreservesId.st deleted file mode 100644 index f7f1c3c2e..000000000 --- a/src/Squot.package/SquotFileStoreTest.class/instance/testPatchingPreservesId.st +++ /dev/null @@ -1,20 +0,0 @@ -tests -testPatchingPreservesId - | metadata changed diff originalId | - metadata := SquotTrackedObjectMetadata new. - metadata at: #dummy put: 1. - fileStore add: (SquotArtifact new - path: 'example'; - content: (SquotShadowGraph new startShadow: true captureWithSquot); - storeInfo: metadata; - yourself). - originalId := (fileStore artifactAt: 'example') id. - self assert: originalId notNil. - changed := (fileStore artifactAt: 'example') snapshot copy. - changed id: UUID new. - changed storeInfo at: #dummy put: 2. - "when" - diff := (fileStore artifactAt: 'example') diffAgainst: changed. - fileStore applyDiff: diff toObjectAt: 'example'. - "then" - self assert: originalId equals: (fileStore artifactAt: 'example') id. \ No newline at end of file diff --git a/src/Squot.package/SquotFileStoreTest.class/instance/testReadArtifactWithoutMetadata.st b/src/Squot.package/SquotFileStoreTest.class/instance/testReadArtifactWithoutMetadata.st deleted file mode 100644 index a18d364db..000000000 --- a/src/Squot.package/SquotFileStoreTest.class/instance/testReadArtifactWithoutMetadata.st +++ /dev/null @@ -1,23 +0,0 @@ -tests -testReadArtifactWithoutMetadata - | object originalSnapshot artifact metadataFile readSnapshot artifactReference metadata | - "given a file tree with artifacts but without their metadata" - originalSnapshot := (SquotImageStore new - add: (object := TestCase packageInfo) at: 'src/SUnit.package'; - captureSnapshot). - artifact := originalSnapshot artifacts anyOne. - fileStore restoreToSnapshot: originalSnapshot. - self assert: (metadataFile := (fileStore metadataFor: artifact) metadataFile) isFile - description: 'metadata should have been written initially'. - metadataFile delete. - artifactReference := fileStore directory resolve: artifact path. - self assert: artifactReference exists description: 'artifacts should exist'; - deny: (metadata := fileStore metadataForObjectAt: artifactReference) isPresent - description: 'metadata should not exist'; - assert: fileStore tableOfContentsReference exists - description: 'table of contents should exist'. - "when reading the snapshot" - readSnapshot := fileStore captureLazySnapshot. - "then the artifact is accessible" - self assert: artifact shadowOfTrackedObject undecorated - equals: (readSnapshot artifactAt: artifact path) shadowOfTrackedObject. \ No newline at end of file diff --git a/src/Squot.package/SquotFileStoreTest.class/instance/testStringAsTextfile.st b/src/Squot.package/SquotFileStoreTest.class/instance/testStringAsTextfile.st deleted file mode 100644 index dc657cc92..000000000 --- a/src/Squot.package/SquotFileStoreTest.class/instance/testStringAsTextfile.st +++ /dev/null @@ -1,18 +0,0 @@ -tests -testStringAsTextfile - | artifactReference | - fileStore add: (SquotArtifact new - content: (SquotShadowGraph withSingleShadow: - (SquotBitsObjectShadow for: 'This is a test')); - path: 'README.md'; - initializeDefaultStoreInfoFor: 'This is a test'; - yourself). - artifactReference := fileStore directory resolve: 'README.md'. - self assert: artifactReference exists description: 'text file not found'. - self assert: 'This is a test' equals: (artifactReference readStreamDo: [:s | s text contents]). - self assert: (artifactReference parent / '.README.md.squot-contents') isFile - description: 'metadata file not found'. - self assertTableOfContentsExists. - self assert: 'This is a test' - equals: (fileStore artifactAt: 'README.md') shadowOfTrackedObject value - description: 'String not restored correctly'. \ No newline at end of file diff --git a/src/Squot.package/SquotFileStoreTest.class/instance/testStringDefaultEncoding.st b/src/Squot.package/SquotFileStoreTest.class/instance/testStringDefaultEncoding.st deleted file mode 100644 index 904144c01..000000000 --- a/src/Squot.package/SquotFileStoreTest.class/instance/testStringDefaultEncoding.st +++ /dev/null @@ -1,17 +0,0 @@ -tests -testStringDefaultEncoding - | filename string artifactReference | - string := 'äöü'. - filename := 'umlauts.txt'. - fileStore add: (SquotArtifact new - content: (SquotShadowGraph withSingleShadow: - (SquotBitsObjectShadow for: string)); - path: filename; - initializeDefaultStoreInfoFor: string; - yourself). - artifactReference := fileStore directory resolve: filename. - self assert: artifactReference exists description: 'text file not found'. - self assert: string equals: (artifactReference readStreamDo: [:s | s text contents]). - self assert: string squeakToUtf8 asByteArray - equals: (artifactReference readStreamDo: [:s | s binary contents]) - description: 'file not utf-8 encoded'. \ No newline at end of file diff --git a/src/Squot.package/SquotFileStoreTest.class/methodProperties.json b/src/Squot.package/SquotFileStoreTest.class/methodProperties.json deleted file mode 100644 index 61bf13a35..000000000 --- a/src/Squot.package/SquotFileStoreTest.class/methodProperties.json +++ /dev/null @@ -1,23 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "assertTableOfContentsExists" : "jr 8/17/2017 19:25", - "setUp" : "jr 3/2/2017 17:39", - "tearDown" : "jr 2/9/2017 11:51", - "testAddedArtifactsNotReadUntilLoaded" : "jr 11/22/2020 20:47", - "testByteArrayAsBinaryFile" : "jr 8/17/2017 19:29", - "testCypressCode" : "jr 12/3/2019 00:07", - "testDeleteArtifact" : "jr 9/20/2017 21:11", - "testDeleteMethod" : "jr 12/3/2019 00:08", - "testLazySnapshot" : "jr 10/3/2017 00:36", - "testLoadOrderIsPreserved" : "jr 8/18/2018 18:17", - "testMetadataModification" : "jr 7/30/2021 20:17", - "testPatchDeleteArtifact" : "jr 7/22/2017 02:25", - "testPatchDeleteFolderArtifact" : "jr 7/22/2017 02:29", - "testPatchDeleteMethod" : "jr 7/22/2017 01:33", - "testPatchFileTreeWithoutMetadata" : "jr 12/14/2020 22:40", - "testPatchingPreservesId" : "jr 2/20/2022 21:01", - "testReadArtifactWithoutMetadata" : "jr 12/8/2019 16:14", - "testStringAsTextfile" : "jr 8/17/2017 19:25", - "testStringDefaultEncoding" : "jr 8/18/2017 12:41" } } diff --git a/src/Squot.package/SquotFileStoreTest.class/properties.json b/src/Squot.package/SquotFileStoreTest.class/properties.json deleted file mode 100644 index 0f2552b20..000000000 --- a/src/Squot.package/SquotFileStoreTest.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Tests-Files", - "classinstvars" : [ - ], - "classtraitcomposition" : "TTestCaseSuppressingProgressDisplay classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 2/9/2017 14:20", - "instvars" : [ - "fileStore" ], - "name" : "SquotFileStoreTest", - "pools" : [ - ], - "super" : "TestCase", - "traitcomposition" : "TTestCaseSuppressingProgressDisplay", - "type" : "normal" } diff --git a/src/Squot.package/SquotFileSystemStore.class/README.md b/src/Squot.package/SquotFileSystemStore.class/README.md deleted file mode 100644 index 0a6f359a6..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/README.md +++ /dev/null @@ -1,3 +0,0 @@ -I store and restore SquotArtifacts in/from folders and files. - -Instance Variables diff --git a/src/Squot.package/SquotFileSystemStore.class/class/addDeserializerFactory..st b/src/Squot.package/SquotFileSystemStore.class/class/addDeserializerFactory..st deleted file mode 100644 index 43051248f..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/class/addDeserializerFactory..st +++ /dev/null @@ -1,8 +0,0 @@ -deserialization registry -addDeserializerFactory: aDeserializerFactory - DefaultDeserializerRegistry ifNil: - [DefaultDeserializerRegistry := Array with: aDeserializerFactory. - ^ aDeserializerFactory]. - (DefaultDeserializerRegistry includes: aDeserializerFactory) ifFalse: - [DefaultDeserializerRegistry := - DefaultDeserializerRegistry copyWith: aDeserializerFactory]. \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/class/copySettingsFrom.to..st b/src/Squot.package/SquotFileSystemStore.class/class/copySettingsFrom.to..st deleted file mode 100644 index e88a7625f..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/class/copySettingsFrom.to..st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -copySettingsFrom: anArtifact to: newTrackedObjectMetadata - ^ self new copySettingsFrom: anArtifact to: newTrackedObjectMetadata \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/class/inDirectory..st b/src/Squot.package/SquotFileSystemStore.class/class/inDirectory..st deleted file mode 100644 index 1a8f4580a..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/class/inDirectory..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -inDirectory: aDirectoryReference - ^ self new initializeWith: aDirectoryReference; yourself \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/class/initialize.st b/src/Squot.package/SquotFileSystemStore.class/class/initialize.st deleted file mode 100644 index 364097ea9..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/class/initialize.st +++ /dev/null @@ -1,8 +0,0 @@ -class initialization -initialize - "DefaultDeserializerRegistry := nil. - self initialize" - self addDeserializerFactory: SquotSmartRefStreamDeserializer. - self addDeserializerFactory: SquotCypressCodeDeserializer. - self addDeserializerFactory: SquotStonFileCodec. - self addDeserializerFactory: SquotTextFileCodec. \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/class/initializeStoreInfo.forObject..st b/src/Squot.package/SquotFileSystemStore.class/class/initializeStoreInfo.forObject..st deleted file mode 100644 index 9a9e52d8f..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/class/initializeStoreInfo.forObject..st +++ /dev/null @@ -1,3 +0,0 @@ -validating paths -initializeStoreInfo: aTrackedObjectMetadata forObject: aShadow - ^ self new initializeStoreInfo: aTrackedObjectMetadata forObject: aShadow \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/class/removeDeserializerFactory..st b/src/Squot.package/SquotFileSystemStore.class/class/removeDeserializerFactory..st deleted file mode 100644 index 5c8903cb3..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/class/removeDeserializerFactory..st +++ /dev/null @@ -1,4 +0,0 @@ -deserialization registry -removeDeserializerFactory: aDeserializerFactory - DefaultDeserializerRegistry := - DefaultDeserializerRegistry copyWithout: aDeserializerFactory. \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/class/tocFileName.st b/src/Squot.package/SquotFileSystemStore.class/class/tocFileName.st deleted file mode 100644 index fb5f50ccf..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/class/tocFileName.st +++ /dev/null @@ -1,3 +0,0 @@ -filenames -tocFileName - ^ '.squot' \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/class/unload.st b/src/Squot.package/SquotFileSystemStore.class/class/unload.st deleted file mode 100644 index 4be55194d..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/class/unload.st +++ /dev/null @@ -1,6 +0,0 @@ -initialize-release -unload - self removeDeserializerFactory: SquotSmartRefStreamDeserializer. - self removeDeserializerFactory: SquotCypressCodeDeserializer. - self removeDeserializerFactory: SquotStonFileCodec. - self removeDeserializerFactory: SquotTextFileCodec. \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/^slash.st b/src/Squot.package/SquotFileSystemStore.class/instance/^slash.st deleted file mode 100644 index ff946951d..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/^slash.st +++ /dev/null @@ -1,3 +0,0 @@ -FileSystem -/ anObject - ^ directory / anObject \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/add..st b/src/Squot.package/SquotFileSystemStore.class/instance/add..st deleted file mode 100644 index dab46c0f5..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/add..st +++ /dev/null @@ -1,11 +0,0 @@ -adding and removing -add: anArtifact - | tableOfContents storedArtifact | - storedArtifact := self store: anArtifact. - self shouldStoreMetadata ifTrue: - [(tableOfContents := self tableOfContents) exists - ifTrue: [tableOfContents add: storedArtifact] - ifFalse: [self guessArtifacts do: [:each | tableOfContents add: each]. - tableOfContents add: storedArtifact "with correct metadata"]. - tableOfContents fileOut]. - ^ storedArtifact \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/applyDiff.toObjectAt..st b/src/Squot.package/SquotFileSystemStore.class/instance/applyDiff.toObjectAt..st deleted file mode 100644 index 93e9f31e7..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/applyDiff.toObjectAt..st +++ /dev/null @@ -1,7 +0,0 @@ -patching -applyDiff: aDiff toObjectAt: path - | reference | - aDiff hasChanges ifFalse: [^ self artifactAt: path]. - reference := directory resolve: path. - reference exists ifFalse: [self error: 'Attempt to patch non-existent files']. - ^ self patchOrdinary: aDiff \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/applyPatch..st b/src/Squot.package/SquotFileSystemStore.class/instance/applyPatch..st deleted file mode 100644 index 67a743e7d..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/applyPatch..st +++ /dev/null @@ -1,5 +0,0 @@ -patching -applyPatch: aPatch - ^ self openTableOfContentsDuring: - [aPatch applyTo: self displayingProgress: - [:each | 'Writing objects to files... ', each]] \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/artifactLocators.st b/src/Squot.package/SquotFileSystemStore.class/instance/artifactLocators.st deleted file mode 100644 index 1aadbfb08..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/artifactLocators.st +++ /dev/null @@ -1,7 +0,0 @@ -guessing -artifactLocators - | locators | - locators := OrderedCollection new. - (Pragma allNamed: #squotArtifactLocatorFor:priority: from: self class to: self class) - do: [:each | locators add: (self perform: each selector)]. - ^ locators \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/artifactReferencesDo..st b/src/Squot.package/SquotFileSystemStore.class/instance/artifactReferencesDo..st deleted file mode 100644 index 9d7a6ceca..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/artifactReferencesDo..st +++ /dev/null @@ -1,5 +0,0 @@ -enumerating -artifactReferencesDo: aBlock - "Enumerates all file system references to artifacts in loading order." - self tableOfContents keysDo: [:eachString | - aBlock value: (directory resolve: eachString)] \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/artifacts.st b/src/Squot.package/SquotFileSystemStore.class/instance/artifacts.st deleted file mode 100644 index 366fba556..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/artifacts.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing objects -artifacts - ^ self captureLazySnapshot artifacts \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/captureLazySnapshot.st b/src/Squot.package/SquotFileSystemStore.class/instance/captureLazySnapshot.st deleted file mode 100644 index 22fb56fb8..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/captureLazySnapshot.st +++ /dev/null @@ -1,15 +0,0 @@ -Pur store -captureLazySnapshot - "read the table of contents and create lazy loading artifacts from the entries" - | builder addedPaths unrecordedFiles snapshot | - builder := SquotSnapshot builder. - addedPaths := Set new. - self lazyArtifactsDo: - [:each | builder add: each. - addedPaths add: each path]. - builder add: (unrecordedFiles := SquotUnrecordedFilesArtifact new - rootDirectory: directory; - yourself). - snapshot := builder buildSnapshot. - unrecordedFiles ownerSnapshot: snapshot. - ^ snapshot \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/captureSnapshot.st b/src/Squot.package/SquotFileSystemStore.class/instance/captureSnapshot.st deleted file mode 100644 index dbd02e55b..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/captureSnapshot.st +++ /dev/null @@ -1,9 +0,0 @@ -Pur store -captureSnapshot - "read files from the filesystem and convert them into SquotArtifacts" - | snapshot | - snapshot := self captureLazySnapshot. - SquotProgress display: 'Reading objects from files' - for: snapshot artifacts - do: [:each | each capture]. - ^ snapshot \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/copySettingsFrom.to..st b/src/Squot.package/SquotFileSystemStore.class/instance/copySettingsFrom.to..st deleted file mode 100644 index 0dc51dd4e..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/copySettingsFrom.to..st +++ /dev/null @@ -1,5 +0,0 @@ -adding and removing -copySettingsFrom: anArtifact to: newTrackedObjectMetadata - | serializer | - serializer := self serializerFactoryFrom: anArtifact storeInfo ifAbsent: [^ self]. - serializer copySettingsFrom: anArtifact to: newTrackedObjectMetadata. \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/createLazyArtifactForObjectAt..st b/src/Squot.package/SquotFileSystemStore.class/instance/createLazyArtifactForObjectAt..st deleted file mode 100644 index bfadadc34..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/createLazyArtifactForObjectAt..st +++ /dev/null @@ -1,10 +0,0 @@ -private -createLazyArtifactForObjectAt: aFSReference - | artifact | - artifact := SquotLazyArtifact new - path: (self pathOf: aFSReference); - yourself. - ^ artifact - onLoadContent: [self readContent: artifact]; - onLoadStoreInfo: [self readMetadata: artifact]; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/cypressPackageLocator.st b/src/Squot.package/SquotFileSystemStore.class/instance/cypressPackageLocator.st deleted file mode 100644 index 7c8d7fac3..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/cypressPackageLocator.st +++ /dev/null @@ -1,19 +0,0 @@ -guessing -cypressPackageLocator - - "Look for *.package directories with .filetree files" - ^ SquotArtifactLocator new - detectBlock: [:fileOrDirectory :search :locator | - fileOrDirectory isDirectory - ifTrue: [((fileOrDirectory basename endsWith: '.package') - and: [fileOrDirectory entries - anySatisfy: [:eachEntry | - eachEntry basename = '.filetree' and: - [eachEntry isFile]]]) - ifTrue: [search addArtifact: - (self forgeLazyArtifactAt: fileOrDirectory - deserializerFactory: SquotCypressCodeDeserializer - serializerFactory: SquotCypressCodeSerializer - objectClass: PackageInfo)] - ifFalse: [search visitSubdirectories: fileOrDirectory with: locator]]]; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/deserializers.st b/src/Squot.package/SquotFileSystemStore.class/instance/deserializers.st deleted file mode 100644 index 92e1babb5..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/deserializers.st +++ /dev/null @@ -1,3 +0,0 @@ -private -deserializers - ^ deserializers ifNil: [DefaultDeserializerRegistry] \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/directory.st b/src/Squot.package/SquotFileSystemStore.class/instance/directory.st deleted file mode 100644 index 1b71cd791..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/directory.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -directory - ^ directory \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/doNotStoreMetadata.st b/src/Squot.package/SquotFileSystemStore.class/instance/doNotStoreMetadata.st deleted file mode 100644 index 68b471ec8..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/doNotStoreMetadata.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -doNotStoreMetadata - shouldStoreMetadata := false. \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/doStoreMetadata.st b/src/Squot.package/SquotFileSystemStore.class/instance/doStoreMetadata.st deleted file mode 100644 index cbcea17d9..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/doStoreMetadata.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -doStoreMetadata - shouldStoreMetadata := true. \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/findDeserializerFor.in..st b/src/Squot.package/SquotFileSystemStore.class/instance/findDeserializerFor.in..st deleted file mode 100644 index d1abb51d4..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/findDeserializerFor.in..st +++ /dev/null @@ -1,7 +0,0 @@ -private -findDeserializerFor: anArtifact in: aFileOrDirectory - ^ self deserializers detect: [:each | - each canReadObjectSerializedBy: - (anArtifact storeInfo serializer - ifNil: [(self guessSerializerForArtifact: anArtifact in: aFileOrDirectory) - ifNil: [(SquotCannotFindSerializer for: aFileOrDirectory) signal]])] \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/forgeLazyArtifactAt.deserializerFactory.serializerFactory.objectClass..st b/src/Squot.package/SquotFileSystemStore.class/instance/forgeLazyArtifactAt.deserializerFactory.serializerFactory.objectClass..st deleted file mode 100644 index 3d8f25564..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/forgeLazyArtifactAt.deserializerFactory.serializerFactory.objectClass..st +++ /dev/null @@ -1,12 +0,0 @@ -guessing -forgeLazyArtifactAt: aFSReference deserializerFactory: deserializerClass serializerFactory: serializerClass objectClass: aClass - | artifact metadata | - ^ (artifact := SquotLazyArtifact new) - path: (self pathOf: aFSReference); - onLoadContent: [deserializerClass new - fillContentOf: artifact from: aFSReference]; - onLoadStoreInfo: [metadata := SquotTrackedObjectMetadata new. - metadata serializer: serializerClass. - aClass basicNew squotInitializeStoreInfo: metadata. - metadata]; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/guessArtifacts.st b/src/Squot.package/SquotFileSystemStore.class/instance/guessArtifacts.st deleted file mode 100644 index 77415bc61..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/guessArtifacts.st +++ /dev/null @@ -1,9 +0,0 @@ -guessing -guessArtifacts - "Search the files and directories for known patterns that indicate certain types of objects - stored there." - | locators search | - locators := self artifactLocators. - search := self prepareArtifactSearchWith: locators. - search runSearch. - ^ search artifactsFound \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/guessMetadataForArtifact.at..st b/src/Squot.package/SquotFileSystemStore.class/instance/guessMetadataForArtifact.at..st deleted file mode 100644 index fb0d6868b..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/guessMetadataForArtifact.at..st +++ /dev/null @@ -1,18 +0,0 @@ -guessing -guessMetadataForArtifact: anArtifact at: aFileOrDirectory - | locators search possibleArtifacts foundMetadata | - locators := self artifactLocators. - search := self prepareArtifactSearchWith: locators startingAt: aFileOrDirectory. - search searchNext. - possibleArtifacts := search artifactsFound. - possibleArtifacts - ifEmpty: [SquotNoMetadataFileFound signal - ifNotNil: [:metadata | foundMetadata := metadata] - ifNil: [^ self error: 'No info about artifact at ', anArtifact path]] - ifNotEmpty: [possibleArtifacts size = 1 - ifTrue: [foundMetadata := possibleArtifacts anyOne storeInfo] - ifFalse: [foundMetadata := UIManager default - chooseFrom: (possibleArtifacts collect: [:each | each storeInfo serializer]) - values: (possibleArtifacts collect: #storeInfo) - title: 'Which serializer fits best with the artifact at ', anArtifact path, '?']]. - anArtifact updateStoreInfo: foundMetadata. \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/guessSerializerForArtifact.in..st b/src/Squot.package/SquotFileSystemStore.class/instance/guessSerializerForArtifact.in..st deleted file mode 100644 index 471ac2f78..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/guessSerializerForArtifact.in..st +++ /dev/null @@ -1,9 +0,0 @@ -private -guessSerializerForArtifact: anArtifact in: aFileOrDirectory - self isThisEverCalled. - self deprecated. - (aFileOrDirectory basename endsWith: '.package') - ifTrue: [anArtifact storeInfo - serializer: PackageInfo basicNew squotShadowFactory basicNew squotPreferredSerializer; - objectClass: PackageInfo]. - ^ anArtifact storeInfo at: #serializer ifAbsent: [] \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/initialize.st b/src/Squot.package/SquotFileSystemStore.class/instance/initialize.st deleted file mode 100644 index df354831b..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/initialize.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -initialize - shouldStoreMetadata := true. \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/initializeStoreInfo.forObject..st b/src/Squot.package/SquotFileSystemStore.class/instance/initializeStoreInfo.forObject..st deleted file mode 100644 index 206110dda..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/initializeStoreInfo.forObject..st +++ /dev/null @@ -1,6 +0,0 @@ -adding and removing -initializeStoreInfo: aTrackedObjectMetadata forObject: aShadow - | serializer rewrittenPath | - serializer := self serializerFactoryFrom: aTrackedObjectMetadata ifAbsent: [aShadow preferredSerializer]. - rewrittenPath := serializer rewritePath: (aTrackedObjectMetadata at: #path) for: aShadow. - aTrackedObjectMetadata at: #path put: rewrittenPath. \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/initializeWith..st b/src/Squot.package/SquotFileSystemStore.class/instance/initializeWith..st deleted file mode 100644 index 09090b3f0..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/initializeWith..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -initializeWith: aDirectoryReference - directory := aDirectoryReference. \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/lazyArtifactsDo..st b/src/Squot.package/SquotFileSystemStore.class/instance/lazyArtifactsDo..st deleted file mode 100644 index 0e7428354..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/lazyArtifactsDo..st +++ /dev/null @@ -1,6 +0,0 @@ -enumerating -lazyArtifactsDo: aBlock - self tableOfContents exists - ifTrue: [self artifactReferencesDo: - [:each | aBlock value: (self createLazyArtifactForObjectAt: each)]] - ifFalse: [self guessArtifacts do: aBlock]. \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/loadOrder..st b/src/Squot.package/SquotFileSystemStore.class/instance/loadOrder..st deleted file mode 100644 index 5c35d4248..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/loadOrder..st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -loadOrder: aCollection - | artifacts | - artifacts := self artifacts. "according to the existing table of contents" - self tableOfContents removeAll. - aCollection do: [:each | self tableOfContents add: (artifacts at: each)]. \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/loadOrder.st b/src/Squot.package/SquotFileSystemStore.class/instance/loadOrder.st deleted file mode 100644 index c6db80ead..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/loadOrder.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -loadOrder - ^ self captureLazySnapshot loadOrder \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/metadataFor..st b/src/Squot.package/SquotFileSystemStore.class/instance/metadataFor..st deleted file mode 100644 index 0371fdc38..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/metadataFor..st +++ /dev/null @@ -1,3 +0,0 @@ -private metadata access -metadataFor: anArtifact - ^ SquotObjectMetadataFile forObjectAt: (directory resolve: anArtifact path) \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/metadataForObjectAt..st b/src/Squot.package/SquotFileSystemStore.class/instance/metadataForObjectAt..st deleted file mode 100644 index 6ab0a4661..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/metadataForObjectAt..st +++ /dev/null @@ -1,3 +0,0 @@ -private metadata access -metadataForObjectAt: aFSReference - ^ SquotObjectMetadataFile forObjectAt: aFSReference \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/openTableOfContentsDuring..st b/src/Squot.package/SquotFileSystemStore.class/instance/openTableOfContentsDuring..st deleted file mode 100644 index 13a14475d..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/openTableOfContentsDuring..st +++ /dev/null @@ -1,8 +0,0 @@ -patching -openTableOfContentsDuring: aBlock - tableOfContentsDuringTransaction := self tableOfContents. - ^ aBlock ensure: - [self shouldStoreMetadata - ifTrue: [tableOfContentsDuringTransaction fileOut] - ifFalse: [tableOfContentsDuringTransaction delete]. - tableOfContentsDuringTransaction := nil] \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/patchOrdinary..st b/src/Squot.package/SquotFileSystemStore.class/instance/patchOrdinary..st deleted file mode 100644 index 08ded9bb0..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/patchOrdinary..st +++ /dev/null @@ -1,26 +0,0 @@ -private storing -patchOrdinary: anArtifactDiff - | serializerClass serializer storedArtifact | - self assert: anArtifactDiff isModification. - serializerClass := self serializerFactoryFor: anArtifactDiff right. - storedArtifact := anArtifactDiff right. - storedArtifact := SquotArtifact - path: anArtifactDiff right path - content: anArtifactDiff right content - storeInfo: anArtifactDiff right storeInfo copy. - storedArtifact serializerName ~= serializerClass name ifTrue: - [storedArtifact storeInfo serializer: serializerClass]. - self validatePathOf: storedArtifact. - (anArtifactDiff left id notNil and: [storedArtifact id ~= anArtifactDiff left id]) ifTrue: "Preserve existing id" - [storedArtifact id: anArtifactDiff left id]. - (serializer := serializerClass writingBelow: directory) canWriteDiffs - ifTrue: - [serializer writeDiff: anArtifactDiff. - self shouldStoreMetadata ifTrue: - [self storeSquotMetadataFor: storedArtifact. - self tableOfContents add: storedArtifact]. - ^ storedArtifact] - ifFalse: [| reference | - reference := directory resolve: anArtifactDiff path. - reference exists ifTrue: [reference deleteAll]. - ^ self store: storedArtifact] \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/pathOf..st b/src/Squot.package/SquotFileSystemStore.class/instance/pathOf..st deleted file mode 100644 index 960b8c863..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/pathOf..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -pathOf: aReference - ^ SquotPath fromPath: (aReference relativeTo: directory) \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/prepareArtifactSearchWith..st b/src/Squot.package/SquotFileSystemStore.class/instance/prepareArtifactSearchWith..st deleted file mode 100644 index c713096f8..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/prepareArtifactSearchWith..st +++ /dev/null @@ -1,3 +0,0 @@ -guessing -prepareArtifactSearchWith: locators - ^ self prepareArtifactSearchWith: locators startingAt: directory \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/prepareArtifactSearchWith.startingAt..st b/src/Squot.package/SquotFileSystemStore.class/instance/prepareArtifactSearchWith.startingAt..st deleted file mode 100644 index 563242c93..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/prepareArtifactSearchWith.startingAt..st +++ /dev/null @@ -1,6 +0,0 @@ -guessing -prepareArtifactSearchWith: locators startingAt: aFileOrDirectory - | search | - search := SquotFileSearchForArtifacts new. - locators do: [:each | search visit: aFileOrDirectory with: each]. - ^ search \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/readContent..st b/src/Squot.package/SquotFileSystemStore.class/instance/readContent..st deleted file mode 100644 index 1afe9341b..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/readContent..st +++ /dev/null @@ -1,6 +0,0 @@ -private -readContent: aSquotArtifact - | fileOrDirectory deserializer | - fileOrDirectory := self resolve: aSquotArtifact path. - deserializer := self findDeserializerFor: aSquotArtifact in: fileOrDirectory. - deserializer new fillContentOf: aSquotArtifact from: fileOrDirectory. \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/readMetadata..st b/src/Squot.package/SquotFileSystemStore.class/instance/readMetadata..st deleted file mode 100644 index c1e9c60ee..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/readMetadata..st +++ /dev/null @@ -1,9 +0,0 @@ -private -readMetadata: anArtifact - | fileOrDirectory metadata | - fileOrDirectory := self resolve: anArtifact path. - metadata := self metadataForObjectAt: fileOrDirectory. - metadata isPresent - ifTrue: [metadata applyTo: anArtifact] - ifFalse: [self guessMetadataForArtifact: anArtifact at: fileOrDirectory]. - ^ anArtifact storeInfo \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/removeArtifactsOutdatedBy..st b/src/Squot.package/SquotFileSystemStore.class/instance/removeArtifactsOutdatedBy..st deleted file mode 100644 index aa282b319..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/removeArtifactsOutdatedBy..st +++ /dev/null @@ -1,5 +0,0 @@ -private -removeArtifactsOutdatedBy: aSnapshot - (aSnapshot patchRelativeToBase: self) - paths collect: [:each | self resolve: each] - thenDo: [:each | (each exists and: [each ~= directory]) ifTrue: [each deleteAll]]. \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/removeAt..st b/src/Squot.package/SquotFileSystemStore.class/instance/removeAt..st deleted file mode 100644 index 511612bb6..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/removeAt..st +++ /dev/null @@ -1,9 +0,0 @@ -adding and removing -removeAt: path - | tableOfContents | - self removeFilesFrom: path. - self shouldStoreMetadata ifTrue: - [(tableOfContents := self tableOfContents) exists - ifTrue: [tableOfContents removeAt: path] - ifFalse: [self guessArtifacts do: [:each | tableOfContents add: each]]. - tableOfContents fileOut]. \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/removeFilesFrom..st b/src/Squot.package/SquotFileSystemStore.class/instance/removeFilesFrom..st deleted file mode 100644 index 45c2bc2c0..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/removeFilesFrom..st +++ /dev/null @@ -1,7 +0,0 @@ -private -removeFilesFrom: artifactPath - | reference | - reference := directory resolve: artifactPath. - (directory contains: reference) ifFalse: [^ self]. - (self metadataForObjectAt: reference) delete. - reference deleteAll. \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/resolve..st b/src/Squot.package/SquotFileSystemStore.class/instance/resolve..st deleted file mode 100644 index 16650e2ec..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/resolve..st +++ /dev/null @@ -1,3 +0,0 @@ -FileSystem -resolve: anObject - ^ directory resolve: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/restoreToSnapshot..st b/src/Squot.package/SquotFileSystemStore.class/instance/restoreToSnapshot..st deleted file mode 100644 index 959692d7a..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/restoreToSnapshot..st +++ /dev/null @@ -1,15 +0,0 @@ -Pur store -restoreToSnapshot: aSnapshot - "read objects from aSnapshot and update/replace files" - | toc newSnapshot | - self removeArtifactsOutdatedBy: aSnapshot. - newSnapshot := SquotSnapshot builder. - SquotProgress display: 'Writing objects to files' - for: aSnapshot artifacts do: [:each | newSnapshot add: (self store: each)]. - self shouldStoreMetadata ifTrue: - [toc := self tableOfContents. - toc removeAll. - aSnapshot artifactsInLoadOrderDo: [:each | toc add: each]. - toc fileOut]. - newSnapshot loadOrder: aSnapshot loadOrder. - ^ newSnapshot \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/serializerFactoryFor..st b/src/Squot.package/SquotFileSystemStore.class/instance/serializerFactoryFor..st deleted file mode 100644 index 21cd8359b..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/serializerFactoryFor..st +++ /dev/null @@ -1,3 +0,0 @@ -private storing -serializerFactoryFor: anArtifact - ^ self serializerFactoryFrom: anArtifact storeInfo ifAbsent: [^ anArtifact content preferredSerializer] \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/serializerFactoryFrom.ifAbsent..st b/src/Squot.package/SquotFileSystemStore.class/instance/serializerFactoryFrom.ifAbsent..st deleted file mode 100644 index 552945285..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/serializerFactoryFrom.ifAbsent..st +++ /dev/null @@ -1,10 +0,0 @@ -private storing -serializerFactoryFrom: aTrackedObjectMetadata ifAbsent: fallbackBlock - | name factoryName | - name := aTrackedObjectMetadata serializer. - name ifNil: [^ fallbackBlock value]. - factoryName := name substrings first. - ^ (Environment current valueOf: factoryName asSymbol) - ifNotNil: [:factory | self flag: 'The version part is currently ignored.'. - ^ factory] - ifNil: [self error: 'Unknown serializer: ', name] \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/shouldStoreMetadata.st b/src/Squot.package/SquotFileSystemStore.class/instance/shouldStoreMetadata.st deleted file mode 100644 index 6f8866efa..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/shouldStoreMetadata.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -shouldStoreMetadata - ^ shouldStoreMetadata \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/store..st b/src/Squot.package/SquotFileSystemStore.class/instance/store..st deleted file mode 100644 index aeffd0673..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/store..st +++ /dev/null @@ -1,4 +0,0 @@ -private storing -store: anArtifact - "double dispatch" - ^ anArtifact storeWith: self \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/storeFile..st b/src/Squot.package/SquotFileSystemStore.class/instance/storeFile..st deleted file mode 100644 index f52fffe0b..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/storeFile..st +++ /dev/null @@ -1,7 +0,0 @@ -private storing -storeFile: anArtifact - | source target | - source := anArtifact fileReference. - target := directory resolve: anArtifact path. - (source = target and: [source filesystem == target filesystem]) ifTrue: [^ self]. - [source copyTo: target] on: FSFileExists do: [:e | e resume]. \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/storeOrdinary..st b/src/Squot.package/SquotFileSystemStore.class/instance/storeOrdinary..st deleted file mode 100644 index 966addf9a..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/storeOrdinary..st +++ /dev/null @@ -1,18 +0,0 @@ -private storing -storeOrdinary: anArtifact - | serializer storedArtifact | - serializer := self serializerFactoryFor: anArtifact. - storedArtifact := anArtifact. - anArtifact serializerName ~= serializer name ifTrue: - [storedArtifact := SquotArtifact - path: anArtifact path - content: anArtifact content - storeInfo: (anArtifact storeInfo copy - serializer: serializer; - yourself)]. - self validatePathOf: storedArtifact. - (serializer writingBelow: directory) write: storedArtifact. - self shouldStoreMetadata ifTrue: - [self storeSquotMetadataFor: storedArtifact. - self tableOfContents add: storedArtifact]. - ^ storedArtifact \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/storeSquotMetadataFor..st b/src/Squot.package/SquotFileSystemStore.class/instance/storeSquotMetadataFor..st deleted file mode 100644 index 0d8e3bdef..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/storeSquotMetadataFor..st +++ /dev/null @@ -1,5 +0,0 @@ -private storing -storeSquotMetadataFor: anArtifact - anArtifact id ifNotNil: [anArtifact storeInfo at: #id ifAbsentPut: [anArtifact id]]. - (self metadataFor: anArtifact) updateFrom: anArtifact storeInfo. - \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/storeUnrecordedFiles..st b/src/Squot.package/SquotFileSystemStore.class/instance/storeUnrecordedFiles..st deleted file mode 100644 index 403956388..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/storeUnrecordedFiles..st +++ /dev/null @@ -1,4 +0,0 @@ -private storing -storeUnrecordedFiles: aSquotUnrecordedFilesArtifact - self flag: #stub. "ignore them for the moment" - ^ aSquotUnrecordedFilesArtifact \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/tableOfContents.st b/src/Squot.package/SquotFileSystemStore.class/instance/tableOfContents.st deleted file mode 100644 index a42afed6c..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/tableOfContents.st +++ /dev/null @@ -1,4 +0,0 @@ -private metadata access -tableOfContents - ^ tableOfContentsDuringTransaction ifNil: - [SquotTableOfContentsFile on: self tableOfContentsReference] \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/tableOfContentsReference.st b/src/Squot.package/SquotFileSystemStore.class/instance/tableOfContentsReference.st deleted file mode 100644 index bb5c3d6c3..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/tableOfContentsReference.st +++ /dev/null @@ -1,3 +0,0 @@ -private metadata access -tableOfContentsReference - ^ self tableOfContentsReferenceIn: directory \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/tableOfContentsReferenceIn..st b/src/Squot.package/SquotFileSystemStore.class/instance/tableOfContentsReferenceIn..st deleted file mode 100644 index 57ccf3bae..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/tableOfContentsReferenceIn..st +++ /dev/null @@ -1,5 +0,0 @@ -private metadata access -tableOfContentsReferenceIn: aFSReference - ^ aFSReference / ({self class tocFileName. '_squot-table-of-contents'. '.squot-table-of-contents'} - detect: [:each | (aFSReference / each) exists] - ifNone: [self class tocFileName]) \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/instance/validatePathOf..st b/src/Squot.package/SquotFileSystemStore.class/instance/validatePathOf..st deleted file mode 100644 index 5cfbfa8b4..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/instance/validatePathOf..st +++ /dev/null @@ -1,11 +0,0 @@ -private storing -validatePathOf: anArtifact - "Check that the path of the artifact is valid according to its serializer." - | storeInfo | - storeInfo := anArtifact storeInfo copy - at: #path put: anArtifact path; - yourself. - self initializeStoreInfo: storeInfo forObject: anArtifact content. - (storeInfo at: #path) ~= anArtifact path ifTrue: - [self error: 'Invalid path to store ', anArtifact printString]. - ^ storeInfo at: #path \ No newline at end of file diff --git a/src/Squot.package/SquotFileSystemStore.class/methodProperties.json b/src/Squot.package/SquotFileSystemStore.class/methodProperties.json deleted file mode 100644 index b7a2e9b89..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/methodProperties.json +++ /dev/null @@ -1,64 +0,0 @@ -{ - "class" : { - "addDeserializerFactory:" : "jr 9/28/2017 10:16", - "copySettingsFrom:to:" : "jr 5/27/2022 23:14", - "inDirectory:" : "jr 1/29/2017 22:41", - "initialize" : "jr 9/28/2017 10:16", - "initializeStoreInfo:forObject:" : "jr 5/28/2022 12:03", - "removeDeserializerFactory:" : "jr 9/21/2017 21:08", - "tocFileName" : "fn 4/23/2017 19:13", - "unload" : "jr 8/9/2020 21:53" }, - "instance" : { - "/" : "jr 1/27/2017 15:07", - "add:" : "jr 1/3/2021 16:56", - "applyDiff:toObjectAt:" : "jr 12/29/2021 21:16", - "applyPatch:" : "jr 1/2/2021 17:40", - "artifactLocators" : "jr 3/10/2019 21:45", - "artifactReferencesDo:" : "jr 3/6/2019 21:03", - "artifacts" : "jr 7/16/2017 02:34", - "captureLazySnapshot" : "jr 3/6/2019 21:00", - "captureSnapshot" : "jr 9/13/2020 22:23", - "copySettingsFrom:to:" : "jr 5/27/2022 23:15", - "createLazyArtifactForObjectAt:" : "jr 5/28/2017 14:31", - "cypressPackageLocator" : "jr 3/10/2019 21:31", - "deserializers" : "jr 3/10/2019 22:17", - "directory" : "jr 1/27/2017 15:07", - "doNotStoreMetadata" : "jr 3/7/2017 17:38", - "doStoreMetadata" : "jr 3/7/2019 08:41", - "findDeserializerFor:in:" : "jr 12/9/2018 17:38", - "forgeLazyArtifactAt:deserializerFactory:serializerFactory:objectClass:" : "jr 3/6/2019 22:55", - "guessArtifacts" : "jr 3/10/2019 21:46", - "guessMetadataForArtifact:at:" : "jr 12/13/2020 22:03", - "guessSerializerForArtifact:in:" : "jr 3/6/2019 22:53", - "initialize" : "jr 3/8/2017 16:47", - "initializeStoreInfo:forObject:" : "jr 5/28/2022 12:02", - "initializeWith:" : "jr 1/27/2017 15:07", - "lazyArtifactsDo:" : "jr 3/6/2019 21:29", - "loadOrder" : "jr 8/18/2018 23:45", - "loadOrder:" : "jr 8/18/2018 23:24", - "metadataFor:" : "jr 9/22/2017 09:09", - "metadataForObjectAt:" : "jr 9/22/2017 09:09", - "openTableOfContentsDuring:" : "jr 1/2/2021 17:40", - "patchOrdinary:" : "jr 2/17/2022 22:27", - "pathOf:" : "jr 3/11/2017 01:00", - "prepareArtifactSearchWith:" : "jr 3/10/2019 21:46", - "prepareArtifactSearchWith:startingAt:" : "jr 3/10/2019 21:47", - "readContent:" : "jr 12/9/2018 17:34", - "readMetadata:" : "jr 3/10/2019 10:45", - "removeArtifactsOutdatedBy:" : "jr 7/28/2017 00:41", - "removeAt:" : "jr 9/1/2020 00:03", - "removeFilesFrom:" : "jr 10/5/2020 22:37", - "resolve:" : "jr 1/27/2017 15:07", - "restoreToSnapshot:" : "jr 1/3/2021 22:11", - "serializerFactoryFor:" : "jr 6/6/2022 17:23", - "serializerFactoryFrom:ifAbsent:" : "jr 5/27/2022 22:41", - "shouldStoreMetadata" : "jr 3/7/2017 17:39", - "store:" : "jr 1/31/2017 13:55", - "storeFile:" : "jr 1/31/2017 14:51", - "storeOrdinary:" : "jr 1/9/2021 18:06", - "storeSquotMetadataFor:" : "jr 2/13/2022 21:50", - "storeUnrecordedFiles:" : "jr 1/3/2021 17:28", - "tableOfContents" : "jr 10/3/2017 00:46", - "tableOfContentsReference" : "jr 10/2/2017 22:34", - "tableOfContentsReferenceIn:" : "jr 10/2/2017 22:34", - "validatePathOf:" : "jr 5/28/2022 00:54" } } diff --git a/src/Squot.package/SquotFileSystemStore.class/properties.json b/src/Squot.package/SquotFileSystemStore.class/properties.json deleted file mode 100644 index e26588594..000000000 --- a/src/Squot.package/SquotFileSystemStore.class/properties.json +++ /dev/null @@ -1,19 +0,0 @@ -{ - "category" : "Squot-FileSystemStore", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotMutableObjectContainer classTrait", - "classvars" : [ - "DefaultDeserializerRegistry" ], - "commentStamp" : "jr 1/27/2017 14:35", - "instvars" : [ - "deserializers", - "directory", - "shouldStoreMetadata", - "tableOfContentsDuringTransaction" ], - "name" : "SquotFileSystemStore", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotMutableObjectContainer", - "type" : "normal" } diff --git a/src/Squot.package/SquotFileTestHistorian.class/README.md b/src/Squot.package/SquotFileTestHistorian.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotFileTestHistorian.class/class/named.in..st b/src/Squot.package/SquotFileTestHistorian.class/class/named.in..st deleted file mode 100644 index 564cc5e18..000000000 --- a/src/Squot.package/SquotFileTestHistorian.class/class/named.in..st +++ /dev/null @@ -1,6 +0,0 @@ -instance creation -named: aString in: aSquotFileTestRepository - ^ self new - name: aString; - repository: aSquotFileTestRepository; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestHistorian.class/instance/delete.st b/src/Squot.package/SquotFileTestHistorian.class/instance/delete.st deleted file mode 100644 index ec8f644e5..000000000 --- a/src/Squot.package/SquotFileTestHistorian.class/instance/delete.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -delete - self file ensureDeleted. \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestHistorian.class/instance/file.st b/src/Squot.package/SquotFileTestHistorian.class/instance/file.st deleted file mode 100644 index a4e25938a..000000000 --- a/src/Squot.package/SquotFileTestHistorian.class/instance/file.st +++ /dev/null @@ -1,3 +0,0 @@ -private -file - ^ repository historianDirectory / name \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestHistorian.class/instance/name..st b/src/Squot.package/SquotFileTestHistorian.class/instance/name..st deleted file mode 100644 index aa144c32d..000000000 --- a/src/Squot.package/SquotFileTestHistorian.class/instance/name..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name: aString - name := aString. \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestHistorian.class/instance/name.st b/src/Squot.package/SquotFileTestHistorian.class/instance/name.st deleted file mode 100644 index d49dd391b..000000000 --- a/src/Squot.package/SquotFileTestHistorian.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -Pur historian -name - ^ name \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestHistorian.class/instance/repository..st b/src/Squot.package/SquotFileTestHistorian.class/instance/repository..st deleted file mode 100644 index 0770f6b0f..000000000 --- a/src/Squot.package/SquotFileTestHistorian.class/instance/repository..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -repository: aSquotFileTestRepository - repository := aSquotFileTestRepository. \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestHistorian.class/instance/repository.st b/src/Squot.package/SquotFileTestHistorian.class/instance/repository.st deleted file mode 100644 index f8de1c90a..000000000 --- a/src/Squot.package/SquotFileTestHistorian.class/instance/repository.st +++ /dev/null @@ -1,3 +0,0 @@ -Pur historian -repository - ^ repository \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestHistorian.class/instance/version..st b/src/Squot.package/SquotFileTestHistorian.class/instance/version..st deleted file mode 100644 index 5ba8f41d5..000000000 --- a/src/Squot.package/SquotFileTestHistorian.class/instance/version..st +++ /dev/null @@ -1,6 +0,0 @@ -Pur historian -version: aVersion - aVersion ifNil: [^ self delete]. - self file writeStreamDo: - [:stream | - stream nextPutAll: aVersion internalId]. \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestHistorian.class/instance/version.st b/src/Squot.package/SquotFileTestHistorian.class/instance/version.st deleted file mode 100644 index fb587e986..000000000 --- a/src/Squot.package/SquotFileTestHistorian.class/instance/version.st +++ /dev/null @@ -1,5 +0,0 @@ -Pur historian -version - ^ repository - versionNamed: self versionName - ifAbsent: [] \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestHistorian.class/instance/versionName.st b/src/Squot.package/SquotFileTestHistorian.class/instance/versionName.st deleted file mode 100644 index 060a3e3b2..000000000 --- a/src/Squot.package/SquotFileTestHistorian.class/instance/versionName.st +++ /dev/null @@ -1,4 +0,0 @@ -private -versionName - ^ [self file contents asString] - on: FileDoesNotExist do: [:e | e return: nil] \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestHistorian.class/methodProperties.json b/src/Squot.package/SquotFileTestHistorian.class/methodProperties.json deleted file mode 100644 index 1da081fc0..000000000 --- a/src/Squot.package/SquotFileTestHistorian.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - "named:in:" : "jr 3/16/2019 17:44" }, - "instance" : { - "delete" : "jr 3/16/2019 17:48", - "file" : "jr 3/16/2019 17:48", - "name" : "jr 3/16/2019 17:42", - "name:" : "jr 3/16/2019 17:44", - "repository" : "jr 3/16/2019 17:42", - "repository:" : "jr 3/16/2019 17:45", - "version" : "jr 3/16/2019 17:51", - "version:" : "jr 11/27/2022 18:59", - "versionName" : "jr 3/16/2019 17:53" } } diff --git a/src/Squot.package/SquotFileTestHistorian.class/properties.json b/src/Squot.package/SquotFileTestHistorian.class/properties.json deleted file mode 100644 index cd16d1acf..000000000 --- a/src/Squot.package/SquotFileTestHistorian.class/properties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "category" : "Squot-Tests-Files", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotLocalHistorian classTrait", - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "repository", - "name" ], - "name" : "SquotFileTestHistorian", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotLocalHistorian", - "type" : "normal" } diff --git a/src/Squot.package/SquotFileTestRepository.class/README.md b/src/Squot.package/SquotFileTestRepository.class/README.md deleted file mode 100644 index 53584844d..000000000 --- a/src/Squot.package/SquotFileTestRepository.class/README.md +++ /dev/null @@ -1,15 +0,0 @@ -A simple repository that uses the SquotFileSystemStore to store version's snapshots. - -Related classes involved in the implementation: SquotFileTestHistorian, SquotFileTestVersion. - -The following directory structure is created: - -/ historians - / file containing the version number referred to by historian -/ versions - / directory that holds information about the version with number - the number is the internalId of the version - message contains the version log message - author contains the name of the version author - parents contains the numbers of the parent versions, each on one line - tree directory that contains the snapshot of the version, the store is used here \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestRepository.class/instance/activateDuring..st b/src/Squot.package/SquotFileTestRepository.class/instance/activateDuring..st deleted file mode 100644 index e4673d31e..000000000 --- a/src/Squot.package/SquotFileTestRepository.class/instance/activateDuring..st +++ /dev/null @@ -1,4 +0,0 @@ -unit of work -activateDuring: aBlock - "No special facitilities for units of work." - ^ aBlock value \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestRepository.class/instance/copySettingsFrom.to..st b/src/Squot.package/SquotFileTestRepository.class/instance/copySettingsFrom.to..st deleted file mode 100644 index 6c4f0fadd..000000000 --- a/src/Squot.package/SquotFileTestRepository.class/instance/copySettingsFrom.to..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot repository -copySettingsFrom: anArtifact to: newTrackedObjectMetadata - SquotFileSystemStore copySettingsFrom: anArtifact to: newTrackedObjectMetadata. \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestRepository.class/instance/createNewVersion.with..st b/src/Squot.package/SquotFileTestRepository.class/instance/createNewVersion.with..st deleted file mode 100644 index f0628f57a..000000000 --- a/src/Squot.package/SquotFileTestRepository.class/instance/createNewVersion.with..st +++ /dev/null @@ -1,15 +0,0 @@ -Squot repository -createNewVersion: aSnapshot with: aBlock - "Build a new version with aSnapshot as its snapshot and supply the new version or a - builder object for it to aBlock, during which additional properties can be set up. - When aBlock returns here, store the new version permanently." - | newId newVersion | - newId := (({0}, (self versionsDirectory entries collect: [:each | each basename asInteger])) - sort; last) + 1. - newVersion := SquotFileTestVersion named: newId asString in: self. - newVersion - ensureDirectory; - timestamp: DateAndTime now. - aBlock value: newVersion. - newVersion store: aSnapshot. - ^ newVersion \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestRepository.class/instance/createNewVersionFromPatch.with..st b/src/Squot.package/SquotFileTestRepository.class/instance/createNewVersionFromPatch.with..st deleted file mode 100644 index b9758b304..000000000 --- a/src/Squot.package/SquotFileTestRepository.class/instance/createNewVersionFromPatch.with..st +++ /dev/null @@ -1,8 +0,0 @@ -Squot repository -createNewVersionFromPatch: aPatch with: aBlock - | newId newVersion newSnapshot | - newId := ({0}, (self versionsDirectory entries collect: [:each | each basename asInteger])) max + 1. - newVersion := SquotFileTestVersion named: newId asString in: self. - aBlock value: newVersion. - newSnapshot := newVersion storeTreeAndApply: aPatch. - ^ SquotMemoizingVersion version: newVersion snapshot: newSnapshot \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestRepository.class/instance/delete..st b/src/Squot.package/SquotFileTestRepository.class/instance/delete..st deleted file mode 100644 index 8cfcdfde8..000000000 --- a/src/Squot.package/SquotFileTestRepository.class/instance/delete..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot repository -delete: aSquotFileTestHistorian - aSquotFileTestHistorian delete. \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestRepository.class/instance/historianDirectory.st b/src/Squot.package/SquotFileTestRepository.class/instance/historianDirectory.st deleted file mode 100644 index a9fcf0ac1..000000000 --- a/src/Squot.package/SquotFileTestRepository.class/instance/historianDirectory.st +++ /dev/null @@ -1,3 +0,0 @@ -Squot repository -historianDirectory. - ^ (directory / 'historians') ensureDirectory \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestRepository.class/instance/historianNamed..st b/src/Squot.package/SquotFileTestRepository.class/instance/historianNamed..st deleted file mode 100644 index adbc929d7..000000000 --- a/src/Squot.package/SquotFileTestRepository.class/instance/historianNamed..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot repository -historianNamed: aString - ^ SquotFileTestHistorian named: aString in: self \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestRepository.class/instance/historians.st b/src/Squot.package/SquotFileTestRepository.class/instance/historians.st deleted file mode 100644 index f6567e040..000000000 --- a/src/Squot.package/SquotFileTestRepository.class/instance/historians.st +++ /dev/null @@ -1,8 +0,0 @@ -Squot repository -historians - | historians | - historians := self historianDirectory entries collect: - [:each | self historianNamed: each basename]. - historians ifEmpty: - [^ Array with: (self historianNamed: 'master')]. - ^ historians \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestRepository.class/instance/initializeInDirectory..st b/src/Squot.package/SquotFileTestRepository.class/instance/initializeInDirectory..st deleted file mode 100644 index b7979dcd2..000000000 --- a/src/Squot.package/SquotFileTestRepository.class/instance/initializeInDirectory..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot repository -initializeInDirectory: aDirectoryReference - directory := aDirectoryReference. \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestRepository.class/instance/initializeStoreInfo.forObject..st b/src/Squot.package/SquotFileTestRepository.class/instance/initializeStoreInfo.forObject..st deleted file mode 100644 index a847b3877..000000000 --- a/src/Squot.package/SquotFileTestRepository.class/instance/initializeStoreInfo.forObject..st +++ /dev/null @@ -1,3 +0,0 @@ -adding and removing -initializeStoreInfo: aTrackedObjectMetadata forObject: aShadow - ^ SquotFileSystemStore initializeStoreInfo: aTrackedObjectMetadata forObject: aShadow \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestRepository.class/instance/versionNamed.ifAbsent..st b/src/Squot.package/SquotFileTestRepository.class/instance/versionNamed.ifAbsent..st deleted file mode 100644 index b953f981b..000000000 --- a/src/Squot.package/SquotFileTestRepository.class/instance/versionNamed.ifAbsent..st +++ /dev/null @@ -1,7 +0,0 @@ -Squot repository -versionNamed: aString ifAbsent: aBlock - | version | - ^ (version := SquotFileTestVersion named: aString in: self) - exists - ifTrue: [version] - ifFalse: [aBlock value] \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestRepository.class/instance/versionsDirectory.st b/src/Squot.package/SquotFileTestRepository.class/instance/versionsDirectory.st deleted file mode 100644 index be441cd34..000000000 --- a/src/Squot.package/SquotFileTestRepository.class/instance/versionsDirectory.st +++ /dev/null @@ -1,3 +0,0 @@ -private -versionsDirectory - ^ (directory / 'versions') ensureDirectory \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestRepository.class/methodProperties.json b/src/Squot.package/SquotFileTestRepository.class/methodProperties.json deleted file mode 100644 index 1aad162d3..000000000 --- a/src/Squot.package/SquotFileTestRepository.class/methodProperties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "activateDuring:" : "jr 8/8/2020 17:56", - "copySettingsFrom:to:" : "jr 5/27/2022 23:14", - "createNewVersion:with:" : "jr 8/27/2020 00:22", - "createNewVersionFromPatch:with:" : "jr 1/3/2021 21:07", - "delete:" : "jr 3/16/2019 17:46", - "historianDirectory" : "jr 3/16/2019 17:39", - "historianNamed:" : "jr 3/16/2019 17:41", - "historians" : "jr 3/16/2019 17:45", - "initializeInDirectory:" : "jr 3/16/2019 17:33", - "initializeStoreInfo:forObject:" : "jr 5/28/2022 12:03", - "versionNamed:ifAbsent:" : "jr 3/16/2019 17:55", - "versionsDirectory" : "jr 3/16/2019 17:57" } } diff --git a/src/Squot.package/SquotFileTestRepository.class/properties.json b/src/Squot.package/SquotFileTestRepository.class/properties.json deleted file mode 100644 index c99c66b8d..000000000 --- a/src/Squot.package/SquotFileTestRepository.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Tests-Files", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotLocalRepository classTrait + TSquotUnitOfWork classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 3/16/2019 19:56", - "instvars" : [ - "directory" ], - "name" : "SquotFileTestRepository", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotLocalRepository + TSquotUnitOfWork", - "type" : "normal" } diff --git a/src/Squot.package/SquotFileTestRepositoryTest.class/README.md b/src/Squot.package/SquotFileTestRepositoryTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotFileTestRepositoryTest.class/instance/setUp.st b/src/Squot.package/SquotFileTestRepositoryTest.class/instance/setUp.st deleted file mode 100644 index e95affe0d..000000000 --- a/src/Squot.package/SquotFileTestRepositoryTest.class/instance/setUp.st +++ /dev/null @@ -1,3 +0,0 @@ -running -setUp - repository := SquotFileTestRepository new initializeInDirectory: FileSystem memory root. \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestRepositoryTest.class/instance/testPathValidation.st b/src/Squot.package/SquotFileTestRepositoryTest.class/instance/testPathValidation.st deleted file mode 100644 index 8330b8f4e..000000000 --- a/src/Squot.package/SquotFileTestRepositoryTest.class/instance/testPathValidation.st +++ /dev/null @@ -1,20 +0,0 @@ -tests -testPathValidation - "Should rewrite paths using the serializers." - | storeInfo | - storeInfo := SquotTrackedObjectMetadata new. - storeInfo at: #path put: ''. - repository initializeStoreInfo: storeInfo forObject: - (MCSnapshot empty asSquotArtifactForPackage: - (PackageInfo new packageName: 'Squit-Tests-DoesNotExist')) content. - self assert: 'Squit-Tests-DoesNotExist.package' equals: (storeInfo at: #path). - storeInfo at: #path put: 'src'. - repository initializeStoreInfo: storeInfo forObject: - (MCSnapshot empty asSquotArtifactForPackage: - (PackageInfo new packageName: 'Squit-Tests-DoesNotExist')) content. - self assert: 'src/Squit-Tests-DoesNotExist.package' equals: (storeInfo at: #path). - storeInfo at: #path put: 'Squit-Tests-DoesNotExist.package'. - repository initializeStoreInfo: storeInfo forObject: - (MCSnapshot empty asSquotArtifactForPackage: - (PackageInfo new packageName: 'Squit-Tests-DoesNotExist')) content. - self assert: 'Squit-Tests-DoesNotExist.package' equals: (storeInfo at: #path). \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestRepositoryTest.class/methodProperties.json b/src/Squot.package/SquotFileTestRepositoryTest.class/methodProperties.json deleted file mode 100644 index 03edcb621..000000000 --- a/src/Squot.package/SquotFileTestRepositoryTest.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "setUp" : "jr 12/2/2019 23:06", - "testPathValidation" : "jr 5/28/2022 00:18" } } diff --git a/src/Squot.package/SquotFileTestRepositoryTest.class/properties.json b/src/Squot.package/SquotFileTestRepositoryTest.class/properties.json deleted file mode 100644 index 55c0330ba..000000000 --- a/src/Squot.package/SquotFileTestRepositoryTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Files", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "repository" ], - "name" : "SquotFileTestRepositoryTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotFileTestRepositoryWorkingCopyTest.class/README.md b/src/Squot.package/SquotFileTestRepositoryWorkingCopyTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotFileTestRepositoryWorkingCopyTest.class/methodProperties.json b/src/Squot.package/SquotFileTestRepositoryWorkingCopyTest.class/methodProperties.json deleted file mode 100644 index 0e4a66223..000000000 --- a/src/Squot.package/SquotFileTestRepositoryWorkingCopyTest.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - } } diff --git a/src/Squot.package/SquotFileTestRepositoryWorkingCopyTest.class/properties.json b/src/Squot.package/SquotFileTestRepositoryWorkingCopyTest.class/properties.json deleted file mode 100644 index 0ec3a8d15..000000000 --- a/src/Squot.package/SquotFileTestRepositoryWorkingCopyTest.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Tests-Files", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotWorkingCopyTestWithFileBasedRepository classTrait", - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotFileTestRepositoryWorkingCopyTest", - "pools" : [ - ], - "super" : "SquotWorkingCopyTest", - "traitcomposition" : "TSquotWorkingCopyTestWithFileBasedRepository", - "type" : "normal" } diff --git a/src/Squot.package/SquotFileTestVersion.class/README.md b/src/Squot.package/SquotFileTestVersion.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotFileTestVersion.class/class/named.in..st b/src/Squot.package/SquotFileTestVersion.class/class/named.in..st deleted file mode 100644 index 45c89e425..000000000 --- a/src/Squot.package/SquotFileTestVersion.class/class/named.in..st +++ /dev/null @@ -1,6 +0,0 @@ -instance creation -named: aString in: aSquotFileTestRepository - ^ self new - internalId: aString; - repository: aSquotFileTestRepository; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestVersion.class/instance/^equals.st b/src/Squot.package/SquotFileTestVersion.class/instance/^equals.st deleted file mode 100644 index 27dbe357f..000000000 --- a/src/Squot.package/SquotFileTestVersion.class/instance/^equals.st +++ /dev/null @@ -1,5 +0,0 @@ -comparing -= anObject - ^ [anObject internalId = self internalId] - on: MessageNotUnderstood do: - [:e | e receiver == anObject ifTrue: [^ false] ifFalse: [e pass]] \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestVersion.class/instance/author..st b/src/Squot.package/SquotFileTestVersion.class/instance/author..st deleted file mode 100644 index 67892ae5e..000000000 --- a/src/Squot.package/SquotFileTestVersion.class/instance/author..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -author: aString - self directory ensureDirectory / 'author' writeStreamDo: - [:stream | - stream nextPutAll: aString]. \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestVersion.class/instance/author.st b/src/Squot.package/SquotFileTestVersion.class/instance/author.st deleted file mode 100644 index 548389362..000000000 --- a/src/Squot.package/SquotFileTestVersion.class/instance/author.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -author - self exists ifFalse: [^ self error: 'Cannot read author']. - ^ (self directory / 'author') contents \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestVersion.class/instance/copyTreeTo..st b/src/Squot.package/SquotFileTestVersion.class/instance/copyTreeTo..st deleted file mode 100644 index 86015f0b8..000000000 --- a/src/Squot.package/SquotFileTestVersion.class/instance/copyTreeTo..st +++ /dev/null @@ -1,3 +0,0 @@ -private -copyTreeTo: aDirectory - self snapshotDirectory copyAllTo: aDirectory. \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestVersion.class/instance/directory.st b/src/Squot.package/SquotFileTestVersion.class/instance/directory.st deleted file mode 100644 index 3769960d8..000000000 --- a/src/Squot.package/SquotFileTestVersion.class/instance/directory.st +++ /dev/null @@ -1,3 +0,0 @@ -private -directory - ^ repository versionsDirectory / internalId \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestVersion.class/instance/ensureDirectory.st b/src/Squot.package/SquotFileTestVersion.class/instance/ensureDirectory.st deleted file mode 100644 index 3285b37a5..000000000 --- a/src/Squot.package/SquotFileTestVersion.class/instance/ensureDirectory.st +++ /dev/null @@ -1,3 +0,0 @@ -private -ensureDirectory - self directory ensureDirectory. \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestVersion.class/instance/exists.st b/src/Squot.package/SquotFileTestVersion.class/instance/exists.st deleted file mode 100644 index 82ef42827..000000000 --- a/src/Squot.package/SquotFileTestVersion.class/instance/exists.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -exists - internalId ifNil: [^ false]. - ^ (repository versionsDirectory / internalId) isDirectory \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestVersion.class/instance/internalId..st b/src/Squot.package/SquotFileTestVersion.class/instance/internalId..st deleted file mode 100644 index e10c3e7cd..000000000 --- a/src/Squot.package/SquotFileTestVersion.class/instance/internalId..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -internalId: aString - internalId := aString. \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestVersion.class/instance/internalId.st b/src/Squot.package/SquotFileTestVersion.class/instance/internalId.st deleted file mode 100644 index 57f9e878d..000000000 --- a/src/Squot.package/SquotFileTestVersion.class/instance/internalId.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -internalId - ^ internalId \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestVersion.class/instance/message..st b/src/Squot.package/SquotFileTestVersion.class/instance/message..st deleted file mode 100644 index c8013b7bb..000000000 --- a/src/Squot.package/SquotFileTestVersion.class/instance/message..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -message: aString - self directory ensureDirectory / 'message' writeStreamDo: - [:stream | - stream nextPutAll: aString] \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestVersion.class/instance/message.st b/src/Squot.package/SquotFileTestVersion.class/instance/message.st deleted file mode 100644 index ccc3ac596..000000000 --- a/src/Squot.package/SquotFileTestVersion.class/instance/message.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -message - ^ [(self directory / 'message') contents asString] - on: FileDoesNotExist do: [:e | e return: ''] \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestVersion.class/instance/parents..st b/src/Squot.package/SquotFileTestVersion.class/instance/parents..st deleted file mode 100644 index 1ea29d277..000000000 --- a/src/Squot.package/SquotFileTestVersion.class/instance/parents..st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -parents: aCollection - self directory ensureDirectory / 'parents' writeStreamDo: - [:stream | - aCollection do: - [:each | stream nextPutAll: each internalId; cr]]. \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestVersion.class/instance/parents.st b/src/Squot.package/SquotFileTestVersion.class/instance/parents.st deleted file mode 100644 index 4a6bdf6d1..000000000 --- a/src/Squot.package/SquotFileTestVersion.class/instance/parents.st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -parents - ^ (([(self directory / 'parents') contents] - on: FileDoesNotExist do: [:e | e return: #()]) - lines collect: [:each | repository versionNamed: each ifAbsent: []]) - reject: [:each | each isNil] \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestVersion.class/instance/repository..st b/src/Squot.package/SquotFileTestVersion.class/instance/repository..st deleted file mode 100644 index 0770f6b0f..000000000 --- a/src/Squot.package/SquotFileTestVersion.class/instance/repository..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -repository: aSquotFileTestRepository - repository := aSquotFileTestRepository. \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestVersion.class/instance/snapshot.st b/src/Squot.package/SquotFileTestVersion.class/instance/snapshot.st deleted file mode 100644 index cb3ec436a..000000000 --- a/src/Squot.package/SquotFileTestVersion.class/instance/snapshot.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -snapshot - | store | - store := SquotFileSystemStore inDirectory: self directory / 'tree'. - ^ store captureLazySnapshot \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestVersion.class/instance/snapshotDirectory.st b/src/Squot.package/SquotFileTestVersion.class/instance/snapshotDirectory.st deleted file mode 100644 index 1330d2c45..000000000 --- a/src/Squot.package/SquotFileTestVersion.class/instance/snapshotDirectory.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -snapshotDirectory - ^ self directory / 'tree' \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestVersion.class/instance/store..st b/src/Squot.package/SquotFileTestVersion.class/instance/store..st deleted file mode 100644 index cca42c08b..000000000 --- a/src/Squot.package/SquotFileTestVersion.class/instance/store..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -store: aSnapshot - | store | - store := SquotFileSystemStore inDirectory: (self directory / 'tree') ensureDirectory. - store restoreToSnapshot: aSnapshot. \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestVersion.class/instance/storeTreeAndApply..st b/src/Squot.package/SquotFileTestVersion.class/instance/storeTreeAndApply..st deleted file mode 100644 index 21337003b..000000000 --- a/src/Squot.package/SquotFileTestVersion.class/instance/storeTreeAndApply..st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -storeTreeAndApply: aSquotPatch - | store | - self parents ifNotEmpty: [:parents | parents first copyTreeTo: self directory / 'tree']. - store := SquotFileSystemStore inDirectory: (self directory / 'tree') ensureDirectory. - ^ store applyPatch: aSquotPatch \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestVersion.class/instance/timestamp..st b/src/Squot.package/SquotFileTestVersion.class/instance/timestamp..st deleted file mode 100644 index 4123ef3d2..000000000 --- a/src/Squot.package/SquotFileTestVersion.class/instance/timestamp..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -timestamp: aDateAndTime - (self directory / 'timestamp') writeStreamDo: - [:stream | - stream truncate; nextPutAll: aDateAndTime printString]. \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestVersion.class/instance/timestamp.st b/src/Squot.package/SquotFileTestVersion.class/instance/timestamp.st deleted file mode 100644 index cfe5c8da3..000000000 --- a/src/Squot.package/SquotFileTestVersion.class/instance/timestamp.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -timestamp - self exists ifFalse: [^ self error: 'Cannot read timestamp']. - ^ (self directory / 'timestamp') contents asDateAndTime \ No newline at end of file diff --git a/src/Squot.package/SquotFileTestVersion.class/methodProperties.json b/src/Squot.package/SquotFileTestVersion.class/methodProperties.json deleted file mode 100644 index a3d163286..000000000 --- a/src/Squot.package/SquotFileTestVersion.class/methodProperties.json +++ /dev/null @@ -1,24 +0,0 @@ -{ - "class" : { - "named:in:" : "jr 3/16/2019 17:56" }, - "instance" : { - "=" : "jr 1/2/2021 17:17", - "author" : "jr 2/1/2020 00:32", - "author:" : "jr 3/16/2019 18:11", - "copyTreeTo:" : "jr 3/17/2019 00:23", - "directory" : "jr 3/16/2019 18:05", - "ensureDirectory" : "jr 8/27/2020 00:20", - "exists" : "jr 3/16/2019 17:57", - "internalId" : "jr 3/16/2019 18:03", - "internalId:" : "jr 3/16/2019 17:56", - "message" : "jr 3/16/2019 18:07", - "message:" : "jr 3/16/2019 18:09", - "parents" : "jr 3/16/2019 18:28", - "parents:" : "jr 3/16/2019 18:10", - "repository:" : "jr 3/16/2019 17:56", - "snapshot" : "jr 3/16/2019 18:26", - "snapshotDirectory" : "jr 3/17/2019 00:23", - "store:" : "jr 3/16/2019 18:44", - "storeTreeAndApply:" : "jr 1/2/2021 17:21", - "timestamp" : "jr 8/25/2020 19:09", - "timestamp:" : "jr 8/25/2020 19:10" } } diff --git a/src/Squot.package/SquotFileTestVersion.class/properties.json b/src/Squot.package/SquotFileTestVersion.class/properties.json deleted file mode 100644 index 40d1fd199..000000000 --- a/src/Squot.package/SquotFileTestVersion.class/properties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "category" : "Squot-Tests-Files", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotVersion classTrait", - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "repository", - "internalId" ], - "name" : "SquotFileTestVersion", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotVersion", - "type" : "normal" } diff --git a/src/Squot.package/SquotGUI.class/README.md b/src/Squot.package/SquotGUI.class/README.md deleted file mode 100644 index 1645076d0..000000000 --- a/src/Squot.package/SquotGUI.class/README.md +++ /dev/null @@ -1,3 +0,0 @@ -Common GUI facilities used by multiple classes in Squit-UI. See class methods. - -I register myself as the default SquotProgressOutput. \ No newline at end of file diff --git a/src/Squot.package/SquotGUI.class/class/buttonBarHeight.st b/src/Squot.package/SquotGUI.class/class/buttonBarHeight.st deleted file mode 100644 index b5c688088..000000000 --- a/src/Squot.package/SquotGUI.class/class/buttonBarHeight.st +++ /dev/null @@ -1,4 +0,0 @@ -layout -buttonBarHeight - ^ [ToolBuilder default buttonRowHeight] - on: MessageNotUnderstood do: [:e | e return: Preferences standardButtonFont height * 5/2] \ No newline at end of file diff --git a/src/Squot.package/SquotGUI.class/class/buttonWidthForText..st b/src/Squot.package/SquotGUI.class/class/buttonWidthForText..st deleted file mode 100644 index 3ddbfb10f..000000000 --- a/src/Squot.package/SquotGUI.class/class/buttonWidthForText..st +++ /dev/null @@ -1,3 +0,0 @@ -layout -buttonWidthForText: aStringOrText - ^ (TextStyle defaultFont widthOfStringOrText: aStringOrText) + (20 * RealEstateAgent scaleFactor) \ No newline at end of file diff --git a/src/Squot.package/SquotGUI.class/class/chooseDirectory..st b/src/Squot.package/SquotGUI.class/class/chooseDirectory..st deleted file mode 100644 index 21eec8a18..000000000 --- a/src/Squot.package/SquotGUI.class/class/chooseDirectory..st +++ /dev/null @@ -1,3 +0,0 @@ -user interface -chooseDirectory: aString - ^ self runInUiProcess: [UIManager default chooseDirectory: aString] \ No newline at end of file diff --git a/src/Squot.package/SquotGUI.class/class/chooseDirectory.from..st b/src/Squot.package/SquotGUI.class/class/chooseDirectory.from..st deleted file mode 100644 index 65e31e2a1..000000000 --- a/src/Squot.package/SquotGUI.class/class/chooseDirectory.from..st +++ /dev/null @@ -1,3 +0,0 @@ -user interface -chooseDirectory: aString from: aDirectory - ^ self runInUiProcess: [UIManager default chooseDirectory: aString from: aDirectory] \ No newline at end of file diff --git a/src/Squot.package/SquotGUI.class/class/chooseFrom.values.title..st b/src/Squot.package/SquotGUI.class/class/chooseFrom.values.title..st deleted file mode 100644 index 63344807a..000000000 --- a/src/Squot.package/SquotGUI.class/class/chooseFrom.values.title..st +++ /dev/null @@ -1,3 +0,0 @@ -user interface -chooseFrom: labelsCollection values: valuesCollection title: aString - ^ self runInUiProcess: [UIManager default chooseFrom: labelsCollection values: valuesCollection title: aString] \ No newline at end of file diff --git a/src/Squot.package/SquotGUI.class/class/chooseMultipleFrom.values.title..st b/src/Squot.package/SquotGUI.class/class/chooseMultipleFrom.values.title..st deleted file mode 100644 index 3f20cf2a1..000000000 --- a/src/Squot.package/SquotGUI.class/class/chooseMultipleFrom.values.title..st +++ /dev/null @@ -1,3 +0,0 @@ -user interface -chooseMultipleFrom: labelsCollection values: valuesCollection title: aString - ^ self runInUiProcess: [UIManager default chooseMultipleFrom: labelsCollection values: valuesCollection title: aString] \ No newline at end of file diff --git a/src/Squot.package/SquotGUI.class/class/chooseOptionFrom.values.title..st b/src/Squot.package/SquotGUI.class/class/chooseOptionFrom.values.title..st deleted file mode 100644 index 42081d3bc..000000000 --- a/src/Squot.package/SquotGUI.class/class/chooseOptionFrom.values.title..st +++ /dev/null @@ -1,6 +0,0 @@ -user interface -chooseOptionFrom: labelsCollection values: valuesCollection title: aString - ^ self runInUiProcess: [ - (UIManager default respondsTo: #chooseOptionFrom:values:title:) - ifTrue: [UIManager default chooseOptionFrom: labelsCollection values: valuesCollection title: aString] - ifFalse: ["< ToolBuilder-Kernel-tpr.157" UIManager default chooseFrom: labelsCollection values: valuesCollection title: aString]] \ No newline at end of file diff --git a/src/Squot.package/SquotGUI.class/class/confirm..st b/src/Squot.package/SquotGUI.class/class/confirm..st deleted file mode 100644 index c17a8de9d..000000000 --- a/src/Squot.package/SquotGUI.class/class/confirm..st +++ /dev/null @@ -1,3 +0,0 @@ -user interface -confirm: aString - ^ self runInUiProcess: [super confirm: aString] \ No newline at end of file diff --git a/src/Squot.package/SquotGUI.class/class/confirm.trueChoice.falseChoice..st b/src/Squot.package/SquotGUI.class/class/confirm.trueChoice.falseChoice..st deleted file mode 100644 index 8f931e2d0..000000000 --- a/src/Squot.package/SquotGUI.class/class/confirm.trueChoice.falseChoice..st +++ /dev/null @@ -1,3 +0,0 @@ -user interface -confirm: aString trueChoice: trueLabelString falseChoice: falseLabelString - ^ self runInUiProcess: [UIManager default confirm: aString trueChoice: trueLabelString falseChoice: falseLabelString] \ No newline at end of file diff --git a/src/Squot.package/SquotGUI.class/class/displayProgress.during..st b/src/Squot.package/SquotGUI.class/class/displayProgress.during..st deleted file mode 100644 index 168580fb3..000000000 --- a/src/Squot.package/SquotGUI.class/class/displayProgress.during..st +++ /dev/null @@ -1,3 +0,0 @@ -progress output -displayProgress: aString during: aBlock - ^ aString displaySequentialProgress: aBlock \ No newline at end of file diff --git a/src/Squot.package/SquotGUI.class/class/displayProgress.for.do..st b/src/Squot.package/SquotGUI.class/class/displayProgress.for.do..st deleted file mode 100644 index 24176a29f..000000000 --- a/src/Squot.package/SquotGUI.class/class/displayProgress.for.do..st +++ /dev/null @@ -1,3 +0,0 @@ -progress output -displayProgress: aStringOrBlock for: aCollection do: aBlock - ^ aCollection do: aBlock displayingProgress: aStringOrBlock \ No newline at end of file diff --git a/src/Squot.package/SquotGUI.class/class/displayStatus.during..st b/src/Squot.package/SquotGUI.class/class/displayStatus.during..st deleted file mode 100644 index f4a71d3d3..000000000 --- a/src/Squot.package/SquotGUI.class/class/displayStatus.during..st +++ /dev/null @@ -1,3 +0,0 @@ -progress output -displayStatus: aString during: aBlock - ^ UIManager default informUser: aString during: aBlock \ No newline at end of file diff --git a/src/Squot.package/SquotGUI.class/class/inform..st b/src/Squot.package/SquotGUI.class/class/inform..st deleted file mode 100644 index 237a9c64e..000000000 --- a/src/Squot.package/SquotGUI.class/class/inform..st +++ /dev/null @@ -1,3 +0,0 @@ -user interface -inform: aString - self runInUiProcess: [super inform: aString]. \ No newline at end of file diff --git a/src/Squot.package/SquotGUI.class/class/initialize.st b/src/Squot.package/SquotGUI.class/class/initialize.st deleted file mode 100644 index 0a2e7411a..000000000 --- a/src/Squot.package/SquotGUI.class/class/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -class initialization -initialize - "self initialize" - SquotProgressOutput default: self. diff --git a/src/Squot.package/SquotGUI.class/class/inputFieldHeight.st b/src/Squot.package/SquotGUI.class/class/inputFieldHeight.st deleted file mode 100644 index 5cdb7ad90..000000000 --- a/src/Squot.package/SquotGUI.class/class/inputFieldHeight.st +++ /dev/null @@ -1,4 +0,0 @@ -layout -inputFieldHeight - ^ [ToolBuilder default inputFieldHeight] - on: MessageNotUnderstood do: [:e | e return: Preferences standardDefaultTextFont height * 3/2] \ No newline at end of file diff --git a/src/Squot.package/SquotGUI.class/class/inputFieldHeightFor..st b/src/Squot.package/SquotGUI.class/class/inputFieldHeightFor..st deleted file mode 100644 index 51e8c04cb..000000000 --- a/src/Squot.package/SquotGUI.class/class/inputFieldHeightFor..st +++ /dev/null @@ -1,4 +0,0 @@ -layout -inputFieldHeightFor: numberOfLines - ^ [ToolBuilder default inputFieldHeightFor: numberOfLines] - on: MessageNotUnderstood do: [:e | e return: Preferences standardDefaultTextFont height * 3/2 * numberOfLines] \ No newline at end of file diff --git a/src/Squot.package/SquotGUI.class/class/listHeightFor..st b/src/Squot.package/SquotGUI.class/class/listHeightFor..st deleted file mode 100644 index 8968c2e49..000000000 --- a/src/Squot.package/SquotGUI.class/class/listHeightFor..st +++ /dev/null @@ -1,4 +0,0 @@ -layout -listHeightFor: anInteger - ^ [ToolBuilder default listHeightFor: anInteger] - on: MessageNotUnderstood do: [:e | e return: Preferences standardListFont height * anInteger] \ No newline at end of file diff --git a/src/Squot.package/SquotGUI.class/class/request..st b/src/Squot.package/SquotGUI.class/class/request..st deleted file mode 100644 index aaba316af..000000000 --- a/src/Squot.package/SquotGUI.class/class/request..st +++ /dev/null @@ -1,3 +0,0 @@ -user interface -request: aString - ^ self runInUiProcess: [UIManager default request: aString] \ No newline at end of file diff --git a/src/Squot.package/SquotGUI.class/class/request.initialAnswer..st b/src/Squot.package/SquotGUI.class/class/request.initialAnswer..st deleted file mode 100644 index 50d56c34d..000000000 --- a/src/Squot.package/SquotGUI.class/class/request.initialAnswer..st +++ /dev/null @@ -1,3 +0,0 @@ -user interface -request: aString initialAnswer: anObject - ^ self runInUiProcess: [UIManager default request: aString initialAnswer: anObject] \ No newline at end of file diff --git a/src/Squot.package/SquotGUI.class/class/requestPassword..st b/src/Squot.package/SquotGUI.class/class/requestPassword..st deleted file mode 100644 index 29d9c932f..000000000 --- a/src/Squot.package/SquotGUI.class/class/requestPassword..st +++ /dev/null @@ -1,3 +0,0 @@ -user interface -requestPassword: aString - ^ self runInUiProcess: [UIManager default requestPassword: aString] \ No newline at end of file diff --git a/src/Squot.package/SquotGUI.class/class/runInUiProcess..st b/src/Squot.package/SquotGUI.class/class/runInUiProcess..st deleted file mode 100644 index a38b1341b..000000000 --- a/src/Squot.package/SquotGUI.class/class/runInUiProcess..st +++ /dev/null @@ -1,11 +0,0 @@ -private -runInUiProcess: aBlock - "Make sure the dialog is run in the UI process." - | uiCompleted answer | - Project uiProcess isActiveProcess ifTrue: [^ aBlock value]. - uiCompleted := Semaphore new. - Project current addDeferredUIMessage: - [answer := aBlock value. - uiCompleted signal]. - uiCompleted wait. - ^ answer \ No newline at end of file diff --git a/src/Squot.package/SquotGUI.class/class/updateProgress.text..st b/src/Squot.package/SquotGUI.class/class/updateProgress.text..st deleted file mode 100644 index 0b6432c12..000000000 --- a/src/Squot.package/SquotGUI.class/class/updateProgress.text..st +++ /dev/null @@ -1,3 +0,0 @@ -progress output -updateProgress: aNumber text: aString - ^ ProgressNotification signal: aNumber extra: aString \ No newline at end of file diff --git a/src/Squot.package/SquotGUI.class/class/waitFor..st b/src/Squot.package/SquotGUI.class/class/waitFor..st deleted file mode 100644 index 245a584ba..000000000 --- a/src/Squot.package/SquotGUI.class/class/waitFor..st +++ /dev/null @@ -1,36 +0,0 @@ -user interface -waitFor: aWaitable - "If this is run by the UI process, spawn a new UI process. When the waitable is signalled, terminate the new UI process and reinstante the process that ran this method as the UI process. This leaves the current project in control how the UI loop must be done (rather than duplicating and dictating that here.) Inspired by InstallerSqueakMap>>#update." - | answer exception oldUiProcess newUiProcess waitingProcess done | - Project uiProcess isActiveProcess ifFalse: [^ aWaitable wait]. - oldUiProcess := Processor activeProcess. - done := Semaphore new. - Project current spawnNewProcess. - "Start another process that waits in the background, then reinstantes oldProcess as UI process. The oldProcess waits until all of this is over. The reason for a third process is that oldProcess must be suspended temporarily before it can be reinstated in Project class>>resumeProcess:." - waitingProcess := - [[[answer := aWaitable wait] - on: BrokenPromise do: - [:bp | bp ifError: [:error | exception := error. bp return] ifNotError: [bp pass]] - on: Error do: - [:e | exception := e. e return]] - ensure: - [| canContinue | - newUiProcess := Project current uiProcess. - (oldUiProcess ~~ newUiProcess and: [oldUiProcess notNil and: [oldUiProcess isTerminated not]]) ifTrue: - [canContinue := Semaphore new. - "Let new UI process complete its last cycle." - Project current addDeferredUIMessage: - [canContinue signal. - newUiProcess terminate]. - canContinue wait. - Project current uiProcess: oldUiProcess]. - done signal]] - newProcess. - waitingProcess resume. - done wait. - self - assert: newUiProcess isTerminated description: 'Second UI Process not terminated'; - assert: Project uiProcess == oldUiProcess description: 'Original UI process not reinstantiated'; - assert: Project uiProcess isActiveProcess description: 'Not running in the UI process'. - exception ifNotNil: [exception signal "using the current exception environment"]. - ^ answer \ No newline at end of file diff --git a/src/Squot.package/SquotGUI.class/methodProperties.json b/src/Squot.package/SquotGUI.class/methodProperties.json deleted file mode 100644 index 58b1e5cf6..000000000 --- a/src/Squot.package/SquotGUI.class/methodProperties.json +++ /dev/null @@ -1,27 +0,0 @@ -{ - "class" : { - "buttonBarHeight" : "jr 2/20/2022 11:54", - "buttonWidthForText:" : "jr 2/20/2022 11:23", - "chooseDirectory:" : "jr 7/24/2020 10:11", - "chooseDirectory:from:" : "jr 8/8/2020 01:05", - "chooseFrom:values:title:" : "jr 7/24/2020 09:59", - "chooseMultipleFrom:values:title:" : "jr 8/7/2020 21:42", - "chooseOptionFrom:values:title:" : "ct 6/12/2022 21:16", - "confirm:" : "jr 7/24/2020 10:12", - "confirm:trueChoice:falseChoice:" : "jr 7/24/2020 10:13", - "displayProgress:during:" : "jr 9/13/2020 21:43", - "displayProgress:for:do:" : "jr 9/13/2020 22:16", - "displayStatus:during:" : "jr 9/13/2020 21:58", - "inform:" : "jr 7/24/2020 09:59", - "initialize" : "jr 9/13/2020 21:40", - "inputFieldHeight" : "jr 2/20/2022 12:06", - "inputFieldHeightFor:" : "jr 3/13/2022 11:26", - "listHeightFor:" : "jr 2/20/2022 11:57", - "request:" : "jr 7/24/2020 10:15", - "request:initialAnswer:" : "jr 7/24/2020 10:02", - "requestPassword:" : "jr 7/24/2020 10:04", - "runInUiProcess:" : "jr 7/24/2020 09:59", - "updateProgress:text:" : "jr 9/13/2020 18:23", - "waitFor:" : "jr 6/18/2022 17:24" }, - "instance" : { - } } diff --git a/src/Squot.package/SquotGUI.class/properties.json b/src/Squot.package/SquotGUI.class/properties.json deleted file mode 100644 index c59739793..000000000 --- a/src/Squot.package/SquotGUI.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tools", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 9/13/2020 21:46", - "instvars" : [ - ], - "name" : "SquotGUI", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotGenericDiffSnippet.class/README.md b/src/Squot.package/SquotGenericDiffSnippet.class/README.md deleted file mode 100644 index 2e0dac734..000000000 --- a/src/Squot.package/SquotGenericDiffSnippet.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A Squot adapter for DiffPatch snippets (which are Associations of sequence changes) from the "DiffMerge" package. Currently assumes that the diffed SequenceableCollection is a String and that the differences can, thus, be displayed as a text diff. \ No newline at end of file diff --git a/src/Squot.package/SquotGenericDiffSnippet.class/instance/asStringOrText.st b/src/Squot.package/SquotGenericDiffSnippet.class/instance/asStringOrText.st deleted file mode 100644 index 3fe419c8a..000000000 --- a/src/Squot.package/SquotGenericDiffSnippet.class/instance/asStringOrText.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -asStringOrText - ^ TextDiffBuilder buildDisplayPatchFrom: key to: value \ No newline at end of file diff --git a/src/Squot.package/SquotGenericDiffSnippet.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotGenericDiffSnippet.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index 408228c47..000000000 --- a/src/Squot.package/SquotGenericDiffSnippet.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -squotChangeAsStringOrText - ^ TextDiffBuilder buildDisplayPatchFrom: key to: value \ No newline at end of file diff --git a/src/Squot.package/SquotGenericDiffSnippet.class/methodProperties.json b/src/Squot.package/SquotGenericDiffSnippet.class/methodProperties.json deleted file mode 100644 index 81ec342a6..000000000 --- a/src/Squot.package/SquotGenericDiffSnippet.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "asStringOrText" : "jr 6/12/2017 17:45", - "squotChangeAsStringOrText" : "jr 6/12/2017 17:46" } } diff --git a/src/Squot.package/SquotGenericDiffSnippet.class/properties.json b/src/Squot.package/SquotGenericDiffSnippet.class/properties.json deleted file mode 100644 index bafdab64a..000000000 --- a/src/Squot.package/SquotGenericDiffSnippet.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tools-Support", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 14:14", - "instvars" : [ - ], - "name" : "SquotGenericDiffSnippet", - "pools" : [ - ], - "super" : "Association", - "type" : "normal" } diff --git a/src/Squot.package/SquotGraph.class/README.md b/src/Squot.package/SquotGraph.class/README.md deleted file mode 100644 index b2846c339..000000000 --- a/src/Squot.package/SquotGraph.class/README.md +++ /dev/null @@ -1,3 +0,0 @@ -A directed graph of vertices (nodes) and weighted edges (relations of vertices). Weighted means that the same edge can appear multiple times in the graph. - -Implemented as an adjacency list in the instance variable "edges". The outgoing edges of a node are stored at the same index as the occurrence of the node in the instance variable "nodes". Each edge is an association of the target node and the weight (number of occurrences) of the edge. \ No newline at end of file diff --git a/src/Squot.package/SquotGraph.class/class/nodes..st b/src/Squot.package/SquotGraph.class/class/nodes..st deleted file mode 100644 index 062643e0b..000000000 --- a/src/Squot.package/SquotGraph.class/class/nodes..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -nodes: aCollection - ^ self new - setNodes: aCollection; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotGraph.class/instance/decreaseEdgesFromTotalOrdering..st b/src/Squot.package/SquotGraph.class/instance/decreaseEdgesFromTotalOrdering..st deleted file mode 100644 index b27a029ce..000000000 --- a/src/Squot.package/SquotGraph.class/instance/decreaseEdgesFromTotalOrdering..st +++ /dev/null @@ -1,13 +0,0 @@ -adding and removing -decreaseEdgesFromTotalOrdering: aSequenceableCollection - "Treat each successor relation in the collection of nodes as an edge, but decrease that edge in the graph." - aSequenceableCollection withIndexDo: - [:each :i | - "decrease successors" - aSequenceableCollection from: i + 1 to: aSequenceableCollection size do: - [:successor | | assoc | - assoc := (edges at: (index at: each)) detect: [:edge | edge key = successor] ifNone: []. - assoc ifNotNil: - [assoc value = 1 - ifTrue: [(edges at: (index at: each)) remove: assoc] - ifFalse: [assoc value: assoc value - 1]]]]. \ No newline at end of file diff --git a/src/Squot.package/SquotGraph.class/instance/increaseEdgesFromTotalOrdering..st b/src/Squot.package/SquotGraph.class/instance/increaseEdgesFromTotalOrdering..st deleted file mode 100644 index fb30fef91..000000000 --- a/src/Squot.package/SquotGraph.class/instance/increaseEdgesFromTotalOrdering..st +++ /dev/null @@ -1,10 +0,0 @@ -adding and removing -increaseEdgesFromTotalOrdering: aSequenceableCollection - "Treat each successor relation in the collection of nodes as an edge." - aSequenceableCollection withIndexDo: - [:each :i | - "add or increase successors" - aSequenceableCollection from: i + 1 to: aSequenceableCollection size do: - [:successor | | assoc | - assoc := (edges at: (index at: each)) detect: [:edge | edge key = successor] ifNone: [(edges at: (index at: each)) add: successor -> 0]. - assoc value: assoc value + 1]]. \ No newline at end of file diff --git a/src/Squot.package/SquotGraph.class/instance/initializeEdgesFromTotalOrdering..st b/src/Squot.package/SquotGraph.class/instance/initializeEdgesFromTotalOrdering..st deleted file mode 100644 index 483f8e70e..000000000 --- a/src/Squot.package/SquotGraph.class/instance/initializeEdgesFromTotalOrdering..st +++ /dev/null @@ -1,8 +0,0 @@ -adding and removing -initializeEdgesFromTotalOrdering: aSequenceableCollection - "Treat each successor relation in the collection of nodes as an edge." - aSequenceableCollection withIndexDo: - [:each :i | - "add successors" - aSequenceableCollection from: i + 1 to: aSequenceableCollection size do: - [:successor | (edges at: (index at: each)) add: successor -> 1]]. \ No newline at end of file diff --git a/src/Squot.package/SquotGraph.class/instance/setNodes..st b/src/Squot.package/SquotGraph.class/instance/setNodes..st deleted file mode 100644 index 3d4fee2fa..000000000 --- a/src/Squot.package/SquotGraph.class/instance/setNodes..st +++ /dev/null @@ -1,6 +0,0 @@ -initialize-release -setNodes: aCollection - nodes := aCollection asArray. - index := Dictionary new. - nodes withIndexDo: [:each :i | index at: each put: i]. - edges := nodes collect: [:each | OrderedCollection new]. \ No newline at end of file diff --git a/src/Squot.package/SquotGraph.class/instance/topologicalOrderIfNone..st b/src/Squot.package/SquotGraph.class/instance/topologicalOrderIfNone..st deleted file mode 100644 index a01ed6ba7..000000000 --- a/src/Squot.package/SquotGraph.class/instance/topologicalOrderIfNone..st +++ /dev/null @@ -1,34 +0,0 @@ -sorting -topologicalOrderIfNone: aBlock - | visited output inOutput onPath search | - "Return topological order of nodes&edges, or find a cycle and turn it into a conflict." - visited := nodes collect: [:each | false]. - output := OrderedCollection new. - inOutput := nodes collect: [:each | false]. - onPath := nodes collect: [:each | false]. "for cycle detection" - search := OrderedCollection withAll: nodes. - [search isEmpty] whileFalse: - [ | current | current := search removeLast. - current == #output - ifTrue: - [current := search removeLast. - output add: current. "came back after the children". - inOutput at: (index at: current) put: true. - onPath at: (index at: current) put: false] - ifFalse: - [(inOutput at: (index at: current)) ifFalse: - [visited at: (index at: current) put: true. - (onPath at: (index at: current)) ifTrue: - ["Abort, no tological order because there is a cycle." - | cyclePath | cyclePath := OrderedCollection new. - search overlappingPairsDo: [:a :b | b == #output ifTrue: [cyclePath add: a]]. - cyclePath add: cyclePath first. - ^ aBlock cull: cyclePath]. - (edges at: (index at: current)) - ifEmpty: [search add: current; add: #output "come back for output"] - ifNotEmpty: - [:new | - onPath at: (index at: current) put: true. - search add: current; add: #output; "come back later" - addAll: (new collect: [:each | each key])]]]]. - ^ output reverseInPlace \ No newline at end of file diff --git a/src/Squot.package/SquotGraph.class/methodProperties.json b/src/Squot.package/SquotGraph.class/methodProperties.json deleted file mode 100644 index 5f2ba2bb3..000000000 --- a/src/Squot.package/SquotGraph.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - "nodes:" : "jr 10/31/2020 15:38" }, - "instance" : { - "decreaseEdgesFromTotalOrdering:" : "jr 10/31/2020 15:45", - "increaseEdgesFromTotalOrdering:" : "jr 10/31/2020 15:44", - "initializeEdgesFromTotalOrdering:" : "jr 10/31/2020 15:42", - "setNodes:" : "jr 10/31/2020 15:39", - "topologicalOrderIfNone:" : "jr 10/31/2020 15:48" } } diff --git a/src/Squot.package/SquotGraph.class/properties.json b/src/Squot.package/SquotGraph.class/properties.json deleted file mode 100644 index a9240ed1e..000000000 --- a/src/Squot.package/SquotGraph.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Internal", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 10/31/2020 16:03", - "instvars" : [ - "nodes", - "index", - "edges" ], - "name" : "SquotGraph", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotGraphComparisonWalk.class/README.md b/src/Squot.package/SquotGraphComparisonWalk.class/README.md deleted file mode 100644 index 32d9db0d7..000000000 --- a/src/Squot.package/SquotGraphComparisonWalk.class/README.md +++ /dev/null @@ -1,7 +0,0 @@ -I iterate over two graphs of objects and point out the differences. - -When two objects can supposedly transformed into each other, I iterate over their references and provide the pairs of values to my client. My client is then supposed to compute the diff of the pair of values. - -When two objects supposedly cannot be transformed into each other, because, for example, their classes are different, I report this to the client. - -I am also able to walk along objects that are not present on the left side of the comparison. The left object will be reported as nil to my client then. Walking along added objects is necessary because added objects might (indirectly) refer to existing objects again. These existing objects might not be reachable from any other existing objects, but nevertheless they must be walked by, such that my client may compute their differences. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphComparisonWalk.class/instance/addLeft.right.reachedVia..st b/src/Squot.package/SquotGraphComparisonWalk.class/instance/addLeft.right.reachedVia..st deleted file mode 100644 index cbacf11fa..000000000 --- a/src/Squot.package/SquotGraphComparisonWalk.class/instance/addLeft.right.reachedVia..st +++ /dev/null @@ -1,15 +0,0 @@ -enumerating -addLeft: nextLeft right: nextRight reachedVia: aReference - "Enqueue the pair of nextLeft and nextRight to the walk. Answer the not-yet-initialized diff between nextLeft and nextRight." - "The mirror for nextLeft can be missing if nextRight is now closer to the start object than before." - | diff | - (mirrors includesKey: nextLeft undecorated) ifFalse: - ["Workaround: use the mirror for nextRight. Since both are supposed to be editions of the same object, they should be of the same kind and so it should be no problem to use the same mirror for them." - mirrors at: nextLeft undecorated put: (mirrors at: nextRight undecorated)]. - self assert: (mirrors includesKey: nextLeft undecorated); - assert: (mirrors includesKey: nextRight undecorated). - walk - add: {nextLeft. nextRight} - reachedVia: aReference. - diff := (mirrors at: nextLeft undecorated) newDiffFrom: nextLeft to: nextRight. - ^ diff \ No newline at end of file diff --git a/src/Squot.package/SquotGraphComparisonWalk.class/instance/addNewObject.reachedVia..st b/src/Squot.package/SquotGraphComparisonWalk.class/instance/addNewObject.reachedVia..st deleted file mode 100644 index 6b4413d35..000000000 --- a/src/Squot.package/SquotGraphComparisonWalk.class/instance/addNewObject.reachedVia..st +++ /dev/null @@ -1,5 +0,0 @@ -enumerating -addNewObject: anObject reachedVia: aReference - walk - add: {nil. anObject} - reachedVia: aReference. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphComparisonWalk.class/instance/checkPathsTo.ifMultiple..st b/src/Squot.package/SquotGraphComparisonWalk.class/instance/checkPathsTo.ifMultiple..st deleted file mode 100644 index beec99efd..000000000 --- a/src/Squot.package/SquotGraphComparisonWalk.class/instance/checkPathsTo.ifMultiple..st +++ /dev/null @@ -1,3 +0,0 @@ -enumerating -checkPathsTo: anObject ifMultiple: aBlock - walk checkPathsTo: anObject ifMultiple: [aBlock value]. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphComparisonWalk.class/instance/do..st b/src/Squot.package/SquotGraphComparisonWalk.class/instance/do..st deleted file mode 100644 index f3b665394..000000000 --- a/src/Squot.package/SquotGraphComparisonWalk.class/instance/do..st +++ /dev/null @@ -1,14 +0,0 @@ -enumerating -do: aBlock - walk do: - [:each | - each first ~= each second ifTrue: - [| referrers path | - referrers := walk currentReferrer. - path := walk currentPath. - aBlock valueWithArguments: - {each first. - each second. - referrers ifNotNil: [referrers first]. - referrers ifNotNil: [referrers second]. - path}]]. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphComparisonWalk.class/instance/followReferencesOf.and.ifDifferentShape.ifFromBoth.ifOnlyLeft.ifOnlyRight..st b/src/Squot.package/SquotGraphComparisonWalk.class/instance/followReferencesOf.and.ifDifferentShape.ifFromBoth.ifOnlyLeft.ifOnlyRight..st deleted file mode 100644 index 129e65729..000000000 --- a/src/Squot.package/SquotGraphComparisonWalk.class/instance/followReferencesOf.and.ifDifferentShape.ifFromBoth.ifOnlyLeft.ifOnlyRight..st +++ /dev/null @@ -1,27 +0,0 @@ -enumerating -followReferencesOf: left and: right ifDifferentShape: replacementBlock ifFromBoth: commonRefBlock ifOnlyLeft: removalBlock ifOnlyRight: additionBlock - | leftReflected rightReflected | - leftReflected := SquotObjectReflection object: left mirror: (mirrors at: left undecorated). - rightReflected := SquotObjectReflection object: right mirror: (mirrors at: right undecorated). - ((leftReflected isComparableTo: rightReflected) not - or: [leftReflected canHaveReferences not - or: [rightReflected canHaveReferences not]]) - ifTrue: [replacementBlock value] - ifFalse: - [(leftReflected references intersection: rightReflected references) do: - [:each | | nextLeft nextRight | - nextLeft := leftReflected reflect: each. - nextRight := rightReflected reflect: each. - mirrors at: nextLeft undecorated put: (leftReflected nextMirror: each); - at: nextRight undecorated put: (rightReflected nextMirror: each). - commonRefBlock value: nextLeft value: nextRight value: (walk currentPath copyWith: each)]. - (leftReflected references copyWithoutAll: rightReflected references) do: - [:each | | oldTarget | - oldTarget := leftReflected reflect: each. - mirrors at: oldTarget undecorated put: (leftReflected nextMirror: each). - removalBlock value: oldTarget value: (walk currentPath copyWith: each)]. - (rightReflected references copyWithoutAll: leftReflected references) do: - [:each | | newTarget | - newTarget := rightReflected reflect: each. - mirrors at: newTarget undecorated put: (rightReflected nextMirror: each). - additionBlock value: newTarget value: (walk currentPath copyWith: each)]] \ No newline at end of file diff --git a/src/Squot.package/SquotGraphComparisonWalk.class/instance/followReferencesOfNewObject.do..st b/src/Squot.package/SquotGraphComparisonWalk.class/instance/followReferencesOfNewObject.do..st deleted file mode 100644 index cc4f793a9..000000000 --- a/src/Squot.package/SquotGraphComparisonWalk.class/instance/followReferencesOfNewObject.do..st +++ /dev/null @@ -1,9 +0,0 @@ -enumerating -followReferencesOfNewObject: anObject do: aBlock - | reflected | - reflected := SquotObjectReflection object: anObject mirror: (mirrors at: anObject undecorated). - reflected references do: - [:each | | newTarget | - newTarget := reflected reflect: each. - mirrors at: newTarget undecorated put: (reflected nextMirror: each). - aBlock value: newTarget value: (walk currentPath copyWith: each)]. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphComparisonWalk.class/instance/initialize.st b/src/Squot.package/SquotGraphComparisonWalk.class/instance/initialize.st deleted file mode 100644 index 4b945cb82..000000000 --- a/src/Squot.package/SquotGraphComparisonWalk.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initialize - walk := SquotGraphWalk new. - mirrors := IdentityDictionary new. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphComparisonWalk.class/instance/newObjectsDo.existingObjectsPairsDo..st b/src/Squot.package/SquotGraphComparisonWalk.class/instance/newObjectsDo.existingObjectsPairsDo..st deleted file mode 100644 index 80df1a8c3..000000000 --- a/src/Squot.package/SquotGraphComparisonWalk.class/instance/newObjectsDo.existingObjectsPairsDo..st +++ /dev/null @@ -1,7 +0,0 @@ -enumerating -newObjectsDo: newBlock existingObjectsPairsDo: compareBlock - self do: - [:leftShadow :rightShadow :leftReferrer :rightReferrer :path | - leftShadow - ifNil: [newBlock value: rightShadow value: rightReferrer value: path] - ifNotNil: [compareBlock valueWithArguments: {leftShadow. rightShadow. leftReferrer. rightReferrer. path}]] \ No newline at end of file diff --git a/src/Squot.package/SquotGraphComparisonWalk.class/instance/startFrom.and..st b/src/Squot.package/SquotGraphComparisonWalk.class/instance/startFrom.and..st deleted file mode 100644 index 09f98a206..000000000 --- a/src/Squot.package/SquotGraphComparisonWalk.class/instance/startFrom.and..st +++ /dev/null @@ -1,8 +0,0 @@ -initialize-release -startFrom: leftObject and: rightObject - | diff | - walk addFirst: {leftObject. rightObject}. - mirrors at: leftObject undecorated put: (thisContext objectClass: leftObject undecorated) squotMirror. - mirrors at: rightObject undecorated put: (thisContext objectClass: rightObject undecorated) squotMirror. - diff := (mirrors at: leftObject undecorated) newDiffFrom: leftObject to: rightObject. - ^ diff diff --git a/src/Squot.package/SquotGraphComparisonWalk.class/methodProperties.json b/src/Squot.package/SquotGraphComparisonWalk.class/methodProperties.json deleted file mode 100644 index 57b0b50ab..000000000 --- a/src/Squot.package/SquotGraphComparisonWalk.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "addLeft:right:reachedVia:" : "jr 8/8/2021 16:53", - "addNewObject:reachedVia:" : "jr 7/18/2021 16:19", - "checkPathsTo:ifMultiple:" : "jr 7/18/2021 17:05", - "do:" : "jr 7/25/2021 21:10", - "followReferencesOf:and:ifDifferentShape:ifFromBoth:ifOnlyLeft:ifOnlyRight:" : "jr 7/18/2021 22:10", - "followReferencesOfNewObject:do:" : "jr 7/18/2021 20:20", - "initialize" : "jr 4/8/2021 13:25", - "newObjectsDo:existingObjectsPairsDo:" : "jr 7/25/2021 21:11", - "startFrom:and:" : "jr 7/30/2021 19:15" } } diff --git a/src/Squot.package/SquotGraphComparisonWalk.class/properties.json b/src/Squot.package/SquotGraphComparisonWalk.class/properties.json deleted file mode 100644 index 4fb372756..000000000 --- a/src/Squot.package/SquotGraphComparisonWalk.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-Diffs", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 7/25/2021 17:57", - "instvars" : [ - "walk", - "mirrors" ], - "name" : "SquotGraphComparisonWalk", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotGraphElementWithName.class/README.md b/src/Squot.package/SquotGraphElementWithName.class/README.md deleted file mode 100644 index b06cd85e4..000000000 --- a/src/Squot.package/SquotGraphElementWithName.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am the reference to an object that has a certain id in a graph. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphElementWithName.class/class/name..st b/src/Squot.package/SquotGraphElementWithName.class/class/name..st deleted file mode 100644 index f12f2863b..000000000 --- a/src/Squot.package/SquotGraphElementWithName.class/class/name..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -name: name - ^ self new setName: name; yourself \ No newline at end of file diff --git a/src/Squot.package/SquotGraphElementWithName.class/instance/asDiffTreeStringOrText.st b/src/Squot.package/SquotGraphElementWithName.class/instance/asDiffTreeStringOrText.st deleted file mode 100644 index 4f8969304..000000000 --- a/src/Squot.package/SquotGraphElementWithName.class/instance/asDiffTreeStringOrText.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -asDiffTreeStringOrText - ^ 'object ', name printString \ No newline at end of file diff --git a/src/Squot.package/SquotGraphElementWithName.class/instance/newNameFragment.st b/src/Squot.package/SquotGraphElementWithName.class/instance/newNameFragment.st deleted file mode 100644 index 5a167e738..000000000 --- a/src/Squot.package/SquotGraphElementWithName.class/instance/newNameFragment.st +++ /dev/null @@ -1,5 +0,0 @@ -capturing -newNameFragment - "Answer a String to put into the non-identifying part of an object name." - - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/SquotGraphElementWithName.class/instance/reflect.in..st b/src/Squot.package/SquotGraphElementWithName.class/instance/reflect.in..st deleted file mode 100644 index f81002aa9..000000000 --- a/src/Squot.package/SquotGraphElementWithName.class/instance/reflect.in..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflect: aGraph in: aMirror - ^ aMirror reflectGraphElementWithName: name in: aGraph \ No newline at end of file diff --git a/src/Squot.package/SquotGraphElementWithName.class/instance/reflect.in.put..st b/src/Squot.package/SquotGraphElementWithName.class/instance/reflect.in.put..st deleted file mode 100644 index 86464566e..000000000 --- a/src/Squot.package/SquotGraphElementWithName.class/instance/reflect.in.put..st +++ /dev/null @@ -1,5 +0,0 @@ -reflection -reflect: anObject in: aMirror put: newValue - "Replace the value of this reference in anObject." - - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/SquotGraphElementWithName.class/instance/setName..st b/src/Squot.package/SquotGraphElementWithName.class/instance/setName..st deleted file mode 100644 index afb3b9236..000000000 --- a/src/Squot.package/SquotGraphElementWithName.class/instance/setName..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -setName: newName - name := newName. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphElementWithName.class/methodProperties.json b/src/Squot.package/SquotGraphElementWithName.class/methodProperties.json deleted file mode 100644 index 297616b39..000000000 --- a/src/Squot.package/SquotGraphElementWithName.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - "name:" : "jr 9/10/2021 22:10" }, - "instance" : { - "asDiffTreeStringOrText" : "jr 1/16/2022 21:32", - "newNameFragment" : "jr 9/10/2021 22:07", - "reflect:in:" : "jr 9/10/2021 22:09", - "reflect:in:put:" : "jr 9/10/2021 22:07", - "setName:" : "jr 9/10/2021 22:09" } } diff --git a/src/Squot.package/SquotGraphElementWithName.class/properties.json b/src/Squot.package/SquotGraphElementWithName.class/properties.json deleted file mode 100644 index 5e1301b42..000000000 --- a/src/Squot.package/SquotGraphElementWithName.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 9/10/2021 23:51", - "instvars" : [ - "name" ], - "name" : "SquotGraphElementWithName", - "pools" : [ - ], - "super" : "SquotReference", - "type" : "normal" } diff --git a/src/Squot.package/SquotGraphMergeMock.class/README.md b/src/Squot.package/SquotGraphMergeMock.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotGraphMergeMock.class/class/resolvedPatch..st b/src/Squot.package/SquotGraphMergeMock.class/class/resolvedPatch..st deleted file mode 100644 index 0414d32a6..000000000 --- a/src/Squot.package/SquotGraphMergeMock.class/class/resolvedPatch..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -resolvedPatch: aDiffOrMock - ^ self new - setResolvedPatch: aDiffOrMock; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotGraphMergeMock.class/instance/asSquotHierarchicalDiff.st b/src/Squot.package/SquotGraphMergeMock.class/instance/asSquotHierarchicalDiff.st deleted file mode 100644 index 8bdcb1634..000000000 --- a/src/Squot.package/SquotGraphMergeMock.class/instance/asSquotHierarchicalDiff.st +++ /dev/null @@ -1,9 +0,0 @@ -*Squot-Tools -asSquotHierarchicalDiff - ^ {SquotMergeDiffNode - title: 'Merge object graph' - content: self - children: #() - onInclude: [choice := #incoming] - onExclude: [choice := #working] - onReset: [choice := nil]} \ No newline at end of file diff --git a/src/Squot.package/SquotGraphMergeMock.class/instance/hasChanges..st b/src/Squot.package/SquotGraphMergeMock.class/instance/hasChanges..st deleted file mode 100644 index 41eea73df..000000000 --- a/src/Squot.package/SquotGraphMergeMock.class/instance/hasChanges..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -hasChanges: anObject - - hasChanges := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphMergeMock.class/instance/hasChanges.st b/src/Squot.package/SquotGraphMergeMock.class/instance/hasChanges.st deleted file mode 100644 index 2c59c172c..000000000 --- a/src/Squot.package/SquotGraphMergeMock.class/instance/hasChanges.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -hasChanges - - ^ hasChanges \ No newline at end of file diff --git a/src/Squot.package/SquotGraphMergeMock.class/instance/hasConflicts.st b/src/Squot.package/SquotGraphMergeMock.class/instance/hasConflicts.st deleted file mode 100644 index 7de88bea3..000000000 --- a/src/Squot.package/SquotGraphMergeMock.class/instance/hasConflicts.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasConflicts - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotGraphMergeMock.class/instance/initialize.st b/src/Squot.package/SquotGraphMergeMock.class/instance/initialize.st deleted file mode 100644 index 03aa2ca5a..000000000 --- a/src/Squot.package/SquotGraphMergeMock.class/instance/initialize.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -initialize - hasChanges := true. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphMergeMock.class/instance/resolvedPatch.st b/src/Squot.package/SquotGraphMergeMock.class/instance/resolvedPatch.st deleted file mode 100644 index 13f4bbc6f..000000000 --- a/src/Squot.package/SquotGraphMergeMock.class/instance/resolvedPatch.st +++ /dev/null @@ -1,3 +0,0 @@ -merging -resolvedPatch - ^ patch \ No newline at end of file diff --git a/src/Squot.package/SquotGraphMergeMock.class/instance/setResolvedPatch..st b/src/Squot.package/SquotGraphMergeMock.class/instance/setResolvedPatch..st deleted file mode 100644 index c41c42ee3..000000000 --- a/src/Squot.package/SquotGraphMergeMock.class/instance/setResolvedPatch..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -setResolvedPatch: aDiffOrMock - patch := aDiffOrMock. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphMergeMock.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotGraphMergeMock.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index 18a095e90..000000000 --- a/src/Squot.package/SquotGraphMergeMock.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotChangeAsStringOrText - ^ 'this is a mock' \ No newline at end of file diff --git a/src/Squot.package/SquotGraphMergeMock.class/methodProperties.json b/src/Squot.package/SquotGraphMergeMock.class/methodProperties.json deleted file mode 100644 index fc917a11e..000000000 --- a/src/Squot.package/SquotGraphMergeMock.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - "resolvedPatch:" : "jr 11/18/2020 18:22" }, - "instance" : { - "asSquotHierarchicalDiff" : "jr 11/18/2020 18:24", - "hasChanges" : "jr 7/29/2019 23:58", - "hasChanges:" : "jr 7/29/2019 23:58", - "hasConflicts" : "jr 11/18/2020 18:23", - "initialize" : "jr 11/18/2020 18:19", - "resolvedPatch" : "jr 11/18/2020 18:22", - "setResolvedPatch:" : "jr 11/18/2020 18:22", - "squotChangeAsStringOrText" : "jr 11/19/2020 18:10" } } diff --git a/src/Squot.package/SquotGraphMergeMock.class/properties.json b/src/Squot.package/SquotGraphMergeMock.class/properties.json deleted file mode 100644 index 98d4a7979..000000000 --- a/src/Squot.package/SquotGraphMergeMock.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Tests-Merging", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "hasChanges", - "patch", - "choice" ], - "name" : "SquotGraphMergeMock", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotGraphMergeWalk.class/README.md b/src/Squot.package/SquotGraphMergeWalk.class/README.md deleted file mode 100644 index d0db0ee2a..000000000 --- a/src/Squot.package/SquotGraphMergeWalk.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I iterate over two graphs of objects and point out how to merge them based on a third graph. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphMergeWalk.class/class/startingFrom.and.basedOn..st b/src/Squot.package/SquotGraphMergeWalk.class/class/startingFrom.and.basedOn..st deleted file mode 100644 index b20a7418b..000000000 --- a/src/Squot.package/SquotGraphMergeWalk.class/class/startingFrom.and.basedOn..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -startingFrom: working and: incoming basedOn: base - ^ self new - startFrom: working and: incoming basedOn: base; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotGraphMergeWalk.class/instance/do..st b/src/Squot.package/SquotGraphMergeWalk.class/instance/do..st deleted file mode 100644 index 1edbc5fbb..000000000 --- a/src/Squot.package/SquotGraphMergeWalk.class/instance/do..st +++ /dev/null @@ -1,11 +0,0 @@ -enumerating -do: aBlock - walk do: - [:each | - each first ~= each second ifTrue: - [ | referrers | - latestWorking := each first. - latestIncoming := each second. - latestBase := each third. - referrers := walk currentReferrer. - aBlock valueWithArguments: each, (referrers ifNotNil: [referrers] ifNil: [#(nil nil nil)])]]. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphMergeWalk.class/instance/followCommonReferencesIfAdditionsConflict..st b/src/Squot.package/SquotGraphMergeWalk.class/instance/followCommonReferencesIfAdditionsConflict..st deleted file mode 100644 index d39cbba69..000000000 --- a/src/Squot.package/SquotGraphMergeWalk.class/instance/followCommonReferencesIfAdditionsConflict..st +++ /dev/null @@ -1,23 +0,0 @@ -private -followCommonReferencesIfAdditionsConflict: additionConflictBlock - | nextWorking nextIncoming nextBase | - (workingReflected references intersection: incomingReflected references) do: - [:each | - (baseReflected references includes: each) - ifTrue: - [walk add: {nextWorking := workingReflected reflect: each. - nextIncoming := incomingReflected reflect: each. - nextBase := baseReflected reflect: each} - reachedVia: each. - mirrors at: nextWorking put: (workingReflected nextMirror: each); - at: nextIncoming put: (incomingReflected nextMirror: each); - at: nextBase put: (baseReflected nextMirror: each)] - ifFalse: - ["Would have to go into detail with the differences here and each of them would be conflicts" - (workingReflected reflect: each) = (incomingReflected reflect: each) - ifTrue: ["in agreement"] - ifFalse: - [additionConflictBlock - value: (workingReflected reflect: each) - value: (incomingReflected reflect: each) - value: (walk currentPath copyWith: each)]]]. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphMergeWalk.class/instance/followReferencesIfReplaced.ifReplacedDifferently.ifRemoved.ifWorkingChanged.ifIncomingChanged.ifAdded.ifAddedDifferently.ifAlreadyVisited..st b/src/Squot.package/SquotGraphMergeWalk.class/instance/followReferencesIfReplaced.ifReplacedDifferently.ifRemoved.ifWorkingChanged.ifIncomingChanged.ifAdded.ifAddedDifferently.ifAlreadyVisited..st deleted file mode 100644 index 7c56331c0..000000000 --- a/src/Squot.package/SquotGraphMergeWalk.class/instance/followReferencesIfReplaced.ifReplacedDifferently.ifRemoved.ifWorkingChanged.ifIncomingChanged.ifAdded.ifAddedDifferently.ifAlreadyVisited..st +++ /dev/null @@ -1,21 +0,0 @@ -enumerating -followReferencesIfReplaced: opaqueReplacementBlock ifReplacedDifferently: opaqueConflictBlock ifRemoved: removalBlock ifWorkingChanged: incomingRemovalConflictBlock ifIncomingChanged: workingRemovalConflictBlock ifAdded: additionBlock ifAddedDifferently: additionConflictBlock ifAlreadyVisited: multiPathBlock - workingReflected := incomingReflected := baseReflected := nil. - workingReflected := SquotObjectReflection object: latestWorking mirror: (mirrors at: latestWorking). - incomingReflected := SquotObjectReflection object: latestIncoming mirror: (mirrors at: latestIncoming). - baseReflected := SquotObjectReflection object: latestBase mirror: (mirrors at: latestBase). - ((workingReflected isComparableTo: incomingReflected) not - or: - [workingReflected references isEmpty - and: [incomingReflected references isEmpty]]) - ifTrue: - [latestBase = latestWorking - ifTrue: [opaqueReplacementBlock value: walk currentPath] - ifFalse: [opaqueConflictBlock value: walk currentPath]] - ifFalse: - [walk - checkPathsTo: latestWorking ifMultiple: [multiPathBlock value]; - checkPathsTo: latestIncoming ifMultiple: [multiPathBlock value]. - self followCommonReferencesIfAdditionsConflict: additionConflictBlock. - self followReferencesNotInIncoming: removalBlock ifChangedInWorking: incomingRemovalConflictBlock. - self followReferencesNotInWorking: additionBlock ifChangedInIncoming: workingRemovalConflictBlock]. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphMergeWalk.class/instance/followReferencesNotInIncoming.ifChangedInWorking..st b/src/Squot.package/SquotGraphMergeWalk.class/instance/followReferencesNotInIncoming.ifChangedInWorking..st deleted file mode 100644 index c947fc142..000000000 --- a/src/Squot.package/SquotGraphMergeWalk.class/instance/followReferencesNotInIncoming.ifChangedInWorking..st +++ /dev/null @@ -1,14 +0,0 @@ -private -followReferencesNotInIncoming: removalBlock ifChangedInWorking: incomingRemovalConflictBlock - (workingReflected references copyWithoutAll: incomingReflected references) do: - [:each | - (baseReflected references includes: each) - ifFalse: ["leave added"] - ifTrue: - [(baseReflected reflect: each) = (workingReflected reflect: each) - ifTrue: [removalBlock value: (workingReflected reflect: each) value: (walk currentPath copyWith: each)] - ifFalse: - [incomingRemovalConflictBlock - value: (workingReflected reflect: each) - value: (baseReflected reflect: each) - value: (walk currentPath copyWith: each)]]]. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphMergeWalk.class/instance/followReferencesNotInWorking.ifChangedInIncoming..st b/src/Squot.package/SquotGraphMergeWalk.class/instance/followReferencesNotInWorking.ifChangedInIncoming..st deleted file mode 100644 index 0ad8b180a..000000000 --- a/src/Squot.package/SquotGraphMergeWalk.class/instance/followReferencesNotInWorking.ifChangedInIncoming..st +++ /dev/null @@ -1,14 +0,0 @@ -private -followReferencesNotInWorking: additionBlock ifChangedInIncoming: workingRemovalConflictBlock - (incomingReflected references copyWithoutAll: workingReflected references) do: - [:each | - (baseReflected references includes: each) - ifTrue: - [(baseReflected reflect: each) = (incomingReflected reflect: each) - ifTrue: ["leave removed"] - ifFalse: - [workingRemovalConflictBlock - value: (incomingReflected reflect: each) - value: (baseReflected reflect: each) - value: (walk currentPath copyWith: each)]] - ifFalse: [additionBlock value: (incomingReflected reflect: each) value: (walk currentPath copyWith: each)]]. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphMergeWalk.class/instance/initialize.st b/src/Squot.package/SquotGraphMergeWalk.class/instance/initialize.st deleted file mode 100644 index 4b945cb82..000000000 --- a/src/Squot.package/SquotGraphMergeWalk.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initialize - walk := SquotGraphWalk new. - mirrors := IdentityDictionary new. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphMergeWalk.class/instance/startFrom.and.basedOn..st b/src/Squot.package/SquotGraphMergeWalk.class/instance/startFrom.and.basedOn..st deleted file mode 100644 index 476c68d71..000000000 --- a/src/Squot.package/SquotGraphMergeWalk.class/instance/startFrom.and.basedOn..st +++ /dev/null @@ -1,6 +0,0 @@ -initialize-release -startFrom: working and: incoming basedOn: base - walk addFirst: {working. incoming. base}. - mirrors at: working put: (thisContext objectClass: working) squotMirror. - mirrors at: incoming put: (thisContext objectClass: incoming) squotMirror. - mirrors at: base put: (thisContext objectClass: base) squotMirror. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphMergeWalk.class/methodProperties.json b/src/Squot.package/SquotGraphMergeWalk.class/methodProperties.json deleted file mode 100644 index 071d6fffd..000000000 --- a/src/Squot.package/SquotGraphMergeWalk.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - "startingFrom:and:basedOn:" : "jr 12/20/2020 22:22" }, - "instance" : { - "do:" : "jr 1/9/2021 19:39", - "followCommonReferencesIfAdditionsConflict:" : "jr 4/8/2021 13:59", - "followReferencesIfReplaced:ifReplacedDifferently:ifRemoved:ifWorkingChanged:ifIncomingChanged:ifAdded:ifAddedDifferently:ifAlreadyVisited:" : "jr 4/8/2021 13:57", - "followReferencesNotInIncoming:ifChangedInWorking:" : "jr 12/21/2020 00:42", - "followReferencesNotInWorking:ifChangedInIncoming:" : "jr 12/21/2020 00:43", - "initialize" : "jr 4/8/2021 13:54", - "startFrom:and:basedOn:" : "jr 4/8/2021 13:53" } } diff --git a/src/Squot.package/SquotGraphMergeWalk.class/properties.json b/src/Squot.package/SquotGraphMergeWalk.class/properties.json deleted file mode 100644 index 6e326ff6d..000000000 --- a/src/Squot.package/SquotGraphMergeWalk.class/properties.json +++ /dev/null @@ -1,21 +0,0 @@ -{ - "category" : "Squot-Merging", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 12/20/2020 22:21", - "instvars" : [ - "walk", - "latestWorking", - "latestIncoming", - "latestBase", - "workingReflected", - "incomingReflected", - "baseReflected", - "mirrors" ], - "name" : "SquotGraphMergeWalk", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotGraphMirror.class/README.md b/src/Squot.package/SquotGraphMirror.class/README.md deleted file mode 100644 index 15552813c..000000000 --- a/src/Squot.package/SquotGraphMirror.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I can access objects in different classes of object graphs. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphMirror.class/instance/reflectGraphElementWithName.in..st b/src/Squot.package/SquotGraphMirror.class/instance/reflectGraphElementWithName.in..st deleted file mode 100644 index 03d0cede5..000000000 --- a/src/Squot.package/SquotGraphMirror.class/instance/reflectGraphElementWithName.in..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflectGraphElementWithName: name in: aGraph - self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotGraphMirror.class/instance/shouldObjectHaveNameAssigned..st b/src/Squot.package/SquotGraphMirror.class/instance/shouldObjectHaveNameAssigned..st deleted file mode 100644 index 06598dc72..000000000 --- a/src/Squot.package/SquotGraphMirror.class/instance/shouldObjectHaveNameAssigned..st +++ /dev/null @@ -1,4 +0,0 @@ -testing -shouldObjectHaveNameAssigned: anObject - "Graphs or diffs of graphs do not get names." - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotGraphMirror.class/methodProperties.json b/src/Squot.package/SquotGraphMirror.class/methodProperties.json deleted file mode 100644 index bd411ea38..000000000 --- a/src/Squot.package/SquotGraphMirror.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "reflectGraphElementWithName:in:" : "jr 9/10/2021 22:19", - "shouldObjectHaveNameAssigned:" : "jr 9/10/2021 22:45" } } diff --git a/src/Squot.package/SquotGraphMirror.class/properties.json b/src/Squot.package/SquotGraphMirror.class/properties.json deleted file mode 100644 index 69e8be816..000000000 --- a/src/Squot.package/SquotGraphMirror.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 9/10/2021 23:52", - "instvars" : [ - ], - "name" : "SquotGraphMirror", - "pools" : [ - ], - "super" : "SquotMirror", - "type" : "normal" } diff --git a/src/Squot.package/SquotGraphWalk.class/README.md b/src/Squot.package/SquotGraphWalk.class/README.md deleted file mode 100644 index e59615fc1..000000000 --- a/src/Squot.package/SquotGraphWalk.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I iterate over objects in a graph. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphWalk.class/class/startingFrom..st b/src/Squot.package/SquotGraphWalk.class/class/startingFrom..st deleted file mode 100644 index 87bfe8228..000000000 --- a/src/Squot.package/SquotGraphWalk.class/class/startingFrom..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -startingFrom: anObject - ^ self new - addFirst: anObject; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotGraphWalk.class/instance/add.path..st b/src/Squot.package/SquotGraphWalk.class/instance/add.path..st deleted file mode 100644 index 23326816b..000000000 --- a/src/Squot.package/SquotGraphWalk.class/instance/add.path..st +++ /dev/null @@ -1,6 +0,0 @@ -adding -add: anObject path: aCollection - "Schedule anObject to be visited during the walk. The object was reached by following the references in aCollection." - toBeVisited add: anObject. - paths at: anObject put: aCollection. - trackReferrers ifTrue: [referrers at: aCollection put: latest]. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphWalk.class/instance/add.reachedVia..st b/src/Squot.package/SquotGraphWalk.class/instance/add.reachedVia..st deleted file mode 100644 index bc8fc50b0..000000000 --- a/src/Squot.package/SquotGraphWalk.class/instance/add.reachedVia..st +++ /dev/null @@ -1,3 +0,0 @@ -adding -add: anObject reachedVia: aReference - self add: anObject path: (self currentPath copyWith: aReference). \ No newline at end of file diff --git a/src/Squot.package/SquotGraphWalk.class/instance/addFirst..st b/src/Squot.package/SquotGraphWalk.class/instance/addFirst..st deleted file mode 100644 index 251d6c1ab..000000000 --- a/src/Squot.package/SquotGraphWalk.class/instance/addFirst..st +++ /dev/null @@ -1,4 +0,0 @@ -adding -addFirst: anObject - self assert: toBeVisited isEmpty. - self add: anObject path: #(). \ No newline at end of file diff --git a/src/Squot.package/SquotGraphWalk.class/instance/atEnd.st b/src/Squot.package/SquotGraphWalk.class/instance/atEnd.st deleted file mode 100644 index a0fc01137..000000000 --- a/src/Squot.package/SquotGraphWalk.class/instance/atEnd.st +++ /dev/null @@ -1,3 +0,0 @@ -enumerating -atEnd - ^ toBeVisited isEmpty \ No newline at end of file diff --git a/src/Squot.package/SquotGraphWalk.class/instance/checkPathsTo.ifMultiple..st b/src/Squot.package/SquotGraphWalk.class/instance/checkPathsTo.ifMultiple..st deleted file mode 100644 index 99793bfd4..000000000 --- a/src/Squot.package/SquotGraphWalk.class/instance/checkPathsTo.ifMultiple..st +++ /dev/null @@ -1,6 +0,0 @@ -enumerating -checkPathsTo: anObject ifMultiple: aBlock - "Allow multiple-path pruning by evaluating aBlock if anObject has already been visited. If not, it will be remembered for future checks." - numberOfPathChecks := numberOfPathChecks + 1. - (self hasVisited: anObject) ifTrue: [aBlock value]. - self visited: anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphWalk.class/instance/currentPath.st b/src/Squot.package/SquotGraphWalk.class/instance/currentPath.st deleted file mode 100644 index a904b346c..000000000 --- a/src/Squot.package/SquotGraphWalk.class/instance/currentPath.st +++ /dev/null @@ -1,3 +0,0 @@ -enumerating -currentPath - ^ paths at: latest \ No newline at end of file diff --git a/src/Squot.package/SquotGraphWalk.class/instance/currentReferrer.st b/src/Squot.package/SquotGraphWalk.class/instance/currentReferrer.st deleted file mode 100644 index a7ffb1962..000000000 --- a/src/Squot.package/SquotGraphWalk.class/instance/currentReferrer.st +++ /dev/null @@ -1,3 +0,0 @@ -enumerating -currentReferrer - ^ referrers at: self currentPath \ No newline at end of file diff --git a/src/Squot.package/SquotGraphWalk.class/instance/do..st b/src/Squot.package/SquotGraphWalk.class/instance/do..st deleted file mode 100644 index c29c66e1d..000000000 --- a/src/Squot.package/SquotGraphWalk.class/instance/do..st +++ /dev/null @@ -1,3 +0,0 @@ -enumerating -do: aBlock - [self atEnd] whileFalse: [aBlock value: self next]. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphWalk.class/instance/doNotTrackReferrers.st b/src/Squot.package/SquotGraphWalk.class/instance/doNotTrackReferrers.st deleted file mode 100644 index 06490790d..000000000 --- a/src/Squot.package/SquotGraphWalk.class/instance/doNotTrackReferrers.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -doNotTrackReferrers - trackReferrers := false. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphWalk.class/instance/hasVisited..st b/src/Squot.package/SquotGraphWalk.class/instance/hasVisited..st deleted file mode 100644 index d6e9e3b3c..000000000 --- a/src/Squot.package/SquotGraphWalk.class/instance/hasVisited..st +++ /dev/null @@ -1,3 +0,0 @@ -enumerating -hasVisited: anObject - ^ visited includes: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotGraphWalk.class/instance/initialize.st b/src/Squot.package/SquotGraphWalk.class/instance/initialize.st deleted file mode 100644 index 9b995c430..000000000 --- a/src/Squot.package/SquotGraphWalk.class/instance/initialize.st +++ /dev/null @@ -1,10 +0,0 @@ -initialize-release -initialize - visited := IdentitySet new. - toBeVisited := OrderedCollection new. - paths := IdentityDictionary new. - referrers := Dictionary new. - trackReferrers := true. - breadthFirst := false. - history := OrderedCollection new. - numberOfPathChecks := 0. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphWalk.class/instance/next.st b/src/Squot.package/SquotGraphWalk.class/instance/next.st deleted file mode 100644 index 2ddbd73f1..000000000 --- a/src/Squot.package/SquotGraphWalk.class/instance/next.st +++ /dev/null @@ -1,5 +0,0 @@ -enumerating -next - latest := breadthFirst ifTrue: [toBeVisited removeFirst] ifFalse: [toBeVisited removeLast]. - history add: latest. - ^ latest \ No newline at end of file diff --git a/src/Squot.package/SquotGraphWalk.class/instance/printOn..st b/src/Squot.package/SquotGraphWalk.class/instance/printOn..st deleted file mode 100644 index d96f7512b..000000000 --- a/src/Squot.package/SquotGraphWalk.class/instance/printOn..st +++ /dev/null @@ -1,10 +0,0 @@ -printing -printOn: aStream - super printOn: aStream. - aStream - nextPut: $(; - print: visited size; nextPutAll: ' visited in '; - print: history size; nextPutAll: ' steps, '; - print: toBeVisited size; nextPutAll: ' remaining, '; - print: numberOfPathChecks; nextPutAll: ' path checks'; - nextPut: $). \ No newline at end of file diff --git a/src/Squot.package/SquotGraphWalk.class/instance/useBreadthFirstTraversal.st b/src/Squot.package/SquotGraphWalk.class/instance/useBreadthFirstTraversal.st deleted file mode 100644 index d67acf9e1..000000000 --- a/src/Squot.package/SquotGraphWalk.class/instance/useBreadthFirstTraversal.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -useBreadthFirstTraversal - breadthFirst := true. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphWalk.class/instance/visited..st b/src/Squot.package/SquotGraphWalk.class/instance/visited..st deleted file mode 100644 index 727114a85..000000000 --- a/src/Squot.package/SquotGraphWalk.class/instance/visited..st +++ /dev/null @@ -1,3 +0,0 @@ -enumerating -visited: anObject - visited add: anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotGraphWalk.class/methodProperties.json b/src/Squot.package/SquotGraphWalk.class/methodProperties.json deleted file mode 100644 index 84d0d1d92..000000000 --- a/src/Squot.package/SquotGraphWalk.class/methodProperties.json +++ /dev/null @@ -1,19 +0,0 @@ -{ - "class" : { - "startingFrom:" : "jr 1/10/2021 21:40" }, - "instance" : { - "add:path:" : "jr 6/26/2021 18:19", - "add:reachedVia:" : "jr 12/20/2020 20:36", - "addFirst:" : "jr 12/20/2020 20:34", - "atEnd" : "jr 12/20/2020 20:24", - "checkPathsTo:ifMultiple:" : "jr 6/26/2021 19:36", - "currentPath" : "jr 12/20/2020 20:30", - "currentReferrer" : "jr 1/9/2021 19:30", - "do:" : "jr 12/20/2020 21:20", - "doNotTrackReferrers" : "jr 6/26/2021 17:21", - "hasVisited:" : "jr 12/20/2020 20:26", - "initialize" : "jr 6/26/2021 19:35", - "next" : "jr 6/26/2021 18:36", - "printOn:" : "jr 6/26/2021 19:36", - "useBreadthFirstTraversal" : "jr 6/26/2021 18:36", - "visited:" : "jr 12/20/2020 20:26" } } diff --git a/src/Squot.package/SquotGraphWalk.class/properties.json b/src/Squot.package/SquotGraphWalk.class/properties.json deleted file mode 100644 index 00253503b..000000000 --- a/src/Squot.package/SquotGraphWalk.class/properties.json +++ /dev/null @@ -1,22 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 12/20/2020 20:19", - "instvars" : [ - "toBeVisited", - "visited", - "paths", - "latest", - "referrers", - "history", - "trackReferrers", - "breadthFirst", - "numberOfPathChecks" ], - "name" : "SquotGraphWalk", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotGuiTest.class/README.md b/src/Squot.package/SquotGuiTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotGuiTest.class/instance/testUiProcessWaiting.st b/src/Squot.package/SquotGuiTest.class/instance/testUiProcessWaiting.st deleted file mode 100644 index 88634295f..000000000 --- a/src/Squot.package/SquotGuiTest.class/instance/testUiProcessWaiting.st +++ /dev/null @@ -1,13 +0,0 @@ -tests -testUiProcessWaiting - | promise x | - self assert: Project uiProcess isActiveProcess. - promise := Promise new. - Project current - addDeferredUIMessage: [x := 13. promise resolveWith: nil]; - addDeferredUIMessage: [(Delay forMilliseconds: 100) wait. x := 42]. - [SquotGUI waitFor: promise] - on: AssertionFailure do: [:f | self fail: f messageText]. - "Further assertions are built-into waitFor:" - self assert: Project uiProcess isActiveProcess; - assert: x = 42 description: 'Deferred messages were not run'. \ No newline at end of file diff --git a/src/Squot.package/SquotGuiTest.class/methodProperties.json b/src/Squot.package/SquotGuiTest.class/methodProperties.json deleted file mode 100644 index 38e5efc45..000000000 --- a/src/Squot.package/SquotGuiTest.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testUiProcessWaiting" : "jr 6/15/2022 22:18" } } diff --git a/src/Squot.package/SquotGuiTest.class/properties.json b/src/Squot.package/SquotGuiTest.class/properties.json deleted file mode 100644 index 52194df30..000000000 --- a/src/Squot.package/SquotGuiTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Tools", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotGuiTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotHashedCollectionDiff.class/README.md b/src/Squot.package/SquotHashedCollectionDiff.class/README.md deleted file mode 100644 index 85cacfbe2..000000000 --- a/src/Squot.package/SquotHashedCollectionDiff.class/README.md +++ /dev/null @@ -1,4 +0,0 @@ -I specialize in differences between hashed collections, such as Sets. I abstract from the Set implementation (a hash table) and send the proper messages to SquotHashedCollectionShadow to perform my duties. - -Instance Variables - itemChanges: diff --git a/src/Squot.package/SquotHashedCollectionDiff.class/instance/addReferenceDiff..st b/src/Squot.package/SquotHashedCollectionDiff.class/instance/addReferenceDiff..st deleted file mode 100644 index 4753a9833..000000000 --- a/src/Squot.package/SquotHashedCollectionDiff.class/instance/addReferenceDiff..st +++ /dev/null @@ -1,7 +0,0 @@ -comparing -addReferenceDiff: aSquotReferenceDiff - | diff | - diff := aSquotReferenceDiff asSlotDiff. - (diff isRemoval or: [diff isAddition]) - ifTrue: [itemChanges add: diff] - ifFalse: [super addReferenceDiff: aSquotReferenceDiff]. \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionDiff.class/instance/addTransitiveChangeIn..st b/src/Squot.package/SquotHashedCollectionDiff.class/instance/addTransitiveChangeIn..st deleted file mode 100644 index 9c9ccce03..000000000 --- a/src/Squot.package/SquotHashedCollectionDiff.class/instance/addTransitiveChangeIn..st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -addTransitiveChangeIn: aReference - (aReference isKindOf: SquotCollectionElement) ifTrue: - [^ itemChanges add: (SquotSlotTransitiveChange key: aReference asSlotDiffKey)]. - ^ super addTransitiveChangeIn: aReference \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionDiff.class/instance/applyTo.with..st b/src/Squot.package/SquotHashedCollectionDiff.class/instance/applyTo.with..st deleted file mode 100644 index 052558ec4..000000000 --- a/src/Squot.package/SquotHashedCollectionDiff.class/instance/applyTo.with..st +++ /dev/null @@ -1,6 +0,0 @@ -patching -applyTo: aDictionaryShadow with: aPatcher - super applyTo: aDictionaryShadow with: aPatcher. - itemChanges associationsDo: [:each | - each applyTo: aDictionaryShadow with: aPatcher]. - ^ aDictionaryShadow \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionDiff.class/instance/diff.against..st b/src/Squot.package/SquotHashedCollectionDiff.class/instance/diff.against..st deleted file mode 100644 index a9e2e0e0b..000000000 --- a/src/Squot.package/SquotHashedCollectionDiff.class/instance/diff.against..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -diff: leftObjectShadow against: rightShadow - super diff: leftObjectShadow against: rightShadow. - leftObjectShadow diffItemsAgainstThoseOf: rightShadow in: self. \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionDiff.class/instance/diffItems.againstThoseOf..st b/src/Squot.package/SquotHashedCollectionDiff.class/instance/diffItems.againstThoseOf..st deleted file mode 100644 index 8a6c9834e..000000000 --- a/src/Squot.package/SquotHashedCollectionDiff.class/instance/diffItems.againstThoseOf..st +++ /dev/null @@ -1,4 +0,0 @@ -comparing -diffItems: leftDictionarySlots againstThoseOf: rightDictionaryShadow - itemChanges := Dictionary new - addAll: (rightDictionaryShadow diffItems: leftDictionarySlots). \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionDiff.class/instance/initialize.st b/src/Squot.package/SquotHashedCollectionDiff.class/instance/initialize.st deleted file mode 100644 index c77cb2e64..000000000 --- a/src/Squot.package/SquotHashedCollectionDiff.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initialize - super initialize. - itemChanges := Dictionary new. \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionDiff.class/instance/itemChanges.st b/src/Squot.package/SquotHashedCollectionDiff.class/instance/itemChanges.st deleted file mode 100644 index 1d5405255..000000000 --- a/src/Squot.package/SquotHashedCollectionDiff.class/instance/itemChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -itemChanges - ^ itemChanges \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionDiff.class/instance/postCopy.st b/src/Squot.package/SquotHashedCollectionDiff.class/instance/postCopy.st deleted file mode 100644 index 6b99e511f..000000000 --- a/src/Squot.package/SquotHashedCollectionDiff.class/instance/postCopy.st +++ /dev/null @@ -1,3 +0,0 @@ -copying -postCopy - itemChanges := itemChanges copy. \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionDiff.class/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st b/src/Squot.package/SquotHashedCollectionDiff.class/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st deleted file mode 100644 index d20748a5e..000000000 --- a/src/Squot.package/SquotHashedCollectionDiff.class/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st +++ /dev/null @@ -1,9 +0,0 @@ -Squot-diff-enumerating -referenceDiffsWithDefaultOwners: leftAndRightShadows reflectedIn: aMirror do: aBlock - "Convert SquotSlotDiffs into SquotReferenceDiffs." - slotChanges associations - collect: [:each | each asReferenceDiffWithDefaultOwners: leftAndRightShadows reflectedIn: aMirror] - thenDo: aBlock. - itemChanges associations - collect: [:each | each asReferenceDiffWithDefaultOwners: leftAndRightShadows reflectedIn: aMirror] - thenDo: aBlock. \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionDiff.class/instance/squotHasChanges.st b/src/Squot.package/SquotHashedCollectionDiff.class/instance/squotHasChanges.st deleted file mode 100644 index 6a7901fed..000000000 --- a/src/Squot.package/SquotHashedCollectionDiff.class/instance/squotHasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -squotHasChanges - ^ (itemChanges associations anySatisfy: [:any | any squotHasChanges]) or: [super squotHasChanges] \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionDiff.class/methodProperties.json b/src/Squot.package/SquotHashedCollectionDiff.class/methodProperties.json deleted file mode 100644 index b5c3e62fa..000000000 --- a/src/Squot.package/SquotHashedCollectionDiff.class/methodProperties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "addReferenceDiff:" : "jr 7/18/2021 20:51", - "addTransitiveChangeIn:" : "jr 7/25/2021 15:50", - "applyTo:with:" : "jr 7/29/2017 22:06", - "diff:against:" : "jr 9/18/2019 20:18", - "diffItems:againstThoseOf:" : "jr 9/18/2019 20:18", - "initialize" : "jr 7/25/2021 19:08", - "itemChanges" : "jr 6/25/2017 22:25", - "postCopy" : "jr 11/18/2018 02:02", - "referenceDiffsWithDefaultOwners:reflectedIn:do:" : "jr 6/27/2021 22:55", - "squotHasChanges" : "jr 6/22/2017 13:13" } } diff --git a/src/Squot.package/SquotHashedCollectionDiff.class/properties.json b/src/Squot.package/SquotHashedCollectionDiff.class/properties.json deleted file mode 100644 index 539710e5e..000000000 --- a/src/Squot.package/SquotHashedCollectionDiff.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Diffs-Generic", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 19:03", - "instvars" : [ - "itemChanges" ], - "name" : "SquotHashedCollectionDiff", - "pools" : [ - ], - "super" : "SquotObjectDiff", - "type" : "normal" } diff --git a/src/Squot.package/SquotHashedCollectionMirror.class/README.md b/src/Squot.package/SquotHashedCollectionMirror.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotHashedCollectionMirror.class/instance/classUsesIdentityHash.st b/src/Squot.package/SquotHashedCollectionMirror.class/instance/classUsesIdentityHash.st deleted file mode 100644 index 0b45ab21e..000000000 --- a/src/Squot.package/SquotHashedCollectionMirror.class/instance/classUsesIdentityHash.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -classUsesIdentityHash - ^ (class with: (Array new: 0) with: (Array new: 0)) size > 1 \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionMirror.class/instance/referencesFrom..st b/src/Squot.package/SquotHashedCollectionMirror.class/instance/referencesFrom..st deleted file mode 100644 index 70de8ac9f..000000000 --- a/src/Squot.package/SquotHashedCollectionMirror.class/instance/referencesFrom..st +++ /dev/null @@ -1,15 +0,0 @@ -enumerating -referencesFrom: aHashedCollection - | references | - references := OrderedCollection new. - references - addAll: ((class allInstVarNames copyWithoutAll: HashedCollection allInstVarNames) - collect: [:each | SquotInstanceVariable named: each]); - addAll: ((1 to: (thisContext objectSize: aHashedCollection)) - collect: [:each | SquotIndexableField index: each]). - self classUsesIdentityHash - ifTrue: [aHashedCollection do: - [:each | references add: (SquotCollectionElement target: each)]] - ifFalse: [aHashedCollection do: - [:each | references add: (SquotCollectionElement targetWithRelevantHash: each)]]. - ^ references \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionMirror.class/instance/reflect.removeFrom..st b/src/Squot.package/SquotHashedCollectionMirror.class/instance/reflect.removeFrom..st deleted file mode 100644 index ac2f91181..000000000 --- a/src/Squot.package/SquotHashedCollectionMirror.class/instance/reflect.removeFrom..st +++ /dev/null @@ -1,4 +0,0 @@ -reflection -reflect: aCollectionElement removeFrom: aHashedCollection - "Remove the reference from the object." - ^ aHashedCollection remove: aCollectionElement target ifAbsent: [] \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionMirror.class/instance/reflectAssociation.in..st b/src/Squot.package/SquotHashedCollectionMirror.class/instance/reflectAssociation.in..st deleted file mode 100644 index 01fe7ce7d..000000000 --- a/src/Squot.package/SquotHashedCollectionMirror.class/instance/reflectAssociation.in..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflectAssociation: aDictionaryAssociationReference in: aDictionary - ^ aDictionary at: aDictionaryAssociationReference key \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionMirror.class/instance/reflectAssociation.in.put..st b/src/Squot.package/SquotHashedCollectionMirror.class/instance/reflectAssociation.in.put..st deleted file mode 100644 index abb09b2eb..000000000 --- a/src/Squot.package/SquotHashedCollectionMirror.class/instance/reflectAssociation.in.put..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflectAssociation: aDictionaryAssociationReference in: aDictionary put: newValue - ^ aDictionary at: aDictionaryAssociationReference key put: newValue \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionMirror.class/instance/reflectElement.of..st b/src/Squot.package/SquotHashedCollectionMirror.class/instance/reflectElement.of..st deleted file mode 100644 index c36679e59..000000000 --- a/src/Squot.package/SquotHashedCollectionMirror.class/instance/reflectElement.of..st +++ /dev/null @@ -1,16 +0,0 @@ -reflection -reflectElement: aCollectionElement of: aHashedCollection - "Answer the object from the collection with the same id as the element." - | object useIdentity | - useIdentity := self classUsesIdentityHash. - object := useIdentity - ifTrue: [(aHashedCollection includes: aCollectionElement target) - ifTrue: [aCollectionElement target] - ifFalse: []] - ifFalse: [aHashedCollection - detect: [:each | each = aCollectionElement target] - ifNone: []]. - ^ object - ifNil: [aCollectionElement target - ifNil: [nil] - ifNotNil: [(NotFound object: aCollectionElement target) signal]] \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionMirror.class/instance/reflectElement.of.put..st b/src/Squot.package/SquotHashedCollectionMirror.class/instance/reflectElement.of.put..st deleted file mode 100644 index fa533e497..000000000 --- a/src/Squot.package/SquotHashedCollectionMirror.class/instance/reflectElement.of.put..st +++ /dev/null @@ -1,4 +0,0 @@ -reflection -reflectElement: aSquotCollectionElement of: aSet put: anObject - aSquotCollectionElement target: anObject. - ^ aSet add: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionMirror.class/instance/reflectEntry.of..st b/src/Squot.package/SquotHashedCollectionMirror.class/instance/reflectEntry.of..st deleted file mode 100644 index 817824561..000000000 --- a/src/Squot.package/SquotHashedCollectionMirror.class/instance/reflectEntry.of..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflectEntry: aDictionaryEntry of: aDictionary - ^ aDictionary at: aDictionaryEntry key \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionMirror.class/instance/reflectEntry.of.put..st b/src/Squot.package/SquotHashedCollectionMirror.class/instance/reflectEntry.of.put..st deleted file mode 100644 index 2b5047718..000000000 --- a/src/Squot.package/SquotHashedCollectionMirror.class/instance/reflectEntry.of.put..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflectEntry: aDictionaryEntry of: aDictionary put: newValue - ^ aDictionary at: aDictionaryEntry key put: newValue \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionMirror.class/instance/shadowFactory.st b/src/Squot.package/SquotHashedCollectionMirror.class/instance/shadowFactory.st deleted file mode 100644 index 98d116109..000000000 --- a/src/Squot.package/SquotHashedCollectionMirror.class/instance/shadowFactory.st +++ /dev/null @@ -1,3 +0,0 @@ -capturing -shadowFactory - ^ SquotHashedCollectionShadow \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionMirror.class/instance/shouldObjectHaveNameAssigned..st b/src/Squot.package/SquotHashedCollectionMirror.class/instance/shouldObjectHaveNameAssigned..st deleted file mode 100644 index 6b0dadb26..000000000 --- a/src/Squot.package/SquotHashedCollectionMirror.class/instance/shouldObjectHaveNameAssigned..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -shouldObjectHaveNameAssigned: aHashedCollection - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionMirror.class/methodProperties.json b/src/Squot.package/SquotHashedCollectionMirror.class/methodProperties.json deleted file mode 100644 index 796b79fa1..000000000 --- a/src/Squot.package/SquotHashedCollectionMirror.class/methodProperties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "classUsesIdentityHash" : "jr 4/17/2021 17:32", - "referencesFrom:" : "jr 4/17/2021 17:36", - "reflect:removeFrom:" : "jr 4/8/2021 00:41", - "reflectAssociation:in:" : "jr 3/21/2021 12:08", - "reflectAssociation:in:put:" : "jr 3/21/2021 12:08", - "reflectElement:of:" : "jr 4/17/2021 22:26", - "reflectElement:of:put:" : "jr 4/11/2021 18:35", - "reflectEntry:of:" : "jr 12/16/2020 00:18", - "reflectEntry:of:put:" : "jr 12/16/2020 00:18", - "shadowFactory" : "jr 4/7/2021 22:19", - "shouldObjectHaveNameAssigned:" : "jr 4/7/2021 22:18" } } diff --git a/src/Squot.package/SquotHashedCollectionMirror.class/properties.json b/src/Squot.package/SquotHashedCollectionMirror.class/properties.json deleted file mode 100644 index 06593fb5f..000000000 --- a/src/Squot.package/SquotHashedCollectionMirror.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotHashedCollectionMirror", - "pools" : [ - ], - "super" : "SquotObjectMirror", - "type" : "normal" } diff --git a/src/Squot.package/SquotHashedCollectionShadow.class/README.md b/src/Squot.package/SquotHashedCollectionShadow.class/README.md deleted file mode 100644 index dab07f5fb..000000000 --- a/src/Squot.package/SquotHashedCollectionShadow.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I capture a HashedCollection, such as a Set. To abstract away how the hash tables are implemented in HashedCollection, I store the shadows of the collection items in the hash table in my "itemSlots". \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionShadow.class/class/squotMirror.st b/src/Squot.package/SquotHashedCollectionShadow.class/class/squotMirror.st deleted file mode 100644 index f648db522..000000000 --- a/src/Squot.package/SquotHashedCollectionShadow.class/class/squotMirror.st +++ /dev/null @@ -1,3 +0,0 @@ -reflecting -squotMirror - ^ SquotHashedCollectionShadowMirror class: self \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionShadow.class/instance/addItemSlot..st b/src/Squot.package/SquotHashedCollectionShadow.class/instance/addItemSlot..st deleted file mode 100644 index e4ca4ea16..000000000 --- a/src/Squot.package/SquotHashedCollectionShadow.class/instance/addItemSlot..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -addItemSlot: aHashedCollectionSlot - itemSlots := itemSlots copyWith: aHashedCollectionSlot. \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionShadow.class/instance/atElement..st b/src/Squot.package/SquotHashedCollectionShadow.class/instance/atElement..st deleted file mode 100644 index e74137fe6..000000000 --- a/src/Squot.package/SquotHashedCollectionShadow.class/instance/atElement..st +++ /dev/null @@ -1,7 +0,0 @@ -accessing -atElement: aSquotCollectionElement - | existing | - existing := itemSlots detect: [:each | each key = aSquotCollectionElement] ifNone: []. - ^ existing - ifNil: [(NotFound object: aSquotCollectionElement) signal] - ifNotNil: [existing value]. \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionShadow.class/instance/atElement.put..st b/src/Squot.package/SquotHashedCollectionShadow.class/instance/atElement.put..st deleted file mode 100644 index 7dc4a349d..000000000 --- a/src/Squot.package/SquotHashedCollectionShadow.class/instance/atElement.put..st +++ /dev/null @@ -1,7 +0,0 @@ -initialize-release -atElement: aSquotCollectionElement put: anObject - | existing | - existing := itemSlots detect: [:each | each key = aSquotCollectionElement] ifNone: []. - existing - ifNil: [itemSlots := itemSlots copyWith: (SquotHashedCollectionSlot key: aSquotCollectionElement value: anObject)] - ifNotNil: [existing value: anObject]. \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionShadow.class/instance/diffClass.st b/src/Squot.package/SquotHashedCollectionShadow.class/instance/diffClass.st deleted file mode 100644 index f4e581b3d..000000000 --- a/src/Squot.package/SquotHashedCollectionShadow.class/instance/diffClass.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -diffClass - ^ SquotHashedCollectionDiff \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionShadow.class/instance/diffItems..st b/src/Squot.package/SquotHashedCollectionShadow.class/instance/diffItems..st deleted file mode 100644 index 93c1d914d..000000000 --- a/src/Squot.package/SquotHashedCollectionShadow.class/instance/diffItems..st +++ /dev/null @@ -1,17 +0,0 @@ -comparing -diffItems: leftItemSlots - | changes left right addedNames removedNames | - changes := Dictionary new. - left := Dictionary newFrom: (leftItemSlots collect: [:each | each value name -> each]). - right := Dictionary newFrom: (itemSlots collect: [:each | each value name -> each]). - addedNames := right keys copyWithoutAll: left keys. - removedNames := left keys copyWithoutAll: right keys. - addedNames do: [:each | changes add: - (SquotSlotAddition key: each newSlot: (right at: each))]. - removedNames do: [:each | changes add: - (SquotSlotRemoval key: each removedSlot: (left at: each))]. - (right keys copyWithoutAll: addedNames) - do: [:each | | slotDiff | - slotDiff := (left at: each) squotDiffAgainst: (right at: each). - slotDiff squotHasChanges ifTrue: [changes add: slotDiff]]. - ^ changes \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionShadow.class/instance/diffItemsAgainstThoseOf.in..st b/src/Squot.package/SquotHashedCollectionShadow.class/instance/diffItemsAgainstThoseOf.in..st deleted file mode 100644 index e2d0f9abf..000000000 --- a/src/Squot.package/SquotHashedCollectionShadow.class/instance/diffItemsAgainstThoseOf.in..st +++ /dev/null @@ -1,5 +0,0 @@ -comparing -diffItemsAgainstThoseOf: rightShadow in: aHashedCollectionDiff - ^ aHashedCollectionDiff - diffItems: itemSlots - againstThoseOf: rightShadow \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionShadow.class/instance/explorerContents.st b/src/Squot.package/SquotHashedCollectionShadow.class/instance/explorerContents.st deleted file mode 100644 index 6718d2a91..000000000 --- a/src/Squot.package/SquotHashedCollectionShadow.class/instance/explorerContents.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -explorerContents - ^ super explorerContents, - itemSlots collect: [:each | self explorerItemFor: each] \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionShadow.class/instance/explorerItemFor..st b/src/Squot.package/SquotHashedCollectionShadow.class/instance/explorerItemFor..st deleted file mode 100644 index a181e3589..000000000 --- a/src/Squot.package/SquotHashedCollectionShadow.class/instance/explorerItemFor..st +++ /dev/null @@ -1,6 +0,0 @@ -*Squot-Tools -explorerItemFor: anItemSlot - ^ ObjectExplorerWrapper - with: anItemSlot - name: anItemSlot asString - model: self \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionShadow.class/instance/hasContentsInExplorer.st b/src/Squot.package/SquotHashedCollectionShadow.class/instance/hasContentsInExplorer.st deleted file mode 100644 index c880f4e2a..000000000 --- a/src/Squot.package/SquotHashedCollectionShadow.class/instance/hasContentsInExplorer.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -hasContentsInExplorer - ^ super hasContentsInExplorer or: [itemSlots notNil and: [itemSlots notEmpty]] \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionShadow.class/instance/initialize.st b/src/Squot.package/SquotHashedCollectionShadow.class/instance/initialize.st deleted file mode 100644 index 89ae49968..000000000 --- a/src/Squot.package/SquotHashedCollectionShadow.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initialize - super initialize. - itemSlots := #(). \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionShadow.class/instance/initializeFrom.with..st b/src/Squot.package/SquotHashedCollectionShadow.class/instance/initializeFrom.with..st deleted file mode 100644 index 8bc7ba743..000000000 --- a/src/Squot.package/SquotHashedCollectionShadow.class/instance/initializeFrom.with..st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -initializeFrom: aHashedCollection with: aCapturer - self flag: #deprecated. "Ask the mirror instead." - super initializeFrom: aHashedCollection with: aCapturer. - self initializeHashedItems: aHashedCollection with: aCapturer. \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionShadow.class/instance/initializeHashedItems.with..st b/src/Squot.package/SquotHashedCollectionShadow.class/instance/initializeHashedItems.with..st deleted file mode 100644 index 8f08aecbb..000000000 --- a/src/Squot.package/SquotHashedCollectionShadow.class/instance/initializeHashedItems.with..st +++ /dev/null @@ -1,6 +0,0 @@ -hashed slots -initializeHashedItems: aHashedCollection with: aCapturer - self flag: #deprecated. "Ask the mirror instead." - itemSlots := (aHashedCollection asArray collect: [:each | | slot | - slot := (aCapturer capture: each asValueOfSlot: SquotHashedCollectionSlot new). - slot key: (aCapturer nameOf: each ifAbsent: [])]). \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionShadow.class/instance/itemSlotForValue..st b/src/Squot.package/SquotHashedCollectionShadow.class/instance/itemSlotForValue..st deleted file mode 100644 index fa859eff4..000000000 --- a/src/Squot.package/SquotHashedCollectionShadow.class/instance/itemSlotForValue..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -itemSlotForValue: aDecoratedShadow - ^ itemSlots detect: [:each | each value name = aDecoratedShadow name] \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionShadow.class/instance/itemSlots.st b/src/Squot.package/SquotHashedCollectionShadow.class/instance/itemSlots.st deleted file mode 100644 index 2eb3b98d7..000000000 --- a/src/Squot.package/SquotHashedCollectionShadow.class/instance/itemSlots.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -itemSlots - ^ itemSlots \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionShadow.class/instance/references.st b/src/Squot.package/SquotHashedCollectionShadow.class/instance/references.st deleted file mode 100644 index df3b2b6cb..000000000 --- a/src/Squot.package/SquotHashedCollectionShadow.class/instance/references.st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -references - ^ super references, (itemSlots collect: [:each | each key]) \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionShadow.class/instance/removeItemSlot..st b/src/Squot.package/SquotHashedCollectionShadow.class/instance/removeItemSlot..st deleted file mode 100644 index 567cf989c..000000000 --- a/src/Squot.package/SquotHashedCollectionShadow.class/instance/removeItemSlot..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -removeItemSlot: aHashedCollectionSlot - itemSlots := itemSlots copyWithout: aHashedCollectionSlot. \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionShadow.class/instance/squotMaterializeWith..st b/src/Squot.package/SquotHashedCollectionShadow.class/instance/squotMaterializeWith..st deleted file mode 100644 index 8ee366787..000000000 --- a/src/Squot.package/SquotHashedCollectionShadow.class/instance/squotMaterializeWith..st +++ /dev/null @@ -1,3 +0,0 @@ -rematerializing -squotMaterializeWith: aMaterializer - ^ originalClass new: itemSlots size \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionShadow.class/methodProperties.json b/src/Squot.package/SquotHashedCollectionShadow.class/methodProperties.json deleted file mode 100644 index 22f775b24..000000000 --- a/src/Squot.package/SquotHashedCollectionShadow.class/methodProperties.json +++ /dev/null @@ -1,21 +0,0 @@ -{ - "class" : { - "squotMirror" : "jr 4/7/2021 22:21" }, - "instance" : { - "addItemSlot:" : "jr 7/29/2017 22:54", - "atElement:" : "jr 4/10/2021 16:50", - "atElement:put:" : "jr 4/7/2021 22:25", - "diffClass" : "jr 6/22/2017 13:07", - "diffItems:" : "jr 9/18/2019 20:22", - "diffItemsAgainstThoseOf:in:" : "jr 9/18/2019 20:22", - "explorerContents" : "jr 12/30/2019 00:56", - "explorerItemFor:" : "jr 12/30/2019 00:56", - "hasContentsInExplorer" : "jr 2/22/2020 17:08", - "initialize" : "jr 4/7/2021 21:36", - "initializeFrom:with:" : "jr 1/11/2021 00:08", - "initializeHashedItems:with:" : "jr 4/8/2021 14:18", - "itemSlotForValue:" : "jr 7/16/2017 15:38", - "itemSlots" : "jr 6/22/2017 00:14", - "references" : "jr 4/10/2021 16:43", - "removeItemSlot:" : "jr 7/29/2017 22:55", - "squotMaterializeWith:" : "jr 7/18/2021 01:05" } } diff --git a/src/Squot.package/SquotHashedCollectionShadow.class/properties.json b/src/Squot.package/SquotHashedCollectionShadow.class/properties.json deleted file mode 100644 index 65ef52c8b..000000000 --- a/src/Squot.package/SquotHashedCollectionShadow.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Shadows", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 20:44", - "instvars" : [ - "itemSlots" ], - "name" : "SquotHashedCollectionShadow", - "pools" : [ - ], - "super" : "SquotObjectShadow", - "type" : "normal" } diff --git a/src/Squot.package/SquotHashedCollectionShadowMirror.class/README.md b/src/Squot.package/SquotHashedCollectionShadowMirror.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotHashedCollectionShadowMirror.class/instance/reflectElement.of..st b/src/Squot.package/SquotHashedCollectionShadowMirror.class/instance/reflectElement.of..st deleted file mode 100644 index f9e35e28d..000000000 --- a/src/Squot.package/SquotHashedCollectionShadowMirror.class/instance/reflectElement.of..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflectElement: aSquotCollectionElement of: aSquotHashedCollectionShadow - ^ aSquotHashedCollectionShadow atElement: aSquotCollectionElement \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionShadowMirror.class/instance/reflectElement.of.put..st b/src/Squot.package/SquotHashedCollectionShadowMirror.class/instance/reflectElement.of.put..st deleted file mode 100644 index cb6855b65..000000000 --- a/src/Squot.package/SquotHashedCollectionShadowMirror.class/instance/reflectElement.of.put..st +++ /dev/null @@ -1,5 +0,0 @@ -reflection -reflectElement: aCollectionElement of: aHashedCollectionShadow put: anObject - aCollectionElement target: anObject. - aHashedCollectionShadow atElement: aCollectionElement put: anObject. - ^ anObject \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionShadowMirror.class/methodProperties.json b/src/Squot.package/SquotHashedCollectionShadowMirror.class/methodProperties.json deleted file mode 100644 index 0f9b2ce50..000000000 --- a/src/Squot.package/SquotHashedCollectionShadowMirror.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "reflectElement:of:" : "jr 4/11/2021 18:34", - "reflectElement:of:put:" : "jr 4/7/2021 22:24" } } diff --git a/src/Squot.package/SquotHashedCollectionShadowMirror.class/properties.json b/src/Squot.package/SquotHashedCollectionShadowMirror.class/properties.json deleted file mode 100644 index 2658a8038..000000000 --- a/src/Squot.package/SquotHashedCollectionShadowMirror.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotHashedCollectionShadowMirror", - "pools" : [ - ], - "super" : "SquotObjectShadowMirror", - "type" : "normal" } diff --git a/src/Squot.package/SquotHashedCollectionSlot.class/README.md b/src/Squot.package/SquotHashedCollectionSlot.class/README.md deleted file mode 100644 index 4d30ed1de..000000000 --- a/src/Squot.package/SquotHashedCollectionSlot.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I capture an item of a hashed collection. \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionSlot.class/class/printHeadlineForChangesTextOn..st b/src/Squot.package/SquotHashedCollectionSlot.class/class/printHeadlineForChangesTextOn..st deleted file mode 100644 index 736bdca56..000000000 --- a/src/Squot.package/SquotHashedCollectionSlot.class/class/printHeadlineForChangesTextOn..st +++ /dev/null @@ -1,3 +0,0 @@ -tools -printHeadlineForChangesTextOn: aTextStream - aTextStream nextPutAll: 'item changes'. \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionSlot.class/instance/addTo..st b/src/Squot.package/SquotHashedCollectionSlot.class/instance/addTo..st deleted file mode 100644 index 3f9801f6f..000000000 --- a/src/Squot.package/SquotHashedCollectionSlot.class/instance/addTo..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -addTo: aHashedCollectionShadow - aHashedCollectionShadow addItemSlot: self. \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionSlot.class/instance/addTo.with..st b/src/Squot.package/SquotHashedCollectionSlot.class/instance/addTo.with..st deleted file mode 100644 index a0277751b..000000000 --- a/src/Squot.package/SquotHashedCollectionSlot.class/instance/addTo.with..st +++ /dev/null @@ -1,4 +0,0 @@ -patching -addTo: aHashedCollectionShadow with: aPatcher - aHashedCollectionShadow addItemSlot: self. - aPatcher addToGraph: self value. \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionSlot.class/instance/asReference.st b/src/Squot.package/SquotHashedCollectionSlot.class/instance/asReference.st deleted file mode 100644 index fc9a7f746..000000000 --- a/src/Squot.package/SquotHashedCollectionSlot.class/instance/asReference.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -asReference - ^ SquotCollectionElement target: self value \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionSlot.class/instance/diffToBaseHashedCollectionSlot..st b/src/Squot.package/SquotHashedCollectionSlot.class/instance/diffToBaseHashedCollectionSlot..st deleted file mode 100644 index 099b9dc3d..000000000 --- a/src/Squot.package/SquotHashedCollectionSlot.class/instance/diffToBaseHashedCollectionSlot..st +++ /dev/null @@ -1,5 +0,0 @@ -comparing -diffToBaseHashedCollectionSlot: aHashedCollectionSlot - self assert: aHashedCollectionSlot value = self value - description: 'Items should be added or removed'. - ^ SquotDiffOfEqualObjects instance \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionSlot.class/instance/lookupIn..st b/src/Squot.package/SquotHashedCollectionSlot.class/instance/lookupIn..st deleted file mode 100644 index d111819eb..000000000 --- a/src/Squot.package/SquotHashedCollectionSlot.class/instance/lookupIn..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -lookupIn: aHashedCollectionShadow - ^ aHashedCollectionShadow itemSlotForValue: self value \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionSlot.class/instance/newNameFragment.st b/src/Squot.package/SquotHashedCollectionSlot.class/instance/newNameFragment.st deleted file mode 100644 index 23732e7ae..000000000 --- a/src/Squot.package/SquotHashedCollectionSlot.class/instance/newNameFragment.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -newNameFragment - "There are no wrappers around hashed collection items and they do not have indices..." - ^ 'item' \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionSlot.class/instance/removeFrom..st b/src/Squot.package/SquotHashedCollectionSlot.class/instance/removeFrom..st deleted file mode 100644 index a88a7cb34..000000000 --- a/src/Squot.package/SquotHashedCollectionSlot.class/instance/removeFrom..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -removeFrom: aHashedCollectionShadow - aHashedCollectionShadow removeItemSlot: self. \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionSlot.class/instance/removeFrom.with..st b/src/Squot.package/SquotHashedCollectionSlot.class/instance/removeFrom.with..st deleted file mode 100644 index 02bc3637e..000000000 --- a/src/Squot.package/SquotHashedCollectionSlot.class/instance/removeFrom.with..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -removeFrom: aHashedCollectionShadow with: aPatcher - aHashedCollectionShadow removeItemSlot: self. \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionSlot.class/instance/squotDiffAgainst..st b/src/Squot.package/SquotHashedCollectionSlot.class/instance/squotDiffAgainst..st deleted file mode 100644 index faa499f97..000000000 --- a/src/Squot.package/SquotHashedCollectionSlot.class/instance/squotDiffAgainst..st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -squotDiffAgainst: otherSlot - ^ otherSlot diffToBaseHashedCollectionSlot: self \ No newline at end of file diff --git a/src/Squot.package/SquotHashedCollectionSlot.class/methodProperties.json b/src/Squot.package/SquotHashedCollectionSlot.class/methodProperties.json deleted file mode 100644 index 888a9643a..000000000 --- a/src/Squot.package/SquotHashedCollectionSlot.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - "printHeadlineForChangesTextOn:" : "jr 10/31/2017 20:54" }, - "instance" : { - "addTo:" : "jr 9/23/2019 23:23", - "addTo:with:" : "jr 5/11/2018 00:20", - "asReference" : "jr 4/10/2021 12:26", - "diffToBaseHashedCollectionSlot:" : "jr 9/18/2019 20:35", - "lookupIn:" : "jr 7/16/2017 15:37", - "newNameFragment" : "jr 7/30/2017 00:41", - "removeFrom:" : "jr 9/25/2019 20:24", - "removeFrom:with:" : "jr 7/29/2017 22:55", - "squotDiffAgainst:" : "jr 9/18/2019 20:27" } } diff --git a/src/Squot.package/SquotHashedCollectionSlot.class/properties.json b/src/Squot.package/SquotHashedCollectionSlot.class/properties.json deleted file mode 100644 index cac7525e8..000000000 --- a/src/Squot.package/SquotHashedCollectionSlot.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Shadows", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 9/18/2019 20:33", - "instvars" : [ - ], - "name" : "SquotHashedCollectionSlot", - "pools" : [ - ], - "super" : "SquotShadowSlot", - "type" : "normal" } diff --git a/src/Squot.package/SquotHistoryWalker.class/README.md b/src/Squot.package/SquotHistoryWalker.class/README.md deleted file mode 100644 index 55ef20f52..000000000 --- a/src/Squot.package/SquotHistoryWalker.class/README.md +++ /dev/null @@ -1,20 +0,0 @@ -I walk the history of commits like git-rev-list does. - -Instance Variables - searchFrontier: collection of pending commits to visit - seen: already visited commits - sinkCommits: commits whose parents shall not be inspected further - sourceCommits: commits from which the search starts - revList: output list of commits - -searchFrontier - - xxxxx - -seen - - xxxxx - -sinkCommits - - xxxxx - -sourceCommits - - xxxxx diff --git a/src/Squot.package/SquotHistoryWalker.class/instance/shouldVisit.before..st b/src/Squot.package/SquotHistoryWalker.class/instance/shouldVisit.before..st deleted file mode 100644 index 5fbc12c14..000000000 --- a/src/Squot.package/SquotHistoryWalker.class/instance/shouldVisit.before..st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -shouldVisit: markedVersion1 before: markedVersion2 - ^ (markedVersion1 object metadata at: #timestamp) > (markedVersion2 object metadata at: #timestamp) \ No newline at end of file diff --git a/src/Squot.package/SquotHistoryWalker.class/methodProperties.json b/src/Squot.package/SquotHistoryWalker.class/methodProperties.json deleted file mode 100644 index a9c3e9f27..000000000 --- a/src/Squot.package/SquotHistoryWalker.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "shouldVisit:before:" : "jr 5/26/2017 00:20" } } diff --git a/src/Squot.package/SquotHistoryWalker.class/properties.json b/src/Squot.package/SquotHistoryWalker.class/properties.json deleted file mode 100644 index 6d0e93155..000000000 --- a/src/Squot.package/SquotHistoryWalker.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotHistoryWalker", - "pools" : [ - ], - "super" : "VersionHistoryWalker", - "type" : "normal" } diff --git a/src/Squot.package/SquotIgnoredSmalltalkCode.class/README.md b/src/Squot.package/SquotIgnoredSmalltalkCode.class/README.md deleted file mode 100644 index 6a607fce9..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCode.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I record which pieces of code are ignored during commits by default. \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/changeSet.st b/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/changeSet.st deleted file mode 100644 index b51571cf3..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/changeSet.st +++ /dev/null @@ -1,3 +0,0 @@ -private -changeSet - ^ ChangeSet existingOrNewChangeSetNamed: 'AssumeUnchanged' \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/ignore..st b/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/ignore..st deleted file mode 100644 index 4d3edcdb1..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/ignore..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -ignore: aMCDefinition - "Ignore changes to the object captured in aMCDefinition." - aMCDefinition squotAddToChangeSet: self changeSet. \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/ignoreClass..st b/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/ignoreClass..st deleted file mode 100644 index 356ec28ec..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/ignoreClass..st +++ /dev/null @@ -1,8 +0,0 @@ -accessing -ignoreClass: aSymbol - "Ignore all changes in the class with the given name." - | changeSet class | - changeSet := self changeSet. - class := Environment current classNamed: (self symbolInChangeSet: aSymbol). - "record a class removal, indicating that the whole class shall be ignored" - changeSet noteRemovalOf: class. diff --git a/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/isIgnored..st b/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/isIgnored..st deleted file mode 100644 index 3bc3d1ffd..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/isIgnored..st +++ /dev/null @@ -1,4 +0,0 @@ -testing -isIgnored: aMCDefinition - ^ (self privateIsWholeClassIgnored: aMCDefinition) - or: [aMCDefinition squotIsInChangeSet: self changeSet] \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/isWholeClassIgnored..st b/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/isWholeClassIgnored..st deleted file mode 100644 index a271634dc..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/isWholeClassIgnored..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isWholeClassIgnored: aSymbol - ^ (self changeSet classChangeAt: (self symbolInChangeSet: aSymbol)) includes: #remove \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/privateIsWholeClassIgnored..st b/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/privateIsWholeClassIgnored..st deleted file mode 100644 index 6d9af07b1..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/privateIsWholeClassIgnored..st +++ /dev/null @@ -1,5 +0,0 @@ -private -privateIsWholeClassIgnored: aMCDefinition - ^ aMCDefinition actualClass - ifNil: [false] - ifNotNil: [:class | self isWholeClassIgnored: class name] \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/privateUnignoreClass..st b/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/privateUnignoreClass..st deleted file mode 100644 index 128546bac..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/privateUnignoreClass..st +++ /dev/null @@ -1,6 +0,0 @@ -private -privateUnignoreClass: aMCDefinition - | changeSet | - changeSet := self changeSet. - "See ignoreClass:" - aMCDefinition actualClass ifNotNil: [:class | self unignoreClass: class name]. \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/symbolInChangeSet..st b/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/symbolInChangeSet..st deleted file mode 100644 index 152d7c506..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/symbolInChangeSet..st +++ /dev/null @@ -1,6 +0,0 @@ -private -symbolInChangeSet: aSymbol - "Class traits come in with ' classSide' at the end, but need to be stored with ' classTrait'" - ^ (aSymbol endsWith: ' classSide') - ifTrue: [aSymbol asString copyReplaceFrom: aSymbol size - 'Side' size + 1 to: aSymbol size with: 'Trait'] - ifFalse: [aSymbol] \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/unignore..st b/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/unignore..st deleted file mode 100644 index a35a14263..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/unignore..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -unignore: aMCDefinition - "Stop ignoring changes to the object captured by aMCDefinition." - self privateUnignoreClass: aMCDefinition. - aMCDefinition squotRemoveFromChangeSet: self changeSet. \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/unignoreClass..st b/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/unignoreClass..st deleted file mode 100644 index 15f3183b7..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCode.class/class/unignoreClass..st +++ /dev/null @@ -1,8 +0,0 @@ -accessing -unignoreClass: aSymbol - "Stop ignoring all changes to the class with the given name." - | changeSet class | - changeSet := self changeSet. - class := Environment current classNamed: (self symbolInChangeSet: aSymbol). - "Evict the removal of the class from the changeset, see ignoreClass:" - changeSet removeClassChanges: class. \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCode.class/methodProperties.json b/src/Squot.package/SquotIgnoredSmalltalkCode.class/methodProperties.json deleted file mode 100644 index 282cfedc4..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCode.class/methodProperties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "class" : { - "changeSet" : "jr 4/14/2020 14:17", - "ignore:" : "jr 4/14/2020 16:18", - "ignoreClass:" : "jr 9/8/2020 22:21", - "isIgnored:" : "jr 4/14/2020 15:51", - "isWholeClassIgnored:" : "jr 9/8/2020 22:22", - "privateIsWholeClassIgnored:" : "jr 4/14/2020 16:30", - "privateUnignoreClass:" : "jr 4/14/2020 16:19", - "symbolInChangeSet:" : "jr 9/8/2020 22:23", - "unignore:" : "jr 4/14/2020 16:18", - "unignoreClass:" : "jr 9/8/2020 22:22" }, - "instance" : { - } } diff --git a/src/Squot.package/SquotIgnoredSmalltalkCode.class/properties.json b/src/Squot.package/SquotIgnoredSmalltalkCode.class/properties.json deleted file mode 100644 index f7673d6fd..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCode.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Packages", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 4/14/2020 14:15", - "instvars" : [ - ], - "name" : "SquotIgnoredSmalltalkCode", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/README.md b/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/ignoreDefinitionTest..st b/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/ignoreDefinitionTest..st deleted file mode 100644 index 46acfa650..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/ignoreDefinitionTest..st +++ /dev/null @@ -1,7 +0,0 @@ -tests -ignoreDefinitionTest: aMCDefinition - self deny: (SquotIgnoredSmalltalkCode isIgnored: aMCDefinition). - SquotIgnoredSmalltalkCode ignore: aMCDefinition. - self assert: (SquotIgnoredSmalltalkCode isIgnored: aMCDefinition). - SquotIgnoredSmalltalkCode unignore: aMCDefinition. - self deny: (SquotIgnoredSmalltalkCode isIgnored: aMCDefinition). \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/runCase.st b/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/runCase.st deleted file mode 100644 index 44a452fa4..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/runCase.st +++ /dev/null @@ -1,3 +0,0 @@ -running -runCase - ^ SystemChangeNotifier uniqueInstance doSilently: [super runCase] \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/setUp.st b/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/setUp.st deleted file mode 100644 index 79e8095e7..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/setUp.st +++ /dev/null @@ -1,5 +0,0 @@ -running -setUp - classFactory := ClassFactoryForTestCase new. - sampleClass := classFactory newClass. - sampleMethod := sampleClass compileSilently: 'a ^ #a' classified: #accessing. \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/tearDown.st b/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/tearDown.st deleted file mode 100644 index 01991ae64..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/tearDown.st +++ /dev/null @@ -1,6 +0,0 @@ -running -tearDown - SquotIgnoredSmalltalkCode - unignoreClass: sampleClass name; - unignoreClass: sampleClass class name. - classFactory cleanUp. \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testClassDefinitionAndMethodDefinitionAreIndependent.st b/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testClassDefinitionAndMethodDefinitionAreIndependent.st deleted file mode 100644 index e9196fb6b..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testClassDefinitionAndMethodDefinitionAreIndependent.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testClassDefinitionAndMethodDefinitionAreIndependent - | method classDef | - classDef := sampleClass asClassDefinition. - method := (sampleClass >> #a) asCodeReference asMethodDefinition. - SquotIgnoredSmalltalkCode ignore: classDef. - self deny: (SquotIgnoredSmalltalkCode isIgnored: method). - SquotIgnoredSmalltalkCode ignore: method; unignore: classDef. - self deny: (SquotIgnoredSmalltalkCode isIgnored: classDef). - SquotIgnoredSmalltalkCode unignore: method. \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnoreClassDefinition.st b/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnoreClassDefinition.st deleted file mode 100644 index 37bf19784..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnoreClassDefinition.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testIgnoreClassDefinition - | classDef | - classDef := sampleClass asClassDefinition. - self deny: (SquotIgnoredSmalltalkCode isIgnored: classDef). - SquotIgnoredSmalltalkCode ignore: classDef. - self assert: (SquotIgnoredSmalltalkCode isIgnored: classDef); - deny: (SquotIgnoredSmalltalkCode isWholeClassIgnored: classDef className). - SquotIgnoredSmalltalkCode unignore: classDef. - self deny: (SquotIgnoredSmalltalkCode isIgnored: classDef). \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnoreMethod.st b/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnoreMethod.st deleted file mode 100644 index c313af308..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnoreMethod.st +++ /dev/null @@ -1,5 +0,0 @@ -tests -testIgnoreMethod - | method | - method := (sampleClass >> #a) asCodeReference asMethodDefinition. - self ignoreDefinitionTest: method. \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnorePostscript.st b/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnorePostscript.st deleted file mode 100644 index 84ae3a00b..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnorePostscript.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testIgnorePostscript - self ignoreDefinitionTest: (MCPostscriptDefinition script: 'Object doSomething' packageName: classFactory packageName). \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnorePreamble.st b/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnorePreamble.st deleted file mode 100644 index 03e71720f..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnorePreamble.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testIgnorePreamble - self ignoreDefinitionTest: (MCPreambleDefinition script: 'Object doSomething' packageName: classFactory packageName). \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnoreRemovalPostscript.st b/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnoreRemovalPostscript.st deleted file mode 100644 index 36a4fb0d4..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnoreRemovalPostscript.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testIgnoreRemovalPostscript - self ignoreDefinitionTest: (MCRemovalPostscriptDefinition script: 'Object doSomething' packageName: classFactory packageName). \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnoreRemovalPreamble.st b/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnoreRemovalPreamble.st deleted file mode 100644 index 751b940a8..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnoreRemovalPreamble.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testIgnoreRemovalPreamble - self ignoreDefinitionTest: (MCRemovalPreambleDefinition script: 'Object doSomething' packageName: classFactory packageName). \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnoreWholeClass.st b/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnoreWholeClass.st deleted file mode 100644 index 1c6e4c7e0..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testIgnoreWholeClass.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testIgnoreWholeClass - | method classDef | - classDef := sampleClass asClassDefinition. - method := (sampleClass >> #a) asCodeReference asMethodDefinition. - self deny: (SquotIgnoredSmalltalkCode isIgnored: classDef); - deny: (SquotIgnoredSmalltalkCode isIgnored: method). - SquotIgnoredSmalltalkCode ignoreClass: sampleClass name. - self assert: (SquotIgnoredSmalltalkCode isIgnored: classDef); - assert: (SquotIgnoredSmalltalkCode isIgnored: method); - assert: (SquotIgnoredSmalltalkCode isWholeClassIgnored: classDef className). - SquotIgnoredSmalltalkCode unignoreClass: sampleClass name. - self deny: (SquotIgnoredSmalltalkCode isWholeClassIgnored: classDef className); - deny: (SquotIgnoredSmalltalkCode isIgnored: classDef); - deny: (SquotIgnoredSmalltalkCode isIgnored: method). \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testNotIgnoredAfterWholeClassUnignored.st b/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testNotIgnoredAfterWholeClassUnignored.st deleted file mode 100644 index 58db331c2..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/testNotIgnoredAfterWholeClassUnignored.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testNotIgnoredAfterWholeClassUnignored - | method classDef | - classDef := sampleClass asClassDefinition. - method := (sampleClass >> #a) asCodeReference asMethodDefinition. - SquotIgnoredSmalltalkCode ignore: classDef; ignore: method. - SquotIgnoredSmalltalkCode unignoreClass: sampleClass name. - self deny: (SquotIgnoredSmalltalkCode isIgnored: classDef); - deny: (SquotIgnoredSmalltalkCode isIgnored: method). \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/xtestIgnoreOrganization.st b/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/xtestIgnoreOrganization.st deleted file mode 100644 index e9bc531be..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/instance/xtestIgnoreOrganization.st +++ /dev/null @@ -1,4 +0,0 @@ -tests -xtestIgnoreOrganization - "Feature not yet implemented." - self ignoreDefinitionTest: (MCOrganizationDefinition categories: #(#A #B #C)). \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/methodProperties.json b/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/methodProperties.json deleted file mode 100644 index a91f693d4..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/methodProperties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "ignoreDefinitionTest:" : "jr 5/2/2020 01:24", - "runCase" : "jr 5/2/2020 00:30", - "setUp" : "jr 5/2/2020 00:33", - "tearDown" : "jr 9/8/2020 22:45", - "testClassDefinitionAndMethodDefinitionAreIndependent" : "jr 5/2/2020 00:40", - "testIgnoreClassDefinition" : "jr 5/2/2020 00:53", - "testIgnoreMethod" : "jr 5/2/2020 01:26", - "testIgnorePostscript" : "jr 5/2/2020 01:25", - "testIgnorePreamble" : "jr 5/2/2020 01:24", - "testIgnoreRemovalPostscript" : "jr 5/2/2020 01:25", - "testIgnoreRemovalPreamble" : "jr 5/2/2020 01:25", - "testIgnoreWholeClass" : "jr 5/2/2020 00:54", - "testNotIgnoredAfterWholeClassUnignored" : "jr 5/2/2020 00:47", - "xtestIgnoreOrganization" : "jr 5/2/2020 01:39" } } diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/properties.json b/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/properties.json deleted file mode 100644 index f528edb85..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCodeTest.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Tests-Packages", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "classFactory", - "sampleClass", - "sampleMethod" ], - "name" : "SquotIgnoredSmalltalkCodeTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/README.md b/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/ignoreDefinitionTest..st b/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/ignoreDefinitionTest..st deleted file mode 100644 index 46acfa650..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/ignoreDefinitionTest..st +++ /dev/null @@ -1,7 +0,0 @@ -tests -ignoreDefinitionTest: aMCDefinition - self deny: (SquotIgnoredSmalltalkCode isIgnored: aMCDefinition). - SquotIgnoredSmalltalkCode ignore: aMCDefinition. - self assert: (SquotIgnoredSmalltalkCode isIgnored: aMCDefinition). - SquotIgnoredSmalltalkCode unignore: aMCDefinition. - self deny: (SquotIgnoredSmalltalkCode isIgnored: aMCDefinition). \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/setUp.st b/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/setUp.st deleted file mode 100644 index a38ac1c37..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/setUp.st +++ /dev/null @@ -1,11 +0,0 @@ -running -setUp - | tempClass name | - classFactory := ClassFactoryForTestCase new. - tempClass := classFactory newClass. - name := tempClass name. - classFactory delete: tempClass. - sampleTrait := Trait named: name uses: #() category: classFactory defaultCategory. - classFactory createdClasses add: sampleTrait. - sampleMethod := sampleTrait compileSilently: 'a ^ #a' classified: #accessing. - sampleClassTraitMethod := sampleTrait classTrait compileSilently: 'b ^ #b' classified: #accessing. \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/tearDown.st b/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/tearDown.st deleted file mode 100644 index b1f8db4b8..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/tearDown.st +++ /dev/null @@ -1,9 +0,0 @@ -running -tearDown - ChangeSet current removeClassAndMetaClassChanges: sampleTrait. - SquotIgnoredSmalltalkCode - unignoreClass: sampleTrait name; - unignoreClass: sampleTrait classTrait name. - sampleTrait removeFromSystem: false. - "Cannot use classFactory delete: because it sends messages that Trait does not understand." - classFactory cleanUp. \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/testIgnoreClassTraitDefinition.st b/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/testIgnoreClassTraitDefinition.st deleted file mode 100644 index c4204e4f9..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/testIgnoreClassTraitDefinition.st +++ /dev/null @@ -1,5 +0,0 @@ -tests -testIgnoreClassTraitDefinition - | traitDef | - traitDef := sampleTrait classTrait asMCDefinition. - self ignoreDefinitionTest: traitDef. \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/testIgnoreClassTraitMethod.st b/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/testIgnoreClassTraitMethod.st deleted file mode 100644 index 3b38354d1..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/testIgnoreClassTraitMethod.st +++ /dev/null @@ -1,5 +0,0 @@ -tests -testIgnoreClassTraitMethod - | methodDef | - methodDef := (sampleTrait classTrait >> sampleClassTraitMethod) asCodeReference asMethodDefinition. - self ignoreDefinitionTest: methodDef. \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/testIgnoreTraitDefinition.st b/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/testIgnoreTraitDefinition.st deleted file mode 100644 index 871cc2b57..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/testIgnoreTraitDefinition.st +++ /dev/null @@ -1,5 +0,0 @@ -tests -testIgnoreTraitDefinition - | traitDef | - traitDef := sampleTrait asClassDefinition. - self ignoreDefinitionTest: traitDef. \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/testIgnoreWholeClassTrait.st b/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/testIgnoreWholeClassTrait.st deleted file mode 100644 index 29c94d0b1..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/testIgnoreWholeClassTrait.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testIgnoreWholeClassTrait - | method traitDef | - traitDef := sampleTrait classTrait asMCDefinition. - method := (sampleTrait classTrait >> sampleClassTraitMethod) asCodeReference asMethodDefinition. - self deny: (SquotIgnoredSmalltalkCode isIgnored: traitDef); - deny: (SquotIgnoredSmalltalkCode isIgnored: method). - SquotIgnoredSmalltalkCode ignoreClass: sampleTrait classTrait name. - self assert: (SquotIgnoredSmalltalkCode isIgnored: traitDef); - assert: (SquotIgnoredSmalltalkCode isIgnored: method); - assert: (SquotIgnoredSmalltalkCode isWholeClassIgnored: traitDef baseTrait, ' classTrait'). - SquotIgnoredSmalltalkCode unignoreClass: sampleTrait classTrait name. - self deny: (SquotIgnoredSmalltalkCode isWholeClassIgnored: traitDef baseTrait, ' classTrait'); - deny: (SquotIgnoredSmalltalkCode isIgnored: traitDef); - deny: (SquotIgnoredSmalltalkCode isIgnored: method). \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/testIgnoreWholeTrait.st b/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/testIgnoreWholeTrait.st deleted file mode 100644 index e9d4728cb..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/instance/testIgnoreWholeTrait.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testIgnoreWholeTrait - | method traitDef | - traitDef := sampleTrait asClassDefinition. - method := (sampleTrait >> #a) asCodeReference asMethodDefinition. - self deny: (SquotIgnoredSmalltalkCode isIgnored: traitDef); - deny: (SquotIgnoredSmalltalkCode isIgnored: method). - SquotIgnoredSmalltalkCode ignoreClass: sampleTrait name. - self assert: (SquotIgnoredSmalltalkCode isIgnored: traitDef); - assert: (SquotIgnoredSmalltalkCode isIgnored: method); - assert: (SquotIgnoredSmalltalkCode isWholeClassIgnored: traitDef className). - SquotIgnoredSmalltalkCode unignoreClass: sampleTrait name. - self deny: (SquotIgnoredSmalltalkCode isWholeClassIgnored: traitDef className); - deny: (SquotIgnoredSmalltalkCode isIgnored: traitDef); - deny: (SquotIgnoredSmalltalkCode isIgnored: method). \ No newline at end of file diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/methodProperties.json b/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/methodProperties.json deleted file mode 100644 index 2bb3e4087..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "ignoreDefinitionTest:" : "jr 5/2/2020 01:24", - "setUp" : "jr 9/8/2020 22:43", - "tearDown" : "jr 9/8/2020 22:45", - "testIgnoreClassTraitDefinition" : "jr 9/8/2020 22:46", - "testIgnoreClassTraitMethod" : "jr 9/8/2020 22:47", - "testIgnoreTraitDefinition" : "jr 9/8/2020 22:48", - "testIgnoreWholeClassTrait" : "jr 9/8/2020 23:00", - "testIgnoreWholeTrait" : "jr 9/8/2020 22:49" } } diff --git a/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/properties.json b/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/properties.json deleted file mode 100644 index 8fca51e3b..000000000 --- a/src/Squot.package/SquotIgnoredSmalltalkCodeTraitsTest.class/properties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "category" : "Squot-Tests-Packages", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "classFactory", - "sampleTrait", - "sampleMethod", - "sampleClassTraitMethod" ], - "name" : "SquotIgnoredSmalltalkCodeTraitsTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotImageStore.class/README.md b/src/Squot.package/SquotImageStore.class/README.md deleted file mode 100644 index a398b9198..000000000 --- a/src/Squot.package/SquotImageStore.class/README.md +++ /dev/null @@ -1,17 +0,0 @@ -I associate Squeak objects with paths and convert between objects and SquotArtifacts. It is my responsibility to capture and update "living" objects in the image. - -Instance Variables - objects: of the contained root objects. The artifact paths are the keys. - paths: of the paths contained. The root objects are the keys. - environment: target environment for load operations that can be directed with Environments (e. g., the loading of classes) - additionalInfo: of SquotTrackedObjectMetadata. The artifact paths are the keys. - objectRegistry: remembers the names assigned to objects to identify them across snapshots. - objectGraphs: of the object graphs already captured. - loadOrder: of paths that determines the configured loading order of the contained objects (which is stored in snapshots) - -Invariants: - objects keys asSet = paths values asSet. - paths keys asIdentitySet = objects values asIdentitySet. - additionalInfo keys asSet = objects keys asSet. - loadOrder asSet = objects keys asSet. - self artifacts keys asSet = objects keys asSet. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/activateObjectRegistryDuring..st b/src/Squot.package/SquotImageStore.class/instance/activateObjectRegistryDuring..st deleted file mode 100644 index 6daa5116e..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/activateObjectRegistryDuring..st +++ /dev/null @@ -1,3 +0,0 @@ -capturing -activateObjectRegistryDuring: aBlock - ^ SquotActiveObjectRegistry value: self objectRegistry during: aBlock \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/add..st b/src/Squot.package/SquotImageStore.class/instance/add..st deleted file mode 100644 index f23b0f258..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/add..st +++ /dev/null @@ -1,5 +0,0 @@ -adding and removing -add: anArtifact - "materialize anArtifact and track the materialized object from now on" - (self restoreObjectFrom: anArtifact) ifNil: [^ nil]. - ^ self artifactAt: anArtifact path \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/add.at..st b/src/Squot.package/SquotImageStore.class/instance/add.at..st deleted file mode 100644 index b38f50262..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/add.at..st +++ /dev/null @@ -1,9 +0,0 @@ -deprecated -add: anObject at: aPath - "begin tracking anObject and have it accessible under aPath" - | storeInfo | - storeInfo := SquotTrackedObjectMetadata new. - storeInfo id: SquotArtifact newId. - anObject squotInitializeStoreInfo: storeInfo. "Instead of SquotArtifact initializeDefaultStoreInfoFor: anObject" - self initializeStoreInfo: storeInfo forObject: anObject. - ^ self add: anObject at: aPath additionalInfo: storeInfo \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/add.at.additionalInfo..st b/src/Squot.package/SquotImageStore.class/instance/add.at.additionalInfo..st deleted file mode 100644 index 5211b885f..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/add.at.additionalInfo..st +++ /dev/null @@ -1,13 +0,0 @@ -adding and removing -add: anObject at: aPath additionalInfo: trackedObjectMetadata - "Begin tracking anObject and have it accessible under aPath. - Remember the additional information in aDictionary about the object (serialization info etc.)." - | pathString | - pathString := aPath asString. - ((objects includesKey: pathString) and: [(objects at: pathString) ~~ anObject]) - ifTrue: [Warning signal: 'About to overwrite another object in the store']. - objects at: pathString put: anObject. - (paths at: anObject ifAbsentPut: [Set new]) add: pathString. - additionalInfo at: pathString put: trackedObjectMetadata. - self appendToLoadOrder: pathString. - ^ pathString \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/add.copiedFromArtifact..st b/src/Squot.package/SquotImageStore.class/instance/add.copiedFromArtifact..st deleted file mode 100644 index 938cde948..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/add.copiedFromArtifact..st +++ /dev/null @@ -1,8 +0,0 @@ -private -add: anObject copiedFromArtifact: anArtifact - "Begin tracking anObject and remember anArtifacts information - to recreate it later when creating a new snapshot." - | metadata | - metadata := anArtifact storeInfo copy. - anObject squotAddTransientStoreInfoTo: metadata. - ^ self add: anObject at: anArtifact path additionalInfo: metadata \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/appendToLoadOrder..st b/src/Squot.package/SquotImageStore.class/instance/appendToLoadOrder..st deleted file mode 100644 index bf5266f9d..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/appendToLoadOrder..st +++ /dev/null @@ -1,3 +0,0 @@ -private -appendToLoadOrder: path - (self loadOrder includes: path) ifFalse: [self loadOrder add: path]. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/applyDiff.toObjectAt..st b/src/Squot.package/SquotImageStore.class/instance/applyDiff.toObjectAt..st deleted file mode 100644 index 22c6229ee..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/applyDiff.toObjectAt..st +++ /dev/null @@ -1,15 +0,0 @@ -patching -applyDiff: anArtifactDiff toObjectAt: path - | object graph metadata | - anArtifactDiff hasChanges ifFalse: [^ self artifactAt: path]. - self activateObjectRegistryDuring: - [object := self objectAt: path. - graph := self objectGraphs at: object ifAbsent: [self captureObjectGraphAt: path]. - metadata := additionalInfo at: path - ifPresent: [:existing | existing absorbDiff: anArtifactDiff metadata] - ifAbsentPut: [anArtifactDiff right storeInfo]. - SquotCurrentMetadata value: metadata during: - [anArtifactDiff applyToLoaded: (graph ifNil: [object])]. - graph ifNotNil: [objects at: path put: graph startObject]]. - self flag: #todo. "Notice changes and return new live artifact with an initialized snapshot." - ^ self artifactAt: path \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/applyPatch..st b/src/Squot.package/SquotImageStore.class/instance/applyPatch..st deleted file mode 100644 index 776c8ae11..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/applyPatch..st +++ /dev/null @@ -1,6 +0,0 @@ -patching -applyPatch: aPatch - | snapshot | - snapshot := aPatch applyTo: self displayingProgress: [:each | 'Updating objects... ', each]. - self loadOrder removeAllSuchThat: [:each | (objects includesKey: each) not]. - ^ snapshot \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/artifactAt..st b/src/Squot.package/SquotImageStore.class/instance/artifactAt..st deleted file mode 100644 index 85d4c0b45..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/artifactAt..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -artifactAt: path - ^ self liveArtifactFor: (self objectAt: path) at: path \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/artifacts.st b/src/Squot.package/SquotImageStore.class/instance/artifacts.st deleted file mode 100644 index 3f08eebce..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/artifacts.st +++ /dev/null @@ -1,7 +0,0 @@ -accessing -artifacts - | artifactsDictionary | - artifactsDictionary := Dictionary new. - self objectsWithPathsDo: [:each :path | - artifactsDictionary at: path put: (self liveArtifactFor: each at: path)]. - ^ artifactsDictionary \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/capture.at..st b/src/Squot.package/SquotImageStore.class/instance/capture.at..st deleted file mode 100644 index da817fc43..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/capture.at..st +++ /dev/null @@ -1,3 +0,0 @@ -private snapshot building -capture: anObject at: path - ^ (self liveArtifactFor: anObject at: path) capture \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/capture.withMetadata..st b/src/Squot.package/SquotImageStore.class/instance/capture.withMetadata..st deleted file mode 100644 index 76bd74cd6..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/capture.withMetadata..st +++ /dev/null @@ -1,12 +0,0 @@ -capturing -capture: anObject withMetadata: aTrackedObjectMetadata - "Turn anObject into an object graph. The capturing is influenced by the metadata." - SquotCurrentMetadata - value: aTrackedObjectMetadata - during: - [^ self objectGraphs - at: anObject - put: (SquotObjectCapturer new - registry: self objectRegistry; - captureGraph: anObject; - objectGraph)] \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/captureObjectGraphAt..st b/src/Squot.package/SquotImageStore.class/instance/captureObjectGraphAt..st deleted file mode 100644 index 7428f710c..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/captureObjectGraphAt..st +++ /dev/null @@ -1,6 +0,0 @@ -capturing -captureObjectGraphAt: path - | object metadata | - object := self objectAt: path. - metadata := self metadataForObjectAt: path. - ^ self capture: object withMetadata: metadata \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/captureSnapshot.st b/src/Squot.package/SquotImageStore.class/instance/captureSnapshot.st deleted file mode 100644 index aaefdef7b..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/captureSnapshot.st +++ /dev/null @@ -1,12 +0,0 @@ -Pur store -captureSnapshot - "Capture current objects if necessary and return a new snapshot." - | builder | - builder := SquotSnapshot builder. - self activateObjectRegistryDuring: - [SquotProgress display: 'Snapshotting objects in memory' during: - [:progress | progress totalSteps: objects size. - loadOrder do: [:eachPath | - progress stepWithText: nil. - builder add: (self capture: (objects at: eachPath) at: eachPath)]]]. - ^ builder buildSnapshot \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/convertToCurrentVersion.refStream..st b/src/Squot.package/SquotImageStore.class/instance/convertToCurrentVersion.refStream..st deleted file mode 100644 index a107c56c0..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/convertToCurrentVersion.refStream..st +++ /dev/null @@ -1,9 +0,0 @@ -update migration -convertToCurrentVersion: varDict refStream: smartRefStrm - "Upgrade additionalInfo to SquotTrackedObjectMetadata" - additionalInfo keys do: [:each | | metadata | - metadata := additionalInfo at: each. - (metadata isKindOf: SquotTrackedObjectMetadata) ifFalse: - [additionalInfo at: each put: (SquotTrackedObjectMetadata newFrom: metadata)]]. - "Initialize loadOrder" - loadOrder ifNil: [loadOrder := objects keys asOrderedCollection]. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/copySettingsFrom.to..st b/src/Squot.package/SquotImageStore.class/instance/copySettingsFrom.to..st deleted file mode 100644 index b56850288..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/copySettingsFrom.to..st +++ /dev/null @@ -1,3 +0,0 @@ -adding and removing -copySettingsFrom: anArtifact to: newTrackedObjectMetadata - "Not interested in any properties." \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/environment..st b/src/Squot.package/SquotImageStore.class/instance/environment..st deleted file mode 100644 index 2c156b465..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/environment..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -environment: anEnvironment - environment := anEnvironment. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/environment.st b/src/Squot.package/SquotImageStore.class/instance/environment.st deleted file mode 100644 index beb0d9597..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/environment.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -environment - ^ environment \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/includes..st b/src/Squot.package/SquotImageStore.class/instance/includes..st deleted file mode 100644 index 34660a3fc..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/includes..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -includes: anObject - ^ objects includes: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/includesObjectAt..st b/src/Squot.package/SquotImageStore.class/instance/includesObjectAt..st deleted file mode 100644 index 83b335f61..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/includesObjectAt..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -includesObjectAt: path - ^ objects includesKey: path \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/initialize.st b/src/Squot.package/SquotImageStore.class/instance/initialize.st deleted file mode 100644 index 1b1c2d59a..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/initialize.st +++ /dev/null @@ -1,7 +0,0 @@ -initialize-release -initialize - objects := Dictionary new. "path -> object" - paths := IdentityDictionary new. "object -> collection of path" - additionalInfo := Dictionary new. "path -> Dictionary" - loadOrder := OrderedCollection new. "paths" - environment := Environment current. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/initializeObjectFrom..st b/src/Squot.package/SquotImageStore.class/instance/initializeObjectFrom..st deleted file mode 100644 index d9220b304..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/initializeObjectFrom..st +++ /dev/null @@ -1,8 +0,0 @@ -private -initializeObjectFrom: anArtifact - "The object in anArtifact is not present in me yet. Unpack it and keep it." - | loadedObject | - anArtifact isLoadable ifFalse: [^ nil]. - loadedObject := (self materializerFor: anArtifact) materialize: anArtifact replacing: nil. - self add: loadedObject copiedFromArtifact: anArtifact. - ^ loadedObject \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/initializeStoreInfo.forObject..st b/src/Squot.package/SquotImageStore.class/instance/initializeStoreInfo.forObject..st deleted file mode 100644 index 6b439b814..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/initializeStoreInfo.forObject..st +++ /dev/null @@ -1,3 +0,0 @@ -adding and removing -initializeStoreInfo: aTrackedObjectMetadata forObject: anObject - anObject squotAddTransientStoreInfoTo: aTrackedObjectMetadata. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/lazySnapshot.st b/src/Squot.package/SquotImageStore.class/instance/lazySnapshot.st deleted file mode 100644 index 508e4a389..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/lazySnapshot.st +++ /dev/null @@ -1,6 +0,0 @@ -snapshotting -lazySnapshot - | newSnapshot | - newSnapshot := SquotSnapshot builder. - self loadOrder do: [:each | newSnapshot add: (self artifactAt: each)]. - ^ newSnapshot buildSnapshot \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/liveArtifactFor.at..st b/src/Squot.package/SquotImageStore.class/instance/liveArtifactFor.at..st deleted file mode 100644 index d5cf3feaa..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/liveArtifactFor.at..st +++ /dev/null @@ -1,5 +0,0 @@ -private -liveArtifactFor: anObject at: aPath - ^ (SquotLiveArtifact on: anObject at: aPath in: self) - storeInfo: (additionalInfo at: aPath); - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/loadOrder..st b/src/Squot.package/SquotImageStore.class/instance/loadOrder..st deleted file mode 100644 index 8de54a64f..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/loadOrder..st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -loadOrder: aCollection - self loadOrder = aCollection ifTrue: [^ self]. - self loadOrder - removeAll; - addAll: aCollection. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/loadOrder.st b/src/Squot.package/SquotImageStore.class/instance/loadOrder.st deleted file mode 100644 index 340685a56..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/loadOrder.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -loadOrder - ^ loadOrder ifNil: [loadOrder := objects keys asOrderedCollection] \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/materialize.replacing..st b/src/Squot.package/SquotImageStore.class/instance/materialize.replacing..st deleted file mode 100644 index 6a84dec56..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/materialize.replacing..st +++ /dev/null @@ -1,4 +0,0 @@ -private materializing -materialize: anArtifact replacing: anObject - "double dispatch" - ^ anArtifact materializeWith: self replacing: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/materializeGraph.from.replacing..st b/src/Squot.package/SquotImageStore.class/instance/materializeGraph.from.replacing..st deleted file mode 100644 index 37d9a9935..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/materializeGraph.from.replacing..st +++ /dev/null @@ -1,15 +0,0 @@ -private materializing -materializeGraph: anObjectGraph from: anArtifact replacing: anObject - | metadata materializedObject | - metadata := additionalInfo at: anArtifact path - ifPresent: [:existing | existing updateFrom: anArtifact storeInfo] - ifAbsent: [anArtifact storeInfo]. - SquotCurrentMetadata value: metadata during: - [materializedObject := SquotShadowMaterializer new - registry: self objectRegistry; - rematerializeGraph: anObjectGraph]. - anObject ifNotNil: - [self haltIf: anObject ~~ materializedObject. - anObject becomeForward: materializedObject. - ^ anObject]. - ^ materializedObject \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/materializerFor..st b/src/Squot.package/SquotImageStore.class/instance/materializerFor..st deleted file mode 100644 index cffe52da0..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/materializerFor..st +++ /dev/null @@ -1,8 +0,0 @@ -private materializing -materializerFor: anArtifact - | loader | - loader := Environment current - valueOf: (anArtifact storeInfo at: #loader ifAbsent: []) - ifAbsent: [self]. - loader ~~ self ifTrue: [loader := loader new]. - ^ loader \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/metadataForObjectAt..st b/src/Squot.package/SquotImageStore.class/instance/metadataForObjectAt..st deleted file mode 100644 index 74a394ddd..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/metadataForObjectAt..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -metadataForObjectAt: path - ^ additionalInfo at: path \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/moveObjectAt.to..st b/src/Squot.package/SquotImageStore.class/instance/moveObjectAt.to..st deleted file mode 100644 index 35c75e439..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/moveObjectAt.to..st +++ /dev/null @@ -1,7 +0,0 @@ -adding and removing -moveObjectAt: oldPath to: newPath - | metadata object | - object := self objectAt: oldPath. - metadata := additionalInfo at: oldPath. - self removeAt: oldPath; - add: object at: newPath additionalInfo: metadata. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/objectAt..st b/src/Squot.package/SquotImageStore.class/instance/objectAt..st deleted file mode 100644 index e4046e749..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/objectAt..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -objectAt: path - "Answer current object from this store." - ^ objects at: path \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/objectGraphs.st b/src/Squot.package/SquotImageStore.class/instance/objectGraphs.st deleted file mode 100644 index c35da09fe..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/objectGraphs.st +++ /dev/null @@ -1,3 +0,0 @@ -private -objectGraphs - ^ objectGraphs ifNil: [objectGraphs := WeakIdentityKeyDictionary new] \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/objectPaths.st b/src/Squot.package/SquotImageStore.class/instance/objectPaths.st deleted file mode 100644 index 8a3c9bfa6..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/objectPaths.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -objectPaths - ^ objects keys \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/objectRegistry.st b/src/Squot.package/SquotImageStore.class/instance/objectRegistry.st deleted file mode 100644 index 3dd19598b..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/objectRegistry.st +++ /dev/null @@ -1,3 +0,0 @@ -private -objectRegistry - ^ objectRegistry ifNil: [objectRegistry := SquotObjectRegistry new] \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/objectsWithPathsDo..st b/src/Squot.package/SquotImageStore.class/instance/objectsWithPathsDo..st deleted file mode 100644 index 310def9d1..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/objectsWithPathsDo..st +++ /dev/null @@ -1,5 +0,0 @@ -enumerating -objectsWithPathsDo: aBinaryBlock - objects associationsDo: [:each | aBinaryBlock - value: each value "object" - value: each key "path"]. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/pathsOf..st b/src/Squot.package/SquotImageStore.class/instance/pathsOf..st deleted file mode 100644 index b3b87e569..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/pathsOf..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -pathsOf: anObject - ^ (paths at: anObject) copy \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/postCopy.st b/src/Squot.package/SquotImageStore.class/instance/postCopy.st deleted file mode 100644 index f37a979ab..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/postCopy.st +++ /dev/null @@ -1,7 +0,0 @@ -copying -postCopy - objects := objects copy. - paths := paths copy. - additionalInfo := additionalInfo copy. - objectGraphs := objectGraphs copy. - loadOrder := loadOrder copy. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/remove..st b/src/Squot.package/SquotImageStore.class/instance/remove..st deleted file mode 100644 index 4f990cad5..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/remove..st +++ /dev/null @@ -1,7 +0,0 @@ -adding and removing -remove: anObject - "stop tracking anObject and omit it from the next snapshot" - (paths removeKey: anObject) do: [:each | - objects removeKey: each. - additionalInfo removeKey: each. - loadOrder remove: each ifAbsent: []]. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/removeAllObjects.st b/src/Squot.package/SquotImageStore.class/instance/removeAllObjects.st deleted file mode 100644 index 66343c938..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/removeAllObjects.st +++ /dev/null @@ -1,3 +0,0 @@ -adding and removing -removeAllObjects - objects values copy do: [:each | self remove: each]. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/removeAt..st b/src/Squot.package/SquotImageStore.class/instance/removeAt..st deleted file mode 100644 index 0afd0578c..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/removeAt..st +++ /dev/null @@ -1,9 +0,0 @@ -adding and removing -removeAt: path - "stop tracking object at path and omit it from the next snapshot" - | object | - object := objects removeKey: path ifAbsent: [^ self]. - (paths at: object) remove: path. - (paths at: object) ifEmpty: [paths removeKey: object]. - additionalInfo removeKey: path ifAbsent: []. - loadOrder remove: path ifAbsent: []. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/restore.from..st b/src/Squot.package/SquotImageStore.class/instance/restore.from..st deleted file mode 100644 index 3b680a72a..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/restore.from..st +++ /dev/null @@ -1,3 +0,0 @@ -private -restore: anObject from: anArtifact - ^ (self materializerFor: anArtifact) materialize: anArtifact replacing: anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/restoreObjectFrom..st b/src/Squot.package/SquotImageStore.class/instance/restoreObjectFrom..st deleted file mode 100644 index afe696dd0..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/restoreObjectFrom..st +++ /dev/null @@ -1,7 +0,0 @@ -private -restoreObjectFrom: anArtifact - ^ self activateObjectRegistryDuring: - [objects - at: anArtifact path - ifPresent: [:object | self restore: object from: anArtifact] - ifAbsent: [self initializeObjectFrom: anArtifact]] \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/restoreToSnapshot..st b/src/Squot.package/SquotImageStore.class/instance/restoreToSnapshot..st deleted file mode 100644 index 8e7c81b26..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/restoreToSnapshot..st +++ /dev/null @@ -1,15 +0,0 @@ -Pur store -restoreToSnapshot: aSnapshot - "read objects from aSnapshot and update/replace current objects with their versions from the snapshot" - | restoredPaths | - restoredPaths := Set new. - self flag: #TODO. "investigate how to drop the environment from image store" - self environment beCurrentDuring: [ - SquotProgress display: 'Loading objects into memory' - for: aSnapshot artifactsInLoadOrder - do: [:each | - self restoreObjectFrom: each. - restoredPaths add: each path]]. - (self objectPaths copyWithoutAll: restoredPaths) - do: [:path | self remove: (self objectAt: path)]. - ^ SquotSnapshot builder startingFrom: self; buildSnapshot \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/instance/supports.forObject..st b/src/Squot.package/SquotImageStore.class/instance/supports.forObject..st deleted file mode 100644 index 678b22183..000000000 --- a/src/Squot.package/SquotImageStore.class/instance/supports.forObject..st +++ /dev/null @@ -1,4 +0,0 @@ -adding and removing -supports: aTrackedObjectMetadata forObject: anObject - "The image store does not care which paths or properties the objects have." - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotImageStore.class/methodProperties.json b/src/Squot.package/SquotImageStore.class/methodProperties.json deleted file mode 100644 index 783d650cb..000000000 --- a/src/Squot.package/SquotImageStore.class/methodProperties.json +++ /dev/null @@ -1,50 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "activateObjectRegistryDuring:" : "jr 7/16/2017 19:16", - "add:" : "jr 1/3/2021 21:57", - "add:at:" : "jr 5/28/2022 01:09", - "add:at:additionalInfo:" : "jr 5/4/2019 02:21", - "add:copiedFromArtifact:" : "jr 7/16/2017 18:56", - "appendToLoadOrder:" : "jr 8/18/2018 16:21", - "applyDiff:toObjectAt:" : "jr 12/29/2021 21:26", - "applyPatch:" : "jr 1/3/2021 21:20", - "artifactAt:" : "jr 4/7/2018 15:53", - "artifacts" : "jr 4/7/2018 15:53", - "capture:at:" : "jr 9/23/2018 22:31", - "capture:withMetadata:" : "jr 12/8/2019 21:43", - "captureObjectGraphAt:" : "jr 12/8/2019 21:34", - "captureSnapshot" : "jr 9/26/2020 16:49", - "convertToCurrentVersion:refStream:" : "jr 8/18/2018 16:06", - "copySettingsFrom:to:" : "jr 5/27/2022 23:33", - "environment" : "jr 1/27/2017 14:33", - "environment:" : "jr 1/27/2017 14:33", - "includes:" : "jr 3/11/2017 01:09", - "includesObjectAt:" : "jr 3/8/2017 17:48", - "initialize" : "jr 8/18/2018 15:47", - "initializeObjectFrom:" : "jr 1/3/2021 21:56", - "initializeStoreInfo:forObject:" : "jr 5/27/2022 22:31", - "lazySnapshot" : "jr 1/3/2021 17:36", - "liveArtifactFor:at:" : "jr 4/7/2018 15:53", - "loadOrder" : "jr 8/18/2018 16:21", - "loadOrder:" : "jr 9/16/2018 00:20", - "materialize:replacing:" : "jr 4/7/2017 16:04", - "materializeGraph:from:replacing:" : "jr 12/13/2020 21:51", - "materializerFor:" : "jr 4/7/2017 16:20", - "metadataForObjectAt:" : "jr 5/13/2017 20:52", - "moveObjectAt:to:" : "jr 3/16/2019 17:01", - "objectAt:" : "jr 1/27/2017 14:33", - "objectGraphs" : "jr 7/16/2017 19:15", - "objectPaths" : "fn 4/13/2017 19:26", - "objectRegistry" : "jr 7/30/2017 22:03", - "objectsWithPathsDo:" : "jr 5/1/2017 20:23", - "pathsOf:" : "jr 5/26/2017 22:22", - "postCopy" : "jr 11/1/2020 17:58", - "remove:" : "jr 9/15/2018 23:56", - "removeAllObjects" : "jr 3/18/2017 00:25", - "removeAt:" : "jr 9/15/2018 23:57", - "restore:from:" : "jr 7/22/2017 11:59", - "restoreObjectFrom:" : "jr 10/4/2020 23:32", - "restoreToSnapshot:" : "jr 1/3/2021 22:10", - "supports:forObject:" : "jr 5/27/2022 22:45" } } diff --git a/src/Squot.package/SquotImageStore.class/properties.json b/src/Squot.package/SquotImageStore.class/properties.json deleted file mode 100644 index 2e70340a0..000000000 --- a/src/Squot.package/SquotImageStore.class/properties.json +++ /dev/null @@ -1,22 +0,0 @@ -{ - "category" : "Squot-ImageStore", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotMutableObjectContainer classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 8/18/2018 16:53", - "instvars" : [ - "objects", - "paths", - "environment", - "additionalInfo", - "objectRegistry", - "objectGraphs", - "loadOrder" ], - "name" : "SquotImageStore", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotMutableObjectContainer", - "type" : "normal" } diff --git a/src/Squot.package/SquotImageStoreTest.class/README.md b/src/Squot.package/SquotImageStoreTest.class/README.md deleted file mode 100644 index eb80bcc55..000000000 --- a/src/Squot.package/SquotImageStoreTest.class/README.md +++ /dev/null @@ -1,5 +0,0 @@ -I test the SquotImageStore. - -Instance Variables - imageStore: the store under test - testEnvironment: the environment in which the store under test shall operate \ No newline at end of file diff --git a/src/Squot.package/SquotImageStoreTest.class/instance/changeLogSuppressor.st b/src/Squot.package/SquotImageStoreTest.class/instance/changeLogSuppressor.st deleted file mode 100644 index 4d9314a20..000000000 --- a/src/Squot.package/SquotImageStoreTest.class/instance/changeLogSuppressor.st +++ /dev/null @@ -1,3 +0,0 @@ -private -changeLogSuppressor - ^ changeLogSuppressor \ No newline at end of file diff --git a/src/Squot.package/SquotImageStoreTest.class/instance/createTestEnvironment.st b/src/Squot.package/SquotImageStoreTest.class/instance/createTestEnvironment.st deleted file mode 100644 index 9f092ae8e..000000000 --- a/src/Squot.package/SquotImageStoreTest.class/instance/createTestEnvironment.st +++ /dev/null @@ -1,6 +0,0 @@ -utilities -createTestEnvironment - ^ (Environment withName: self nameForTestEnvironment asSymbol) - import: self class environment; - importSelf; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotImageStoreTest.class/instance/nameForTestEnvironment.st b/src/Squot.package/SquotImageStoreTest.class/instance/nameForTestEnvironment.st deleted file mode 100644 index bd22eeb42..000000000 --- a/src/Squot.package/SquotImageStoreTest.class/instance/nameForTestEnvironment.st +++ /dev/null @@ -1,3 +0,0 @@ -utilities -nameForTestEnvironment - ^ self class name, ' ', self selector \ No newline at end of file diff --git a/src/Squot.package/SquotImageStoreTest.class/instance/newPackageInfoFor..st b/src/Squot.package/SquotImageStoreTest.class/instance/newPackageInfoFor..st deleted file mode 100644 index fb2946154..000000000 --- a/src/Squot.package/SquotImageStoreTest.class/instance/newPackageInfoFor..st +++ /dev/null @@ -1,3 +0,0 @@ -utilities -newPackageInfoFor: packageName - ^ PackageInfo new packageName: packageName; yourself. "do not register" \ No newline at end of file diff --git a/src/Squot.package/SquotImageStoreTest.class/instance/setUp.st b/src/Squot.package/SquotImageStoreTest.class/instance/setUp.st deleted file mode 100644 index a23c8c5de..000000000 --- a/src/Squot.package/SquotImageStoreTest.class/instance/setUp.st +++ /dev/null @@ -1,9 +0,0 @@ -running -setUp - classFactory := ClassFactoryForTestCase new. - createdClasses := OrderedCollection new. - testEnvironment := self createTestEnvironment. - imageStore := SquotImageStore new - environment: testEnvironment; - yourself. - changeLogSuppressor := SUnitChangeLogSuppressor new. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStoreTest.class/instance/snapshotClass.at..st b/src/Squot.package/SquotImageStoreTest.class/instance/snapshotClass.at..st deleted file mode 100644 index dc1c58545..000000000 --- a/src/Squot.package/SquotImageStoreTest.class/instance/snapshotClass.at..st +++ /dev/null @@ -1,5 +0,0 @@ -utilities -snapshotClass: aClass at: pathString - ^ SquotImageStore new - add: aClass at: pathString; - captureSnapshot \ No newline at end of file diff --git a/src/Squot.package/SquotImageStoreTest.class/instance/snapshotPackage.at..st b/src/Squot.package/SquotImageStoreTest.class/instance/snapshotPackage.at..st deleted file mode 100644 index 10446e69d..000000000 --- a/src/Squot.package/SquotImageStoreTest.class/instance/snapshotPackage.at..st +++ /dev/null @@ -1,5 +0,0 @@ -utilities -snapshotPackage: aPackageInfo at: pathString - ^ SquotImageStore new - add: aPackageInfo at: pathString; - captureSnapshot \ No newline at end of file diff --git a/src/Squot.package/SquotImageStoreTest.class/instance/tearDown.st b/src/Squot.package/SquotImageStoreTest.class/instance/tearDown.st deleted file mode 100644 index 1b0353864..000000000 --- a/src/Squot.package/SquotImageStoreTest.class/instance/tearDown.st +++ /dev/null @@ -1,12 +0,0 @@ -running -tearDown - imageStore := nil. - (MCPackage named: classFactory packageName) in: - [:package | package hasWorkingCopy ifTrue: [package workingCopy unregister]]. - changeLogSuppressor suppressChangeNotificationsDuring: [ - classFactory cleanUp. - createdClasses do: [:each | classFactory delete: each]. - testEnvironment allClassesAndTraits do: [:each | classFactory delete: each]. - testEnvironment destroy]. - ChangeSet removeChangeSetsNamedSuchThat: - [:each | each beginsWith: classFactory packageName]. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStoreTest.class/instance/testAddNewObjectsFromArtifact.st b/src/Squot.package/SquotImageStoreTest.class/instance/testAddNewObjectsFromArtifact.st deleted file mode 100644 index 44206d879..000000000 --- a/src/Squot.package/SquotImageStoreTest.class/instance/testAddNewObjectsFromArtifact.st +++ /dev/null @@ -1,17 +0,0 @@ -tests -testAddNewObjectsFromArtifact - "When a previously unloaded object is added from a snapshot, - it should be materialized and get the same name as in the snapshot." - | artifact materialized object path | - object := StringHolder new contents: 'test'. - path := 'test.obj'. - artifact := (SquotImageStore new add: object at: path; artifactAt: path) capture. - self assert: artifact shadowOfTrackedObject hasSquotShadowName. - imageStore add: artifact. - [materialized := imageStore objectAt: path] - on: NotFound do: [:e | self fail: 'object was not added']. - self assert: (materialized isKindOf: StringHolder). - self assert: 'test' equals: materialized contents. - self assert: materialized ~~ object. - self assert: (imageStore objectRegistry nameOf: materialized) = artifact shadowOfTrackedObject name. - self assert: artifact id equals: (imageStore artifactAt: path) id. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStoreTest.class/instance/testAddingObjectsAddsThemToTheLoadOrder.st b/src/Squot.package/SquotImageStoreTest.class/instance/testAddingObjectsAddsThemToTheLoadOrder.st deleted file mode 100644 index 857306a2b..000000000 --- a/src/Squot.package/SquotImageStoreTest.class/instance/testAddingObjectsAddsThemToTheLoadOrder.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testAddingObjectsAddsThemToTheLoadOrder - "When an object is added, its path is appended to the load order." - | object | - object := StringHolder new contents: 'test'. - self assert: imageStore loadOrder isEmpty. - imageStore add: object at: 'object1'. - self assert: imageStore loadOrder asArray = #('object1'). - imageStore add: object copy at: 'object2'. - self assert: imageStore loadOrder asArray = #('object1' 'object2'). \ No newline at end of file diff --git a/src/Squot.package/SquotImageStoreTest.class/instance/testApplyPatch.st b/src/Squot.package/SquotImageStoreTest.class/instance/testApplyPatch.st deleted file mode 100644 index dc6f7d60a..000000000 --- a/src/Squot.package/SquotImageStoreTest.class/instance/testApplyPatch.st +++ /dev/null @@ -1,69 +0,0 @@ -tests -testApplyPatch - | className category packageInfo packageArtifactBeforePatch packageArtifactAfterPatch snapshotBefore patch class hashMethodBeforePatch | - className := classFactory newName asSymbol. - category := classFactory defaultCategory. - packageInfo := self newPackageInfoFor: classFactory packageName. - packageArtifactBeforePatch := (MCSnapshot fromDefinitions: - {MCClassDefinition name: className - superclassName: #Object - category: category - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''. - MCMethodDefinition className: className - selector: 'initialize' - category: 'initialize-release' - timeStamp: '' - source: 'initialize'. - MCMethodDefinition className: className - selector: 'hash' - category: 'comparing' - timeStamp: '' - source: 'hash ^ 0'}) - asSquotArtifactForPackage: packageInfo. - snapshotBefore := SquotSnapshot builder - add: packageArtifactBeforePatch; - buildSnapshot. - packageArtifactAfterPatch := (MCSnapshot fromDefinitions: - {MCClassDefinition name: className - superclassName: #Object - category: category - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: 'We are all individuals.'. - MCMethodDefinition className: className - selector: 'hash' - category: 'comparing' - timeStamp: '' - source: 'hash ^ 0'. - MCMethodDefinition className: className - selector: '=' - category: 'comparing' - timeStamp: '' - source: '= other ^ false'}) - asSquotArtifactForPackage: packageInfo. - patch := snapshotBefore newPatchBuilder - addDiff: (packageArtifactBeforePatch diffAgainst: packageArtifactAfterPatch); - updateRightArtifacts; - buildPatch. - self suppressChangeNotificationsDuring: - [imageStore restoreToSnapshot: snapshotBefore]. - packageInfo := imageStore objectAt: packageArtifactBeforePatch path. - packageInfo workingCopy unregister. "clean up immediately..." - class := testEnvironment at: className. - hashMethodBeforePatch := class >> #hash. - "when" - self suppressChangeNotificationsDuring: - [imageStore applyPatch: patch]. - "then" - packageInfo workingCopy unregister. "clean up immediately..." - self assert: class == (testEnvironment at: className). - self assert: 'We are all individuals.' equals: class organization classComment asString. - self deny: (class includesSelector: #initialize). - self assert: (class includesSelector: #=). - self assert: hashMethodBeforePatch equals: class >> #hash. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStoreTest.class/instance/testFiles.st b/src/Squot.package/SquotImageStoreTest.class/instance/testFiles.st deleted file mode 100644 index 4eb993d53..000000000 --- a/src/Squot.package/SquotImageStoreTest.class/instance/testFiles.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testFiles - | vmBinaryArtifact snapshot | - vmBinaryArtifact := (SquotFileArtifact for: FSLocator vmBinary asFileReference) - path: 'vm'; - yourself. - snapshot := SquotSnapshot builder - add: vmBinaryArtifact; - buildSnapshot. - imageStore restoreToSnapshot: snapshot. - self deny: (imageStore includesObjectAt: 'vm'). - "self shouldnt: [imageStore objectAt: 'vm'] raise: Error. - self assert: ((imageStore objectAt: 'vm') isKindOf: SquotFileArtifact). - self assert: vmBinaryArtifact equals: (imageStore objectAt: 'vm')." \ No newline at end of file diff --git a/src/Squot.package/SquotImageStoreTest.class/instance/testIgnoredInstanceVariables.st b/src/Squot.package/SquotImageStoreTest.class/instance/testIgnoredInstanceVariables.st deleted file mode 100644 index 57fa71505..000000000 --- a/src/Squot.package/SquotImageStoreTest.class/instance/testIgnoredInstanceVariables.st +++ /dev/null @@ -1,17 +0,0 @@ -tests -testIgnoredInstanceVariables - | morph previousOwner shadow graph submorph | - morph := Morph new. - submorph := Morph new. - morph addMorph: submorph. - morph openInWorld. - previousOwner := morph owner. - imageStore add: morph at: 'morph'. - graph := (imageStore artifactAt: 'morph') content. - shadow := graph startShadow. - self assert: shadow originalClass == morph class description: 'pick correct shadow'. - self deny: (shadow includesSlot: 'owner'). - self assert: morph owner == previousOwner description: 'capturing should not affect state of the captured object'. "(except if the class wants it... see Morph>>prepareToBeSaved)" - self assert: ((graph shadowNamed: (imageStore objectRegistry nameOf: submorph)) includesSlot: 'owner') - description: 'instance variable exclusion is instance specific'. - morph delete. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStoreTest.class/instance/testMetadataModification.st b/src/Squot.package/SquotImageStoreTest.class/instance/testMetadataModification.st deleted file mode 100644 index f9123ab0e..000000000 --- a/src/Squot.package/SquotImageStoreTest.class/instance/testMetadataModification.st +++ /dev/null @@ -1,23 +0,0 @@ -tests -testMetadataModification - | object changed diff | - object := SquotTestObjectWithTransientMetadata new. - imageStore add: object at: 'example'. - (imageStore metadataForObjectAt: 'example') at: #toBeRemoved put: 'yes'. - changed := (imageStore artifactAt: 'example') snapshot copy. - changed storeInfo - at: #dummy put: {2}; - removeKey: #toBeRemoved. - (imageStore metadataForObjectAt: 'example') - at: #transient put: 2; - at: #dummy put: {1}. - self assert: {1} equals: ((imageStore metadataForObjectAt: 'example') at: #dummy); - assert: 2 equals: ((imageStore metadataForObjectAt: 'example') at: #transient); - assert: ((imageStore metadataForObjectAt: 'example') includesKey: #toBeRemoved). - "when" - diff := (imageStore artifactAt: 'example') diffAgainst: changed. - imageStore applyDiff: diff toObjectAt: 'example'. - "then" - self assert: {2} equals: ((imageStore metadataForObjectAt: 'example') at: #dummy); - assert: 2 equals: ((imageStore metadataForObjectAt: 'example') at: #transient); - assert: ((imageStore metadataForObjectAt: 'example') includesKey: #toBeRemoved) not. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStoreTest.class/instance/testPatchingPreservesId.st b/src/Squot.package/SquotImageStoreTest.class/instance/testPatchingPreservesId.st deleted file mode 100644 index 0c3a092ec..000000000 --- a/src/Squot.package/SquotImageStoreTest.class/instance/testPatchingPreservesId.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testPatchingPreservesId - | object changed diff originalId | - object := Object new. - imageStore add: object at: 'example'. - originalId := (imageStore artifactAt: 'example') id. - changed := (imageStore artifactAt: 'example') snapshot copy. - changed id: UUID new. - changed storeInfo at: #dummy put: 2. - "when" - diff := (imageStore artifactAt: 'example') diffAgainst: changed. - imageStore applyDiff: diff toObjectAt: 'example'. - "then" - self assert: originalId equals: (imageStore artifactAt: 'example') id. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStoreTest.class/instance/testRemoveAlsoRemovesFromLoadOrder.st b/src/Squot.package/SquotImageStoreTest.class/instance/testRemoveAlsoRemovesFromLoadOrder.st deleted file mode 100644 index f81c4491e..000000000 --- a/src/Squot.package/SquotImageStoreTest.class/instance/testRemoveAlsoRemovesFromLoadOrder.st +++ /dev/null @@ -1,16 +0,0 @@ -tests -testRemoveAlsoRemovesFromLoadOrder - "Removing objects from the store also removes them from the load order." - | first second | - self flag: #notLoadedArtifacts. "unloading optional artifacts vs. removing them forever?" - imageStore add: (first := Object new) at: '1'. - imageStore add: (second := Object new) at: '2'. - self assert: imageStore loadOrder asSet = #('1' '2') asSet. - "when" - imageStore remove: first. - "then" - self assert: imageStore loadOrder asArray = #('2'). - "when" - imageStore removeAt: '2'. - "then" - self assert: imageStore loadOrder asArray isEmpty. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStoreTest.class/instance/testRestoreAdheresToTheLoadOrder.st b/src/Squot.package/SquotImageStoreTest.class/instance/testRestoreAdheresToTheLoadOrder.st deleted file mode 100644 index 0e0af098d..000000000 --- a/src/Squot.package/SquotImageStoreTest.class/instance/testRestoreAdheresToTheLoadOrder.st +++ /dev/null @@ -1,16 +0,0 @@ -tests -testRestoreAdheresToTheLoadOrder - "When a snapshot is restored, the load order of its artifacts is considered." - | snapshot materializedPaths | - snapshot := SquotTestSnapshots snapshotWithChangedLoadOrder. - materializedPaths := OrderedCollection new. - snapshot artifacts do: [:each | each become: (SquotArtifactMock new - path: each path; - materializeBlock: [:mock | - materializedPaths add: mock path]; - yourself)]. - "when" - imageStore restoreToSnapshot: snapshot. - "then" - self assert: materializedPaths asArray = snapshot loadOrder asArray. - self assert: imageStore loadOrder asArray = snapshot loadOrder asArray. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStoreTest.class/instance/testRestoreClass.st b/src/Squot.package/SquotImageStoreTest.class/instance/testRestoreClass.st deleted file mode 100644 index 06fedab7e..000000000 --- a/src/Squot.package/SquotImageStoreTest.class/instance/testRestoreClass.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testRestoreClass - | storedClass snapshot restoredClass | - snapshot := self snapshotClass: (storedClass := self class) at: 'src'. - changeLogSuppressor suppressChangeNotificationsDuring: - [SquotChangeSetTestCleanup removeNewChangeSetsNamedLike: self class name - after: [imageStore restoreToSnapshot: snapshot]]. - self assert: snapshot artifacts size = 1. "if this fails, change the test do detect the correct artifact" - self assert: ((restoredClass := imageStore objectAt: snapshot artifacts anyOne path) isKindOf: Class). - self assert: restoredClass - equals: (self shouldnt: [testEnvironment at: storedClass name] raise: KeyNotFound). - self assert: snapshot artifacts anyOne id equals: imageStore artifacts anyOne id. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStoreTest.class/instance/testRestorePackage.st b/src/Squot.package/SquotImageStoreTest.class/instance/testRestorePackage.st deleted file mode 100644 index bf4fe8baf..000000000 --- a/src/Squot.package/SquotImageStoreTest.class/instance/testRestorePackage.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testRestorePackage - | sampleClass packageInfo snapshot restoredClass | - self suppressChangeNotificationsDuring: [sampleClass := classFactory newClass]. - packageInfo := self newPackageInfoFor: classFactory packageName. - self assert: packageInfo extensionMethods isEmpty description: 'Prerequisite'. - snapshot := self snapshotPackage: packageInfo at: 'src'. - self assert: snapshot artifacts size = 1. "if this fails, change the test to detect the correct artifact" - self suppressChangeNotificationsDuring: [imageStore restoreToSnapshot: snapshot]. - self assert: (self shouldnt: [imageStore objectAt: snapshot artifacts anyOne path] raise: KeyNotFound) = packageInfo. - self shouldnt: [restoredClass := testEnvironment at: sampleClass name] raise: KeyNotFound. - self assert: (restoredClass isKindOf: Class). - self assert: (testEnvironment info packages packageNames includes: packageInfo packageName). - self assert: snapshot artifacts anyOne id equals: imageStore artifacts anyOne id. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStoreTest.class/instance/testRestorePackageThatLivesInAnotherEnvironment.st b/src/Squot.package/SquotImageStoreTest.class/instance/testRestorePackageThatLivesInAnotherEnvironment.st deleted file mode 100644 index f22d5c2c5..000000000 --- a/src/Squot.package/SquotImageStoreTest.class/instance/testRestorePackageThatLivesInAnotherEnvironment.st +++ /dev/null @@ -1,33 +0,0 @@ -tests -testRestorePackageThatLivesInAnotherEnvironment - | package snapshot packageArtifact class className | - "Make sure package is restored in testEnvironment even though the store binds to - another environment." - [imageStore environment: self class environment. - testEnvironment beCurrentDuring: - [self suppressChangeNotificationsDuring: [class := classFactory newClass]. - className := class name. - package := MCPackage named: classFactory packageName. - imageStore add: (PackageInfo named: classFactory packageName) at: 'src']. - snapshot := imageStore captureSnapshot. - self assert: ((packageArtifact := snapshot artifacts detect: [:each | each storeInfo objectClassName = PackageInfo name] - ifNone: [self fail: 'No artifact for the package generated']) - packageArtifactDefinitions includes: class asClassDefinition) - description: 'ImageStore must find the class'. - self assert: testEnvironment - identical: (MCWorkingCopy forPackage: package) environment - description: 'prerequisite: MCWorkingCopy environment'. - self assert: testEnvironment - identical: (PackageInfo squotEnvironmentOf: (imageStore artifactAt: 'src')) - description: 'environment must be stored in metadata'. - classFactory delete: class. "so it can be restored from the snapshot" - self suppressChangeNotificationsDuring: [imageStore restoreToSnapshot: snapshot]. - self assert: (testEnvironment hasClassNamed: className) - description: 'reloaded class in correct environment'. - self deny: (Environment current hasClassNamed: className) - description: 'loaded class in wrong environment'. - self deny: (packageArtifact storeInfo anySatisfy: [:each | each isKindOf: Environment]) - description: 'stored artifact should not know the environment'] - ensure: - [(Environment current hasClassNamed: className) "wrong environment" - ifTrue: [classFactory delete: (Environment current at: className)]]. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStoreTest.class/instance/testRestorePackageWithFreshPackageInfo.st b/src/Squot.package/SquotImageStoreTest.class/instance/testRestorePackageWithFreshPackageInfo.st deleted file mode 100644 index 832ea75f3..000000000 --- a/src/Squot.package/SquotImageStoreTest.class/instance/testRestorePackageWithFreshPackageInfo.st +++ /dev/null @@ -1,21 +0,0 @@ -tests -testRestorePackageWithFreshPackageInfo - | sampleClass className packageInfo packages snapshot restoredClass | - self suppressChangeNotificationsDuring: [sampleClass := classFactory newClass]. - className := sampleClass name. - packages := sampleClass environment info packages. - packageInfo := self newPackageInfoFor: classFactory packageName. - self assert: packageInfo extensionMethods isEmpty description: 'Prerequisite'. - snapshot := self snapshotPackage: packageInfo at: 'src'. - self assert: snapshot artifacts size = 1. "if this fails, change the test to detect the correct artifact" - self suppressChangeNotificationsDuring: - [imageStore removeAllObjects. - packageInfo mcPackage unload]. - self deny: (imageStore objectRegistry anySatisfy: [:each | (each isKindOf: PackageInfo) and: [each packageName = packageInfo packageName]]). - packages unregisterPackage: packageInfo. - self assert: (packages packageNamed: packageInfo packageName ifAbsent: []) isNil. - self suppressChangeNotificationsDuring: [imageStore restoreToSnapshot: snapshot]. - self assert: (self shouldnt: [imageStore objectAt: snapshot artifacts anyOne path] raise: KeyNotFound) = packageInfo. - self shouldnt: [restoredClass := testEnvironment at: className] raise: KeyNotFound. - self assert: (restoredClass isKindOf: Class). - self assert: (testEnvironment info packages packageNames includes: packageInfo packageName). \ No newline at end of file diff --git a/src/Squot.package/SquotImageStoreTest.class/instance/testSnapshotAndRestoreText.st b/src/Squot.package/SquotImageStoreTest.class/instance/testSnapshotAndRestoreText.st deleted file mode 100644 index 26aa19031..000000000 --- a/src/Squot.package/SquotImageStoreTest.class/instance/testSnapshotAndRestoreText.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testSnapshotAndRestoreText - | text snapshot | - text := Text fromString: 'Original text'. - imageStore add: text at: 'my text'. - snapshot := imageStore captureSnapshot. - text replaceFrom: 1 to: text size with: 'New, unsaved value'. - imageStore restoreToSnapshot: snapshot. - self assert: 'Original text' equals: text asString. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStoreTest.class/instance/testSnapshotHasSameLoadOrder.st b/src/Squot.package/SquotImageStoreTest.class/instance/testSnapshotHasSameLoadOrder.st deleted file mode 100644 index 664008c4f..000000000 --- a/src/Squot.package/SquotImageStoreTest.class/instance/testSnapshotHasSameLoadOrder.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -testSnapshotHasSameLoadOrder - | snapshot | - imageStore - add: Object new at: 'object1'; - add: Object new at: 'object2'. - "force a loadOrder that is not incidentally reproduced by the 'ordering' of the dictionary keys" - imageStore loadOrder: imageStore objectPaths. - imageStore loadOrder swap: 1 with: 2. - snapshot := imageStore captureSnapshot. - self assert: snapshot loadOrder asArray = imageStore loadOrder asArray. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStoreTest.class/instance/testSnapshotPackageInDifferentEnvironment.st b/src/Squot.package/SquotImageStoreTest.class/instance/testSnapshotPackageInDifferentEnvironment.st deleted file mode 100644 index 74ce76963..000000000 --- a/src/Squot.package/SquotImageStoreTest.class/instance/testSnapshotPackageInDifferentEnvironment.st +++ /dev/null @@ -1,26 +0,0 @@ -tests -testSnapshotPackageInDifferentEnvironment - | yetAnotherEnvironment package workingCopy class snapshot | - yetAnotherEnvironment := Environment withName: self nameForTestEnvironment, ' II'. - yetAnotherEnvironment importSelf. - package := MCPackage named: #VeryUnlikelyPackageName. - self deny: package hasWorkingCopy description: 'test package must not exist'. - (workingCopy := MCWorkingCopy forPackage: package) - environment: yetAnotherEnvironment. - [self suppressChangeNotificationsDuring: - [class := (ClassBuilder new) name: #VeryUnlikelyClassName - inEnvironment: yetAnotherEnvironment subclassOf: Object type: #normal - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' - category: 'VeryUnlikelyPackageName-TestClasses']. - self assert: (workingCopy package snapshot definitions includes: class asClassDefinition) - description: 'Monticello must find the class'. - imageStore add: workingCopy package packageInfo at: 'src'. - snapshot := imageStore captureSnapshot. - self assert: ((snapshot artifacts - detect: [:each | each storeInfo objectClassName = PackageInfo name] - ifNone: [self fail: 'No artifact for the package generated']) - packageArtifactDefinitions includes: class asClassDefinition) - description: 'ImageStore must find the class'.] - ensure: [workingCopy unregister. - self suppressChangeNotificationsDuring: [classFactory delete: class]. - yetAnotherEnvironment destroy]. \ No newline at end of file diff --git a/src/Squot.package/SquotImageStoreTest.class/methodProperties.json b/src/Squot.package/SquotImageStoreTest.class/methodProperties.json deleted file mode 100644 index 6ee81e0e6..000000000 --- a/src/Squot.package/SquotImageStoreTest.class/methodProperties.json +++ /dev/null @@ -1,28 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "changeLogSuppressor" : "jr 4/29/2018 16:50", - "createTestEnvironment" : "jr 1/27/2017 16:08", - "nameForTestEnvironment" : "jr 1/27/2017 16:02", - "newPackageInfoFor:" : "jr 3/5/2017 16:55", - "setUp" : "jr 2/2/2017 14:41", - "snapshotClass:at:" : "jr 3/6/2017 14:33", - "snapshotPackage:at:" : "jr 1/27/2017 16:10", - "tearDown" : "jr 9/20/2019 20:17", - "testAddNewObjectsFromArtifact" : "jr 2/13/2022 18:26", - "testAddingObjectsAddsThemToTheLoadOrder" : "jr 8/18/2018 15:59", - "testApplyPatch" : "jr 7/17/2021 20:42", - "testFiles" : "jr 3/8/2017 17:49", - "testIgnoredInstanceVariables" : "jr 7/20/2017 13:08", - "testMetadataModification" : "jr 6/26/2022 18:05", - "testPatchingPreservesId" : "jr 2/13/2022 18:21", - "testRemoveAlsoRemovesFromLoadOrder" : "jr 9/25/2019 15:45", - "testRestoreAdheresToTheLoadOrder" : "jr 8/18/2018 18:35", - "testRestoreClass" : "jr 2/13/2022 18:31", - "testRestorePackage" : "jr 2/13/2022 18:31", - "testRestorePackageThatLivesInAnotherEnvironment" : "jr 12/23/2019 12:31", - "testRestorePackageWithFreshPackageInfo" : "jr 7/17/2021 01:59", - "testSnapshotAndRestoreText" : "jr 1/27/2017 16:04", - "testSnapshotHasSameLoadOrder" : "jr 8/18/2018 16:36", - "testSnapshotPackageInDifferentEnvironment" : "jr 12/23/2019 17:33" } } diff --git a/src/Squot.package/SquotImageStoreTest.class/properties.json b/src/Squot.package/SquotImageStoreTest.class/properties.json deleted file mode 100644 index 8827fcf18..000000000 --- a/src/Squot.package/SquotImageStoreTest.class/properties.json +++ /dev/null @@ -1,20 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classtraitcomposition" : "TTestCaseSuppressingProgressDisplay classTrait + TTestCaseThatCreatesClassesOrMethods classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 20:01", - "instvars" : [ - "imageStore", - "classFactory", - "createdClasses", - "testEnvironment", - "changeLogSuppressor" ], - "name" : "SquotImageStoreTest", - "pools" : [ - ], - "super" : "TestCase", - "traitcomposition" : "TTestCaseSuppressingProgressDisplay + TTestCaseThatCreatesClassesOrMethods", - "type" : "normal" } diff --git a/src/Squot.package/SquotImageToFileStoreTest.class/README.md b/src/Squot.package/SquotImageToFileStoreTest.class/README.md deleted file mode 100644 index e5bcc866e..000000000 --- a/src/Squot.package/SquotImageToFileStoreTest.class/README.md +++ /dev/null @@ -1,3 +0,0 @@ -I test how SquotImageStore and SquotFileSystemStore work together to create files. - -Instance Variables diff --git a/src/Squot.package/SquotImageToFileStoreTest.class/instance/setUp.st b/src/Squot.package/SquotImageToFileStoreTest.class/instance/setUp.st deleted file mode 100644 index 686ee7761..000000000 --- a/src/Squot.package/SquotImageToFileStoreTest.class/instance/setUp.st +++ /dev/null @@ -1,6 +0,0 @@ -running -setUp - changeLogSuppressor := SUnitChangeLogSuppressor new. - createdClasses := OrderedCollection new. - imageStore := SquotImageStore new. - fileStore := SquotFileSystemStore inDirectory: FileSystem memory root. \ No newline at end of file diff --git a/src/Squot.package/SquotImageToFileStoreTest.class/instance/snapshotClass.at..st b/src/Squot.package/SquotImageToFileStoreTest.class/instance/snapshotClass.at..st deleted file mode 100644 index daedabfde..000000000 --- a/src/Squot.package/SquotImageToFileStoreTest.class/instance/snapshotClass.at..st +++ /dev/null @@ -1,5 +0,0 @@ -utilities -snapshotClass: aClass at: pathString - class := aClass. - imageStore add: class at: pathString. - fileStore restoreToSnapshot: imageStore captureSnapshot. \ No newline at end of file diff --git a/src/Squot.package/SquotImageToFileStoreTest.class/instance/snapshotPackage.at..st b/src/Squot.package/SquotImageToFileStoreTest.class/instance/snapshotPackage.at..st deleted file mode 100644 index c0f9d1154..000000000 --- a/src/Squot.package/SquotImageToFileStoreTest.class/instance/snapshotPackage.at..st +++ /dev/null @@ -1,4 +0,0 @@ -utilities -snapshotPackage: aPackageInfo at: pathString - imageStore add: aPackageInfo at: pathString. - fileStore restoreToSnapshot: imageStore captureSnapshot. \ No newline at end of file diff --git a/src/Squot.package/SquotImageToFileStoreTest.class/instance/tearDown.st b/src/Squot.package/SquotImageToFileStoreTest.class/instance/tearDown.st deleted file mode 100644 index 6429ec365..000000000 --- a/src/Squot.package/SquotImageToFileStoreTest.class/instance/tearDown.st +++ /dev/null @@ -1,5 +0,0 @@ -running -tearDown - fileStore := nil. - imageStore := nil. - createdClasses do: [:each | each removeFromSystemUnlogged]. \ No newline at end of file diff --git a/src/Squot.package/SquotImageToFileStoreTest.class/instance/testRetrieveClass.st b/src/Squot.package/SquotImageToFileStoreTest.class/instance/testRetrieveClass.st deleted file mode 100644 index cf069832a..000000000 --- a/src/Squot.package/SquotImageToFileStoreTest.class/instance/testRetrieveClass.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testRetrieveClass - | classPackageName sampleSelector artifact snapshot | - self snapshotClass: self class at: 'src/Squot-Tests.package/SquotImageToFileStoreTest.class'. - classPackageName := class category. - sampleSelector := thisContext selector. - snapshot := fileStore captureSnapshot. - artifact := snapshot artifactAt: 'src/', classPackageName, '.package/', class name, '.class'. - self assert: class class name equals: (artifact storeInfo at: #objectClassName). - self assert: (artifact shadowOfTrackedObject isKindOf: SquotClassShadow). \ No newline at end of file diff --git a/src/Squot.package/SquotImageToFileStoreTest.class/instance/testRetrievePackage.st b/src/Squot.package/SquotImageToFileStoreTest.class/instance/testRetrievePackage.st deleted file mode 100644 index d1f1e6134..000000000 --- a/src/Squot.package/SquotImageToFileStoreTest.class/instance/testRetrievePackage.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testRetrievePackage - | sampleClass packageInfo artifact snapshot | - sampleClass := self class. - packageInfo := PackageOrganizer default packageOfClass: sampleClass. - self snapshotPackage: packageInfo at: 'src/Squot.package'. - snapshot := fileStore captureSnapshot. - artifact := snapshot artifactAt: 'src/', packageInfo packageName, '.package'. - self assert: packageInfo class name equals: (artifact storeInfo at: #objectClassName). - self assert: (artifact shadowOfTrackedObject isKindOf: SquotPackageShadow). \ No newline at end of file diff --git a/src/Squot.package/SquotImageToFileStoreTest.class/instance/testSnapshotClass.st b/src/Squot.package/SquotImageToFileStoreTest.class/instance/testSnapshotClass.st deleted file mode 100644 index 8996bc4c3..000000000 --- a/src/Squot.package/SquotImageToFileStoreTest.class/instance/testSnapshotClass.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testSnapshotClass - | classPackageName sampleSelector classDirectory | - self snapshotClass: self class at: 'src/Squot-Tests.package/SquotImageToFileStoreTest.class'. - classPackageName := class category. - sampleSelector := thisContext selector. - self assert: (fileStore / 'src') isDirectory. - classDirectory := fileStore / 'src' / (classPackageName, '.package') / (class name, '.class'). - self assert: classDirectory isDirectory. - self assert: (classDirectory / 'properties.json') isFile. - self assert: (classDirectory / 'instance') isDirectory. - self assert: (classDirectory / 'instance' / (sampleSelector, '.st')) isFile. - self assert: (fileStore tableOfContents includesKey: ((classDirectory relativeTo: fileStore directory) printWithDelimiter: $/)). - self assert: (classDirectory / SquotObjectMetadataFile metadataFileName) isFile. \ No newline at end of file diff --git a/src/Squot.package/SquotImageToFileStoreTest.class/instance/testSnapshotPackage.st b/src/Squot.package/SquotImageToFileStoreTest.class/instance/testSnapshotPackage.st deleted file mode 100644 index b419fd1ef..000000000 --- a/src/Squot.package/SquotImageToFileStoreTest.class/instance/testSnapshotPackage.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testSnapshotPackage - | sampleClass packageInfo packageDirectory classDirectory | - sampleClass := self class. - packageInfo := PackageOrganizer default packageOfClass: sampleClass. - self snapshotPackage: packageInfo at: 'src/Squot.package'. - packageDirectory := fileStore / 'src' / (packageInfo packageName, '.package'). - self assert: packageDirectory isDirectory. - self assert: (packageDirectory / 'properties.json') isFile. - classDirectory := packageDirectory / (sampleClass name, '.class'). - self assert: classDirectory isDirectory. - self assert: (packageDirectory / SquotObjectMetadataFile metadataFileName) isFile. \ No newline at end of file diff --git a/src/Squot.package/SquotImageToFileStoreTest.class/instance/testWithText.st b/src/Squot.package/SquotImageToFileStoreTest.class/instance/testWithText.st deleted file mode 100644 index 4585419be..000000000 --- a/src/Squot.package/SquotImageToFileStoreTest.class/instance/testWithText.st +++ /dev/null @@ -1,17 +0,0 @@ -tests -testWithText - | text copyOfText snapshot | - text := Text fromString: 'Original text'. - text addAttribute: TextEmphasis italic from: 1 to: 5. - copyOfText := text copy. - "store" - imageStore add: text at: 'my text'. - snapshot := imageStore captureSnapshot. - fileStore restoreToSnapshot: snapshot. - "assert files" - (fileStore directory / 'my text') exists. - (fileStore directory / 'my text.squot-content') exists. - "restore" - text replaceFrom: 1 to: text size with: 'New, unsaved value'; allBold. - imageStore restoreToSnapshot: fileStore captureSnapshot. - self assert: copyOfText equals: text. \ No newline at end of file diff --git a/src/Squot.package/SquotImageToFileStoreTest.class/instance/testWithWorkspaceMorph.st b/src/Squot.package/SquotImageToFileStoreTest.class/instance/testWithWorkspaceMorph.st deleted file mode 100644 index 487c0aea2..000000000 --- a/src/Squot.package/SquotImageToFileStoreTest.class/instance/testWithWorkspaceMorph.st +++ /dev/null @@ -1,30 +0,0 @@ -tests -testWithWorkspaceMorph - - | workspace systemWindow bindings workspaceArtifact restoredSystemWindow | - self flag: 'TODO: remove greater timeout once the graphs are cleansed'. - workspace := Workspace new. - systemWindow := workspace openLabel: 'Workspace for ', self selector. - workspace contents: 'This is a sample.'. - bindings := Dictionary new. - bindings at: #This put: workspace. - workspace setBindings: bindings. - "store" - imageStore add: systemWindow at: 'sample workspace.morph'. - fileStore restoreToSnapshot: imageStore captureSnapshot. - "assert files" - (fileStore directory / 'sample workspace.morph') exists. - (fileStore directory / 'sample workspace.morph.squot-content') exists. - "restore in different image store" - workspaceArtifact := fileStore captureSnapshot artifactAt: 'sample workspace.morph'. - restoredSystemWindow := SquotWorkingCopy forTestInMemory - loadArtifact: workspaceArtifact; - objectAt: workspaceArtifact path. - restoredSystemWindow openAsIs. - self assert: systemWindow label equals: restoredSystemWindow label. - self assert: workspace contents equals: restoredSystemWindow model contents. - self assert: restoredSystemWindow model ~~ workspace description: 'new workspace'. - self assert: (restoredSystemWindow model bindingOf: #This) value == restoredSystemWindow model - description: 'binding to own model'. - systemWindow delete. - restoredSystemWindow delete. \ No newline at end of file diff --git a/src/Squot.package/SquotImageToFileStoreTest.class/methodProperties.json b/src/Squot.package/SquotImageToFileStoreTest.class/methodProperties.json deleted file mode 100644 index 0c924de5b..000000000 --- a/src/Squot.package/SquotImageToFileStoreTest.class/methodProperties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "setUp" : "jr 4/29/2018 16:54", - "snapshotClass:at:" : "jr 1/27/2017 16:19", - "snapshotPackage:at:" : "jr 1/27/2017 16:19", - "tearDown" : "jr 1/27/2017 16:20", - "testRetrieveClass" : "jr 6/27/2020 10:17", - "testRetrievePackage" : "jr 12/7/2019 22:58", - "testSnapshotClass" : "jr 6/27/2020 10:18", - "testSnapshotPackage" : "jr 12/7/2019 22:58", - "testWithText" : "jr 4/6/2017 01:15", - "testWithWorkspaceMorph" : "jr 12/8/2019 16:28" } } diff --git a/src/Squot.package/SquotImageToFileStoreTest.class/properties.json b/src/Squot.package/SquotImageToFileStoreTest.class/properties.json deleted file mode 100644 index 99e0ed1ac..000000000 --- a/src/Squot.package/SquotImageToFileStoreTest.class/properties.json +++ /dev/null @@ -1,20 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classtraitcomposition" : "TTestCaseSuppressingProgressDisplay classTrait + TTestCaseThatCreatesClassesOrMethods classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 1/27/2017 16:13", - "instvars" : [ - "class", - "imageStore", - "fileStore", - "createdClasses", - "changeLogSuppressor" ], - "name" : "SquotImageToFileStoreTest", - "pools" : [ - ], - "super" : "TestCase", - "traitcomposition" : "TTestCaseSuppressingProgressDisplay + TTestCaseThatCreatesClassesOrMethods", - "type" : "normal" } diff --git a/src/Squot.package/SquotInMemoryHistorian.class/README.md b/src/Squot.package/SquotInMemoryHistorian.class/README.md deleted file mode 100644 index a25cbd6f9..000000000 --- a/src/Squot.package/SquotInMemoryHistorian.class/README.md +++ /dev/null @@ -1,6 +0,0 @@ -I am a simple implementation of a historian, used for testing purposes. - -Instance Variables - name: historian name, like a branch name - repository: - version: head or tip version of this historian diff --git a/src/Squot.package/SquotInMemoryHistorian.class/instance/name..st b/src/Squot.package/SquotInMemoryHistorian.class/instance/name..st deleted file mode 100644 index bb9792e0f..000000000 --- a/src/Squot.package/SquotInMemoryHistorian.class/instance/name..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -name: aString - name := aString \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryHistorian.class/instance/name.st b/src/Squot.package/SquotInMemoryHistorian.class/instance/name.st deleted file mode 100644 index d49dd391b..000000000 --- a/src/Squot.package/SquotInMemoryHistorian.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -Pur historian -name - ^ name \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryHistorian.class/instance/printOn..st b/src/Squot.package/SquotInMemoryHistorian.class/instance/printOn..st deleted file mode 100644 index 193e824b4..000000000 --- a/src/Squot.package/SquotInMemoryHistorian.class/instance/printOn..st +++ /dev/null @@ -1,4 +0,0 @@ -printing -printOn: aStream - aStream print: name; - nextPutAll: ' historian'. \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryHistorian.class/instance/repository..st b/src/Squot.package/SquotInMemoryHistorian.class/instance/repository..st deleted file mode 100644 index 4d6f7e720..000000000 --- a/src/Squot.package/SquotInMemoryHistorian.class/instance/repository..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -repository: anInMemoryRepository - repository := anInMemoryRepository \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryHistorian.class/instance/repository.st b/src/Squot.package/SquotInMemoryHistorian.class/instance/repository.st deleted file mode 100644 index f8de1c90a..000000000 --- a/src/Squot.package/SquotInMemoryHistorian.class/instance/repository.st +++ /dev/null @@ -1,3 +0,0 @@ -Pur historian -repository - ^ repository \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryHistorian.class/instance/version..st b/src/Squot.package/SquotInMemoryHistorian.class/instance/version..st deleted file mode 100644 index 7edcea7b7..000000000 --- a/src/Squot.package/SquotInMemoryHistorian.class/instance/version..st +++ /dev/null @@ -1,3 +0,0 @@ -Pur historian -version: aVersion - version := aVersion. \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryHistorian.class/instance/version.st b/src/Squot.package/SquotInMemoryHistorian.class/instance/version.st deleted file mode 100644 index 9d63ea2bf..000000000 --- a/src/Squot.package/SquotInMemoryHistorian.class/instance/version.st +++ /dev/null @@ -1,3 +0,0 @@ -Pur historian -version - ^ version \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryHistorian.class/methodProperties.json b/src/Squot.package/SquotInMemoryHistorian.class/methodProperties.json deleted file mode 100644 index 0db0ae85b..000000000 --- a/src/Squot.package/SquotInMemoryHistorian.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "name" : "jr 2/4/2017 01:49", - "name:" : "jr 2/4/2017 02:02", - "printOn:" : "jr 7/21/2017 02:53", - "repository" : "jr 2/4/2017 01:49", - "repository:" : "jr 2/4/2017 02:05", - "version" : "jr 2/4/2017 01:49", - "version:" : "jr 2/4/2017 01:49" } } diff --git a/src/Squot.package/SquotInMemoryHistorian.class/properties.json b/src/Squot.package/SquotInMemoryHistorian.class/properties.json deleted file mode 100644 index 346390a81..000000000 --- a/src/Squot.package/SquotInMemoryHistorian.class/properties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotLocalHistorian classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 19:58", - "instvars" : [ - "name", - "version", - "repository" ], - "name" : "SquotInMemoryHistorian", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotLocalHistorian", - "type" : "normal" } diff --git a/src/Squot.package/SquotInMemoryRepository.class/README.md b/src/Squot.package/SquotInMemoryRepository.class/README.md deleted file mode 100644 index d4c47afed..000000000 --- a/src/Squot.package/SquotInMemoryRepository.class/README.md +++ /dev/null @@ -1,5 +0,0 @@ -I am a simple implementation of a repository. All my versions and historians stay in object memory. Used for testing purposes. - -Instance Variables - historians: - versions: diff --git a/src/Squot.package/SquotInMemoryRepository.class/instance/activateDuring..st b/src/Squot.package/SquotInMemoryRepository.class/instance/activateDuring..st deleted file mode 100644 index a9233e5b3..000000000 --- a/src/Squot.package/SquotInMemoryRepository.class/instance/activateDuring..st +++ /dev/null @@ -1,4 +0,0 @@ -unit of work -activateDuring: aBlock - "No units of work in memory." - ^ aBlock value \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryRepository.class/instance/createNewVersion.with..st b/src/Squot.package/SquotInMemoryRepository.class/instance/createNewVersion.with..st deleted file mode 100644 index e9bd20701..000000000 --- a/src/Squot.package/SquotInMemoryRepository.class/instance/createNewVersion.with..st +++ /dev/null @@ -1,17 +0,0 @@ -Squot repository -createNewVersion: aSnapshot with: aBlock - "Build a new version with aSnapshot as its snapshot and supply the new version or a - builder object for it to aBlock, during which additional properties can be set up. - When aBlock returns here, store the new version permanently." - | version | - version := SquotInMemoryVersion new - repository: self; - snapshot: aSnapshot; - in: aBlock; - yourself. - version parents: version parents asArray. "ideally, freeze it" - version metadata at: #author ifAbsentPut: [SquotAuthorRequest signal]. - version metadata at: #committer ifAbsentPut: [SquotCommitterRequest signal]. - version metadata at: #timestamp ifAbsentPut: [TimeStamp now]. - versions add: version. - ^ version \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryRepository.class/instance/createNewVersionFromPatch.with..st b/src/Squot.package/SquotInMemoryRepository.class/instance/createNewVersionFromPatch.with..st deleted file mode 100644 index 32f2891c7..000000000 --- a/src/Squot.package/SquotInMemoryRepository.class/instance/createNewVersionFromPatch.with..st +++ /dev/null @@ -1,18 +0,0 @@ -Squot repository -createNewVersionFromPatch: aPatch with: aBlock - "Build a new version with aPatch applied to the first parent version and supply the - new version or a builder object for it to aBlock, during which additional properties - can be set up. When aBlock returns here, store the new version permanently." - | version | - version := SquotInMemoryVersion new - repository: self; - in: aBlock; - yourself. - version parents: version parents asArray. "ideally, freeze it" - version snapshot: (version parentSnapshot applyPatch: aPatch) snapshot. - version metadata - at: #author ifAbsentPut: [SquotAuthorRequest signal]; - at: #committer ifAbsentPut: [SquotCommitterRequest signal]; - at: #timestamp ifAbsentPut: [TimeStamp now]. - versions add: version. - ^ version \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryRepository.class/instance/defaultHistorian.st b/src/Squot.package/SquotInMemoryRepository.class/instance/defaultHistorian.st deleted file mode 100644 index 07af90505..000000000 --- a/src/Squot.package/SquotInMemoryRepository.class/instance/defaultHistorian.st +++ /dev/null @@ -1,7 +0,0 @@ -Squot repository -defaultHistorian - "Answer a canonical historian that should be at the tip version of my history." - ^ [historians at: 'master' ifAbsent: [self historians anyOne]] - on: Error do: [:e | | newHistorian | - newHistorian := self newHistorian: 'master' version: nil. - e return: newHistorian] \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryRepository.class/instance/delete..st b/src/Squot.package/SquotInMemoryRepository.class/instance/delete..st deleted file mode 100644 index 18e3b92be..000000000 --- a/src/Squot.package/SquotInMemoryRepository.class/instance/delete..st +++ /dev/null @@ -1,3 +0,0 @@ -Pur repository -delete: aHistorian - historians removeKey: aHistorian name. \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryRepository.class/instance/historianNamed..st b/src/Squot.package/SquotInMemoryRepository.class/instance/historianNamed..st deleted file mode 100644 index c79ce8f35..000000000 --- a/src/Squot.package/SquotInMemoryRepository.class/instance/historianNamed..st +++ /dev/null @@ -1,3 +0,0 @@ -Pur repository -historianNamed: aString - ^ historians at: aString ifAbsentPut: [self newHistorian: aString version: nil] \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryRepository.class/instance/historians.st b/src/Squot.package/SquotInMemoryRepository.class/instance/historians.st deleted file mode 100644 index c3a3bdff0..000000000 --- a/src/Squot.package/SquotInMemoryRepository.class/instance/historians.st +++ /dev/null @@ -1,3 +0,0 @@ -Pur repository -historians - ^ historians values \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryRepository.class/instance/initialize.st b/src/Squot.package/SquotInMemoryRepository.class/instance/initialize.st deleted file mode 100644 index c72f08e15..000000000 --- a/src/Squot.package/SquotInMemoryRepository.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initialize - historians := Dictionary new. - versions := IdentitySet new. \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryRepository.class/instance/initializeInDirectory..st b/src/Squot.package/SquotInMemoryRepository.class/instance/initializeInDirectory..st deleted file mode 100644 index 5c20edf42..000000000 --- a/src/Squot.package/SquotInMemoryRepository.class/instance/initializeInDirectory..st +++ /dev/null @@ -1,4 +0,0 @@ -Squot repository -initializeInDirectory: aDirectoryReference - "I am not directory based" - self shouldNotImplement \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryRepository.class/instance/initializeStoreInfo.forObject..st b/src/Squot.package/SquotInMemoryRepository.class/instance/initializeStoreInfo.forObject..st deleted file mode 100644 index 6949d3f18..000000000 --- a/src/Squot.package/SquotInMemoryRepository.class/instance/initializeStoreInfo.forObject..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot repository -initializeStoreInfo: aTrackedObjectMetadata forObject: aShadow - "I do not care for any of the properties." \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryRepository.class/instance/newHistorian.version..st b/src/Squot.package/SquotInMemoryRepository.class/instance/newHistorian.version..st deleted file mode 100644 index db53e42c3..000000000 --- a/src/Squot.package/SquotInMemoryRepository.class/instance/newHistorian.version..st +++ /dev/null @@ -1,9 +0,0 @@ -Pur repository -newHistorian: name version: aVersion - historians at: name ifPresent: [:it | Warning signal: 'Historian with the same name exists']. - ^ SquotInMemoryHistorian new - repository: self; - name: name; - version: aVersion; - in: [:historian | historians at: name put: historian]; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryRepository.class/instance/versionAt..st b/src/Squot.package/SquotInMemoryRepository.class/instance/versionAt..st deleted file mode 100644 index ec14072ae..000000000 --- a/src/Squot.package/SquotInMemoryRepository.class/instance/versionAt..st +++ /dev/null @@ -1,4 +0,0 @@ -Pur repository -versionAt: aVersionIdentifier - "My versions use themselves (or rather their references/pointers) as identifiers." - ^ aVersionIdentifier \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryRepository.class/methodProperties.json b/src/Squot.package/SquotInMemoryRepository.class/methodProperties.json deleted file mode 100644 index aba18e83b..000000000 --- a/src/Squot.package/SquotInMemoryRepository.class/methodProperties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "activateDuring:" : "jr 8/8/2020 17:55", - "createNewVersion:with:" : "jr 2/5/2017 23:31", - "createNewVersionFromPatch:with:" : "jr 1/9/2021 18:05", - "defaultHistorian" : "jr 5/22/2017 23:58", - "delete:" : "jr 2/4/2017 01:41", - "historianNamed:" : "jr 5/25/2017 22:30", - "historians" : "jr 2/4/2017 01:40", - "initialize" : "jr 2/4/2017 01:47", - "initializeInDirectory:" : "jr 2/4/2017 01:43", - "initializeStoreInfo:forObject:" : "jr 5/28/2022 12:03", - "newHistorian:version:" : "jr 2/4/2017 02:40", - "versionAt:" : "jr 2/4/2017 01:47" } } diff --git a/src/Squot.package/SquotInMemoryRepository.class/properties.json b/src/Squot.package/SquotInMemoryRepository.class/properties.json deleted file mode 100644 index a78ff943f..000000000 --- a/src/Squot.package/SquotInMemoryRepository.class/properties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotLocalRepository classTrait + TSquotUnitOfWork classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 19:57", - "instvars" : [ - "historians", - "versions" ], - "name" : "SquotInMemoryRepository", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotLocalRepository + TSquotUnitOfWork", - "type" : "normal" } diff --git a/src/Squot.package/SquotInMemoryRepositoryWorkingCopyTest.class/README.md b/src/Squot.package/SquotInMemoryRepositoryWorkingCopyTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotInMemoryRepositoryWorkingCopyTest.class/instance/expectedFailures.st b/src/Squot.package/SquotInMemoryRepositoryWorkingCopyTest.class/instance/expectedFailures.st deleted file mode 100644 index 7e0bacdf4..000000000 --- a/src/Squot.package/SquotInMemoryRepositoryWorkingCopyTest.class/instance/expectedFailures.st +++ /dev/null @@ -1,6 +0,0 @@ -failures -expectedFailures - | bugs | - bugs := #("testTrackingText" "Because patched object graphs are inconsistent: the list of object names does not use the same instances as the referenced objects. The test currently works due to the optimization that objects that compare equal with #= are not further walked in SquotDiffBuilder, but the issue remains. See SquotShadowPatchingTest testUpdatesNameMappingConsistently."). - bugs flag: #todo. "Fix them" - ^ super expectedFailures, bugs \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryRepositoryWorkingCopyTest.class/instance/newRepository.st b/src/Squot.package/SquotInMemoryRepositoryWorkingCopyTest.class/instance/newRepository.st deleted file mode 100644 index 5b756a12c..000000000 --- a/src/Squot.package/SquotInMemoryRepositoryWorkingCopyTest.class/instance/newRepository.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -newRepository - ^ self repositoryClass new \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryRepositoryWorkingCopyTest.class/instance/testImmutabilityOfSnapshots.st b/src/Squot.package/SquotInMemoryRepositoryWorkingCopyTest.class/instance/testImmutabilityOfSnapshots.st deleted file mode 100644 index dfb91892d..000000000 --- a/src/Squot.package/SquotInMemoryRepositoryWorkingCopyTest.class/instance/testImmutabilityOfSnapshots.st +++ /dev/null @@ -1,24 +0,0 @@ -tests -testImmutabilityOfSnapshots - | firstVersion secondVersion | - self workingCopy - add: 'this is a string' copy at: 'string'; - saveVersionWithMessage: 'add string'. - firstVersion := self workingCopy baseVersion. - (self workingCopy objectAt: 'string') - replaceFrom: 9 to: 16 with: 'one line'. "this is one line" - self assert: 'this is a string' - equals: (firstVersion snapshot artifactAt: 'string') content startShadow value. - self workingCopy saveVersionWithMessage: 'modify string'. - secondVersion := self workingCopy baseVersion. - self assert: 'this is one line' - equals: (secondVersion snapshot artifactAt: 'string') content startShadow value. - self assert: 'this is a string' - equals: (firstVersion snapshot artifactAt: 'string') content startShadow value. - self workingCopy loadVersion: firstVersion interactive: false. - self assert: 'this is a string' - equals: (self workingCopy objectAt: 'string'). - self assert: 'this is a string' - equals: (firstVersion snapshot artifactAt: 'string') content startShadow value. - self assert: 'this is one line' - equals: (secondVersion snapshot artifactAt: 'string') content startShadow value. \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryRepositoryWorkingCopyTest.class/instance/testVersionsDoNotContainWorkingCopyArtifacts.st b/src/Squot.package/SquotInMemoryRepositoryWorkingCopyTest.class/instance/testVersionsDoNotContainWorkingCopyArtifacts.st deleted file mode 100644 index aca11de66..000000000 --- a/src/Squot.package/SquotInMemoryRepositoryWorkingCopyTest.class/instance/testVersionsDoNotContainWorkingCopyArtifacts.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -testVersionsDoNotContainWorkingCopyArtifacts - | firstVersion | - self workingCopy - addUnloaded: (SquotImageStore new - add: 'this is a string' copy at: 'string'; - artifactAt: 'string') capture; - saveVersionWithMessage: 'add string'. - firstVersion := self workingCopy baseVersion. - self deny: ((firstVersion artifactAt: 'string') respondsTo: #isLoaded); - assert: ((self workingCopy artifactAt: 'string') respondsTo: #isLoaded). \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryRepositoryWorkingCopyTest.class/methodProperties.json b/src/Squot.package/SquotInMemoryRepositoryWorkingCopyTest.class/methodProperties.json deleted file mode 100644 index 58d3f073f..000000000 --- a/src/Squot.package/SquotInMemoryRepositoryWorkingCopyTest.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "expectedFailures" : "jr 8/8/2021 16:55", - "newRepository" : "jr 6/18/2022 16:29", - "testImmutabilityOfSnapshots" : "jr 1/26/2020 22:58", - "testVersionsDoNotContainWorkingCopyArtifacts" : "jr 11/18/2020 21:35" } } diff --git a/src/Squot.package/SquotInMemoryRepositoryWorkingCopyTest.class/properties.json b/src/Squot.package/SquotInMemoryRepositoryWorkingCopyTest.class/properties.json deleted file mode 100644 index b52874ed8..000000000 --- a/src/Squot.package/SquotInMemoryRepositoryWorkingCopyTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotInMemoryRepositoryWorkingCopyTest", - "pools" : [ - ], - "super" : "SquotWorkingCopyTest", - "type" : "normal" } diff --git a/src/Squot.package/SquotInMemoryVersion.class/README.md b/src/Squot.package/SquotInMemoryVersion.class/README.md deleted file mode 100644 index 8433413e0..000000000 --- a/src/Squot.package/SquotInMemoryVersion.class/README.md +++ /dev/null @@ -1,7 +0,0 @@ -I am a simple implementation of a version in Squot, used for testing purposes. - -Instance Variables - metadata: - parents: - repository: - snapshot: diff --git a/src/Squot.package/SquotInMemoryVersion.class/instance/^equals.st b/src/Squot.package/SquotInMemoryVersion.class/instance/^equals.st deleted file mode 100644 index c52606bf4..000000000 --- a/src/Squot.package/SquotInMemoryVersion.class/instance/^equals.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -= anObject - ^ anObject == self \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryVersion.class/instance/author..st b/src/Squot.package/SquotInMemoryVersion.class/instance/author..st deleted file mode 100644 index ed63237a1..000000000 --- a/src/Squot.package/SquotInMemoryVersion.class/instance/author..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -author: aString - metadata at: #author put: aString. \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryVersion.class/instance/author.st b/src/Squot.package/SquotInMemoryVersion.class/instance/author.st deleted file mode 100644 index c81a51993..000000000 --- a/src/Squot.package/SquotInMemoryVersion.class/instance/author.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -author - - ^ metadata at: #author ifAbsent: [] \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryVersion.class/instance/authoringTimeStamp..st b/src/Squot.package/SquotInMemoryVersion.class/instance/authoringTimeStamp..st deleted file mode 100644 index 9b6005cc0..000000000 --- a/src/Squot.package/SquotInMemoryVersion.class/instance/authoringTimeStamp..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -authoringTimeStamp: aTimeStamp - metadata at: #timestamp put: aTimeStamp. \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryVersion.class/instance/committer..st b/src/Squot.package/SquotInMemoryVersion.class/instance/committer..st deleted file mode 100644 index 721d93298..000000000 --- a/src/Squot.package/SquotInMemoryVersion.class/instance/committer..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -committer: aString - metadata at: #committer put: aString. \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryVersion.class/instance/committer.st b/src/Squot.package/SquotInMemoryVersion.class/instance/committer.st deleted file mode 100644 index 9bd2ade30..000000000 --- a/src/Squot.package/SquotInMemoryVersion.class/instance/committer.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -committer - ^ metadata at: #committer ifAbsent: [] \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryVersion.class/instance/hash.st b/src/Squot.package/SquotInMemoryVersion.class/instance/hash.st deleted file mode 100644 index b263f50cb..000000000 --- a/src/Squot.package/SquotInMemoryVersion.class/instance/hash.st +++ /dev/null @@ -1,4 +0,0 @@ -comparing -hash - "Override trait method" - ^ self identityHash \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryVersion.class/instance/initialize.st b/src/Squot.package/SquotInMemoryVersion.class/instance/initialize.st deleted file mode 100644 index 7743badc3..000000000 --- a/src/Squot.package/SquotInMemoryVersion.class/instance/initialize.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -initialize - metadata := Dictionary new. \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryVersion.class/instance/internalId.st b/src/Squot.package/SquotInMemoryVersion.class/instance/internalId.st deleted file mode 100644 index db1df60ac..000000000 --- a/src/Squot.package/SquotInMemoryVersion.class/instance/internalId.st +++ /dev/null @@ -1,4 +0,0 @@ -Pur version -internalId - "Use my reference/pointer as identity." - ^ self \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryVersion.class/instance/lazySnapshot.st b/src/Squot.package/SquotInMemoryVersion.class/instance/lazySnapshot.st deleted file mode 100644 index 2f6a132d7..000000000 --- a/src/Squot.package/SquotInMemoryVersion.class/instance/lazySnapshot.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing snapshot -lazySnapshot - ^ self snapshot "all in-memory anyway" \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryVersion.class/instance/message..st b/src/Squot.package/SquotInMemoryVersion.class/instance/message..st deleted file mode 100644 index c014515dc..000000000 --- a/src/Squot.package/SquotInMemoryVersion.class/instance/message..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -message: aString - metadata at: #message put: aString. \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryVersion.class/instance/message.st b/src/Squot.package/SquotInMemoryVersion.class/instance/message.st deleted file mode 100644 index dc069f768..000000000 --- a/src/Squot.package/SquotInMemoryVersion.class/instance/message.st +++ /dev/null @@ -1,3 +0,0 @@ -Squot version -message - ^ metadata at: #message \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryVersion.class/instance/metadata.st b/src/Squot.package/SquotInMemoryVersion.class/instance/metadata.st deleted file mode 100644 index 02f3ac1b5..000000000 --- a/src/Squot.package/SquotInMemoryVersion.class/instance/metadata.st +++ /dev/null @@ -1,3 +0,0 @@ -Pur version -metadata - ^ metadata \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryVersion.class/instance/parents..st b/src/Squot.package/SquotInMemoryVersion.class/instance/parents..st deleted file mode 100644 index 20a937a66..000000000 --- a/src/Squot.package/SquotInMemoryVersion.class/instance/parents..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -parents: anObject - - parents := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryVersion.class/instance/parents.st b/src/Squot.package/SquotInMemoryVersion.class/instance/parents.st deleted file mode 100644 index b40592933..000000000 --- a/src/Squot.package/SquotInMemoryVersion.class/instance/parents.st +++ /dev/null @@ -1,3 +0,0 @@ -Pur version -parents - ^ parents \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryVersion.class/instance/patchRelativeToBase..st b/src/Squot.package/SquotInMemoryVersion.class/instance/patchRelativeToBase..st deleted file mode 100644 index 324ac562f..000000000 --- a/src/Squot.package/SquotInMemoryVersion.class/instance/patchRelativeToBase..st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -patchRelativeToBase: objectContainer - ^ SquotPatch builder patchFrom: objectContainer to: self \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryVersion.class/instance/printOn..st b/src/Squot.package/SquotInMemoryVersion.class/instance/printOn..st deleted file mode 100644 index 9f0dca842..000000000 --- a/src/Squot.package/SquotInMemoryVersion.class/instance/printOn..st +++ /dev/null @@ -1,9 +0,0 @@ -printing -printOn: aStream - aStream - nextPutAll: 'in-memory version '; - print: self identityHash; - space; - nextPut: $"; - nextPutAll: (self message contractTo: 60); - nextPut: $". \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryVersion.class/instance/repository..st b/src/Squot.package/SquotInMemoryVersion.class/instance/repository..st deleted file mode 100644 index 682dc9db2..000000000 --- a/src/Squot.package/SquotInMemoryVersion.class/instance/repository..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -repository: anInMemoryRepository - repository := anInMemoryRepository. \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryVersion.class/instance/repository.st b/src/Squot.package/SquotInMemoryVersion.class/instance/repository.st deleted file mode 100644 index 1f47070a7..000000000 --- a/src/Squot.package/SquotInMemoryVersion.class/instance/repository.st +++ /dev/null @@ -1,4 +0,0 @@ -Pur version -repository - "Answer the PurLocalRepository in which I am stored." - ^ repository \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryVersion.class/instance/snapshot..st b/src/Squot.package/SquotInMemoryVersion.class/instance/snapshot..st deleted file mode 100644 index eb225f738..000000000 --- a/src/Squot.package/SquotInMemoryVersion.class/instance/snapshot..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -snapshot: anObject - - snapshot := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryVersion.class/instance/snapshot.st b/src/Squot.package/SquotInMemoryVersion.class/instance/snapshot.st deleted file mode 100644 index f224d5ea8..000000000 --- a/src/Squot.package/SquotInMemoryVersion.class/instance/snapshot.st +++ /dev/null @@ -1,3 +0,0 @@ -Pur version -snapshot - ^ snapshot \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryVersion.class/instance/timestamp..st b/src/Squot.package/SquotInMemoryVersion.class/instance/timestamp..st deleted file mode 100644 index 9b1831961..000000000 --- a/src/Squot.package/SquotInMemoryVersion.class/instance/timestamp..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -timestamp: aDateAndTime - metadata at: #timestamp put: aDateAndTime \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryVersion.class/instance/timestamp.st b/src/Squot.package/SquotInMemoryVersion.class/instance/timestamp.st deleted file mode 100644 index 345cc990c..000000000 --- a/src/Squot.package/SquotInMemoryVersion.class/instance/timestamp.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -timestamp - - ^ metadata at: #timestamp ifAbsent: [] \ No newline at end of file diff --git a/src/Squot.package/SquotInMemoryVersion.class/methodProperties.json b/src/Squot.package/SquotInMemoryVersion.class/methodProperties.json deleted file mode 100644 index a0e86b600..000000000 --- a/src/Squot.package/SquotInMemoryVersion.class/methodProperties.json +++ /dev/null @@ -1,27 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "=" : "jr 3/16/2019 21:28", - "author" : "jr 2/9/2017 18:09", - "author:" : "jr 2/4/2017 02:46", - "authoringTimeStamp:" : "jr 2/5/2017 23:32", - "committer" : "jr 2/9/2017 18:10", - "committer:" : "jr 2/4/2017 02:46", - "hash" : "jr 3/16/2019 21:28", - "initialize" : "jr 2/4/2017 01:55", - "internalId" : "jr 2/4/2017 01:55", - "lazySnapshot" : "jr 5/29/2017 01:06", - "message" : "jr 2/4/2017 01:55", - "message:" : "jr 2/4/2017 02:03", - "metadata" : "jr 2/4/2017 01:56", - "parents" : "jr 2/4/2017 01:54", - "parents:" : "jr 2/4/2017 01:53", - "patchRelativeToBase:" : "jr 9/17/2018 22:52", - "printOn:" : "jr 5/21/2018 22:12", - "repository" : "jr 2/4/2017 01:54", - "repository:" : "jr 2/4/2017 01:56", - "snapshot" : "jr 2/4/2017 01:53", - "snapshot:" : "jr 2/4/2017 01:53", - "timestamp" : "jr 2/3/2020 20:59", - "timestamp:" : "jr 2/4/2017 02:54" } } diff --git a/src/Squot.package/SquotInMemoryVersion.class/properties.json b/src/Squot.package/SquotInMemoryVersion.class/properties.json deleted file mode 100644 index 1a7b2aeb2..000000000 --- a/src/Squot.package/SquotInMemoryVersion.class/properties.json +++ /dev/null @@ -1,19 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotVersion classTrait + TSquotVersionBuilder classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 19:58", - "instvars" : [ - "snapshot", - "parents", - "repository", - "metadata" ], - "name" : "SquotInMemoryVersion", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotVersion + TSquotVersionBuilder", - "type" : "normal" } diff --git a/src/Squot.package/SquotIndexableField.class/README.md b/src/Squot.package/SquotIndexableField.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotIndexableField.class/class/index..st b/src/Squot.package/SquotIndexableField.class/class/index..st deleted file mode 100644 index b851925ba..000000000 --- a/src/Squot.package/SquotIndexableField.class/class/index..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -index: anInteger - ^ self new setIndex: anInteger; yourself \ No newline at end of file diff --git a/src/Squot.package/SquotIndexableField.class/instance/^equals.st b/src/Squot.package/SquotIndexableField.class/instance/^equals.st deleted file mode 100644 index d90101b34..000000000 --- a/src/Squot.package/SquotIndexableField.class/instance/^equals.st +++ /dev/null @@ -1,9 +0,0 @@ -comparing -= anObject - "Answer whether the receiver and anObject represent the same object." - - self == anObject - ifTrue: [^ true]. - self class = anObject class - ifFalse: [^ false]. - ^ self index = anObject index. \ No newline at end of file diff --git a/src/Squot.package/SquotIndexableField.class/instance/asDiffTreeStringOrText.st b/src/Squot.package/SquotIndexableField.class/instance/asDiffTreeStringOrText.st deleted file mode 100644 index 1db4d9f0c..000000000 --- a/src/Squot.package/SquotIndexableField.class/instance/asDiffTreeStringOrText.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -asDiffTreeStringOrText - ^ index asString \ No newline at end of file diff --git a/src/Squot.package/SquotIndexableField.class/instance/asSlotDiffKey.st b/src/Squot.package/SquotIndexableField.class/instance/asSlotDiffKey.st deleted file mode 100644 index 90fb4d1fc..000000000 --- a/src/Squot.package/SquotIndexableField.class/instance/asSlotDiffKey.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -asSlotDiffKey - ^ index \ No newline at end of file diff --git a/src/Squot.package/SquotIndexableField.class/instance/asSlotWithValue..st b/src/Squot.package/SquotIndexableField.class/instance/asSlotWithValue..st deleted file mode 100644 index e9bdc959c..000000000 --- a/src/Squot.package/SquotIndexableField.class/instance/asSlotWithValue..st +++ /dev/null @@ -1,3 +0,0 @@ -converting -asSlotWithValue: anObject - ^ SquotVariablePartSlot key: index value: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotIndexableField.class/instance/hash.st b/src/Squot.package/SquotIndexableField.class/instance/hash.st deleted file mode 100644 index d4d13f68d..000000000 --- a/src/Squot.package/SquotIndexableField.class/instance/hash.st +++ /dev/null @@ -1,5 +0,0 @@ -comparing -hash - "Answer an integer value that is related to the identity of the receiver." - - ^ self index hash. \ No newline at end of file diff --git a/src/Squot.package/SquotIndexableField.class/instance/index.st b/src/Squot.package/SquotIndexableField.class/instance/index.st deleted file mode 100644 index ad7d30a3e..000000000 --- a/src/Squot.package/SquotIndexableField.class/instance/index.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -index - ^ index \ No newline at end of file diff --git a/src/Squot.package/SquotIndexableField.class/instance/newNameFragment.st b/src/Squot.package/SquotIndexableField.class/instance/newNameFragment.st deleted file mode 100644 index 8049bcd93..000000000 --- a/src/Squot.package/SquotIndexableField.class/instance/newNameFragment.st +++ /dev/null @@ -1,3 +0,0 @@ -capturing -newNameFragment - ^ index \ No newline at end of file diff --git a/src/Squot.package/SquotIndexableField.class/instance/printOn..st b/src/Squot.package/SquotIndexableField.class/instance/printOn..st deleted file mode 100644 index 90e22c123..000000000 --- a/src/Squot.package/SquotIndexableField.class/instance/printOn..st +++ /dev/null @@ -1,8 +0,0 @@ -printing -printOn: aStream - "Append a sequence of characters to aStream that identify the receiver." - - super printOn: aStream. - aStream - nextPutAll: ' index: '; - print: index. \ No newline at end of file diff --git a/src/Squot.package/SquotIndexableField.class/instance/reflect.in..st b/src/Squot.package/SquotIndexableField.class/instance/reflect.in..st deleted file mode 100644 index 342bd9e23..000000000 --- a/src/Squot.package/SquotIndexableField.class/instance/reflect.in..st +++ /dev/null @@ -1,4 +0,0 @@ -reflection -reflect: anObject in: aMirror - "Answer the value of this reference in anObject." - ^ aMirror reflectIndexableField: self in: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotIndexableField.class/instance/reflect.in.put..st b/src/Squot.package/SquotIndexableField.class/instance/reflect.in.put..st deleted file mode 100644 index 096286b4d..000000000 --- a/src/Squot.package/SquotIndexableField.class/instance/reflect.in.put..st +++ /dev/null @@ -1,4 +0,0 @@ -reflection -reflect: anObject in: aMirror put: newValue - "Replace the value of this reference in anObject." - ^ aMirror reflectIndexableField: self in: anObject put: newValue \ No newline at end of file diff --git a/src/Squot.package/SquotIndexableField.class/instance/setIndex..st b/src/Squot.package/SquotIndexableField.class/instance/setIndex..st deleted file mode 100644 index 06dfe7364..000000000 --- a/src/Squot.package/SquotIndexableField.class/instance/setIndex..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -setIndex: anInteger - index := anInteger. \ No newline at end of file diff --git a/src/Squot.package/SquotIndexableField.class/methodProperties.json b/src/Squot.package/SquotIndexableField.class/methodProperties.json deleted file mode 100644 index 540391457..000000000 --- a/src/Squot.package/SquotIndexableField.class/methodProperties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "class" : { - "index:" : "jr 12/15/2020 23:21" }, - "instance" : { - "=" : "jr 12/15/2020 23:29", - "asDiffTreeStringOrText" : "jr 1/16/2022 21:30", - "asSlotDiffKey" : "jr 7/18/2021 20:19", - "asSlotWithValue:" : "jr 7/18/2021 20:22", - "hash" : "jr 12/15/2020 23:29", - "index" : "jr 12/15/2020 23:29", - "newNameFragment" : "jr 4/7/2021 22:10", - "printOn:" : "jr 12/15/2020 23:59", - "reflect:in:" : "jr 12/15/2020 23:58", - "reflect:in:put:" : "jr 12/16/2020 00:07", - "setIndex:" : "jr 12/15/2020 23:20" } } diff --git a/src/Squot.package/SquotIndexableField.class/properties.json b/src/Squot.package/SquotIndexableField.class/properties.json deleted file mode 100644 index f00003e05..000000000 --- a/src/Squot.package/SquotIndexableField.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "index" ], - "name" : "SquotIndexableField", - "pools" : [ - ], - "super" : "SquotReference", - "type" : "normal" } diff --git a/src/Squot.package/SquotInitialLogMessageRequested.class/README.md b/src/Squot.package/SquotInitialLogMessageRequested.class/README.md deleted file mode 100644 index 4ae70c1e9..000000000 --- a/src/Squot.package/SquotInitialLogMessageRequested.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am signalled when the template for a new version's log message is needed. By handling and resuming notification, calling tools can influence the initiallly displayed log message. \ No newline at end of file diff --git a/src/Squot.package/SquotInitialLogMessageRequested.class/methodProperties.json b/src/Squot.package/SquotInitialLogMessageRequested.class/methodProperties.json deleted file mode 100644 index 0e4a66223..000000000 --- a/src/Squot.package/SquotInitialLogMessageRequested.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - } } diff --git a/src/Squot.package/SquotInitialLogMessageRequested.class/properties.json b/src/Squot.package/SquotInitialLogMessageRequested.class/properties.json deleted file mode 100644 index e038a9ce8..000000000 --- a/src/Squot.package/SquotInitialLogMessageRequested.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tools", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 19:45", - "instvars" : [ - ], - "name" : "SquotInitialLogMessageRequested", - "pools" : [ - ], - "super" : "Notification", - "type" : "normal" } diff --git a/src/Squot.package/SquotInstVarSlot.class/README.md b/src/Squot.package/SquotInstVarSlot.class/README.md deleted file mode 100644 index 788cc4754..000000000 --- a/src/Squot.package/SquotInstVarSlot.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I capture an instance variable in an object. \ No newline at end of file diff --git a/src/Squot.package/SquotInstVarSlot.class/class/printHeadlineForChangesTextOn..st b/src/Squot.package/SquotInstVarSlot.class/class/printHeadlineForChangesTextOn..st deleted file mode 100644 index 69c4bce27..000000000 --- a/src/Squot.package/SquotInstVarSlot.class/class/printHeadlineForChangesTextOn..st +++ /dev/null @@ -1,3 +0,0 @@ -tools -printHeadlineForChangesTextOn: aTextStream - aTextStream nextPutAll: 'changed variables'. \ No newline at end of file diff --git a/src/Squot.package/SquotInstVarSlot.class/instance/addTo..st b/src/Squot.package/SquotInstVarSlot.class/instance/addTo..st deleted file mode 100644 index a25368ad4..000000000 --- a/src/Squot.package/SquotInstVarSlot.class/instance/addTo..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -addTo: anObjectShadow - anObjectShadow addInstVarSlot: self. \ No newline at end of file diff --git a/src/Squot.package/SquotInstVarSlot.class/instance/addTo.with..st b/src/Squot.package/SquotInstVarSlot.class/instance/addTo.with..st deleted file mode 100644 index c9f4a6f75..000000000 --- a/src/Squot.package/SquotInstVarSlot.class/instance/addTo.with..st +++ /dev/null @@ -1,4 +0,0 @@ -patching -addTo: anObjectShadow with: aPatcher - anObjectShadow addInstVarSlot: self. - aPatcher addToGraph: self value. \ No newline at end of file diff --git a/src/Squot.package/SquotInstVarSlot.class/instance/asReference.st b/src/Squot.package/SquotInstVarSlot.class/instance/asReference.st deleted file mode 100644 index 793226737..000000000 --- a/src/Squot.package/SquotInstVarSlot.class/instance/asReference.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -asReference - ^ SquotInstanceVariable named: self instVarName \ No newline at end of file diff --git a/src/Squot.package/SquotInstVarSlot.class/instance/diffToBaseInstVar..st b/src/Squot.package/SquotInstVarSlot.class/instance/diffToBaseInstVar..st deleted file mode 100644 index 3bc22151a..000000000 --- a/src/Squot.package/SquotInstVarSlot.class/instance/diffToBaseInstVar..st +++ /dev/null @@ -1,11 +0,0 @@ -comparing -diffToBaseInstVar: baseInstVarSlot - baseInstVarSlot value = self value ifTrue: [^ SquotDiffOfEqualObjects instance]. - self flag: #todo. - "Might need subclasses for each slot type to remember the type. - In that case, let the slots create the reassignment object. - This would also eliminate the access to their internals below." - ^ SquotSlotReassignment - key: baseInstVarSlot key - leftShadow: baseInstVarSlot value - rightShadow: self value \ No newline at end of file diff --git a/src/Squot.package/SquotInstVarSlot.class/instance/instVarName.st b/src/Squot.package/SquotInstVarSlot.class/instance/instVarName.st deleted file mode 100644 index 44cc6376e..000000000 --- a/src/Squot.package/SquotInstVarSlot.class/instance/instVarName.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -instVarName - ^ self key \ No newline at end of file diff --git a/src/Squot.package/SquotInstVarSlot.class/instance/lookupIn..st b/src/Squot.package/SquotInstVarSlot.class/instance/lookupIn..st deleted file mode 100644 index 76753ca88..000000000 --- a/src/Squot.package/SquotInstVarSlot.class/instance/lookupIn..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -lookupIn: anObjectShadow - ^ anObjectShadow instVarSlotNamed: self instVarName \ No newline at end of file diff --git a/src/Squot.package/SquotInstVarSlot.class/instance/removeFrom..st b/src/Squot.package/SquotInstVarSlot.class/instance/removeFrom..st deleted file mode 100644 index a1109d01c..000000000 --- a/src/Squot.package/SquotInstVarSlot.class/instance/removeFrom..st +++ /dev/null @@ -1,4 +0,0 @@ -patching -removeFrom: anObjectShadow - "Usually, instance variables cannot be removed from objects, but they can be removed from shadows to create partial snapshots." - anObjectShadow removeInstVarNamed: self instVarName. \ No newline at end of file diff --git a/src/Squot.package/SquotInstVarSlot.class/instance/removeFrom.with..st b/src/Squot.package/SquotInstVarSlot.class/instance/removeFrom.with..st deleted file mode 100644 index 4d9830251..000000000 --- a/src/Squot.package/SquotInstVarSlot.class/instance/removeFrom.with..st +++ /dev/null @@ -1,4 +0,0 @@ -patching -removeFrom: anObjectShadow with: aPatcher - "Usually, instance variables cannot be removed from objects, but they can be removed from shadows to create partial snapshots." - anObjectShadow removeInstVarNamed: self instVarName. \ No newline at end of file diff --git a/src/Squot.package/SquotInstVarSlot.class/instance/squotDiffAgainst..st b/src/Squot.package/SquotInstVarSlot.class/instance/squotDiffAgainst..st deleted file mode 100644 index 8bb26917a..000000000 --- a/src/Squot.package/SquotInstVarSlot.class/instance/squotDiffAgainst..st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -squotDiffAgainst: otherSlot - ^ otherSlot diffToBaseInstVar: self \ No newline at end of file diff --git a/src/Squot.package/SquotInstVarSlot.class/methodProperties.json b/src/Squot.package/SquotInstVarSlot.class/methodProperties.json deleted file mode 100644 index 37fef40b0..000000000 --- a/src/Squot.package/SquotInstVarSlot.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - "printHeadlineForChangesTextOn:" : "jr 10/31/2017 20:54" }, - "instance" : { - "addTo:" : "jr 9/23/2019 23:24", - "addTo:with:" : "jr 7/16/2017 00:36", - "asReference" : "jr 4/10/2021 12:25", - "diffToBaseInstVar:" : "jr 9/16/2019 21:31", - "instVarName" : "jr 6/17/2017 20:02", - "lookupIn:" : "jr 7/16/2017 15:33", - "removeFrom:" : "jr 9/25/2019 20:24", - "removeFrom:with:" : "jr 9/9/2017 14:20", - "squotDiffAgainst:" : "jr 9/16/2019 21:30" } } diff --git a/src/Squot.package/SquotInstVarSlot.class/properties.json b/src/Squot.package/SquotInstVarSlot.class/properties.json deleted file mode 100644 index c9a9d407b..000000000 --- a/src/Squot.package/SquotInstVarSlot.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Shadows", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 9/18/2019 20:32", - "instvars" : [ - ], - "name" : "SquotInstVarSlot", - "pools" : [ - ], - "super" : "SquotShadowSlot", - "type" : "normal" } diff --git a/src/Squot.package/SquotInstanceVariable.class/README.md b/src/Squot.package/SquotInstanceVariable.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotInstanceVariable.class/class/named..st b/src/Squot.package/SquotInstanceVariable.class/class/named..st deleted file mode 100644 index b56643ed2..000000000 --- a/src/Squot.package/SquotInstanceVariable.class/class/named..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -named: aString - ^ self new setName: aString; yourself \ No newline at end of file diff --git a/src/Squot.package/SquotInstanceVariable.class/instance/^equals.st b/src/Squot.package/SquotInstanceVariable.class/instance/^equals.st deleted file mode 100644 index d9e7413ab..000000000 --- a/src/Squot.package/SquotInstanceVariable.class/instance/^equals.st +++ /dev/null @@ -1,9 +0,0 @@ -comparing -= anObject - "Answer whether the receiver and anObject represent the same object." - - self == anObject - ifTrue: [^ true]. - self class = anObject class - ifFalse: [^ false]. - ^ self name = anObject name. \ No newline at end of file diff --git a/src/Squot.package/SquotInstanceVariable.class/instance/asDiffTreeStringOrText.st b/src/Squot.package/SquotInstanceVariable.class/instance/asDiffTreeStringOrText.st deleted file mode 100644 index 2ae1fd129..000000000 --- a/src/Squot.package/SquotInstanceVariable.class/instance/asDiffTreeStringOrText.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -asDiffTreeStringOrText - ^ name \ No newline at end of file diff --git a/src/Squot.package/SquotInstanceVariable.class/instance/asSlotDiffKey.st b/src/Squot.package/SquotInstanceVariable.class/instance/asSlotDiffKey.st deleted file mode 100644 index f87e401cb..000000000 --- a/src/Squot.package/SquotInstanceVariable.class/instance/asSlotDiffKey.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -asSlotDiffKey - ^ name \ No newline at end of file diff --git a/src/Squot.package/SquotInstanceVariable.class/instance/asSlotWithValue..st b/src/Squot.package/SquotInstanceVariable.class/instance/asSlotWithValue..st deleted file mode 100644 index e646c384b..000000000 --- a/src/Squot.package/SquotInstanceVariable.class/instance/asSlotWithValue..st +++ /dev/null @@ -1,3 +0,0 @@ -converting -asSlotWithValue: anObject - ^ SquotInstVarSlot key: name value: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotInstanceVariable.class/instance/hash.st b/src/Squot.package/SquotInstanceVariable.class/instance/hash.st deleted file mode 100644 index 1c75e0d35..000000000 --- a/src/Squot.package/SquotInstanceVariable.class/instance/hash.st +++ /dev/null @@ -1,5 +0,0 @@ -comparing -hash - "Answer an integer value that is related to the identity of the receiver." - - ^ self name hash. \ No newline at end of file diff --git a/src/Squot.package/SquotInstanceVariable.class/instance/isInstanceVariable.st b/src/Squot.package/SquotInstanceVariable.class/instance/isInstanceVariable.st deleted file mode 100644 index db802bbf0..000000000 --- a/src/Squot.package/SquotInstanceVariable.class/instance/isInstanceVariable.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isInstanceVariable - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotInstanceVariable.class/instance/name.st b/src/Squot.package/SquotInstanceVariable.class/instance/name.st deleted file mode 100644 index 22077c208..000000000 --- a/src/Squot.package/SquotInstanceVariable.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ name \ No newline at end of file diff --git a/src/Squot.package/SquotInstanceVariable.class/instance/newNameFragment.st b/src/Squot.package/SquotInstanceVariable.class/instance/newNameFragment.st deleted file mode 100644 index 539d17abd..000000000 --- a/src/Squot.package/SquotInstanceVariable.class/instance/newNameFragment.st +++ /dev/null @@ -1,3 +0,0 @@ -capturing -newNameFragment - ^ name \ No newline at end of file diff --git a/src/Squot.package/SquotInstanceVariable.class/instance/printOn..st b/src/Squot.package/SquotInstanceVariable.class/instance/printOn..st deleted file mode 100644 index 649f9a58f..000000000 --- a/src/Squot.package/SquotInstanceVariable.class/instance/printOn..st +++ /dev/null @@ -1,8 +0,0 @@ -printing -printOn: aStream - "Append a sequence of characters to aStream that identify the receiver." - - super printOn: aStream. - aStream - nextPutAll: ' name: '; - print: name. \ No newline at end of file diff --git a/src/Squot.package/SquotInstanceVariable.class/instance/reflect.in..st b/src/Squot.package/SquotInstanceVariable.class/instance/reflect.in..st deleted file mode 100644 index ff7f339b1..000000000 --- a/src/Squot.package/SquotInstanceVariable.class/instance/reflect.in..st +++ /dev/null @@ -1,4 +0,0 @@ -reflection -reflect: anObject in: aMirror - "Answer the value of this reference in anObject." - ^ aMirror reflectInstanceVariable: self in: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotInstanceVariable.class/instance/reflect.in.put..st b/src/Squot.package/SquotInstanceVariable.class/instance/reflect.in.put..st deleted file mode 100644 index 62dc8a6f2..000000000 --- a/src/Squot.package/SquotInstanceVariable.class/instance/reflect.in.put..st +++ /dev/null @@ -1,4 +0,0 @@ -reflection -reflect: anObject in: aMirror put: newValue - "Replace the value of this reference in anObject." - ^ aMirror reflectInstanceVariable: self in: anObject put: newValue \ No newline at end of file diff --git a/src/Squot.package/SquotInstanceVariable.class/instance/setName..st b/src/Squot.package/SquotInstanceVariable.class/instance/setName..st deleted file mode 100644 index ca9113bfb..000000000 --- a/src/Squot.package/SquotInstanceVariable.class/instance/setName..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -setName: aString - name := aString. \ No newline at end of file diff --git a/src/Squot.package/SquotInstanceVariable.class/methodProperties.json b/src/Squot.package/SquotInstanceVariable.class/methodProperties.json deleted file mode 100644 index 78f78300e..000000000 --- a/src/Squot.package/SquotInstanceVariable.class/methodProperties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "class" : { - "named:" : "jr 12/15/2020 23:21" }, - "instance" : { - "=" : "jr 12/15/2020 23:30", - "asDiffTreeStringOrText" : "jr 1/16/2022 21:30", - "asSlotDiffKey" : "jr 7/18/2021 20:18", - "asSlotWithValue:" : "jr 7/18/2021 20:31", - "hash" : "jr 12/15/2020 23:30", - "isInstanceVariable" : "jr 4/17/2021 17:54", - "name" : "jr 12/15/2020 23:29", - "newNameFragment" : "jr 1/17/2021 22:42", - "printOn:" : "jr 12/15/2020 23:59", - "reflect:in:" : "jr 12/15/2020 23:43", - "reflect:in:put:" : "jr 12/16/2020 00:10", - "setName:" : "jr 12/15/2020 23:20" } } diff --git a/src/Squot.package/SquotInstanceVariable.class/properties.json b/src/Squot.package/SquotInstanceVariable.class/properties.json deleted file mode 100644 index 3658b4698..000000000 --- a/src/Squot.package/SquotInstanceVariable.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "name" ], - "name" : "SquotInstanceVariable", - "pools" : [ - ], - "super" : "SquotReference", - "type" : "normal" } diff --git a/src/Squot.package/SquotInteractiveCherryPick.class/README.md b/src/Squot.package/SquotInteractiveCherryPick.class/README.md deleted file mode 100644 index aa805029f..000000000 --- a/src/Squot.package/SquotInteractiveCherryPick.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am a cherry-pick workflow that involves the user. \ No newline at end of file diff --git a/src/Squot.package/SquotInteractiveCherryPick.class/instance/applyMerge.st b/src/Squot.package/SquotInteractiveCherryPick.class/instance/applyMerge.st deleted file mode 100644 index a9eb1c4b3..000000000 --- a/src/Squot.package/SquotInteractiveCherryPick.class/instance/applyMerge.st +++ /dev/null @@ -1,4 +0,0 @@ -applying -applyMerge - ^ merge applyToWorkingCopy - then: [:ignored | loadedPatch := merge appliedPatch] \ No newline at end of file diff --git a/src/Squot.package/SquotInteractiveCherryPick.class/instance/applyToWorkingCopy.st b/src/Squot.package/SquotInteractiveCherryPick.class/instance/applyToWorkingCopy.st deleted file mode 100644 index f9c277d3d..000000000 --- a/src/Squot.package/SquotInteractiveCherryPick.class/instance/applyToWorkingCopy.st +++ /dev/null @@ -1,16 +0,0 @@ -applying -applyToWorkingCopy - "Execute the cherry pick." - | promise | - self validateRequestor. - promise := self resultPromise. - self withUnitOfWorkActive: - [self startUnitOfWork. - self prepareMerge. "capture lazy snapshot here" - promise resolveWith: - (self applyMerge - then: [:ignored | self save "captured snapshot used here if reverted"])]. - promise - whenResolved: [self finishUnitOfWork]; - whenRejected: [self finishUnitOfWork]. - ^ promise \ No newline at end of file diff --git a/src/Squot.package/SquotInteractiveCherryPick.class/instance/privateNewMerge.st b/src/Squot.package/SquotInteractiveCherryPick.class/instance/privateNewMerge.st deleted file mode 100644 index 82b67fd4f..000000000 --- a/src/Squot.package/SquotInteractiveCherryPick.class/instance/privateNewMerge.st +++ /dev/null @@ -1,3 +0,0 @@ -applying -privateNewMerge - ^ self workingCopy newInteractiveMergeOperation \ No newline at end of file diff --git a/src/Squot.package/SquotInteractiveCherryPick.class/instance/privateNewSave.st b/src/Squot.package/SquotInteractiveCherryPick.class/instance/privateNewSave.st deleted file mode 100644 index 0882b1972..000000000 --- a/src/Squot.package/SquotInteractiveCherryPick.class/instance/privateNewSave.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -privateNewSave - ^ self workingCopy newInteractiveSaveOperation \ No newline at end of file diff --git a/src/Squot.package/SquotInteractiveCherryPick.class/instance/save.st b/src/Squot.package/SquotInteractiveCherryPick.class/instance/save.st deleted file mode 100644 index f729894ab..000000000 --- a/src/Squot.package/SquotInteractiveCherryPick.class/instance/save.st +++ /dev/null @@ -1,12 +0,0 @@ -applying -save - ^ (self prepareSave - title: 'Select changes and message for the new version'; - requestor: self requestor; - applyToWorkingCopy) - then: [:newVersion | newVersion] - ifRejected: - [:reason | - self requestor getShouldRevertCherryPickedChanges ifTrue: - [self revertMerge "captured snapshot used here"]. - Promise new rejectWith: 'Save was cancelled'] \ No newline at end of file diff --git a/src/Squot.package/SquotInteractiveCherryPick.class/instance/validateRequestor.st b/src/Squot.package/SquotInteractiveCherryPick.class/instance/validateRequestor.st deleted file mode 100644 index 9da8ef8cb..000000000 --- a/src/Squot.package/SquotInteractiveCherryPick.class/instance/validateRequestor.st +++ /dev/null @@ -1,4 +0,0 @@ -applying -validateRequestor - (self requestor respondsTo: #getShouldRevertCherryPickedChanges) - ifFalse: [self error: 'Unsuitable requestor']. \ No newline at end of file diff --git a/src/Squot.package/SquotInteractiveCherryPick.class/methodProperties.json b/src/Squot.package/SquotInteractiveCherryPick.class/methodProperties.json deleted file mode 100644 index c4e47143a..000000000 --- a/src/Squot.package/SquotInteractiveCherryPick.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "applyMerge" : "jr 1/26/2020 21:46", - "applyToWorkingCopy" : "jr 4/17/2020 19:56", - "privateNewMerge" : "jr 1/19/2020 01:43", - "privateNewSave" : "jr 1/26/2020 21:56", - "save" : "jr 6/13/2020 15:02", - "validateRequestor" : "jr 1/7/2020 00:04" } } diff --git a/src/Squot.package/SquotInteractiveCherryPick.class/properties.json b/src/Squot.package/SquotInteractiveCherryPick.class/properties.json deleted file mode 100644 index bd19ff1c6..000000000 --- a/src/Squot.package/SquotInteractiveCherryPick.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tools", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 20:45", - "instvars" : [ - ], - "name" : "SquotInteractiveCherryPick", - "pools" : [ - ], - "super" : "SquotCherryPickOperation", - "type" : "normal" } diff --git a/src/Squot.package/SquotInteractiveMerge.class/README.md b/src/Squot.package/SquotInteractiveMerge.class/README.md deleted file mode 100644 index 00d64dee7..000000000 --- a/src/Squot.package/SquotInteractiveMerge.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am a merge that asks the user what should be loaded and how conflicts have to be resolved. \ No newline at end of file diff --git a/src/Squot.package/SquotInteractiveMerge.class/instance/applyToWorkingCopy.st b/src/Squot.package/SquotInteractiveMerge.class/instance/applyToWorkingCopy.st deleted file mode 100644 index ff27307fc..000000000 --- a/src/Squot.package/SquotInteractiveMerge.class/instance/applyToWorkingCopy.st +++ /dev/null @@ -1,16 +0,0 @@ -applying -applyToWorkingCopy - "Compute merge, ask user which changes should be loaded, then do load them. - Answer a promise that will be resolved with the loaded patch, if accepted." - | promise | - promise := self resultPromise. - promise - resolveWith: - (self chooseChanges - then: - [:aPatch | super applyToWorkingCopy. - self resultPromise resolveWith: aPatch]; - ifRejected: [:reason | self resultPromise rejectWith: reason]); - whenResolved: [self finishUnitOfWork]; - whenRejected: [self finishUnitOfWork]. - ^ promise \ No newline at end of file diff --git a/src/Squot.package/SquotInteractiveMerge.class/instance/chooseChanges.st b/src/Squot.package/SquotInteractiveMerge.class/instance/chooseChanges.st deleted file mode 100644 index b7cb16be1..000000000 --- a/src/Squot.package/SquotInteractiveMerge.class/instance/chooseChanges.st +++ /dev/null @@ -1,10 +0,0 @@ -applying -chooseChanges - | tool | - tool := SquotMergeTool on: merge. - tool workingCopy: self workingCopy; - "addIgnoredArtifacts: self ignoredArtifacts;" - controllerForIgnores: self. - ^ (tool selectedChangesWithTitle: self title) - then: [:ignored | merge resolvedPatch] - ifRejected: [:ignored | Promise new rejectWith: 'Merge was cancelled'] \ No newline at end of file diff --git a/src/Squot.package/SquotInteractiveMerge.class/methodProperties.json b/src/Squot.package/SquotInteractiveMerge.class/methodProperties.json deleted file mode 100644 index 6c89bfca8..000000000 --- a/src/Squot.package/SquotInteractiveMerge.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "applyToWorkingCopy" : "jr 8/1/2020 16:08", - "chooseChanges" : "jr 6/13/2020 15:02" } } diff --git a/src/Squot.package/SquotInteractiveMerge.class/properties.json b/src/Squot.package/SquotInteractiveMerge.class/properties.json deleted file mode 100644 index d4273f7ef..000000000 --- a/src/Squot.package/SquotInteractiveMerge.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tools", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 20:48", - "instvars" : [ - ], - "name" : "SquotInteractiveMerge", - "pools" : [ - ], - "super" : "SquotMergeOperation", - "type" : "normal" } diff --git a/src/Squot.package/SquotInteractiveRevert.class/README.md b/src/Squot.package/SquotInteractiveRevert.class/README.md deleted file mode 100644 index 3497571da..000000000 --- a/src/Squot.package/SquotInteractiveRevert.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am a revert workflow that involves the user. \ No newline at end of file diff --git a/src/Squot.package/SquotInteractiveRevert.class/instance/applyMerge.st b/src/Squot.package/SquotInteractiveRevert.class/instance/applyMerge.st deleted file mode 100644 index a9eb1c4b3..000000000 --- a/src/Squot.package/SquotInteractiveRevert.class/instance/applyMerge.st +++ /dev/null @@ -1,4 +0,0 @@ -applying -applyMerge - ^ merge applyToWorkingCopy - then: [:ignored | loadedPatch := merge appliedPatch] \ No newline at end of file diff --git a/src/Squot.package/SquotInteractiveRevert.class/instance/applyToWorkingCopy.st b/src/Squot.package/SquotInteractiveRevert.class/instance/applyToWorkingCopy.st deleted file mode 100644 index f9c277d3d..000000000 --- a/src/Squot.package/SquotInteractiveRevert.class/instance/applyToWorkingCopy.st +++ /dev/null @@ -1,16 +0,0 @@ -applying -applyToWorkingCopy - "Execute the cherry pick." - | promise | - self validateRequestor. - promise := self resultPromise. - self withUnitOfWorkActive: - [self startUnitOfWork. - self prepareMerge. "capture lazy snapshot here" - promise resolveWith: - (self applyMerge - then: [:ignored | self save "captured snapshot used here if reverted"])]. - promise - whenResolved: [self finishUnitOfWork]; - whenRejected: [self finishUnitOfWork]. - ^ promise \ No newline at end of file diff --git a/src/Squot.package/SquotInteractiveRevert.class/instance/privateNewMerge.st b/src/Squot.package/SquotInteractiveRevert.class/instance/privateNewMerge.st deleted file mode 100644 index 82b67fd4f..000000000 --- a/src/Squot.package/SquotInteractiveRevert.class/instance/privateNewMerge.st +++ /dev/null @@ -1,3 +0,0 @@ -applying -privateNewMerge - ^ self workingCopy newInteractiveMergeOperation \ No newline at end of file diff --git a/src/Squot.package/SquotInteractiveRevert.class/instance/privateNewSave.st b/src/Squot.package/SquotInteractiveRevert.class/instance/privateNewSave.st deleted file mode 100644 index 0882b1972..000000000 --- a/src/Squot.package/SquotInteractiveRevert.class/instance/privateNewSave.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -privateNewSave - ^ self workingCopy newInteractiveSaveOperation \ No newline at end of file diff --git a/src/Squot.package/SquotInteractiveRevert.class/instance/save.st b/src/Squot.package/SquotInteractiveRevert.class/instance/save.st deleted file mode 100644 index f729894ab..000000000 --- a/src/Squot.package/SquotInteractiveRevert.class/instance/save.st +++ /dev/null @@ -1,12 +0,0 @@ -applying -save - ^ (self prepareSave - title: 'Select changes and message for the new version'; - requestor: self requestor; - applyToWorkingCopy) - then: [:newVersion | newVersion] - ifRejected: - [:reason | - self requestor getShouldRevertCherryPickedChanges ifTrue: - [self revertMerge "captured snapshot used here"]. - Promise new rejectWith: 'Save was cancelled'] \ No newline at end of file diff --git a/src/Squot.package/SquotInteractiveRevert.class/instance/validateRequestor.st b/src/Squot.package/SquotInteractiveRevert.class/instance/validateRequestor.st deleted file mode 100644 index 9da8ef8cb..000000000 --- a/src/Squot.package/SquotInteractiveRevert.class/instance/validateRequestor.st +++ /dev/null @@ -1,4 +0,0 @@ -applying -validateRequestor - (self requestor respondsTo: #getShouldRevertCherryPickedChanges) - ifFalse: [self error: 'Unsuitable requestor']. \ No newline at end of file diff --git a/src/Squot.package/SquotInteractiveRevert.class/methodProperties.json b/src/Squot.package/SquotInteractiveRevert.class/methodProperties.json deleted file mode 100644 index c4e47143a..000000000 --- a/src/Squot.package/SquotInteractiveRevert.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "applyMerge" : "jr 1/26/2020 21:46", - "applyToWorkingCopy" : "jr 4/17/2020 19:56", - "privateNewMerge" : "jr 1/19/2020 01:43", - "privateNewSave" : "jr 1/26/2020 21:56", - "save" : "jr 6/13/2020 15:02", - "validateRequestor" : "jr 1/7/2020 00:04" } } diff --git a/src/Squot.package/SquotInteractiveRevert.class/properties.json b/src/Squot.package/SquotInteractiveRevert.class/properties.json deleted file mode 100644 index 827cb534e..000000000 --- a/src/Squot.package/SquotInteractiveRevert.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tools", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 1/23/2022 00:20", - "instvars" : [ - ], - "name" : "SquotInteractiveRevert", - "pools" : [ - ], - "super" : "SquotRevertOperation", - "type" : "normal" } diff --git a/src/Squot.package/SquotInteractiveSave.class/README.md b/src/Squot.package/SquotInteractiveSave.class/README.md deleted file mode 100644 index c9b5eb0be..000000000 --- a/src/Squot.package/SquotInteractiveSave.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I ask the user what to save from the changes in a working copy. \ No newline at end of file diff --git a/src/Squot.package/SquotInteractiveSave.class/instance/applyToWorkingCopy.st b/src/Squot.package/SquotInteractiveSave.class/instance/applyToWorkingCopy.st deleted file mode 100644 index e5b45ae56..000000000 --- a/src/Squot.package/SquotInteractiveSave.class/instance/applyToWorkingCopy.st +++ /dev/null @@ -1,17 +0,0 @@ -applying -applyToWorkingCopy - "Save the new version in the repository." - workingCopy hasAdditionalParents ifTrue: - [self confirmAdditionalParents ifFalse: [^ Promise new rejectWith: #cancelled]]. - ^ (self withUnitOfWorkActive: - [self startUnitOfWork. - patch ifNil: [patch := self computePatch]. - self validate; - applyLoadStatusToPatchArtifacts: patch; - chooseChanges]) - then: [:aPatch | - [self patch: aPatch; - createVersion; - updateWorkingCopy. - "resolve with:" self newVersion] - ensure: [self finishUnitOfWork]] \ No newline at end of file diff --git a/src/Squot.package/SquotInteractiveSave.class/instance/chooseChanges.st b/src/Squot.package/SquotInteractiveSave.class/instance/chooseChanges.st deleted file mode 100644 index bcf7264f0..000000000 --- a/src/Squot.package/SquotInteractiveSave.class/instance/chooseChanges.st +++ /dev/null @@ -1,20 +0,0 @@ -applying -chooseChanges - | tool | - tool := (SquotSaveVersionDialog on: self patch) - parentVersions: self parentVersions; - workingCopy: self workingCopy; - controllerForIgnores: self; - yourself. - self message ifNotNil: [tool message: self message]. - ^ (tool selectedChangesWithTitle: self title) - then: [:ignored | - tool messageWasChanged - ifTrue: - [self workingCopy newVersionMessage: tool message asString]. - self message: tool message asString. - tool selectedPatch] - ifRejected: [:ignored | - tool messageWasChanged - ifTrue: [self workingCopy newVersionMessage: tool message asString]. - Promise new rejectWith: 'Save was cancelled'] \ No newline at end of file diff --git a/src/Squot.package/SquotInteractiveSave.class/instance/confirmAdditionalParents.st b/src/Squot.package/SquotInteractiveSave.class/instance/confirmAdditionalParents.st deleted file mode 100644 index 34c31c613..000000000 --- a/src/Squot.package/SquotInteractiveSave.class/instance/confirmAdditionalParents.st +++ /dev/null @@ -1,14 +0,0 @@ -private -confirmAdditionalParents - (SquotWorkingCopyHasAdditionalParents workingCopy: self workingCopy operation: self) - signal ifNotNil: [:answer | ^ answer]. - ^ SquotGUI confirm: ('Your working copy has multiple parent versions: - -{1} - -This is right if you initiated a merge, but did not save the merged version yet. - -Do you wish to save a new version with these parent versions? -If not, please choose "No" and reset the active branch to the desired one and only parent version.' translated - format: {(workingCopy parentVersions collect: [:each | each asString]) - joinSeparatedBy: String cr}) \ No newline at end of file diff --git a/src/Squot.package/SquotInteractiveSave.class/instance/validate.st b/src/Squot.package/SquotInteractiveSave.class/instance/validate.st deleted file mode 100644 index 1c62c8117..000000000 --- a/src/Squot.package/SquotInteractiveSave.class/instance/validate.st +++ /dev/null @@ -1,9 +0,0 @@ -applying -validate - "Do not test the message yet, it will be provided interactively." - "See also super>>validate, SquotInteractiveSave>>validateForCherryPick." - self withUnitOfWorkActive: - [historian ifNil: [self error: 'Historian to store to not configured']. - self patch ifNil: [self error: 'No changes to be saved']. - self author ifNil: [self error: 'Author not configured']. - self committer ifNil: [self error: 'Committer not configured']]. \ No newline at end of file diff --git a/src/Squot.package/SquotInteractiveSave.class/instance/validateForCherryPick.st b/src/Squot.package/SquotInteractiveSave.class/instance/validateForCherryPick.st deleted file mode 100644 index af70f3184..000000000 --- a/src/Squot.package/SquotInteractiveSave.class/instance/validateForCherryPick.st +++ /dev/null @@ -1,8 +0,0 @@ -applying -validateForCherryPick - "Do not test the patch and the message yet, it will be determined after the merge and in the save dialog, respectively." - "See also SquotInteractiveSave>>validate." - self withUnitOfWorkActive: - [historian ifNil: [self error: 'Historian to store to not configured']. - self author ifNil: [self error: 'Author not configured']. - self committer ifNil: [self error: 'Committer not configured']]. \ No newline at end of file diff --git a/src/Squot.package/SquotInteractiveSave.class/methodProperties.json b/src/Squot.package/SquotInteractiveSave.class/methodProperties.json deleted file mode 100644 index 6588ea183..000000000 --- a/src/Squot.package/SquotInteractiveSave.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "applyToWorkingCopy" : "jr 3/9/2022 23:06", - "chooseChanges" : "jr 6/8/2020 21:21", - "confirmAdditionalParents" : "jr 10/31/2022 19:17", - "validate" : "jr 11/19/2020 13:02", - "validateForCherryPick" : "jr 11/19/2020 13:01" } } diff --git a/src/Squot.package/SquotInteractiveSave.class/properties.json b/src/Squot.package/SquotInteractiveSave.class/properties.json deleted file mode 100644 index cdbd4b195..000000000 --- a/src/Squot.package/SquotInteractiveSave.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tools", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 20:49", - "instvars" : [ - ], - "name" : "SquotInteractiveSave", - "pools" : [ - ], - "super" : "SquotSaveOperation", - "type" : "normal" } diff --git a/src/Squot.package/SquotKeyVariable.class/README.md b/src/Squot.package/SquotKeyVariable.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotKeyVariable.class/instance/isHashRelevant.st b/src/Squot.package/SquotKeyVariable.class/instance/isHashRelevant.st deleted file mode 100644 index 2d9f831f3..000000000 --- a/src/Squot.package/SquotKeyVariable.class/instance/isHashRelevant.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isHashRelevant - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotKeyVariable.class/methodProperties.json b/src/Squot.package/SquotKeyVariable.class/methodProperties.json deleted file mode 100644 index 48cd6511a..000000000 --- a/src/Squot.package/SquotKeyVariable.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "isHashRelevant" : "jr 4/17/2021 17:48" } } diff --git a/src/Squot.package/SquotKeyVariable.class/properties.json b/src/Squot.package/SquotKeyVariable.class/properties.json deleted file mode 100644 index f333d4633..000000000 --- a/src/Squot.package/SquotKeyVariable.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotKeyVariable", - "pools" : [ - ], - "super" : "SquotInstanceVariable", - "type" : "normal" } diff --git a/src/Squot.package/SquotLazyArtifact.class/README.md b/src/Squot.package/SquotLazyArtifact.class/README.md deleted file mode 100644 index d21fbe345..000000000 --- a/src/Squot.package/SquotLazyArtifact.class/README.md +++ /dev/null @@ -1,7 +0,0 @@ -I am an artifact that loads data and metadata only when asked for it. - -I am supposed to be used during only a single unit of work. That means if you want to modify my object graph and want the changes be reflected in the #content of the artifact, you have to get a new artifact from the store. I will only capture my object graph or metadata once, when you first ask for it. - -Instance Variables - contentBlock: evaluated when the content is accessed - storeInfoBlock: evaluated when the storeInfo is accessed \ No newline at end of file diff --git a/src/Squot.package/SquotLazyArtifact.class/instance/capture.st b/src/Squot.package/SquotLazyArtifact.class/instance/capture.st deleted file mode 100644 index 716e6be29..000000000 --- a/src/Squot.package/SquotLazyArtifact.class/instance/capture.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -capture - ^ self snapshot \ No newline at end of file diff --git a/src/Squot.package/SquotLazyArtifact.class/instance/content.st b/src/Squot.package/SquotLazyArtifact.class/instance/content.st deleted file mode 100644 index 21386006a..000000000 --- a/src/Squot.package/SquotLazyArtifact.class/instance/content.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -content - content ifNil: [contentBlock value]. - content ifNotNil: [contentBlock := nil]. - ^ content \ No newline at end of file diff --git a/src/Squot.package/SquotLazyArtifact.class/instance/id.st b/src/Squot.package/SquotLazyArtifact.class/instance/id.st deleted file mode 100644 index 15be5e09e..000000000 --- a/src/Squot.package/SquotLazyArtifact.class/instance/id.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -id - ^ id ifNil: [self storeInfo at: #id ifAbsent: []] \ No newline at end of file diff --git a/src/Squot.package/SquotLazyArtifact.class/instance/initialize.st b/src/Squot.package/SquotLazyArtifact.class/instance/initialize.st deleted file mode 100644 index 6ff6f2693..000000000 --- a/src/Squot.package/SquotLazyArtifact.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialize-release -initialize - super initialize. - "Some properties must yet be loaded." - id := nil. - storeInfo removeAll. \ No newline at end of file diff --git a/src/Squot.package/SquotLazyArtifact.class/instance/onLoadContent..st b/src/Squot.package/SquotLazyArtifact.class/instance/onLoadContent..st deleted file mode 100644 index 0ab8bd3f3..000000000 --- a/src/Squot.package/SquotLazyArtifact.class/instance/onLoadContent..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -onLoadContent: aBlock - contentBlock := aBlock. \ No newline at end of file diff --git a/src/Squot.package/SquotLazyArtifact.class/instance/onLoadStoreInfo..st b/src/Squot.package/SquotLazyArtifact.class/instance/onLoadStoreInfo..st deleted file mode 100644 index 1abaf7982..000000000 --- a/src/Squot.package/SquotLazyArtifact.class/instance/onLoadStoreInfo..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -onLoadStoreInfo: aBlock - storeInfoBlock := aBlock. \ No newline at end of file diff --git a/src/Squot.package/SquotLazyArtifact.class/instance/snapshot.st b/src/Squot.package/SquotLazyArtifact.class/instance/snapshot.st deleted file mode 100644 index 2e100decd..000000000 --- a/src/Squot.package/SquotLazyArtifact.class/instance/snapshot.st +++ /dev/null @@ -1,6 +0,0 @@ -converting -snapshot - "Evaluate my blocks immediately." - ^ (self copyWithDifferentContent: self content) - storeInfo: self storeInfo; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotLazyArtifact.class/instance/storeInfo.st b/src/Squot.package/SquotLazyArtifact.class/instance/storeInfo.st deleted file mode 100644 index 305f820cd..000000000 --- a/src/Squot.package/SquotLazyArtifact.class/instance/storeInfo.st +++ /dev/null @@ -1,8 +0,0 @@ -accessing -storeInfo - | evaluated | - storeInfo ifEmpty: [evaluated := storeInfoBlock value]. - storeInfo - ifNotEmpty: [storeInfoBlock := nil] "The block populated the info as a side effect." - ifEmpty: [storeInfo := evaluated]. "The block only evaluated to the info." - ^ storeInfo \ No newline at end of file diff --git a/src/Squot.package/SquotLazyArtifact.class/methodProperties.json b/src/Squot.package/SquotLazyArtifact.class/methodProperties.json deleted file mode 100644 index 56c06219a..000000000 --- a/src/Squot.package/SquotLazyArtifact.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "capture" : "jr 11/22/2020 15:53", - "content" : "jr 7/23/2017 02:23", - "id" : "jr 2/13/2022 21:37", - "initialize" : "jr 2/13/2022 17:21", - "onLoadContent:" : "jr 5/28/2017 14:30", - "onLoadStoreInfo:" : "jr 5/28/2017 14:31", - "snapshot" : "jr 11/22/2020 15:53", - "storeInfo" : "jr 2/13/2022 17:26" } } diff --git a/src/Squot.package/SquotLazyArtifact.class/properties.json b/src/Squot.package/SquotLazyArtifact.class/properties.json deleted file mode 100644 index 0a24f7c1a..000000000 --- a/src/Squot.package/SquotLazyArtifact.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-FileSystemStore", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 12/7/2019 22:16", - "instvars" : [ - "contentBlock", - "storeInfoBlock" ], - "name" : "SquotLazyArtifact", - "pools" : [ - ], - "super" : "SquotArtifact", - "type" : "normal" } diff --git a/src/Squot.package/SquotLinearHistoryTestScenario.class/README.md b/src/Squot.package/SquotLinearHistoryTestScenario.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/createVersionA1.st b/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/createVersionA1.st deleted file mode 100644 index 9a99ed5df..000000000 --- a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/createVersionA1.st +++ /dev/null @@ -1,9 +0,0 @@ -running -createVersionA1 - sampleClass compileSilently: 'a ^ 1'. - workingCopy newSaveOperation - message: 'introduce #a'; - timestamp: DateAndTime now - 5 minutes; - applyToWorkingCopy. - versionA1 := workingCopy baseVersion. - ^ versionA1 \ No newline at end of file diff --git a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/createVersionA2.st b/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/createVersionA2.st deleted file mode 100644 index c7abc85c0..000000000 --- a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/createVersionA2.st +++ /dev/null @@ -1,9 +0,0 @@ -running -createVersionA2 - sampleClass compileSilently: 'a ^ 2'. - workingCopy newSaveOperation - message: 'change #a'; - timestamp: DateAndTime now - 3 minutes; - applyToWorkingCopy. - versionA2 := workingCopy baseVersion. - ^ versionA2 \ No newline at end of file diff --git a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/createVersionB.st b/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/createVersionB.st deleted file mode 100644 index b50065f90..000000000 --- a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/createVersionB.st +++ /dev/null @@ -1,9 +0,0 @@ -running -createVersionB - sampleClass compileSilently: 'b ^ 1'. - workingCopy newSaveOperation - message: 'introduce #b'; - timestamp: DateAndTime now - 4 minutes; - applyToWorkingCopy. - versionB := workingCopy baseVersion. - ^ versionB \ No newline at end of file diff --git a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/makeUnrelatedChange.st b/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/makeUnrelatedChange.st deleted file mode 100644 index 740ccfbfa..000000000 --- a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/makeUnrelatedChange.st +++ /dev/null @@ -1,3 +0,0 @@ -tests unrelated change -makeUnrelatedChange - sampleClass compileSilently: 'c ^ 1'. \ No newline at end of file diff --git a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/methodBRemoved.st b/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/methodBRemoved.st deleted file mode 100644 index 281efcf0f..000000000 --- a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/methodBRemoved.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -methodBRemoved - ^ (sampleClass canUnderstand: #b) not \ No newline at end of file diff --git a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/packageWasRemoved.st b/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/packageWasRemoved.st deleted file mode 100644 index b3a8824a3..000000000 --- a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/packageWasRemoved.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -packageWasRemoved - ^ (workingCopy includesObjectAt: packagePath) not \ No newline at end of file diff --git a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/removesMethodB..st b/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/removesMethodB..st deleted file mode 100644 index b8015d172..000000000 --- a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/removesMethodB..st +++ /dev/null @@ -1,4 +0,0 @@ -tests -removesMethodB: aSquotMerge - ^ (aSquotMerge resolvedPatch diffAt: packagePath) diffOfTrackedObject operations - anySatisfy: [:each | each isRemoval and: [each definition isMethodDefinition and: [each definition selector = 'b']]] \ No newline at end of file diff --git a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/revertVersionAddedAtEndOfHistory.st b/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/revertVersionAddedAtEndOfHistory.st deleted file mode 100644 index a6905a072..000000000 --- a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/revertVersionAddedAtEndOfHistory.st +++ /dev/null @@ -1,4 +0,0 @@ -tests -revertVersionAddedAtEndOfHistory - ^ (self workingCopy loadedVersion parents hasEqualElements: {versionA2}) - and: [self workingCopy loadedVersion message beginsWith: 'Revert'] \ No newline at end of file diff --git a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/setUp.st b/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/setUp.st deleted file mode 100644 index 0fe6372b6..000000000 --- a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/setUp.st +++ /dev/null @@ -1,11 +0,0 @@ -running -setUp - classFactory := ClassFactoryForTestCase new. - SystemChangeNotifier uniqueInstance doSilently: [sampleClass := classFactory newClass]. - packageInfo := PackageInfo named: classFactory packageName. - packagePath := (MCSnapshot empty asSquotArtifactForPackage: packageInfo) path. - workingCopy add: packageInfo at: packagePath. - repository withUnitOfWork: - [self createVersionA1; - createVersionB; - createVersionA2]. \ No newline at end of file diff --git a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/unrelatedChangeStillLoaded.st b/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/unrelatedChangeStillLoaded.st deleted file mode 100644 index 7dc62bbab..000000000 --- a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/unrelatedChangeStillLoaded.st +++ /dev/null @@ -1,3 +0,0 @@ -tests unrelated change -unrelatedChangeStillLoaded - ^ (sampleClass canUnderstand: #c) and: [sampleClass new c = 1] \ No newline at end of file diff --git a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/updatesUnrelatedChange..st b/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/updatesUnrelatedChange..st deleted file mode 100644 index a67117e8c..000000000 --- a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/updatesUnrelatedChange..st +++ /dev/null @@ -1,4 +0,0 @@ -tests unrelated change -updatesUnrelatedChange: aSquotMerge - ^ (aSquotMerge resolvedPatch diffAt: packagePath) diffOfTrackedObject operations - anySatisfy: [:each | each definition isMethodDefinition and: [each definition selector = 'c']] \ No newline at end of file diff --git a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/versionA1.st b/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/versionA1.st deleted file mode 100644 index 0fe39b5ce..000000000 --- a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/versionA1.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -versionA1 - ^ versionA1 \ No newline at end of file diff --git a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/versionA2.st b/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/versionA2.st deleted file mode 100644 index 1038e81aa..000000000 --- a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/versionA2.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -versionA2 - ^ versionA2 \ No newline at end of file diff --git a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/versionB.st b/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/versionB.st deleted file mode 100644 index b16dbb2b2..000000000 --- a/src/Squot.package/SquotLinearHistoryTestScenario.class/instance/versionB.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -versionB - ^ versionB \ No newline at end of file diff --git a/src/Squot.package/SquotLinearHistoryTestScenario.class/methodProperties.json b/src/Squot.package/SquotLinearHistoryTestScenario.class/methodProperties.json deleted file mode 100644 index 08ac1f9b3..000000000 --- a/src/Squot.package/SquotLinearHistoryTestScenario.class/methodProperties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "createVersionA1" : "jr 1/22/2022 21:56", - "createVersionA2" : "jr 1/22/2022 21:55", - "createVersionB" : "jr 1/22/2022 21:54", - "makeUnrelatedChange" : "jr 1/22/2022 21:56", - "methodBRemoved" : "jr 1/23/2022 00:00", - "packageWasRemoved" : "jr 1/22/2022 22:12", - "removesMethodB:" : "jr 1/23/2022 00:03", - "revertVersionAddedAtEndOfHistory" : "jr 1/23/2022 00:02", - "setUp" : "jr 1/23/2022 00:05", - "unrelatedChangeStillLoaded" : "jr 1/22/2022 22:01", - "updatesUnrelatedChange:" : "jr 1/22/2022 22:05", - "versionA1" : "jr 1/22/2022 21:57", - "versionA2" : "jr 1/22/2022 21:57", - "versionB" : "jr 1/22/2022 21:57" } } diff --git a/src/Squot.package/SquotLinearHistoryTestScenario.class/properties.json b/src/Squot.package/SquotLinearHistoryTestScenario.class/properties.json deleted file mode 100644 index be46f22c8..000000000 --- a/src/Squot.package/SquotLinearHistoryTestScenario.class/properties.json +++ /dev/null @@ -1,20 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "classFactory", - "versionA1", - "versionB", - "versionA2", - "sampleClass", - "packageInfo", - "packagePath" ], - "name" : "SquotLinearHistoryTestScenario", - "pools" : [ - ], - "super" : "SquotWorkingCopyTestScenario", - "type" : "normal" } diff --git a/src/Squot.package/SquotLiveArtifact.class/README.md b/src/Squot.package/SquotLiveArtifact.class/README.md deleted file mode 100644 index 57eff4f57..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/README.md +++ /dev/null @@ -1,3 +0,0 @@ -I behave like an artifact, but represent a loaded, living object. When you ask an ImageStore for artifacts, it will return instances of me. - -I am supposed to be used during only a single unit of work. That means if you want to modify my object graph and want the changes be reflected in the #content of the live artifact, you have to get a new live artifact from the image store. I will only capture my object graph once, when you first ask for it. \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/class/on.at.in..st b/src/Squot.package/SquotLiveArtifact.class/class/on.at.in..st deleted file mode 100644 index aaf1be72f..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/class/on.at.in..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -on: anObject at: path in: aStore - ^ self new setObject: anObject path: path store: aStore \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/instance/^equals.st b/src/Squot.package/SquotLiveArtifact.class/instance/^equals.st deleted file mode 100644 index c565cae9e..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/instance/^equals.st +++ /dev/null @@ -1,6 +0,0 @@ -comparing -= anObject - anObject == self ifTrue: [^ true]. - ^ ((anObject isMemberOf: self class) - and: [anObject privateEquals: {object. path. storeInfo. store}]) - or: [(anObject respondsTo: #isLoaded) and: [self = anObject artifact]] \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/instance/browse.st b/src/Squot.package/SquotLiveArtifact.class/instance/browse.st deleted file mode 100644 index de8bdc476..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/instance/browse.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -browse - ^ object browse \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/instance/capture.st b/src/Squot.package/SquotLiveArtifact.class/instance/capture.st deleted file mode 100644 index 716e6be29..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/instance/capture.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -capture - ^ self snapshot \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/instance/content.st b/src/Squot.package/SquotLiveArtifact.class/instance/content.st deleted file mode 100644 index 1091ce28c..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/instance/content.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -content - ^ shadow ifNil: - [shadow := self objectGraph asShadowGraph] \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/instance/convertToCurrentVersion.refStream..st b/src/Squot.package/SquotLiveArtifact.class/instance/convertToCurrentVersion.refStream..st deleted file mode 100644 index 8152ca7dc..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/instance/convertToCurrentVersion.refStream..st +++ /dev/null @@ -1,5 +0,0 @@ -update migration -convertToCurrentVersion: varDict refStream: smartRefStrm - "Upgrade storeInfo to SquotTrackedObjectMetadata" - (storeInfo isKindOf: SquotTrackedObjectMetadata) ifFalse: - [storeInfo := SquotTrackedObjectMetadata newFrom: storeInfo]. \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/instance/copyWithDiffApplied..st b/src/Squot.package/SquotLiveArtifact.class/instance/copyWithDiffApplied..st deleted file mode 100644 index 7fb3946f6..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/instance/copyWithDiffApplied..st +++ /dev/null @@ -1,3 +0,0 @@ -copying -copyWithDiffApplied: aDiff - ^ self snapshot copyWithDiffApplied: aDiff \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/instance/copyWithDifferentContent..st b/src/Squot.package/SquotLiveArtifact.class/instance/copyWithDifferentContent..st deleted file mode 100644 index 09c8914c8..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/instance/copyWithDifferentContent..st +++ /dev/null @@ -1,7 +0,0 @@ -copying -copyWithDifferentContent: newContent - ^ SquotArtifact new - path: path; - storeInfo: self storeInfo; - content: newContent; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/instance/hash.st b/src/Squot.package/SquotLiveArtifact.class/instance/hash.st deleted file mode 100644 index 5f27cfd6d..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/instance/hash.st +++ /dev/null @@ -1,6 +0,0 @@ -comparing -hash - ^ ((object hash hashMultiply - bitXor: path hash) hashMultiply - bitXor: storeInfo hash) hashMultiply - bitXor: store hash \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/instance/id..st b/src/Squot.package/SquotLiveArtifact.class/instance/id..st deleted file mode 100644 index 375d27455..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/instance/id..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -id: anObject - storeInfo at: #id put: anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/instance/id.st b/src/Squot.package/SquotLiveArtifact.class/instance/id.st deleted file mode 100644 index e59e497a3..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/instance/id.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -id - "Assign a new id if none was assigned yet. This also updates SquotImageStores created with older Squot versions when the ids did not exist yet." - ^ storeInfo at: #id ifAbsentPut: [SquotArtifact newId] \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/instance/liveStoreInfo.st b/src/Squot.package/SquotLiveArtifact.class/instance/liveStoreInfo.st deleted file mode 100644 index 43a97913a..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/instance/liveStoreInfo.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -liveStoreInfo - ^ storeInfo \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/instance/materializeWith.replacing..st b/src/Squot.package/SquotLiveArtifact.class/instance/materializeWith.replacing..st deleted file mode 100644 index 61dbdf56c..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/instance/materializeWith.replacing..st +++ /dev/null @@ -1,4 +0,0 @@ -loading -materializeWith: aMaterializer replacing: anObject - "I am already loaded." - ^ object \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/instance/mergeWith.basedOn..st b/src/Squot.package/SquotLiveArtifact.class/instance/mergeWith.basedOn..st deleted file mode 100644 index 831169f2a..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/instance/mergeWith.basedOn..st +++ /dev/null @@ -1,6 +0,0 @@ -merging -mergeWith: otherArtifact basedOn: baseArtifact - ^ SquotArtifactMerge into: self merge: otherArtifact basedOn: baseArtifact - willBeLoaded: true - graphMerge: (self content squotDiffAgainst: otherArtifact content withBase: baseArtifact content) - metadataMerge: (self storeInfo squotMergeWith: otherArtifact storeInfo basedOn: baseArtifact storeInfo) \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/instance/object.st b/src/Squot.package/SquotLiveArtifact.class/instance/object.st deleted file mode 100644 index ab44a2bb9..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/instance/object.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -object - ^ object \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/instance/objectGraph.st b/src/Squot.package/SquotLiveArtifact.class/instance/objectGraph.st deleted file mode 100644 index 101e24949..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/instance/objectGraph.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -objectGraph - ^ store capture: object withMetadata: storeInfo \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/instance/on.at.in..st b/src/Squot.package/SquotLiveArtifact.class/instance/on.at.in..st deleted file mode 100644 index 680001651..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/instance/on.at.in..st +++ /dev/null @@ -1,6 +0,0 @@ -initialize-release -on: anObject at: aPath in: aStore - self deprecated: 'Use #setObject:path:store: instead.'. - object := anObject. - path := aPath. - store := aStore. \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/instance/packageName.st b/src/Squot.package/SquotLiveArtifact.class/instance/packageName.st deleted file mode 100644 index d5f3319cf..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/instance/packageName.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -packageName - ^ [object packageName] on: MessageNotUnderstood do: [:e | self error: 'Not a package'] \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/instance/path.st b/src/Squot.package/SquotLiveArtifact.class/instance/path.st deleted file mode 100644 index 0f90fd366..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/instance/path.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -path - ^ path \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/instance/printOn..st b/src/Squot.package/SquotLiveArtifact.class/instance/printOn..st deleted file mode 100644 index e929fa419..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/instance/printOn..st +++ /dev/null @@ -1,5 +0,0 @@ -printing -printOn: aStream - aStream print: path; - nextPutAll: ' in '; - print: store. \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/instance/privateEquals..st b/src/Squot.package/SquotLiveArtifact.class/instance/privateEquals..st deleted file mode 100644 index 79ef03949..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/instance/privateEquals..st +++ /dev/null @@ -1,7 +0,0 @@ -comparing -privateEquals: anArray - "{object. path. storeInfo. store}" - ^ object = (anArray at: 1) - and: [store = (anArray at: 4) - and: [path = (anArray at: 2) - and: [storeInfo = (anArray at: 3)]]] \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/instance/serializer..st b/src/Squot.package/SquotLiveArtifact.class/instance/serializer..st deleted file mode 100644 index 33e5449b0..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/instance/serializer..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -serializer: aSerializerFactory - storeInfo serializer: aSerializerFactory. \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/instance/serializerName.st b/src/Squot.package/SquotLiveArtifact.class/instance/serializerName.st deleted file mode 100644 index 5b365514c..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/instance/serializerName.st +++ /dev/null @@ -1,3 +0,0 @@ -serializing -serializerName - ^ storeInfo serializer \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/instance/setObject.path.store..st b/src/Squot.package/SquotLiveArtifact.class/instance/setObject.path.store..st deleted file mode 100644 index 1492a898b..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/instance/setObject.path.store..st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -setObject: anObject path: aPath store: aStore - object := anObject. - path := aPath. - store := aStore. \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/instance/snapshot.st b/src/Squot.package/SquotLiveArtifact.class/instance/snapshot.st deleted file mode 100644 index 7718255b2..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/instance/snapshot.st +++ /dev/null @@ -1,8 +0,0 @@ -converting -snapshot - ^ SquotArtifact new - id: self id; - path: path; - content: self content; - storeInfo: self storeInfo; - yourself. \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/instance/storeInfo..st b/src/Squot.package/SquotLiveArtifact.class/instance/storeInfo..st deleted file mode 100644 index 6b1d682b8..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/instance/storeInfo..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -storeInfo: aDictionary - storeInfo := aDictionary \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/instance/storeInfo.st b/src/Squot.package/SquotLiveArtifact.class/instance/storeInfo.st deleted file mode 100644 index ced4e91ae..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/instance/storeInfo.st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -storeInfo - store activateObjectRegistryDuring: - [^ storeInfo copy - in: [:copy | object squotRemoveTransientStoreInfoFrom: copy]; - yourself] \ No newline at end of file diff --git a/src/Squot.package/SquotLiveArtifact.class/methodProperties.json b/src/Squot.package/SquotLiveArtifact.class/methodProperties.json deleted file mode 100644 index d90f4116b..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/methodProperties.json +++ /dev/null @@ -1,30 +0,0 @@ -{ - "class" : { - "on:at:in:" : "jr 10/4/2020 23:12" }, - "instance" : { - "=" : "jr 11/21/2020 01:34", - "browse" : "jr 12/23/2019 14:39", - "capture" : "jr 12/13/2020 19:25", - "content" : "jr 12/8/2019 21:41", - "convertToCurrentVersion:refStream:" : "jr 7/22/2017 17:13", - "copyWithDiffApplied:" : "jr 12/13/2020 16:30", - "copyWithDifferentContent:" : "jr 7/16/2017 17:14", - "hash" : "jr 11/22/2020 18:05", - "id" : "jr 2/13/2022 22:55", - "id:" : "jr 2/13/2022 23:27", - "liveStoreInfo" : "jr 5/4/2019 02:25", - "materializeWith:replacing:" : "jr 12/7/2019 22:26", - "mergeWith:basedOn:" : "jr 7/17/2021 19:59", - "object" : "jr 12/9/2020 22:47", - "objectGraph" : "jr 12/8/2019 21:26", - "on:at:in:" : "jr 10/11/2020 23:47", - "packageName" : "jr 4/19/2021 19:59", - "path" : "jr 5/1/2017 20:53", - "printOn:" : "jr 12/30/2019 12:27", - "privateEquals:" : "jr 11/21/2020 00:48", - "serializer:" : "jr 12/7/2019 22:40", - "serializerName" : "jr 1/3/2021 15:53", - "setObject:path:store:" : "jr 10/11/2020 23:47", - "snapshot" : "jr 2/13/2022 22:54", - "storeInfo" : "jr 7/16/2017 17:14", - "storeInfo:" : "jr 5/1/2017 22:03" } } diff --git a/src/Squot.package/SquotLiveArtifact.class/properties.json b/src/Squot.package/SquotLiveArtifact.class/properties.json deleted file mode 100644 index 5b7c04074..000000000 --- a/src/Squot.package/SquotLiveArtifact.class/properties.json +++ /dev/null @@ -1,20 +0,0 @@ -{ - "category" : "Squot-ImageStore", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotArtifact classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 12/7/2019 22:16", - "instvars" : [ - "object", - "path", - "storeInfo", - "shadow", - "store" ], - "name" : "SquotLiveArtifact", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotArtifact", - "type" : "normal" } diff --git a/src/Squot.package/SquotLoadOrderConflict.class/README.md b/src/Squot.package/SquotLoadOrderConflict.class/README.md deleted file mode 100644 index e83cd93c9..000000000 --- a/src/Squot.package/SquotLoadOrderConflict.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A conflict in the load orders of two containers. See also SquotLoadOrderMerge. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderConflict.class/instance/chooseIncoming.st b/src/Squot.package/SquotLoadOrderConflict.class/instance/chooseIncoming.st deleted file mode 100644 index 7d07a2f15..000000000 --- a/src/Squot.package/SquotLoadOrderConflict.class/instance/chooseIncoming.st +++ /dev/null @@ -1,4 +0,0 @@ -merging -chooseIncoming - "Resolves conflicts by using the incoming snippet." - resolution := #incoming. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderConflict.class/instance/chooseWorking.st b/src/Squot.package/SquotLoadOrderConflict.class/instance/chooseWorking.st deleted file mode 100644 index 0af923aba..000000000 --- a/src/Squot.package/SquotLoadOrderConflict.class/instance/chooseWorking.st +++ /dev/null @@ -1,4 +0,0 @@ -merging -chooseWorking - "Resolves conflicts by using the working snippet." - resolution := #working. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderConflict.class/methodProperties.json b/src/Squot.package/SquotLoadOrderConflict.class/methodProperties.json deleted file mode 100644 index 30a8465ed..000000000 --- a/src/Squot.package/SquotLoadOrderConflict.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "chooseIncoming" : "jr 10/19/2020 21:51", - "chooseWorking" : "jr 10/19/2020 21:51" } } diff --git a/src/Squot.package/SquotLoadOrderConflict.class/properties.json b/src/Squot.package/SquotLoadOrderConflict.class/properties.json deleted file mode 100644 index f87b1cdd9..000000000 --- a/src/Squot.package/SquotLoadOrderConflict.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Merging", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 10/19/2020 21:07", - "instvars" : [ - "differentPositions" ], - "name" : "SquotLoadOrderConflict", - "pools" : [ - ], - "super" : "SquotConflict", - "type" : "normal" } diff --git a/src/Squot.package/SquotLoadOrderMerge.class/README.md b/src/Squot.package/SquotLoadOrderMerge.class/README.md deleted file mode 100644 index 048cf59a6..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/README.md +++ /dev/null @@ -1,68 +0,0 @@ -Holds the state of the merge of three load orders. Their resolution also depends on the resolution of container conflicts in the overall object container merge. - -Load order is a simplification of dependencies among artifacts. The order #(a b c) implies: a must be loaded before b, b must be loaded before c (regardless of whether that is actually required or not). The actual dependencies are always a subset of the predecessor-successor relations among the pairs of artifacts. That each artifact appears only once in the order corresponds with two artifacts not being able to mutually depend on each other. Since not to change something is typically not considered worth preserving during a merge, only new predecessor-successor relations must be preserved during a merge. Moreover it makes sense to keep relations that are present on both sides. - -If (c b a) is merged with (a c b) based on (a b c): there are new relations (c a), (c b), (b a) and confirmed relation (c b) (but we already had this). -The merge solution is (c b a), as a topological order of the graph formed by the relations. - -Conflicts arise if there are cycles in the graph formed by the new and confirmed relations. - -If (x a b) is merged with (a b x) based on (a b): there are new relations (x a), (x b), (a x), (b x) and the confirmed relation (a b). Since these relations form a graph with cycles, there are conflicts. -There is no solution without relaxing the order constraints (= conflict resolution), which means to withdraw relations. -Solution (x a b) means to withdraw the relations (a x), (b x). -Solution (a b x) means to withdraw the relations (x a), (x b). -Solution (a x b), chosen by neither side, means to withdraw the relations (x a), (b x). -Solutions with b before a would violate the confirmed relation (a b). -If x were in fact independent of both a and b, none of the relations with x would actually matter, and either choice that still puts a before b would be correct. But this independence cannot be inferred from only two samples of total orders. - -If (b a c d) is merged with (a c d b) based on (a b c d): there are new relations (b a), (c b), (d b) and confirmed relations (a c), (a d), (c d). The graph formed by these relations has cycles: (a c b a), (a d b a), (a c d b a). The chordless cycles are (a c b a) and (a d b a). (Intuitively: b cannot come both before a and after c, d.) Relations must be withdrawn to break all cycles. Removing chord edges like (c b) would leave chorded cycles intact, so at least one non-chord edge must be withdrawn. Withdrawing the relation (b a) would result in the incoming order. Withdrawing (c b) and (d b) would result in the working copy order. If the confirmed relations (a c), (a d) were in fact not needed, (c d b a) would be a possible solution. - -Removing an artifact does not imply new relations, so it cannot result in cycles. - -If (a b x c d e f) is merged with (a b c x d e f) based on (a b c d e f): new relations ((a,b,c) x), (x (c,d,e,f)), confirmed all induced by (a b c d e f). These are many edges in the graph. The only cycle is (c x c) though, so only (c x) or (x c) are useful candiates to be removed to resolve the conflict. - -How to merge then? -1. Find relevant relations and detect whether there are conflicts. -2. If there are conflicts, let user choose whether to stick with the incoming or the current order. -3. Apply additions and removals to both sides, so both orders have the same elements. -4. Find a suitable topological ordering according to the remaining relations (see below). - -Example merge without conflicts: -Original order: Squot Squit Tonel Baseline. -Working copy order: Squot Tonel Squit Baseline. (Tonel does not depend on Squit.) -Incoming order: Baseline Squot Squit Tonel. (Baseline depends on nothing.) -Acceptable solution: Baseline Squot Tonel Squit. -New relations: (Tonel Squit), (Baseline Squot), (Baseline Tonel), (Baseline Squit). -Confirmed relations: (Squot Tonel), (Squot Squit). -The relations form a directed, acyclic graph, therefore there is an automatic solution. -(True, but unknown to the model, dependency relations: (Squot Tonel), (Squot Squit). Actually, since none of the new relations is a true relation, neither the working copy changes nor the incoming changes were necessary.) - -Graph algorithm both detects cycles and finds eventual order (after additions and removals have been applied). O(n²): -Initialize weighted directed graph with nodes. O(n) -Increase edges from working and incoming orders. O(n²) (number of relations is (n-1)*(n-2)/2 in both orders) - (Squot->Tonel. Squot->Squit. Squot->Baseline. Tonel->Squit. Tonel->Baseline. Squit->Baseline. - Baseline->Squot. Baseline->Squit. Baseline->Tonel. Squot->Squit(2). Squot->Tonel(2). Squit->Tonel). -Decrease all edges implied by the original order O(n²): - -Squot->Squit. -Squot->Tonel. -Squot->Baseline. -Squit->Tonel. -Squit->Baseline. -Tonel->Baseline. -That leaves: (Squot->Tonel(1). Squot->Squit(1). Tonel->Squit. Baseline->Squot. Baseline->Squit. Baseline->Tonel). The confirmed relations that are present in all three orders are still in the graph (here: Squot->Tonel. Squot->Squot). -If both sides agreed on a new dependency, its edge will still have weight 2 in the graph now. -The graph is always connected because the graphs derived from the input orders always are and nodes are either connected through confirmed relations or new relations. -Find a topological order using depth first search O(n²): - Start with Squot (any node). - Visit Tonel. - Visit Squit. No outgoing edges from Squit, put in list. - (If an edge had weight 2, the edge would not need to be visited multiple times because the target node is already on the list.) - No more outgoing edges from Tonel, put in list. - Visit Squit, already in list. - No more outgoing edges from Squot, put in list. - Continue with Tonel, already in list. - Continue with Squit, already in list. - Continue with Baseline. - Visit Squot, already in list. - Visit Squit, already in list. - Visit Tonel, already in list. - No more outgoing edges from Baseline, put in list. -List is now Squit Tonel Squot Baseline. -Reverse list. O(n) ---> Baseline Squot Tonel Squit. -If the DFS for the topological ordering would reach a node again on the same path, there would be a cycle, and therefore conflicts. Without conflicts or after resolution, the graph is acyclic and therefore a topological ordering can be found. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMerge.class/instance/add..st b/src/Squot.package/SquotLoadOrderMerge.class/instance/add..st deleted file mode 100644 index 61d2801f7..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/instance/add..st +++ /dev/null @@ -1,8 +0,0 @@ -patching -add: aSquotArtifact - | path | - "Note the addition and insert after all items that precede it in the incoming order." - path := aSquotArtifact path. - self assert: (editedWorking includes: path) not. - self insert: path into: editedWorking afterPredecessorsIn: incoming. - self resetResolution \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMerge.class/instance/addUnloaded..st b/src/Squot.package/SquotLoadOrderMerge.class/instance/addUnloaded..st deleted file mode 100644 index 620916c15..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/instance/addUnloaded..st +++ /dev/null @@ -1,4 +0,0 @@ -patching -addUnloaded: aSquotArtifact - "Does not matter for the order whether it is loaded or not." - self add: aSquotArtifact. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMerge.class/instance/applyDiff..st b/src/Squot.package/SquotLoadOrderMerge.class/instance/applyDiff..st deleted file mode 100644 index 1825b4753..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/instance/applyDiff..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -applyDiff: aSquotArtifactDiff - aSquotArtifactDiff applyToContainer: self. "Pose as a container to see which kind of diff this is." \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMerge.class/instance/applyDiff.toObjectAt..st b/src/Squot.package/SquotLoadOrderMerge.class/instance/applyDiff.toObjectAt..st deleted file mode 100644 index df280614a..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/instance/applyDiff.toObjectAt..st +++ /dev/null @@ -1,4 +0,0 @@ -patching -applyDiff: aSquotArtifactModification toObjectAt: path - "Note modification, but has no influence on the load order." - self assert: (editedWorking includes: path). \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMerge.class/instance/browseFromSquotWorkingCopyArtifact..st b/src/Squot.package/SquotLoadOrderMerge.class/instance/browseFromSquotWorkingCopyArtifact..st deleted file mode 100644 index 17d99f861..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/instance/browseFromSquotWorkingCopyArtifact..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -browseFromSquotWorkingCopyArtifact: aWorkingCopyArtifact - ^ working browse \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMerge.class/instance/chooseIncoming.st b/src/Squot.package/SquotLoadOrderMerge.class/instance/chooseIncoming.st deleted file mode 100644 index 72ac9123a..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/instance/chooseIncoming.st +++ /dev/null @@ -1,3 +0,0 @@ -merging -chooseIncoming - containerConflicts do: [:each | each chooseIncoming]. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMerge.class/instance/chooseWorking.st b/src/Squot.package/SquotLoadOrderMerge.class/instance/chooseWorking.st deleted file mode 100644 index 5562a3a84..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/instance/chooseWorking.st +++ /dev/null @@ -1,3 +0,0 @@ -merging -chooseWorking - containerConflicts do: [:each | each chooseWorking]. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMerge.class/instance/computeDifferences.st b/src/Squot.package/SquotLoadOrderMerge.class/instance/computeDifferences.st deleted file mode 100644 index 0ff2b47c4..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/instance/computeDifferences.st +++ /dev/null @@ -1,3 +0,0 @@ -private -computeDifferences - self detectConflicts. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMerge.class/instance/conflicts.st b/src/Squot.package/SquotLoadOrderMerge.class/instance/conflicts.st deleted file mode 100644 index 0299e67cd..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/instance/conflicts.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -conflicts - ^ containerConflicts "no element merges" \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMerge.class/instance/copy.withOrder..st b/src/Squot.package/SquotLoadOrderMerge.class/instance/copy.withOrder..st deleted file mode 100644 index 9b099d772..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/instance/copy.withOrder..st +++ /dev/null @@ -1,8 +0,0 @@ -private -copy: sourceOrderCollection withOrder: baseOrderCollection - "Answer an order with the elements of sourceOrderCollection, but the ordering of baseOrderCollection." - | newOrder unique | - unique := sourceOrderCollection copyWithoutAll: baseOrderCollection. - newOrder := baseOrderCollection asOrderedCollection intersection: sourceOrderCollection. - unique do: [ :eachUnique | self insert: eachUnique into: newOrder afterPredecessorsIn: sourceOrderCollection ]. - ^ newOrder \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMerge.class/instance/createDiffOrMergeTreeNodeWithWorkingOrder.incomingOrder..st b/src/Squot.package/SquotLoadOrderMerge.class/instance/createDiffOrMergeTreeNodeWithWorkingOrder.incomingOrder..st deleted file mode 100644 index 6c1651c02..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/instance/createDiffOrMergeTreeNodeWithWorkingOrder.incomingOrder..st +++ /dev/null @@ -1,17 +0,0 @@ -*Squot-Tools -createDiffOrMergeTreeNodeWithWorkingOrder: workingLoadOrderBlock incomingOrder: incomingLoadOrderBlock - ^ self hasConflicts - ifTrue: [SquotMergeDiffNode - title: 'Conflicting load orders' - content: self - children: #() - onInclude: [self chooseIncoming] - onExclude: [self chooseWorking] - onReset: [self resetChoice]] - ifFalse: [SquotMergeDiffNode - title: 'Changed load order' - content: self - children: #() - onInclude: [self newLoadOrder: incomingLoadOrderBlock value] - onExclude: [self newLoadOrder: workingLoadOrderBlock value] - onReset: [self newLoadOrder: incomingLoadOrderBlock value]]. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMerge.class/instance/detectConflicts.st b/src/Squot.package/SquotLoadOrderMerge.class/instance/detectConflicts.st deleted file mode 100644 index 8b97a2cde..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/instance/detectConflicts.st +++ /dev/null @@ -1,6 +0,0 @@ -merging -detectConflicts - | resolution | - resolution := self resolveLoadOrders. - resolution second == #conflicts - ifTrue: [containerConflicts at: #conflicts put: SquotLoadOrderConflict new]. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMerge.class/instance/hasChanges.st b/src/Squot.package/SquotLoadOrderMerge.class/instance/hasChanges.st deleted file mode 100644 index 76f628bf8..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/instance/hasChanges.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -hasChanges - "This cannot be definitely answered until conflict resolutions of the container merge have been applied to me. For example, incoming changes might remove an artifact, but the working copy has changes to it. The artifact will only be removed from the load order (which makes a change to the order) if the user decides to remove the artifact and discard the changes." - ^ (working hasEqualElements: incoming) not \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMerge.class/instance/insert.into.afterPredecessorsIn..st b/src/Squot.package/SquotLoadOrderMerge.class/instance/insert.into.afterPredecessorsIn..st deleted file mode 100644 index 3f05d4374..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/instance/insert.into.afterPredecessorsIn..st +++ /dev/null @@ -1,9 +0,0 @@ -private -insert: path into: targetOrder afterPredecessorsIn: sourceOrder - | insertIndex dependencies | - dependencies := ((sourceOrder copyUpTo: path) intersection: targetOrder) asSet. - insertIndex := 1. - [dependencies notEmpty] whileTrue: - [dependencies remove: (targetOrder at: insertIndex) ifAbsent: []. - insertIndex := insertIndex + 1]. - targetOrder add: path beforeIndex: insertIndex. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMerge.class/instance/newLoadOrder..st b/src/Squot.package/SquotLoadOrderMerge.class/instance/newLoadOrder..st deleted file mode 100644 index e7d15d0ac..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/instance/newLoadOrder..st +++ /dev/null @@ -1,4 +0,0 @@ -merging -newLoadOrder: aSequenceableCollection - incoming := aSequenceableCollection. - self computeDifferences. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMerge.class/instance/newLoadOrder.st b/src/Squot.package/SquotLoadOrderMerge.class/instance/newLoadOrder.st deleted file mode 100644 index b333dd646..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/instance/newLoadOrder.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -newLoadOrder - ^ self resolvedPatch applyTo: working \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMerge.class/instance/privateResolvedPatch.st b/src/Squot.package/SquotLoadOrderMerge.class/instance/privateResolvedPatch.st deleted file mode 100644 index 7b6ab597d..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/instance/privateResolvedPatch.st +++ /dev/null @@ -1,11 +0,0 @@ -private -privateResolvedPatch - | resolution | - resolution := self resolveLoadOrders. - ^ resolution second == #conflicts - ifTrue: [nil] - ifFalse: - [GenericDiff squotDiffClass new - file1: working; - file2: resolution first; - diff] \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMerge.class/instance/removeAt..st b/src/Squot.package/SquotLoadOrderMerge.class/instance/removeAt..st deleted file mode 100644 index 3b5aa16ff..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/instance/removeAt..st +++ /dev/null @@ -1,6 +0,0 @@ -patching -removeAt: path - "Note the removal." - self assert: (editedWorking includes: path). - editedWorking remove: path. - self resetResolution. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMerge.class/instance/resetAppliedDiffs.st b/src/Squot.package/SquotLoadOrderMerge.class/instance/resetAppliedDiffs.st deleted file mode 100644 index 1bf74a650..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/instance/resetAppliedDiffs.st +++ /dev/null @@ -1,3 +0,0 @@ -patching -resetAppliedDiffs - editedWorking := OrderedCollection newFrom: working. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMerge.class/instance/resetChoice.st b/src/Squot.package/SquotLoadOrderMerge.class/instance/resetChoice.st deleted file mode 100644 index 3cc8ad66b..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/instance/resetChoice.st +++ /dev/null @@ -1,3 +0,0 @@ -merging -resetChoice - containerConflicts do: [:each | each resetChoice]. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMerge.class/instance/resetResolution.st b/src/Squot.package/SquotLoadOrderMerge.class/instance/resetResolution.st deleted file mode 100644 index 366acd195..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/instance/resetResolution.st +++ /dev/null @@ -1,3 +0,0 @@ -private -resetResolution - resolvedPatch := nil. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMerge.class/instance/resolveLoadOrders.st b/src/Squot.package/SquotLoadOrderMerge.class/instance/resolveLoadOrders.st deleted file mode 100644 index 558da7047..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/instance/resolveLoadOrders.st +++ /dev/null @@ -1,18 +0,0 @@ -private -resolveLoadOrders - "Determine whether there are conflicts. Answer either a tuple of a resolved load order and #noConflicts, or a tuple of a cycle path and #conflicts." - | resolvedWorking resolvedIncoming | - resolvedWorking := editedWorking. - "If the incoming order is chosen, reorder elements accordingly and keep those which are not present in the incoming order." - containerConflicts do: [:each | each resolution ~= #working ifTrue: - [resolvedWorking := self copy: editedWorking withOrder: incoming]]. - "Now prepare an incoming order to merge. - Remove elements that were removed in the working copy from incoming order." - resolvedIncoming := incoming asOrderedCollection select: [:each | resolvedWorking includes: each]. - "Add elements that were removed in incoming, but where the user chose to keep them." - (resolvedWorking anySatisfy: [:each | (resolvedIncoming includes: each) not]) ifTrue: - [resolvedIncoming := self copy: resolvedWorking withOrder: resolvedIncoming]. - containerConflicts do: [:each | each resolution ~= #incoming ifTrue: - ["Use working order, but with all incoming additions. Note that resolvedWorking already fulfills this requirement." - resolvedIncoming := resolvedWorking]]. - ^ self resolveOrders: resolvedWorking and: resolvedIncoming \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMerge.class/instance/resolveOrders.and..st b/src/Squot.package/SquotLoadOrderMerge.class/instance/resolveOrders.and..st deleted file mode 100644 index 6c9662aa6..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/instance/resolveOrders.and..st +++ /dev/null @@ -1,16 +0,0 @@ -private -resolveOrders: aCollection and: anIncomingCollection - "Resolve dependency changes and store result to be able to answer hasChanges later." - "Assumption: aCollection is based on working, anIncomingCollection is based on incoming and additions and removals have have already been applied to both." - | baseSubset dependencyGraph newOrder | - (aCollection hasEqualElements: anIncomingCollection) "Trivial case" - ifTrue: [^ {anIncomingCollection. #noConflicts}]. - baseSubset := base intersection: aCollection. - dependencyGraph := - (SquotGraph nodes: aCollection) - initializeEdgesFromTotalOrdering: aCollection; - increaseEdgesFromTotalOrdering: anIncomingCollection; - decreaseEdgesFromTotalOrdering: baseSubset. - newOrder := dependencyGraph topologicalOrderIfNone: - [:cyclePath | ^ {cyclePath. #conflicts}]. - ^ {newOrder. #noConflicts} \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMerge.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotLoadOrderMerge.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index 2fe5dfc68..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,15 +0,0 @@ -*Squot-Tools -squotChangeAsStringOrText - | stream workingText incomingText | - stream := WriteStream on: (Text new: 100). - working do: [:each | stream nextPutAll: each; cr]. - workingText := stream contents. - stream reset. - incoming do: [:each | stream nextPutAll: each; cr]. - incomingText := stream contents. - stream reset. - stream nextPutAll: 'Different load orders:'; cr; - nextPutAll: ((TextDiffBuilder buildDisplayPatchFrom: workingText to: incomingText) addAttribute: (TextIndent amount: 1)). - stream nextPutAll: 'In working copy:'; cr; nextPutAll: (workingText copy addAttribute: (TextIndent amount: 1)). - stream nextPutAll: 'In incoming version:'; cr; nextPutAll: (incomingText copy addAttribute: (TextIndent amount: 1)). - ^ stream contents \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMerge.class/instance/working..st b/src/Squot.package/SquotLoadOrderMerge.class/instance/working..st deleted file mode 100644 index 4c019c10c..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/instance/working..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -working: anObject - - super working: anObject. - editedWorking := OrderedCollection newFrom: working. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMerge.class/methodProperties.json b/src/Squot.package/SquotLoadOrderMerge.class/methodProperties.json deleted file mode 100644 index a5f989c08..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/methodProperties.json +++ /dev/null @@ -1,29 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "add:" : "jr 11/7/2020 10:43", - "addUnloaded:" : "jr 10/24/2020 17:32", - "applyDiff:" : "jr 10/18/2020 14:40", - "applyDiff:toObjectAt:" : "jr 10/24/2020 16:15", - "browseFromSquotWorkingCopyArtifact:" : "jr 11/1/2020 20:42", - "chooseIncoming" : "jr 10/20/2020 22:20", - "chooseWorking" : "jr 10/20/2020 22:20", - "computeDifferences" : "jr 11/7/2020 10:47", - "conflicts" : "jr 7/30/2019 21:24", - "copy:withOrder:" : "jr 11/1/2020 19:38", - "createDiffOrMergeTreeNodeWithWorkingOrder:incomingOrder:" : "jr 11/23/2020 00:12", - "detectConflicts" : "jr 11/4/2020 00:18", - "hasChanges" : "jr 11/1/2020 19:30", - "insert:into:afterPredecessorsIn:" : "jr 10/31/2020 15:00", - "newLoadOrder" : "jr 8/15/2019 13:57", - "newLoadOrder:" : "jr 8/15/2019 13:58", - "privateResolvedPatch" : "jr 11/3/2020 23:39", - "removeAt:" : "jr 11/7/2020 10:43", - "resetAppliedDiffs" : "jr 10/24/2020 17:03", - "resetChoice" : "jr 11/1/2020 20:29", - "resetResolution" : "jr 10/20/2020 22:54", - "resolveLoadOrders" : "jr 11/4/2020 00:20", - "resolveOrders:and:" : "jr 11/4/2020 00:09", - "squotChangeAsStringOrText" : "jr 11/1/2020 20:27", - "working:" : "jr 11/7/2020 10:48" } } diff --git a/src/Squot.package/SquotLoadOrderMerge.class/properties.json b/src/Squot.package/SquotLoadOrderMerge.class/properties.json deleted file mode 100644 index 0ee5078b8..000000000 --- a/src/Squot.package/SquotLoadOrderMerge.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-Merging", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 10/24/2020 16:50", - "instvars" : [ - "resolvedPatch", - "editedWorking" ], - "name" : "SquotLoadOrderMerge", - "pools" : [ - ], - "super" : "SquotAbstractCollectionMerge", - "type" : "normal" } diff --git a/src/Squot.package/SquotLoadOrderMergeTest.class/README.md b/src/Squot.package/SquotLoadOrderMergeTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testAdditionAndUnrelatedConflicts.st b/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testAdditionAndUnrelatedConflicts.st deleted file mode 100644 index de19462c5..000000000 --- a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testAdditionAndUnrelatedConflicts.st +++ /dev/null @@ -1,16 +0,0 @@ -tests -testAdditionAndUnrelatedConflicts - | merge | - merge := SquotLoadOrderMerge into: #('0' '<' '>') merge: #('<' 'x' '>' '0') basedOn: #('<' '0' '>'). - "Moves of 0 conflict with each other, position of x should be clear." - self assert: merge hasChanges; - assert: merge hasConflicts. - merge - chooseIncoming; - applyDiff: (SquotArtifactAddition of: (SquotArtifactMock path: 'x')). - self assert: merge hasChanges; - deny: merge hasConflicts; - assert: #('<' 'x' '>' '0') equals: (merge resolvedPatch applyTo: #('0' '<' '>')). - merge chooseWorking. - self deny: merge hasConflicts; - assert: #('0' '<' 'x' '>') equals: (merge resolvedPatch applyTo: #('0' '<' '>')). \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testAdditionAndUnrelatedConflicts2.st b/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testAdditionAndUnrelatedConflicts2.st deleted file mode 100644 index a1296f26b..000000000 --- a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testAdditionAndUnrelatedConflicts2.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testAdditionAndUnrelatedConflicts2 - | merge | - merge := SquotLoadOrderMerge into: #('0' '<' 'x' '>') merge: #('<' '>' '0') basedOn: #('<' '0' '>'). - "Moves of 0 conflict with each other." - self assert: merge hasChanges; - assert: merge hasConflicts. - merge chooseIncoming. "But do not remove x." - self assert: merge hasChanges; - deny: merge hasConflicts; - assert: #('<' '>' '0' 'x') equals: (merge resolvedPatch applyTo: #('0' '<' 'x' '>')). - "Because according to the original position of x, it might depend on 0." - merge chooseWorking. - self deny: merge hasConflicts; - assert: #('0' '<' 'x' '>') equals: (merge resolvedPatch applyTo: #('0' '<' 'x' '>')). \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testAdditionsInDifferentPlaces.st b/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testAdditionsInDifferentPlaces.st deleted file mode 100644 index 6269a044c..000000000 --- a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testAdditionsInDifferentPlaces.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testAdditionsInDifferentPlaces - | merge | - merge := SquotLoadOrderMerge into: #('a' 'x' 'b') merge: #('x' 'a' 'b') basedOn: #('a' 'b'). - "Cannot know whether x depends on a or a depends on x." - self assert: merge hasChanges; - assert: merge hasConflicts. - merge chooseIncoming. - self assert: merge hasChanges; - deny: merge hasConflicts; - assert: #('x' 'a' 'b') equals: (merge resolvedPatch applyTo: #('a' 'x' 'b')). - merge chooseWorking. - self deny: merge hasConflicts; - deny: merge resolvedPatch squotHasChanges. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testAdditionsInDifferentPlacesButSameIndex.st b/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testAdditionsInDifferentPlacesButSameIndex.st deleted file mode 100644 index 13573b198..000000000 --- a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testAdditionsInDifferentPlacesButSameIndex.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testAdditionsInDifferentPlacesButSameIndex - | merge | - merge := SquotLoadOrderMerge into: #('b' 'x') merge: #('a' 'x' 'b') basedOn: #('a' 'b'). - "Cannot know whether x depends on b or b depends on x." - self assert: merge hasChanges; - assert: merge hasConflicts. - merge chooseIncoming. - self assert: merge hasChanges; - deny: merge hasConflicts; - assert: #('x' 'b') equals: (merge resolvedPatch applyTo: #('b' 'x')). - merge chooseWorking. - self deny: merge hasConflicts; - deny: merge resolvedPatch squotHasChanges. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testApplyAddition.st b/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testApplyAddition.st deleted file mode 100644 index d285eb708..000000000 --- a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testApplyAddition.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testApplyAddition - | merge | - merge := SquotLoadOrderMerge into: #('a' 'b') merge: #('a' 'c' 'b') basedOn: #('a' 'b'). - merge applyDiff: (SquotArtifactAddition of: (SquotArtifactMock path: 'c')). - self assert: merge hasChanges; - deny: merge hasConflicts; - assert: #('a' 'c' 'b') equals: (merge resolvedPatch applyTo: #('a' 'b')). "Must remember the place of the new artifact." - \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testApplyAdditionAfterConflict.st b/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testApplyAdditionAfterConflict.st deleted file mode 100644 index 33b9ac928..000000000 --- a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testApplyAdditionAfterConflict.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testApplyAdditionAfterConflict - | merge | - merge := SquotLoadOrderMerge into: #('a' 'c') "had b removed" merge: #('a' 'b' 'c') "with b changed" basedOn: #('a' 'b' 'c'). - merge applyDiff: (SquotArtifactAddition of: (SquotArtifactMock path: 'b')). "as conflict resolution" - self assert: merge hasChanges; - deny: merge hasConflicts; - assert: #('a' 'b' 'c') equals: (merge resolvedPatch applyTo: #('a' 'c')). "Must remember the place of the new artifact." - \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testApplyModificationDoesNothing.st b/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testApplyModificationDoesNothing.st deleted file mode 100644 index f13b50f56..000000000 --- a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testApplyModificationDoesNothing.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testApplyModificationDoesNothing - | merge left right | - merge := SquotLoadOrderMerge into: #('a' 'b' 'c') merge: #('a' 'b' 'c') basedOn: #('a' 'b' 'c'). - left := SquotArtifactMock path: 'b'. - right := left copy. - left whenContentComparedWith: right return: [SquotDiffMock new]. - merge applyDiff: (SquotArtifactModification left: left right: right). - self deny: merge hasConflicts; - assert: #('a' 'b' 'c') equals: (merge resolvedPatch applyTo: #('a' 'b' 'c')). \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testApplyRemoval.st b/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testApplyRemoval.st deleted file mode 100644 index ea8fc17b0..000000000 --- a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testApplyRemoval.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testApplyRemoval - | merge | - merge := SquotLoadOrderMerge into: #('a' 'b' 'c') merge: #('a' 'c') basedOn: #('a' 'b' 'c'). - merge applyDiff: (SquotArtifactRemoval of: (SquotArtifactMock path: 'b')). - self assert: merge hasChanges; - deny: merge hasConflicts; - assert: #('a' 'c') equals: (merge resolvedPatch applyTo: #('a' 'b' 'c')). \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testConflict.st b/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testConflict.st deleted file mode 100644 index 229bc1548..000000000 --- a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testConflict.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testConflict - | merge | - merge := SquotLoadOrderMerge into: #('0' '<' '>') merge: #('<' '>' '0') basedOn: #('<' '0' '>'). - "Moves of 0 conflict with each other." - self assert: merge hasChanges; - assert: merge hasConflicts. - merge chooseIncoming. - self assert: merge hasChanges; - deny: merge hasConflicts; - assert: #('<' '>' '0') equals: (merge resolvedPatch applyTo: #('0' '<' '>')). - merge chooseWorking. - self deny: merge hasConflicts; - deny: merge resolvedPatch squotHasChanges. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testDifferentMoves.st b/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testDifferentMoves.st deleted file mode 100644 index c5ac6d343..000000000 --- a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testDifferentMoves.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testDifferentMoves - | merge | - merge := SquotLoadOrderMerge into: #('b' 'a' 'c') merge: #('b' 'c' 'a') basedOn: #('a' 'b' 'c'). - "Since a does not come before c anymore on one side, it cannot be a true dependency. - Therefore resolve to b c a." - self deny: merge hasConflicts; - assert: #('b' 'c' 'a') equals: (merge resolvedPatch applyTo: #('b' 'a' 'c')). \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testDifferentMovesWithSizeChange.st b/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testDifferentMovesWithSizeChange.st deleted file mode 100644 index f119540b2..000000000 --- a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testDifferentMovesWithSizeChange.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testDifferentMovesWithSizeChange - | merge | - merge := SquotLoadOrderMerge into: #('b' 'x' 'a' 'c') merge: #('b' 'y' 'c' 'a') basedOn: #('a' 'x' 'b' 'y' 'c'). - "Since a does not come before c anymore on one side, it cannot be a true dependency. - Therefore resolve to b c a." - self assert: merge hasChanges; - deny: merge hasConflicts. - merge applyDiff: (SquotArtifactRemoval of: (SquotArtifactMock path: 'x')). "x was unchanged or deliberately dropped." - self assert: #('b' 'c' 'a') equals: (merge resolvedPatch applyTo: #('b' 'x' 'a' 'c')). \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testEqualLoadOrders.st b/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testEqualLoadOrders.st deleted file mode 100644 index 624613af6..000000000 --- a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testEqualLoadOrders.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testEqualLoadOrders - | merge | - merge := SquotLoadOrderMerge into: #('a' 'b' 'c') merge: #('a' 'b' 'c') basedOn: #('a' 'b' 'c'). - self deny: merge hasConflicts; - deny: merge hasChanges. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testEquallyChangedLoadOrders.st b/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testEquallyChangedLoadOrders.st deleted file mode 100644 index 0e9475f70..000000000 --- a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testEquallyChangedLoadOrders.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testEquallyChangedLoadOrders - | merge | - merge := SquotLoadOrderMerge into: #('b' 'a' 'c') merge: #('b' 'a' 'c') basedOn: #('a' 'b' 'c'). - self deny: merge hasConflicts; - deny: merge hasChanges. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testIndependentAdditions.st b/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testIndependentAdditions.st deleted file mode 100644 index ce63c6ba3..000000000 --- a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testIndependentAdditions.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testIndependentAdditions - | merge | - merge := SquotLoadOrderMerge into: #('a') merge: #('b') basedOn: #(). - "Since neither a depends on b nor the other way around, the order does not matter." - self assert: merge hasChanges; - deny: merge hasConflicts. - merge applyDiff: (SquotArtifactAddition of: (SquotArtifactMock path: 'b')). - self assert: #('b' 'a') asBag equals: (merge resolvedPatch applyTo: #('a')) asBag. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testIndependentAdditions2.st b/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testIndependentAdditions2.st deleted file mode 100644 index b48dc067d..000000000 --- a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testIndependentAdditions2.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testIndependentAdditions2 - | merge | - merge := SquotLoadOrderMerge into: #('a' 'x') merge: #('b' 'x') basedOn: #('x'). - "Since neither a depends on b nor the other way around, the order does not matter." - self assert: merge hasChanges; - deny: merge hasConflicts. - merge applyDiff: (SquotArtifactAddition of: (SquotArtifactMock path: 'b')). - self assert: #('b' 'a' 'x') asBag equals: (merge resolvedPatch applyTo: #('a' 'x')) asBag. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testIndependentAdditions3.st b/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testIndependentAdditions3.st deleted file mode 100644 index c94c060b4..000000000 --- a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testIndependentAdditions3.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testIndependentAdditions3 - | merge | - merge := SquotLoadOrderMerge into: #('x' 'a') merge: #('x' 'b') basedOn: #('x'). - "Since neither a depends on b nor the other way around, the order does not matter." - self assert: merge hasChanges; - deny: merge hasConflicts. - merge applyDiff: (SquotArtifactAddition of: (SquotArtifactMock path: 'b')). - self assert: #('x' 'b' 'a') asBag equals: (merge resolvedPatch applyTo: #('x' 'a')) asBag. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testIndependentRemovals.st b/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testIndependentRemovals.st deleted file mode 100644 index 092664a11..000000000 --- a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testIndependentRemovals.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testIndependentRemovals - | merge | - merge := SquotLoadOrderMerge into: #('a') merge: #('b') basedOn: #('a' 'b'). - self assert: merge hasChanges; - deny: merge hasConflicts. - merge applyDiff: (SquotArtifactRemoval of: (SquotArtifactMock path: 'a')). - self assert: #() equals: (merge resolvedPatch applyTo: #('a')). \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testKeepChangesToRemovedAfterConflict.st b/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testKeepChangesToRemovedAfterConflict.st deleted file mode 100644 index 8ba8c34d7..000000000 --- a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testKeepChangesToRemovedAfterConflict.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testKeepChangesToRemovedAfterConflict - | merge | - merge := SquotLoadOrderMerge into: #('a' 'b' 'c') "with b changed" merge: #('c' 'a') "had b removed and a, c swapped" basedOn: #('a' 'b' 'c'). - merge chooseIncoming. "For the swap of a and c." - "No removal gets applied because the user wants to keep b." - self assert: merge hasChanges; - deny: merge hasConflicts; - assert: #('c' 'a' 'b') equals: (merge resolvedPatch applyTo: #('a' 'b' 'c')). "Assumption that b depends on a." \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testMultipleConflicts.st b/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testMultipleConflicts.st deleted file mode 100644 index f28dbf94b..000000000 --- a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testMultipleConflicts.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testMultipleConflicts - | merge | - merge := SquotLoadOrderMerge into: #('0' '<' 'x' 'a' 'b' '>') merge: #('<' 'b' 'a' 'x' '>' '0') basedOn: #('<' '0' 'a' 'b' '>'). - "Moves of 0 conflict with each other, conflict about position of new x." - self assert: merge hasChanges; - assert: merge hasConflicts. - merge chooseIncoming. - self assert: merge hasChanges; - deny: merge hasConflicts; - assert: #('<' 'b' 'a' 'x' '>' '0') equals: (merge resolvedPatch applyTo: #('0' '<' 'x' 'a' 'b' '>')). - merge chooseWorking. - self deny: merge hasConflicts; - deny: merge resolvedPatch squotHasChanges. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testUnilateralMoves.st b/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testUnilateralMoves.st deleted file mode 100644 index 0e923f2aa..000000000 --- a/src/Squot.package/SquotLoadOrderMergeTest.class/instance/testUnilateralMoves.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testUnilateralMoves - | merge | - merge := SquotLoadOrderMerge into: #('c' 'a' 'b') merge: #('a' 'b' 'c') basedOn: #('a' 'b' 'c'). - self deny: merge hasConflicts; - assert: #('c' 'a' 'b') equals: (merge resolvedPatch applyTo: #('c' 'a' 'b')). - merge := SquotLoadOrderMerge into: #('a' 'b' 'c') merge: #('c' 'a' 'b') basedOn: #('a' 'b' 'c'). - self deny: merge hasConflicts; - assert: #('c' 'a' 'b') equals: (merge resolvedPatch applyTo: #('a' 'b' 'c')). \ No newline at end of file diff --git a/src/Squot.package/SquotLoadOrderMergeTest.class/methodProperties.json b/src/Squot.package/SquotLoadOrderMergeTest.class/methodProperties.json deleted file mode 100644 index 6054fdfe7..000000000 --- a/src/Squot.package/SquotLoadOrderMergeTest.class/methodProperties.json +++ /dev/null @@ -1,24 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testAdditionAndUnrelatedConflicts" : "jr 11/7/2020 10:44", - "testAdditionAndUnrelatedConflicts2" : "jr 10/31/2020 17:25", - "testAdditionsInDifferentPlaces" : "jr 10/20/2020 21:11", - "testAdditionsInDifferentPlacesButSameIndex" : "jr 10/20/2020 21:10", - "testApplyAddition" : "jr 10/18/2020 14:38", - "testApplyAdditionAfterConflict" : "jr 10/18/2020 15:03", - "testApplyModificationDoesNothing" : "jr 10/18/2020 21:57", - "testApplyRemoval" : "jr 10/18/2020 14:39", - "testConflict" : "jr 10/20/2020 23:43", - "testDifferentMoves" : "jr 10/18/2020 22:06", - "testDifferentMovesWithSizeChange" : "jr 11/7/2020 10:44", - "testEqualLoadOrders" : "jr 10/20/2020 21:14", - "testEquallyChangedLoadOrders" : "jr 10/20/2020 21:14", - "testIndependentAdditions" : "jr 10/24/2020 16:28", - "testIndependentAdditions2" : "jr 11/1/2020 21:39", - "testIndependentAdditions3" : "jr 11/1/2020 21:39", - "testIndependentRemovals" : "jr 10/24/2020 16:29", - "testKeepChangesToRemovedAfterConflict" : "jr 10/24/2020 16:30", - "testMultipleConflicts" : "jr 10/20/2020 23:44", - "testUnilateralMoves" : "jr 10/18/2020 22:00" } } diff --git a/src/Squot.package/SquotLoadOrderMergeTest.class/properties.json b/src/Squot.package/SquotLoadOrderMergeTest.class/properties.json deleted file mode 100644 index 92d0521ea..000000000 --- a/src/Squot.package/SquotLoadOrderMergeTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Merging", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotLoadOrderMergeTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotLoadedArtifact.class/README.md b/src/Squot.package/SquotLoadedArtifact.class/README.md deleted file mode 100644 index fab4fc839..000000000 --- a/src/Squot.package/SquotLoadedArtifact.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I wrap a SquotArtifact that is loaded in my SquotWorkingCopy. Actually the objects live in the working copy's store (e. g. SquotImageStore). \ No newline at end of file diff --git a/src/Squot.package/SquotLoadedArtifact.class/instance/^equals.st b/src/Squot.package/SquotLoadedArtifact.class/instance/^equals.st deleted file mode 100644 index dccb8233f..000000000 --- a/src/Squot.package/SquotLoadedArtifact.class/instance/^equals.st +++ /dev/null @@ -1,4 +0,0 @@ -comparing -= anObject - anObject == self ifTrue: [^ true]. - ^ anObject = artifact "delegate to SquotLiveArtifact" \ No newline at end of file diff --git a/src/Squot.package/SquotLoadedArtifact.class/instance/applyLoadStatusTo..st b/src/Squot.package/SquotLoadedArtifact.class/instance/applyLoadStatusTo..st deleted file mode 100644 index b1584a6f4..000000000 --- a/src/Squot.package/SquotLoadedArtifact.class/instance/applyLoadStatusTo..st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -applyLoadStatusTo: anArtifactDiff - anArtifactDiff setLoadedInWorkingCopy. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadedArtifact.class/instance/hash.st b/src/Squot.package/SquotLoadedArtifact.class/instance/hash.st deleted file mode 100644 index 31e52074f..000000000 --- a/src/Squot.package/SquotLoadedArtifact.class/instance/hash.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -hash - ^ artifact hash \ No newline at end of file diff --git a/src/Squot.package/SquotLoadedArtifact.class/instance/isLoaded.st b/src/Squot.package/SquotLoadedArtifact.class/instance/isLoaded.st deleted file mode 100644 index 3c4055bff..000000000 --- a/src/Squot.package/SquotLoadedArtifact.class/instance/isLoaded.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isLoaded - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotLoadedArtifact.class/instance/printOn..st b/src/Squot.package/SquotLoadedArtifact.class/instance/printOn..st deleted file mode 100644 index fb395e2e1..000000000 --- a/src/Squot.package/SquotLoadedArtifact.class/instance/printOn..st +++ /dev/null @@ -1,3 +0,0 @@ -printing -printOn: aStream - aStream nextPutAll: 'loaded '. artifact printOn: aStream. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadedArtifact.class/instance/storeArtifact..st b/src/Squot.package/SquotLoadedArtifact.class/instance/storeArtifact..st deleted file mode 100644 index 0be99a55a..000000000 --- a/src/Squot.package/SquotLoadedArtifact.class/instance/storeArtifact..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -storeArtifact: anObject - artifact := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotLoadedArtifact.class/instance/storeArtifact.st b/src/Squot.package/SquotLoadedArtifact.class/instance/storeArtifact.st deleted file mode 100644 index 086053d84..000000000 --- a/src/Squot.package/SquotLoadedArtifact.class/instance/storeArtifact.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -storeArtifact - ^ artifact \ No newline at end of file diff --git a/src/Squot.package/SquotLoadedArtifact.class/instance/unload.st b/src/Squot.package/SquotLoadedArtifact.class/instance/unload.st deleted file mode 100644 index 2c847705b..000000000 --- a/src/Squot.package/SquotLoadedArtifact.class/instance/unload.st +++ /dev/null @@ -1,3 +0,0 @@ -patching -unload - self shouldBeImplemented. \ No newline at end of file diff --git a/src/Squot.package/SquotLoadedArtifact.class/instance/updatePath.st b/src/Squot.package/SquotLoadedArtifact.class/instance/updatePath.st deleted file mode 100644 index c3f2ad746..000000000 --- a/src/Squot.package/SquotLoadedArtifact.class/instance/updatePath.st +++ /dev/null @@ -1,10 +0,0 @@ -private -updatePath - | storeInfo | - storeInfo := artifact liveStoreInfo copy - at: #path put: artifact path; - yourself. - workingCopy initializeStoreInfo: storeInfo forObject: (workingCopy objectAt: artifact path) shadow: artifact content. - (storeInfo at: #path) ~= artifact path ifTrue: - [workingCopy moveObjectAt: artifact path to: (storeInfo at: #path)]. - artifact := workingCopy store artifactAt: (storeInfo at: #path). \ No newline at end of file diff --git a/src/Squot.package/SquotLoadedArtifact.class/methodProperties.json b/src/Squot.package/SquotLoadedArtifact.class/methodProperties.json deleted file mode 100644 index a637e8874..000000000 --- a/src/Squot.package/SquotLoadedArtifact.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "=" : "jr 11/21/2020 01:32", - "applyLoadStatusTo:" : "jr 11/19/2020 13:05", - "hash" : "jr 11/21/2020 01:31", - "isLoaded" : "jr 9/26/2020 21:02", - "printOn:" : "jr 10/4/2020 21:17", - "storeArtifact" : "jr 9/26/2020 18:04", - "storeArtifact:" : "jr 9/26/2020 18:04", - "unload" : "jr 9/26/2020 21:01", - "updatePath" : "jr 5/28/2022 12:04" } } diff --git a/src/Squot.package/SquotLoadedArtifact.class/properties.json b/src/Squot.package/SquotLoadedArtifact.class/properties.json deleted file mode 100644 index 5c381764b..000000000 --- a/src/Squot.package/SquotLoadedArtifact.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-WorkingCopies", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 9/26/2020 18:08", - "instvars" : [ - ], - "name" : "SquotLoadedArtifact", - "pools" : [ - ], - "super" : "SquotWorkingCopyArtifact", - "type" : "normal" } diff --git a/src/Squot.package/SquotLookupKeyMirror.class/README.md b/src/Squot.package/SquotLookupKeyMirror.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotLookupKeyMirror.class/class/classWithIrrelevantKeyHash..st b/src/Squot.package/SquotLookupKeyMirror.class/class/classWithIrrelevantKeyHash..st deleted file mode 100644 index 49a32c4ea..000000000 --- a/src/Squot.package/SquotLookupKeyMirror.class/class/classWithIrrelevantKeyHash..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -classWithIrrelevantKeyHash: aClass - ^ (self class: aClass) - setKeyHashIrrelevant; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotLookupKeyMirror.class/instance/initialize.st b/src/Squot.package/SquotLookupKeyMirror.class/instance/initialize.st deleted file mode 100644 index 6a0733865..000000000 --- a/src/Squot.package/SquotLookupKeyMirror.class/instance/initialize.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -initialize - isKeyHashRelevant := true. \ No newline at end of file diff --git a/src/Squot.package/SquotLookupKeyMirror.class/instance/referencesFrom..st b/src/Squot.package/SquotLookupKeyMirror.class/instance/referencesFrom..st deleted file mode 100644 index e05114425..000000000 --- a/src/Squot.package/SquotLookupKeyMirror.class/instance/referencesFrom..st +++ /dev/null @@ -1,11 +0,0 @@ -enumerating -referencesFrom: anObject - "If the hash of the key is relevant, indicate this in the reference to it." - | references | - references := super referencesFrom: anObject. - isKeyHashRelevant ifFalse: [^ references]. - references replace: - [:each | (each isInstanceVariable and: [each name = 'key']) - ifTrue: [SquotKeyVariable newFrom: each] - ifFalse: [each]]. - ^ references \ No newline at end of file diff --git a/src/Squot.package/SquotLookupKeyMirror.class/instance/setKeyHashIrrelevant.st b/src/Squot.package/SquotLookupKeyMirror.class/instance/setKeyHashIrrelevant.st deleted file mode 100644 index 519feebad..000000000 --- a/src/Squot.package/SquotLookupKeyMirror.class/instance/setKeyHashIrrelevant.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -setKeyHashIrrelevant - isKeyHashRelevant := false. \ No newline at end of file diff --git a/src/Squot.package/SquotLookupKeyMirror.class/methodProperties.json b/src/Squot.package/SquotLookupKeyMirror.class/methodProperties.json deleted file mode 100644 index 8a8508cf2..000000000 --- a/src/Squot.package/SquotLookupKeyMirror.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - "classWithIrrelevantKeyHash:" : "jr 4/17/2021 18:01" }, - "instance" : { - "initialize" : "jr 4/17/2021 18:01", - "referencesFrom:" : "jr 4/17/2021 18:48", - "setKeyHashIrrelevant" : "jr 4/17/2021 18:01" } } diff --git a/src/Squot.package/SquotLookupKeyMirror.class/properties.json b/src/Squot.package/SquotLookupKeyMirror.class/properties.json deleted file mode 100644 index 934ec28ff..000000000 --- a/src/Squot.package/SquotLookupKeyMirror.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "isKeyHashRelevant" ], - "name" : "SquotLookupKeyMirror", - "pools" : [ - ], - "super" : "SquotObjectMirror", - "type" : "normal" } diff --git a/src/Squot.package/SquotMapper.class/instance/doPostUpdateMigrationsIn..st b/src/Squot.package/SquotMapper.class/instance/doPostUpdateMigrationsIn..st index 7cf745721..75ffe0aa6 100644 --- a/src/Squot.package/SquotMapper.class/instance/doPostUpdateMigrationsIn..st +++ b/src/Squot.package/SquotMapper.class/instance/doPostUpdateMigrationsIn..st @@ -1,4 +1,3 @@ migrations doPostUpdateMigrationsIn: aWorkingCopy - self fallbackToLegacyVersion. - self isTracked ifNil: [self isTracked: true]. \ No newline at end of file + self fallbackToLegacyVersion. \ No newline at end of file diff --git a/src/Squot.package/SquotMapper.class/instance/isTracked.st b/src/Squot.package/SquotMapper.class/instance/isTracked.st index 44a3b0abb..a2828854d 100644 --- a/src/Squot.package/SquotMapper.class/instance/isTracked.st +++ b/src/Squot.package/SquotMapper.class/instance/isTracked.st @@ -1,3 +1,4 @@ accessing isTracked + isTracked ifNil: [isTracked := true]. ^ isTracked \ No newline at end of file diff --git a/src/Squot.package/SquotMapper.class/methodProperties.json b/src/Squot.package/SquotMapper.class/methodProperties.json index e2c2d4214..58faba1f6 100644 --- a/src/Squot.package/SquotMapper.class/methodProperties.json +++ b/src/Squot.package/SquotMapper.class/methodProperties.json @@ -12,14 +12,14 @@ "changeSetFromFSCommit:toFSCommit:" : "mad 9/6/2023 12:51", "changeSetFromFSCommit:toImage:" : "mad 9/6/2023 12:51", "changeSetFromImage:toFSCommit:" : "mad 9/6/2023 12:51", - "doPostUpdateMigrationsIn:" : "mad 9/30/2024 15:02", + "doPostUpdateMigrationsIn:" : "mad 10/6/2024 16:46", "equalsIncludingVersion:" : "mad 9/27/2024 18:26", "fallbackToLegacyVersion" : "mad 9/27/2024 13:57", "fromSton:" : "mad 9/27/2024 15:46", "hash" : "mad 9/30/2024 15:03", "hashIncludingVersion" : "mad 9/27/2024 17:42", "initialize" : "mad 9/30/2024 15:01", - "isTracked" : "mad 9/30/2024 15:01", + "isTracked" : "mad 10/6/2024 16:46", "isTracked:" : "mad 9/30/2024 15:01", "isUntracked" : "mad 9/30/2024 15:41", "mappedPathPatterns" : "mad 10/4/2024 15:33", diff --git a/src/Squot.package/SquotMemoizingVersion.class/README.md b/src/Squot.package/SquotMemoizingVersion.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotMemoizingVersion.class/class/version..st b/src/Squot.package/SquotMemoizingVersion.class/class/version..st deleted file mode 100644 index 090d54922..000000000 --- a/src/Squot.package/SquotMemoizingVersion.class/class/version..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -version: aVersion - ^ self new - setVersion: aVersion; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotMemoizingVersion.class/class/version.snapshot..st b/src/Squot.package/SquotMemoizingVersion.class/class/version.snapshot..st deleted file mode 100644 index f6ff98e7d..000000000 --- a/src/Squot.package/SquotMemoizingVersion.class/class/version.snapshot..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -version: aVersion snapshot: aSnapshot - ^ self new - setVersion: aVersion snapshot: aSnapshot; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotMemoizingVersion.class/instance/^equals.st b/src/Squot.package/SquotMemoizingVersion.class/instance/^equals.st deleted file mode 100644 index 604db06ca..000000000 --- a/src/Squot.package/SquotMemoizingVersion.class/instance/^equals.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -= anotherVersion - ^ version = anotherVersion \ No newline at end of file diff --git a/src/Squot.package/SquotMemoizingVersion.class/instance/artifactAt..st b/src/Squot.package/SquotMemoizingVersion.class/instance/artifactAt..st deleted file mode 100644 index d2e273c2a..000000000 --- a/src/Squot.package/SquotMemoizingVersion.class/instance/artifactAt..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -artifactAt: path - ^ snapshot - ifNil: [version artifactAt: path] - ifNotNil: [snapshot artifactAt: path] \ No newline at end of file diff --git a/src/Squot.package/SquotMemoizingVersion.class/instance/artifacts.st b/src/Squot.package/SquotMemoizingVersion.class/instance/artifacts.st deleted file mode 100644 index a36d6f51b..000000000 --- a/src/Squot.package/SquotMemoizingVersion.class/instance/artifacts.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -artifacts - ^ snapshot - ifNil: [self populateSnapshot artifacts] - ifNotNil: [snapshot artifacts] \ No newline at end of file diff --git a/src/Squot.package/SquotMemoizingVersion.class/instance/doesNotUnderstand..st b/src/Squot.package/SquotMemoizingVersion.class/instance/doesNotUnderstand..st deleted file mode 100644 index f73f3212b..000000000 --- a/src/Squot.package/SquotMemoizingVersion.class/instance/doesNotUnderstand..st +++ /dev/null @@ -1,7 +0,0 @@ -error handling -doesNotUnderstand: aMessage - | answer | - answer := aMessage sendTo: version. - ^ (thisContext object: answer eqeq: version) - ifTrue: [self] - ifFalse: [answer] \ No newline at end of file diff --git a/src/Squot.package/SquotMemoizingVersion.class/instance/hash.st b/src/Squot.package/SquotMemoizingVersion.class/instance/hash.st deleted file mode 100644 index 8ef0c6c7f..000000000 --- a/src/Squot.package/SquotMemoizingVersion.class/instance/hash.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -hash - ^ version hash \ No newline at end of file diff --git a/src/Squot.package/SquotMemoizingVersion.class/instance/patchRelativeToBase..st b/src/Squot.package/SquotMemoizingVersion.class/instance/patchRelativeToBase..st deleted file mode 100644 index 99af32606..000000000 --- a/src/Squot.package/SquotMemoizingVersion.class/instance/patchRelativeToBase..st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -patchRelativeToBase: objectContainer - ^ self snapshot patchRelativeToBase: objectContainer \ No newline at end of file diff --git a/src/Squot.package/SquotMemoizingVersion.class/instance/populateSnapshot.st b/src/Squot.package/SquotMemoizingVersion.class/instance/populateSnapshot.st deleted file mode 100644 index ff09bfa08..000000000 --- a/src/Squot.package/SquotMemoizingVersion.class/instance/populateSnapshot.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -populateSnapshot - ^ snapshot := version snapshot \ No newline at end of file diff --git a/src/Squot.package/SquotMemoizingVersion.class/instance/printOn..st b/src/Squot.package/SquotMemoizingVersion.class/instance/printOn..st deleted file mode 100644 index 9d1e9789f..000000000 --- a/src/Squot.package/SquotMemoizingVersion.class/instance/printOn..st +++ /dev/null @@ -1,3 +0,0 @@ -printing -printOn: aStream - aStream nextPutAll: 'memoized '; print: version. \ No newline at end of file diff --git a/src/Squot.package/SquotMemoizingVersion.class/instance/setVersion..st b/src/Squot.package/SquotMemoizingVersion.class/instance/setVersion..st deleted file mode 100644 index b143590c2..000000000 --- a/src/Squot.package/SquotMemoizingVersion.class/instance/setVersion..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -setVersion: aVersion - version := aVersion. \ No newline at end of file diff --git a/src/Squot.package/SquotMemoizingVersion.class/instance/setVersion.snapshot..st b/src/Squot.package/SquotMemoizingVersion.class/instance/setVersion.snapshot..st deleted file mode 100644 index 6518ab1c4..000000000 --- a/src/Squot.package/SquotMemoizingVersion.class/instance/setVersion.snapshot..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -setVersion: aVersion snapshot: aSnapshot - version := aVersion. - snapshot := aSnapshot. \ No newline at end of file diff --git a/src/Squot.package/SquotMemoizingVersion.class/instance/snapshot.st b/src/Squot.package/SquotMemoizingVersion.class/instance/snapshot.st deleted file mode 100644 index 9af9be049..000000000 --- a/src/Squot.package/SquotMemoizingVersion.class/instance/snapshot.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -snapshot - ^ snapshot ifNil: [self populateSnapshot] \ No newline at end of file diff --git a/src/Squot.package/SquotMemoizingVersion.class/methodProperties.json b/src/Squot.package/SquotMemoizingVersion.class/methodProperties.json deleted file mode 100644 index 493c9376c..000000000 --- a/src/Squot.package/SquotMemoizingVersion.class/methodProperties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "class" : { - "version:" : "jr 1/2/2021 16:49", - "version:snapshot:" : "jr 1/2/2021 16:48" }, - "instance" : { - "=" : "jr 1/2/2021 16:54", - "artifactAt:" : "jr 1/2/2021 16:38", - "artifacts" : "jr 1/2/2021 16:39", - "doesNotUnderstand:" : "jr 1/2/2021 16:36", - "hash" : "jr 1/2/2021 16:54", - "patchRelativeToBase:" : "jr 1/3/2021 22:49", - "populateSnapshot" : "jr 1/2/2021 16:39", - "printOn:" : "jr 1/2/2021 16:53", - "setVersion:" : "jr 1/2/2021 16:49", - "setVersion:snapshot:" : "jr 1/2/2021 16:49", - "snapshot" : "jr 1/2/2021 16:39" } } diff --git a/src/Squot.package/SquotMemoizingVersion.class/properties.json b/src/Squot.package/SquotMemoizingVersion.class/properties.json deleted file mode 100644 index de747c94c..000000000 --- a/src/Squot.package/SquotMemoizingVersion.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-Internal", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "version", - "snapshot" ], - "name" : "SquotMemoizingVersion", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotMerge.class/README.md b/src/Squot.package/SquotMerge.class/README.md deleted file mode 100644 index 8da9a1ed1..000000000 --- a/src/Squot.package/SquotMerge.class/README.md +++ /dev/null @@ -1 +0,0 @@ -Coordinates the merge of another version into a working copy. \ No newline at end of file diff --git a/src/Squot.package/SquotMerge.class/instance/addLoadOrderDiffTreeTo..st b/src/Squot.package/SquotMerge.class/instance/addLoadOrderDiffTreeTo..st deleted file mode 100644 index 67e393513..000000000 --- a/src/Squot.package/SquotMerge.class/instance/addLoadOrderDiffTreeTo..st +++ /dev/null @@ -1,7 +0,0 @@ -*Squot-Tools -addLoadOrderDiffTreeTo: aCollection - loadOrderMerge hasChanges ifFalse: [^ self]. - aCollection - add: (loadOrderMerge - createDiffOrMergeTreeNodeWithWorkingOrder: [working loadOrder] - incomingOrder: [customizedLoadOrder ifNil: [incoming loadOrder]]). \ No newline at end of file diff --git a/src/Squot.package/SquotMerge.class/instance/computeDifferences.st b/src/Squot.package/SquotMerge.class/instance/computeDifferences.st deleted file mode 100644 index b90497df6..000000000 --- a/src/Squot.package/SquotMerge.class/instance/computeDifferences.st +++ /dev/null @@ -1,31 +0,0 @@ -private -computeDifferences - | fromBaseToExisting fromBaseToIncoming commonPaths | - fromBaseToIncoming := incoming patchRelativeToBase: base. - fromBaseToExisting := working patchRelativeToBase: base. - commonPaths := fromBaseToIncoming commonPathsWith: fromBaseToExisting. - commonPaths do: [:eachPath | | existingDiff incomingDiff artifactMerge | - existingDiff := fromBaseToExisting diffAt: eachPath. - incomingDiff := fromBaseToIncoming diffAt: eachPath. - artifactMerge := existingDiff mergeWith: incomingDiff. - artifactMerge isConflict - ifTrue: [containerConflicts at: artifactMerge path put: artifactMerge] - ifFalse: - [artifactMerge mayAffectArtifact - ifTrue: - [artifactMerge isMerge "one side could have yielded to the other" - ifTrue: [ self addMerge: artifactMerge] - ifFalse: [self addModification: artifactMerge]]]]. - (fromBaseToIncoming paths copyWithoutAll: commonPaths) - do: [:eachPath | | diff | - diff := fromBaseToIncoming diffAt: eachPath. - diff addToMerge: self modifying: (working artifactAt: eachPath ifAbsent: [])]. - - "Allow to load unloaded artifacts even if they are not affected otherwise by the merge." - ((working artifacts select: [:each | (each respondsTo: #isLoaded) and: [each isLoaded not]]) reject: [:each | (commonPaths includes: each path) or: [fromBaseToIncoming includesDiffAt: each path]]) - do: [:each | | diff | - diff := each diffAgainst: each artifact. - diff mayAffectArtifact ifTrue: [diff addToMerge: self modifying: each]]. - - loadOrderMerge := SquotLoadOrderMerge - into: working loadOrder merge: incoming loadOrder basedOn: base loadOrder. \ No newline at end of file diff --git a/src/Squot.package/SquotMerge.class/instance/conflicts.st b/src/Squot.package/SquotMerge.class/instance/conflicts.st deleted file mode 100644 index 7be0e7250..000000000 --- a/src/Squot.package/SquotMerge.class/instance/conflicts.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -conflicts - ^ super conflicts - addAll: loadOrderMerge conflicts; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotMerge.class/instance/customizedLoadOrder.st b/src/Squot.package/SquotMerge.class/instance/customizedLoadOrder.st deleted file mode 100644 index 6ad784ca3..000000000 --- a/src/Squot.package/SquotMerge.class/instance/customizedLoadOrder.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -customizedLoadOrder - ^ customizedLoadOrder \ No newline at end of file diff --git a/src/Squot.package/SquotMerge.class/instance/keyOf.ifAbsent..st b/src/Squot.package/SquotMerge.class/instance/keyOf.ifAbsent..st deleted file mode 100644 index 3fc3bda0f..000000000 --- a/src/Squot.package/SquotMerge.class/instance/keyOf.ifAbsent..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -keyOf: anArtifact ifAbsent: aBlock - ^ anArtifact path \ No newline at end of file diff --git a/src/Squot.package/SquotMerge.class/instance/loadOrderMerge.st b/src/Squot.package/SquotMerge.class/instance/loadOrderMerge.st deleted file mode 100644 index 8c7ce5807..000000000 --- a/src/Squot.package/SquotMerge.class/instance/loadOrderMerge.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -loadOrderMerge - ^ loadOrderMerge \ No newline at end of file diff --git a/src/Squot.package/SquotMerge.class/instance/mergeAt..st b/src/Squot.package/SquotMerge.class/instance/mergeAt..st deleted file mode 100644 index 6ecf403e4..000000000 --- a/src/Squot.package/SquotMerge.class/instance/mergeAt..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -mergeAt: path - ^ elementMerges at: path \ No newline at end of file diff --git a/src/Squot.package/SquotMerge.class/instance/newLoadOrder..st b/src/Squot.package/SquotMerge.class/instance/newLoadOrder..st deleted file mode 100644 index 5ebb5877d..000000000 --- a/src/Squot.package/SquotMerge.class/instance/newLoadOrder..st +++ /dev/null @@ -1,4 +0,0 @@ -merging -newLoadOrder: aSequenceableCollection - customizedLoadOrder := aSequenceableCollection. - loadOrderMerge newLoadOrder: customizedLoadOrder. \ No newline at end of file diff --git a/src/Squot.package/SquotMerge.class/instance/newLoadOrder.st b/src/Squot.package/SquotMerge.class/instance/newLoadOrder.st deleted file mode 100644 index 97417fdf8..000000000 --- a/src/Squot.package/SquotMerge.class/instance/newLoadOrder.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -newLoadOrder - ^ loadOrderMerge newLoadOrder \ No newline at end of file diff --git a/src/Squot.package/SquotMerge.class/instance/privateResolvedPatch.st b/src/Squot.package/SquotMerge.class/instance/privateResolvedPatch.st deleted file mode 100644 index 4cee95f84..000000000 --- a/src/Squot.package/SquotMerge.class/instance/privateResolvedPatch.st +++ /dev/null @@ -1,23 +0,0 @@ -merging -privateResolvedPatch - "Answers the patch that resulted after resolving the conflicts." - | builder | - builder := SquotPatch builder. - builder startingFrom: working. - loadOrderMerge resetAppliedDiffs. - (containerModifications select: [:each | each mayAffectArtifact]) do: - [:each | - builder addDiff: each. - "Confirm additions and removals for the load order." - loadOrderMerge applyDiff: each]. - (containerConflicts select: [:each | each mayAffectArtifact]) do: - [:each | - builder addDiff: each resolution. - "Artifacts might be readded even though they were removed from the working copy previously." - loadOrderMerge applyDiff: each resolution]. - (elementMerges select: [:each | each mayAffectArtifact]) - do: [:each | builder addDiff: each resolvedPatch]. - builder newLoadOrder: (loadOrderMerge resolvedPatch applyTo: working loadOrder). - ^ builder - updateRightArtifacts; - buildPatch \ No newline at end of file diff --git a/src/Squot.package/SquotMerge.class/methodProperties.json b/src/Squot.package/SquotMerge.class/methodProperties.json deleted file mode 100644 index d47fa2508..000000000 --- a/src/Squot.package/SquotMerge.class/methodProperties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "addLoadOrderDiffTreeTo:" : "jr 11/3/2020 21:58", - "computeDifferences" : "jr 11/27/2020 00:29", - "conflicts" : "jr 7/30/2019 21:23", - "customizedLoadOrder" : "jr 11/3/2020 20:50", - "keyOf:ifAbsent:" : "jr 7/30/2019 21:21", - "loadOrderMerge" : "jr 11/3/2020 16:27", - "mergeAt:" : "jr 8/3/2019 21:24", - "newLoadOrder" : "jr 8/15/2019 13:57", - "newLoadOrder:" : "jr 11/3/2020 17:08", - "privateResolvedPatch" : "jr 7/17/2021 20:32" } } diff --git a/src/Squot.package/SquotMerge.class/properties.json b/src/Squot.package/SquotMerge.class/properties.json deleted file mode 100644 index fa5bc3072..000000000 --- a/src/Squot.package/SquotMerge.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Merging", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 7/22/2019 22:16", - "instvars" : [ - "loadOrderConflicts", - "loadOrderMerge", - "customizedLoadOrder" ], - "name" : "SquotMerge", - "pools" : [ - ], - "super" : "SquotAbstractCollectionMerge", - "type" : "normal" } diff --git a/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/README.md b/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/README.md deleted file mode 100644 index 76247f95a..000000000 --- a/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/README.md +++ /dev/null @@ -1 +0,0 @@ -On the active branch an artifact was modified, on another branch it was removed. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/createBaseVersion.st b/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/createBaseVersion.st deleted file mode 100644 index c3454ce6d..000000000 --- a/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/createBaseVersion.st +++ /dev/null @@ -1,9 +0,0 @@ -test fixture -createBaseVersion - self workingCopy - add: (others add: (ValueHolder new contents: 1)) at: 'first other'; - add: conflictObject at: 'text'; - add: (others add: (ValueHolder new contents: 2)) at: 'second other'. - self assert: #('first other' 'text' 'second other') equals: workingCopy loadOrder asArray. - self workingCopy saveVersionWithMessage: 'Initialize artifacts'. - ^ workingCopy loadedHistorian version \ No newline at end of file diff --git a/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/expectedObjectOrderAfterMerge.st b/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/expectedObjectOrderAfterMerge.st deleted file mode 100644 index 5402395b5..000000000 --- a/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/expectedObjectOrderAfterMerge.st +++ /dev/null @@ -1,3 +0,0 @@ -test fixture -expectedObjectOrderAfterMerge - ^ #('first other' 'text' 'second other') "text still in same position" \ No newline at end of file diff --git a/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/mergeButKeepArtifact.st b/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/mergeButKeepArtifact.st deleted file mode 100644 index 3422f4c0b..000000000 --- a/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/mergeButKeepArtifact.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -mergeButKeepArtifact - | merge operation conflict | - "when" - merge := (operation := self workingCopy newMergeOperation) - mergeVersion: incomingVersion; - prepare. - "then" - conflict := merge conflictAt: 'text'. - self assert: conflict isResolved not. - - "when" - conflict chooseWorking. "the changed text" - operation applyToWorkingCopy. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/prepareIncomingVersion.st b/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/prepareIncomingVersion.st deleted file mode 100644 index c1f5407fb..000000000 --- a/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/prepareIncomingVersion.st +++ /dev/null @@ -1,3 +0,0 @@ -test fixture -prepareIncomingVersion - workingCopy remove: conflictObject. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/prepareWorkingVersion.st b/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/prepareWorkingVersion.st deleted file mode 100644 index fd5018357..000000000 --- a/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/prepareWorkingVersion.st +++ /dev/null @@ -1,5 +0,0 @@ -test fixture -prepareWorkingVersion - workingCopy loadedHistorian version: baseVersion. - workingCopy discardUnsavedChanges. "reset text to baseVersion" - conflictObject contents: 'Changed text'. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/setUp.st b/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/setUp.st deleted file mode 100644 index 06970429f..000000000 --- a/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/setUp.st +++ /dev/null @@ -1,12 +0,0 @@ -running -setUp - conflictObject := ValueHolder new contents: 'Base text'; yourself. - others := OrderedCollection new. - self repository - withUnitOfWork: [ - baseVersion := self createBaseVersion. - self prepareIncomingVersion. - workingCopy saveVersionWithMessage: 'Remove artifact'. - incomingVersion := workingCopy loadedHistorian version. - self prepareWorkingVersion. - workingCopy saveVersionWithMessage: 'Change artifact'] \ No newline at end of file diff --git a/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/testKeepArtifact.st b/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/testKeepArtifact.st deleted file mode 100644 index e4f07f64f..000000000 --- a/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/instance/testKeepArtifact.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testKeepArtifact - self repository withUnitOfWork: - ["when" - self mergeButKeepArtifact. - "then" - self assert: (self workingCopy includesObjectAt: 'text'); - assert: self expectedObjectOrderAfterMerge - equals: (self workingCopy loadOrder asArray intersection: #('first other' 'text' 'second other'))]. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/methodProperties.json b/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/methodProperties.json deleted file mode 100644 index 7482499ef..000000000 --- a/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "createBaseVersion" : "jr 10/24/2020 15:31", - "expectedObjectOrderAfterMerge" : "jr 10/31/2020 11:48", - "mergeButKeepArtifact" : "jr 10/31/2020 11:46", - "prepareIncomingVersion" : "jr 10/31/2020 11:35", - "prepareWorkingVersion" : "jr 1/1/2021 23:37", - "setUp" : "jr 1/1/2021 23:37", - "testKeepArtifact" : "jr 10/31/2020 11:46" } } diff --git a/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/properties.json b/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/properties.json deleted file mode 100644 index af6abffb5..000000000 --- a/src/Squot.package/SquotMergeChangeAndRemovalTestScenario.class/properties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 10/31/2020 11:35", - "instvars" : [ - "conflictObject", - "others", - "baseVersion", - "incomingVersion" ], - "name" : "SquotMergeChangeAndRemovalTestScenario", - "pools" : [ - ], - "super" : "SquotWorkingCopyTestScenario", - "type" : "normal" } diff --git a/src/Squot.package/SquotMergeChangeAndRemovalWithReorderingTestScenario.class/README.md b/src/Squot.package/SquotMergeChangeAndRemovalWithReorderingTestScenario.class/README.md deleted file mode 100644 index 3808023bf..000000000 --- a/src/Squot.package/SquotMergeChangeAndRemovalWithReorderingTestScenario.class/README.md +++ /dev/null @@ -1 +0,0 @@ -On the active branch an artifact was modified, on another branch the load order was changed and the same artifact was removed. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeChangeAndRemovalWithReorderingTestScenario.class/instance/expectedObjectOrderAfterMerge.st b/src/Squot.package/SquotMergeChangeAndRemovalWithReorderingTestScenario.class/instance/expectedObjectOrderAfterMerge.st deleted file mode 100644 index 459b19cad..000000000 --- a/src/Squot.package/SquotMergeChangeAndRemovalWithReorderingTestScenario.class/instance/expectedObjectOrderAfterMerge.st +++ /dev/null @@ -1,3 +0,0 @@ -test fixture -expectedObjectOrderAfterMerge - ^ #('second other' 'first other' 'text') "Assuming that text depends on first other." \ No newline at end of file diff --git a/src/Squot.package/SquotMergeChangeAndRemovalWithReorderingTestScenario.class/instance/prepareIncomingVersion.st b/src/Squot.package/SquotMergeChangeAndRemovalWithReorderingTestScenario.class/instance/prepareIncomingVersion.st deleted file mode 100644 index 825b58fcb..000000000 --- a/src/Squot.package/SquotMergeChangeAndRemovalWithReorderingTestScenario.class/instance/prepareIncomingVersion.st +++ /dev/null @@ -1,7 +0,0 @@ -test fixture -prepareIncomingVersion - | newOrder | - super prepareIncomingVersion. - newOrder := self workingCopy loadOrder copy. - newOrder swap: 1 with: 2. - self workingCopy loadOrder: newOrder. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeChangeAndRemovalWithReorderingTestScenario.class/methodProperties.json b/src/Squot.package/SquotMergeChangeAndRemovalWithReorderingTestScenario.class/methodProperties.json deleted file mode 100644 index 188099da0..000000000 --- a/src/Squot.package/SquotMergeChangeAndRemovalWithReorderingTestScenario.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "expectedObjectOrderAfterMerge" : "jr 10/31/2020 11:45", - "prepareIncomingVersion" : "jr 10/31/2020 11:44" } } diff --git a/src/Squot.package/SquotMergeChangeAndRemovalWithReorderingTestScenario.class/properties.json b/src/Squot.package/SquotMergeChangeAndRemovalWithReorderingTestScenario.class/properties.json deleted file mode 100644 index 54d06b19c..000000000 --- a/src/Squot.package/SquotMergeChangeAndRemovalWithReorderingTestScenario.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 10/31/2020 14:54", - "instvars" : [ - ], - "name" : "SquotMergeChangeAndRemovalWithReorderingTestScenario", - "pools" : [ - ], - "super" : "SquotMergeChangeAndRemovalTestScenario", - "type" : "normal" } diff --git a/src/Squot.package/SquotMergeDiffNode.class/README.md b/src/Squot.package/SquotMergeDiffNode.class/README.md deleted file mode 100644 index f8acebdb8..000000000 --- a/src/Squot.package/SquotMergeDiffNode.class/README.md +++ /dev/null @@ -1,4 +0,0 @@ -I am a node that offers a choice how to proceed during a merge. - -Instance Variables - choice: one of {nil. #left. #right} to denote which side of the three-way-diff to use \ No newline at end of file diff --git a/src/Squot.package/SquotMergeDiffNode.class/class/title.content.children.onInclude.onExclude.onReset..st b/src/Squot.package/SquotMergeDiffNode.class/class/title.content.children.onInclude.onExclude.onReset..st deleted file mode 100644 index 8f2c41f58..000000000 --- a/src/Squot.package/SquotMergeDiffNode.class/class/title.content.children.onInclude.onExclude.onReset..st +++ /dev/null @@ -1,8 +0,0 @@ -instance creation -title: aStringOrText content: diffContent children: aCollectionOfDiffNodes onInclude: includeBlock onExclude: excludeBlock onReset: resetBlock - ^ self new - setTitle: aStringOrText content: diffContent children: aCollectionOfDiffNodes; - includeBlock: includeBlock; - excludeBlock: excludeBlock; - resetBlock: resetBlock; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotMergeDiffNode.class/instance/browseIncomingEdition..st b/src/Squot.package/SquotMergeDiffNode.class/instance/browseIncomingEdition..st deleted file mode 100644 index d39239618..000000000 --- a/src/Squot.package/SquotMergeDiffNode.class/instance/browseIncomingEdition..st +++ /dev/null @@ -1,8 +0,0 @@ -browsing -browseIncomingEdition: aWorkingCopy - (self content incoming respondsTo: #isModification "does not need to respond true") - "Special case for SquotContainerConflict..." - ifTrue: [self content incoming isRemoval - ifTrue: [self inform: 'Object does not exist.'] - ifFalse: [self browse: self content incoming right]] - ifFalse: [self browse: self content incoming]. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeDiffNode.class/instance/browseOriginalEdition..st b/src/Squot.package/SquotMergeDiffNode.class/instance/browseOriginalEdition..st deleted file mode 100644 index 2ebd9d4e8..000000000 --- a/src/Squot.package/SquotMergeDiffNode.class/instance/browseOriginalEdition..st +++ /dev/null @@ -1,4 +0,0 @@ -browsing -browseOriginalEdition: aWorkingCopy - "Redefinition: browse the base object." - self browse: self content base. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeDiffNode.class/instance/choice.st b/src/Squot.package/SquotMergeDiffNode.class/instance/choice.st deleted file mode 100644 index 4ceca672d..000000000 --- a/src/Squot.package/SquotMergeDiffNode.class/instance/choice.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -choice - - ^ choice \ No newline at end of file diff --git a/src/Squot.package/SquotMergeDiffNode.class/instance/chooseLeft.st b/src/Squot.package/SquotMergeDiffNode.class/instance/chooseLeft.st deleted file mode 100644 index cc8326b94..000000000 --- a/src/Squot.package/SquotMergeDiffNode.class/instance/chooseLeft.st +++ /dev/null @@ -1,3 +0,0 @@ -resolving conflicts -chooseLeft - self exclude. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeDiffNode.class/instance/chooseRight.st b/src/Squot.package/SquotMergeDiffNode.class/instance/chooseRight.st deleted file mode 100644 index 1f850cc8c..000000000 --- a/src/Squot.package/SquotMergeDiffNode.class/instance/chooseRight.st +++ /dev/null @@ -1,3 +0,0 @@ -resolving conflicts -chooseRight - self include. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeDiffNode.class/instance/exclude.st b/src/Squot.package/SquotMergeDiffNode.class/instance/exclude.st deleted file mode 100644 index cac276c13..000000000 --- a/src/Squot.package/SquotMergeDiffNode.class/instance/exclude.st +++ /dev/null @@ -1,6 +0,0 @@ -as yet unclassified -exclude - choice == #left ifTrue: [^ self]. - isActive := false. - excludeBlock value. - choice := #left. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeDiffNode.class/instance/include.st b/src/Squot.package/SquotMergeDiffNode.class/instance/include.st deleted file mode 100644 index f633996b5..000000000 --- a/src/Squot.package/SquotMergeDiffNode.class/instance/include.st +++ /dev/null @@ -1,6 +0,0 @@ -as yet unclassified -include - choice == #right ifTrue: [^ self]. - isActive := true. - includeBlock value. - choice := #right. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeDiffNode.class/instance/isActive.st b/src/Squot.package/SquotMergeDiffNode.class/instance/isActive.st deleted file mode 100644 index d1ecf478f..000000000 --- a/src/Squot.package/SquotMergeDiffNode.class/instance/isActive.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isActive - ^ choice == nil or: [choice == #right] \ No newline at end of file diff --git a/src/Squot.package/SquotMergeDiffNode.class/instance/needsChoice.st b/src/Squot.package/SquotMergeDiffNode.class/instance/needsChoice.st deleted file mode 100644 index db3ec7da0..000000000 --- a/src/Squot.package/SquotMergeDiffNode.class/instance/needsChoice.st +++ /dev/null @@ -1,5 +0,0 @@ -testing -needsChoice - ^ choice isNil and: - [(content isConflict and: [content isResolved not]) or: - [content isConflict not "is a merge" and: [content hasConflicts]]] \ No newline at end of file diff --git a/src/Squot.package/SquotMergeDiffNode.class/instance/offersChoice.st b/src/Squot.package/SquotMergeDiffNode.class/instance/offersChoice.st deleted file mode 100644 index f7c6dfb2d..000000000 --- a/src/Squot.package/SquotMergeDiffNode.class/instance/offersChoice.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -offersChoice - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotMergeDiffNode.class/instance/resetBlock..st b/src/Squot.package/SquotMergeDiffNode.class/instance/resetBlock..st deleted file mode 100644 index e68c5ae0a..000000000 --- a/src/Squot.package/SquotMergeDiffNode.class/instance/resetBlock..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -resetBlock: anObject - - resetBlock := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeDiffNode.class/instance/resetBlock.st b/src/Squot.package/SquotMergeDiffNode.class/instance/resetBlock.st deleted file mode 100644 index 2d852aa2d..000000000 --- a/src/Squot.package/SquotMergeDiffNode.class/instance/resetBlock.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -resetBlock - - ^ resetBlock \ No newline at end of file diff --git a/src/Squot.package/SquotMergeDiffNode.class/instance/resetChoice.st b/src/Squot.package/SquotMergeDiffNode.class/instance/resetChoice.st deleted file mode 100644 index b9d2f5687..000000000 --- a/src/Squot.package/SquotMergeDiffNode.class/instance/resetChoice.st +++ /dev/null @@ -1,4 +0,0 @@ -resolving conflicts -resetChoice - choice := nil. - resetBlock value. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeDiffNode.class/methodProperties.json b/src/Squot.package/SquotMergeDiffNode.class/methodProperties.json deleted file mode 100644 index 1dee53481..000000000 --- a/src/Squot.package/SquotMergeDiffNode.class/methodProperties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "class" : { - "title:content:children:onInclude:onExclude:onReset:" : "jr 11/1/2020 21:42" }, - "instance" : { - "browseIncomingEdition:" : "jr 6/6/2020 02:58", - "browseOriginalEdition:" : "jr 6/6/2020 02:57", - "choice" : "jr 11/18/2018 02:44", - "chooseLeft" : "jr 11/18/2018 11:32", - "chooseRight" : "jr 11/18/2018 11:32", - "exclude" : "jr 11/24/2018 21:54", - "include" : "jr 11/24/2018 21:54", - "isActive" : "jr 5/29/2017 01:21", - "needsChoice" : "jr 8/10/2020 23:50", - "offersChoice" : "jr 5/29/2017 01:34", - "resetBlock" : "jr 11/18/2018 02:44", - "resetBlock:" : "jr 11/18/2018 02:44", - "resetChoice" : "jr 11/18/2018 02:45" } } diff --git a/src/Squot.package/SquotMergeDiffNode.class/properties.json b/src/Squot.package/SquotMergeDiffNode.class/properties.json deleted file mode 100644 index c3f3a527d..000000000 --- a/src/Squot.package/SquotMergeDiffNode.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-Tools-Support", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 15:29", - "instvars" : [ - "choice", - "resetBlock" ], - "name" : "SquotMergeDiffNode", - "pools" : [ - ], - "super" : "SquotDiffNode", - "type" : "normal" } diff --git a/src/Squot.package/SquotMergeMock.class/README.md b/src/Squot.package/SquotMergeMock.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotMergeMock.class/instance/asDiffTree.st b/src/Squot.package/SquotMergeMock.class/instance/asDiffTree.st deleted file mode 100644 index 9b130d409..000000000 --- a/src/Squot.package/SquotMergeMock.class/instance/asDiffTree.st +++ /dev/null @@ -1,21 +0,0 @@ -*Squot-Tests-Tools -asDiffTree - diffTreeNodes ifNotNil: [^ diffTreeNodes]. - ^ hasConflicts == false - ifTrue: [(SquotDiffNode - title: 'Modification' - content: self - children: #() - onInclude: [self chooseIncoming] - onExclude: [self chooseWorking]) - artifactDiff: self; - yourself] - ifFalse: [(SquotMergeDiffNode - title: 'Merge' - content: self - children: #() - onInclude: [self chooseIncoming] - onExclude: [self chooseWorking] - onReset: [self resetChoice]) - artifactDiff: self; - yourself] \ No newline at end of file diff --git a/src/Squot.package/SquotMergeMock.class/instance/asSquotHierarchicalDiff.st b/src/Squot.package/SquotMergeMock.class/instance/asSquotHierarchicalDiff.st deleted file mode 100644 index 0cc533560..000000000 --- a/src/Squot.package/SquotMergeMock.class/instance/asSquotHierarchicalDiff.st +++ /dev/null @@ -1,17 +0,0 @@ -*Squot-Tests-Tools -asSquotHierarchicalDiff - diffTreeNodes ifNotNil: [^ diffTreeNodes]. - ^ hasConflicts == false - ifTrue: [{SquotDiffNode - title: 'Modification' - content: self - children: #() - onInclude: [self chooseIncoming] - onExclude: [self chooseWorking]}] - ifFalse: [{SquotMergeDiffNode - title: 'Merge' - content: self - children: #() - onInclude: [self chooseIncoming] - onExclude: [self chooseWorking] - onReset: [self resetChoice]}] \ No newline at end of file diff --git a/src/Squot.package/SquotMergeMock.class/instance/base..st b/src/Squot.package/SquotMergeMock.class/instance/base..st deleted file mode 100644 index 47676d135..000000000 --- a/src/Squot.package/SquotMergeMock.class/instance/base..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -base: anObject - base := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotMergeMock.class/instance/base.st b/src/Squot.package/SquotMergeMock.class/instance/base.st deleted file mode 100644 index 1df5d3187..000000000 --- a/src/Squot.package/SquotMergeMock.class/instance/base.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -base - ^ base \ No newline at end of file diff --git a/src/Squot.package/SquotMergeMock.class/instance/choice.st b/src/Squot.package/SquotMergeMock.class/instance/choice.st deleted file mode 100644 index d7ca4b602..000000000 --- a/src/Squot.package/SquotMergeMock.class/instance/choice.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -choice - ^ choice \ No newline at end of file diff --git a/src/Squot.package/SquotMergeMock.class/instance/chooseIncoming.st b/src/Squot.package/SquotMergeMock.class/instance/chooseIncoming.st deleted file mode 100644 index 330b3038e..000000000 --- a/src/Squot.package/SquotMergeMock.class/instance/chooseIncoming.st +++ /dev/null @@ -1,3 +0,0 @@ -merging -chooseIncoming - choice := #incoming. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeMock.class/instance/chooseWorking.st b/src/Squot.package/SquotMergeMock.class/instance/chooseWorking.st deleted file mode 100644 index 37b89849c..000000000 --- a/src/Squot.package/SquotMergeMock.class/instance/chooseWorking.st +++ /dev/null @@ -1,3 +0,0 @@ -merging -chooseWorking - choice := #working. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeMock.class/instance/diffTreeNodes..st b/src/Squot.package/SquotMergeMock.class/instance/diffTreeNodes..st deleted file mode 100644 index 51e0e730f..000000000 --- a/src/Squot.package/SquotMergeMock.class/instance/diffTreeNodes..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -diffTreeNodes: anObject - diffTreeNodes := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotMergeMock.class/instance/hasChanges.st b/src/Squot.package/SquotMergeMock.class/instance/hasChanges.st deleted file mode 100644 index 5db4e1d19..000000000 --- a/src/Squot.package/SquotMergeMock.class/instance/hasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasChanges - ^ choice ~= #working \ No newline at end of file diff --git a/src/Squot.package/SquotMergeMock.class/instance/hasConflicts..st b/src/Squot.package/SquotMergeMock.class/instance/hasConflicts..st deleted file mode 100644 index 413856160..000000000 --- a/src/Squot.package/SquotMergeMock.class/instance/hasConflicts..st +++ /dev/null @@ -1,3 +0,0 @@ -configuring -hasConflicts: aBoolean - hasConflicts := aBoolean \ No newline at end of file diff --git a/src/Squot.package/SquotMergeMock.class/instance/hasConflicts.st b/src/Squot.package/SquotMergeMock.class/instance/hasConflicts.st deleted file mode 100644 index 0bb26644a..000000000 --- a/src/Squot.package/SquotMergeMock.class/instance/hasConflicts.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasConflicts - ^ choice isNil and: [hasConflicts ~~ false] \ No newline at end of file diff --git a/src/Squot.package/SquotMergeMock.class/instance/incoming..st b/src/Squot.package/SquotMergeMock.class/instance/incoming..st deleted file mode 100644 index 0de5e9b92..000000000 --- a/src/Squot.package/SquotMergeMock.class/instance/incoming..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -incoming: anObject - incoming := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotMergeMock.class/instance/incoming.st b/src/Squot.package/SquotMergeMock.class/instance/incoming.st deleted file mode 100644 index 86b6e6389..000000000 --- a/src/Squot.package/SquotMergeMock.class/instance/incoming.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -incoming - ^ incoming \ No newline at end of file diff --git a/src/Squot.package/SquotMergeMock.class/instance/isMerge.st b/src/Squot.package/SquotMergeMock.class/instance/isMerge.st deleted file mode 100644 index a66730331..000000000 --- a/src/Squot.package/SquotMergeMock.class/instance/isMerge.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isMerge - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotMergeMock.class/instance/mayAffectArtifact.st b/src/Squot.package/SquotMergeMock.class/instance/mayAffectArtifact.st deleted file mode 100644 index 7f33408df..000000000 --- a/src/Squot.package/SquotMergeMock.class/instance/mayAffectArtifact.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -mayAffectArtifact - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotMergeMock.class/instance/object.st b/src/Squot.package/SquotMergeMock.class/instance/object.st deleted file mode 100644 index e1f4d8d4a..000000000 --- a/src/Squot.package/SquotMergeMock.class/instance/object.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -object - ^ working ifNil: [incoming ifNil: [base]] \ No newline at end of file diff --git a/src/Squot.package/SquotMergeMock.class/instance/resetChoice.st b/src/Squot.package/SquotMergeMock.class/instance/resetChoice.st deleted file mode 100644 index 1dd2548d2..000000000 --- a/src/Squot.package/SquotMergeMock.class/instance/resetChoice.st +++ /dev/null @@ -1,3 +0,0 @@ -merging -resetChoice - choice := nil. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeMock.class/instance/resolvedPatch.st b/src/Squot.package/SquotMergeMock.class/instance/resolvedPatch.st deleted file mode 100644 index 49307886d..000000000 --- a/src/Squot.package/SquotMergeMock.class/instance/resolvedPatch.st +++ /dev/null @@ -1,12 +0,0 @@ -merging -resolvedPatch - | modifiedObject | - resolvedPatchBlock ifNotNil: [^ resolvedPatchBlock value]. - modifiedObject := hasConflicts == false - ifTrue: [incoming] - ifFalse: - [choice caseOf: - {[#incoming] -> [incoming ifNil: [self error: 'incoming not initialized']]. - [#working] -> [working ifNil: [self error: 'working not initialized']]} - otherwise: [self error: 'Mock merge not resolved']]. - ^ SquotDiffMock new whenAppliedReturn: modifiedObject \ No newline at end of file diff --git a/src/Squot.package/SquotMergeMock.class/instance/returnAsResolvedPatch..st b/src/Squot.package/SquotMergeMock.class/instance/returnAsResolvedPatch..st deleted file mode 100644 index fd0710ced..000000000 --- a/src/Squot.package/SquotMergeMock.class/instance/returnAsResolvedPatch..st +++ /dev/null @@ -1,3 +0,0 @@ -configuring -returnAsResolvedPatch: aBlock - resolvedPatchBlock := aBlock. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeMock.class/instance/setUpTreeRoot.toEditMerge..st b/src/Squot.package/SquotMergeMock.class/instance/setUpTreeRoot.toEditMerge..st deleted file mode 100644 index b8cf059d8..000000000 --- a/src/Squot.package/SquotMergeMock.class/instance/setUpTreeRoot.toEditMerge..st +++ /dev/null @@ -1,2 +0,0 @@ -*Squot-Tests-Tools -setUpTreeRoot: aDiffOrMergeNode toEditMerge: aMerge diff --git a/src/Squot.package/SquotMergeMock.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotMergeMock.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index 3708d7f35..000000000 --- a/src/Squot.package/SquotMergeMock.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tests-Tools -squotChangeAsStringOrText - ^ 'Mock of an object graph merge' \ No newline at end of file diff --git a/src/Squot.package/SquotMergeMock.class/instance/willBeLoaded..st b/src/Squot.package/SquotMergeMock.class/instance/willBeLoaded..st deleted file mode 100644 index ffa488e71..000000000 --- a/src/Squot.package/SquotMergeMock.class/instance/willBeLoaded..st +++ /dev/null @@ -1,3 +0,0 @@ -configuring -willBeLoaded: aBoolean - willBeLoaded := aBoolean. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeMock.class/instance/willBeLoaded.st b/src/Squot.package/SquotMergeMock.class/instance/willBeLoaded.st deleted file mode 100644 index 4a3a7c18d..000000000 --- a/src/Squot.package/SquotMergeMock.class/instance/willBeLoaded.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -willBeLoaded - ^ willBeLoaded ifNil: [true] \ No newline at end of file diff --git a/src/Squot.package/SquotMergeMock.class/instance/working..st b/src/Squot.package/SquotMergeMock.class/instance/working..st deleted file mode 100644 index dc6ba2f43..000000000 --- a/src/Squot.package/SquotMergeMock.class/instance/working..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -working: anObject - working := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotMergeMock.class/instance/working.st b/src/Squot.package/SquotMergeMock.class/instance/working.st deleted file mode 100644 index ffc22a7f9..000000000 --- a/src/Squot.package/SquotMergeMock.class/instance/working.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -working - ^ working \ No newline at end of file diff --git a/src/Squot.package/SquotMergeMock.class/methodProperties.json b/src/Squot.package/SquotMergeMock.class/methodProperties.json deleted file mode 100644 index aa43e732f..000000000 --- a/src/Squot.package/SquotMergeMock.class/methodProperties.json +++ /dev/null @@ -1,29 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "asDiffTree" : "jr 11/8/2020 00:45", - "asSquotHierarchicalDiff" : "jr 8/21/2019 21:36", - "base" : "jr 8/21/2019 23:49", - "base:" : "jr 8/21/2019 23:49", - "choice" : "jr 8/21/2019 21:12", - "chooseIncoming" : "jr 8/21/2019 21:03", - "chooseWorking" : "jr 8/15/2019 00:42", - "diffTreeNodes:" : "jr 8/21/2019 21:36", - "hasChanges" : "jr 8/15/2019 00:43", - "hasConflicts" : "jr 8/21/2019 21:16", - "hasConflicts:" : "jr 8/15/2019 00:19", - "incoming" : "jr 8/21/2019 23:48", - "incoming:" : "jr 8/21/2019 23:48", - "isMerge" : "jr 11/18/2020 16:04", - "mayAffectArtifact" : "jr 11/8/2020 00:46", - "object" : "jr 11/8/2020 00:37", - "resetChoice" : "jr 8/21/2019 21:12", - "resolvedPatch" : "jr 11/8/2020 00:50", - "returnAsResolvedPatch:" : "jr 11/8/2020 00:51", - "setUpTreeRoot:toEditMerge:" : "jr 11/8/2020 00:42", - "squotChangeAsStringOrText" : "jr 8/21/2019 21:04", - "willBeLoaded" : "jr 11/8/2020 00:46", - "willBeLoaded:" : "jr 11/8/2020 00:53", - "working" : "jr 8/21/2019 23:49", - "working:" : "jr 8/21/2019 23:49" } } diff --git a/src/Squot.package/SquotMergeMock.class/properties.json b/src/Squot.package/SquotMergeMock.class/properties.json deleted file mode 100644 index 94042312b..000000000 --- a/src/Squot.package/SquotMergeMock.class/properties.json +++ /dev/null @@ -1,21 +0,0 @@ -{ - "category" : "Squot-Tests-Merging", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "hasConflicts", - "choice", - "diffTreeNodes", - "incoming", - "working", - "base", - "willBeLoaded", - "resolvedPatchBlock" ], - "name" : "SquotMergeMock", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotMergeOperation.class/README.md b/src/Squot.package/SquotMergeOperation.class/README.md deleted file mode 100644 index 9a99e8744..000000000 --- a/src/Squot.package/SquotMergeOperation.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I coordinate the merging of changes into a working copy. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeOperation.class/instance/addParent.st b/src/Squot.package/SquotMergeOperation.class/instance/addParent.st deleted file mode 100644 index e52d28da7..000000000 --- a/src/Squot.package/SquotMergeOperation.class/instance/addParent.st +++ /dev/null @@ -1,7 +0,0 @@ -private -addParent - self isFastForwardPossible - ifTrue: - [self workingCopy loadedHistorian version: mergeVersion. - self workingCopy loadedVersion: mergeVersion] - ifFalse: [self workingCopy addParentVersion: mergeVersion]. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeOperation.class/instance/appliedPatch.st b/src/Squot.package/SquotMergeOperation.class/instance/appliedPatch.st deleted file mode 100644 index 842c5a36b..000000000 --- a/src/Squot.package/SquotMergeOperation.class/instance/appliedPatch.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -appliedPatch - ^ appliedPatch \ No newline at end of file diff --git a/src/Squot.package/SquotMergeOperation.class/instance/applyToWorkingCopy.st b/src/Squot.package/SquotMergeOperation.class/instance/applyToWorkingCopy.st deleted file mode 100644 index 71b44682f..000000000 --- a/src/Squot.package/SquotMergeOperation.class/instance/applyToWorkingCopy.st +++ /dev/null @@ -1,7 +0,0 @@ -applying -applyToWorkingCopy - self withUnitOfWork: - [merge ifNil: [self error: 'Must prepareMerge first']. - merge hasConflicts ifTrue: [self error: 'Conflicts must be resolved first']. - self workingCopy applyPatch: (appliedPatch := merge resolvedPatch). - shouldAddParent ifTrue: [self addParent]]. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeOperation.class/instance/baseVersion..st b/src/Squot.package/SquotMergeOperation.class/instance/baseVersion..st deleted file mode 100644 index a271fccbc..000000000 --- a/src/Squot.package/SquotMergeOperation.class/instance/baseVersion..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -baseVersion: anObject - - baseVersion := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeOperation.class/instance/baseVersion.st b/src/Squot.package/SquotMergeOperation.class/instance/baseVersion.st deleted file mode 100644 index d6c313f27..000000000 --- a/src/Squot.package/SquotMergeOperation.class/instance/baseVersion.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -baseVersion - - ^ baseVersion \ No newline at end of file diff --git a/src/Squot.package/SquotMergeOperation.class/instance/doNotAddGlobalObjectsAutomatically.st b/src/Squot.package/SquotMergeOperation.class/instance/doNotAddGlobalObjectsAutomatically.st deleted file mode 100644 index cb3b36edc..000000000 --- a/src/Squot.package/SquotMergeOperation.class/instance/doNotAddGlobalObjectsAutomatically.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -doNotAddGlobalObjectsAutomatically - shouldAddGlobalObjectsAutomatically := false. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeOperation.class/instance/doNotAddParent.st b/src/Squot.package/SquotMergeOperation.class/instance/doNotAddParent.st deleted file mode 100644 index dd100ff77..000000000 --- a/src/Squot.package/SquotMergeOperation.class/instance/doNotAddParent.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -doNotAddParent - shouldAddParent := false. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeOperation.class/instance/findBaseVersion.st b/src/Squot.package/SquotMergeOperation.class/instance/findBaseVersion.st deleted file mode 100644 index ebc9015c1..000000000 --- a/src/Squot.package/SquotMergeOperation.class/instance/findBaseVersion.st +++ /dev/null @@ -1,13 +0,0 @@ -private -findBaseVersion - self assert: mergeBases notNil. - mergeBases ifEmpty: [^ SquotSnapshot empty "no commonalities"]. - (mergeBases includes: mergeVersion) ifTrue: - [^ (SquotVersionAlreadyInHistory - historian: workingCopy loadedHistorian - version: mergeVersion) - signal: 'Version to be merged is already an ancestor of the version to be merged']. - (mergeBases includes: self workingVersion) ifTrue: - [^ self workingVersion]. - self flag: #stub. "If there are multiple merge-bases, a recursive merge should be attempted" - ^ mergeBases anyOne \ No newline at end of file diff --git a/src/Squot.package/SquotMergeOperation.class/instance/initialize.st b/src/Squot.package/SquotMergeOperation.class/instance/initialize.st deleted file mode 100644 index de3b873f3..000000000 --- a/src/Squot.package/SquotMergeOperation.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initialize - super initialize. - shouldAddParent := true. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeOperation.class/instance/isFastForwardPossible.st b/src/Squot.package/SquotMergeOperation.class/instance/isFastForwardPossible.st deleted file mode 100644 index 591c30115..000000000 --- a/src/Squot.package/SquotMergeOperation.class/instance/isFastForwardPossible.st +++ /dev/null @@ -1,6 +0,0 @@ -private -isFastForwardPossible - self assert: baseVersion notNil; - assert: mergeBases notNil. - self workingVersion ifNil: [^ false]. - ^ mergeBases includes: self workingVersion \ No newline at end of file diff --git a/src/Squot.package/SquotMergeOperation.class/instance/merge..st b/src/Squot.package/SquotMergeOperation.class/instance/merge..st deleted file mode 100644 index b1897417d..000000000 --- a/src/Squot.package/SquotMergeOperation.class/instance/merge..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -merge: anObject - - merge := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeOperation.class/instance/merge.st b/src/Squot.package/SquotMergeOperation.class/instance/merge.st deleted file mode 100644 index 067f5ed7d..000000000 --- a/src/Squot.package/SquotMergeOperation.class/instance/merge.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -merge - - ^ merge \ No newline at end of file diff --git a/src/Squot.package/SquotMergeOperation.class/instance/mergeBases.st b/src/Squot.package/SquotMergeOperation.class/instance/mergeBases.st deleted file mode 100644 index dfc502603..000000000 --- a/src/Squot.package/SquotMergeOperation.class/instance/mergeBases.st +++ /dev/null @@ -1,5 +0,0 @@ -private -mergeBases - ^ self workingVersion - ifNil: [#()] - ifNotNil: [:head | head mergeBasesWith: mergeVersion] \ No newline at end of file diff --git a/src/Squot.package/SquotMergeOperation.class/instance/mergeVersion..st b/src/Squot.package/SquotMergeOperation.class/instance/mergeVersion..st deleted file mode 100644 index 98a2ad813..000000000 --- a/src/Squot.package/SquotMergeOperation.class/instance/mergeVersion..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -mergeVersion: anObject - - mergeVersion := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeOperation.class/instance/mergeVersion.st b/src/Squot.package/SquotMergeOperation.class/instance/mergeVersion.st deleted file mode 100644 index 908cfc2b8..000000000 --- a/src/Squot.package/SquotMergeOperation.class/instance/mergeVersion.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -mergeVersion - - ^ mergeVersion \ No newline at end of file diff --git a/src/Squot.package/SquotMergeOperation.class/instance/prepare.st b/src/Squot.package/SquotMergeOperation.class/instance/prepare.st deleted file mode 100644 index 124ea28f7..000000000 --- a/src/Squot.package/SquotMergeOperation.class/instance/prepare.st +++ /dev/null @@ -1,19 +0,0 @@ -applying -prepare - "Compute merge." - ^ self withUnitOfWorkActive: - [self validateAncestry. - self startUnitOfWork. - workingVersion := self workingCopy baseVersion. - baseVersion ifNil: - [mergeBases := self mergeBases. - baseVersion := self findBaseVersion]. - self flag: 'TODO: if there are multiple merge-bases, resolve conflicts recursively'. - self shouldAddGlobalObjectsAutomatically - ifTrue: [self workingCopy addGlobalObjectsToStore: mergeVersion]. - SquotProgress displayStatus: ('Merging for ', self title truncateWithElipsisTo: 80) during: - [self workingCopy withCurrentSnapshot: self workingCopySnapshot do: - [merge := SquotMerge into: self workingCopy - merge: mergeVersion - basedOn: baseVersion]]. - merge] \ No newline at end of file diff --git a/src/Squot.package/SquotMergeOperation.class/instance/shouldAddGlobalObjectsAutomatically.st b/src/Squot.package/SquotMergeOperation.class/instance/shouldAddGlobalObjectsAutomatically.st deleted file mode 100644 index ff8a56b58..000000000 --- a/src/Squot.package/SquotMergeOperation.class/instance/shouldAddGlobalObjectsAutomatically.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -shouldAddGlobalObjectsAutomatically - ^ shouldAddGlobalObjectsAutomatically ifNil: [true] \ No newline at end of file diff --git a/src/Squot.package/SquotMergeOperation.class/instance/validateAncestry.st b/src/Squot.package/SquotMergeOperation.class/instance/validateAncestry.st deleted file mode 100644 index fafb38e89..000000000 --- a/src/Squot.package/SquotMergeOperation.class/instance/validateAncestry.st +++ /dev/null @@ -1,3 +0,0 @@ -applying -validateAncestry - mergeVersion ifNil: [self error: 'Version to merge not configured']. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeOperation.class/instance/workingVersion.st b/src/Squot.package/SquotMergeOperation.class/instance/workingVersion.st deleted file mode 100644 index a07425879..000000000 --- a/src/Squot.package/SquotMergeOperation.class/instance/workingVersion.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -workingVersion - "The version to merge into." - ^ workingVersion \ No newline at end of file diff --git a/src/Squot.package/SquotMergeOperation.class/methodProperties.json b/src/Squot.package/SquotMergeOperation.class/methodProperties.json deleted file mode 100644 index e73b91303..000000000 --- a/src/Squot.package/SquotMergeOperation.class/methodProperties.json +++ /dev/null @@ -1,23 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "addParent" : "jr 9/22/2020 00:54", - "appliedPatch" : "jr 10/20/2020 23:18", - "applyToWorkingCopy" : "jr 10/20/2020 23:18", - "baseVersion" : "jr 1/5/2020 00:29", - "baseVersion:" : "jr 1/5/2020 00:29", - "doNotAddGlobalObjectsAutomatically" : "jr 11/28/2021 10:07", - "doNotAddParent" : "jr 9/21/2020 23:55", - "findBaseVersion" : "jr 9/21/2020 23:50", - "initialize" : "jr 9/21/2020 23:55", - "isFastForwardPossible" : "jr 9/22/2020 00:58", - "merge" : "jr 1/4/2020 22:40", - "merge:" : "jr 1/4/2020 22:40", - "mergeBases" : "jr 9/21/2020 23:49", - "mergeVersion" : "jr 1/5/2020 00:29", - "mergeVersion:" : "jr 1/5/2020 00:29", - "prepare" : "jr 1/22/2022 22:15", - "shouldAddGlobalObjectsAutomatically" : "jr 11/28/2021 10:07", - "validateAncestry" : "jr 8/1/2020 16:48", - "workingVersion" : "jr 9/22/2020 00:57" } } diff --git a/src/Squot.package/SquotMergeOperation.class/properties.json b/src/Squot.package/SquotMergeOperation.class/properties.json deleted file mode 100644 index 2af0e189e..000000000 --- a/src/Squot.package/SquotMergeOperation.class/properties.json +++ /dev/null @@ -1,21 +0,0 @@ -{ - "category" : "Squot-WorkingCopies", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 1/4/2020 22:39", - "instvars" : [ - "mergeVersion", - "baseVersion", - "merge", - "mergeBases", - "shouldAddParent", - "workingVersion", - "appliedPatch", - "shouldAddGlobalObjectsAutomatically" ], - "name" : "SquotMergeOperation", - "pools" : [ - ], - "super" : "SquotWorkingCopyOperation", - "type" : "normal" } diff --git a/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/README.md b/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/README.md deleted file mode 100644 index 76138bbf1..000000000 --- a/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/README.md +++ /dev/null @@ -1 +0,0 @@ -On the active branch an artifact was removed, on another branch it was modified. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/createBaseVersion.st b/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/createBaseVersion.st deleted file mode 100644 index c3454ce6d..000000000 --- a/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/createBaseVersion.st +++ /dev/null @@ -1,9 +0,0 @@ -test fixture -createBaseVersion - self workingCopy - add: (others add: (ValueHolder new contents: 1)) at: 'first other'; - add: conflictObject at: 'text'; - add: (others add: (ValueHolder new contents: 2)) at: 'second other'. - self assert: #('first other' 'text' 'second other') equals: workingCopy loadOrder asArray. - self workingCopy saveVersionWithMessage: 'Initialize artifacts'. - ^ workingCopy loadedHistorian version \ No newline at end of file diff --git a/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/expectedObjectOrderAfterReadding.st b/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/expectedObjectOrderAfterReadding.st deleted file mode 100644 index 0302f5d6e..000000000 --- a/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/expectedObjectOrderAfterReadding.st +++ /dev/null @@ -1,3 +0,0 @@ -test fixture -expectedObjectOrderAfterReadding - ^ #('first other' 'text' 'second other') \ No newline at end of file diff --git a/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/mergeAndReaddObject.st b/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/mergeAndReaddObject.st deleted file mode 100644 index e46b5133d..000000000 --- a/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/mergeAndReaddObject.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -mergeAndReaddObject - | merge operation conflict | - "when" - merge := (operation := self workingCopy newMergeOperation) - mergeVersion: incomingVersion; - prepare. - "then" - conflict := merge conflictAt: 'text'. - self assert: conflict isResolved not. - - "when" - conflict chooseIncoming. "the changed text" - operation applyToWorkingCopy. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/prepareIncomingVersion.st b/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/prepareIncomingVersion.st deleted file mode 100644 index 14a03cee8..000000000 --- a/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/prepareIncomingVersion.st +++ /dev/null @@ -1,3 +0,0 @@ -test fixture -prepareIncomingVersion - conflictObject contents: 'Changed text' \ No newline at end of file diff --git a/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/prepareWorkingVersion.st b/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/prepareWorkingVersion.st deleted file mode 100644 index af7c57603..000000000 --- a/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/prepareWorkingVersion.st +++ /dev/null @@ -1,6 +0,0 @@ -test fixture -prepareWorkingVersion - workingCopy loadedHistorian version: baseVersion. - workingCopy - discardUnsavedChanges; "reset text to baseVersion" - remove: conflictObject \ No newline at end of file diff --git a/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/setUp.st b/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/setUp.st deleted file mode 100644 index 3f0900708..000000000 --- a/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/setUp.st +++ /dev/null @@ -1,12 +0,0 @@ -running -setUp - conflictObject := ValueHolder new contents: 'Base text'. - others := OrderedCollection new. - self repository - withUnitOfWork: [ - baseVersion := self createBaseVersion. - self prepareIncomingVersion. - workingCopy saveVersionWithMessage: 'Change artifact'. - incomingVersion := workingCopy loadedHistorian version. - self prepareWorkingVersion. - workingCopy saveVersionWithMessage: 'Remove artifact'] \ No newline at end of file diff --git a/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/testReaddedArtifactInIncomingLoadOrderPosition.st b/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/testReaddedArtifactInIncomingLoadOrderPosition.st deleted file mode 100644 index eaec1d8c2..000000000 --- a/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/instance/testReaddedArtifactInIncomingLoadOrderPosition.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testReaddedArtifactInIncomingLoadOrderPosition - self repository withUnitOfWork: - ["when" - self mergeAndReaddObject. - "then" - self assert: (self workingCopy includesObjectAt: 'text'); - assert: self expectedObjectOrderAfterReadding - equals: (self workingCopy loadOrder asArray intersection: #('first other' 'text' 'second other'))]. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/methodProperties.json b/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/methodProperties.json deleted file mode 100644 index a8269989f..000000000 --- a/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "createBaseVersion" : "jr 10/24/2020 15:31", - "expectedObjectOrderAfterReadding" : "jr 10/24/2020 15:45", - "mergeAndReaddObject" : "jr 10/24/2020 15:21", - "prepareIncomingVersion" : "jr 1/1/2021 23:59", - "prepareWorkingVersion" : "jr 10/24/2020 15:37", - "setUp" : "jr 1/1/2021 23:58", - "testReaddedArtifactInIncomingLoadOrderPosition" : "jr 10/24/2020 15:45" } } diff --git a/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/properties.json b/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/properties.json deleted file mode 100644 index 9c6aed377..000000000 --- a/src/Squot.package/SquotMergeRemovalAndChangeTestScenario.class/properties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 10/31/2020 11:34", - "instvars" : [ - "conflictObject", - "others", - "baseVersion", - "incomingVersion" ], - "name" : "SquotMergeRemovalAndChangeTestScenario", - "pools" : [ - ], - "super" : "SquotWorkingCopyTestScenario", - "type" : "normal" } diff --git a/src/Squot.package/SquotMergeRemovalAndChangeWithReorderingTestScenario.class/README.md b/src/Squot.package/SquotMergeRemovalAndChangeWithReorderingTestScenario.class/README.md deleted file mode 100644 index 917bed7af..000000000 --- a/src/Squot.package/SquotMergeRemovalAndChangeWithReorderingTestScenario.class/README.md +++ /dev/null @@ -1 +0,0 @@ -On the active branch an artifact was removed, on another branch the load order was changed and the same artifact was modified. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeRemovalAndChangeWithReorderingTestScenario.class/instance/expectedObjectOrderAfterReadding.st b/src/Squot.package/SquotMergeRemovalAndChangeWithReorderingTestScenario.class/instance/expectedObjectOrderAfterReadding.st deleted file mode 100644 index 359a3ccc4..000000000 --- a/src/Squot.package/SquotMergeRemovalAndChangeWithReorderingTestScenario.class/instance/expectedObjectOrderAfterReadding.st +++ /dev/null @@ -1,3 +0,0 @@ -test fixture -expectedObjectOrderAfterReadding - ^ #('text' 'first other' 'second other') \ No newline at end of file diff --git a/src/Squot.package/SquotMergeRemovalAndChangeWithReorderingTestScenario.class/instance/prepareIncomingVersion.st b/src/Squot.package/SquotMergeRemovalAndChangeWithReorderingTestScenario.class/instance/prepareIncomingVersion.st deleted file mode 100644 index 825b58fcb..000000000 --- a/src/Squot.package/SquotMergeRemovalAndChangeWithReorderingTestScenario.class/instance/prepareIncomingVersion.st +++ /dev/null @@ -1,7 +0,0 @@ -test fixture -prepareIncomingVersion - | newOrder | - super prepareIncomingVersion. - newOrder := self workingCopy loadOrder copy. - newOrder swap: 1 with: 2. - self workingCopy loadOrder: newOrder. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeRemovalAndChangeWithReorderingTestScenario.class/methodProperties.json b/src/Squot.package/SquotMergeRemovalAndChangeWithReorderingTestScenario.class/methodProperties.json deleted file mode 100644 index a89688105..000000000 --- a/src/Squot.package/SquotMergeRemovalAndChangeWithReorderingTestScenario.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "expectedObjectOrderAfterReadding" : "jr 10/24/2020 15:46", - "prepareIncomingVersion" : "jr 10/24/2020 15:39" } } diff --git a/src/Squot.package/SquotMergeRemovalAndChangeWithReorderingTestScenario.class/properties.json b/src/Squot.package/SquotMergeRemovalAndChangeWithReorderingTestScenario.class/properties.json deleted file mode 100644 index 2d6365a95..000000000 --- a/src/Squot.package/SquotMergeRemovalAndChangeWithReorderingTestScenario.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 10/31/2020 11:34", - "instvars" : [ - ], - "name" : "SquotMergeRemovalAndChangeWithReorderingTestScenario", - "pools" : [ - ], - "super" : "SquotMergeRemovalAndChangeTestScenario", - "type" : "normal" } diff --git a/src/Squot.package/SquotMergeRequested.class/README.md b/src/Squot.package/SquotMergeRequested.class/README.md deleted file mode 100644 index 9160c1c3f..000000000 --- a/src/Squot.package/SquotMergeRequested.class/README.md +++ /dev/null @@ -1 +0,0 @@ -An interactive merge is attempted. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeRequested.class/instance/merge..st b/src/Squot.package/SquotMergeRequested.class/instance/merge..st deleted file mode 100644 index b1897417d..000000000 --- a/src/Squot.package/SquotMergeRequested.class/instance/merge..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -merge: anObject - - merge := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeRequested.class/instance/merge.st b/src/Squot.package/SquotMergeRequested.class/instance/merge.st deleted file mode 100644 index 067f5ed7d..000000000 --- a/src/Squot.package/SquotMergeRequested.class/instance/merge.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -merge - - ^ merge \ No newline at end of file diff --git a/src/Squot.package/SquotMergeRequested.class/instance/resume..st b/src/Squot.package/SquotMergeRequested.class/instance/resume..st deleted file mode 100644 index 7d2bb6b3b..000000000 --- a/src/Squot.package/SquotMergeRequested.class/instance/resume..st +++ /dev/null @@ -1,4 +0,0 @@ -handling -resume: anObject - self setHandled. - super resume: anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeRequested.class/instance/setHandled.st b/src/Squot.package/SquotMergeRequested.class/instance/setHandled.st deleted file mode 100644 index ab314098d..000000000 --- a/src/Squot.package/SquotMergeRequested.class/instance/setHandled.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -setHandled - handled := true. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeRequested.class/instance/title..st b/src/Squot.package/SquotMergeRequested.class/instance/title..st deleted file mode 100644 index 82ff4179e..000000000 --- a/src/Squot.package/SquotMergeRequested.class/instance/title..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -title: anObject - - title := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeRequested.class/instance/title.st b/src/Squot.package/SquotMergeRequested.class/instance/title.st deleted file mode 100644 index 3c1da9ab9..000000000 --- a/src/Squot.package/SquotMergeRequested.class/instance/title.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -title - - ^ title \ No newline at end of file diff --git a/src/Squot.package/SquotMergeRequested.class/instance/wasHandled.st b/src/Squot.package/SquotMergeRequested.class/instance/wasHandled.st deleted file mode 100644 index d8e5ece06..000000000 --- a/src/Squot.package/SquotMergeRequested.class/instance/wasHandled.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -wasHandled - ^ handled = true "nil when uninitialized" \ No newline at end of file diff --git a/src/Squot.package/SquotMergeRequested.class/methodProperties.json b/src/Squot.package/SquotMergeRequested.class/methodProperties.json deleted file mode 100644 index 7e5a9ebf6..000000000 --- a/src/Squot.package/SquotMergeRequested.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "merge" : "jr 7/22/2019 22:09", - "merge:" : "jr 7/22/2019 22:09", - "resume:" : "jr 7/22/2019 22:13", - "setHandled" : "jr 7/22/2019 22:10", - "title" : "jr 7/22/2019 22:09", - "title:" : "jr 7/22/2019 22:09", - "wasHandled" : "jr 7/22/2019 22:11" } } diff --git a/src/Squot.package/SquotMergeRequested.class/properties.json b/src/Squot.package/SquotMergeRequested.class/properties.json deleted file mode 100644 index 427ebbfda..000000000 --- a/src/Squot.package/SquotMergeRequested.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Merging", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 7/22/2019 22:16", - "instvars" : [ - "title", - "merge", - "handled" ], - "name" : "SquotMergeRequested", - "pools" : [ - ], - "super" : "Notification", - "type" : "normal" } diff --git a/src/Squot.package/SquotMergeTest.class/README.md b/src/Squot.package/SquotMergeTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotMergeTest.class/instance/testLoadOrderResolution.st b/src/Squot.package/SquotMergeTest.class/instance/testLoadOrderResolution.st deleted file mode 100644 index edbf9d1bc..000000000 --- a/src/Squot.package/SquotMergeTest.class/instance/testLoadOrderResolution.st +++ /dev/null @@ -1,13 +0,0 @@ -tests -testLoadOrderResolution - | a b base merge | - base := SquotSnapshot empty. - a := SquotSnapshot builder - add: (SquotArtifactMock new path: 'a'); - buildSnapshot. - b := SquotSnapshot builder - add: (SquotArtifactMock new path: 'b'); - buildSnapshot. - "when" - merge := SquotMerge into: a merge: b basedOn: base. - self assert: #('a' 'b') asBag equals: (merge resolvedPatch applyToLoadOrder: a loadOrder) asBag. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeTest.class/instance/testRemovalsResolvedAutomatically.st b/src/Squot.package/SquotMergeTest.class/instance/testRemovalsResolvedAutomatically.st deleted file mode 100644 index 9b8029f11..000000000 --- a/src/Squot.package/SquotMergeTest.class/instance/testRemovalsResolvedAutomatically.st +++ /dev/null @@ -1,13 +0,0 @@ -tests -testRemovalsResolvedAutomatically - "When an artifact is removed in both versions, there should be no load order conflict." - | workingCopy merge | - workingCopy := SquotWorkingCopy forTestInMemory. - "when" - merge := SquotMerge into: workingCopy - merge: SquotSnapshot empty - basedOn: (SquotSnapshot builder - add: (SquotArtifactMock new path: 'a'); - buildSnapshot). - "then" - self deny: merge hasConflicts. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeTest.class/methodProperties.json b/src/Squot.package/SquotMergeTest.class/methodProperties.json deleted file mode 100644 index cc3f0e7ed..000000000 --- a/src/Squot.package/SquotMergeTest.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testLoadOrderResolution" : "jr 10/24/2020 16:53", - "testRemovalsResolvedAutomatically" : "jr 12/8/2019 16:27" } } diff --git a/src/Squot.package/SquotMergeTest.class/properties.json b/src/Squot.package/SquotMergeTest.class/properties.json deleted file mode 100644 index 45d13b1d5..000000000 --- a/src/Squot.package/SquotMergeTest.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Tests-Merging", - "classinstvars" : [ - ], - "classtraitcomposition" : "TTestCaseSuppressingProgressDisplay classTrait", - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotMergeTest", - "pools" : [ - ], - "super" : "TestCase", - "traitcomposition" : "TTestCaseSuppressingProgressDisplay", - "type" : "normal" } diff --git a/src/Squot.package/SquotMergeTool.class/README.md b/src/Squot.package/SquotMergeTool.class/README.md deleted file mode 100644 index bbe6dbc64..000000000 --- a/src/Squot.package/SquotMergeTool.class/README.md +++ /dev/null @@ -1,3 +0,0 @@ -I allow to choose changes during a merge. Unlike my superclass, I operate on a SquotMerge, not on a SquotPatch. - -The editedPatch instance variable is reused to contain the merge, although the name is misleading. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeTool.class/instance/autoProcessNodes..st b/src/Squot.package/SquotMergeTool.class/instance/autoProcessNodes..st deleted file mode 100644 index 72add164a..000000000 --- a/src/Squot.package/SquotMergeTool.class/instance/autoProcessNodes..st +++ /dev/null @@ -1,7 +0,0 @@ -ui diff tree -autoProcessNodes: aCollection - | packageNodes | - packageNodes := ((aCollection select: [:each | each artifactDiff notNil]) select: [:each | (each content isModification or: [each content isMerge]) and: [each content object storeInfo objectClassName = #PackageInfo]]). - self excludeMethodsWithOnlyTimestampChanges: packageNodes. - self excludePackagesWithoutActiveChanges: packageNodes. - ^ aCollection \ No newline at end of file diff --git a/src/Squot.package/SquotMergeTool.class/instance/inspectOriginalArtifactOfSelectedNode.st b/src/Squot.package/SquotMergeTool.class/instance/inspectOriginalArtifactOfSelectedNode.st deleted file mode 100644 index 53567c85b..000000000 --- a/src/Squot.package/SquotMergeTool.class/instance/inspectOriginalArtifactOfSelectedNode.st +++ /dev/null @@ -1,6 +0,0 @@ -actions -inspectOriginalArtifactOfSelectedNode - (((self selectedNode content respondsTo: #isMerge) and: [self selectedNode content isMerge]) - or: [(self selectedNode content respondsTo: #isConflict) and: [self selectedNode content isConflict]]) - ifTrue: [self selectedNode content working explore] - ifFalse: [^ super inspectOriginalArtifactOfSelectedNode] \ No newline at end of file diff --git a/src/Squot.package/SquotMergeTool.class/instance/inspectProposedArtifactOfSelectedNode.st b/src/Squot.package/SquotMergeTool.class/instance/inspectProposedArtifactOfSelectedNode.st deleted file mode 100644 index a1e763aa7..000000000 --- a/src/Squot.package/SquotMergeTool.class/instance/inspectProposedArtifactOfSelectedNode.st +++ /dev/null @@ -1,6 +0,0 @@ -actions -inspectProposedArtifactOfSelectedNode - (((self selectedNode content respondsTo: #isMerge) and: [self selectedNode content isMerge]) - or: [(self selectedNode content respondsTo: #isConflict) and: [self selectedNode content isConflict]]) - ifTrue: [self selectedNode content incoming explore] - ifFalse: [^ super inspectProposedArtifactOfSelectedNode] \ No newline at end of file diff --git a/src/Squot.package/SquotMergeTool.class/instance/on..st b/src/Squot.package/SquotMergeTool.class/instance/on..st deleted file mode 100644 index 03a1b344f..000000000 --- a/src/Squot.package/SquotMergeTool.class/instance/on..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -on: aMerge - editedPatch := aMerge. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeTool.class/instance/rootNodes.st b/src/Squot.package/SquotMergeTool.class/instance/rootNodes.st deleted file mode 100644 index 0a8118c52..000000000 --- a/src/Squot.package/SquotMergeTool.class/instance/rootNodes.st +++ /dev/null @@ -1,16 +0,0 @@ -ui diff tree -rootNodes - rootNodes ifNotNil: [^ rootNodes]. - rootNodes := OrderedCollection new. - editedPatch containerConflicts, - editedPatch containerModifications, - editedPatch elementMerges - do: - [:each | | root | - root := each asDiffTree. - each setUpTreeRoot: root toEditMerge: editedPatch. - root withAllChildren do: [:eachNode | eachNode workingCopy: workingCopy]. - rootNodes add: root]. - rootNodes := self autoProcessNodes: rootNodes. - rootNodes addAll: self createLoadOrderNodes. - ^ rootNodes \ No newline at end of file diff --git a/src/Squot.package/SquotMergeTool.class/instance/selectedPatch.st b/src/Squot.package/SquotMergeTool.class/instance/selectedPatch.st deleted file mode 100644 index e3374bc2b..000000000 --- a/src/Squot.package/SquotMergeTool.class/instance/selectedPatch.st +++ /dev/null @@ -1,4 +0,0 @@ -results -selectedPatch - self accepted ifFalse: [^ self error: 'Should not ask for patch if selection was aborted']. - ^ editedPatch \ No newline at end of file diff --git a/src/Squot.package/SquotMergeTool.class/methodProperties.json b/src/Squot.package/SquotMergeTool.class/methodProperties.json deleted file mode 100644 index f4bbbf152..000000000 --- a/src/Squot.package/SquotMergeTool.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "autoProcessNodes:" : "jr 3/8/2022 22:53", - "inspectOriginalArtifactOfSelectedNode" : "jr 7/9/2022 11:45", - "inspectProposedArtifactOfSelectedNode" : "jr 7/9/2022 11:45", - "on:" : "jr 8/14/2019 23:04", - "rootNodes" : "jr 3/8/2022 22:55", - "selectedPatch" : "jr 8/14/2019 23:24" } } diff --git a/src/Squot.package/SquotMergeTool.class/properties.json b/src/Squot.package/SquotMergeTool.class/properties.json deleted file mode 100644 index e1be1676a..000000000 --- a/src/Squot.package/SquotMergeTool.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tools", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 5/9/2020 00:49", - "instvars" : [ - ], - "name" : "SquotMergeTool", - "pools" : [ - ], - "super" : "SquotChangedArtifactsChooser", - "type" : "normal" } diff --git a/src/Squot.package/SquotMergeToolTest.class/README.md b/src/Squot.package/SquotMergeToolTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/applyToWorkingCopy.st b/src/Squot.package/SquotMergeToolTest.class/instance/applyToWorkingCopy.st deleted file mode 100644 index 1175d56f1..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/applyToWorkingCopy.st +++ /dev/null @@ -1,3 +0,0 @@ -test objects -applyToWorkingCopy - workingCopy applyPatch: tool selectedPatch resolvedPatch. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/changedArtifactAt.in..st b/src/Squot.package/SquotMergeToolTest.class/instance/changedArtifactAt.in..st deleted file mode 100644 index 0a6f66e88..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/changedArtifactAt.in..st +++ /dev/null @@ -1,3 +0,0 @@ -test objects -changedArtifactAt: path in: merge - ^ merge incoming artifactAt: path \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/diffAt.in..st b/src/Squot.package/SquotMergeToolTest.class/instance/diffAt.in..st deleted file mode 100644 index 98ccfac36..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/diffAt.in..st +++ /dev/null @@ -1,4 +0,0 @@ -test objects -diffAt: path in: aMerge - ^ aMerge containerModifications at: path ifAbsent: - [(aMerge elementMerges at: path) resolvedPatch] \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/hasChangesAt.in..st b/src/Squot.package/SquotMergeToolTest.class/instance/hasChangesAt.in..st deleted file mode 100644 index c69fad4c1..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/hasChangesAt.in..st +++ /dev/null @@ -1,3 +0,0 @@ -test objects -hasChangesAt: path in: merge - ^ (merge includesModificationAt: path) and: [(merge at: path) hasChanges] \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/includesDiffAt.in..st b/src/Squot.package/SquotMergeToolTest.class/instance/includesDiffAt.in..st deleted file mode 100644 index 632571dcc..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/includesDiffAt.in..st +++ /dev/null @@ -1,3 +0,0 @@ -test objects -includesDiffAt: path in: aMerge - ^ aMerge includesModificationAt: path \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/loadOrderHasChanges.st b/src/Squot.package/SquotMergeToolTest.class/instance/loadOrderHasChanges.st deleted file mode 100644 index 10deef0be..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/loadOrderHasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -tests load order -loadOrderHasChanges - ^ tool selectedPatch resolvedPatch loadOrderDiff squotHasChanges \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/mergeWithMetadataConflictAt..st b/src/Squot.package/SquotMergeToolTest.class/instance/mergeWithMetadataConflictAt..st deleted file mode 100644 index bb9075267..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/mergeWithMetadataConflictAt..st +++ /dev/null @@ -1,20 +0,0 @@ -test objects -mergeWithMetadataConflictAt: path - | baseArtifact workingArtifact incomingArtifact | - baseArtifact := SquotArtifact new path: path; - storeInfo: - (SquotTrackedObjectMetadata newFrom: {#contested -> 'base'. #old -> ''. #update -> 'original'}); - content: SquotArtifactContentMock new whenComparedReturnMock. - workingArtifact := SquotArtifact new path: path; - storeInfo: - (SquotTrackedObjectMetadata newFrom: {#foo -> 'bar'. #contested -> 'working'. #old -> ''. #update -> 'original'}); - content: SquotArtifactContentMock new whenComparedReturnMock. - incomingArtifact := SquotArtifact new path: path; - storeInfo: - (SquotTrackedObjectMetadata newFrom: {#foo -> 'bla'. #contested -> 'incoming'. #new -> ''. #update -> 'changed'}); - content: SquotArtifactContentMock new whenComparedReturnMock. - workingArtifact content whenMergedReturn: (SquotMergeMock new working: workingArtifact content; incoming: incomingArtifact content; yourself). - ^ SquotMerge - into: (SquotSnapshot builder add: workingArtifact; buildSnapshot) - merge: (SquotSnapshot builder add: incomingArtifact; buildSnapshot) - basedOn: (SquotSnapshot builder add: baseArtifact; buildSnapshot) \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/newToolOn..st b/src/Squot.package/SquotMergeToolTest.class/instance/newToolOn..st deleted file mode 100644 index 529d82324..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/newToolOn..st +++ /dev/null @@ -1,5 +0,0 @@ -utilities -newToolOn: aMerge - ^ (SquotMergeTool on: aMerge) - workingCopy: workingCopy; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/openToolAndTestOnPatch..st b/src/Squot.package/SquotMergeToolTest.class/instance/openToolAndTestOnPatch..st deleted file mode 100644 index a73748ec8..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/openToolAndTestOnPatch..st +++ /dev/null @@ -1,6 +0,0 @@ -utilities -openToolAndTestOnPatch: aPatch - "Convert patch into merge" - | merge | - merge := SquotMerge into: aPatch base merge: aPatch patched basedOn: aPatch base. - ^ self openToolAndTestOn: merge \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/patchAddingArtifactAt..st b/src/Squot.package/SquotMergeToolTest.class/instance/patchAddingArtifactAt..st deleted file mode 100644 index 54cfead1c..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/patchAddingArtifactAt..st +++ /dev/null @@ -1,7 +0,0 @@ -test objects -patchAddingArtifactAt: path - | artifact | - artifact := SquotArtifact new path: path; content: SquotArtifactContentMock new. - ^ SquotMerge into: SquotSnapshot empty - merge: (SquotSnapshot builder add: artifact; buildSnapshot) - basedOn: SquotSnapshot empty \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/patchChangingArtifactAt..st b/src/Squot.package/SquotMergeToolTest.class/instance/patchChangingArtifactAt..st deleted file mode 100644 index 931009da0..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/patchChangingArtifactAt..st +++ /dev/null @@ -1,10 +0,0 @@ -test objects -patchChangingArtifactAt: path - | artifact incoming | - artifact := SquotArtifact new path: path; content: SquotArtifactContentMock new. - workingCopy add: (ValueHolder new contents: 2; yourself) at: path. - incoming := workingCopy snapshot. - (workingCopy objectAt: path) contents: 1. - ^ SquotMerge into: workingCopy - merge: incoming - basedOn: workingCopy lazySnapshot \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/patchChangingArtifactMetadataAt..st b/src/Squot.package/SquotMergeToolTest.class/instance/patchChangingArtifactMetadataAt..st deleted file mode 100644 index 5dbc43d2d..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/patchChangingArtifactMetadataAt..st +++ /dev/null @@ -1,12 +0,0 @@ -test objects -patchChangingArtifactMetadataAt: path - | incoming | - workingCopy add: (ValueHolder new contents: 2; yourself) at: path. - (workingCopy artifactAt: path) liveStoreInfo at: #customProperty put: 'new'. - incoming := workingCopy snapshot. - (workingCopy artifactAt: path) liveStoreInfo - at: #customProperty put: 'old'; - at: #toBeRemoved put: true. - ^ SquotMerge into: workingCopy - merge: incoming - basedOn: workingCopy lazySnapshot \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/patchChangingUnloadedArtifactAt..st b/src/Squot.package/SquotMergeToolTest.class/instance/patchChangingUnloadedArtifactAt..st deleted file mode 100644 index 5f5229939..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/patchChangingUnloadedArtifactAt..st +++ /dev/null @@ -1,21 +0,0 @@ -test objects -patchChangingUnloadedArtifactAt: path - | artifact changedArtifact diff contentDiff contentMerge | - artifact := SquotArtifactMock path: path. - workingCopy addUnloaded: artifact. - changedArtifact := artifact copy. - contentDiff := SquotArtifactContentDiffMock new. - contentMerge := SquotGraphMergeMock resolvedPatch: contentDiff. - artifact - whenContentComparedWith: changedArtifact return: [contentDiff]; - whenContentMergedWith: changedArtifact return: [contentMerge]. - diff := SquotArtifactModification left: artifact right: changedArtifact. - artifact - whenComparedWith: changedArtifact return: [diff]; - whenComparedWith: (workingCopy artifactAt: path) return: [(SquotArtifactLoad of: (workingCopy artifactAt: path)) toggleWhetherToLoad; yourself]; - whenComparedWith: artifact return: [SquotDiffOfEqualObjects instance]; - whenMergeWith: changedArtifact return: [SquotArtifactMerge into: (workingCopy artifactAt: path) merge: changedArtifact basedOn: artifact]. - ^ SquotMerge - into: workingCopy - merge: (SquotSnapshot builder add: changedArtifact; buildSnapshot) - basedOn: (SquotSnapshot builder add: artifact; buildSnapshot) \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/patchModifyingMethodTimestampInArtifactAt..st b/src/Squot.package/SquotMergeToolTest.class/instance/patchModifyingMethodTimestampInArtifactAt..st deleted file mode 100644 index d55722d22..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/patchModifyingMethodTimestampInArtifactAt..st +++ /dev/null @@ -1,25 +0,0 @@ -test objects -patchModifyingMethodTimestampInArtifactAt: path - | artifact incoming | - artifact := ((MCSnapshot fromDefinitions: { - MCClassDefinition name: 'TestClass' superclassName: 'Object' category: 'TestPackage' instVarNames: '' comment: ''. - MCMethodDefinition className: 'TestClass' classIsMeta: false selector: 'a' - category: 'changed stamps' timeStamp: '' source: 'a ^ self'. "must match decompiler output" - }) asSquotArtifactForPackage: (PackageInfo new packageName: 'TestPackage')) - path: path. - SystemChangeNotifier uniqueInstance doSilently: - [workingCopy add: artifact. - [incoming := SquotSnapshot builder - add: (((MCSnapshot fromDefinitions: { - artifact packageArtifactDefinitions detect: [:each | each isClassDefinition]. - MCMethodDefinition className: 'TestClass' classIsMeta: false selector: 'a' - category: 'changed stamps' timeStamp: '2' source: ((Smalltalk at: #TestClass) >> #a) getSource. - }) asSquotArtifactForPackage: (PackageInfo new packageName: 'TestPackage')) - path: path); - buildSnapshot. - ^ SquotMerge into: workingCopy - merge: incoming - basedOn: workingCopy lazySnapshot - ] ensure: - [(MCPackage named: 'TestPackage') unload - "This means that the merge cannot be applied, so test cases must not attempt to do so."]] \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/patchRemovingArtifactAt..st b/src/Squot.package/SquotMergeToolTest.class/instance/patchRemovingArtifactAt..st deleted file mode 100644 index 721ac8515..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/patchRemovingArtifactAt..st +++ /dev/null @@ -1,9 +0,0 @@ -test objects -patchRemovingArtifactAt: path - | artifact | - artifact := SquotArtifact new path: path; content: SquotArtifactContentMock new. - artifact content - whenComparedWith: artifact content return: SquotDiffOfEqualObjects new. - ^ SquotMerge into: (SquotSnapshot builder add: artifact; buildSnapshot) - merge: (SquotSnapshot empty) - basedOn: (SquotSnapshot builder add: artifact; buildSnapshot) \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/patchWithLoadOrderChange.st b/src/Squot.package/SquotMergeToolTest.class/instance/patchWithLoadOrderChange.st deleted file mode 100644 index d1161f507..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/patchWithLoadOrderChange.st +++ /dev/null @@ -1,12 +0,0 @@ -test objects -patchWithLoadOrderChange - | artifact1 artifact2 original merge | - artifact1 := SquotArtifact new path: '1'; content: SquotArtifactContentMock new; yourself. - artifact2 := SquotArtifact new path: '2'; content: SquotArtifactContentMock new; yourself. - artifact1 content whenComparedWith: artifact1 content return: SquotDiffOfEqualObjects new. - artifact2 content whenComparedWith: artifact2 content return: SquotDiffOfEqualObjects new. - merge := SquotMerge - into: (original := SquotSnapshot builder add: artifact1; add: artifact2; buildSnapshot) - merge: (original createNewBuilder loadOrder: #('2' '1'); buildSnapshot) - basedOn: original. - ^ merge \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/patchWithLoadOrderChangeRegression1.st b/src/Squot.package/SquotMergeToolTest.class/instance/patchWithLoadOrderChangeRegression1.st deleted file mode 100644 index fdfffec63..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/patchWithLoadOrderChangeRegression1.st +++ /dev/null @@ -1,12 +0,0 @@ -test objects -patchWithLoadOrderChangeRegression1 - | artifacts newLoadOrder original merge | - newLoadOrder := #('16' '13' '3' '7' '4' '2' '5' '6' '15' '12' '14' '9' '11' '10' '8' '1'). - artifacts := (1 to: 16) collect: [:each | SquotArtifact new path: each printString; content: SquotArtifactContentMock new; yourself]. - artifacts do: [:each | each content whenComparedWith: each content return: SquotDiffOfEqualObjects new]. - merge := SquotMerge - into: (original := SquotSnapshot builder addAll: artifacts; buildSnapshot) - merge: (original createNewBuilder loadOrder: newLoadOrder; buildSnapshot) - basedOn: original. - self assert: merge resolvedPatch patchedLoadOrder = newLoadOrder. - ^ merge \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/patchWithTwoChangedArtifacts.st b/src/Squot.package/SquotMergeToolTest.class/instance/patchWithTwoChangedArtifacts.st deleted file mode 100644 index f2fbc23ea..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/patchWithTwoChangedArtifacts.st +++ /dev/null @@ -1,28 +0,0 @@ -test objects -patchWithTwoChangedArtifacts - | artifact1 artifact2 changedArtifact1 changedArtifact2 | - artifact1 := SquotArtifact new path: '1'; content: SquotArtifactContentMock new. - changedArtifact1 := artifact1 copyWithDifferentContent: SquotArtifactContentMock new. - artifact1 content - whenComparedReturnMock; - whenComparedWith: artifact1 content - return: SquotDiffOfEqualObjects new; - whenMergedReturn: (SquotMergeMock new - hasConflicts: false; - working: artifact1 content; - incoming: changedArtifact1 content; - yourself). - artifact2 := SquotArtifact new path: '2'; content: SquotArtifactContentMock new. - changedArtifact2 := artifact2 copyWithDifferentContent: SquotArtifactContentMock new. - artifact2 content - whenComparedReturnMock; - whenComparedWith: artifact2 content - return: SquotDiffOfEqualObjects new; - whenMergedReturn: (SquotMergeMock new - hasConflicts: false; - working: artifact2 content; - incoming: changedArtifact2 content; - yourself). - ^ SquotMerge into: (SquotSnapshot builder add: artifact1; add: artifact2; buildSnapshot) - merge: (SquotSnapshot builder add: changedArtifact1; add: changedArtifact2; buildSnapshot) - basedOn: (SquotSnapshot builder add: artifact1; add: artifact2; buildSnapshot) \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/patchWithUnloadedArtifactAt..st b/src/Squot.package/SquotMergeToolTest.class/instance/patchWithUnloadedArtifactAt..st deleted file mode 100644 index 3c4544f52..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/patchWithUnloadedArtifactAt..st +++ /dev/null @@ -1,13 +0,0 @@ -test objects -patchWithUnloadedArtifactAt: path - | artifact | - artifact := SquotArtifactMock path: path. - workingCopy addUnloaded: artifact. - artifact - whenComparedWith: artifact return: [SquotDiffOfEqualObjects instance]; - whenComparedWith: (workingCopy artifactAt: path) return: [SquotArtifactLoad of: (workingCopy artifactAt: path)]. - artifact materializeBlock: [:mock | Object new]. - ^ SquotMerge - into: workingCopy - merge: (SquotSnapshot builder add: artifact; buildSnapshot) - basedOn: (SquotSnapshot builder add: artifact; buildSnapshot) \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/patchedLoadOrderAfter..st b/src/Squot.package/SquotMergeToolTest.class/instance/patchedLoadOrderAfter..st deleted file mode 100644 index cd7e86c8f..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/patchedLoadOrderAfter..st +++ /dev/null @@ -1,3 +0,0 @@ -test objects -patchedLoadOrderAfter: aMerge - ^ aMerge resolvedPatch patchedLoadOrder \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/performUiInteractionTestsOnNode.withPath.inTree..st b/src/Squot.package/SquotMergeToolTest.class/instance/performUiInteractionTestsOnNode.withPath.inTree..st deleted file mode 100644 index 88de080d2..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/performUiInteractionTestsOnNode.withPath.inTree..st +++ /dev/null @@ -1,7 +0,0 @@ -tests -performUiInteractionTestsOnNode: aSquotDiffNode withPath: aCollection inTree: treeView - super performUiInteractionTestsOnNode: aSquotDiffNode withPath: aCollection inTree: treeView. - tool selectedNode offersChoice ifTrue: - [tool - resetChoiceForSelectedNode; - activateSelectedNode]. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/resolveArtifactConflict..st b/src/Squot.package/SquotMergeToolTest.class/instance/resolveArtifactConflict..st deleted file mode 100644 index 00d9bcd26..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/resolveArtifactConflict..st +++ /dev/null @@ -1,12 +0,0 @@ -utilities -resolveArtifactConflict: unaryBlock - | conflictNode acceptReturned | - conflictNode := SquotDiffNodeSearchForChoiceNeeded new - searchFrom: tool rootNodes anyOne; - nodeThatNeedsChoice. - self assert: conflictNode offersChoice. - tool selectNode: conflictNode. - unaryBlock value: conflictNode. - self closeDialogPossiblyOpenedDuring: [tool accept. acceptReturned := true] - timeoutMsecs: 5. - self assert: acceptReturned == true. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/resultDiffAt..st b/src/Squot.package/SquotMergeToolTest.class/instance/resultDiffAt..st deleted file mode 100644 index 0b37f2395..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/resultDiffAt..st +++ /dev/null @@ -1,3 +0,0 @@ -test objects -resultDiffAt: path - ^ tool selectedPatch resolvedPatch diffAt: path \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/resultLoadOrder.st b/src/Squot.package/SquotMergeToolTest.class/instance/resultLoadOrder.st deleted file mode 100644 index 5233ac7e0..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/resultLoadOrder.st +++ /dev/null @@ -1,3 +0,0 @@ -test objects -resultLoadOrder - ^ tool selectedPatch resolvedPatch patchedLoadOrder \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/testArtifactMergeWithoutConflicts.st b/src/Squot.package/SquotMergeToolTest.class/instance/testArtifactMergeWithoutConflicts.st deleted file mode 100644 index db000c793..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/testArtifactMergeWithoutConflicts.st +++ /dev/null @@ -1,29 +0,0 @@ -tests -testArtifactMergeWithoutConflicts - | left right base path artifact merge contentMerge mergeNode acceptReturned | - path := 'common-artifact'. - artifact := SquotArtifact new path: path; content: (left := SquotArtifactContentMock new). - left whenMergedReturn: (contentMerge := SquotMergeMock new); - whenComparedReturnMock. - contentMerge hasConflicts: false. - right := SquotArtifactContentMock new. - base := SquotArtifactContentMock new. - base whenComparedReturnMock. - merge := SquotMerge - into: (SquotSnapshot builder - add: artifact; - buildSnapshot) - merge: (SquotSnapshot builder - add: (artifact copy content: right); - buildSnapshot) - basedOn: (SquotSnapshot builder - add: (artifact copy content: base); - buildSnapshot). - self openToolAndTestOn: merge. - mergeNode := tool rootNodes detect: [:each | ((tool nodeLabelOf: each) asString includesSubstring: 'common-artifact') and: [(tool nodeLabelOf: each) asString includesSubstring: 'merge']] ifNone: [self fail: 'Merge node not found']. - self deny: mergeNode anyChildNeedsChoice. - tool selectNode: mergeNode; deactivateSelectedNode. - self closeDialogPossiblyOpenedDuring: [tool accept. acceptReturned := true] - timeoutMsecs: 5. - self assert: acceptReturned == true. - self deny: (self resultIncludesDiffAt: path) "nothing changes in working copy". \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/testLoadOrderConflicts.st b/src/Squot.package/SquotMergeToolTest.class/instance/testLoadOrderConflicts.st deleted file mode 100644 index 0a1c932aa..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/testLoadOrderConflicts.st +++ /dev/null @@ -1,62 +0,0 @@ -tests load order -testLoadOrderConflicts - | addedWorking addedIncoming addedBoth addedBothConflict - removedWorking removedIncoming removedBoth - movedWorking movedIncoming movedWithConflict - unchanged modifiedInSamePosition - working incoming base labels merge | - working := SquotImageStore new - "First come the objects moved by one side (except for the conflicting move, which goes up in the working copy and down in the other version)." - add: (movedWithConflict := ValueHolder new contents: 'moved-conflict') at: 'moved-conflict'; - add: (movedWorking := ValueHolder new contents: 'moved-working') at: 'moved-working'; - "The unchanged object is the fix point, followed by the modified object whose position did not change." - add: (unchanged := ValueHolder new contents: 'unchanged') at: 'unchanged'; - add: (modifiedInSamePosition := ValueHolder new contents: 'modified-same-position') at: 'modified-same-position'; - "Then come the objects moved in the other version." - add: (movedIncoming := ValueHolder new contents: 'moved-incoming') at: 'moved-incoming'; - "Last but not least follow the removals, then the additions, in both cases first the common changes, than the side-specific ones." - add: (removedIncoming := ValueHolder new contents: 'removed-incoming') at: 'removed-incoming'; - add: (addedBoth := ValueHolder new contents: 'added-both') at: 'added-both'; - add: (addedBothConflict := ValueHolder new contents: 'added-both-conflict') at: 'added-both-conflict'; - add: (addedWorking := Object new) at: 'added-working'; - captureSnapshot "to initialize the registry"; - yourself. - incoming := working copy "for the object registry" removeAllObjects; - add: movedIncoming at: (working pathsOf: movedIncoming) anyOne; - add: unchanged at: (working pathsOf: unchanged) anyOne; - add: modifiedInSamePosition at: (working pathsOf: modifiedInSamePosition) anyOne; - add: movedWorking at: (working pathsOf: movedWorking) anyOne; - add: (removedWorking := ValueHolder new contents: 'removed-working') at: 'removed-working'; - "In the incoming version, the addition position conflict is before the common addition." - add: addedBothConflict copy "no conflict in the contents" at: (working pathsOf: addedBothConflict) anyOne; - add: addedBoth copy at: (working pathsOf: addedBoth) anyOne; - add: (addedIncoming := Object new) at: 'added-incoming'; - "In the incoming version, the conflicting move goes to the bottom, not to the top." - add: movedWithConflict at: (working pathsOf: movedWithConflict) anyOne; - yourself. - base := incoming copy "for the object registry" removeAllObjects; - add: unchanged at: (working pathsOf: unchanged) anyOne; - add: modifiedInSamePosition at: (working pathsOf: modifiedInSamePosition) anyOne; - add: movedWithConflict at: (working pathsOf: movedWithConflict) anyOne; - add: movedWorking at: (working pathsOf: movedWorking) anyOne; - add: movedIncoming at: (working pathsOf: movedIncoming) anyOne; - add: (removedBoth := Object new) at: 'removed-both'; - add: removedWorking at: (incoming pathsOf: removedWorking) anyOne; - add: removedIncoming at: (working pathsOf: removedIncoming) anyOne; - captureSnapshot; - yourself. - merge := SquotMerge into: working - merge: ([| original | - original := modifiedInSamePosition contents. - [modifiedInSamePosition contents: 'CHANGED'. - incoming captureSnapshot] - ensure: [modifiedInSamePosition contents: original]] value) - basedOn: base captureSnapshot. - self openToolAndTestOn: merge. - labels := tool rootNodes collect: [:each | (tool nodeLabelOf: each) asString]. - self assert: (labels anySatisfy: [:each | each includesSubstring: (incoming pathsOf: addedIncoming) anyOne]); - assert: (labels anySatisfy: [:each | each includesSubstring: (working pathsOf: addedBoth) anyOne]); - assert: (labels anySatisfy: [:each | each includesSubstring: (working pathsOf: addedBothConflict) anyOne]); - assert: (labels anySatisfy: [:each | each includesSubstring: (working pathsOf: removedIncoming) anyOne]); - assert: (labels anySatisfy: [:each | each includesSubstring: (working pathsOf: modifiedInSamePosition) anyOne]); - assert: (labels anySatisfy: [:each | each includesSubstring: 'load order']). \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/testMetadataConflict.st b/src/Squot.package/SquotMergeToolTest.class/instance/testMetadataConflict.st deleted file mode 100644 index 03f0b3bcb..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/testMetadataConflict.st +++ /dev/null @@ -1,41 +0,0 @@ -tests -testMetadataConflict - | path acceptReturned metadataNode fooNode contestedNode result | - path := 'conflicted-artifact'. - self openToolAndTestOn: (self mergeWithMetadataConflictAt: path). - self assert: (metadataNode := tool rootNodes first children detect: [:each | each title asString includesSubstring: 'Metadata' translated] ifNone: []) notNil. - "When the choices are reset, each conflict needs to be resolved." - (metadataNode withAllChildren select: [:each | each offersChoice]) do: [:each | each resetChoice]. - self assert: (fooNode := metadataNode children detect: [:each | each title asString includesSubstring: 'foo']) needsChoice. - tool selectNode: fooNode; - activateSelectedNode. "choose incoming edition" - self assert: (contestedNode := metadataNode children detect: [:each | each title asString includesSubstring: 'contested']) needsChoice. - tool selectNode: contestedNode; - deactivateSelectedNode. "choose working copy edition" - "The nodes for modifications, additions, removals do not need to be resolved. - Exclude them all to test later whether what is selected makes a difference." - #('old' 'update' 'new') do: - [:each | | node | - self deny: (node := metadataNode children detect: [:eachNode | eachNode title asString includesSubstring: each]) needsChoice. - tool selectNode: node; - deactivateSelectedNode]. - "Since we resolved the conflicts, the merge can be accepted." - self closeDialogPossiblyOpenedDuring: [tool accept. acceptReturned := true] - timeoutMsecs: 5. - self assert: acceptReturned == true. - "When the merge is applied, the metadata is updated as selected in the tool." - result := (tool selectedPatch "actually the merge" resolvedPatch - applyTo: - (SquotSnapshot builder - add: - (SquotArtifact new path: path; - storeInfo: - (SquotTrackedObjectMetadata newFrom: {#foo -> 'bar'. #contested -> 'working'. #old -> ''. #update -> 'original'}); - content: SquotArtifactContentMock new); - yourself)) - artifactAt: path. - self assert: 'bla' equals: (result storeInfo at: #foo); - assert: 'working' equals: (result storeInfo at: #contested); - deny: (result storeInfo includesKey: #new); - assert: (result storeInfo includesKey: #old); - assert: 'original' equals: (result storeInfo at: #update). \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/testMethodsGetExcludedIfOnlyTheirStampsChanged.st b/src/Squot.package/SquotMergeToolTest.class/instance/testMethodsGetExcludedIfOnlyTheirStampsChanged.st deleted file mode 100644 index eac5f0584..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/testMethodsGetExcludedIfOnlyTheirStampsChanged.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testMethodsGetExcludedIfOnlyTheirStampsChanged - | methodNode | - tool := self newToolOn: (self patchModifyingMethodTimestampInArtifactAt: 'src/TestPackage.package'). - tool rootNodes. "compute" - methodNode := tool rootNodes first children first children first. - tool selectNode: methodNode. - self deny: tool selectedDiffNodeIsIncluded. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/testResolveArtifactConflictChooseLeft.st b/src/Squot.package/SquotMergeToolTest.class/instance/testResolveArtifactConflictChooseLeft.st deleted file mode 100644 index 3926d4687..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/testResolveArtifactConflictChooseLeft.st +++ /dev/null @@ -1,19 +0,0 @@ -tests -testResolveArtifactConflictChooseLeft - | left right path artifact merge conflictNode | - path := 'conflicted-artifact'. - artifact := SquotArtifact new path: path; content: (left := SquotArtifactContentMock new). - left diffBlock: [:otherMock | SquotArtifactContentDiffMock new]. - merge := SquotMerge into: (SquotSnapshot empty) - merge: (SquotSnapshot builder - add: (artifact copy content: (right := SquotArtifactContentMock new)); - buildSnapshot) - basedOn: (SquotSnapshot builder - add: artifact; - buildSnapshot). - self openToolAndTestOn: merge. - self assert: #('conflicted-artifact (removed/changed)' 'Changed load order') equals: (tool rootNodes collect: [:each | (tool nodeLabelOf: each) asString]) asArray. - (conflictNode := tool rootNodes anyOne) resetChoice. - self assert: conflictNode anyChildNeedsChoice. - self resolveArtifactConflict: [:aNode | tool deactivateSelectedNode]. - self deny: (self resultIncludesDiffAt: path) "nothing changes in working copy". \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/testResolveArtifactConflictChooseRight.st b/src/Squot.package/SquotMergeToolTest.class/instance/testResolveArtifactConflictChooseRight.st deleted file mode 100644 index 0aebb861f..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/testResolveArtifactConflictChooseRight.st +++ /dev/null @@ -1,26 +0,0 @@ -tests -testResolveArtifactConflictChooseRight - | base right path artifact merge conflictNode rightArtifact | - path := 'conflicted-artifact'. - artifact := SquotArtifact new path: path; content: (base := SquotArtifactContentMock new). - base diffBlock: - [:other | - other == right - ifTrue: [SquotArtifactContentDiffMock new - onApply: [:diff :target | right]; - yourself] - ifFalse: [SquotArtifactContentDiffMock new]]. - rightArtifact := artifact copy content: (right := SquotArtifactContentMock new). - merge := SquotMerge into: SquotSnapshot empty - merge: (SquotSnapshot builder - add: rightArtifact; - buildSnapshot) - basedOn: (SquotSnapshot builder - add: artifact; - buildSnapshot). - self openToolAndTestOn: merge. - self assert: #('conflicted-artifact (removed/changed)' 'Changed load order') equals: (tool rootNodes collect: [:each | (tool nodeLabelOf: each) asString]) asArray. - (conflictNode := tool rootNodes anyOne) resetChoice. - self assert: conflictNode anyChildNeedsChoice. - self resolveArtifactConflict: [:aNode | tool activateSelectedNode]. - self assert: (tool selectedPatch resolvedPatch diffAt: path) right content = right. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/testResolveArtifactConflictWithIncomingRemoval.st b/src/Squot.package/SquotMergeToolTest.class/instance/testResolveArtifactConflictWithIncomingRemoval.st deleted file mode 100644 index 952288bb8..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/testResolveArtifactConflictWithIncomingRemoval.st +++ /dev/null @@ -1,20 +0,0 @@ -tests -testResolveArtifactConflictWithIncomingRemoval - | left right path artifact merge conflictNode | - path := 'conflicted-artifact'. - artifact := SquotArtifact new path: path; content: (left := SquotArtifactContentMock new). - left diffBlock: [:otherMock | SquotArtifactContentDiffMock new]. - merge := SquotMerge - into: (SquotSnapshot builder - add: (artifact copy content: (right := SquotArtifactContentMock new)); - buildSnapshot) - merge: (SquotSnapshot empty) - basedOn: (SquotSnapshot builder - add: artifact; - buildSnapshot). - self openToolAndTestOn: merge. - self assert: #('conflicted-artifact (changed/removed)' 'Changed load order') equals: (tool rootNodes collect: [:each | (tool nodeLabelOf: each) asString]) asArray. - (conflictNode := tool rootNodes anyOne) resetChoice. - self assert: conflictNode anyChildNeedsChoice. - self resolveArtifactConflict: [:aNode | tool activateSelectedNode]. - self assert: (self resultDiffAt: path) isRemoval. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/testResolveConflictInArtifactChooseLeft.st b/src/Squot.package/SquotMergeToolTest.class/instance/testResolveConflictInArtifactChooseLeft.st deleted file mode 100644 index fe029051f..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/testResolveConflictInArtifactChooseLeft.st +++ /dev/null @@ -1,49 +0,0 @@ -tests -testResolveConflictInArtifactChooseLeft - | left right path artifact merge base mergeMock conflictNode incomingDiffMock workingDiffMock | - "given an artifact that has conflicts in its contents" - path := 'conflicted-artifact'. - artifact := SquotArtifact new - path: path; - content: (left := SquotArtifactContentMock new id: 'left'). - right := SquotArtifactContentMock new id: 'right'. - base := SquotArtifactContentMock new id: 'base'. - workingDiffMock := SquotArtifactContentDiffMock new - id: 'working'; - whenAppliedTo: base return: [left]. - incomingDiffMock := SquotArtifactContentDiffMock new - id: 'incoming'; - whenAppliedTo: base return: [right]. - base whenComparedWith: left return: [workingDiffMock]. - base whenComparedWith: right return: [incomingDiffMock]. - left whenMergedReturn: - ((mergeMock := SquotMergeMock new) - diffTreeNodes: (Array with: - (SquotMergeDiffNode - title: 'conflict' - content: mergeMock - children: #() - onInclude: [mergeMock chooseIncoming] - onExclude: [mergeMock chooseWorking] - onReset: [mergeMock resetChoice])); - yourself). - merge := SquotMerge - into: (SquotSnapshot builder add: artifact; buildSnapshot) - merge: (SquotSnapshot builder - add: (artifact copy content: right); - buildSnapshot) - basedOn: (SquotSnapshot builder - add: (artifact copy content: base); - buildSnapshot). - self openToolAndTestOn: merge. - self assert: tool rootNodes size = 1. - "when the content's node is excluded to discard the incoming changes" - (conflictNode := tool rootNodes first children first) resetChoice. - self assert: conflictNode anyChildNeedsChoice. - self resolveArtifactConflict: [:aNode | tool deactivateSelectedNode]. - "then there should be nothing to be patched" - self assert: mergeMock choice = #working description: 'exclude block evaluated'; - assert: (tool selectedPatch mergeAt: path) working = artifact - description: 'working artifact should be unmodified'; - deny: (tool selectedPatch hasChangesAt: path) - description: 'no modification should be left'. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/testResolveConflictInArtifactChooseRight.st b/src/Squot.package/SquotMergeToolTest.class/instance/testResolveConflictInArtifactChooseRight.st deleted file mode 100644 index 704944877..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/testResolveConflictInArtifactChooseRight.st +++ /dev/null @@ -1,51 +0,0 @@ -tests -testResolveConflictInArtifactChooseRight - | left right path artifact merge conflictNode base incomingDiffMock mergeMock workingDiffMock | - path := 'conflicted-artifact'. - artifact := SquotArtifact new - path: path; - content: (left := SquotArtifactContentMock new id: 'left'). - right := SquotArtifactContentMock new id: 'right'. - base := SquotArtifactContentMock new id: 'base'. - workingDiffMock := SquotArtifactContentDiffMock new - id: 'working'; - whenAppliedTo: base return: [left]. - incomingDiffMock := SquotArtifactContentDiffMock new - id: 'incoming'; - whenAppliedTo: base return: [right]. - base whenComparedWith: left return: [workingDiffMock]. - base whenComparedWith: right return: [incomingDiffMock]. - left whenMergedReturn: - ((mergeMock := SquotMergeMock new) - working: left; - incoming: right; - base: base; - diffTreeNodes: (Array with: - (SquotMergeDiffNode - title: 'conflict' - content: mergeMock - children: #() - onInclude: [mergeMock chooseIncoming] - onExclude: [mergeMock chooseWorking] - onReset: [mergeMock resetChoice])); - yourself). - merge := SquotMerge - into: (SquotSnapshot builder add: artifact; buildSnapshot) - merge: (SquotSnapshot builder - add: (artifact copy content: right); - buildSnapshot) - basedOn: (SquotSnapshot builder - add: (artifact copy content: base); - buildSnapshot). - self openToolAndTestOn: merge. - self assert: tool rootNodes size = 1. - "when the content's node is inclued to load the incoming changes" - (conflictNode := tool rootNodes first children first) resetChoice. - self assert: conflictNode anyChildNeedsChoice. - self resolveArtifactConflict: [:aNode | tool activateSelectedNode]. - "then the resulting patch should include the modifications" - self assert: mergeMock choice = #incoming description: 'include block evaluated'; - assert: (tool selectedPatch mergeAt: path) working = artifact - description: 'working artifact should be unmodified'; - assert: (self resultDiffAt: path) right content = right - description: 'modification should be included'. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/testResolveThenResetArtifactConflict.st b/src/Squot.package/SquotMergeToolTest.class/instance/testResolveThenResetArtifactConflict.st deleted file mode 100644 index d2d19d6df..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/testResolveThenResetArtifactConflict.st +++ /dev/null @@ -1,35 +0,0 @@ -tests -testResolveThenResetArtifactConflict - | path base right rightArtifact artifact merge conflictNode | - path := 'conflicted-artifact'. - artifact := SquotArtifact new path: path; content: (base := SquotArtifactContentMock new). - base diffBlock: - [:other | - other == right - ifTrue: [SquotArtifactContentDiffMock new - onApply: [:diff :target | right]; - yourself] - ifFalse: [SquotArtifactContentDiffMock new]]. - rightArtifact := artifact copy content: (right := SquotArtifactContentMock new). - merge := SquotMerge into: SquotSnapshot empty - merge: (SquotSnapshot builder - add: rightArtifact; - buildSnapshot) - basedOn: (SquotSnapshot builder - add: artifact; - buildSnapshot). - self openToolAndTestOn: merge. - self assert: #('conflicted-artifact (removed/changed)' 'Changed load order') equals: (tool rootNodes collect: [:each | (tool nodeLabelOf: each) asString]) asArray. - conflictNode := tool rootNodes anyOne. - conflictNode resetChoice. - self assert: conflictNode needsChoice. - conflictNode include. - tool accept. - self assert: (self resultDiffAt: path) right content = (merge conflictAt: path) incomingArtifact content. - self deny: conflictNode needsChoice. - conflictNode exclude. - tool accept. - self deny: (self resultIncludesDiffAt: path) "no changes to working copy". - self deny: conflictNode needsChoice. - conflictNode resetChoice. - self assert: conflictNode needsChoice. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/instance/testSmalltalkCodeMerge.st b/src/Squot.package/SquotMergeToolTest.class/instance/testSmalltalkCodeMerge.st deleted file mode 100644 index 458b2542c..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/instance/testSmalltalkCodeMerge.st +++ /dev/null @@ -1,100 +0,0 @@ -*Squot-Tests-Packages -testSmalltalkCodeMerge - "Covers the following nodes: - - conflicting organization modification - - conflicting class modification - - conflicting method modification - - conflicting method timestamp modification - - clean duplicate class removal - - clean duplicate method removal - - clean duplicate package removal - - conflicting removal and modification of package - - conflicting removal and modification of class - - conflicting removal and modification of method - - clean duplicate addition of package, with conflict underneath - - clean duplicate class addition, with conflict underneath - - clean duplicate method addition - - conflicting duplicate method additon" - | before after base merge | - before := SquotSnapshot builder - add: ((MCSnapshot fromDefinitions: - {MCOrganizationDefinition categories: #('ChangedPackage' 'ChangedPackage-A'). - MCClassDefinition name: 'ChangedClass' superclassName: 'Object' - category: 'ChangedPackage-A' instVarNames: 'a' comment: 'A'. - MCMethodDefinition className: 'ChangedClass' selector: 'timeStamp' - category: 'conflicts' timeStamp: 'A' source: 'timeStamp ^ nil'. - MCMethodDefinition className: 'OtherClass' selector: 'changedMethod' - category: 'conflicts' timeStamp: '' source: 'changedMethod ^ a'}) - asSquotArtifactForPackage: - (PackageInfo new packageName: 'ChangedPackage')); - add: ((MCSnapshot fromDefinitions: - {MCOrganizationDefinition categories: #('AddedInBoth'). - MCClassDefinition name: 'AddedInBoth' superclassName: 'Object' - category: 'AddedInBoth' instVarNames: '' comment: ''. - MCMethodDefinition className: 'AddedInBoth' selector: 'added' - category: 'added' timeStamp: '' source: 'added ^ nil'. - MCMethodDefinition className: 'AddedInBoth' selector: 'addedDifferently' - category: 'conflicts' timeStamp: '' source: 'addedDifferently ^ $A'}) - asSquotArtifactForPackage: - (PackageInfo new packageName: 'AddedInBoth')); - buildSnapshot. - after := SquotSnapshot builder - add: ((MCSnapshot fromDefinitions: - {MCOrganizationDefinition categories: #('ChangedPackage' 'ChangedPackage-B'). - MCClassDefinition name: 'ChangedClass' superclassName: 'Object' - category: 'ChangedPackage-B' instVarNames: 'b' comment: 'B'. - MCMethodDefinition className: 'ChangedClass' selector: 'timeStamp' - category: 'conflicts' timeStamp: 'B' source: 'timeStamp ^ nil'. - MCMethodDefinition className: 'OtherClass' selector: 'changedMethod' - category: 'conflicts' timeStamp: '' source: 'changedMethod ^ b'}) - asSquotArtifactForPackage: - (PackageInfo new packageName: 'ChangedPackage')); - add: ((MCSnapshot fromDefinitions: - {MCOrganizationDefinition categories: #('AddedInBoth'). - MCClassDefinition name: 'AddedInBoth' superclassName: 'Object' - category: 'AddedInBoth' instVarNames: '' comment: ''. - MCMethodDefinition className: 'AddedInBoth' selector: 'added' - category: 'added' timeStamp: '' source: 'added ^ nil'. - MCMethodDefinition className: 'AddedInBoth' selector: 'addedDifferently' - category: 'conflicts' timeStamp: '' source: 'addedDifferently ^ $B'}) - asSquotArtifactForPackage: - (PackageInfo new packageName: 'AddedInBoth')); - add: ((MCSnapshot fromDefinitions: - {MCOrganizationDefinition categories: #('ChangedAndRemoved'). - MCClassDefinition name: 'ChangedAndRemoved' superclassName: 'Object' - category: 'ChangedAndRemoved' instVarNames: '' comment: 'A'. - MCMethodDefinition className: 'ChangedAndRemoved' selector: 'changed' - category: 'conflicts' timeStamp: '' source: 'changed ^ $A'}) - asSquotArtifactForPackage: - (PackageInfo new packageName: 'ChangedAndRemoved')); - buildSnapshot. - base := SquotSnapshot builder - add: ((MCSnapshot fromDefinitions: - {MCOrganizationDefinition categories: #('ChangedPackage' 'ChangedPackage-C'). - MCClassDefinition name: 'ChangedClass' superclassName: 'Object' - category: 'ChangedPackage-C' instVarNames: 'c' comment: 'C'. - MCMethodDefinition className: 'ChangedClass' selector: 'timeStamp' - category: 'conflicts' timeStamp: 'C' source: 'timeStamp ^ nil'. - MCMethodDefinition className: 'OtherClass' selector: 'changedMethod' - category: 'conflicts' timeStamp: '' source: 'changedMethod ^ c'. - MCClassDefinition name: 'RemovedInBoth' superclassName: 'Object' - category: 'ChangedPackage' instVarNames: '' comment: ''. - MCMethodDefinition className: 'RemovedInBoth' selector: 'removed' - category: 'removed' timeStamp: '' source: 'removed ^ nil'}) - asSquotArtifactForPackage: - (PackageInfo new packageName: 'ChangedPackage')); - add: ((MCSnapshot fromDefinitions: - {MCOrganizationDefinition categories: #('RemovedInBoth')}) - asSquotArtifactForPackage: - (PackageInfo new packageName: 'RemovedInBoth')); - add: ((MCSnapshot fromDefinitions: - {MCOrganizationDefinition categories: #('ChangedAndRemoved'). - MCClassDefinition name: 'ChangedAndRemoved' superclassName: 'Object' - category: 'ChangedAndRemoved' instVarNames: '' comment: 'C'. - MCMethodDefinition className: 'ChangedAndRemoved' selector: 'changed' - category: 'conflicts' timeStamp: '' source: 'changed ^ $C'}) - asSquotArtifactForPackage: - (PackageInfo new packageName: 'ChangedAndRemoved')); - buildSnapshot. - merge := SquotMerge into: before merge: after basedOn: base. - self openToolAndTestOn: merge. \ No newline at end of file diff --git a/src/Squot.package/SquotMergeToolTest.class/methodProperties.json b/src/Squot.package/SquotMergeToolTest.class/methodProperties.json deleted file mode 100644 index d81bae20d..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/methodProperties.json +++ /dev/null @@ -1,39 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "applyToWorkingCopy" : "jr 11/19/2020 15:09", - "changedArtifactAt:in:" : "jr 6/19/2022 22:49", - "diffAt:in:" : "jr 8/15/2019 03:02", - "hasChangesAt:in:" : "jr 6/19/2022 23:44", - "includesDiffAt:in:" : "jr 8/15/2019 01:22", - "loadOrderHasChanges" : "jr 11/3/2020 16:44", - "mergeWithMetadataConflictAt:" : "jr 1/16/2022 20:15", - "newToolOn:" : "jr 5/2/2020 01:49", - "openToolAndTestOnPatch:" : "jr 8/15/2019 00:51", - "patchAddingArtifactAt:" : "jr 8/14/2019 22:59", - "patchChangingArtifactAt:" : "jr 6/6/2022 23:17", - "patchChangingArtifactMetadataAt:" : "jr 6/19/2022 23:31", - "patchChangingUnloadedArtifactAt:" : "jr 6/6/2022 23:17", - "patchModifyingMethodTimestampInArtifactAt:" : "jr 6/6/2022 23:17", - "patchRemovingArtifactAt:" : "jr 8/15/2019 00:35", - "patchWithLoadOrderChange" : "jr 8/15/2019 01:01", - "patchWithLoadOrderChangeRegression1" : "jr 8/15/2019 01:11", - "patchWithTwoChangedArtifacts" : "jr 8/22/2019 00:03", - "patchWithUnloadedArtifactAt:" : "jr 11/19/2020 14:43", - "patchedLoadOrderAfter:" : "jr 8/15/2019 01:08", - "performUiInteractionTestsOnNode:withPath:inTree:" : "jr 11/1/2020 21:23", - "resolveArtifactConflict:" : "jr 10/26/2019 22:39", - "resultDiffAt:" : "jr 8/15/2019 03:02", - "resultLoadOrder" : "jr 8/15/2019 01:06", - "testArtifactMergeWithoutConflicts" : "jr 7/9/2022 10:54", - "testLoadOrderConflicts" : "jr 11/18/2020 16:01", - "testMetadataConflict" : "jr 7/3/2022 12:24", - "testMethodsGetExcludedIfOnlyTheirStampsChanged" : "jr 5/14/2021 16:18", - "testResolveArtifactConflictChooseLeft" : "jr 11/18/2020 16:03", - "testResolveArtifactConflictChooseRight" : "jr 11/18/2020 16:03", - "testResolveArtifactConflictWithIncomingRemoval" : "jr 11/18/2020 16:03", - "testResolveConflictInArtifactChooseLeft" : "jr 11/19/2020 19:12", - "testResolveConflictInArtifactChooseRight" : "jr 5/9/2020 10:39", - "testResolveThenResetArtifactConflict" : "jr 11/18/2020 17:14", - "testSmalltalkCodeMerge" : "jr 9/29/2019 22:39" } } diff --git a/src/Squot.package/SquotMergeToolTest.class/properties.json b/src/Squot.package/SquotMergeToolTest.class/properties.json deleted file mode 100644 index 756d27510..000000000 --- a/src/Squot.package/SquotMergeToolTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Tools", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotMergeToolTest", - "pools" : [ - ], - "super" : "SquotChangesChooserTest", - "type" : "normal" } diff --git a/src/Squot.package/SquotMirror.class/README.md b/src/Squot.package/SquotMirror.class/README.md deleted file mode 100644 index a6b883bd5..000000000 --- a/src/Squot.package/SquotMirror.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I can reflect upon, traverse and modify the structure of objects. \ No newline at end of file diff --git a/src/Squot.package/SquotMirror.class/instance/canHaveReferences..st b/src/Squot.package/SquotMirror.class/instance/canHaveReferences..st deleted file mode 100644 index cc89db40e..000000000 --- a/src/Squot.package/SquotMirror.class/instance/canHaveReferences..st +++ /dev/null @@ -1,4 +0,0 @@ -testing -canHaveReferences: anObject - "Answer whether the kind of anObject is capable of having references to other objects." - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotMirror.class/instance/capture.with.ifReplaced..st b/src/Squot.package/SquotMirror.class/instance/capture.with.ifReplaced..st deleted file mode 100644 index ac6817f5f..000000000 --- a/src/Squot.package/SquotMirror.class/instance/capture.with.ifReplaced..st +++ /dev/null @@ -1,7 +0,0 @@ -capturing -capture: anObject with: aSquotObjectCapturer ifReplaced: aBlock - "Answer a snapshot of the object. If it is supposed to be replaced by a proxy, evaluate aBlock with the proxy before creating the snapshot of the proxy." - "For objects that might have cyclic references, do not attempt to capture the whole object subgraph! Instead enumerate the references, only create the new shadow object and prepare it, then announce the references to the capturer with: - aSquotObjectCapturer capture: referencedObject asValueOf: aReference from: anObject reflectedIn: aMirror - intoValueOf: shadowsReference from: shadowOfAnObject reflectedIn: aShadowMirror" - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotMirror.class/instance/is.comparableTo..st b/src/Squot.package/SquotMirror.class/instance/is.comparableTo..st deleted file mode 100644 index fbeb95ff9..000000000 --- a/src/Squot.package/SquotMirror.class/instance/is.comparableTo..st +++ /dev/null @@ -1,4 +0,0 @@ -comparing -is: anObject comparableTo: anotherObject - "Answer true if anObject and anotherObject are of the same kind." - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotMirror.class/instance/mirrorForReplacement..st b/src/Squot.package/SquotMirror.class/instance/mirrorForReplacement..st deleted file mode 100644 index e1fefc6ee..000000000 --- a/src/Squot.package/SquotMirror.class/instance/mirrorForReplacement..st +++ /dev/null @@ -1,4 +0,0 @@ -capturing -mirrorForReplacement: anObject - "If a reflected object was replaced by anObject for capturing, another mirror might need to be used to reflect anObject. Answer that other mirror." - ^ (thisContext objectClass: anObject) squotMirror \ No newline at end of file diff --git a/src/Squot.package/SquotMirror.class/instance/mirrorOf.reachedVia.from..st b/src/Squot.package/SquotMirror.class/instance/mirrorOf.reachedVia.from..st deleted file mode 100644 index b29967044..000000000 --- a/src/Squot.package/SquotMirror.class/instance/mirrorOf.reachedVia.from..st +++ /dev/null @@ -1,5 +0,0 @@ -reflection -mirrorOf: anObject reachedVia: aReference from: referrerObject - "Answer the mirror to reflect anObject as the value of aReference in referrerObject." - ^ (thisContext objectClass: anObject) squotMirror - \ No newline at end of file diff --git a/src/Squot.package/SquotMirror.class/instance/newDiffFrom.to..st b/src/Squot.package/SquotMirror.class/instance/newDiffFrom.to..st deleted file mode 100644 index 134777439..000000000 --- a/src/Squot.package/SquotMirror.class/instance/newDiffFrom.to..st +++ /dev/null @@ -1,4 +0,0 @@ -comparing -newDiffFrom: leftObject to: rightObject - "Answer a new instance of a diff suitable to be applied to leftObject." - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotMirror.class/instance/referencesFrom..st b/src/Squot.package/SquotMirror.class/instance/referencesFrom..st deleted file mode 100644 index d8151b557..000000000 --- a/src/Squot.package/SquotMirror.class/instance/referencesFrom..st +++ /dev/null @@ -1,4 +0,0 @@ -enumerating -referencesFrom: anObject - "Answer a collection of all references going out of anObject." - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotMirror.class/instance/reflect.of..st b/src/Squot.package/SquotMirror.class/instance/reflect.of..st deleted file mode 100644 index 602222757..000000000 --- a/src/Squot.package/SquotMirror.class/instance/reflect.of..st +++ /dev/null @@ -1,4 +0,0 @@ -reflection -reflect: aReference of: anObject - ^ aReference reflect: anObject in: self - \ No newline at end of file diff --git a/src/Squot.package/SquotMirror.class/instance/reflect.of.put..st b/src/Squot.package/SquotMirror.class/instance/reflect.of.put..st deleted file mode 100644 index 647adeb17..000000000 --- a/src/Squot.package/SquotMirror.class/instance/reflect.of.put..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflect: aReference of: anObject put: newValue - ^ aReference reflect: anObject in: self put: newValue \ No newline at end of file diff --git a/src/Squot.package/SquotMirror.class/instance/replacementFor.using..st b/src/Squot.package/SquotMirror.class/instance/replacementFor.using..st deleted file mode 100644 index 9eb19cfaa..000000000 --- a/src/Squot.package/SquotMirror.class/instance/replacementFor.using..st +++ /dev/null @@ -1,4 +0,0 @@ -capturing -replacementFor: anObject using: aCapturer - "Answer an object that shall take the place of anObject in the captured object graph." - ^ anObject objectForDataStream: aCapturer \ No newline at end of file diff --git a/src/Squot.package/SquotMirror.class/instance/shouldObjectHaveNameAssigned..st b/src/Squot.package/SquotMirror.class/instance/shouldObjectHaveNameAssigned..st deleted file mode 100644 index 6fe3b21ad..000000000 --- a/src/Squot.package/SquotMirror.class/instance/shouldObjectHaveNameAssigned..st +++ /dev/null @@ -1,4 +0,0 @@ -testing -shouldObjectHaveNameAssigned: anObject - "Answer whether the object should get a name (an identifier) in order to be able to find it later and different versions of it in other object graphs. For value objects it should answer false. For entities it should answer true." - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotMirror.class/methodProperties.json b/src/Squot.package/SquotMirror.class/methodProperties.json deleted file mode 100644 index 97ef69f01..000000000 --- a/src/Squot.package/SquotMirror.class/methodProperties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "canHaveReferences:" : "jr 7/18/2021 22:11", - "capture:with:ifReplaced:" : "jr 7/17/2021 23:52", - "is:comparableTo:" : "jr 7/18/2021 20:09", - "mirrorForReplacement:" : "jr 4/8/2021 20:30", - "mirrorOf:reachedVia:from:" : "jr 4/11/2021 20:56", - "newDiffFrom:to:" : "jr 7/30/2021 18:59", - "referencesFrom:" : "jr 12/16/2020 00:17", - "reflect:of:" : "jr 12/20/2020 22:05", - "reflect:of:put:" : "jr 12/24/2020 01:21", - "replacementFor:using:" : "jr 4/8/2021 20:30", - "shouldObjectHaveNameAssigned:" : "jr 1/10/2021 21:49" } } diff --git a/src/Squot.package/SquotMirror.class/properties.json b/src/Squot.package/SquotMirror.class/properties.json deleted file mode 100644 index 7e02fce75..000000000 --- a/src/Squot.package/SquotMirror.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 12/16/2020 01:50", - "instvars" : [ - ], - "name" : "SquotMirror", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotMock.class/README.md b/src/Squot.package/SquotMock.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotMock.class/instance/doesNotUnderstand..st b/src/Squot.package/SquotMock.class/instance/doesNotUnderstand..st deleted file mode 100644 index 24231aac9..000000000 --- a/src/Squot.package/SquotMock.class/instance/doesNotUnderstand..st +++ /dev/null @@ -1,4 +0,0 @@ -error handling -doesNotUnderstand: aMessage - receivedMessages add: aMessage. - ^ nil \ No newline at end of file diff --git a/src/Squot.package/SquotMock.class/instance/hasReceivedMessageWithSelector..st b/src/Squot.package/SquotMock.class/instance/hasReceivedMessageWithSelector..st deleted file mode 100644 index ed9d021be..000000000 --- a/src/Squot.package/SquotMock.class/instance/hasReceivedMessageWithSelector..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasReceivedMessageWithSelector: aSymbol - ^ receivedMessages anySatisfy: [:each | each selector = aSymbol] \ No newline at end of file diff --git a/src/Squot.package/SquotMock.class/instance/initialize.st b/src/Squot.package/SquotMock.class/instance/initialize.st deleted file mode 100644 index dede50559..000000000 --- a/src/Squot.package/SquotMock.class/instance/initialize.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -initialize - receivedMessages := OrderedCollection new. \ No newline at end of file diff --git a/src/Squot.package/SquotMock.class/methodProperties.json b/src/Squot.package/SquotMock.class/methodProperties.json deleted file mode 100644 index 3701104aa..000000000 --- a/src/Squot.package/SquotMock.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "doesNotUnderstand:" : "jr 10/3/2020 19:50", - "hasReceivedMessageWithSelector:" : "jr 10/3/2020 19:51", - "initialize" : "jr 10/3/2020 19:51" } } diff --git a/src/Squot.package/SquotMock.class/properties.json b/src/Squot.package/SquotMock.class/properties.json deleted file mode 100644 index f45ff2326..000000000 --- a/src/Squot.package/SquotMock.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "receivedMessages" ], - "name" : "SquotMock", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotMockRepository.class/README.md b/src/Squot.package/SquotMockRepository.class/README.md deleted file mode 100644 index ebdbe37dd..000000000 --- a/src/Squot.package/SquotMockRepository.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I provide configurable answers to messages sent to local Squot repositories. \ No newline at end of file diff --git a/src/Squot.package/SquotMockRepository.class/instance/delete..st b/src/Squot.package/SquotMockRepository.class/instance/delete..st deleted file mode 100644 index bac6b8aea..000000000 --- a/src/Squot.package/SquotMockRepository.class/instance/delete..st +++ /dev/null @@ -1,3 +0,0 @@ -adding and removing -delete: anObject - "stub" \ No newline at end of file diff --git a/src/Squot.package/SquotMockRepository.class/instance/historians.st b/src/Squot.package/SquotMockRepository.class/instance/historians.st deleted file mode 100644 index 222da2daa..000000000 --- a/src/Squot.package/SquotMockRepository.class/instance/historians.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -historians - ^ {Object new} \ No newline at end of file diff --git a/src/Squot.package/SquotMockRepository.class/instance/initializeStoreInfo.forObject..st b/src/Squot.package/SquotMockRepository.class/instance/initializeStoreInfo.forObject..st deleted file mode 100644 index 49c12c008..000000000 --- a/src/Squot.package/SquotMockRepository.class/instance/initializeStoreInfo.forObject..st +++ /dev/null @@ -1,3 +0,0 @@ -adding and removing -initializeStoreInfo: aTrackedObjectMetadata forObject: aShadow - (storeInfoInitBlock ifNil: [self error: 'Mock not prepared']) value: aShadow value: aTrackedObjectMetadata. \ No newline at end of file diff --git a/src/Squot.package/SquotMockRepository.class/instance/whenInitializingStoreInfoDo..st b/src/Squot.package/SquotMockRepository.class/instance/whenInitializingStoreInfoDo..st deleted file mode 100644 index 4ffff5465..000000000 --- a/src/Squot.package/SquotMockRepository.class/instance/whenInitializingStoreInfoDo..st +++ /dev/null @@ -1,3 +0,0 @@ -configuring -whenInitializingStoreInfoDo: aBlock - storeInfoInitBlock := aBlock. \ No newline at end of file diff --git a/src/Squot.package/SquotMockRepository.class/methodProperties.json b/src/Squot.package/SquotMockRepository.class/methodProperties.json deleted file mode 100644 index 4905894c3..000000000 --- a/src/Squot.package/SquotMockRepository.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "delete:" : "jr 12/2/2019 22:27", - "historians" : "jr 12/2/2019 22:16", - "initializeStoreInfo:forObject:" : "jr 5/28/2022 12:03", - "whenInitializingStoreInfoDo:" : "jr 5/28/2022 11:46" } } diff --git a/src/Squot.package/SquotMockRepository.class/properties.json b/src/Squot.package/SquotMockRepository.class/properties.json deleted file mode 100644 index ff54a9767..000000000 --- a/src/Squot.package/SquotMockRepository.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotLocalRepository classTrait + TSquotUnitOfWork classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 12/2/2019 21:32", - "instvars" : [ - "storeInfoInitBlock" ], - "name" : "SquotMockRepository", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotLocalRepository + TSquotUnitOfWork", - "type" : "normal" } diff --git a/src/Squot.package/SquotMockStore.class/README.md b/src/Squot.package/SquotMockStore.class/README.md deleted file mode 100644 index 15c5cb8cc..000000000 --- a/src/Squot.package/SquotMockStore.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I provide configurable answers to messages sent to Squot stores. \ No newline at end of file diff --git a/src/Squot.package/SquotMockStore.class/instance/add.at.additionalInfo..st b/src/Squot.package/SquotMockStore.class/instance/add.at.additionalInfo..st deleted file mode 100644 index 66b6ecc58..000000000 --- a/src/Squot.package/SquotMockStore.class/instance/add.at.additionalInfo..st +++ /dev/null @@ -1,3 +0,0 @@ -adding and removing -add: anObject at: path additionalInfo: aTrackedObjectMetadata - ^ self objects at: path put: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotMockStore.class/instance/artifacts.st b/src/Squot.package/SquotMockStore.class/instance/artifacts.st deleted file mode 100644 index 6b4ea42ba..000000000 --- a/src/Squot.package/SquotMockStore.class/instance/artifacts.st +++ /dev/null @@ -1,9 +0,0 @@ -accessing -artifacts - ^ (self objects - collect: - [:object | - SquotArtifact new - content: (self capture: object withMetadata: nil); - yourself]) - keysAndValuesDo: [:path :artifact | artifact path: path] \ No newline at end of file diff --git a/src/Squot.package/SquotMockStore.class/instance/capture.withMetadata..st b/src/Squot.package/SquotMockStore.class/instance/capture.withMetadata..st deleted file mode 100644 index 5b7587165..000000000 --- a/src/Squot.package/SquotMockStore.class/instance/capture.withMetadata..st +++ /dev/null @@ -1,3 +0,0 @@ -capturing -capture: anObject withMetadata: aTrackedObjectMetadata - ^ ValueHolder new contents: anObject; yourself \ No newline at end of file diff --git a/src/Squot.package/SquotMockStore.class/instance/copySettingsFrom.to..st b/src/Squot.package/SquotMockStore.class/instance/copySettingsFrom.to..st deleted file mode 100644 index b56850288..000000000 --- a/src/Squot.package/SquotMockStore.class/instance/copySettingsFrom.to..st +++ /dev/null @@ -1,3 +0,0 @@ -adding and removing -copySettingsFrom: anArtifact to: newTrackedObjectMetadata - "Not interested in any properties." \ No newline at end of file diff --git a/src/Squot.package/SquotMockStore.class/instance/initializeStoreInfo.forObject..st b/src/Squot.package/SquotMockStore.class/instance/initializeStoreInfo.forObject..st deleted file mode 100644 index 3d1021571..000000000 --- a/src/Squot.package/SquotMockStore.class/instance/initializeStoreInfo.forObject..st +++ /dev/null @@ -1,4 +0,0 @@ -adding and removing -initializeStoreInfo: aTrackedObjectMetadata forObject: anObject - (storeInfoInitBlocks at: anObject ifAbsent: [self error: 'Mock not prepared for object: ', anObject printString]) - value: aTrackedObjectMetadata. \ No newline at end of file diff --git a/src/Squot.package/SquotMockStore.class/instance/loadOrder.st b/src/Squot.package/SquotMockStore.class/instance/loadOrder.st deleted file mode 100644 index ba1d3925c..000000000 --- a/src/Squot.package/SquotMockStore.class/instance/loadOrder.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -loadOrder - ^ objects ifNil: [#()] ifNotNil: [objects keys] \ No newline at end of file diff --git a/src/Squot.package/SquotMockStore.class/instance/objectInOwnArtifact..st b/src/Squot.package/SquotMockStore.class/instance/objectInOwnArtifact..st deleted file mode 100644 index e6bb2f11b..000000000 --- a/src/Squot.package/SquotMockStore.class/instance/objectInOwnArtifact..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -objectInOwnArtifact: anArtifact - ^ anArtifact content "ValueHolder" contents - \ No newline at end of file diff --git a/src/Squot.package/SquotMockStore.class/instance/objects.st b/src/Squot.package/SquotMockStore.class/instance/objects.st deleted file mode 100644 index 1e59e17e4..000000000 --- a/src/Squot.package/SquotMockStore.class/instance/objects.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -objects - ^ objects ifNil: [objects := Dictionary new] \ No newline at end of file diff --git a/src/Squot.package/SquotMockStore.class/instance/supports.forObject..st b/src/Squot.package/SquotMockStore.class/instance/supports.forObject..st deleted file mode 100644 index dcc46846e..000000000 --- a/src/Squot.package/SquotMockStore.class/instance/supports.forObject..st +++ /dev/null @@ -1,8 +0,0 @@ -adding and removing -supports: aTrackedObjectMetadata forObject: anObject - | copy path expectedPath | - copy := aTrackedObjectMetadata copy. - self initializeStoreInfo: copy forObject: anObject. - path := aTrackedObjectMetadata at: #path. - expectedPath := copy at: #path. - ^ path = expectedPath \ No newline at end of file diff --git a/src/Squot.package/SquotMockStore.class/instance/whenInitializingStoreInfoFor.do..st b/src/Squot.package/SquotMockStore.class/instance/whenInitializingStoreInfoFor.do..st deleted file mode 100644 index 448c2781c..000000000 --- a/src/Squot.package/SquotMockStore.class/instance/whenInitializingStoreInfoFor.do..st +++ /dev/null @@ -1,4 +0,0 @@ -configuring -whenInitializingStoreInfoFor: anObject do: aBlock - storeInfoInitBlocks ifNil: [storeInfoInitBlocks := IdentityDictionary new]. - storeInfoInitBlocks at: anObject put: aBlock. \ No newline at end of file diff --git a/src/Squot.package/SquotMockStore.class/methodProperties.json b/src/Squot.package/SquotMockStore.class/methodProperties.json deleted file mode 100644 index 87fc520f9..000000000 --- a/src/Squot.package/SquotMockStore.class/methodProperties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "add:at:additionalInfo:" : "jr 5/27/2022 23:54", - "artifacts" : "jr 12/8/2019 21:39", - "capture:withMetadata:" : "jr 12/8/2019 21:37", - "copySettingsFrom:to:" : "jr 5/27/2022 23:33", - "initializeStoreInfo:forObject:" : "jr 5/28/2022 11:37", - "loadOrder" : "jr 9/26/2020 18:39", - "objectInOwnArtifact:" : "jr 12/2/2019 22:34", - "objects" : "jr 12/2/2019 22:22", - "supports:forObject:" : "jr 5/28/2022 11:40", - "whenInitializingStoreInfoFor:do:" : "jr 5/28/2022 11:39" } } diff --git a/src/Squot.package/SquotMockStore.class/properties.json b/src/Squot.package/SquotMockStore.class/properties.json deleted file mode 100644 index 63a839843..000000000 --- a/src/Squot.package/SquotMockStore.class/properties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotMutableObjectContainer classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 12/2/2019 21:40", - "instvars" : [ - "objects", - "storeInfoInitBlocks" ], - "name" : "SquotMockStore", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotMutableObjectContainer", - "type" : "normal" } diff --git a/src/Squot.package/SquotMonticelloConversionProblem.class/README.md b/src/Squot.package/SquotMonticelloConversionProblem.class/README.md deleted file mode 100644 index 4bdd5c6c3..000000000 --- a/src/Squot.package/SquotMonticelloConversionProblem.class/README.md +++ /dev/null @@ -1 +0,0 @@ -Some problem was detected when the converted history is verified. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConversionProblem.class/instance/isResumable.st b/src/Squot.package/SquotMonticelloConversionProblem.class/instance/isResumable.st deleted file mode 100644 index 22906fe0c..000000000 --- a/src/Squot.package/SquotMonticelloConversionProblem.class/instance/isResumable.st +++ /dev/null @@ -1,3 +0,0 @@ -priv handling -isResumable - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConversionProblem.class/methodProperties.json b/src/Squot.package/SquotMonticelloConversionProblem.class/methodProperties.json deleted file mode 100644 index b286646ac..000000000 --- a/src/Squot.package/SquotMonticelloConversionProblem.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "isResumable" : "jr 2/9/2017 19:28" } } diff --git a/src/Squot.package/SquotMonticelloConversionProblem.class/properties.json b/src/Squot.package/SquotMonticelloConversionProblem.class/properties.json deleted file mode 100644 index 8e51f60af..000000000 --- a/src/Squot.package/SquotMonticelloConversionProblem.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Monticello-Converter", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 20:50", - "instvars" : [ - ], - "name" : "SquotMonticelloConversionProblem", - "pools" : [ - ], - "super" : "Error", - "type" : "normal" } diff --git a/src/Squot.package/SquotMonticelloConverter.class/README.md b/src/Squot.package/SquotMonticelloConverter.class/README.md deleted file mode 100644 index 7444602a8..000000000 --- a/src/Squot.package/SquotMonticelloConverter.class/README.md +++ /dev/null @@ -1,3 +0,0 @@ -I can convert between MCVersions and Squot versions and their histories. - -Instance Variables diff --git a/src/Squot.package/SquotMonticelloConverter.class/class/convertUpToLoadedVersionOfAllPackagesNamed.asHistorianNamed.in..st b/src/Squot.package/SquotMonticelloConverter.class/class/convertUpToLoadedVersionOfAllPackagesNamed.asHistorianNamed.in..st deleted file mode 100644 index d67e771e0..000000000 --- a/src/Squot.package/SquotMonticelloConverter.class/class/convertUpToLoadedVersionOfAllPackagesNamed.asHistorianNamed.in..st +++ /dev/null @@ -1,9 +0,0 @@ -converting history -convertUpToLoadedVersionOfAllPackagesNamed: packageNames asHistorianNamed: historianName in: aSquotRepository - " - SquotMonticelloConverter convertUpToLoadedVersionOfAllPackagesNamed: #('VersionNumber' 'VersionNumberTests') asHistorianNamed: 'mc' in: SquotWorkingCopy registered anyOne repository. - " - - ^ self new - convertUpToLoadedVersionOfAllPackagesNamed: packageNames - asHistorianNamed: historianName in: aSquotRepository \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverter.class/class/convertUpToLoadedVersionOfPackageNamed.asHistorianNamed.in..st b/src/Squot.package/SquotMonticelloConverter.class/class/convertUpToLoadedVersionOfPackageNamed.asHistorianNamed.in..st deleted file mode 100644 index acaa82a8e..000000000 --- a/src/Squot.package/SquotMonticelloConverter.class/class/convertUpToLoadedVersionOfPackageNamed.asHistorianNamed.in..st +++ /dev/null @@ -1,7 +0,0 @@ -converting history -convertUpToLoadedVersionOfPackageNamed: packageName asHistorianNamed: historianName in: aSquotRepository - - ^ self new - convertUpToLoadedVersionOfPackageNamed: packageName - asHistorianNamed: historianName - in: aSquotRepository \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverter.class/instance/addTemporaryHistorian..st b/src/Squot.package/SquotMonticelloConverter.class/instance/addTemporaryHistorian..st deleted file mode 100644 index 2ff3419c9..000000000 --- a/src/Squot.package/SquotMonticelloConverter.class/instance/addTemporaryHistorian..st +++ /dev/null @@ -1,4 +0,0 @@ -private -addTemporaryHistorian: aHistorian - - temporaryHistorians add: aHistorian. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverter.class/instance/authorMap..st b/src/Squot.package/SquotMonticelloConverter.class/instance/authorMap..st deleted file mode 100644 index 1de178e8e..000000000 --- a/src/Squot.package/SquotMonticelloConverter.class/instance/authorMap..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -authorMap: aDictionary - - authorMap := aDictionary \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverter.class/instance/authorMap.st b/src/Squot.package/SquotMonticelloConverter.class/instance/authorMap.st deleted file mode 100644 index e31046fc5..000000000 --- a/src/Squot.package/SquotMonticelloConverter.class/instance/authorMap.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -authorMap - - ^ authorMap \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverter.class/instance/captureSquotPatchFrom.basedOnVersion..st b/src/Squot.package/SquotMonticelloConverter.class/instance/captureSquotPatchFrom.basedOnVersion..st deleted file mode 100644 index 5746b8bbf..000000000 --- a/src/Squot.package/SquotMonticelloConverter.class/instance/captureSquotPatchFrom.basedOnVersion..st +++ /dev/null @@ -1,10 +0,0 @@ -private -captureSquotPatchFrom: aMCVersionInfo basedOnVersion: baseMCVersionInfo - | mcVersion baseMcVersion snapshot | - mcVersion := monticelloRepository versionWithInfo: aMCVersionInfo. - mcVersion ifNil: [^ nil]. - baseMcVersion := self findAvailableBaseVersionWithInfo: baseMCVersionInfo. - snapshot := self captureSquotSnapshotFrom: aMCVersionInfo. - ^ baseMcVersion - ifNil: [snapshot patchRelativeToBase: SquotSnapshot empty] - ifNotNil: [snapshot patchRelativeToBase: (self captureSquotSnapshotFrom: baseMcVersion info)] \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverter.class/instance/captureSquotSnapshotFrom..st b/src/Squot.package/SquotMonticelloConverter.class/instance/captureSquotSnapshotFrom..st deleted file mode 100644 index 02af2e72f..000000000 --- a/src/Squot.package/SquotMonticelloConverter.class/instance/captureSquotSnapshotFrom..st +++ /dev/null @@ -1,8 +0,0 @@ -private -captureSquotSnapshotFrom: aMCVersionInfo - | mcVersion | - mcVersion := monticelloRepository versionWithInfo: aMCVersionInfo. - mcVersion ifNil: [^ nil]. - ^ SquotSnapshot builder - add: (mcVersion snapshot asSquotArtifactForPackage: mcVersion package packageInfo path: (self squotPathForMonticelloPackage: mcVersion package)); - buildSnapshot \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverter.class/instance/cleanUpTemporaryHistorians.st b/src/Squot.package/SquotMonticelloConverter.class/instance/cleanUpTemporaryHistorians.st deleted file mode 100644 index 4cb2c2e84..000000000 --- a/src/Squot.package/SquotMonticelloConverter.class/instance/cleanUpTemporaryHistorians.st +++ /dev/null @@ -1,6 +0,0 @@ -private -cleanUpTemporaryHistorians - - temporaryHistorians - do: [:historian | squotRepository delete: historian]; - removeAll. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverter.class/instance/convertMonticelloHistoryUpTo.from.asNewHistorianNamed.in..st b/src/Squot.package/SquotMonticelloConverter.class/instance/convertMonticelloHistoryUpTo.from.asNewHistorianNamed.in..st deleted file mode 100644 index dde5bd49d..000000000 --- a/src/Squot.package/SquotMonticelloConverter.class/instance/convertMonticelloHistoryUpTo.from.asNewHistorianNamed.in..st +++ /dev/null @@ -1,13 +0,0 @@ -converting history -convertMonticelloHistoryUpTo: aMCVersion from: aMCRepository asNewHistorianNamed: historianName in: aRepository - | versionInfos | - squotRepository := aRepository. - monticelloRepository := aMCRepository. - versionInfos := aMCVersion info topologicalAncestors reverse. - squotRepository withUnitOfWork: - [monticelloRepository cacheAllFileNamesDuring: - [SquotProgress display: [:info | 'Converting ', info name] - for: versionInfos - do: [:eachMCVersionInfo | self convertMonticelloVersion: eachMCVersionInfo]]. - aRepository newHistorian: historianName version: (self squotVersionForMonticelloVersion: aMCVersion). - self cleanUpTemporaryHistorians]. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverter.class/instance/convertMonticelloHistoryUpToAll.from.asNewHistorianNamed.in..st b/src/Squot.package/SquotMonticelloConverter.class/instance/convertMonticelloHistoryUpToAll.from.asNewHistorianNamed.in..st deleted file mode 100644 index c97b2b22b..000000000 --- a/src/Squot.package/SquotMonticelloConverter.class/instance/convertMonticelloHistoryUpToAll.from.asNewHistorianNamed.in..st +++ /dev/null @@ -1,33 +0,0 @@ -converting history -convertMonticelloHistoryUpToAll: mcVersions from: aMCRepository asNewHistorianNamed: historianName in: aRepository - - | tmpHistorianNames versions workingCopy | - squotRepository := aRepository. - monticelloRepository := aMCRepository. - tmpHistorianNames := OrderedCollection new. - - SquotProgress display: [:mcVersion | 'Converting package ', mcVersion package name] - for: mcVersions - do: [:mcVersion | | tmpHistorianName | - tmpHistorianName := 'squot-convert-' , historianName , '/' , mcVersion package name. - tmpHistorianNames add: tmpHistorianName. - self convertMonticelloHistoryUpTo: mcVersion from: aMCRepository asNewHistorianNamed: tmpHistorianName in: aRepository]. - tmpHistorianNames do: [:tmpHistorianName | - self addTemporaryHistorian: (aRepository historianNamed: tmpHistorianName)]. - - workingCopy := squotRepository createWorkingCopy - store: SquotImageStore new; - yourself. - versions := temporaryHistorians collect: [:each | each version]. - versions do: [:version | - version artifacts keysAndValuesDo: [:key :artifact | - key ifNotEmpty: [workingCopy addUnloaded: artifact]]]. - workingCopy additionalParents: versions. - squotRepository newHistorian: historianName version: ( - squotRepository createNewVersion: workingCopy snapshot with: [:version | - version - parents: versions; - message: ('Merge versions using {1}' format: {self className}); - timestamp: DateAndTime now]). - - self cleanUpTemporaryHistorians. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverter.class/instance/convertMonticelloVersion..st b/src/Squot.package/SquotMonticelloConverter.class/instance/convertMonticelloVersion..st deleted file mode 100644 index 77bc17f96..000000000 --- a/src/Squot.package/SquotMonticelloConverter.class/instance/convertMonticelloVersion..st +++ /dev/null @@ -1,20 +0,0 @@ -private -convertMonticelloVersion: aMCVersionInfo - | squotPatch newVersion | - squotPatch := self captureSquotPatchFrom: aMCVersionInfo - basedOnVersion: (aMCVersionInfo ancestors - ifEmpty: [] - ifNotEmpty: [:ancestors | ancestors first]). - squotPatch ifNil: [^ self convertMonticelloVersionWithMissingSnapshot: aMCVersionInfo]. - newVersion := squotRepository createNewVersionFromPatch: squotPatch - with: [:version | version - initializeClean; - parents: (aMCVersionInfo ancestors - collect: [:each | self squotVersionForMonticelloVersionInfo: each]); - message: aMCVersionInfo message; - author: (self squotAuthorForMonticelloAuthor: aMCVersionInfo author); - committer: (squotRepository extension: #authorInformation - ifPresent: [:authorInformation | authorInformation defaultAuthor] - ifAbsent: [Utilities authorInitials]); - authoringTimeStamp: aMCVersionInfo timeStamp]. - self mapMonticelloVersion: aMCVersionInfo to: newVersion. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverter.class/instance/convertMonticelloVersionWithMissingSnapshot..st b/src/Squot.package/SquotMonticelloConverter.class/instance/convertMonticelloVersionWithMissingSnapshot..st deleted file mode 100644 index b06f79232..000000000 --- a/src/Squot.package/SquotMonticelloConverter.class/instance/convertMonticelloVersionWithMissingSnapshot..st +++ /dev/null @@ -1,19 +0,0 @@ -private -convertMonticelloVersionWithMissingSnapshot: aMCVersionInfo - "Pretend that nothing has changed, but create a commit anyway." - | newVersion | - self assert: aMCVersionInfo ancestors size = 1 - description: 'cannot guess which snapshot to use when there are multiple parents'. - newVersion := squotRepository - createNewVersionFromPatch: - (SquotPatch noChangesTo: - (self squotVersionForMonticelloVersionInfo: aMCVersionInfo ancestors first)) - with: [:version | version - initializeClean; - parents: (aMCVersionInfo ancestors - collect: [:each | self squotVersionForMonticelloVersionInfo: each]); - message: aMCVersionInfo message; - author: aMCVersionInfo author; - committer: Utilities authorInitials; - authoringTimeStamp: aMCVersionInfo timeStamp]. - self mapMonticelloVersion: aMCVersionInfo to: newVersion. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverter.class/instance/convertUpToLoadedVersionOfAllPackagesNamed.asHistorianNamed.in..st b/src/Squot.package/SquotMonticelloConverter.class/instance/convertUpToLoadedVersionOfAllPackagesNamed.asHistorianNamed.in..st deleted file mode 100644 index 6197711d7..000000000 --- a/src/Squot.package/SquotMonticelloConverter.class/instance/convertUpToLoadedVersionOfAllPackagesNamed.asHistorianNamed.in..st +++ /dev/null @@ -1,21 +0,0 @@ -converting history -convertUpToLoadedVersionOfAllPackagesNamed: packageNames asHistorianNamed: historianName in: aSquotRepository - - | workingCopies latestVersions repositoryGroup | - workingCopies := packageNames collect: [:packageName | - MCWorkingCopy forPackageNamed: packageName]. - latestVersions := packageNames with: workingCopies collect: [:packageName :workingCopy | - | latestVersion | - latestVersion := MCCacheRepository default versionWithInfo: workingCopy ancestors first. - self assert: latestVersion notNil description: 'latest version not in cache'. - latestVersion]. - - repositoryGroup := MCRepositoryGroup new. - (workingCopies collect: [:workingCopy | workingCopy repositoryGroup]) withoutDuplicates do: [:packageRepositoryGroup | - repositoryGroup addRepository: packageRepositoryGroup]. - - ^ self - convertMonticelloHistoryUpToAll: latestVersions - from: repositoryGroup - asNewHistorianNamed: historianName - in: aSquotRepository \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverter.class/instance/convertUpToLoadedVersionOfPackageNamed.asHistorianNamed.in..st b/src/Squot.package/SquotMonticelloConverter.class/instance/convertUpToLoadedVersionOfPackageNamed.asHistorianNamed.in..st deleted file mode 100644 index 2fc2a9227..000000000 --- a/src/Squot.package/SquotMonticelloConverter.class/instance/convertUpToLoadedVersionOfPackageNamed.asHistorianNamed.in..st +++ /dev/null @@ -1,13 +0,0 @@ -converting history -convertUpToLoadedVersionOfPackageNamed: packageName asHistorianNamed: historianName in: aSquotRepository - - | workingCopy latestVersion | - workingCopy := MCWorkingCopy forPackageNamed: packageName. - latestVersion := MCCacheRepository default versionWithInfo: workingCopy ancestors first. - self assert: latestVersion notNil description: 'latest version not in cache'. - - ^ self - convertMonticelloHistoryUpTo: latestVersion - from: workingCopy repositoryGroup - asNewHistorianNamed: historianName - in: aSquotRepository \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverter.class/instance/findAvailableBaseVersionWithInfo..st b/src/Squot.package/SquotMonticelloConverter.class/instance/findAvailableBaseVersionWithInfo..st deleted file mode 100644 index f78e8b118..000000000 --- a/src/Squot.package/SquotMonticelloConverter.class/instance/findAvailableBaseVersionWithInfo..st +++ /dev/null @@ -1,7 +0,0 @@ -private -findAvailableBaseVersionWithInfo: baseMCVersionInfo - | baseInfo baseMcVersion | - baseInfo := baseMCVersionInfo ifNil: [^ nil]. - [(baseMcVersion := monticelloRepository versionWithInfo: baseInfo) isNil] - whileTrue: [baseInfo := (baseInfo ancestors ifEmpty: [^ nil]) first]. - ^ baseMcVersion \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverter.class/instance/initialize.st b/src/Squot.package/SquotMonticelloConverter.class/instance/initialize.st deleted file mode 100644 index 58971c1c9..000000000 --- a/src/Squot.package/SquotMonticelloConverter.class/instance/initialize.st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -initialize - - versionMapFromMonticello := Dictionary new. - temporaryHistorians := OrderedCollection new. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverter.class/instance/mapMonticelloVersion.to..st b/src/Squot.package/SquotMonticelloConverter.class/instance/mapMonticelloVersion.to..st deleted file mode 100644 index e718c3a26..000000000 --- a/src/Squot.package/SquotMonticelloConverter.class/instance/mapMonticelloVersion.to..st +++ /dev/null @@ -1,3 +0,0 @@ -private -mapMonticelloVersion: aMCVersionInfo to: aSquotVersion - versionMapFromMonticello at: aMCVersionInfo put: aSquotVersion. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverter.class/instance/squotAuthorForMonticelloAuthor..st b/src/Squot.package/SquotMonticelloConverter.class/instance/squotAuthorForMonticelloAuthor..st deleted file mode 100644 index d34902157..000000000 --- a/src/Squot.package/SquotMonticelloConverter.class/instance/squotAuthorForMonticelloAuthor..st +++ /dev/null @@ -1,5 +0,0 @@ -private accessing -squotAuthorForMonticelloAuthor: aString - - ^ (self authorMap ifNil: [^ aString]) at: aString ifAbsent: [ - (KeyNotFound key: aString) signal: 'key is not in author map'] \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverter.class/instance/squotPath..st b/src/Squot.package/SquotMonticelloConverter.class/instance/squotPath..st deleted file mode 100644 index f47ab25ba..000000000 --- a/src/Squot.package/SquotMonticelloConverter.class/instance/squotPath..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -squotPath: aString - - squotPath := aString \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverter.class/instance/squotPath.st b/src/Squot.package/SquotMonticelloConverter.class/instance/squotPath.st deleted file mode 100644 index 0f84dd9a2..000000000 --- a/src/Squot.package/SquotMonticelloConverter.class/instance/squotPath.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -squotPath - - ^ squotPath \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverter.class/instance/squotPathForMonticelloPackage..st b/src/Squot.package/SquotMonticelloConverter.class/instance/squotPathForMonticelloPackage..st deleted file mode 100644 index 16143701f..000000000 --- a/src/Squot.package/SquotMonticelloConverter.class/instance/squotPathForMonticelloPackage..st +++ /dev/null @@ -1,4 +0,0 @@ -private accessing -squotPathForMonticelloPackage: aMCPackage - - ^ self squotPath ifNil: [''] \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverter.class/instance/squotVersionForMonticelloVersion..st b/src/Squot.package/SquotMonticelloConverter.class/instance/squotVersionForMonticelloVersion..st deleted file mode 100644 index e81067d87..000000000 --- a/src/Squot.package/SquotMonticelloConverter.class/instance/squotVersionForMonticelloVersion..st +++ /dev/null @@ -1,3 +0,0 @@ -private accessing -squotVersionForMonticelloVersion: aMCVersion - ^ self squotVersionForMonticelloVersionInfo: aMCVersion info \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverter.class/instance/squotVersionForMonticelloVersionInfo..st b/src/Squot.package/SquotMonticelloConverter.class/instance/squotVersionForMonticelloVersionInfo..st deleted file mode 100644 index cab699b19..000000000 --- a/src/Squot.package/SquotMonticelloConverter.class/instance/squotVersionForMonticelloVersionInfo..st +++ /dev/null @@ -1,3 +0,0 @@ -private accessing -squotVersionForMonticelloVersionInfo: aMCVersionInfo - ^ versionMapFromMonticello at: aMCVersionInfo \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverter.class/methodProperties.json b/src/Squot.package/SquotMonticelloConverter.class/methodProperties.json deleted file mode 100644 index 8bb682e65..000000000 --- a/src/Squot.package/SquotMonticelloConverter.class/methodProperties.json +++ /dev/null @@ -1,26 +0,0 @@ -{ - "class" : { - "convertUpToLoadedVersionOfAllPackagesNamed:asHistorianNamed:in:" : "ct 10/26/2021 21:54", - "convertUpToLoadedVersionOfPackageNamed:asHistorianNamed:in:" : "ct 6/13/2021 02:09:09" }, - "instance" : { - "addTemporaryHistorian:" : "ct 6/13/2021 03:19:18", - "authorMap" : "ct 6/13/2021 02:07:19", - "authorMap:" : "ct 6/13/2021 02:07:26", - "captureSquotPatchFrom:basedOnVersion:" : "jr 5/31/2017 13:37", - "captureSquotSnapshotFrom:" : "ct 6/15/2021 01:27:14", - "cleanUpTemporaryHistorians" : "ct 10/26/2021 21:57", - "convertMonticelloHistoryUpTo:from:asNewHistorianNamed:in:" : "jr 9/13/2020 22:22", - "convertMonticelloHistoryUpToAll:from:asNewHistorianNamed:in:" : "ct 9/13/2022 18:43", - "convertMonticelloVersion:" : "ct 6/13/2021 02:11:31", - "convertMonticelloVersionWithMissingSnapshot:" : "jr 6/9/2019 02:02", - "convertUpToLoadedVersionOfAllPackagesNamed:asHistorianNamed:in:" : "ct 6/13/2021 02:10:10", - "convertUpToLoadedVersionOfPackageNamed:asHistorianNamed:in:" : "ct 6/13/2021 02:09:42", - "findAvailableBaseVersionWithInfo:" : "jr 2/24/2019 11:37", - "initialize" : "ct 10/26/2021 21:50", - "mapMonticelloVersion:to:" : "jr 2/4/2017 03:14", - "squotAuthorForMonticelloAuthor:" : "ct 10/27/2021 23:44", - "squotPath" : "ct 6/13/2021 02:34:53", - "squotPath:" : "ct 6/13/2021 02:34:59", - "squotPathForMonticelloPackage:" : "ct 6/13/2021 02:35:28", - "squotVersionForMonticelloVersion:" : "jr 2/5/2017 23:38", - "squotVersionForMonticelloVersionInfo:" : "jr 2/5/2017 23:38" } } diff --git a/src/Squot.package/SquotMonticelloConverter.class/properties.json b/src/Squot.package/SquotMonticelloConverter.class/properties.json deleted file mode 100644 index 5a92d7851..000000000 --- a/src/Squot.package/SquotMonticelloConverter.class/properties.json +++ /dev/null @@ -1,19 +0,0 @@ -{ - "category" : "Squot-Monticello-Converter", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 2/4/2017 01:08", - "instvars" : [ - "monticelloRepository", - "authorMap", - "squotPath", - "squotRepository", - "versionMapFromMonticello", - "temporaryHistorians" ], - "name" : "SquotMonticelloConverter", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotMonticelloConverterTest.class/README.md b/src/Squot.package/SquotMonticelloConverterTest.class/README.md deleted file mode 100644 index f2fbcc446..000000000 --- a/src/Squot.package/SquotMonticelloConverterTest.class/README.md +++ /dev/null @@ -1,7 +0,0 @@ -I test that the Monticello converter works with a specific repository type. Subclass me for your own type of repository to check whether the converter supports it as well. - -This class uses the SquotInMemoryRepository to perform its tests. Subclasses should override #newRepository. - -Instance Variables - converter: - repository: diff --git a/src/Squot.package/SquotMonticelloConverterTest.class/instance/assertVersion.containsMethod..st b/src/Squot.package/SquotMonticelloConverterTest.class/instance/assertVersion.containsMethod..st deleted file mode 100644 index 49eaba64c..000000000 --- a/src/Squot.package/SquotMonticelloConverterTest.class/instance/assertVersion.containsMethod..st +++ /dev/null @@ -1,9 +0,0 @@ -utilities -assertVersion: aVersion containsMethod: aCompiledMethod - | artifact | - artifact := self assertVersion: aVersion containsClass: aCompiledMethod methodClass. - artifact packageArtifactDefinitions detect: [:each | each isMethodDefinition - and: [(each className = aCompiledMethod methodClass name) - and: [(each selector = aCompiledMethod selector) - and: [each source asString = aCompiledMethod getSource asString]]]] - ifNone: [self fail: 'Method not found']. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterTest.class/instance/assertVersion.doesNotContainMethod..st b/src/Squot.package/SquotMonticelloConverterTest.class/instance/assertVersion.doesNotContainMethod..st deleted file mode 100644 index dfa0618d7..000000000 --- a/src/Squot.package/SquotMonticelloConverterTest.class/instance/assertVersion.doesNotContainMethod..st +++ /dev/null @@ -1,9 +0,0 @@ -utilities -assertVersion: aVersion doesNotContainMethod: aCompiledMethod - | artifact | - artifact := self assertVersion: aVersion containsClass: aCompiledMethod methodClass. - artifact packageArtifactDefinitions detect: [:each | each isMethodDefinition - and: [(each className = aCompiledMethod methodClass name) - and: [each selector = aCompiledMethod selector]]] - ifNone: [^ self]. - self fail: 'method present, but should be absent'. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterTest.class/instance/newRepository.st b/src/Squot.package/SquotMonticelloConverterTest.class/instance/newRepository.st deleted file mode 100644 index f16f8d483..000000000 --- a/src/Squot.package/SquotMonticelloConverterTest.class/instance/newRepository.st +++ /dev/null @@ -1,3 +0,0 @@ -running -newRepository - ^ SquotInMemoryRepository new \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterTest.class/instance/performTest.st b/src/Squot.package/SquotMonticelloConverterTest.class/instance/performTest.st deleted file mode 100644 index acdd002e7..000000000 --- a/src/Squot.package/SquotMonticelloConverterTest.class/instance/performTest.st +++ /dev/null @@ -1,3 +0,0 @@ -private -performTest - ^ self suppressProgressDisplayDuring: [repository withUnitOfWork: [super performTest]] \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterTest.class/instance/setUp.st b/src/Squot.package/SquotMonticelloConverterTest.class/instance/setUp.st deleted file mode 100644 index 47d8bcae7..000000000 --- a/src/Squot.package/SquotMonticelloConverterTest.class/instance/setUp.st +++ /dev/null @@ -1,6 +0,0 @@ -running -setUp - super setUp. - - repository := self newRepository. - converter := SquotMonticelloConverter new. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterTest.class/instance/testConvertMerge.st b/src/Squot.package/SquotMonticelloConverterTest.class/instance/testConvertMerge.st deleted file mode 100644 index 72c195967..000000000 --- a/src/Squot.package/SquotMonticelloConverterTest.class/instance/testConvertMerge.st +++ /dev/null @@ -1,92 +0,0 @@ -tests -testConvertMerge - | package versionInfos first second mcSnapshots theVersions mcRepo historian testedVersion | - "given" - package := MCPackage named: #Plonk. - mcSnapshots := { - MCSnapshot fromDefinitions: { - MCClassDefinition name: #Griffle - superclassName: #Object - category: 'Plonk-Tests-Data' - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''. - MCMethodDefinition className: #Griffle - selector: 'initialize' - category: 'initialize-release' - timeStamp: 'today' - source: 'initialize'}. - MCSnapshot fromDefinitions: { - MCClassDefinition name: #Plonk - superclassName: #Object - category: 'Plonk-Tests-Data' - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''. - MCMethodDefinition className: #Plonk - selector: 'initialize' - category: 'initialize-release' - timeStamp: 'today' - source: 'initialize'}. - MCSnapshot fromDefinitions: { - MCClassDefinition name: #Plonk - superclassName: #Object - category: 'Plonk-Tests-Data' - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''. - MCMethodDefinition className: #Plonk - selector: 'initialize' - category: 'initialize-release' - timeStamp: 'today' - source: 'initialize'. - MCClassDefinition name: #Griffle - superclassName: #Object - category: 'Plonk-Tests-Data' - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''. - MCMethodDefinition className: #Griffle - selector: 'initialize' - category: 'initialize-release' - timeStamp: 'today' - source: 'initialize'}}. - versionInfos := {(first := MCVersionInfo name: 'Plonk-squot.1' id: UUID new - message: 'first' date: Date today time: Time now author: 'squot' ancestors: #()). - (second := MCVersionInfo name: 'Plonk-squit.1' id: UUID new message: 'second' - date: Date today time: Time now author: 'squit' ancestors: #()). - MCVersionInfo name: 'Plonk-squot.2' id: UUID new message: 'merge' - date: Date today time: Time now author: 'squit' ancestors: {first. second}}. - theVersions := versionInfos with: mcSnapshots collect: [:info :snapshot | - MCVersion package: package info: info snapshot: snapshot]. - mcRepo := self newMcRepository: #Plonk. - theVersions do: [:each | mcRepo storeVersion: each]. - "when" - converter convertMonticelloHistoryUpTo: theVersions last from: mcRepo - asNewHistorianNamed: 'test' in: repository. - "then" - self assert: (historian := repository historianNamed: 'test') notNil. - self assert: (testedVersion := historian version) notNil. - self assert: testedVersion message = 'merge'. - self assert: testedVersion parents size = 2. - self assertVersion: testedVersion containsClass: (PseudoClass new name: #Griffle). - self assertVersion: testedVersion containsClass: (PseudoClass new name: #Plonk). - testedVersion parents first - in: [:version | - self assert: version message = 'first'. - self assert: version parents isEmpty. - self assertVersion: version containsClass: (PseudoClass new name: #Griffle)]. - testedVersion parents second - in: [:version | - self assert: version message = 'second'. - self assert: version parents isEmpty. - self assertVersion: version containsClass: (PseudoClass new name: #Plonk)]. - \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterTest.class/instance/testConvertOneVersion.st b/src/Squot.package/SquotMonticelloConverterTest.class/instance/testConvertOneVersion.st deleted file mode 100644 index b98b6d97e..000000000 --- a/src/Squot.package/SquotMonticelloConverterTest.class/instance/testConvertOneVersion.st +++ /dev/null @@ -1,37 +0,0 @@ -tests -testConvertOneVersion - | package versionInfo mcSnapshot theVersion mcRepo historian | - "given" - package := MCPackage named: #Plonk. - mcSnapshot := MCSnapshot fromDefinitions: { - MCClassDefinition name: #Griffle - superclassName: #Object - category: 'Plonk-Tests-Data' - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''. - MCMethodDefinition className: #Griffle - selector: 'initialize' - category: 'initialize-release' - timeStamp: 'today' - source: 'initialize'}. - versionInfo := MCVersionInfo name: 'Plonk-squot.1' id: UUID new message: 'hooray' date: Date today time: Time now author: 'squot' ancestors: #(). - theVersion := MCVersion package: package info: versionInfo snapshot: mcSnapshot. - mcRepo := self newMcRepository: #Plonk. - mcRepo storeVersion: theVersion. - "when" - converter convertMonticelloHistoryUpTo: theVersion from: mcRepo - asNewHistorianNamed: 'test' in: repository. - "then" - self assert: (historian := repository historianNamed: 'test') notNil. - self assert: historian version notNil. - self assert: historian version message = 'hooray'. - self assert: historian version parents isEmpty. - self assert: 'squot' equals: (historian version metadata at: #author). - self assert: (historian version metadata at: #committer) notEmpty. - self shouldnt: [historian version metadata at: #timestamp] raise: KeyNotFound. - self assert: '' equals: (historian version metadata at: #email ifAbsent: ['']) description: 'no email address should be set because MCVersionInfo has no field for it'. - self assertVersion: historian version containsClass: (PseudoClass new name: #Griffle). - self assertVersion: historian version containsMethod: (FakeMethod new methodClassName: #Griffle; selector: #initialize; source: 'initialize'). \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterTest.class/instance/testConvertThreeVersions.st b/src/Squot.package/SquotMonticelloConverterTest.class/instance/testConvertThreeVersions.st deleted file mode 100644 index 66b5be0bf..000000000 --- a/src/Squot.package/SquotMonticelloConverterTest.class/instance/testConvertThreeVersions.st +++ /dev/null @@ -1,67 +0,0 @@ -tests -testConvertThreeVersions - | package versionInfos first second third mcSnapshots theVersions mcRepo historian testedVersion | - "given" - package := MCPackage named: #Plonk. - mcSnapshots := { - MCSnapshot fromDefinitions: { - MCClassDefinition name: #Griffle - superclassName: #Object - category: 'Plonk-Tests-Data' - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''. - MCMethodDefinition className: #Griffle - selector: 'initialize' - category: 'initialize-release' - timeStamp: 'today' - source: 'initialize'}. - MCSnapshot fromDefinitions: { - MCClassDefinition name: #Griffle - superclassName: #Object - category: 'Plonk-Tests-Data' - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''. - MCMethodDefinition className: #Griffle - selector: 'initialize' - category: 'initialize-release' - timeStamp: 'today' - source: 'initialize Transcript show: 1 + 1'}. - MCSnapshot fromDefinitions: { - MCClassDefinition name: #Griffle - superclassName: #Object - category: 'Plonk-Tests-Data' - instVarNames: #('myInstVar') - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''}}. - versionInfos := {(first := MCVersionInfo name: 'Plonk-squot.1' id: UUID new - message: 'first' date: Date today time: Time now author: 'squot' ancestors: #()). - (second := MCVersionInfo name: 'Plonk-squot.2' id: UUID new message: 'second' - date: Date today time: Time now author: 'squit' ancestors: {first}). - (third := MCVersionInfo name: 'Plonk-squot.3' id: UUID new message: 'third' - date: Date today time: Time now author: 'squot' ancestors: {second})}. - theVersions := versionInfos with: mcSnapshots collect: [:info :snapshot | - MCVersion package: package info: info snapshot: snapshot]. - mcRepo := self newMcRepository: #Plonk. - theVersions do: [:each | mcRepo storeVersion: each]. - "when" - converter convertMonticelloHistoryUpTo: theVersions last from: mcRepo - asNewHistorianNamed: 'test' in: repository. - "then" - self assert: (historian := repository historianNamed: 'test') notNil. - self assert: (testedVersion := historian version) notNil. - self assert: testedVersion message = 'third'. - self assert: testedVersion parents size = 1. - testedVersion := testedVersion parents first. - self assert: testedVersion message = 'second'. - self assert: testedVersion parents size = 1. - testedVersion := testedVersion parents first. - self assert: testedVersion message = 'first'. - self assert: testedVersion parents isEmpty. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterTest.class/instance/testConvertTwoPackages.st b/src/Squot.package/SquotMonticelloConverterTest.class/instance/testConvertTwoPackages.st deleted file mode 100644 index 2460d8e3a..000000000 --- a/src/Squot.package/SquotMonticelloConverterTest.class/instance/testConvertTwoPackages.st +++ /dev/null @@ -1,75 +0,0 @@ -tests -testConvertTwoPackages - - | package1 package2 versionInfo1 versionInfo2 mcSnapshot1 mcSnapshot2 theVersion1 theVersion2 mcRepo1 mcRepo2 mcRepoGroup historian parent1 parent2 parents | - "given" - package1 := MCPackage named: #Plonk. - package2 := MCPackage named: #Nurp. - mcSnapshot1 := MCSnapshot fromDefinitions: { - MCClassDefinition name: #Griffle - superclassName: #Object - category: 'Plonk-Tests-Data' - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''. - MCMethodDefinition className: #Griffle - selector: 'initialize' - category: 'initialize-release' - timeStamp: 'today' - source: 'initialize'}. - mcSnapshot2 := MCSnapshot fromDefinitions: { - MCClassDefinition name: #Wiffy - superclassName: #Object - category: 'Nurp-Tests-Data' - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''. - MCMethodDefinition className: #Wiffy - selector: 'initialize' - category: 'initialize-release' - timeStamp: 'today' - source: 'initialize'}. - versionInfo1 := MCVersionInfo name: 'Plonk-squot.1' id: UUID new message: 'hooray' date: Date today time: Time now author: 'squot' ancestors: #(). - versionInfo2 := MCVersionInfo name: 'Nurp-squot.1' id: UUID new message: 'Ay caramba!' date: Date today time: Time now author: 'squot' ancestors: #(). - theVersion1 := MCVersion package: package1 info: versionInfo1 snapshot: mcSnapshot1. - theVersion2 := MCVersion package: package2 info: versionInfo2 snapshot: mcSnapshot2. - mcRepo1 := self newMcRepository: #Plonk. - mcRepo2 := self newMcRepository: #Nurp. - mcRepo1 storeVersion: theVersion1. - mcRepo2 storeVersion: theVersion2. - mcRepoGroup := MCRepositoryGroup new - addRepository: mcRepo1; - addRepository: mcRepo2; - yourself. - - "when" - converter convertMonticelloHistoryUpToAll: {theVersion1. theVersion2} from: mcRepoGroup - asNewHistorianNamed: 'test' in: repository. - - "then" - self assert: (historian := repository historianNamed: 'test') notNil. - self assert: historian version notNil. - self assert: (historian version message includesSubstring: 'merge' caseSensitive: false). - self assertVersion: historian version containsClass: (PseudoClass new name: #Griffle). - self assertVersion: historian version containsMethod: (FakeMethod new methodClassName: #Griffle; selector: #initialize; source: 'initialize'). - self assertVersion: historian version containsClass: (PseudoClass new name: #Wiffy). - self assertVersion: historian version containsMethod: (FakeMethod new methodClassName: #Wiffy; selector: #initialize; source: 'initialize'). - self assert: 2 equals: (parents := historian version parents) size. - - self assert: parents first notNil. - self assert: 'hooray' equals: (parent1 := parents first) message. - self assert: parent1 parents isEmpty. - self assert: 'squot' equals: (parent1 metadata at: #author). - self assertVersion: parent1 containsClass: (PseudoClass new name: #Griffle). - self assertVersion: parent1 containsMethod: (FakeMethod new methodClassName: #Griffle; selector: #initialize; source: 'initialize'). - - self assert: parents second notNil. - self assert: 'Ay caramba!' equals: (parent2 := parents second) message. - self assert: parent2 parents isEmpty. - self assert: 'squot' equals: (parent2 metadata at: #author). - self assertVersion: parent2 containsClass: (PseudoClass new name: #Wiffy). - self assertVersion: parent2 containsMethod: (FakeMethod new methodClassName: #Wiffy; selector: #initialize; source: 'initialize'). \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterTest.class/instance/testConvertTwoVersions.st b/src/Squot.package/SquotMonticelloConverterTest.class/instance/testConvertTwoVersions.st deleted file mode 100644 index 4ff8a51e1..000000000 --- a/src/Squot.package/SquotMonticelloConverterTest.class/instance/testConvertTwoVersions.st +++ /dev/null @@ -1,63 +0,0 @@ -tests -testConvertTwoVersions - | package versionInfos first mcSnapshots theVersions mcRepo historian testedVersion | - "given" - package := MCPackage named: #Plonk. - mcSnapshots := { - MCSnapshot fromDefinitions: { - MCClassDefinition name: #Griffle - superclassName: #Object - category: 'Plonk-Tests-Data' - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''. - MCMethodDefinition className: #Griffle - selector: 'initialize' - category: 'initialize-release' - timeStamp: 'today' - source: 'initialize'}. - MCSnapshot fromDefinitions: { - MCClassDefinition name: #Griffle - superclassName: #Object - category: 'Plonk-Tests-Data' - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''. - MCMethodDefinition className: #Griffle - selector: 'initialize' - category: 'initialize-release' - timeStamp: 'today' - source: 'initialize Transcript show: 1 + 1'}}. - versionInfos := {(first := MCVersionInfo name: 'Plonk-squot.1' id: UUID new - message: 'hooray' date: Date today time: Time now author: 'squot' ancestors: #()). - MCVersionInfo name: 'Plonk-squot.2' id: UUID new message: 'next' - date: Date today time: Time now author: 'squit' ancestors: {first}}. - theVersions := versionInfos with: mcSnapshots collect: [:info :snapshot | - MCVersion package: package info: info snapshot: snapshot]. - mcRepo := self newMcRepository: #Plonk. - theVersions do: [:each | mcRepo storeVersion: each]. - "when" - converter convertMonticelloHistoryUpTo: theVersions last from: mcRepo - asNewHistorianNamed: 'test' in: repository. - "then" - self assert: (historian := repository historianNamed: 'test') notNil. - self assert: (testedVersion := historian version) notNil. - self assert: testedVersion message = 'next'. - self assert: testedVersion parents size = 1. - self assert: (testedVersion metadata at: #author) = 'squit'. - self assert: (testedVersion metadata at: #committer) notEmpty. - self shouldnt: [testedVersion metadata at: #timestamp] raise: KeyNotFound. - self assertVersion: testedVersion containsClass: (PseudoClass new name: #Griffle). - self assertVersion: testedVersion containsMethod: (FakeMethod new methodClassName: #Griffle; selector: #initialize; source: 'initialize Transcript show: 1 + 1'). - testedVersion := testedVersion parents first. - self assert: testedVersion message = 'hooray'. - self assert: testedVersion parents isEmpty. - self assert: (testedVersion metadata at: #author) = 'squot'. - self assert: (testedVersion metadata at: #committer) notEmpty. - self shouldnt: [testedVersion metadata at: #timestamp] raise: KeyNotFound. - self assertVersion: testedVersion containsClass: (PseudoClass new name: #Griffle). - self assertVersion: testedVersion containsMethod: (FakeMethod new methodClassName: #Griffle; selector: #initialize; source: 'initialize'). \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterTest.class/instance/testConvertVersionsWithRemoval.st b/src/Squot.package/SquotMonticelloConverterTest.class/instance/testConvertVersionsWithRemoval.st deleted file mode 100644 index d1705200c..000000000 --- a/src/Squot.package/SquotMonticelloConverterTest.class/instance/testConvertVersionsWithRemoval.st +++ /dev/null @@ -1,50 +0,0 @@ -tests -testConvertVersionsWithRemoval - | package versionInfos first mcSnapshots theVersions mcRepo historian testedVersion | - "given" - package := MCPackage named: #Plonk. - mcSnapshots := { - MCSnapshot fromDefinitions: { - MCClassDefinition name: #Griffle - superclassName: #Object - category: 'Plonk-Tests-Data' - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''. - MCMethodDefinition className: #Griffle - selector: 'initialize' - category: 'initialize-release' - timeStamp: 'today' - source: 'initialize'}. - MCSnapshot fromDefinitions: { - MCClassDefinition name: #Griffle - superclassName: #Object - category: 'Plonk-Tests-Data' - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''}}. - versionInfos := {(first := MCVersionInfo name: 'Plonk-squot.1' id: UUID new - message: 'first' date: Date today time: Time now author: 'squot' ancestors: #()). - MCVersionInfo name: 'Plonk-squot.2' id: UUID new message: 'second' - date: Date today time: Time now author: 'squit' ancestors: {first}}. - theVersions := versionInfos with: mcSnapshots collect: [:info :snapshot | - MCVersion package: package info: info snapshot: snapshot]. - mcRepo := self newMcRepository: #Plonk. - theVersions do: [:each | mcRepo storeVersion: each]. - "when" - converter convertMonticelloHistoryUpTo: theVersions last from: mcRepo - asNewHistorianNamed: 'test' in: repository. - "then" - self assert: (historian := repository historianNamed: 'test') notNil. - self assert: (testedVersion := historian version) notNil. - self assert: testedVersion message = 'second'. - self assertVersion: testedVersion containsClass: (PseudoClass new name: #Griffle). - self assertVersion: testedVersion doesNotContainMethod: (FakeMethod new methodClassName: #Griffle; selector: #initialize). - testedVersion := testedVersion parents first. - self assert: testedVersion message = 'first'. - self assertVersion: testedVersion containsClass: (PseudoClass new name: #Griffle). - self assertVersion: testedVersion containsMethod: (FakeMethod new methodClassName: #Griffle; selector: #initialize; source: 'initialize'). \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterTest.class/instance/testDeletionsAgainstMissingVersion.st b/src/Squot.package/SquotMonticelloConverterTest.class/instance/testDeletionsAgainstMissingVersion.st deleted file mode 100644 index 122e12c72..000000000 --- a/src/Squot.package/SquotMonticelloConverterTest.class/instance/testDeletionsAgainstMissingVersion.st +++ /dev/null @@ -1,47 +0,0 @@ -tests -testDeletionsAgainstMissingVersion - "When a version deletes classes and its parent version cannot be found in the repository, - the deletions must still occur. There was a bug preventing that and the files remained." - | package versionInfos first second third mcSnapshots theVersions mcRepo historian testedVersion firstSnapshot monticelloDifference packageArtifact | - "given" - package := MCPackage named: #Plonk. - mcSnapshots := { - firstSnapshot := MCSnapshot fromDefinitions: { - MCClassDefinition name: #Griffle - superclassName: #Object - category: 'Plonk-Tests-Data' - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''}. - (MCPatcher - apply: (MCPatch operations: - {MCAddition of: - (MCMethodDefinition className: #Griffle - selector: 'math' - category: 'to be deleted' - timeStamp: 'today' - source: 'math Transcript show: 1 + 1')}) - to: firstSnapshot). - MCSnapshot empty}. - versionInfos := {(first := MCVersionInfo name: 'Plonk-squot.1' id: UUID new - message: 'first' date: Date today time: Time now author: 'squot' ancestors: #()). - (second := MCVersionInfo name: 'Plonk-squot.2' id: UUID new message: 'second' - date: Date today time: Time now author: 'squit' ancestors: {first}). - (third := MCVersionInfo name: 'Plonk-squot.3' id: UUID new message: 'third' - date: Date today time: Time now author: 'squot' ancestors: {second})}. - theVersions := versionInfos with: mcSnapshots collect: [:info :snapshot | - MCVersion package: package info: info snapshot: snapshot]. - mcRepo := self newMcRepository: #Plonk. - {theVersions first. theVersions third} do: [:each | mcRepo storeVersion: each]. - "when" - converter convertMonticelloHistoryUpTo: theVersions last from: mcRepo - asNewHistorianNamed: 'test' in: repository. - "then" - historian := repository historianNamed: 'test'. - testedVersion := historian version. - packageArtifact := testedVersion snapshot artifactAt: 'Plonk.package'. - monticelloDifference := packageArtifact shadowOfTrackedObject asMCSnapshot - patchRelativeToBase: theVersions last snapshot. - self assert: monticelloDifference isEmpty description: 'there should be no difference'. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterTest.class/methodProperties.json b/src/Squot.package/SquotMonticelloConverterTest.class/methodProperties.json deleted file mode 100644 index 187b15b12..000000000 --- a/src/Squot.package/SquotMonticelloConverterTest.class/methodProperties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "assertVersion:containsMethod:" : "jr 7/21/2017 11:52", - "assertVersion:doesNotContainMethod:" : "jr 7/21/2017 11:52", - "newRepository" : "jr 2/5/2017 23:47", - "performTest" : "jr 3/3/2020 23:26", - "setUp" : "ct 10/28/2021 08:20", - "testConvertMerge" : "ct 10/28/2021 00:16", - "testConvertOneVersion" : "ct 10/28/2021 00:16", - "testConvertThreeVersions" : "ct 10/28/2021 00:16", - "testConvertTwoPackages" : "ct 10/28/2021 00:15", - "testConvertTwoVersions" : "ct 10/28/2021 00:17", - "testConvertVersionsWithRemoval" : "ct 10/28/2021 00:17", - "testDeletionsAgainstMissingVersion" : "ct 10/28/2021 00:17" } } diff --git a/src/Squot.package/SquotMonticelloConverterTest.class/properties.json b/src/Squot.package/SquotMonticelloConverterTest.class/properties.json deleted file mode 100644 index 3ba814034..000000000 --- a/src/Squot.package/SquotMonticelloConverterTest.class/properties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "category" : "Squot-Tests-Monticello-Converter", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSnapshotAssertionsForMonticello classTrait + TTestCaseSuppressingProgressDisplay classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 20:40", - "instvars" : [ - "converter", - "repository" ], - "name" : "SquotMonticelloConverterTest", - "pools" : [ - ], - "super" : "AbstractSquotMonticelloConverterTest", - "traitcomposition" : "TSnapshotAssertionsForMonticello + TTestCaseSuppressingProgressDisplay", - "type" : "normal" } diff --git a/src/Squot.package/SquotMonticelloConverterVerifier.class/README.md b/src/Squot.package/SquotMonticelloConverterVerifier.class/README.md deleted file mode 100644 index 40ffc4dc4..000000000 --- a/src/Squot.package/SquotMonticelloConverterVerifier.class/README.md +++ /dev/null @@ -1,10 +0,0 @@ -I verify that the output of SquotMonticelloConverter accurately reproduces its input. - -Instance Variables - historian: - mcPackage: - missingMCVersions: - monticelloRepository: - pendingMCVersions: - pendingVersions: - squotRepository: diff --git a/src/Squot.package/SquotMonticelloConverterVerifier.class/class/verifyVersionsOf.ofLoadedPackageNamed..st b/src/Squot.package/SquotMonticelloConverterVerifier.class/class/verifyVersionsOf.ofLoadedPackageNamed..st deleted file mode 100644 index 3bd682991..000000000 --- a/src/Squot.package/SquotMonticelloConverterVerifier.class/class/verifyVersionsOf.ofLoadedPackageNamed..st +++ /dev/null @@ -1,10 +0,0 @@ -as yet unclassified -verifyVersionsOf: aHistorian ofLoadedPackageNamed: packageName - | workingCopy latestVersion | - workingCopy := MCWorkingCopy forPackageNamed: packageName. - latestVersion := MCCacheRepository default versionWithInfo: workingCopy ancestors first. - self assert: latestVersion notNil description: 'latest version not in cache'. - ^ self new - verify: aHistorian - hasCorrectConversionsUpTo: latestVersion - whichComesFrom: workingCopy repositoryGroup \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterVerifier.class/instance/countVersions..st b/src/Squot.package/SquotMonticelloConverterVerifier.class/instance/countVersions..st deleted file mode 100644 index 81f9cdbbe..000000000 --- a/src/Squot.package/SquotMonticelloConverterVerifier.class/instance/countVersions..st +++ /dev/null @@ -1,10 +0,0 @@ -as yet unclassified -countVersions: aHistorian - | count pending | - pending := OrderedCollection new. - pending add: aHistorian version. - count := 0. - [pending notEmpty] - whileTrue: [pending addAll: pending removeFirst parents. - count := count + 1]. - ^ count \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterVerifier.class/instance/findPackageIn..st b/src/Squot.package/SquotMonticelloConverterVerifier.class/instance/findPackageIn..st deleted file mode 100644 index 64908ab8c..000000000 --- a/src/Squot.package/SquotMonticelloConverterVerifier.class/instance/findPackageIn..st +++ /dev/null @@ -1,8 +0,0 @@ -as yet unclassified -findPackageIn: aSnapshot - (aSnapshot artifactAt: mcPackage name, '.package') - in: [:artifact | ^ artifact]. - "aSnapshot - artifactsDo: [:each | (each path endsWith: mcPackage name, '.package') - ifTrue: [^ each]]." - SquotMonticelloConversionProblem signal: 'Cannot find package in snapshot'. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterVerifier.class/instance/initialize.st b/src/Squot.package/SquotMonticelloConverterVerifier.class/instance/initialize.st deleted file mode 100644 index 3dbe57e99..000000000 --- a/src/Squot.package/SquotMonticelloConverterVerifier.class/instance/initialize.st +++ /dev/null @@ -1,5 +0,0 @@ -as yet unclassified -initialize - pendingVersions := OrderedCollection new. - pendingMCVersions := OrderedCollection new. - missingMCVersions := Set new. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterVerifier.class/instance/pushAncestorsOfMCVersionInfo..st b/src/Squot.package/SquotMonticelloConverterVerifier.class/instance/pushAncestorsOfMCVersionInfo..st deleted file mode 100644 index b80795fd6..000000000 --- a/src/Squot.package/SquotMonticelloConverterVerifier.class/instance/pushAncestorsOfMCVersionInfo..st +++ /dev/null @@ -1,9 +0,0 @@ -as yet unclassified -pushAncestorsOfMCVersionInfo: aMCVersionInfo - pendingMCVersions - addAll: (aMCVersionInfo ancestors - gather: [:each | (monticelloRepository versionWithInfo: each) - ifNil: ["skip it" missingMCVersions add: each. - self pushAncestorsOfMCVersionInfo: each. - Array empty] - ifNotNil: [:it | Array with: it]]) \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterVerifier.class/instance/verify..st b/src/Squot.package/SquotMonticelloConverterVerifier.class/instance/verify..st deleted file mode 100644 index fbd1dc8c7..000000000 --- a/src/Squot.package/SquotMonticelloConverterVerifier.class/instance/verify..st +++ /dev/null @@ -1,17 +0,0 @@ -as yet unclassified -verify: aVersion - | originMCVersion missingVersionInfo | - [originMCVersion := pendingMCVersions - detect: [:each | each info message withoutLineEndings = aVersion message withoutLineEndings] - ifNone: [missingVersionInfo := missingMCVersions - detect: [:each | each message withoutLineEndings = aVersion message withoutLineEndings] - ifNone: [SquotMonticelloConversionProblem signal: 'Bogus version message or ancestry'. - ^ self]. - self flag: #hack. "the ensure block needs originMCVersion, so fake one" - originMCVersion := FakeMCVersion new info: missingVersionInfo; yourself. - ^ self "skip snapshot comparison, since we have no snapshot to check against"]. - pendingMCVersions remove: originMCVersion ifAbsent: []. - self verify: aVersion matches: originMCVersion.] - ensure: [pendingVersions addAll: aVersion parents. - originMCVersion - ifNotNil: [self pushAncestorsOfMCVersionInfo: originMCVersion info]]. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterVerifier.class/instance/verify.hasCorrectConversionsUpTo.whichComesFrom..st b/src/Squot.package/SquotMonticelloConverterVerifier.class/instance/verify.hasCorrectConversionsUpTo.whichComesFrom..st deleted file mode 100644 index 110eae62f..000000000 --- a/src/Squot.package/SquotMonticelloConverterVerifier.class/instance/verify.hasCorrectConversionsUpTo.whichComesFrom..st +++ /dev/null @@ -1,15 +0,0 @@ -as yet unclassified -verify: aHistorian hasCorrectConversionsUpTo: aMCVersion whichComesFrom: aMCRepository - historian := aHistorian. - squotRepository := historian repository. - monticelloRepository := aMCRepository. - pendingVersions add: historian version. - pendingMCVersions add: aMCVersion. - mcPackage := aMCVersion package. - monticelloRepository cacheAllFileNamesDuring: - [SquotProgress display: 'Verifying ' during: - [:progress | progress totalSteps: (self countVersions: historian). - [pendingVersions notEmpty] - whileTrue: [ | nextVersion | nextVersion := pendingVersions removeFirst. - progress stepWithText: (nextVersion printStringLimitedTo: 100). - self verify: nextVersion]]]. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterVerifier.class/instance/verify.matches..st b/src/Squot.package/SquotMonticelloConverterVerifier.class/instance/verify.matches..st deleted file mode 100644 index b5e37f40c..000000000 --- a/src/Squot.package/SquotMonticelloConverterVerifier.class/instance/verify.matches..st +++ /dev/null @@ -1,21 +0,0 @@ -as yet unclassified -verify: aVersion matches: aMCVersion - | artifactSnapshot mcSnapshot mcTraits packageArtifact patch | - packageArtifact := self findPackageIn: aVersion snapshot. - mcSnapshot := aMCVersion snapshot. - "Monticello fails to store trait comments, so ignore them here." - mcTraits := (mcSnapshot definitions - select: [:each | (each isKindOf: MCTraitDefinition) and: [each comment isEmpty]]) - collect: [:each | each className] as: Set. - artifactSnapshot := MCSnapshot - fromDefinitions: (packageArtifact packageArtifactDefinitions - collect: [:each | - ((each isKindOf: MCTraitDefinition) and: [mcTraits includes: each className]) - ifTrue: [each copy instVarNamed: 'comment' put: ''; yourself] - ifFalse: [each]] - as: aMCVersion snapshot definitions species). - (patch := artifactSnapshot patchRelativeToBase: mcSnapshot) isEmpty - ifFalse: - [SquotMonticelloSnapshotsNotEqual - signalMismatchBetween: aVersion and: aMCVersion - artifact: packageArtifact withMonticelloSnapshot: artifactSnapshot] \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterVerifier.class/methodProperties.json b/src/Squot.package/SquotMonticelloConverterVerifier.class/methodProperties.json deleted file mode 100644 index 6dead4100..000000000 --- a/src/Squot.package/SquotMonticelloConverterVerifier.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - "verifyVersionsOf:ofLoadedPackageNamed:" : "jr 2/21/2017 14:47" }, - "instance" : { - "countVersions:" : "jr 2/11/2017 14:52", - "findPackageIn:" : "jr 2/9/2017 20:37", - "initialize" : "jr 2/11/2017 03:49", - "pushAncestorsOfMCVersionInfo:" : "jr 2/11/2017 04:06", - "verify:" : "jr 2/25/2017 17:48", - "verify:hasCorrectConversionsUpTo:whichComesFrom:" : "jr 9/13/2020 22:08", - "verify:matches:" : "jr 2/24/2019 00:22" } } diff --git a/src/Squot.package/SquotMonticelloConverterVerifier.class/properties.json b/src/Squot.package/SquotMonticelloConverterVerifier.class/properties.json deleted file mode 100644 index 51904a004..000000000 --- a/src/Squot.package/SquotMonticelloConverterVerifier.class/properties.json +++ /dev/null @@ -1,20 +0,0 @@ -{ - "category" : "Squot-Monticello-Converter", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 19:55", - "instvars" : [ - "squotRepository", - "monticelloRepository", - "historian", - "pendingVersions", - "pendingMCVersions", - "mcPackage", - "missingMCVersions" ], - "name" : "SquotMonticelloConverterVerifier", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/README.md b/src/Squot.package/SquotMonticelloConverterVerifierTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/newRepository.st b/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/newRepository.st deleted file mode 100644 index f16f8d483..000000000 --- a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/newRepository.st +++ /dev/null @@ -1,3 +0,0 @@ -running -newRepository - ^ SquotInMemoryRepository new \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/setUp.st b/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/setUp.st deleted file mode 100644 index 4d3381097..000000000 --- a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/setUp.st +++ /dev/null @@ -1,7 +0,0 @@ -running -setUp - super setUp. - - repository := self newRepository. - verifier := SquotMonticelloConverterVerifier new. - classFactory := ClassFactoryForTestCase new. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/tearDown.st b/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/tearDown.st deleted file mode 100644 index 6c9013208..000000000 --- a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/tearDown.st +++ /dev/null @@ -1,3 +0,0 @@ -running -tearDown - [classFactory cleanUp] ensure: [super tearDown] \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testAcceptsCorrectConversion.st b/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testAcceptsCorrectConversion.st deleted file mode 100644 index 70ad282c4..000000000 --- a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testAcceptsCorrectConversion.st +++ /dev/null @@ -1,32 +0,0 @@ -tests -testAcceptsCorrectConversion - | package versionInfo mcSnapshot theVersion mcRepo snapshot squotVersion historian | - "given" - package := MCPackage named: classFactory packageName. - mcSnapshot := MCSnapshot fromDefinitions: { - MCClassDefinition name: #Griffle - superclassName: #Object - category: package name, '-Tests-Data' - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''. - MCMethodDefinition className: #Griffle - selector: 'initialize' - category: 'initialize-release' - timeStamp: 'today' - source: 'initialize'}. - versionInfo := MCVersionInfo name: package name, '-squot.1' id: UUID new message: 'hooray' date: Date today time: Time now author: 'squot' ancestors: #(). - theVersion := MCVersion package: package info: versionInfo snapshot: mcSnapshot. - mcRepo := self newMcRepository: classFactory packageName. - mcRepo storeVersion: theVersion. - snapshot := SquotSnapshot builder - add: (mcSnapshot asSquotArtifactForPackage: package packageInfo); - buildSnapshot. - squotVersion := repository createNewVersion: snapshot - with: [:version | version message: 'hooray'; author: 'squot'; - timestamp: versionInfo timeStamp; parents: #()]. - historian := repository newHistorian: 'test' version: squotVersion. - - self shouldnt: [verifier verify: historian hasCorrectConversionsUpTo: theVersion whichComesFrom: mcRepo] raise: SquotMonticelloConversionProblem. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testAcceptsCorrectConversionWithMultipleVersions.st b/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testAcceptsCorrectConversionWithMultipleVersions.st deleted file mode 100644 index e571b8d72..000000000 --- a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testAcceptsCorrectConversionWithMultipleVersions.st +++ /dev/null @@ -1,56 +0,0 @@ -tests -testAcceptsCorrectConversionWithMultipleVersions - | package versionInfos first mcSnapshots theVersions mcRepo snapshots squotVersions previous historian | - "given" - package := MCPackage named: classFactory packageName. - mcSnapshots := { - MCSnapshot fromDefinitions: { - MCClassDefinition name: #Griffle - superclassName: #Object - category: package name, '-Tests-Data' - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''. - MCMethodDefinition className: #Griffle - selector: 'initialize' - category: 'initialize-release' - timeStamp: 'today' - source: 'initialize'}. - MCSnapshot fromDefinitions: { - MCClassDefinition name: #Griffle - superclassName: #Object - category: package name, '-Tests-Data' - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''. - MCMethodDefinition className: #Griffle - selector: 'initialize' - category: 'initialize-release' - timeStamp: 'today' - source: 'initialize Transcript show: 1 + 1'}}. - versionInfos := {(first := MCVersionInfo name: package name, '-squot.1' id: UUID new - message: 'hooray' date: Date today time: Time now author: 'squot' ancestors: #()). - MCVersionInfo name: package name, '-squot.2' id: UUID new message: 'next' - date: Date today time: Time now author: 'squit' ancestors: {first}}. - theVersions := versionInfos with: mcSnapshots collect: [:info :snapshot | - MCVersion package: package info: info snapshot: snapshot]. - mcRepo := self newMcRepository: classFactory packageName. - theVersions do: [:each | mcRepo storeVersion: each]. - snapshots := mcSnapshots collect: [:each | SquotSnapshot builder - add: (each asSquotArtifactForPackage: package packageInfo); - buildSnapshot]. - previous := nil. - squotVersions := versionInfos - with: snapshots - collect: [:versionInfo :snapshot | previous := repository - createNewVersion: snapshot - with: [:version | version message: versionInfo message; - author: versionInfo author; timestamp: versionInfo timeStamp; - parents: (previous ifNil: [#()] ifNotNil: [Array with: previous])]]. - historian := repository newHistorian: 'test' version: squotVersions last. - - self shouldnt: [verifier verify: historian hasCorrectConversionsUpTo: theVersions last whichComesFrom: mcRepo] raise: SquotMonticelloConversionProblem. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testCanHandleMissingMCVersions.st b/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testCanHandleMissingMCVersions.st deleted file mode 100644 index 6efd8f802..000000000 --- a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testCanHandleMissingMCVersions.st +++ /dev/null @@ -1,57 +0,0 @@ -tests -testCanHandleMissingMCVersions - | package versionInfos first second mcSnapshots theVersions mcRepo snapshots squotVersions previous historian | - "given" - package := MCPackage named: classFactory packageName. - mcSnapshots := { - MCSnapshot fromDefinitions: { - MCClassDefinition name: #Griffle - superclassName: #Object - category: package name, '-Tests-Data' - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''}. - MCSnapshot fromDefinitions: { - MCClassDefinition name: #Griffle - superclassName: #Object - category: package name, '-Tests-Data' - instVarNames: #(a) - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''}. - MCSnapshot fromDefinitions: { - MCClassDefinition name: #Griffle - superclassName: #Object - category: package name, '-Tests-Data' - instVarNames: #(a b) - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''}}. - versionInfos := {(first := MCVersionInfo name: package name, '-squot.1' id: UUID new - message: 'first' date: Date today time: Time now author: 'squot' ancestors: #()). - (second := MCVersionInfo name: package name, '-squit.2' id: UUID new message: 'second' - date: Date today time: Time now author: 'squit' ancestors: {first}). - MCVersionInfo name: package name, '-squit.3' id: UUID new message: 'third' - date: Date today time: Time now author: 'squit' ancestors: {second}}. - theVersions := versionInfos with: mcSnapshots collect: [:info :snapshot | - MCVersion package: package info: info snapshot: snapshot]. - mcRepo := self newMcRepository: classFactory packageName. - (theVersions copyWithout: theVersions second) do: [:each | mcRepo storeVersion: each]. - snapshots := mcSnapshots collect: [:each | SquotSnapshot builder - add: (each asSquotArtifactForPackage: package packageInfo); - buildSnapshot]. - previous := nil. - squotVersions := versionInfos - with: snapshots - collect: [:versionInfo :snapshot | previous := repository - createNewVersion: snapshot - with: [:version | version message: versionInfo message; - author: versionInfo author; timestamp: versionInfo timeStamp; - parents: (previous ifNil: [#()] ifNotNil: [Array with: previous])]]. - historian := repository newHistorian: 'test' version: squotVersions last. - - self shouldnt: [verifier verify: historian hasCorrectConversionsUpTo: theVersions last whichComesFrom: mcRepo] raise: SquotMonticelloConversionProblem, Error. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testDetectsBogusClass.st b/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testDetectsBogusClass.st deleted file mode 100644 index 396a7668e..000000000 --- a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testDetectsBogusClass.st +++ /dev/null @@ -1,36 +0,0 @@ -tests -testDetectsBogusClass - | package versionInfo mcSnapshot theVersion mcRepo historian snapshot squotVersion | - "given" - package := MCPackage named: classFactory packageName. - mcSnapshot := MCSnapshot fromDefinitions: { - MCClassDefinition name: #Griffle - superclassName: #Object - category: package name, '-Tests-Data' - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''}. - versionInfo := MCVersionInfo name: package name, '-squot.1' id: UUID new message: 'hooray' date: Date today time: Time now author: 'squot' ancestors: #(). - theVersion := MCVersion package: package info: versionInfo snapshot: mcSnapshot. - mcRepo := self newMcRepository: classFactory packageName. - mcRepo storeVersion: theVersion. - snapshot := SquotSnapshot builder - add: ((MCSnapshot - fromDefinitions: {MCClassDefinition name: #Griffle - superclassName: #Object - category: package name, '-Tests-Data-Whoops' "<-- here be difference" - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''}) - asSquotArtifactForPackage: package packageInfo); - buildSnapshot. - squotVersion := repository createNewVersion: snapshot - with: [:version | version message: 'hooray'; author: 'squot'; - timestamp: versionInfo timeStamp; parents: #()]. - historian := repository newHistorian: 'test' version: squotVersion. - "when" - self should: [verifier verify: historian hasCorrectConversionsUpTo: theVersion whichComesFrom: mcRepo] raise: SquotMonticelloConversionProblem. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testDetectsBogusMethod.st b/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testDetectsBogusMethod.st deleted file mode 100644 index cc9009dfe..000000000 --- a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testDetectsBogusMethod.st +++ /dev/null @@ -1,38 +0,0 @@ -tests -testDetectsBogusMethod - | package versionInfo mcSnapshot theVersion mcRepo historian snapshot squotVersion | - "given" - package := MCPackage named: classFactory packageName. - mcSnapshot := MCSnapshot fromDefinitions: { - MCClassDefinition name: #Griffle - superclassName: #Object - category: package name, '-Tests-Data' - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''. - MCMethodDefinition className: #Griffle - selector: 'initialize' - category: 'initialize-release' - timeStamp: 'today' - source: 'initialize'}. - versionInfo := MCVersionInfo name: package name, '-squot.1' id: UUID new message: 'hooray' date: Date today time: Time now author: 'squot' ancestors: #(). - theVersion := MCVersion package: package info: versionInfo snapshot: mcSnapshot. - mcRepo := self newMcRepository: classFactory packageName. - mcRepo storeVersion: theVersion. - snapshot := SquotSnapshot builder - add: ((MCSnapshot fromDefinitions: mcSnapshot definitions allButLast, - {MCMethodDefinition className: #Griffle - selector: 'initialize' - category: 'nil' "<-- here be difference" - timeStamp: 'today' - source: 'initialize'}) - asSquotArtifactForPackage: package packageInfo); - buildSnapshot. - squotVersion := repository createNewVersion: snapshot - with: [:version | version message: 'hooray'; author: 'squot'; - timestamp: versionInfo timeStamp; parents: #()]. - historian := repository newHistorian: 'test' version: squotVersion. - "when" - self should: [verifier verify: historian hasCorrectConversionsUpTo: theVersion whichComesFrom: mcRepo] raise: SquotMonticelloConversionProblem. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testDetectsBogusTrait.st b/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testDetectsBogusTrait.st deleted file mode 100644 index ea8142481..000000000 --- a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testDetectsBogusTrait.st +++ /dev/null @@ -1,30 +0,0 @@ -tests -testDetectsBogusTrait - | package versionInfo mcSnapshot theVersion mcRepo historian snapshot squotVersion | - "given" - package := MCPackage named: classFactory packageName. - mcSnapshot := MCSnapshot - fromDefinitions: {MCTraitDefinition name: #Griffle - traitComposition: '' - category: package name, '-Tests-Data' - comment: 'I am very useful, maybe.' - commentStamp: ''}. - versionInfo := MCVersionInfo name: package name, '-squot.1' id: UUID new message: 'hooray' date: Date today time: Time now author: 'squot' ancestors: #(). - theVersion := MCVersion package: package info: versionInfo snapshot: mcSnapshot. - mcRepo := self newMcRepository: classFactory packageName. - mcRepo storeVersion: theVersion. - snapshot := SquotSnapshot builder - add: ((MCSnapshot - fromDefinitions: {MCTraitDefinition name: #Griffle - traitComposition: '' - category: package name, '-Tests-Data' - comment: '' "<-- here be difference" - commentStamp: ''}) - asSquotArtifactForPackage: package packageInfo); - buildSnapshot. - squotVersion := repository createNewVersion: snapshot - with: [:version | version message: 'hooray'; author: 'squot'; - timestamp: versionInfo timeStamp; parents: #()]. - historian := repository newHistorian: 'test' version: squotVersion. - "when" - self should: [verifier verify: historian hasCorrectConversionsUpTo: theVersion whichComesFrom: mcRepo] raise: SquotMonticelloConversionProblem. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testDetectsMissingClass.st b/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testDetectsMissingClass.st deleted file mode 100644 index ce7bee420..000000000 --- a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testDetectsMissingClass.st +++ /dev/null @@ -1,36 +0,0 @@ -tests -testDetectsMissingClass - | package versionInfo mcSnapshot theVersion mcRepo historian snapshot squotVersion | - "given" - package := MCPackage named: classFactory packageName. - mcSnapshot := MCSnapshot fromDefinitions: { - MCClassDefinition name: #Griffle - superclassName: #Object - category: package name, '-Tests-Data' - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''. - MCClassDefinition name: #ClassThatIsGoingToBeMissing - superclassName: #Object - category: package name, '-Tests-Data' - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''}. - versionInfo := MCVersionInfo name: package name, '-squot.1' id: UUID new message: 'hooray' date: Date today time: Time now author: 'squot' ancestors: #(). - theVersion := MCVersion package: package info: versionInfo snapshot: mcSnapshot. - mcRepo := self newMcRepository: classFactory packageName. - mcRepo storeVersion: theVersion. - snapshot := SquotSnapshot builder - add: ((MCSnapshot fromDefinitions: mcSnapshot definitions allButLast) - asSquotArtifactForPackage: package packageInfo); - buildSnapshot. - squotVersion := repository createNewVersion: snapshot - with: [:version | version message: 'hooray'; author: 'squot'; - timestamp: versionInfo timeStamp; parents: #()]. - historian := repository newHistorian: 'test' version: squotVersion. - "when" - self should: [verifier verify: historian hasCorrectConversionsUpTo: theVersion whichComesFrom: mcRepo] raise: SquotMonticelloConversionProblem. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testDetectsMissingMethod.st b/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testDetectsMissingMethod.st deleted file mode 100644 index 7ca57b219..000000000 --- a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testDetectsMissingMethod.st +++ /dev/null @@ -1,33 +0,0 @@ -tests -testDetectsMissingMethod - | package versionInfo mcSnapshot theVersion mcRepo historian snapshot squotVersion | - "given" - package := MCPackage named: classFactory packageName. - mcSnapshot := MCSnapshot fromDefinitions: { - MCClassDefinition name: #Griffle - superclassName: #Object - category: package name, '-Tests-Data' - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - comment: ''. - MCMethodDefinition className: #Griffle - selector: 'initialize' - category: 'initialize-release' - timeStamp: 'today' - source: 'initialize'}. - versionInfo := MCVersionInfo name: package name, '-squot.1' id: UUID new message: 'hooray' date: Date today time: Time now author: 'squot' ancestors: #(). - theVersion := MCVersion package: package info: versionInfo snapshot: mcSnapshot. - mcRepo := self newMcRepository: classFactory packageName. - mcRepo storeVersion: theVersion. - snapshot := SquotSnapshot builder - add: ((MCSnapshot fromDefinitions: mcSnapshot definitions allButLast) - asSquotArtifactForPackage: package packageInfo); - buildSnapshot. - squotVersion := repository createNewVersion: snapshot - with: [:version | version message: 'hooray'; author: 'squot'; - timestamp: versionInfo timeStamp; parents: #()]. - historian := repository newHistorian: 'test' version: squotVersion. - "when" - self should: [verifier verify: historian hasCorrectConversionsUpTo: theVersion whichComesFrom: mcRepo] raise: SquotMonticelloConversionProblem. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testDetectsMissingTrait.st b/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testDetectsMissingTrait.st deleted file mode 100644 index 3ac5e7fa8..000000000 --- a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testDetectsMissingTrait.st +++ /dev/null @@ -1,30 +0,0 @@ -tests -testDetectsMissingTrait - | package versionInfo mcSnapshot theVersion mcRepo historian snapshot squotVersion | - "given" - package := MCPackage named: classFactory packageName. - mcSnapshot := MCSnapshot fromDefinitions: { - MCTraitDefinition name: #Griffle - traitComposition: '' - category: package name, '-Tests-Data' - comment: '' - commentStamp: ''. - MCTraitDefinition name: #TraitThatIsGoingToBeMissing - traitComposition: '' - category: package name, '-Tests-Data' - comment: '' - commentStamp: ''}. - versionInfo := MCVersionInfo name: package name, '-squot.1' id: UUID new message: 'hooray' date: Date today time: Time now author: 'squot' ancestors: #(). - theVersion := MCVersion package: package info: versionInfo snapshot: mcSnapshot. - mcRepo := self newMcRepository: classFactory packageName. - mcRepo storeVersion: theVersion. - snapshot := SquotSnapshot builder - add: ((MCSnapshot fromDefinitions: mcSnapshot definitions allButLast) - asSquotArtifactForPackage: package packageInfo); - buildSnapshot. - squotVersion := repository createNewVersion: snapshot - with: [:version | version message: 'hooray'; author: 'squot'; - timestamp: versionInfo timeStamp; parents: #()]. - historian := repository newHistorian: 'test' version: squotVersion. - "when" - self should: [verifier verify: historian hasCorrectConversionsUpTo: theVersion whichComesFrom: mcRepo] raise: SquotMonticelloConversionProblem. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testIgnoresEmptyMonticelloTraitComments.st b/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testIgnoresEmptyMonticelloTraitComments.st deleted file mode 100644 index cb0450fcb..000000000 --- a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/instance/testIgnoresEmptyMonticelloTraitComments.st +++ /dev/null @@ -1,30 +0,0 @@ -tests -testIgnoresEmptyMonticelloTraitComments - | package versionInfo mcSnapshot theVersion mcRepo historian snapshot squotVersion | - "given" - package := MCPackage named: classFactory packageName. - mcSnapshot := MCSnapshot - fromDefinitions: {MCTraitDefinition name: #Griffle - traitComposition: '' - category: package name, '-Tests-Data' - comment: '' - commentStamp: ''}. - versionInfo := MCVersionInfo name: package name, '-squot.1' id: UUID new message: 'hooray' date: Date today time: Time now author: 'squot' ancestors: #(). - theVersion := MCVersion package: package info: versionInfo snapshot: mcSnapshot. - mcRepo := self newMcRepository: classFactory packageName. - mcRepo storeVersion: theVersion. - snapshot := SquotSnapshot builder - add: ((MCSnapshot - fromDefinitions: {MCTraitDefinition name: #Griffle - traitComposition: '' - category: package name, '-Tests-Data' - comment: 'I am very useful, maybe.' "<-- here be difference" - commentStamp: ''}) - asSquotArtifactForPackage: package packageInfo); - buildSnapshot. - squotVersion := repository createNewVersion: snapshot - with: [:version | version message: 'hooray'; author: 'squot'; - timestamp: versionInfo timeStamp; parents: #()]. - historian := repository newHistorian: 'test' version: squotVersion. - "when" - self shouldnt: [verifier verify: historian hasCorrectConversionsUpTo: theVersion whichComesFrom: mcRepo] raise: SquotMonticelloConversionProblem. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/methodProperties.json b/src/Squot.package/SquotMonticelloConverterVerifierTest.class/methodProperties.json deleted file mode 100644 index 28956a623..000000000 --- a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/methodProperties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "newRepository" : "jr 2/9/2017 18:26", - "setUp" : "ct 10/28/2021 08:22", - "tearDown" : "ct 10/28/2021 08:22", - "testAcceptsCorrectConversion" : "ct 10/28/2021 08:23", - "testAcceptsCorrectConversionWithMultipleVersions" : "ct 10/28/2021 08:23", - "testCanHandleMissingMCVersions" : "ct 10/28/2021 08:24", - "testDetectsBogusClass" : "ct 10/28/2021 08:24", - "testDetectsBogusMethod" : "ct 10/28/2021 08:24", - "testDetectsBogusTrait" : "ct 10/28/2021 08:24", - "testDetectsMissingClass" : "ct 10/28/2021 08:24", - "testDetectsMissingMethod" : "ct 10/28/2021 08:24", - "testDetectsMissingTrait" : "ct 10/28/2021 08:24", - "testIgnoresEmptyMonticelloTraitComments" : "ct 10/28/2021 08:24" } } diff --git a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/properties.json b/src/Squot.package/SquotMonticelloConverterVerifierTest.class/properties.json deleted file mode 100644 index 015b637b1..000000000 --- a/src/Squot.package/SquotMonticelloConverterVerifierTest.class/properties.json +++ /dev/null @@ -1,19 +0,0 @@ -{ - "category" : "Squot-Tests-Monticello-Converter", - "classinstvars" : [ - ], - "classtraitcomposition" : "TTestCaseSuppressingProgressDisplay classTrait", - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "converter", - "repository", - "verifier", - "classFactory" ], - "name" : "SquotMonticelloConverterVerifierTest", - "pools" : [ - ], - "super" : "AbstractSquotMonticelloConverterTest", - "traitcomposition" : "TTestCaseSuppressingProgressDisplay", - "type" : "normal" } diff --git a/src/Squot.package/SquotMonticelloDiffNodesTest.class/README.md b/src/Squot.package/SquotMonticelloDiffNodesTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/packagePath.st b/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/packagePath.st deleted file mode 100644 index 51b80cab4..000000000 --- a/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/packagePath.st +++ /dev/null @@ -1,3 +0,0 @@ -running -packagePath - ^ classFactory packageName, '.package' \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/rootNode.st b/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/rootNode.st deleted file mode 100644 index 1cadfab0d..000000000 --- a/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/rootNode.st +++ /dev/null @@ -1,9 +0,0 @@ -running -rootNode - | rootNode | - rootNode := - ((preparedWorkingCopy patchRelativeToBase: preparedWorkingCopy baseVersion) - diffAt: self packagePath) - asDiffTree. - rootNode withAllChildren do: [:each | each workingCopy: preparedWorkingCopy]. - ^ rootNode \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/setUp.st b/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/setUp.st deleted file mode 100644 index fe651e59c..000000000 --- a/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/setUp.st +++ /dev/null @@ -1,18 +0,0 @@ -running -setUp - | existingClass | - preparedWorkingCopy := SquotWorkingCopy forTestInMemory. - classFactory := ClassFactoryForTestCase new. - SystemChangeNotifier uniqueInstance doSilently: - [existingClass := classFactory newClass]. - existingMethod := MethodReference class: existingClass selector: #existing. - methodToBeRemoved := MethodReference class: existingClass selector: #toBeRemoved. - methodToBeAdded := MethodReference class: existingClass selector: #toBeAdded. - existingClass compileSilently: existingMethod selector. "empty method" - existingClass compileSilently: methodToBeRemoved selector. "empty method" - preparedWorkingCopy add: existingClass packageInfo at: self packagePath. - self suppressProgressDisplayDuring: [preparedWorkingCopy saveVersionWithMessage: 'init']. - existingClass removeSelectorSilently: methodToBeRemoved selector. - existingClass compileSilently: methodToBeAdded selector. "empty method" - existingClass compileSilently: existingMethod selector, ' ^ #changed'. - existingClass addInstVarName: 'addedVariable'. "change class definition" \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/tearDown.st b/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/tearDown.st deleted file mode 100644 index 5a5dfcb94..000000000 --- a/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/tearDown.st +++ /dev/null @@ -1,5 +0,0 @@ -running -tearDown - SystemChangeNotifier uniqueInstance doSilently: - [classFactory ifNotNil: [classFactory cleanUp]]. - SquotFakeToolSet reset. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testClassBrowse.st b/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testClassBrowse.st deleted file mode 100644 index 244f1af1c..000000000 --- a/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testClassBrowse.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testClassBrowse - | isolatedEnvironment | - "given" - SquotBrowseMockClass reset. - isolatedEnvironment := Environment withName: self printString. - isolatedEnvironment - bind: existingMethod classSymbol to: SquotBrowseMockClass. - PackageInfo squotSetEnvironmentOf: preparedWorkingCopy artifacts anyOne - to: isolatedEnvironment. - "when the class changes grouping node is browsed" - (self rootNode children detect: [:each | each title asString includesSubstring: existingMethod classSymbol caseSensitive: true]) browseInWorkingCopy. - "then" - self assert: SquotBrowseMockClass wasBrowsed. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testClassDefinitionBrowse.st b/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testClassDefinitionBrowse.st deleted file mode 100644 index 0cfe8b6e4..000000000 --- a/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testClassDefinitionBrowse.st +++ /dev/null @@ -1,18 +0,0 @@ -tests -testClassDefinitionBrowse - | isolatedEnvironment | - "given" - SquotBrowseMockClass reset. - isolatedEnvironment := Environment withName: self printString. - isolatedEnvironment - bind: existingMethod classSymbol to: SquotBrowseMockClass. - PackageInfo squotSetEnvironmentOf: preparedWorkingCopy artifacts anyOne - to: isolatedEnvironment. - "when the class definition change node is browsed" - ((self rootNode children detect: - [:each | each title asString includesSubstring: existingMethod classSymbol caseSensitive: true]) - children detect: - [:each | each title asString includesSubstring: existingMethod classSymbol - caseSensitive: true]) browseInWorkingCopy. - "then" - self assert: SquotBrowseMockClass wasBrowsed. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testClassDefinitionTextDiff.st b/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testClassDefinitionTextDiff.st deleted file mode 100644 index 9c1c86552..000000000 --- a/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testClassDefinitionTextDiff.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testClassDefinitionTextDiff - | text | - "when" - text := ((self rootNode children detect: - [:each | each title asString includesSubstring: existingMethod classSymbol caseSensitive: true]) - children detect: - [:each | each title asString includesSubstring: existingMethod classSymbol - caseSensitive: true]) asStringOrText. - "then" - self assert: (text asString includesSubstring: existingMethod classSymbol caseSensitive: true); - assert: (text asString includesSubstring: 'addedVariable' caseSensitive: true). \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testClassTextDiff.st b/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testClassTextDiff.st deleted file mode 100644 index dbce808fc..000000000 --- a/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testClassTextDiff.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testClassTextDiff - | text | - "when" - text := (self rootNode children detect: [:each | each title asString includesSubstring: existingMethod classSymbol caseSensitive: true]) asStringOrText. - "then" - self assert: (text asString includesSubstring: existingMethod classSymbol caseSensitive: true); - assert: (text asString includesSubstring: existingMethod selector caseSensitive: true); - assert: (text asString includesSubstring: methodToBeAdded selector caseSensitive: true); - assert: (text asString includesSubstring: methodToBeRemoved selector caseSensitive: true). \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testGrouping.st b/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testGrouping.st deleted file mode 100644 index 9233424b3..000000000 --- a/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testGrouping.st +++ /dev/null @@ -1,46 +0,0 @@ -tests -testGrouping - | instanceMethod classMethod classDefinition trait classTrait traitMethod classTraitMethod | - instanceMethod := MCMethodDefinition - className: 'SampleClass' - classIsMeta: false - selector: 'instanceMethod' - category: 'accessing' - timeStamp: '' - source: 'instanceMethod'. - classMethod := MCMethodDefinition - className: 'SampleClass' - classIsMeta: true - selector: 'classMethod' - category: 'accessing' - timeStamp: '' - source: 'classMethod'. - classDefinition := MCClassDefinition - name: 'SampleClass' - superclassName: 'Object' - category: 'CategoryForTestToBeDeleted' - instVarNames: '' - comment: ''. - trait := MCTraitDefinition name: 'SampleTrait' traitComposition: '' category: 'CategoryForTestToBeDeleted' comment: '' commentStamp: nil. - classTrait := MCClassTraitDefinition baseTraitName: 'SampleTrait' classTraitComposition: ''. - traitMethod := MCMethodDefinition - className: 'SampleTrait' - classIsMeta: false - selector: 'instanceMethod' - category: 'accessing' - timeStamp: '' - source: 'instanceMethod'. - classTraitMethod := MCMethodDefinition - className: 'SampleTrait' - classIsMeta: true - selector: 'instanceMethod' - category: 'accessing' - timeStamp: '' - source: 'instanceMethod'. - self assert: instanceMethod squotGroup = classDefinition squotGroup; - assert: classMethod squotGroup = 'SampleClass class'; - assert: traitMethod squotGroup = trait squotGroup; - "Problem with classTraitMethod: classTrait would have to be loaded to make this succeed: - assert: classTraitMethod squotGroup = classTrait squotGroup;" - assert: ((classTraitMethod squotGroup endsWith: ' classSide') or: [classTraitMethod squotGroup endsWith: ' class']); - assert: (classTrait squotGroup endsWith: ' classSide'). \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testMethodDefinitionBrowse.st b/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testMethodDefinitionBrowse.st deleted file mode 100644 index 7ce5d942d..000000000 --- a/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testMethodDefinitionBrowse.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testMethodDefinitionBrowse - "when" - SquotFakeToolSet installDuring: - [(self rootNode withAllChildren detect: [:each | each title asString includesSubstring: existingMethod selector caseSensitive: true]) browseInWorkingCopy]. - "then" - self assert: (SquotFakeToolSet didBrowseMethod: existingMethod). \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testMethodDefinitionTextDiff.st b/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testMethodDefinitionTextDiff.st deleted file mode 100644 index 58403a60c..000000000 --- a/src/Squot.package/SquotMonticelloDiffNodesTest.class/instance/testMethodDefinitionTextDiff.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testMethodDefinitionTextDiff - | text | - "when" - text := (self rootNode withAllChildren detect: [:each | each title asString includesSubstring: existingMethod selector caseSensitive: true]) asStringOrText. - "then" - self assert: (text asString includesSubstring: existingMethod selector caseSensitive: true); - assert: (text asString includesSubstring: '^ #changed' caseSensitive: true). \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloDiffNodesTest.class/methodProperties.json b/src/Squot.package/SquotMonticelloDiffNodesTest.class/methodProperties.json deleted file mode 100644 index 1ce31b603..000000000 --- a/src/Squot.package/SquotMonticelloDiffNodesTest.class/methodProperties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "packagePath" : "jr 1/26/2020 23:25", - "rootNode" : "jr 1/26/2020 23:26", - "setUp" : "jr 9/13/2020 22:41", - "tearDown" : "jr 12/22/2019 22:36", - "testClassBrowse" : "jr 11/18/2020 18:29", - "testClassDefinitionBrowse" : "jr 11/18/2020 18:30", - "testClassDefinitionTextDiff" : "jr 11/18/2020 18:30", - "testClassTextDiff" : "jr 11/18/2020 18:30", - "testGrouping" : "jr 9/8/2020 21:15", - "testMethodDefinitionBrowse" : "jr 11/18/2020 18:30", - "testMethodDefinitionTextDiff" : "jr 11/18/2020 18:30" } } diff --git a/src/Squot.package/SquotMonticelloDiffNodesTest.class/properties.json b/src/Squot.package/SquotMonticelloDiffNodesTest.class/properties.json deleted file mode 100644 index d067a4908..000000000 --- a/src/Squot.package/SquotMonticelloDiffNodesTest.class/properties.json +++ /dev/null @@ -1,20 +0,0 @@ -{ - "category" : "Squot-Tests-Tools-Packages", - "classinstvars" : [ - ], - "classtraitcomposition" : "TTestCaseSuppressingProgressDisplay classTrait", - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "preparedWorkingCopy", - "classFactory", - "existingMethod", - "methodToBeRemoved", - "methodToBeAdded" ], - "name" : "SquotMonticelloDiffNodesTest", - "pools" : [ - ], - "super" : "TestCase", - "traitcomposition" : "TTestCaseSuppressingProgressDisplay", - "type" : "normal" } diff --git a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/README.md b/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/README.md deleted file mode 100644 index 60c3b1aa9..000000000 --- a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/README.md +++ /dev/null @@ -1 +0,0 @@ -While verifying the converted history, the snapshots of a converted version and its original were different. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/class/signalMismatchBetween.and.artifact.withMonticelloSnapshot..st b/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/class/signalMismatchBetween.and.artifact.withMonticelloSnapshot..st deleted file mode 100644 index c890491c6..000000000 --- a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/class/signalMismatchBetween.and.artifact.withMonticelloSnapshot..st +++ /dev/null @@ -1,11 +0,0 @@ -as yet unclassified -signalMismatchBetween: aSquotVersion and: aMCVersion - artifact: aSquotArtifact withMonticelloSnapshot: aMCSnapshot - ^ self new - messageText: aMCVersion name; - squotVersion: aSquotVersion; - mcVersion: aMCVersion; - packageArtifact: aSquotArtifact; - artifactMcSnapshot: aMCSnapshot; - mcSnapshot: aMCVersion snapshot; - signal \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/artifactMcSnapshot..st b/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/artifactMcSnapshot..st deleted file mode 100644 index 7a6c01f6f..000000000 --- a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/artifactMcSnapshot..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -artifactMcSnapshot: anObject - - artifactMcSnapshot := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/artifactMcSnapshot.st b/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/artifactMcSnapshot.st deleted file mode 100644 index 2337eabb9..000000000 --- a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/artifactMcSnapshot.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -artifactMcSnapshot - - ^ artifactMcSnapshot \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/mcSnapshot..st b/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/mcSnapshot..st deleted file mode 100644 index ac322cbce..000000000 --- a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/mcSnapshot..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -mcSnapshot: anObject - - mcSnapshot := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/mcSnapshot.st b/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/mcSnapshot.st deleted file mode 100644 index 1db7a163d..000000000 --- a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/mcSnapshot.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -mcSnapshot - - ^ mcSnapshot \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/mcVersion..st b/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/mcVersion..st deleted file mode 100644 index 945024796..000000000 --- a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/mcVersion..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -mcVersion: anObject - - mcVersion := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/mcVersion.st b/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/mcVersion.st deleted file mode 100644 index 54797bda2..000000000 --- a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/mcVersion.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -mcVersion - - ^ mcVersion \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/packageArtifact..st b/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/packageArtifact..st deleted file mode 100644 index 64f0afa68..000000000 --- a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/packageArtifact..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -packageArtifact: anObject - - packageArtifact := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/packageArtifact.st b/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/packageArtifact.st deleted file mode 100644 index c196b76d8..000000000 --- a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/packageArtifact.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -packageArtifact - - ^ packageArtifact \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/squotVersion..st b/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/squotVersion..st deleted file mode 100644 index fa986b78e..000000000 --- a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/squotVersion..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -squotVersion: anObject - - squotVersion := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/squotVersion.st b/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/squotVersion.st deleted file mode 100644 index 946c3e80d..000000000 --- a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/instance/squotVersion.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -squotVersion - - ^ squotVersion \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/methodProperties.json b/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/methodProperties.json deleted file mode 100644 index 4ec100c20..000000000 --- a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/methodProperties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "class" : { - "signalMismatchBetween:and:artifact:withMonticelloSnapshot:" : "jr 2/24/2019 00:22" }, - "instance" : { - "artifactMcSnapshot" : "jr 2/24/2019 00:17", - "artifactMcSnapshot:" : "jr 2/24/2019 00:17", - "mcSnapshot" : "jr 2/24/2019 00:17", - "mcSnapshot:" : "jr 2/24/2019 00:17", - "mcVersion" : "jr 2/24/2019 00:17", - "mcVersion:" : "jr 2/24/2019 00:17", - "packageArtifact" : "jr 2/24/2019 00:17", - "packageArtifact:" : "jr 2/24/2019 00:17", - "squotVersion" : "jr 2/24/2019 00:17", - "squotVersion:" : "jr 2/24/2019 00:17" } } diff --git a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/properties.json b/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/properties.json deleted file mode 100644 index c1d23d2f2..000000000 --- a/src/Squot.package/SquotMonticelloSnapshotsNotEqual.class/properties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "category" : "Squot-Monticello-Converter", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 20:51", - "instvars" : [ - "squotVersion", - "mcVersion", - "packageArtifact", - "artifactMcSnapshot", - "mcSnapshot" ], - "name" : "SquotMonticelloSnapshotsNotEqual", - "pools" : [ - ], - "super" : "SquotMonticelloConversionProblem", - "type" : "normal" } diff --git a/src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/README.md b/src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/instance/fakeCategory.st b/src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/instance/fakeCategory.st deleted file mode 100644 index dbb66d865..000000000 --- a/src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/instance/fakeCategory.st +++ /dev/null @@ -1,3 +0,0 @@ -running -fakeCategory - ^ SquotBrowseMockTrait category, '-DoesNotExist' \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/instance/packagePath.st b/src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/instance/packagePath.st deleted file mode 100644 index f1d8e78ed..000000000 --- a/src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/instance/packagePath.st +++ /dev/null @@ -1,3 +0,0 @@ -running -packagePath - ^ self fakeCategory, '.package' \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/instance/setUp.st b/src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/instance/setUp.st deleted file mode 100644 index 43d7d0981..000000000 --- a/src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/instance/setUp.st +++ /dev/null @@ -1,19 +0,0 @@ -running -setUp - | isolatedEnvironment | - preparedWorkingCopy := SquotWorkingCopy forTestInMemory. "no super setUp!" - self tearDown. - isolatedEnvironment := Environment withName: self printString. - isolatedEnvironment importSelf. "at the time of writing this, PackageInfo looked at the bindings of the current environment instead of its declarations" - isolatedEnvironment beCurrentDuring: - [preparedWorkingCopy addPackageNamed: self fakeCategory at: self packagePath]. - self suppressProgressDisplayDuring: - [preparedWorkingCopy saveVersionWithMessage: 'init']. - trait := SquotBrowseMockTrait new. - trait setName: #TestTrait - andRegisterInCategory: self fakeCategory - environment: isolatedEnvironment; - uses: #(); - instVarNamed: 'category' put: self fakeCategory. "set explicitly because Trait>>category was not environment-friendly at the time of writing this, and neither was Trait>>category:" - PackageInfo squotSetEnvironmentOf: preparedWorkingCopy artifacts anyOne - to: isolatedEnvironment. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/instance/tearDown.st b/src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/instance/tearDown.st deleted file mode 100644 index 8573698f5..000000000 --- a/src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/instance/tearDown.st +++ /dev/null @@ -1,7 +0,0 @@ -running -tearDown - [(MCWorkingCopy forPackageNamed: self fakeCategory) unregister] - on: NotFound do: [:e | e return: nil]. - SystemChangeNotifier uniqueInstance doSilently: [trait ifNotNil: [trait removeFromSystem]]. - SquotBrowseMockTrait reset. - super tearDown. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/instance/testBrowseTraitDefinition.st b/src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/instance/testBrowseTraitDefinition.st deleted file mode 100644 index 1005d69e7..000000000 --- a/src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/instance/testBrowseTraitDefinition.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testBrowseTraitDefinition - "when" - ((self rootNode children detect: [:each | each title asString includesSubstring: trait name caseSensitive: true]) children detect: [:each | each title asString includesSubstring: trait name caseSensitive: true]) browseInWorkingCopy. - "then" - self assert: SquotBrowseMockTrait wasBrowsed. \ No newline at end of file diff --git a/src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/methodProperties.json b/src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/methodProperties.json deleted file mode 100644 index 09a4d53c2..000000000 --- a/src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "fakeCategory" : "jr 1/26/2020 23:23", - "packagePath" : "jr 1/26/2020 23:24", - "setUp" : "jr 9/13/2020 22:53", - "tearDown" : "jr 1/26/2020 23:24", - "testBrowseTraitDefinition" : "jr 11/18/2020 18:31" } } diff --git a/src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/properties.json b/src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/properties.json deleted file mode 100644 index fbb7f1e47..000000000 --- a/src/Squot.package/SquotMonticelloTraitDiffNodesTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Tools-Packages", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "trait" ], - "name" : "SquotMonticelloTraitDiffNodesTest", - "pools" : [ - ], - "super" : "SquotMonticelloDiffNodesTest", - "type" : "normal" } diff --git a/src/Squot.package/SquotMutableObjectGraph.class/README.md b/src/Squot.package/SquotMutableObjectGraph.class/README.md deleted file mode 100644 index c9de898f4..000000000 --- a/src/Squot.package/SquotMutableObjectGraph.class/README.md +++ /dev/null @@ -1,3 +0,0 @@ -In contrast to my superclasses, objects and shadows can be added to me to build new graphs. - -I can both assign a name bidirectionally (name <-> object) via #assign:to[Shadow]:, and assign it unidirectionally (only object -> name) via #answer:whenAskedForTheNameOf:. The latter can be used to pretend that the capturing replacement of an object has the same name as the original object. \ No newline at end of file diff --git a/src/Squot.package/SquotMutableObjectGraph.class/instance/addShadow.of..st b/src/Squot.package/SquotMutableObjectGraph.class/instance/addShadow.of..st deleted file mode 100644 index d90804b82..000000000 --- a/src/Squot.package/SquotMutableObjectGraph.class/instance/addShadow.of..st +++ /dev/null @@ -1,12 +0,0 @@ -adding -addShadow: aShadow of: anObject - | name | - name := self nameOf: anObject ifAbsent: [^ aShadow]. - self assert: - ((name = self class anonymousObjectName "presumably the start object" - and: [(self objectNamed: name) == anObject]) - or: [anObject shouldHaveNameAssignedBySquot flag: #todo "Should use mirrors instead."]) - description: 'Primitive objects should not get names'. - shadows at: name put: aShadow undecorated. - self answer: name whenAskedForTheNameOf: aShadow undecorated. - ^ aShadow \ No newline at end of file diff --git a/src/Squot.package/SquotMutableObjectGraph.class/instance/answer.whenAskedForTheNameOf..st b/src/Squot.package/SquotMutableObjectGraph.class/instance/answer.whenAskedForTheNameOf..st deleted file mode 100644 index aacdc3583..000000000 --- a/src/Squot.package/SquotMutableObjectGraph.class/instance/answer.whenAskedForTheNameOf..st +++ /dev/null @@ -1,8 +0,0 @@ -adding -answer: aName whenAskedForTheNameOf: anObject - "Make sure nameOf: anObject will answer aName. But objectNamed: aName should not answer anObject." - self assert: anObject hasSquotShadowName not - description: 'Must not put decorated objects in dictionary'. - self assert: (objectNames at: anObject ifAbsent: [aName]) = aName - description: 'Objects must not be renamed'. - objectNames at: anObject put: aName. \ No newline at end of file diff --git a/src/Squot.package/SquotMutableObjectGraph.class/instance/applyDiff.toShadowNamed..st b/src/Squot.package/SquotMutableObjectGraph.class/instance/applyDiff.toShadowNamed..st deleted file mode 100644 index 02001d62b..000000000 --- a/src/Squot.package/SquotMutableObjectGraph.class/instance/applyDiff.toShadowNamed..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -applyDiff: aDiff toShadowNamed: name - ^ aDiff applyToShadowNamed: name inGraph: self. \ No newline at end of file diff --git a/src/Squot.package/SquotMutableObjectGraph.class/instance/applyDiff.toStartObjectWith..st b/src/Squot.package/SquotMutableObjectGraph.class/instance/applyDiff.toStartObjectWith..st deleted file mode 100644 index 9e47ecbca..000000000 --- a/src/Squot.package/SquotMutableObjectGraph.class/instance/applyDiff.toStartObjectWith..st +++ /dev/null @@ -1,11 +0,0 @@ -patching -applyDiff: aDiff toStartObjectWith: aPatcher - | oldStartObject newStartObject patchedShadow | - "To handle the case that the start object is exchanged, - try to retrieve the new name and update the start name." - oldStartObject := self startObject. - newStartObject := aPatcher apply: aDiff toLoaded: oldStartObject. - patchedShadow := aPatcher shadowOf: newStartObject. - startName := aPatcher nameOf: patchedShadow ifAbsent: [SquotObjectCapturer new rootName]. - self assign: startName to: newStartObject. - ^ newStartObject \ No newline at end of file diff --git a/src/Squot.package/SquotMutableObjectGraph.class/instance/assign.to..st b/src/Squot.package/SquotMutableObjectGraph.class/instance/assign.to..st deleted file mode 100644 index 4b44f5837..000000000 --- a/src/Squot.package/SquotMutableObjectGraph.class/instance/assign.to..st +++ /dev/null @@ -1,5 +0,0 @@ -adding -assign: aName to: anObject - self answer: aName whenAskedForTheNameOf: anObject. - objects at: aName put: anObject. - delegateRegistry ifNotNil: [delegateRegistry assign: aName to: anObject]. \ No newline at end of file diff --git a/src/Squot.package/SquotMutableObjectGraph.class/instance/assign.toShadow..st b/src/Squot.package/SquotMutableObjectGraph.class/instance/assign.toShadow..st deleted file mode 100644 index 66eb05ab9..000000000 --- a/src/Squot.package/SquotMutableObjectGraph.class/instance/assign.toShadow..st +++ /dev/null @@ -1,6 +0,0 @@ -adding -assign: name toShadow: aShadow - self assert: aShadow canHaveNameAssignedBySquot - description: 'Primitive objects should not get names'. - self answer: name whenAskedForTheNameOf: aShadow. - shadows at: name put: aShadow. \ No newline at end of file diff --git a/src/Squot.package/SquotMutableObjectGraph.class/instance/creatorOf.ifAbsentPut.of..st b/src/Squot.package/SquotMutableObjectGraph.class/instance/creatorOf.ifAbsentPut.of..st deleted file mode 100644 index fc65e5862..000000000 --- a/src/Squot.package/SquotMutableObjectGraph.class/instance/creatorOf.ifAbsentPut.of..st +++ /dev/null @@ -1,15 +0,0 @@ -accessing -creatorOf: anObject ifAbsentPut: slotBlock of: creatorBlock - "Lookup the creator of anObject. If I do not contain it, ask my delegateRegistry and register what it answered." - | delegated creator slot | - delegated := false. - objectCreators at: anObject ifAbsentPut: - [creator := delegateRegistry - ifNotNil: [delegated := true. - delegateRegistry creatorOf: anObject - ifAbsentPut: [slot := slotBlock value] of: creatorBlock] - ifNil: [creatorBlock value]]. - objectCreatorSlots at: anObject ifAbsentPut: [slot ifNil: [slotBlock value]]. - delegated ifFalse: [delegateRegistry ifNotNil: - [delegateRegistry creatorOf: anObject ifAbsentPut: [slot] of: [creator]]]. - ^ creator \ No newline at end of file diff --git a/src/Squot.package/SquotMutableObjectGraph.class/instance/ifNecessaryAssignNameToShadow..st b/src/Squot.package/SquotMutableObjectGraph.class/instance/ifNecessaryAssignNameToShadow..st deleted file mode 100644 index 0a27412f1..000000000 --- a/src/Squot.package/SquotMutableObjectGraph.class/instance/ifNecessaryAssignNameToShadow..st +++ /dev/null @@ -1,9 +0,0 @@ -adding -ifNecessaryAssignNameToShadow: aShadow - aShadow hasSquotShadowName ifTrue: [^ self]. - self - assign: (SquotActiveObjectRegistry value - ifNotNil: [SquotActiveObjectRegistry nameOf: aShadow - ifAbsent: [self class anonymousObjectName]] - ifNil: [self class anonymousObjectName]) - toShadow: aShadow. \ No newline at end of file diff --git a/src/Squot.package/SquotMutableObjectGraph.class/instance/mutableCopy.st b/src/Squot.package/SquotMutableObjectGraph.class/instance/mutableCopy.st deleted file mode 100644 index d3d206d93..000000000 --- a/src/Squot.package/SquotMutableObjectGraph.class/instance/mutableCopy.st +++ /dev/null @@ -1,3 +0,0 @@ -copying -mutableCopy - ^ self copy \ No newline at end of file diff --git a/src/Squot.package/SquotMutableObjectGraph.class/instance/nameOf.ifAbsentAssign..st b/src/Squot.package/SquotMutableObjectGraph.class/instance/nameOf.ifAbsentAssign..st deleted file mode 100644 index c0eaf1d79..000000000 --- a/src/Squot.package/SquotMutableObjectGraph.class/instance/nameOf.ifAbsentAssign..st +++ /dev/null @@ -1,13 +0,0 @@ -accessing -nameOf: anObject ifAbsentAssign: nameBlock - | name | - ^ objectNames at: anObject - ifAbsent: - [name := delegateRegistry - ifNotNil: [delegateRegistry nameOf: anObject ifAbsentAssign: nameBlock] - ifNil: [nameBlock value]. - self assert: anObject hasSquotShadowName not - description: 'Object should be stripped of name decoration'. - objectNames at: anObject put: name. - objects at: name put: anObject. - name] \ No newline at end of file diff --git a/src/Squot.package/SquotMutableObjectGraph.class/instance/refreshStartShadow.st b/src/Squot.package/SquotMutableObjectGraph.class/instance/refreshStartShadow.st deleted file mode 100644 index 9c1143c1f..000000000 --- a/src/Squot.package/SquotMutableObjectGraph.class/instance/refreshStartShadow.st +++ /dev/null @@ -1,3 +0,0 @@ -patching -refreshStartShadow - self startShadow: (self shadowNamed: startName). \ No newline at end of file diff --git a/src/Squot.package/SquotMutableObjectGraph.class/instance/removeObjectNamed..st b/src/Squot.package/SquotMutableObjectGraph.class/instance/removeObjectNamed..st deleted file mode 100644 index 3290e8148..000000000 --- a/src/Squot.package/SquotMutableObjectGraph.class/instance/removeObjectNamed..st +++ /dev/null @@ -1,4 +0,0 @@ -removing -removeObjectNamed: name - objectNames removeKey: (objects removeKey: name ifAbsent: []) ifAbsent: []. - objectNames removeKey: (shadows removeKey: name ifAbsent: []) ifAbsent: []. \ No newline at end of file diff --git a/src/Squot.package/SquotMutableObjectGraph.class/methodProperties.json b/src/Squot.package/SquotMutableObjectGraph.class/methodProperties.json deleted file mode 100644 index b53a4ea66..000000000 --- a/src/Squot.package/SquotMutableObjectGraph.class/methodProperties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "addShadow:of:" : "jr 4/4/2021 13:18", - "answer:whenAskedForTheNameOf:" : "jr 7/28/2019 11:03", - "applyDiff:toShadowNamed:" : "jr 7/4/2021 17:51", - "applyDiff:toStartObjectWith:" : "jr 8/4/2019 00:31", - "assign:to:" : "jr 7/30/2017 01:27", - "assign:toShadow:" : "jr 9/25/2019 14:50", - "creatorOf:ifAbsentPut:of:" : "jr 7/30/2017 01:34", - "ifNecessaryAssignNameToShadow:" : "jr 4/8/2018 00:37", - "mutableCopy" : "jr 7/30/2017 02:58", - "nameOf:ifAbsentAssign:" : "jr 9/25/2019 20:29", - "refreshStartShadow" : "jr 4/7/2019 20:57", - "removeObjectNamed:" : "jr 7/17/2021 21:05" } } diff --git a/src/Squot.package/SquotMutableObjectGraph.class/properties.json b/src/Squot.package/SquotMutableObjectGraph.class/properties.json deleted file mode 100644 index 9019a698c..000000000 --- a/src/Squot.package/SquotMutableObjectGraph.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Capturing", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/10/2017 19:45", - "instvars" : [ - ], - "name" : "SquotMutableObjectGraph", - "pools" : [ - ], - "super" : "SquotObjectGraph", - "type" : "normal" } diff --git a/src/Squot.package/SquotNameDecorator.class/README.md b/src/Squot.package/SquotNameDecorator.class/README.md deleted file mode 100644 index 912f4c04a..000000000 --- a/src/Squot.package/SquotNameDecorator.class/README.md +++ /dev/null @@ -1,4 +0,0 @@ -I decorate an object with its "name" in an object graph. The name is unique in that graph. - -Instance Variables - name: \ No newline at end of file diff --git a/src/Squot.package/SquotNameDecorator.class/class/on.withName..st b/src/Squot.package/SquotNameDecorator.class/class/on.withName..st deleted file mode 100644 index 512a4987f..000000000 --- a/src/Squot.package/SquotNameDecorator.class/class/on.withName..st +++ /dev/null @@ -1,9 +0,0 @@ -instance creation -on: aShadow withName: aString - aString ifNil: [^ aShadow]. - aShadow hasSquotShadowName ifTrue: - [self assert: aShadow name = aString. - ^ aShadow]. - ^ self new - decorated: aShadow withName: aString; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotNameDecorator.class/class/squotMirror.st b/src/Squot.package/SquotNameDecorator.class/class/squotMirror.st deleted file mode 100644 index ab49582e1..000000000 --- a/src/Squot.package/SquotNameDecorator.class/class/squotMirror.st +++ /dev/null @@ -1,5 +0,0 @@ -dynamic forwarding -squotMirror - - self isThisEverCalled: 'If this is ever called, you found a bug! Please send a bug report and then press Proceed.'. - ^ super squotMirror \ No newline at end of file diff --git a/src/Squot.package/SquotNameDecorator.class/instance/^equals.st b/src/Squot.package/SquotNameDecorator.class/instance/^equals.st deleted file mode 100644 index d4231cf96..000000000 --- a/src/Squot.package/SquotNameDecorator.class/instance/^equals.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -= other - ^ other hasSquotShadowName and: [self name = other name] \ No newline at end of file diff --git a/src/Squot.package/SquotNameDecorator.class/instance/decorated.withName..st b/src/Squot.package/SquotNameDecorator.class/instance/decorated.withName..st deleted file mode 100644 index 0f78e8458..000000000 --- a/src/Squot.package/SquotNameDecorator.class/instance/decorated.withName..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -decorated: aShadow withName: aString - decoratedObject := aShadow. - name := aString. \ No newline at end of file diff --git a/src/Squot.package/SquotNameDecorator.class/instance/hasSquotShadowName.st b/src/Squot.package/SquotNameDecorator.class/instance/hasSquotShadowName.st deleted file mode 100644 index e26e20ebf..000000000 --- a/src/Squot.package/SquotNameDecorator.class/instance/hasSquotShadowName.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasSquotShadowName - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotNameDecorator.class/instance/hash.st b/src/Squot.package/SquotNameDecorator.class/instance/hash.st deleted file mode 100644 index ec2e5456a..000000000 --- a/src/Squot.package/SquotNameDecorator.class/instance/hash.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -hash - ^ self name hash \ No newline at end of file diff --git a/src/Squot.package/SquotNameDecorator.class/instance/name..st b/src/Squot.package/SquotNameDecorator.class/instance/name..st deleted file mode 100644 index 5a271108c..000000000 --- a/src/Squot.package/SquotNameDecorator.class/instance/name..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name: anObject - name := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotNameDecorator.class/instance/name.st b/src/Squot.package/SquotNameDecorator.class/instance/name.st deleted file mode 100644 index 22077c208..000000000 --- a/src/Squot.package/SquotNameDecorator.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ name \ No newline at end of file diff --git a/src/Squot.package/SquotNameDecorator.class/instance/printOn..st b/src/Squot.package/SquotNameDecorator.class/instance/printOn..st deleted file mode 100644 index b7aa19869..000000000 --- a/src/Squot.package/SquotNameDecorator.class/instance/printOn..st +++ /dev/null @@ -1,5 +0,0 @@ -printing -printOn: aStream - aStream print: decoratedObject; - space; - print: (name joinSeparatedBy: ' '). \ No newline at end of file diff --git a/src/Squot.package/SquotNameDecorator.class/instance/sameIn.withName.ifAbsent..st b/src/Squot.package/SquotNameDecorator.class/instance/sameIn.withName.ifAbsent..st deleted file mode 100644 index ca689f278..000000000 --- a/src/Squot.package/SquotNameDecorator.class/instance/sameIn.withName.ifAbsent..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -sameIn: anObjectGraph withName: aName ifAbsent: aBlock - self assert: name = aName description: 'Object looked up with a different name'. - ^ decoratedObject sameIn: anObjectGraph withName: aName ifAbsent: aBlock \ No newline at end of file diff --git a/src/Squot.package/SquotNameDecorator.class/methodProperties.json b/src/Squot.package/SquotNameDecorator.class/methodProperties.json deleted file mode 100644 index 00f35edcd..000000000 --- a/src/Squot.package/SquotNameDecorator.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - "on:withName:" : "jr 2/23/2020 20:06", - "squotMirror" : "ct 12/11/2021 22:17" }, - "instance" : { - "=" : "jr 6/20/2017 13:37", - "decorated:withName:" : "jr 6/20/2017 13:36", - "hasSquotShadowName" : "jr 6/20/2017 13:16", - "hash" : "jr 6/20/2017 12:49", - "name" : "jr 6/20/2017 12:49", - "name:" : "jr 6/20/2017 12:49", - "printOn:" : "jr 6/9/2021 23:12", - "sameIn:withName:ifAbsent:" : "jr 1/13/2022 22:10" } } diff --git a/src/Squot.package/SquotNameDecorator.class/properties.json b/src/Squot.package/SquotNameDecorator.class/properties.json deleted file mode 100644 index 9000c4117..000000000 --- a/src/Squot.package/SquotNameDecorator.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Capturing", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 17:53", - "instvars" : [ - "name" ], - "name" : "SquotNameDecorator", - "pools" : [ - ], - "super" : "SquotDecorator", - "type" : "normal" } diff --git a/src/Squot.package/SquotNameDecoratorTest.class/README.md b/src/Squot.package/SquotNameDecoratorTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotNameDecoratorTest.class/instance/testConsistentReflection.st b/src/Squot.package/SquotNameDecoratorTest.class/instance/testConsistentReflection.st deleted file mode 100644 index 37a1b761d..000000000 --- a/src/Squot.package/SquotNameDecoratorTest.class/instance/testConsistentReflection.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testConsistentReflection - | decorated1 decorated2 instSize | - decorated1 := SquotNameDecorator on: 1 withName: 'foo'. - instSize := decorated1 class instSize. - 1 to: instSize do: [:each | self shouldnt: [decorated1 instVarAt: each] raise: Error]. - decorated2 := SquotNameDecorator on: 'foo' withName: 'bar'. - 1 to: decorated2 basicSize do: [:each | self shouldnt: [decorated1 basicAt: each] raise: Error]. \ No newline at end of file diff --git a/src/Squot.package/SquotNameDecoratorTest.class/instance/testYourselfAnswersDecorator.st b/src/Squot.package/SquotNameDecoratorTest.class/instance/testYourselfAnswersDecorator.st deleted file mode 100644 index 4501c7d40..000000000 --- a/src/Squot.package/SquotNameDecoratorTest.class/instance/testYourselfAnswersDecorator.st +++ /dev/null @@ -1,5 +0,0 @@ -tests -testYourselfAnswersDecorator - | decorated1 | - decorated1 := SquotNameDecorator on: 1 withName: 'foo'. - self assert: decorated1 == decorated1 yourself. \ No newline at end of file diff --git a/src/Squot.package/SquotNameDecoratorTest.class/methodProperties.json b/src/Squot.package/SquotNameDecoratorTest.class/methodProperties.json deleted file mode 100644 index c386574cd..000000000 --- a/src/Squot.package/SquotNameDecoratorTest.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testConsistentReflection" : "jr 6/16/2021 22:58", - "testYourselfAnswersDecorator" : "jr 2/23/2020 20:55" } } diff --git a/src/Squot.package/SquotNameDecoratorTest.class/properties.json b/src/Squot.package/SquotNameDecoratorTest.class/properties.json deleted file mode 100644 index 9a4d453bf..000000000 --- a/src/Squot.package/SquotNameDecoratorTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotNameDecoratorTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotNoMerge.class/README.md b/src/Squot.package/SquotNoMerge.class/README.md deleted file mode 100644 index 2cf1d0fbb..000000000 --- a/src/Squot.package/SquotNoMerge.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am a stub that does not merge anything and never has changes (null object). \ No newline at end of file diff --git a/src/Squot.package/SquotNoMerge.class/class/of..st b/src/Squot.package/SquotNoMerge.class/class/of..st deleted file mode 100644 index 455fb778e..000000000 --- a/src/Squot.package/SquotNoMerge.class/class/of..st +++ /dev/null @@ -1,7 +0,0 @@ -instance creation -of: aPrimitiveValue - ^ self new - working: aPrimitiveValue; - incoming: aPrimitiveValue; - base: aPrimitiveValue; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotNoMerge.class/instance/conflicts.st b/src/Squot.package/SquotNoMerge.class/instance/conflicts.st deleted file mode 100644 index d2d7c76ae..000000000 --- a/src/Squot.package/SquotNoMerge.class/instance/conflicts.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -conflicts - "Impossible" - ^ #() \ No newline at end of file diff --git a/src/Squot.package/SquotNoMerge.class/instance/hasChanges.st b/src/Squot.package/SquotNoMerge.class/instance/hasChanges.st deleted file mode 100644 index 9d8e9e64f..000000000 --- a/src/Squot.package/SquotNoMerge.class/instance/hasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasChanges - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotNoMerge.class/instance/privateResolvedPatch.st b/src/Squot.package/SquotNoMerge.class/instance/privateResolvedPatch.st deleted file mode 100644 index 8e35a449b..000000000 --- a/src/Squot.package/SquotNoMerge.class/instance/privateResolvedPatch.st +++ /dev/null @@ -1,4 +0,0 @@ -merging -privateResolvedPatch - self isThisEverCalled: 'resolved patch of no merge'. - ^ SquotDiffOfEqualObjects instance \ No newline at end of file diff --git a/src/Squot.package/SquotNoMerge.class/methodProperties.json b/src/Squot.package/SquotNoMerge.class/methodProperties.json deleted file mode 100644 index d15cecaa9..000000000 --- a/src/Squot.package/SquotNoMerge.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - "of:" : "jr 9/7/2019 12:10" }, - "instance" : { - "conflicts" : "jr 9/7/2019 12:11", - "hasChanges" : "jr 9/17/2019 20:24", - "privateResolvedPatch" : "jr 9/13/2019 10:08" } } diff --git a/src/Squot.package/SquotNoMerge.class/properties.json b/src/Squot.package/SquotNoMerge.class/properties.json deleted file mode 100644 index f2c0c2592..000000000 --- a/src/Squot.package/SquotNoMerge.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Merging", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 9/7/2019 17:58", - "instvars" : [ - ], - "name" : "SquotNoMerge", - "pools" : [ - ], - "super" : "SquotAbstractMerge", - "type" : "normal" } diff --git a/src/Squot.package/SquotNoMetadataFileFound.class/README.md b/src/Squot.package/SquotNoMetadataFileFound.class/README.md deleted file mode 100644 index ab4b9f2a5..000000000 --- a/src/Squot.package/SquotNoMetadataFileFound.class/README.md +++ /dev/null @@ -1,4 +0,0 @@ -I am signalled when the file that should contain metadata about an artifact could not be found. - -Instance Variables - fileOrDirectory: diff --git a/src/Squot.package/SquotNoMetadataFileFound.class/class/for..st b/src/Squot.package/SquotNoMetadataFileFound.class/class/for..st deleted file mode 100644 index ed1eb5009..000000000 --- a/src/Squot.package/SquotNoMetadataFileFound.class/class/for..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -for: aFileOrDirectory - ^ self new fileOrDirectory: aFileOrDirectory; yourself \ No newline at end of file diff --git a/src/Squot.package/SquotNoMetadataFileFound.class/instance/fileOrDirectory..st b/src/Squot.package/SquotNoMetadataFileFound.class/instance/fileOrDirectory..st deleted file mode 100644 index 8823791ae..000000000 --- a/src/Squot.package/SquotNoMetadataFileFound.class/instance/fileOrDirectory..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -fileOrDirectory: anObject - - fileOrDirectory := anObject. diff --git a/src/Squot.package/SquotNoMetadataFileFound.class/instance/fileOrDirectory.st b/src/Squot.package/SquotNoMetadataFileFound.class/instance/fileOrDirectory.st deleted file mode 100644 index 3f6f4093c..000000000 --- a/src/Squot.package/SquotNoMetadataFileFound.class/instance/fileOrDirectory.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -fileOrDirectory - - ^ fileOrDirectory diff --git a/src/Squot.package/SquotNoMetadataFileFound.class/methodProperties.json b/src/Squot.package/SquotNoMetadataFileFound.class/methodProperties.json deleted file mode 100644 index ec00c78ce..000000000 --- a/src/Squot.package/SquotNoMetadataFileFound.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - "for:" : "jr 4/13/2017 19:38" }, - "instance" : { - "fileOrDirectory" : "jr 4/13/2017 19:38", - "fileOrDirectory:" : "jr 4/13/2017 19:38" } } diff --git a/src/Squot.package/SquotNoMetadataFileFound.class/properties.json b/src/Squot.package/SquotNoMetadataFileFound.class/properties.json deleted file mode 100644 index f5ec30015..000000000 --- a/src/Squot.package/SquotNoMetadataFileFound.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-FileSystemStore", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 19:22", - "instvars" : [ - "fileOrDirectory" ], - "name" : "SquotNoMetadataFileFound", - "pools" : [ - ], - "super" : "Notification", - "type" : "normal" } diff --git a/src/Squot.package/SquotNoProgressOutput.class/README.md b/src/Squot.package/SquotNoProgressOutput.class/README.md deleted file mode 100644 index d476db77d..000000000 --- a/src/Squot.package/SquotNoProgressOutput.class/README.md +++ /dev/null @@ -1 +0,0 @@ -Stub for SquotProgressOutput value that does nothing. Protocol is a subset of SquotGUI. \ No newline at end of file diff --git a/src/Squot.package/SquotNoProgressOutput.class/class/displayProgress.during..st b/src/Squot.package/SquotNoProgressOutput.class/class/displayProgress.during..st deleted file mode 100644 index b8ac7b860..000000000 --- a/src/Squot.package/SquotNoProgressOutput.class/class/displayProgress.during..st +++ /dev/null @@ -1,3 +0,0 @@ -progress output -displayProgress: aString during: aBlock - ^ aBlock value \ No newline at end of file diff --git a/src/Squot.package/SquotNoProgressOutput.class/class/displayProgress.for.do..st b/src/Squot.package/SquotNoProgressOutput.class/class/displayProgress.for.do..st deleted file mode 100644 index d4040518d..000000000 --- a/src/Squot.package/SquotNoProgressOutput.class/class/displayProgress.for.do..st +++ /dev/null @@ -1,3 +0,0 @@ -progress output -displayProgress: aStringOrBlock for: aCollection do: aBlock - aCollection do: aBlock. \ No newline at end of file diff --git a/src/Squot.package/SquotNoProgressOutput.class/class/displayStatus.during..st b/src/Squot.package/SquotNoProgressOutput.class/class/displayStatus.during..st deleted file mode 100644 index 26cdc0bc8..000000000 --- a/src/Squot.package/SquotNoProgressOutput.class/class/displayStatus.during..st +++ /dev/null @@ -1,3 +0,0 @@ -progress output -displayStatus: aString during: aBlock - ^ aBlock value \ No newline at end of file diff --git a/src/Squot.package/SquotNoProgressOutput.class/class/updateProgress.text..st b/src/Squot.package/SquotNoProgressOutput.class/class/updateProgress.text..st deleted file mode 100644 index 137e9dacf..000000000 --- a/src/Squot.package/SquotNoProgressOutput.class/class/updateProgress.text..st +++ /dev/null @@ -1,2 +0,0 @@ -progress output -updateProgress: aNumber text: aString \ No newline at end of file diff --git a/src/Squot.package/SquotNoProgressOutput.class/methodProperties.json b/src/Squot.package/SquotNoProgressOutput.class/methodProperties.json deleted file mode 100644 index 702221945..000000000 --- a/src/Squot.package/SquotNoProgressOutput.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - "displayProgress:during:" : "jr 9/13/2020 22:30", - "displayProgress:for:do:" : "jr 9/13/2020 22:31", - "displayStatus:during:" : "jr 9/13/2020 22:31", - "updateProgress:text:" : "jr 9/13/2020 22:31" }, - "instance" : { - } } diff --git a/src/Squot.package/SquotNoProgressOutput.class/properties.json b/src/Squot.package/SquotNoProgressOutput.class/properties.json deleted file mode 100644 index 78fbca479..000000000 --- a/src/Squot.package/SquotNoProgressOutput.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Support", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 9/13/2020 22:29", - "instvars" : [ - ], - "name" : "SquotNoProgressOutput", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotNoTableOfContentsFound.class/README.md b/src/Squot.package/SquotNoTableOfContentsFound.class/README.md deleted file mode 100644 index 87cc0497b..000000000 --- a/src/Squot.package/SquotNoTableOfContentsFound.class/README.md +++ /dev/null @@ -1,6 +0,0 @@ -I am signalled when a FileSystemStore does not know how to find the paths of stored objects. Handlers can use other means to identify objects in the file system and let me know about them. I can then provide a fallback table of contents. - -Instance Variables - rootDirectory: root directory of a version's file tree - store: store that operates on the rootDirectory - tableOfContents: fallback table of contents to be provisioned by handlers \ No newline at end of file diff --git a/src/Squot.package/SquotNoTableOfContentsFound.class/instance/add..st b/src/Squot.package/SquotNoTableOfContentsFound.class/instance/add..st deleted file mode 100644 index bdc2367ab..000000000 --- a/src/Squot.package/SquotNoTableOfContentsFound.class/instance/add..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -add: anArtifact - tableOfContents add: anArtifact. \ No newline at end of file diff --git a/src/Squot.package/SquotNoTableOfContentsFound.class/instance/tableOfContents..st b/src/Squot.package/SquotNoTableOfContentsFound.class/instance/tableOfContents..st deleted file mode 100644 index b9a23cf23..000000000 --- a/src/Squot.package/SquotNoTableOfContentsFound.class/instance/tableOfContents..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -tableOfContents: aSquotTableOfContentsFile - tableOfContents := aSquotTableOfContentsFile. \ No newline at end of file diff --git a/src/Squot.package/SquotNoTableOfContentsFound.class/instance/tableOfContents.st b/src/Squot.package/SquotNoTableOfContentsFound.class/instance/tableOfContents.st deleted file mode 100644 index 7eb38a433..000000000 --- a/src/Squot.package/SquotNoTableOfContentsFound.class/instance/tableOfContents.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -tableOfContents - ^ tableOfContents \ No newline at end of file diff --git a/src/Squot.package/SquotNoTableOfContentsFound.class/methodProperties.json b/src/Squot.package/SquotNoTableOfContentsFound.class/methodProperties.json deleted file mode 100644 index e10660f1a..000000000 --- a/src/Squot.package/SquotNoTableOfContentsFound.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "add:" : "jr 10/3/2017 00:17", - "tableOfContents" : "jr 4/13/2017 19:12", - "tableOfContents:" : "jr 10/3/2017 00:09" } } diff --git a/src/Squot.package/SquotNoTableOfContentsFound.class/properties.json b/src/Squot.package/SquotNoTableOfContentsFound.class/properties.json deleted file mode 100644 index cf84367ca..000000000 --- a/src/Squot.package/SquotNoTableOfContentsFound.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-FileSystemStore", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 19:22", - "instvars" : [ - "tableOfContents" ], - "name" : "SquotNoTableOfContentsFound", - "pools" : [ - ], - "super" : "Notification", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectAddition.class/README.md b/src/Squot.package/SquotObjectAddition.class/README.md deleted file mode 100644 index 5a3a599d2..000000000 --- a/src/Squot.package/SquotObjectAddition.class/README.md +++ /dev/null @@ -1 +0,0 @@ -An object was added to an object graph. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectAddition.class/class/of..st b/src/Squot.package/SquotObjectAddition.class/class/of..st deleted file mode 100644 index 0f091d78b..000000000 --- a/src/Squot.package/SquotObjectAddition.class/class/of..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -of: anObject - ^ self new - addedObject: anObject; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotObjectAddition.class/instance/addedObject..st b/src/Squot.package/SquotObjectAddition.class/instance/addedObject..st deleted file mode 100644 index b8f4bb232..000000000 --- a/src/Squot.package/SquotObjectAddition.class/instance/addedObject..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -addedObject: anObject - - addedObject := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectAddition.class/instance/addedObject.st b/src/Squot.package/SquotObjectAddition.class/instance/addedObject.st deleted file mode 100644 index 129bedc91..000000000 --- a/src/Squot.package/SquotObjectAddition.class/instance/addedObject.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -addedObject - - ^ addedObject \ No newline at end of file diff --git a/src/Squot.package/SquotObjectAddition.class/instance/applyToShadowNamed.inGraph..st b/src/Squot.package/SquotObjectAddition.class/instance/applyToShadowNamed.inGraph..st deleted file mode 100644 index 33827a5c7..000000000 --- a/src/Squot.package/SquotObjectAddition.class/instance/applyToShadowNamed.inGraph..st +++ /dev/null @@ -1,5 +0,0 @@ -patching -applyToShadowNamed: name inGraph: aMutableObjectGraph - self checkName: name. - aMutableObjectGraph assign: name toShadow: addedObject undecorated. - ^ addedObject \ No newline at end of file diff --git a/src/Squot.package/SquotObjectAddition.class/instance/checkName..st b/src/Squot.package/SquotObjectAddition.class/instance/checkName..st deleted file mode 100644 index cb6da89c2..000000000 --- a/src/Squot.package/SquotObjectAddition.class/instance/checkName..st +++ /dev/null @@ -1,4 +0,0 @@ -private -checkName: name - addedObject hasSquotShadowName ifTrue: - [self assert: name = addedObject name description: 'Object has a different name']. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectAddition.class/instance/object.st b/src/Squot.package/SquotObjectAddition.class/instance/object.st deleted file mode 100644 index ee996560e..000000000 --- a/src/Squot.package/SquotObjectAddition.class/instance/object.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -object - ^ self addedObject \ No newline at end of file diff --git a/src/Squot.package/SquotObjectAddition.class/instance/printOn..st b/src/Squot.package/SquotObjectAddition.class/instance/printOn..st deleted file mode 100644 index f6c33073d..000000000 --- a/src/Squot.package/SquotObjectAddition.class/instance/printOn..st +++ /dev/null @@ -1,4 +0,0 @@ -printing -printOn: aStream - aStream nextPutAll: 'add '; - print: addedObject. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectAddition.class/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st b/src/Squot.package/SquotObjectAddition.class/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st deleted file mode 100644 index 2d68085f7..000000000 --- a/src/Squot.package/SquotObjectAddition.class/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st +++ /dev/null @@ -1,10 +0,0 @@ -Squot-diff-enumerating -referenceDiffsWithDefaultOwners: leftAndRightShadows reflectedIn: aMirror do: aBlock - "Pretend to update all the references of my object with their new values." - ^ (aMirror referencesFrom: addedObject) - collect: - [:each | SquotReferenceTargetExchange - reference: each - leftOwner: nil target: nil - rightOwner: addedObject target: (aMirror reflect: each of: addedObject)] - thenDo: aBlock \ No newline at end of file diff --git a/src/Squot.package/SquotObjectAddition.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotObjectAddition.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index 687e48b52..000000000 --- a/src/Squot.package/SquotObjectAddition.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools-Diffs -squotChangeAsStringOrText - ^ 'New object: ', addedObject printString \ No newline at end of file diff --git a/src/Squot.package/SquotObjectAddition.class/instance/squotHasChanges.st b/src/Squot.package/SquotObjectAddition.class/instance/squotHasChanges.st deleted file mode 100644 index 4ae7cf360..000000000 --- a/src/Squot.package/SquotObjectAddition.class/instance/squotHasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-diff-testing -squotHasChanges - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotObjectAddition.class/methodProperties.json b/src/Squot.package/SquotObjectAddition.class/methodProperties.json deleted file mode 100644 index 7a42272aa..000000000 --- a/src/Squot.package/SquotObjectAddition.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - "of:" : "jr 9/7/2019 12:04" }, - "instance" : { - "addedObject" : "jr 9/7/2019 12:03", - "addedObject:" : "jr 9/7/2019 12:03", - "applyToShadowNamed:inGraph:" : "jr 7/4/2021 17:45", - "checkName:" : "jr 9/25/2019 18:54", - "object" : "jr 9/7/2019 12:13", - "printOn:" : "jr 9/7/2019 12:12", - "referenceDiffsWithDefaultOwners:reflectedIn:do:" : "jr 6/27/2021 22:55", - "squotChangeAsStringOrText" : "jr 11/1/2020 19:11", - "squotHasChanges" : "jr 9/25/2019 19:18" } } diff --git a/src/Squot.package/SquotObjectAddition.class/properties.json b/src/Squot.package/SquotObjectAddition.class/properties.json deleted file mode 100644 index 3162fe88b..000000000 --- a/src/Squot.package/SquotObjectAddition.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Diffs", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotAddition classTrait + TSquotDiff classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 9/20/2019 21:48", - "instvars" : [ - "addedObject" ], - "name" : "SquotObjectAddition", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotAddition + TSquotDiff", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectAdditionConflict.class/README.md b/src/Squot.package/SquotObjectAdditionConflict.class/README.md deleted file mode 100644 index 6689310f9..000000000 --- a/src/Squot.package/SquotObjectAdditionConflict.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am a conflict of two additions under the same name/path/key. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectAdditionConflict.class/class/left.right..st b/src/Squot.package/SquotObjectAdditionConflict.class/class/left.right..st deleted file mode 100644 index d97ce3029..000000000 --- a/src/Squot.package/SquotObjectAdditionConflict.class/class/left.right..st +++ /dev/null @@ -1,6 +0,0 @@ -instance creation -left: leftAddedObject right: rightAddedObject - self deprecated: 'Use working:incoming: instead'. - ^ self new - left: leftAddedObject right: rightAddedObject; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotObjectAdditionConflict.class/class/working.incoming..st b/src/Squot.package/SquotObjectAdditionConflict.class/class/working.incoming..st deleted file mode 100644 index 002dd2b4f..000000000 --- a/src/Squot.package/SquotObjectAdditionConflict.class/class/working.incoming..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -working: workingAddedObject incoming: incomingAddedObject - ^ self new - setWorking: workingAddedObject incoming: incomingAddedObject; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotObjectAdditionConflict.class/instance/chooseIncoming.st b/src/Squot.package/SquotObjectAdditionConflict.class/instance/chooseIncoming.st deleted file mode 100644 index 2b9935fca..000000000 --- a/src/Squot.package/SquotObjectAdditionConflict.class/instance/chooseIncoming.st +++ /dev/null @@ -1,3 +0,0 @@ -merging -chooseIncoming - resolution := SquotObjectReplacement left: working right: incoming. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectAdditionConflict.class/instance/initializeSquotDiffNodes.with..st b/src/Squot.package/SquotObjectAdditionConflict.class/instance/initializeSquotDiffNodes.with..st deleted file mode 100644 index 3e13697af..000000000 --- a/src/Squot.package/SquotObjectAdditionConflict.class/instance/initializeSquotDiffNodes.with..st +++ /dev/null @@ -1,9 +0,0 @@ -*Squot-Tools -initializeSquotDiffNodes: aCollection with: aDiffNodesBuilder - aCollection do: [:each | each - setTitle: 'conflicting addition' - content: self - children: Array new; - includeBlock: []; - excludeBlock: []; - resetBlock: []]. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectAdditionConflict.class/instance/left.right..st b/src/Squot.package/SquotObjectAdditionConflict.class/instance/left.right..st deleted file mode 100644 index c3c23e06a..000000000 --- a/src/Squot.package/SquotObjectAdditionConflict.class/instance/left.right..st +++ /dev/null @@ -1,7 +0,0 @@ -initialize-release -left: leftAddedObject right: rightAddedObject - self deprecated: 'Use setWorking:incoming: instead'. - working := leftAddedObject. - incoming := rightAddedObject. - base := nil. - self resetChoice. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectAdditionConflict.class/instance/newSquotDiffNodes.st b/src/Squot.package/SquotObjectAdditionConflict.class/instance/newSquotDiffNodes.st deleted file mode 100644 index 65424b6c1..000000000 --- a/src/Squot.package/SquotObjectAdditionConflict.class/instance/newSquotDiffNodes.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -newSquotDiffNodes - ^ Array with: SquotMergeDiffNode new \ No newline at end of file diff --git a/src/Squot.package/SquotObjectAdditionConflict.class/instance/setWorking.incoming..st b/src/Squot.package/SquotObjectAdditionConflict.class/instance/setWorking.incoming..st deleted file mode 100644 index 1acdc9102..000000000 --- a/src/Squot.package/SquotObjectAdditionConflict.class/instance/setWorking.incoming..st +++ /dev/null @@ -1,6 +0,0 @@ -initialize-release -setWorking: workingAddedObject incoming: incomingAddedObject - working := workingAddedObject. - incoming := incomingAddedObject. - base := nil. - self resetChoice. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectAdditionConflict.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotObjectAdditionConflict.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index d62ed53d1..000000000 --- a/src/Squot.package/SquotObjectAdditionConflict.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -squotChangeAsStringOrText - ^ 'Distinct objects', String cr, - (TextDiffBuilder buildDisplayPatchFrom: working printString to: incoming printString) \ No newline at end of file diff --git a/src/Squot.package/SquotObjectAdditionConflict.class/methodProperties.json b/src/Squot.package/SquotObjectAdditionConflict.class/methodProperties.json deleted file mode 100644 index df755ff00..000000000 --- a/src/Squot.package/SquotObjectAdditionConflict.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - "left:right:" : "jr 12/21/2020 00:06", - "working:incoming:" : "jr 12/20/2020 23:58" }, - "instance" : { - "chooseIncoming" : "jr 9/25/2019 23:22", - "initializeSquotDiffNodes:with:" : "jr 11/1/2020 21:42", - "left:right:" : "jr 12/20/2020 23:58", - "newSquotDiffNodes" : "jr 3/17/2018 14:35", - "setWorking:incoming:" : "jr 12/20/2020 23:58", - "squotChangeAsStringOrText" : "jr 11/1/2020 18:50" } } diff --git a/src/Squot.package/SquotObjectAdditionConflict.class/properties.json b/src/Squot.package/SquotObjectAdditionConflict.class/properties.json deleted file mode 100644 index 6f4572a47..000000000 --- a/src/Squot.package/SquotObjectAdditionConflict.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Merging", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 10/19/2017 19:28", - "instvars" : [ - ], - "name" : "SquotObjectAdditionConflict", - "pools" : [ - ], - "super" : "SquotConflict", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectCaptureTest.class/README.md b/src/Squot.package/SquotObjectCaptureTest.class/README.md deleted file mode 100644 index bf01f5cae..000000000 --- a/src/Squot.package/SquotObjectCaptureTest.class/README.md +++ /dev/null @@ -1 +0,0 @@ -Tests that objects can be captured correctly. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCaptureTest.class/instance/setUp.st b/src/Squot.package/SquotObjectCaptureTest.class/instance/setUp.st deleted file mode 100644 index 64c200658..000000000 --- a/src/Squot.package/SquotObjectCaptureTest.class/instance/setUp.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -setUp - capturer := SquotObjectCapturer new \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCaptureTest.class/instance/testArrayOfIntegers.st b/src/Squot.package/SquotObjectCaptureTest.class/instance/testArrayOfIntegers.st deleted file mode 100644 index d6bd36c9f..000000000 --- a/src/Squot.package/SquotObjectCaptureTest.class/instance/testArrayOfIntegers.st +++ /dev/null @@ -1,8 +0,0 @@ -testing -testArrayOfIntegers - | shadow | - shadow := capturer captureStandalone: #(1 2 3). - self assert: shadow slots size = 3. - self assert: (shadow slots at: 1) value = 1. - self assert: (shadow slots at: 2) value = 2. - self assert: (shadow slots at: 3) value = 3. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCaptureTest.class/instance/testBooleans.st b/src/Squot.package/SquotObjectCaptureTest.class/instance/testBooleans.st deleted file mode 100644 index e5653a8e0..000000000 --- a/src/Squot.package/SquotObjectCaptureTest.class/instance/testBooleans.st +++ /dev/null @@ -1,7 +0,0 @@ -testing -testBooleans - | shadow | - shadow := capturer captureStandalone: (ValueHolder new contents: true). - self assert: (shadow slots at: 'contents') value == true. - shadow := capturer captureStandalone: (ValueHolder new contents: false). - self assert: (shadow slots at: 'contents') value == false. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCaptureTest.class/instance/testCaptureAgainProducesEqualGraph.st b/src/Squot.package/SquotObjectCaptureTest.class/instance/testCaptureAgainProducesEqualGraph.st deleted file mode 100644 index e23451f60..000000000 --- a/src/Squot.package/SquotObjectCaptureTest.class/instance/testCaptureAgainProducesEqualGraph.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testCaptureAgainProducesEqualGraph - | object graph1 graph2 | - object := ValueHolder new contents: 'a string'; yourself. - graph1 := capturer captureGraph: object. - graph2 := capturer captureGraph: object. - self assert: graph1 equals: graph2. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCaptureTest.class/instance/testCompiledMethod.st b/src/Squot.package/SquotObjectCaptureTest.class/instance/testCompiledMethod.st deleted file mode 100644 index 183685212..000000000 --- a/src/Squot.package/SquotObjectCaptureTest.class/instance/testCompiledMethod.st +++ /dev/null @@ -1,8 +0,0 @@ -testing -testCompiledMethod - | testMethod shadow | - testMethod := self class >> self selector. - shadow := capturer captureStandalone: testMethod. - self assert: (shadow instVarSlotNamed: #header) value normalize = testMethod header. - self assert: (shadow instVarSlotNamed: #literals) size = testMethod literals size. - self assert: shadow basicSizeOfMaterializedInstance = testMethod size. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCaptureTest.class/instance/testCyclicReferences.st b/src/Squot.package/SquotObjectCaptureTest.class/instance/testCyclicReferences.st deleted file mode 100644 index 4ac26be9a..000000000 --- a/src/Squot.package/SquotObjectCaptureTest.class/instance/testCyclicReferences.st +++ /dev/null @@ -1,8 +0,0 @@ -testing -testCyclicReferences - | subject shadow | - subject := Array new: 1. - subject at: 1 put: subject. - shadow := capturer captureStandalone: subject. - self assert: shadow slots size = 1. - self assert: (shadow slots at: 1) value undecorated == shadow undecorated. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCaptureTest.class/instance/testCyclicReferences2.st b/src/Squot.package/SquotObjectCaptureTest.class/instance/testCyclicReferences2.st deleted file mode 100644 index 479756da1..000000000 --- a/src/Squot.package/SquotObjectCaptureTest.class/instance/testCyclicReferences2.st +++ /dev/null @@ -1,10 +0,0 @@ -testing -testCyclicReferences2 - | a b shadowOfA shadowOfB | - a := SquotObjectForDiffTests new var1: 1; var2: nil. - b := SquotObjectForDiffTests new var1: 2; var2: a. - a var2: b. - shadowOfA := capturer captureStandalone: a. - shadowOfB := (shadowOfA slots at: 'var2'). - self assert: (shadowOfB slots at: 'var2') undecorated == shadowOfA undecorated. - self assert: (shadowOfB name includes: 'var2'). \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCaptureTest.class/instance/testDictionariesWithComplexKeys.st b/src/Squot.package/SquotObjectCaptureTest.class/instance/testDictionariesWithComplexKeys.st deleted file mode 100644 index c68963fd2..000000000 --- a/src/Squot.package/SquotObjectCaptureTest.class/instance/testDictionariesWithComplexKeys.st +++ /dev/null @@ -1,13 +0,0 @@ -testing -testDictionariesWithComplexKeys - | key1 key2 dict shadow associationShadows firstAssociationSlot secondAssociationSlot | - key1 := SquotObjectForDiffTests new var1: 1; var2: 2. - key2 := SquotObjectForDiffTests new var1: nil; var2: key1. - dict := Dictionary newFrom: {key1 -> 'value'. key2 -> key1}. - shadow := capturer captureStandalone: dict. - associationShadows := shadow itemSlots. - firstAssociationSlot := associationShadows - detect: [:whose | (whose value slots at: 'value') undecorated = 'value' captureWithSquot]. - secondAssociationSlot := associationShadows at: 3 - (associationShadows indexOf: firstAssociationSlot). - self assert: (firstAssociationSlot value slots at: 'key') undecorated == (secondAssociationSlot value slots at: 'value') undecorated. - self assert: ((secondAssociationSlot value slots at: 'key') slots at: 'var2') undecorated == (secondAssociationSlot value slots at: 'value') undecorated. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCaptureTest.class/instance/testDictionariesWithSharedAssociations.st b/src/Squot.package/SquotObjectCaptureTest.class/instance/testDictionariesWithSharedAssociations.st deleted file mode 100644 index 115fd0c8e..000000000 --- a/src/Squot.package/SquotObjectCaptureTest.class/instance/testDictionariesWithSharedAssociations.st +++ /dev/null @@ -1,11 +0,0 @@ -testing -testDictionariesWithSharedAssociations - | dict1 dict2 shadow dict1Shadow dict2Shadow sharedSlot | - dict1 := Dictionary newFrom: {#a -> 1. #b -> 2}. - dict2 := Dictionary new add: (dict1 associationAt: #a); yourself. - self assert: (dict1 associationAt: #a) == (dict2 associationAt: #a). - shadow := capturer captureStandalone: {dict1. dict2}. - dict1Shadow := shadow slots at: 1. - dict2Shadow := shadow slots at: 2. - sharedSlot := dict2Shadow itemSlots at: 1. - self assert: sharedSlot value undecorated == (sharedSlot lookupIn: dict1Shadow) value undecorated. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCaptureTest.class/instance/testDictionary.st b/src/Squot.package/SquotObjectCaptureTest.class/instance/testDictionary.st deleted file mode 100644 index 30fd4204a..000000000 --- a/src/Squot.package/SquotObjectCaptureTest.class/instance/testDictionary.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -testDictionary - | shadow | - shadow := capturer captureStandalone: (Dictionary newFrom: {1 -> 2. #foo -> #bar. 'bar' -> Object new}). \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCaptureTest.class/instance/testEmptyObject.st b/src/Squot.package/SquotObjectCaptureTest.class/instance/testEmptyObject.st deleted file mode 100644 index 4894a7e99..000000000 --- a/src/Squot.package/SquotObjectCaptureTest.class/instance/testEmptyObject.st +++ /dev/null @@ -1,6 +0,0 @@ -testing -testEmptyObject - | shadow | - shadow := capturer captureStandalone: Object new. - self assert: shadow slots isEmpty. - capturer nameOf: shadow undecorated ifAbsent: [self fail: 'no name assigned to shadow']. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCaptureTest.class/instance/testIdentityReplacedObject.st b/src/Squot.package/SquotObjectCaptureTest.class/instance/testIdentityReplacedObject.st deleted file mode 100644 index f79bdc438..000000000 --- a/src/Squot.package/SquotObjectCaptureTest.class/instance/testIdentityReplacedObject.st +++ /dev/null @@ -1,6 +0,0 @@ -testing -testIdentityReplacedObject - "Try to capture an object that should redirect to a proxy for capturing instead." - | binding shadow | - binding := Smalltalk globals bindingOf: #Smalltalk. - shadow := capturer captureStandalone: binding. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCaptureTest.class/instance/testNil.st b/src/Squot.package/SquotObjectCaptureTest.class/instance/testNil.st deleted file mode 100644 index 584a428e5..000000000 --- a/src/Squot.package/SquotObjectCaptureTest.class/instance/testNil.st +++ /dev/null @@ -1,5 +0,0 @@ -testing -testNil - | shadow | - shadow := capturer captureStandalone: nil. - self assert: shadow value == nil. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCaptureTest.class/instance/testNoNamesForPrimitiveValues.st b/src/Squot.package/SquotObjectCaptureTest.class/instance/testNoNamesForPrimitiveValues.st deleted file mode 100644 index 54f4f8113..000000000 --- a/src/Squot.package/SquotObjectCaptureTest.class/instance/testNoNamesForPrimitiveValues.st +++ /dev/null @@ -1,6 +0,0 @@ -testing -testNoNamesForPrimitiveValues - | shadow | - shadow := capturer captureStandalone: (SquotObjectForDiffTests new var1: 1; var2: nil). - self deny: (shadow slots at: 'var1') hasSquotShadowName. - self deny: (shadow slots at: 'var2') hasSquotShadowName. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCaptureTest.class/instance/testPackageInfo.st b/src/Squot.package/SquotObjectCaptureTest.class/instance/testPackageInfo.st deleted file mode 100644 index 50e6f50ae..000000000 --- a/src/Squot.package/SquotObjectCaptureTest.class/instance/testPackageInfo.st +++ /dev/null @@ -1,7 +0,0 @@ -testing -testPackageInfo - "...because it creates totally different shadows (Monticello stuff)" - | packageInfo shadow | - packageInfo := PackageInfo new packageName: self class category; yourself. - shadow := capturer captureStandalone: packageInfo. - self assert: shadow species == SquotPackageShadow. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCaptureTest.class/instance/testPackageInfoIndirect.st b/src/Squot.package/SquotObjectCaptureTest.class/instance/testPackageInfoIndirect.st deleted file mode 100644 index 4c7729663..000000000 --- a/src/Squot.package/SquotObjectCaptureTest.class/instance/testPackageInfoIndirect.st +++ /dev/null @@ -1,7 +0,0 @@ -testing -testPackageInfoIndirect - "...because it creates totally different shadows (Monticello stuff)" - | packageInfo shadow | - packageInfo := PackageInfo new packageName: self class category; yourself. - shadow := capturer captureStandalone: (Array with: packageInfo). - self assert: (shadow variablePartSlotWithIndex: 1) species == SquotPackageShadow. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCaptureTest.class/instance/testPoint.st b/src/Squot.package/SquotObjectCaptureTest.class/instance/testPoint.st deleted file mode 100644 index 5c9c0b050..000000000 --- a/src/Squot.package/SquotObjectCaptureTest.class/instance/testPoint.st +++ /dev/null @@ -1,7 +0,0 @@ -testing -testPoint - | shadow | - shadow := capturer captureStandalone: 1@2. - self assert: shadow slots size = 2. - self assert: ((Dictionary newFrom: shadow slots) at: 'x') value = 1. - self assert: ((Dictionary newFrom: shadow slots) at: 'y') value = 2. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCaptureTest.class/instance/testRectangle.st b/src/Squot.package/SquotObjectCaptureTest.class/instance/testRectangle.st deleted file mode 100644 index f4723e02d..000000000 --- a/src/Squot.package/SquotObjectCaptureTest.class/instance/testRectangle.st +++ /dev/null @@ -1,11 +0,0 @@ -testing -testRectangle - | shadow | - shadow := capturer captureStandalone: (1@2 corner: 3@4). - self assert: shadow slots size = 2. - self assert: ((shadow slots at: 'origin') isMemberOf: (capturer captureStandalone: 1@2) undecorated class). - self assert: ((shadow slots at: 'origin') slots at: 'x') value = 1. - self assert: ((shadow slots at: 'origin') slots at: 'y') value = 2. - self assert: ((shadow slots at: 'corner') isMemberOf: (capturer captureStandalone: 3@4) undecorated class). - self assert: ((shadow slots at: 'corner') slots at: 'x') value = 3. - self assert: ((shadow slots at: 'corner') slots at: 'y') value = 4. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCaptureTest.class/instance/testReplacedObject2.st b/src/Squot.package/SquotObjectCaptureTest.class/instance/testReplacedObject2.st deleted file mode 100644 index 515244110..000000000 --- a/src/Squot.package/SquotObjectCaptureTest.class/instance/testReplacedObject2.st +++ /dev/null @@ -1,12 +0,0 @@ -testing -testReplacedObject2 - "Capture a StringMorph whose font will be proxied." - | graph stringMorph fontShadow nameOfFontObject | - stringMorph := StringMorph contents: 'foo' font: TextStyle defaultFont. - graph := capturer captureGraph: stringMorph. - nameOfFontObject := graph delegateRegistry nameOf: stringMorph font. - fontShadow := graph shadowNamed: nameOfFontObject. - self assert: fontShadow value class ~= stringMorph font class; - deny: (fontShadow isMemberOf: SquotObjectShadow). - self assert: (graph objectNamed: nameOfFontObject) == stringMorph font - description: 'object by name should answer the original object'. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCaptureTest.class/instance/testSet.st b/src/Squot.package/SquotObjectCaptureTest.class/instance/testSet.st deleted file mode 100644 index d48310963..000000000 --- a/src/Squot.package/SquotObjectCaptureTest.class/instance/testSet.st +++ /dev/null @@ -1,7 +0,0 @@ -testing -testSet - | set shadow | - set := Set newFrom: {Object new. Object new. Object new}. - shadow := capturer captureStandalone: set. - self assert: shadow itemSlots size = 3. - self assert: shadow itemSlots first value name ~= shadow itemSlots second value name. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCaptureTest.class/instance/testString.st b/src/Squot.package/SquotObjectCaptureTest.class/instance/testString.st deleted file mode 100644 index 4622ccabf..000000000 --- a/src/Squot.package/SquotObjectCaptureTest.class/instance/testString.st +++ /dev/null @@ -1,7 +0,0 @@ -testing -testString - | string shadow | - string := 'test'. - shadow := capturer captureStandalone: string. - self assert: shadow value = string. - self deny: shadow value == string. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCaptureTest.class/instance/testSymbol.st b/src/Squot.package/SquotObjectCaptureTest.class/instance/testSymbol.st deleted file mode 100644 index 81f45fd39..000000000 --- a/src/Squot.package/SquotObjectCaptureTest.class/instance/testSymbol.st +++ /dev/null @@ -1,6 +0,0 @@ -testing -testSymbol - | symbol shadow | - symbol := #test. - shadow := capturer captureStandalone: symbol. - self assert: shadow value == #test. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCaptureTest.class/methodProperties.json b/src/Squot.package/SquotObjectCaptureTest.class/methodProperties.json deleted file mode 100644 index 80b49e082..000000000 --- a/src/Squot.package/SquotObjectCaptureTest.class/methodProperties.json +++ /dev/null @@ -1,26 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "setUp" : "jr 6/17/2017 19:58", - "testArrayOfIntegers" : "jr 7/20/2017 22:07", - "testBooleans" : "jr 9/25/2019 15:47", - "testCaptureAgainProducesEqualGraph" : "jr 11/1/2020 18:24", - "testCompiledMethod" : "jr 4/8/2021 21:45", - "testCyclicReferences" : "jr 7/20/2017 22:08", - "testCyclicReferences2" : "jr 7/20/2017 22:08", - "testDictionariesWithComplexKeys" : "jr 7/20/2017 22:08", - "testDictionariesWithSharedAssociations" : "jr 2/23/2020 20:14", - "testDictionary" : "jr 7/20/2017 22:08", - "testEmptyObject" : "jr 7/30/2017 02:55", - "testIdentityReplacedObject" : "jr 7/20/2017 22:08", - "testNil" : "jr 7/20/2017 22:08", - "testNoNamesForPrimitiveValues" : "jr 7/20/2017 22:08", - "testPackageInfo" : "jr 4/25/2020 16:32", - "testPackageInfoIndirect" : "jr 4/25/2020 16:32", - "testPoint" : "jr 7/20/2017 22:09", - "testRectangle" : "jr 7/20/2017 22:21", - "testReplacedObject2" : "jr 4/8/2021 21:51", - "testSet" : "jr 7/20/2017 22:09", - "testString" : "jr 7/20/2017 22:09", - "testSymbol" : "jr 4/7/2021 22:05" } } diff --git a/src/Squot.package/SquotObjectCaptureTest.class/properties.json b/src/Squot.package/SquotObjectCaptureTest.class/properties.json deleted file mode 100644 index 439871a74..000000000 --- a/src/Squot.package/SquotObjectCaptureTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Shadows", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 6/24/2017 00:06", - "instvars" : [ - "capturer" ], - "name" : "SquotObjectCaptureTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectCapturer.class/README.md b/src/Squot.package/SquotObjectCapturer.class/README.md deleted file mode 100644 index f85e7ec0b..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/README.md +++ /dev/null @@ -1,18 +0,0 @@ -I generate a SquotObjectGraph from live objects, for which shadow objects will be created. - -The graph of live objects is traversed with a breadth-first search. Objects are asked to convert themselves into shadows by sending them #captureWithSquot:, with the capturer as the argument. Objects may decide to have a replacement (proxy) captured instead of themselves. In either case, the objects should enumerate their variables and send them to the capturer with #capture:asValueOfSlot:. But objects can also choose to start their own traversal of their relatives. They will not benefit from the multiple-path pruning of the capturer, unless they use #shadowOf:ifAbsentPut: to register the shadows created by their own object graph traversal. - -To trace the original object in graphs of snapshots, objects get names assigned. They work like attached global identifiers. The names are kept in a SquotObjectRegistry and also in the created SquotObjectGraph. - -Instance Variables - capturedObject: the live object that is being captured - capturedObjectWithReferrer: capturedObject decorated with referrer, if available - convertedObjects: already converted objects (or in progress) - copiedObjects: already visited objects and their shadows (used to mimic DeepCopier) - enumeratedObject: the object whose parts are being captured. If capturedObject wanted to be replaced for capturing, this will be the replacement object. - replacedObjects: associates live objects with their capture replacements - objectGraph: the graph under construction - objectRegistry: the registry used to look up object names - slotValueReplacements: cache for slots with an overridden value to capture - slotsToConvert: slots whose values must still be changed to the captured shadows - toBeVisited: search queue for object graph traversal \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/instance/beginCapturingFrom..st b/src/Squot.package/SquotObjectCapturer.class/instance/beginCapturingFrom..st deleted file mode 100644 index 36e34a0a2..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/instance/beginCapturingFrom..st +++ /dev/null @@ -1,19 +0,0 @@ -private -beginCapturingFrom: anObject - | decorated mirror | - objectGraph := SquotMutableObjectGraph new. - objectGraph delegateRegistry: objectRegistry. - mirror := (thisContext objectClass: anObject) squotMirror. - walk := SquotGraphWalk startingFrom: anObject -> mirror. - toBeVisited removeAll. - convertedObjects removeAll. - replacedObjects removeAll. - slotsToConvert removeAll. - decorated := SquotCreatorDecorator on: anObject creator: nil slot: nil. - (mirror shouldObjectHaveNameAssigned: anObject) - ifTrue: [objectGraph assign: (objectRegistry nameOf: anObject ifAbsent: [self newNameFor: anObject reachedFrom: nil via: nil]) to: anObject] - ifFalse: [objectGraph assign: objectGraph class anonymousObjectName to: anObject]. - toBeVisited add: decorated. - self followReferences. "give names to objects and create shadows" - objectGraph startShadow: (convertedObjects at: anObject). - ^ objectGraph as: SquotObjectGraph \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/instance/capture.as..st b/src/Squot.package/SquotObjectCapturer.class/instance/capture.as..st deleted file mode 100644 index 41f0d88ee..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/instance/capture.as..st +++ /dev/null @@ -1,15 +0,0 @@ -capturing -capture: anObject as: shadowObjectFactory - | newShadow | - "if capturedObject is replaced by anObject for capturing, remember the capturedObject's name" - self flag: #deprecated. "Superseded by capture: anObject in: aSquotMirror" - anObject ~~ capturedObject - ifTrue: [objectGraph answer: (objectGraph nameOf: capturedObject) - whenAskedForTheNameOf: anObject]. - convertedObjects at: anObject ifPresent: [:existing | ^ existing]. - newShadow := shadowObjectFactory new. - self rememberAsShadowOfCapturedObject: newShadow. - enumeratedObject := anObject. - newShadow initializeFrom: anObject with: self. - anObject ~~ capturedObject ifTrue: [newShadow assumeOriginalClassOf: capturedObject]. - ^ newShadow \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/instance/capture.asValueOf.from.reflectedIn.intoValueOf.from.reflectedIn..st b/src/Squot.package/SquotObjectCapturer.class/instance/capture.asValueOf.from.reflectedIn.intoValueOf.from.reflectedIn..st deleted file mode 100644 index 621d3995d..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/instance/capture.asValueOf.from.reflectedIn.intoValueOf.from.reflectedIn..st +++ /dev/null @@ -1,18 +0,0 @@ -capturing -capture: anObject asValueOf: aReference from: referrerObject reflectedIn: aMirror intoValueOf: shadowsReference from: referrerShadow reflectedIn: aShadowMirror - | captureObject name namedObject referencedObjectMirror | - captureObject := self replacementForSlot: aReference in: referrerObject - ifFound: [:replacement | replacement] - ifNone: [anObject undecorated]. - objectGraph creatorOf: captureObject ifAbsentPut: [aReference] of: [referrerObject]. - name := ((referencedObjectMirror := aMirror mirrorOf: anObject undecorated reachedVia: aReference from: referrerObject) shouldObjectHaveNameAssigned: captureObject) - ifTrue: [objectGraph nameOf: captureObject - ifAbsentAssign: [self newNameFor: anObject reachedFrom: referrerObject via: aReference]]. - convertedObjects at: captureObject - ifPresent: [:existingShadow | aShadowMirror reflect: shadowsReference of: referrerShadow put: existingShadow] - ifAbsent: - [namedObject := SquotNameDecorator on: captureObject withName: name. - aShadowMirror reflect: shadowsReference of: referrerShadow put: namedObject. "Tempory, until capturedObject is really captured later during the walk." - walk add: captureObject -> referencedObjectMirror reachedVia: aReference. - (slotsToConvert at: captureObject ifAbsentPut: [OrderedCollection new]) add: {referrerShadow. aShadowMirror. shadowsReference}]. - ^ captureObject \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/instance/capture.asValueOfSlot..st b/src/Squot.package/SquotObjectCapturer.class/instance/capture.asValueOfSlot..st deleted file mode 100644 index 8ffa16a53..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/instance/capture.asValueOfSlot..st +++ /dev/null @@ -1,23 +0,0 @@ -capturing -capture: anObject asValueOfSlot: aShadowSlot - | captureObject name namedObject decorated | - self flag: #deprecated. "Use capture: anObject asValueOf: aReference from: referrerObject reflectedIn: aMirror intoValueOf: shadowsReference from: referrerShadow reflectedIn: aShadowMirror instead" - captureObject := self replacementForSlot: aShadowSlot in: enumeratedObject - ifFound: [:replacement | replacement] - ifNone: [anObject undecorated]. - decorated := SquotCreatorDecorator on: captureObject - creator: (enumeratedObject squotDecoratedLike: capturedObjectWithReferrer) - slot: aShadowSlot. - objectGraph creatorOf: captureObject - ifAbsentPut: [aShadowSlot] of: [enumeratedObject]. - name := captureObject shouldHaveNameAssignedBySquot - ifTrue: [objectGraph nameOf: captureObject - ifAbsentAssign: [self newNameFor: decorated]]. - convertedObjects at: captureObject - ifPresent: [:existingShadow | aShadowSlot value: existingShadow] - ifAbsent: - [namedObject := SquotNameDecorator on: captureObject withName: name. - aShadowSlot value: namedObject. - toBeVisited add: decorated. - slotsToConvert add: aShadowSlot]. - ^ aShadowSlot \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/instance/capture.reflectedIn..st b/src/Squot.package/SquotObjectCapturer.class/instance/capture.reflectedIn..st deleted file mode 100644 index cb9d5c3fc..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/instance/capture.reflectedIn..st +++ /dev/null @@ -1,17 +0,0 @@ -private -capture: aDecoratedObject reflectedIn: aMirror - | undecorated object shadow | - undecorated := aDecoratedObject undecorated. - (convertedObjects includesKey: undecorated) ifTrue: [^ self]. - capturedObject := undecorated. - capturedObjectWithReferrer := aDecoratedObject. - object := replacedObjects at: undecorated ifAbsent: [undecorated]. - shadow := aMirror capture: object with: self ifReplaced: - [:proxy | - (aMirror shouldObjectHaveNameAssigned: capturedObject) ifTrue: - [objectGraph "Keep the identifier." - answer: (objectGraph nameOf: capturedObject) - whenAskedForTheNameOf: proxy undecorated]. - (convertedObjects includesKey: proxy undecorated) ifTrue: [^ self]]. - self rememberAsShadowOfCapturedObject: shadow. "Safeguard against mirrors that do not register the shadow already." - objectGraph addShadow: shadow of: capturedObject. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/instance/captureBits..st b/src/Squot.package/SquotObjectCapturer.class/instance/captureBits..st deleted file mode 100644 index b6438c527..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/instance/captureBits..st +++ /dev/null @@ -1,4 +0,0 @@ -capturing -captureBits: anObject - self flag: #deprecated. "Use captureBits: anObject in: aMirror instead." - ^ self capture: anObject as: SquotBitsObjectShadow \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/instance/captureGraph..st b/src/Squot.package/SquotObjectCapturer.class/instance/captureGraph..st deleted file mode 100644 index 31b1f9663..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/instance/captureGraph..st +++ /dev/null @@ -1,3 +0,0 @@ -public capturing -captureGraph: anObject - ^ self beginCapturingFrom: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/instance/capturePrimitiveValue..st b/src/Squot.package/SquotObjectCapturer.class/instance/capturePrimitiveValue..st deleted file mode 100644 index 6600a39ba..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/instance/capturePrimitiveValue..st +++ /dev/null @@ -1,4 +0,0 @@ -capturing -capturePrimitiveValue: anObject - self flag: #deprecated. "Use capturePrimitiveValue: anObject in: aMirror instead." - ^ self capture: anObject as: SquotPrimitiveValue \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/instance/capturePrimitiveValue.in..st b/src/Squot.package/SquotObjectCapturer.class/instance/capturePrimitiveValue.in..st deleted file mode 100644 index 753d45b0f..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/instance/capturePrimitiveValue.in..st +++ /dev/null @@ -1,4 +0,0 @@ -capturing -capturePrimitiveValue: anObject in: aMirror - self flag: #deprecated. "Use SquotSystemSingletonMirror or SquotOpaqueValueMirror instead." - ^ SquotPrimitiveValue for: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/instance/captureStandalone..st b/src/Squot.package/SquotObjectCapturer.class/instance/captureStandalone..st deleted file mode 100644 index 7f7ac80ee..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/instance/captureStandalone..st +++ /dev/null @@ -1,3 +0,0 @@ -public capturing -captureStandalone: anObject - ^ (self captureGraph: anObject) startShadow \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/instance/followReferences.st b/src/Squot.package/SquotObjectCapturer.class/instance/followReferences.st deleted file mode 100644 index 083628336..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/instance/followReferences.st +++ /dev/null @@ -1,5 +0,0 @@ -private -followReferences - walk do: [:each | | object mirror | - object := each key. mirror := each value. - self capture: object reflectedIn: mirror]. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/instance/initialize.st b/src/Squot.package/SquotObjectCapturer.class/instance/initialize.st deleted file mode 100644 index defc5b74c..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/instance/initialize.st +++ /dev/null @@ -1,9 +0,0 @@ -initialize-release -initialize - convertedObjects := IdentityDictionary new. - copiedObjects := IdentityDictionary new. - objectRegistry := SquotObjectRegistry new. - replacedObjects := IdentityDictionary new. - slotValueReplacements := IdentityDictionary new. - toBeVisited := LinkedList new. - slotsToConvert := IdentityDictionary new. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/instance/insideASegment.st b/src/Squot.package/SquotObjectCapturer.class/instance/insideASegment.st deleted file mode 100644 index b00c537d1..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/instance/insideASegment.st +++ /dev/null @@ -1,3 +0,0 @@ -DataStream -insideASegment - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/instance/nameOf..st b/src/Squot.package/SquotObjectCapturer.class/instance/nameOf..st deleted file mode 100644 index d77c751f4..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/instance/nameOf..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -nameOf: anObject - ^ objectGraph nameOf: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/instance/nameOf.ifAbsent..st b/src/Squot.package/SquotObjectCapturer.class/instance/nameOf.ifAbsent..st deleted file mode 100644 index 67cb19c86..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/instance/nameOf.ifAbsent..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -nameOf: anObject ifAbsent: aBlock - ^ objectGraph nameOf: anObject ifAbsent: aBlock \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/instance/newNameFor..st b/src/Squot.package/SquotObjectCapturer.class/instance/newNameFor..st deleted file mode 100644 index 2d3d6571f..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/instance/newNameFor..st +++ /dev/null @@ -1,9 +0,0 @@ -private -newNameFor: aDecoratedObject - self flag: #deprecated. "Use newNameFor: anObject reachedFrom: referrerObject via: aReference instead." - ^ aDecoratedObject creator - ifNil: [self rootName] - ifNotNil: [:creator | - ((objectGraph nameOf: creator undecorated) - ifNotEmpty: [:name |name allButLast]) , - {aDecoratedObject creatorSlot newNameFragment. UUID new}] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/instance/newNameFor.reachedFrom.via..st b/src/Squot.package/SquotObjectCapturer.class/instance/newNameFor.reachedFrom.via..st deleted file mode 100644 index 0bc1997a2..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/instance/newNameFor.reachedFrom.via..st +++ /dev/null @@ -1,8 +0,0 @@ -capturing -newNameFor: anObject reachedFrom: referrerObject via: aReference - ^ referrerObject - ifNil: [self rootName] - ifNotNil: - [((objectGraph nameOf: referrerObject undecorated) - ifNotEmpty: [:name | name allButLast]) , - {aReference newNameFragment. UUID new}] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/instance/objectGraph.st b/src/Squot.package/SquotObjectCapturer.class/instance/objectGraph.st deleted file mode 100644 index 72bc98dc2..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/instance/objectGraph.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -objectGraph - "Answer the last captured graph." - ^ objectGraph \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/instance/project.st b/src/Squot.package/SquotObjectCapturer.class/instance/project.st deleted file mode 100644 index 06b104d1d..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/instance/project.st +++ /dev/null @@ -1,3 +0,0 @@ -DataStream -project - ^ Project current \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/instance/projectChangeSet.st b/src/Squot.package/SquotObjectCapturer.class/instance/projectChangeSet.st deleted file mode 100644 index b48fd2d4f..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/instance/projectChangeSet.st +++ /dev/null @@ -1,3 +0,0 @@ -DataStream -projectChangeSet - ^ self project changeSet \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/instance/registry..st b/src/Squot.package/SquotObjectCapturer.class/instance/registry..st deleted file mode 100644 index 81f4903a6..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/instance/registry..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -registry: anObjectRegistry - objectRegistry := anObjectRegistry. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/instance/rememberAsShadowOfCapturedObject..st b/src/Squot.package/SquotObjectCapturer.class/instance/rememberAsShadowOfCapturedObject..st deleted file mode 100644 index 10dea5fd2..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/instance/rememberAsShadowOfCapturedObject..st +++ /dev/null @@ -1,13 +0,0 @@ -private -rememberAsShadowOfCapturedObject: newShadow - | decoratedShadow | - decoratedShadow := SquotNameDecorator on: newShadow - withName: (objectGraph nameOf: capturedObject ifAbsent: [ ]). - convertedObjects at: capturedObject put: decoratedShadow. - "Redirect slots from live objects to shadows." - (slotsToConvert removeKey: capturedObject ifAbsent: [#()]) do: - [:each | | shadowMirror shadowReference shadowReferrer | - shadowReferrer := each first. - shadowMirror := each second. - shadowReference := each third. - shadowMirror reflect: shadowReference of: shadowReferrer put: decoratedShadow]. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/instance/replace.with..st b/src/Squot.package/SquotObjectCapturer.class/instance/replace.with..st deleted file mode 100644 index 54052fc85..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/instance/replace.with..st +++ /dev/null @@ -1,5 +0,0 @@ -DataStream -replace: original with: proxy - "From DataStream interface: We may wish to remember that in some field, the original object is being replaced by the proxy." - replacedObjects at: original put: proxy. - objectGraph answer: (objectGraph nameOf: original) whenAskedForTheNameOf: proxy. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/instance/replacementForSlot.in.ifFound.ifNone..st b/src/Squot.package/SquotObjectCapturer.class/instance/replacementForSlot.in.ifFound.ifNone..st deleted file mode 100644 index 51b628cfd..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/instance/replacementForSlot.in.ifFound.ifNone..st +++ /dev/null @@ -1,12 +0,0 @@ -private -replacementForSlot: aShadowSlot in: anObject ifFound: unaryBlock ifNone: noneBlock - "If there are settings for a slot to be initialized to a default-value, capture that." - slotValueReplacements at: anObject ifPresent: - [:slots | slots at: aShadowSlot key ifPresent: [:it | ^ it]]. - ^ SquotCurrentMetadata value - slotOverrideFor: aShadowSlot in: anObject - ifFound: [:replacement | - (slotValueReplacements at: anObject ifAbsentPut: [Dictionary new]) - at: aShadowSlot key put: replacement. - unaryBlock value: replacement] - ifNone: noneBlock \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/instance/rootName.st b/src/Squot.package/SquotObjectCapturer.class/instance/rootName.st deleted file mode 100644 index c3ac9ebfd..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/instance/rootName.st +++ /dev/null @@ -1,3 +0,0 @@ -private -rootName - ^ Array with: UUID new \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/instance/shadowOf.ifAbsentPut..st b/src/Squot.package/SquotObjectCapturer.class/instance/shadowOf.ifAbsentPut..st deleted file mode 100644 index db1be38ab..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/instance/shadowOf.ifAbsentPut..st +++ /dev/null @@ -1,9 +0,0 @@ -accessing -shadowOf: anObject ifAbsentPut: shadowBlock - "Answer the shadow that I already know for anObject. Create one with shadowBlock if I have none yet, and add it." - "This is a way for objects that do not want to be captured as ordinary shadows to register their results with me." - ^ convertedObjects at: anObject - ifAbsentPut: [ | shadow | - shadow := shadowBlock value. - objectGraph addShadow: shadow of: anObject. - shadow] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/instance/squotReplacementFor..st b/src/Squot.package/SquotObjectCapturer.class/instance/squotReplacementFor..st deleted file mode 100644 index 96cfe1407..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/instance/squotReplacementFor..st +++ /dev/null @@ -1,6 +0,0 @@ -Squot-trackable -squotReplacementFor: aCapturer - "I do not want to be captured myself! This is probably an accident." - Warning signal: 'Attempted to capture the capturer'. - aCapturer replace: self with: nil. - ^ nil \ No newline at end of file diff --git a/src/Squot.package/SquotObjectCapturer.class/methodProperties.json b/src/Squot.package/SquotObjectCapturer.class/methodProperties.json deleted file mode 100644 index bec629ab4..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/methodProperties.json +++ /dev/null @@ -1,31 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "beginCapturingFrom:" : "jr 7/17/2021 01:28", - "capture:as:" : "jr 4/8/2021 12:53", - "capture:asValueOf:from:reflectedIn:intoValueOf:from:reflectedIn:" : "jr 7/17/2021 01:29", - "capture:asValueOfSlot:" : "jr 4/8/2021 13:09", - "capture:reflectedIn:" : "jr 7/18/2021 00:14", - "captureBits:" : "jr 4/8/2021 13:11", - "captureGraph:" : "jr 7/30/2017 14:10", - "capturePrimitiveValue:" : "jr 4/8/2021 13:11", - "capturePrimitiveValue:in:" : "jr 4/8/2021 21:24", - "captureStandalone:" : "jr 7/30/2017 15:04", - "followReferences" : "jr 4/8/2021 21:19", - "initialize" : "jr 7/17/2021 01:21", - "insideASegment" : "jr 6/1/2017 13:16", - "nameOf:" : "jr 7/29/2017 23:01", - "nameOf:ifAbsent:" : "jr 7/29/2017 23:02", - "newNameFor:" : "jr 1/17/2021 22:17", - "newNameFor:reachedFrom:via:" : "jr 1/17/2021 22:16", - "objectGraph" : "jr 6/27/2017 17:54", - "project" : "jr 6/20/2017 00:35", - "projectChangeSet" : "jr 6/20/2017 00:52", - "registry:" : "jr 6/22/2017 01:10", - "rememberAsShadowOfCapturedObject:" : "jr 7/17/2021 01:29", - "replace:with:" : "jr 7/20/2017 17:26", - "replacementForSlot:in:ifFound:ifNone:" : "jr 10/1/2017 21:56", - "rootName" : "jr 7/30/2017 12:39", - "shadowOf:ifAbsentPut:" : "jr 4/25/2020 16:10", - "squotReplacementFor:" : "jr 4/15/2018 20:34" } } diff --git a/src/Squot.package/SquotObjectCapturer.class/properties.json b/src/Squot.package/SquotObjectCapturer.class/properties.json deleted file mode 100644 index 524002d6e..000000000 --- a/src/Squot.package/SquotObjectCapturer.class/properties.json +++ /dev/null @@ -1,25 +0,0 @@ -{ - "category" : "Squot-Capturing", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 9/30/2017 20:24", - "instvars" : [ - "convertedObjects", - "copiedObjects", - "walk", - "toBeVisited", - "objectRegistry", - "enumeratedObject", - "capturedObject", - "replacedObjects", - "objectGraph", - "slotValueReplacements", - "slotsToConvert", - "capturedObjectWithReferrer" ], - "name" : "SquotObjectCapturer", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectConflictMock.class/README.md b/src/Squot.package/SquotObjectConflictMock.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotObjectConflictMock.class/class/on..st b/src/Squot.package/SquotObjectConflictMock.class/class/on..st deleted file mode 100644 index f78fedb8d..000000000 --- a/src/Squot.package/SquotObjectConflictMock.class/class/on..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -on: anObject - ^ self new - object: anObject; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotObjectConflictMock.class/instance/object..st b/src/Squot.package/SquotObjectConflictMock.class/instance/object..st deleted file mode 100644 index 3f52f8aee..000000000 --- a/src/Squot.package/SquotObjectConflictMock.class/instance/object..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -object: anObject - - object := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectConflictMock.class/instance/object.st b/src/Squot.package/SquotObjectConflictMock.class/instance/object.st deleted file mode 100644 index 320146a3e..000000000 --- a/src/Squot.package/SquotObjectConflictMock.class/instance/object.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -object - - ^ object \ No newline at end of file diff --git a/src/Squot.package/SquotObjectConflictMock.class/methodProperties.json b/src/Squot.package/SquotObjectConflictMock.class/methodProperties.json deleted file mode 100644 index 74c7def5e..000000000 --- a/src/Squot.package/SquotObjectConflictMock.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - "on:" : "jr 7/30/2019 00:39" }, - "instance" : { - "object" : "jr 7/30/2019 00:38", - "object:" : "jr 7/30/2019 00:38" } } diff --git a/src/Squot.package/SquotObjectConflictMock.class/properties.json b/src/Squot.package/SquotObjectConflictMock.class/properties.json deleted file mode 100644 index 631b64873..000000000 --- a/src/Squot.package/SquotObjectConflictMock.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Merging", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "object" ], - "name" : "SquotObjectConflictMock", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectDiff.class/README.md b/src/Squot.package/SquotObjectDiff.class/README.md deleted file mode 100644 index cf17a8367..000000000 --- a/src/Squot.package/SquotObjectDiff.class/README.md +++ /dev/null @@ -1,13 +0,0 @@ -I record the changes between two SquotObjectShadows. - -Instance Variables - slotChanges: of slot keys to diffs or replacements - changedInstVars: - changedVariablePart: - -changedInstVars - Comparing two shadows, the diff for each changed instance variable goes here. - -changedVariablePart - Comparing two shadows with variable parts, the diff for each changed element goes here, with the changed index as the key. - In some cases it might be more desirable to diff such sequences like text, rather like the instance variables... \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiff.class/class/left.right..st b/src/Squot.package/SquotObjectDiff.class/class/left.right..st deleted file mode 100644 index 241340984..000000000 --- a/src/Squot.package/SquotObjectDiff.class/class/left.right..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -left: leftShadow right: rightShadow - ^ self new - diff: leftShadow against: rightShadow; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiff.class/instance/addReferenceDiff..st b/src/Squot.package/SquotObjectDiff.class/instance/addReferenceDiff..st deleted file mode 100644 index 6171bac72..000000000 --- a/src/Squot.package/SquotObjectDiff.class/instance/addReferenceDiff..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-diff-comparing -addReferenceDiff: aSquotReferenceDiff - slotChanges add: aSquotReferenceDiff asSlotDiff. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiff.class/instance/addSlotOnlyRight..st b/src/Squot.package/SquotObjectDiff.class/instance/addSlotOnlyRight..st deleted file mode 100644 index dd75ca022..000000000 --- a/src/Squot.package/SquotObjectDiff.class/instance/addSlotOnlyRight..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -addSlotOnlyRight: rightShadowSlot - slotChanges add: (SquotSlotAddition key: rightShadowSlot key newSlot: rightShadowSlot). \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiff.class/instance/addSlotOnlyRight.with..st b/src/Squot.package/SquotObjectDiff.class/instance/addSlotOnlyRight.with..st deleted file mode 100644 index 3c0d06d66..000000000 --- a/src/Squot.package/SquotObjectDiff.class/instance/addSlotOnlyRight.with..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -addSlotOnlyRight: rightShadowSlot with: aDiffBuilder - slotChanges add: (SquotSlotAddition key: rightShadowSlot key newSlot: rightShadowSlot). \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiff.class/instance/addTransitiveChangeIn..st b/src/Squot.package/SquotObjectDiff.class/instance/addTransitiveChangeIn..st deleted file mode 100644 index 9bbdaa6d4..000000000 --- a/src/Squot.package/SquotObjectDiff.class/instance/addTransitiveChangeIn..st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -addTransitiveChangeIn: aReference - | change | - change := SquotSlotTransitiveChange key: aReference asSlotDiffKey. - slotChanges at: change key ifAbsent: [slotChanges add: change]. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiff.class/instance/applyTo..st b/src/Squot.package/SquotObjectDiff.class/instance/applyTo..st deleted file mode 100644 index a6d4dfd9e..000000000 --- a/src/Squot.package/SquotObjectDiff.class/instance/applyTo..st +++ /dev/null @@ -1,4 +0,0 @@ -patching -applyTo: anObjectShadow - slotChanges associationsDo: [:slotDiff | - slotDiff applyTo: anObjectShadow]. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiff.class/instance/applyTo.with..st b/src/Squot.package/SquotObjectDiff.class/instance/applyTo.with..st deleted file mode 100644 index 0dca306d1..000000000 --- a/src/Squot.package/SquotObjectDiff.class/instance/applyTo.with..st +++ /dev/null @@ -1,4 +0,0 @@ -patching -applyTo: anObjectShadow with: aPatcher - slotChanges associationsDo: [:slotDiff | - slotDiff applyTo: anObjectShadow with: aPatcher]. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiff.class/instance/diff.against..st b/src/Squot.package/SquotObjectDiff.class/instance/diff.against..st deleted file mode 100644 index 7263ace01..000000000 --- a/src/Squot.package/SquotObjectDiff.class/instance/diff.against..st +++ /dev/null @@ -1,8 +0,0 @@ -initialize-release -diff: leftObjectShadow against: rightShadow - originalClass := leftObjectShadow originalClass. - newClass := rightShadow originalClass. - leftObjectShadow slots associationsDo: [:eachSlot | - self diffSlot: eachSlot withCorrespondingSlotIn: rightShadow slots]. - (rightShadow slots keys copyWithoutAll: leftObjectShadow slots keys) do: [:eachKey | - self addSlotOnlyRight: (rightShadow slots associationAt: eachKey)]. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiff.class/instance/diff.against.with..st b/src/Squot.package/SquotObjectDiff.class/instance/diff.against.with..st deleted file mode 100644 index b68294bc3..000000000 --- a/src/Squot.package/SquotObjectDiff.class/instance/diff.against.with..st +++ /dev/null @@ -1,6 +0,0 @@ -initialize-release -diff: leftObjectShadow against: rightShadow with: aDiffBuilder - self deprecated: 'Use initializeFrom:to: instead'. - originalClass := leftObjectShadow originalClass. - newClass := rightShadow originalClass. - slotChanges := Dictionary new. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiff.class/instance/diffSlot.withCorrespondingSlotIn..st b/src/Squot.package/SquotObjectDiff.class/instance/diffSlot.withCorrespondingSlotIn..st deleted file mode 100644 index 4cd397c87..000000000 --- a/src/Squot.package/SquotObjectDiff.class/instance/diffSlot.withCorrespondingSlotIn..st +++ /dev/null @@ -1,9 +0,0 @@ -initialize-release -diffSlot: leftSlot withCorrespondingSlotIn: rightSlots - | rightSlot slotDiff | - rightSlot := rightSlots associationAt: leftSlot key - ifAbsent: [^ slotChanges add: - (SquotSlotRemoval key: leftSlot key removedSlot: leftSlot)]. - slotDiff := leftSlot squotDiffAgainst: rightSlot. - slotDiff squotHasChanges ifFalse: [^ self]. - ^ slotChanges add: slotDiff \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiff.class/instance/initialize.st b/src/Squot.package/SquotObjectDiff.class/instance/initialize.st deleted file mode 100644 index 9a64ccdcb..000000000 --- a/src/Squot.package/SquotObjectDiff.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initialize - UnchangedPlaceholder ifNil: [UnchangedPlaceholder := Object new]. - slotChanges := Dictionary new. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiff.class/instance/initializeFrom.to..st b/src/Squot.package/SquotObjectDiff.class/instance/initializeFrom.to..st deleted file mode 100644 index c9cf6fb6d..000000000 --- a/src/Squot.package/SquotObjectDiff.class/instance/initializeFrom.to..st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -initializeFrom: leftObjectShadow to: rightShadow - originalClass := leftObjectShadow originalClass. - newClass := rightShadow originalClass. - slotChanges := Dictionary new. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiff.class/instance/initializeSquotDiffNodes.with..st b/src/Squot.package/SquotObjectDiff.class/instance/initializeSquotDiffNodes.with..st deleted file mode 100644 index 656999b41..000000000 --- a/src/Squot.package/SquotObjectDiff.class/instance/initializeSquotDiffNodes.with..st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -initializeSquotDiffNodes: aCollection with: aDiffNodesBuilder - slotChanges associations with: aCollection - do: [:slotDiff :node | slotDiff initializeSquotDiffNode: node with: aDiffNodesBuilder]. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiff.class/instance/inspectorClass.st b/src/Squot.package/SquotObjectDiff.class/instance/inspectorClass.st deleted file mode 100644 index 2cbf7d579..000000000 --- a/src/Squot.package/SquotObjectDiff.class/instance/inspectorClass.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Dev-Tools -inspectorClass - ^ SquotObjectDiffInspector \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiff.class/instance/newSquotDiffNodes.st b/src/Squot.package/SquotObjectDiff.class/instance/newSquotDiffNodes.st deleted file mode 100644 index db42e4134..000000000 --- a/src/Squot.package/SquotObjectDiff.class/instance/newSquotDiffNodes.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -newSquotDiffNodes - ^ slotChanges collect: [:each | SquotDiffNode new] as: Array \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiff.class/instance/postCopy.st b/src/Squot.package/SquotObjectDiff.class/instance/postCopy.st deleted file mode 100644 index 9e56deb42..000000000 --- a/src/Squot.package/SquotObjectDiff.class/instance/postCopy.st +++ /dev/null @@ -1,3 +0,0 @@ -copying -postCopy - slotChanges := slotChanges copy. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiff.class/instance/printOn..st b/src/Squot.package/SquotObjectDiff.class/instance/printOn..st deleted file mode 100644 index e4093cca7..000000000 --- a/src/Squot.package/SquotObjectDiff.class/instance/printOn..st +++ /dev/null @@ -1,4 +0,0 @@ -printing -printOn: aStream - aStream nextPutAll: 'diff of '; - print: originalClass. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiff.class/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st b/src/Squot.package/SquotObjectDiff.class/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st deleted file mode 100644 index d117462b3..000000000 --- a/src/Squot.package/SquotObjectDiff.class/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st +++ /dev/null @@ -1,6 +0,0 @@ -Squot-diff-enumerating -referenceDiffsWithDefaultOwners: leftAndRightShadows reflectedIn: aMirror do: aBlock - "Convert SquotSlotDiffs into SquotReferenceDiffs." - ^ slotChanges associations - collect: [:each | each asReferenceDiffWithDefaultOwners: leftAndRightShadows reflectedIn: aMirror] - thenDo: aBlock \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiff.class/instance/slotChanges.st b/src/Squot.package/SquotObjectDiff.class/instance/slotChanges.st deleted file mode 100644 index 93eed2ac4..000000000 --- a/src/Squot.package/SquotObjectDiff.class/instance/slotChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -slotChanges - ^ slotChanges \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiff.class/instance/squotApplyTo..st b/src/Squot.package/SquotObjectDiff.class/instance/squotApplyTo..st deleted file mode 100644 index 249d6a627..000000000 --- a/src/Squot.package/SquotObjectDiff.class/instance/squotApplyTo..st +++ /dev/null @@ -1,5 +0,0 @@ -patching -squotApplyTo: anObjectShadow - "Apply my changes to aContentObject (the representation of an object in a snapshot) - and answer the result." - ^ anObjectShadow applyDiff: self \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiff.class/instance/squotApplyTo.with..st b/src/Squot.package/SquotObjectDiff.class/instance/squotApplyTo.with..st deleted file mode 100644 index 2c583d075..000000000 --- a/src/Squot.package/SquotObjectDiff.class/instance/squotApplyTo.with..st +++ /dev/null @@ -1,5 +0,0 @@ -patching -squotApplyTo: aShadow with: aPatcher - "Apply my changes to aShadow (the representation of an object in a snapshot) - and answer the result." - ^ aShadow applyDiff: self with: aPatcher \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiff.class/instance/squotApplyToLoaded..st b/src/Squot.package/SquotObjectDiff.class/instance/squotApplyToLoaded..st deleted file mode 100644 index 3c6e246c2..000000000 --- a/src/Squot.package/SquotObjectDiff.class/instance/squotApplyToLoaded..st +++ /dev/null @@ -1,5 +0,0 @@ -Squot-diff-applying -squotApplyToLoaded: anObject - "Modify anObject such that it matches what I model" - ^ SquotPatcher new - apply: self toLoaded: anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiff.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotObjectDiff.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index c0a51cc78..000000000 --- a/src/Squot.package/SquotObjectDiff.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,9 +0,0 @@ -*Squot-Tools -squotChangeAsStringOrText - ^ Text streamContents: [:stream | - (slotChanges associations groupBy: [:each | each slotShadowType]) - keysAndValuesDo: [:type :slotDiffs | - stream withAttribute: TextEmphasis italic do: - [type printHeadlineForChangesTextOn: stream]; cr. - slotDiffs do: [:each | stream nextPutAll: each hierarchicalDiffTitle; cr]. - stream cr]] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiff.class/instance/squotHasChanges.st b/src/Squot.package/SquotObjectDiff.class/instance/squotHasChanges.st deleted file mode 100644 index 3cbbeb7be..000000000 --- a/src/Squot.package/SquotObjectDiff.class/instance/squotHasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -squotHasChanges - ^ slotChanges associations anySatisfy: [:any | any squotHasChanges] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiff.class/methodProperties.json b/src/Squot.package/SquotObjectDiff.class/methodProperties.json deleted file mode 100644 index ef1534ee1..000000000 --- a/src/Squot.package/SquotObjectDiff.class/methodProperties.json +++ /dev/null @@ -1,27 +0,0 @@ -{ - "class" : { - "left:right:" : "jr 10/2/2017 20:01" }, - "instance" : { - "addReferenceDiff:" : "jr 7/18/2021 20:16", - "addSlotOnlyRight:" : "jr 9/16/2019 21:24", - "addSlotOnlyRight:with:" : "jr 6/22/2017 12:01", - "addTransitiveChangeIn:" : "jr 7/25/2021 15:49", - "applyTo:" : "jr 9/23/2019 23:18", - "applyTo:with:" : "jr 7/29/2017 21:29", - "diff:against:" : "jr 6/17/2021 00:57", - "diff:against:with:" : "jr 7/30/2021 20:21", - "diffSlot:withCorrespondingSlotIn:" : "jr 9/16/2019 21:21", - "initialize" : "jr 6/17/2021 00:57", - "initializeFrom:to:" : "jr 7/30/2021 19:19", - "initializeSquotDiffNodes:with:" : "jr 11/18/2017 22:41", - "inspectorClass" : "jr 7/30/2021 21:44", - "newSquotDiffNodes" : "jr 11/18/2017 22:29", - "postCopy" : "jr 9/9/2017 12:48", - "printOn:" : "jr 6/25/2017 14:49", - "referenceDiffsWithDefaultOwners:reflectedIn:do:" : "jr 6/27/2021 22:54", - "slotChanges" : "jr 6/17/2017 23:41", - "squotApplyTo:" : "jr 9/23/2019 23:48", - "squotApplyTo:with:" : "jr 7/27/2019 10:05", - "squotApplyToLoaded:" : "jr 7/17/2021 02:11", - "squotChangeAsStringOrText" : "jr 10/31/2017 20:50", - "squotHasChanges" : "jr 6/17/2017 23:45" } } diff --git a/src/Squot.package/SquotObjectDiff.class/properties.json b/src/Squot.package/SquotObjectDiff.class/properties.json deleted file mode 100644 index c8da58bf3..000000000 --- a/src/Squot.package/SquotObjectDiff.class/properties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "category" : "Squot-Diffs-Generic", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotDiff classTrait + TSquotModification classTrait", - "classvars" : [ - "UnchangedPlaceholder" ], - "commentStamp" : "jr 3/17/2018 18:59", - "instvars" : [ - "originalClass", - "slotChanges", - "newClass" ], - "name" : "SquotObjectDiff", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotDiff + TSquotModification", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectDiffInspector.class/README.md b/src/Squot.package/SquotObjectDiffInspector.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotObjectDiffInspector.class/instance/fieldForReferenceDiff..st b/src/Squot.package/SquotObjectDiffInspector.class/instance/fieldForReferenceDiff..st deleted file mode 100644 index 97aa20f2a..000000000 --- a/src/Squot.package/SquotObjectDiffInspector.class/instance/fieldForReferenceDiff..st +++ /dev/null @@ -1,6 +0,0 @@ -as yet unclassified -fieldForReferenceDiff: aReferenceDiff - ^ (self newFieldForType: #diff key: aReferenceDiff) - name: aReferenceDiff asString; - valueGetter: [:diff | aReferenceDiff]; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiffInspector.class/instance/streamFieldsOn..st b/src/Squot.package/SquotObjectDiffInspector.class/instance/streamFieldsOn..st deleted file mode 100644 index 09dcf3bc2..000000000 --- a/src/Squot.package/SquotObjectDiffInspector.class/instance/streamFieldsOn..st +++ /dev/null @@ -1,5 +0,0 @@ -as yet unclassified -streamFieldsOn: aStream - super streamFieldsOn: aStream. - self object referenceDiffsWithDefaultOwners: {nil. nil} reflectedIn: SquotSystemSingletonMirror new - do: [:each | aStream nextPut: (self fieldForReferenceDiff: each)]. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiffInspector.class/methodProperties.json b/src/Squot.package/SquotObjectDiffInspector.class/methodProperties.json deleted file mode 100644 index 4b8025b54..000000000 --- a/src/Squot.package/SquotObjectDiffInspector.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "fieldForReferenceDiff:" : "jr 7/30/2021 22:24", - "streamFieldsOn:" : "jr 7/30/2021 22:28" } } diff --git a/src/Squot.package/SquotObjectDiffInspector.class/properties.json b/src/Squot.package/SquotObjectDiffInspector.class/properties.json deleted file mode 100644 index 7a0aae8a3..000000000 --- a/src/Squot.package/SquotObjectDiffInspector.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Dev-Tools", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotObjectDiffInspector", - "pools" : [ - ], - "super" : "Inspector", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectDiffMock.class/README.md b/src/Squot.package/SquotObjectDiffMock.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotObjectDiffMock.class/instance/asSquotConflicts.st b/src/Squot.package/SquotObjectDiffMock.class/instance/asSquotConflicts.st deleted file mode 100644 index 591cceac4..000000000 --- a/src/Squot.package/SquotObjectDiffMock.class/instance/asSquotConflicts.st +++ /dev/null @@ -1,3 +0,0 @@ -merging -asSquotConflicts - ^ conflicts ifNil: [self error: 'Not set up to return conflicts'] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiffMock.class/instance/conflicts..st b/src/Squot.package/SquotObjectDiffMock.class/instance/conflicts..st deleted file mode 100644 index 4640b331c..000000000 --- a/src/Squot.package/SquotObjectDiffMock.class/instance/conflicts..st +++ /dev/null @@ -1,3 +0,0 @@ -configuring -conflicts: aCollection - conflicts := aCollection. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiffMock.class/methodProperties.json b/src/Squot.package/SquotObjectDiffMock.class/methodProperties.json deleted file mode 100644 index 893bf37a8..000000000 --- a/src/Squot.package/SquotObjectDiffMock.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "asSquotConflicts" : "jr 7/30/2019 00:27", - "conflicts:" : "jr 7/30/2019 00:28" } } diff --git a/src/Squot.package/SquotObjectDiffMock.class/properties.json b/src/Squot.package/SquotObjectDiffMock.class/properties.json deleted file mode 100644 index 571a41af4..000000000 --- a/src/Squot.package/SquotObjectDiffMock.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Diffs", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "conflicts" ], - "name" : "SquotObjectDiffMock", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectDiffTest.class/README.md b/src/Squot.package/SquotObjectDiffTest.class/README.md deleted file mode 100644 index d6ccd6684..000000000 --- a/src/Squot.package/SquotObjectDiffTest.class/README.md +++ /dev/null @@ -1 +0,0 @@ -Tests that different editions of objects are compared correctly. The comparisons should not compare other objects, only the target object. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiffTest.class/instance/assertDiffAgainstItselfHasNoChanges..st b/src/Squot.package/SquotObjectDiffTest.class/instance/assertDiffAgainstItselfHasNoChanges..st deleted file mode 100644 index 03bc3ce4c..000000000 --- a/src/Squot.package/SquotObjectDiffTest.class/instance/assertDiffAgainstItselfHasNoChanges..st +++ /dev/null @@ -1,8 +0,0 @@ -helpers -assertDiffAgainstItselfHasNoChanges: anObject - | left right diff | - left := capturer captureGraph: anObject. - right := capturer captureGraph: anObject. - diff := left squotDiffAgainst: right. - self deny: diff squotHasChanges. - ^ diff \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiffTest.class/instance/diff.against..st b/src/Squot.package/SquotObjectDiffTest.class/instance/diff.against..st deleted file mode 100644 index 43b0d9cbb..000000000 --- a/src/Squot.package/SquotObjectDiffTest.class/instance/diff.against..st +++ /dev/null @@ -1,8 +0,0 @@ -helpers -diff: left against: right - | leftShadow rightShadow | - leftShadow := capturer captureStandalone: left. - left become: right. - [rightShadow := capturer captureStandalone: left] - ensure: [right become: left]. - ^ leftShadow squotDiffAgainst: rightShadow \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiffTest.class/instance/diff.againstItselfAfter..st b/src/Squot.package/SquotObjectDiffTest.class/instance/diff.againstItselfAfter..st deleted file mode 100644 index 1271af2c8..000000000 --- a/src/Squot.package/SquotObjectDiffTest.class/instance/diff.againstItselfAfter..st +++ /dev/null @@ -1,7 +0,0 @@ -helpers -diff: anObject againstItselfAfter: aBlock - | leftShadow rightShadow | - leftShadow := capturer captureStandalone: anObject. - aBlock value. - rightShadow := capturer captureStandalone: anObject. - ^ leftShadow squotDiffAgainst: rightShadow \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiffTest.class/instance/expectedFailures.st b/src/Squot.package/SquotObjectDiffTest.class/instance/expectedFailures.st deleted file mode 100644 index 87a98ad45..000000000 --- a/src/Squot.package/SquotObjectDiffTest.class/instance/expectedFailures.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -expectedFailures - ^ #(testEqualRectangles "Points are not yet compared as interchangeable value objects") \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiffTest.class/instance/setUp.st b/src/Squot.package/SquotObjectDiffTest.class/instance/setUp.st deleted file mode 100644 index 9b88cc54d..000000000 --- a/src/Squot.package/SquotObjectDiffTest.class/instance/setUp.st +++ /dev/null @@ -1,5 +0,0 @@ -running -setUp - objectRegistry := SquotObjectRegistry new. - capturer := SquotObjectCapturer new. - capturer registry: objectRegistry. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiffTest.class/instance/testAddObjects.st b/src/Squot.package/SquotObjectDiffTest.class/instance/testAddObjects.st deleted file mode 100644 index 9ab36f222..000000000 --- a/src/Squot.package/SquotObjectDiffTest.class/instance/testAddObjects.st +++ /dev/null @@ -1,7 +0,0 @@ -testing -testAddObjects - | diff object | - object := ValueHolder new contents: nil. - diff := self diff: object againstItselfAfter: [object contents: (ValueHolder new contents: 1)]. - self assert: diff squotHasChanges. - self assert: (diff slotChanges associationAt: 'contents') class == SquotSlotReassignment. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiffTest.class/instance/testArrayOfDifferentlyTypedObjects.st b/src/Squot.package/SquotObjectDiffTest.class/instance/testArrayOfDifferentlyTypedObjects.st deleted file mode 100644 index b50e7639d..000000000 --- a/src/Squot.package/SquotObjectDiffTest.class/instance/testArrayOfDifferentlyTypedObjects.st +++ /dev/null @@ -1,15 +0,0 @@ -testing -testArrayOfDifferentlyTypedObjects - | diff | - diff := self diff: {1} against: {nil}. - self assert: diff squotHasChanges. - self assert: (diff slotChanges associationAt: 1) class == SquotSlotReassignment. - diff := self diff: {nil} against: {1}. - self assert: diff squotHasChanges. - self assert: (diff slotChanges associationAt: 1) class == SquotSlotReassignment. - diff := self diff: {'foo'} against: {{1}}. - self assert: diff squotHasChanges. - self assert: (diff slotChanges associationAt: 1) class == SquotSlotReassignment. - diff := self diff: {{1}} against: {'foo'}. - self assert: diff squotHasChanges. - self assert: (diff slotChanges associationAt: 1) class == SquotSlotReassignment. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiffTest.class/instance/testArrayOfIntegers.st b/src/Squot.package/SquotObjectDiffTest.class/instance/testArrayOfIntegers.st deleted file mode 100644 index 6d492ec5a..000000000 --- a/src/Squot.package/SquotObjectDiffTest.class/instance/testArrayOfIntegers.st +++ /dev/null @@ -1,32 +0,0 @@ -testing -testArrayOfIntegers - | left right array other arrayName diff | - "{1. 2} <=> {1. 2}" - left := capturer captureStandalone: (array := {1. 2}). - arrayName := objectRegistry nameOf: array. - other := Array with: 1 with: 2. - capturer objectGraph assign: arrayName to: other. - right := capturer captureStandalone: other. - diff := left squotDiffAgainst: right. - self deny: diff squotHasChanges. - "{2. 1} <=> {1. 2}" - other := Array with: 2 with: 1. - capturer objectGraph assign: arrayName to: other. - left := capturer captureStandalone: other. - diff := left squotDiffAgainst: right. - self assert: diff squotHasChanges. - self assert: (diff slotChanges associationAt: 1) class == SquotSlotReassignment. - self assert: (diff slotChanges associationAt: 2) class == SquotSlotReassignment. - "{1} <=> {1. 2}" - other := Array with: 1. - capturer objectGraph assign: arrayName to: other. - left := capturer captureStandalone: other. - diff := left squotDiffAgainst: right. - self assert: diff squotHasChanges. - self deny: (diff slotChanges includesKey: 1). - self assert: (diff slotChanges associationAt: 2) class == SquotSlotAddition. - "{1. 2} <=> {1}" - diff := right squotDiffAgainst: left. - self assert: diff squotHasChanges. - self deny: (diff slotChanges includesKey: 1). - self assert: (diff slotChanges associationAt: 2) class == SquotSlotRemoval. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiffTest.class/instance/testBooleans.st b/src/Squot.package/SquotObjectDiffTest.class/instance/testBooleans.st deleted file mode 100644 index f945a22b7..000000000 --- a/src/Squot.package/SquotObjectDiffTest.class/instance/testBooleans.st +++ /dev/null @@ -1,6 +0,0 @@ -testing -testBooleans - self assert: true captureWithSquot = true captureWithSquot; - assert: false captureWithSquot = false captureWithSquot; - assert: true captureWithSquot ~= false captureWithSquot; - assert: false captureWithSquot ~= true captureWithSquot. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiffTest.class/instance/testByteArray.st b/src/Squot.package/SquotObjectDiffTest.class/instance/testByteArray.st deleted file mode 100644 index c0c4b2683..000000000 --- a/src/Squot.package/SquotObjectDiffTest.class/instance/testByteArray.st +++ /dev/null @@ -1,18 +0,0 @@ -testing -testByteArray - | left right array other arrayName diff | - "{1. 2} <=> {1. 2}" - left := capturer captureStandalone: (array := #[1 2]). - arrayName := objectRegistry nameOf: array. - other := #[1 2] copy. - capturer objectGraph assign: arrayName to: other. - right := capturer captureStandalone: other. - diff := left squotDiffAgainst: right. - self deny: diff squotHasChanges. - "{2. 1} <=> {1. 2}" - other := #[2 1]. - capturer objectGraph assign: arrayName to: other. - left := capturer captureStandalone: other. - diff := left squotDiffAgainst: right. - self assert: diff squotHasChanges; - assert: (diff squotApplyTo: left) = right. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiffTest.class/instance/testDictionary.st b/src/Squot.package/SquotObjectDiffTest.class/instance/testDictionary.st deleted file mode 100644 index fefe78131..000000000 --- a/src/Squot.package/SquotObjectDiffTest.class/instance/testDictionary.st +++ /dev/null @@ -1,19 +0,0 @@ -testing -testDictionary - | dict diff removedAssociation addition removal | - dict := Dictionary newFrom: {1 -> 2. 'foo' -> 'bar'. #bla -> (StringHolder new contents: 'blubb'; yourself)}. - removedAssociation := dict associationAt: 'foo'. - self assertDiffAgainstItselfHasNoChanges: dict. - diff := self diff: dict againstItselfAfter: - [dict at: 1 put: 3; "this changes the association, not the dictionary" - at: 'fuu' put: (dict at: 'foo'); - removeKey: 'foo'. - (dict at: #bla) contents: 'blobb']. - self assert: diff squotHasChanges. - diff itemChanges size == 2. "add 'fuu', remove 'foo'" - addition := diff itemChanges associations detect: [:each | each class == SquotSlotAddition] - ifNone: [self fail: 'no association addition']. - self assert: addition slotToBeAdded association name = (objectRegistry nameOf: (dict associationAt: 'fuu')). - removal := diff itemChanges associations detect: [:each | each class == SquotSlotRemoval] - ifNone: [self fail: 'no association removal']. - self assert: removal slotToBeRemoved value name = (objectRegistry nameOf: removedAssociation). \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiffTest.class/instance/testEmptyObjects.st b/src/Squot.package/SquotObjectDiffTest.class/instance/testEmptyObjects.st deleted file mode 100644 index 75953e2e5..000000000 --- a/src/Squot.package/SquotObjectDiffTest.class/instance/testEmptyObjects.st +++ /dev/null @@ -1,5 +0,0 @@ -testing -testEmptyObjects - | diff | - diff := Object new captureWithSquot squotDiffAgainst: Object new captureWithSquot. - self deny: diff squotHasChanges. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiffTest.class/instance/testEqualRectangles.st b/src/Squot.package/SquotObjectDiffTest.class/instance/testEqualRectangles.st deleted file mode 100644 index aef903a06..000000000 --- a/src/Squot.package/SquotObjectDiffTest.class/instance/testEqualRectangles.st +++ /dev/null @@ -1,8 +0,0 @@ -testing -testEqualRectangles - | diff rect origin corner | - origin := 1@2. - corner := 3@4. - rect := (origin corner: corner). - diff := self diff: rect against: rect copy. - self deny: diff squotHasChanges. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiffTest.class/instance/testObjects.st b/src/Squot.package/SquotObjectDiffTest.class/instance/testObjects.st deleted file mode 100644 index 8363e5db8..000000000 --- a/src/Squot.package/SquotObjectDiffTest.class/instance/testObjects.st +++ /dev/null @@ -1,18 +0,0 @@ -testing -testObjects - | a b c shadow1OfB shadow2OfB shadow1OfC shadow2OfC diff | - a := SquotObjectForDiffTests new var1: nil; var2: nil. - b := SquotObjectForDiffTests new var1: 1; var2: 2. - c := SquotObjectForDiffTests new var1: a; var2: b. - shadow1OfB := capturer captureStandalone: b. - shadow1OfC := capturer captureStandalone: c. - b var1: 3. - shadow2OfB := capturer captureStandalone: b. - shadow2OfC := capturer captureStandalone: c. - diff := shadow1OfB squotDiffAgainst: shadow2OfB. - self assert: diff slotChanges keys asArray = #('var1'). - self assert: (diff slotChanges associationAt: 'var1') class == SquotSlotReassignment. - self assert: (diff slotChanges associationAt: 'var1') replacementShadow = 3 captureWithSquot. - diff := shadow1OfC squotDiffAgainst: shadow2OfC. - self deny: diff squotHasChanges description: 'slots of c should be unchanged'. - \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiffTest.class/instance/testPoints.st b/src/Squot.package/SquotObjectDiffTest.class/instance/testPoints.st deleted file mode 100644 index b069b0073..000000000 --- a/src/Squot.package/SquotObjectDiffTest.class/instance/testPoints.st +++ /dev/null @@ -1,10 +0,0 @@ -testing -testPoints - "Points should be treated as immutable value-objects, even though they strictly are not." - | pointDiff | - pointDiff := self diff: 1@2 against: 3@4. - self assert: pointDiff squotHasChanges. - self assert: (pointDiff slotChanges associationAt: 'x') class == SquotSlotReassignment. - self assert: (pointDiff slotChanges associationAt: 'x') replacementShadow value = 3. - self assert: (pointDiff slotChanges associationAt: 'y') class == SquotSlotReassignment. - self assert: (pointDiff slotChanges associationAt: 'y') replacementShadow value = 4. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiffTest.class/instance/testRectangles.st b/src/Squot.package/SquotObjectDiffTest.class/instance/testRectangles.st deleted file mode 100644 index ac939c435..000000000 --- a/src/Squot.package/SquotObjectDiffTest.class/instance/testRectangles.st +++ /dev/null @@ -1,16 +0,0 @@ -testing -testRectangles - | rect rectDiff origin corner | - origin := 1@2. - corner := 3@4. - rect := (origin corner: corner). - rectDiff := self diff: rect against: (5@6 corner: 7@8). - self assert: rectDiff squotHasChanges. - self assert: (rectDiff slotChanges associationAt: 'origin') class == SquotSlotReassignment - description: 'Points should be reassigned, not modified'. - self assert: ((rectDiff slotChanges associationAt: 'origin') replacementShadow slots at: 'x') value = 5. - self assert: ((rectDiff slotChanges associationAt: 'origin') replacementShadow slots at: 'y') value = 6. - self assert: (rectDiff slotChanges associationAt: 'corner') class == SquotSlotReassignment - description: 'Points should be reassigned, not modified'. - self assert: ((rectDiff slotChanges associationAt: 'corner') replacementShadow slots at: 'x') value = 7. - self assert: ((rectDiff slotChanges associationAt: 'corner') replacementShadow slots at: 'y') value = 8. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiffTest.class/instance/testReferenceSwap.st b/src/Squot.package/SquotObjectDiffTest.class/instance/testReferenceSwap.st deleted file mode 100644 index 31f453f45..000000000 --- a/src/Squot.package/SquotObjectDiffTest.class/instance/testReferenceSwap.st +++ /dev/null @@ -1,10 +0,0 @@ -testing -testReferenceSwap - "When two objects exchange places from one capture to another, this should be noticed." - | a b array diff | - a := Object new. b := Object new. - array := {a. b}. - diff := self diff: array againstItselfAfter: [array swap: 1 with: 2]. - self assert: diff squotHasChanges. - self assert: (diff slotChanges associationAt: 1) class == SquotSlotReassignment. - self assert: (diff slotChanges associationAt: 2) class == SquotSlotReassignment. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiffTest.class/instance/testSet.st b/src/Squot.package/SquotObjectDiffTest.class/instance/testSet.st deleted file mode 100644 index d61cec261..000000000 --- a/src/Squot.package/SquotObjectDiffTest.class/instance/testSet.st +++ /dev/null @@ -1,16 +0,0 @@ -testing -testSet - | set stringHolder diff addition removal | - set := Set newFrom: {1. 2. stringHolder := StringHolder new contents: 'foo'}. - self assertDiffAgainstItselfHasNoChanges: set. - diff := self diff: set againstItselfAfter: - [set remove: 1; - add: 3. - stringHolder contents: 'fooo']. - self assert: diff squotHasChanges. - addition := diff itemChanges associations detect: [:each | each class == SquotSlotAddition] - ifNone: [self fail: 'no item addition']. - self assert: addition slotToBeAdded value value == 3. - removal := diff itemChanges associations detect: [:each | each class == SquotSlotRemoval] - ifNone: [self fail: 'no item removal']. - self assert: removal slotToBeRemoved value value == 1. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiffTest.class/instance/testSmallIntegers.st b/src/Squot.package/SquotObjectDiffTest.class/instance/testSmallIntegers.st deleted file mode 100644 index c7862ca97..000000000 --- a/src/Squot.package/SquotObjectDiffTest.class/instance/testSmallIntegers.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -testSmallIntegers - self assert: 1 captureWithSquot = 1 captureWithSquot; - assert: 1 captureWithSquot ~= 2 captureWithSquot. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectDiffTest.class/methodProperties.json b/src/Squot.package/SquotObjectDiffTest.class/methodProperties.json deleted file mode 100644 index eece11158..000000000 --- a/src/Squot.package/SquotObjectDiffTest.class/methodProperties.json +++ /dev/null @@ -1,23 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "assertDiffAgainstItselfHasNoChanges:" : "jr 7/18/2021 21:04", - "diff:against:" : "jr 9/13/2019 11:39", - "diff:againstItselfAfter:" : "jr 9/13/2019 11:39", - "expectedFailures" : "jr 6/6/2020 18:17", - "setUp" : "jr 7/30/2017 22:04", - "testAddObjects" : "jr 9/13/2019 12:18", - "testArrayOfDifferentlyTypedObjects" : "jr 4/4/2020 19:31", - "testArrayOfIntegers" : "jr 9/13/2019 11:31", - "testBooleans" : "jr 9/23/2019 20:51", - "testByteArray" : "jr 9/24/2019 00:33", - "testDictionary" : "jr 9/13/2019 12:01", - "testEmptyObjects" : "jr 6/17/2017 22:11", - "testEqualRectangles" : "jr 7/20/2017 16:54", - "testObjects" : "jr 9/13/2019 11:21", - "testPoints" : "jr 9/13/2019 12:28", - "testRectangles" : "jr 9/13/2019 12:24", - "testReferenceSwap" : "jr 9/13/2019 11:44", - "testSet" : "jr 9/13/2019 11:40", - "testSmallIntegers" : "jr 9/23/2019 20:52" } } diff --git a/src/Squot.package/SquotObjectDiffTest.class/properties.json b/src/Squot.package/SquotObjectDiffTest.class/properties.json deleted file mode 100644 index 9cbf198c5..000000000 --- a/src/Squot.package/SquotObjectDiffTest.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-Tests-Diffs", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 9/20/2019 20:46", - "instvars" : [ - "capturer", - "objectRegistry" ], - "name" : "SquotObjectDiffTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectForDiffTests.class/README.md b/src/Squot.package/SquotObjectForDiffTests.class/README.md deleted file mode 100644 index 790ab3f86..000000000 --- a/src/Squot.package/SquotObjectForDiffTests.class/README.md +++ /dev/null @@ -1 +0,0 @@ -Dummy for capturing tests. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectForDiffTests.class/instance/^equals.st b/src/Squot.package/SquotObjectForDiffTests.class/instance/^equals.st deleted file mode 100644 index 5a8a5b20e..000000000 --- a/src/Squot.package/SquotObjectForDiffTests.class/instance/^equals.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -= other - ^ self var1 = other var1 and: [self var2 = other var2] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectForDiffTests.class/instance/hash.st b/src/Squot.package/SquotObjectForDiffTests.class/instance/hash.st deleted file mode 100644 index a07c1293a..000000000 --- a/src/Squot.package/SquotObjectForDiffTests.class/instance/hash.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -hash - ^ self var1 hash bitXor: self var2 hash hashMultiply \ No newline at end of file diff --git a/src/Squot.package/SquotObjectForDiffTests.class/instance/var1..st b/src/Squot.package/SquotObjectForDiffTests.class/instance/var1..st deleted file mode 100644 index 4a6478ebd..000000000 --- a/src/Squot.package/SquotObjectForDiffTests.class/instance/var1..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -var1: anObject - var1 := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotObjectForDiffTests.class/instance/var1.st b/src/Squot.package/SquotObjectForDiffTests.class/instance/var1.st deleted file mode 100644 index d2001ecf7..000000000 --- a/src/Squot.package/SquotObjectForDiffTests.class/instance/var1.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -var1 - ^ var1 \ No newline at end of file diff --git a/src/Squot.package/SquotObjectForDiffTests.class/instance/var2..st b/src/Squot.package/SquotObjectForDiffTests.class/instance/var2..st deleted file mode 100644 index 7efecaa5d..000000000 --- a/src/Squot.package/SquotObjectForDiffTests.class/instance/var2..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -var2: anObject - var2 := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotObjectForDiffTests.class/instance/var2.st b/src/Squot.package/SquotObjectForDiffTests.class/instance/var2.st deleted file mode 100644 index 95a2daebe..000000000 --- a/src/Squot.package/SquotObjectForDiffTests.class/instance/var2.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -var2 - ^ var2 \ No newline at end of file diff --git a/src/Squot.package/SquotObjectForDiffTests.class/methodProperties.json b/src/Squot.package/SquotObjectForDiffTests.class/methodProperties.json deleted file mode 100644 index 6c66271b8..000000000 --- a/src/Squot.package/SquotObjectForDiffTests.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "=" : "jr 6/25/2017 14:15", - "hash" : "jr 6/25/2017 14:16", - "var1" : "jr 6/18/2017 00:53", - "var1:" : "jr 6/18/2017 00:53", - "var2" : "jr 6/18/2017 00:53", - "var2:" : "jr 6/18/2017 00:53" } } diff --git a/src/Squot.package/SquotObjectForDiffTests.class/properties.json b/src/Squot.package/SquotObjectForDiffTests.class/properties.json deleted file mode 100644 index 1ef8721fa..000000000 --- a/src/Squot.package/SquotObjectForDiffTests.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-Tests-Diffs", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 6/24/2017 00:07", - "instvars" : [ - "var1", - "var2" ], - "name" : "SquotObjectForDiffTests", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectGraph.class/README.md b/src/Squot.package/SquotObjectGraph.class/README.md deleted file mode 100644 index 97f5bb0c9..000000000 --- a/src/Squot.package/SquotObjectGraph.class/README.md +++ /dev/null @@ -1,4 +0,0 @@ -In additon to associating a name with a shadow, I can also associate it with a live object. - -Instance Variables - objects: from object name to live object \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraph.class/instance/anyObjectSatisfy..st b/src/Squot.package/SquotObjectGraph.class/instance/anyObjectSatisfy..st deleted file mode 100644 index 286585319..000000000 --- a/src/Squot.package/SquotObjectGraph.class/instance/anyObjectSatisfy..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -anyObjectSatisfy: aBlock - ^ objects anySatisfy: aBlock \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraph.class/instance/asShadowGraph.st b/src/Squot.package/SquotObjectGraph.class/instance/asShadowGraph.st deleted file mode 100644 index 53d7cba51..000000000 --- a/src/Squot.package/SquotObjectGraph.class/instance/asShadowGraph.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -asShadowGraph - ^ (SquotShadowGraph newFrom: self) postCopy \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraph.class/instance/evictObjectNames.st b/src/Squot.package/SquotObjectGraph.class/instance/evictObjectNames.st deleted file mode 100644 index 4e553e6f4..000000000 --- a/src/Squot.package/SquotObjectGraph.class/instance/evictObjectNames.st +++ /dev/null @@ -1,4 +0,0 @@ -copying -evictObjectNames - super evictObjectNames. - objects keysAndValuesDo: [:name :object | objectNames at: object put: name]. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraph.class/instance/hasObjects.st b/src/Squot.package/SquotObjectGraph.class/instance/hasObjects.st deleted file mode 100644 index 31a5f7c2c..000000000 --- a/src/Squot.package/SquotObjectGraph.class/instance/hasObjects.st +++ /dev/null @@ -1,3 +0,0 @@ -patching -hasObjects - ^ objects notEmpty and: [objects includesKey: startName] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraph.class/instance/includes..st b/src/Squot.package/SquotObjectGraph.class/instance/includes..st deleted file mode 100644 index 3be1d9766..000000000 --- a/src/Squot.package/SquotObjectGraph.class/instance/includes..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -includes: anObjectOrShadow - ^ (objects includes: anObjectOrShadow) or: [super includes: anObjectOrShadow] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraph.class/instance/includesObjectNamed..st b/src/Squot.package/SquotObjectGraph.class/instance/includesObjectNamed..st deleted file mode 100644 index 656e672aa..000000000 --- a/src/Squot.package/SquotObjectGraph.class/instance/includesObjectNamed..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -includesObjectNamed: name - ^ (objects at: name ifAbsent: []) notNil or: [super includesObjectNamed: name] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraph.class/instance/initialize.st b/src/Squot.package/SquotObjectGraph.class/instance/initialize.st deleted file mode 100644 index 4c0e442af..000000000 --- a/src/Squot.package/SquotObjectGraph.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initialize - super initialize. - objects := WeakValueDictionary new. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraph.class/instance/objectNamed..st b/src/Squot.package/SquotObjectGraph.class/instance/objectNamed..st deleted file mode 100644 index b7e4f8d1b..000000000 --- a/src/Squot.package/SquotObjectGraph.class/instance/objectNamed..st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -objectNamed: aName - | object | - object := objects at: aName. - object ifNil: [^ (KeyNotFound key: aName) signal]. - ^ object \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraph.class/instance/objectNamed.ifAbsent..st b/src/Squot.package/SquotObjectGraph.class/instance/objectNamed.ifAbsent..st deleted file mode 100644 index f0f687408..000000000 --- a/src/Squot.package/SquotObjectGraph.class/instance/objectNamed.ifAbsent..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -objectNamed: aName ifAbsent: absentBlock - ^ (objects at: aName ifAbsent: []) ifNil: [absentBlock value] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraph.class/instance/postCopy.st b/src/Squot.package/SquotObjectGraph.class/instance/postCopy.st deleted file mode 100644 index 59d427afa..000000000 --- a/src/Squot.package/SquotObjectGraph.class/instance/postCopy.st +++ /dev/null @@ -1,4 +0,0 @@ -copying -postCopy - super postCopy. - objects := objects copy. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraph.class/instance/roots.st b/src/Squot.package/SquotObjectGraph.class/instance/roots.st deleted file mode 100644 index 32c4c19fd..000000000 --- a/src/Squot.package/SquotObjectGraph.class/instance/roots.st +++ /dev/null @@ -1,7 +0,0 @@ -patching -roots - | roots | - roots := LinkedList new. - self hasObjects ifTrue: [roots add: self startObject]. - startShadow ifNotNil: [roots add: startShadow]. - ^ roots \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraph.class/instance/startObject.st b/src/Squot.package/SquotObjectGraph.class/instance/startObject.st deleted file mode 100644 index 9a8848ab3..000000000 --- a/src/Squot.package/SquotObjectGraph.class/instance/startObject.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -startObject - ^ objects at: self startName \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraph.class/methodProperties.json b/src/Squot.package/SquotObjectGraph.class/methodProperties.json deleted file mode 100644 index 8d4b3861a..000000000 --- a/src/Squot.package/SquotObjectGraph.class/methodProperties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "anyObjectSatisfy:" : "jr 7/17/2021 01:55", - "asShadowGraph" : "jr 7/30/2017 01:37", - "evictObjectNames" : "jr 8/17/2017 22:16", - "hasObjects" : "jr 7/7/2021 21:55", - "includes:" : "jr 7/26/2019 23:09", - "includesObjectNamed:" : "jr 11/22/2021 00:22", - "initialize" : "jr 7/30/2017 01:04", - "objectNamed:" : "jr 11/21/2021 18:29", - "objectNamed:ifAbsent:" : "jr 11/22/2021 00:23", - "postCopy" : "jr 7/30/2017 01:03", - "roots" : "jr 7/7/2021 21:54", - "startObject" : "jr 7/30/2017 01:03" } } diff --git a/src/Squot.package/SquotObjectGraph.class/properties.json b/src/Squot.package/SquotObjectGraph.class/properties.json deleted file mode 100644 index d66d9d37c..000000000 --- a/src/Squot.package/SquotObjectGraph.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Capturing", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/10/2017 19:40", - "instvars" : [ - "objects" ], - "name" : "SquotObjectGraph", - "pools" : [ - ], - "super" : "SquotShadowGraph", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectGraphDiff.class/README.md b/src/Squot.package/SquotObjectGraphDiff.class/README.md deleted file mode 100644 index 8386f8e71..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/README.md +++ /dev/null @@ -1,6 +0,0 @@ -I am the result of comparing two graphs of object shadows. - -Instance Variables - diffs: ObjectDiffs by name of the transformed object - shadows: shadow objects by their captured objects' names - startObjectName: name of the object from which the diff was initiated \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/addDiff.forObjectNamed..st b/src/Squot.package/SquotObjectGraphDiff.class/instance/addDiff.forObjectNamed..st deleted file mode 100644 index ba73ce039..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/addDiff.forObjectNamed..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -addDiff: aShadow forObjectNamed: aName - diffs at: aName put: aShadow. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/addModificationsAsConflicts..st b/src/Squot.package/SquotObjectGraphDiff.class/instance/addModificationsAsConflicts..st deleted file mode 100644 index a598cb158..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/addModificationsAsConflicts..st +++ /dev/null @@ -1,8 +0,0 @@ -merging -addModificationsAsConflicts: anObjectGraphMerge - self modifications do: - [:each | | merge | - merge := each asSquotConflicts. - merge isConflict - ifTrue: [anObjectGraphMerge addConflict: merge] - ifFalse: [anObjectGraphMerge addMerge: merge]]. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/addShadow.named..st b/src/Squot.package/SquotObjectGraphDiff.class/instance/addShadow.named..st deleted file mode 100644 index e8a592202..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/addShadow.named..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -addShadow: aShadow named: aName - shadows at: aName put: aShadow. - diffs at: aName put: (SquotObjectAddition of: aShadow). \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/asSquotHierarchicalDiff.st b/src/Squot.package/SquotObjectGraphDiff.class/instance/asSquotHierarchicalDiff.st deleted file mode 100644 index 3e3dc7495..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/asSquotHierarchicalDiff.st +++ /dev/null @@ -1,7 +0,0 @@ -*Squot-Tools -asSquotHierarchicalDiff - "Answer a collection of top nodes of trees for a hierarchical diff. - Refer to SquotDiffNode for the interface of the nodes." - ^ SquotDiffTreeBuilder new - graphDiff: self; - convertToNodes: self \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/asStartDiff.st b/src/Squot.package/SquotObjectGraphDiff.class/instance/asStartDiff.st deleted file mode 100644 index 61cf56ecc..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/asStartDiff.st +++ /dev/null @@ -1,4 +0,0 @@ -Squot-diff-patching -asStartDiff - "Answer a diff that would patch the start object of the graph to which I apply." - ^ SquotObjectGraphDiffKickoff for: self \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/diffForObjectNamed..st b/src/Squot.package/SquotObjectGraphDiff.class/instance/diffForObjectNamed..st deleted file mode 100644 index cf2add3b3..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/diffForObjectNamed..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -diffForObjectNamed: aName - ^ diffs at: aName \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/diffForObjectNamed.ifAbsent..st b/src/Squot.package/SquotObjectGraphDiff.class/instance/diffForObjectNamed.ifAbsent..st deleted file mode 100644 index 4eee13128..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/diffForObjectNamed.ifAbsent..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -diffForObjectNamed: aName ifAbsent: absentBlock - ^ diffs at: aName ifAbsent: absentBlock \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/diffs.st b/src/Squot.package/SquotObjectGraphDiff.class/instance/diffs.st deleted file mode 100644 index e33628afe..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/diffs.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -diffs - ^ diffs \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/diffsDo..st b/src/Squot.package/SquotObjectGraphDiff.class/instance/diffsDo..st deleted file mode 100644 index 4765029be..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/diffsDo..st +++ /dev/null @@ -1,3 +0,0 @@ -enumerating -diffsDo: aBlock - diffs do: aBlock. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/diffsWithNamesDo..st b/src/Squot.package/SquotObjectGraphDiff.class/instance/diffsWithNamesDo..st deleted file mode 100644 index f758c6c6e..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/diffsWithNamesDo..st +++ /dev/null @@ -1,3 +0,0 @@ -enumerating -diffsWithNamesDo: aBlock - diffs keysAndValuesDo: [:name :diff | aBlock value: diff value: name]. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/hasChanges.st b/src/Squot.package/SquotObjectGraphDiff.class/instance/hasChanges.st deleted file mode 100644 index 8d93b1ea0..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/hasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasChanges - ^ diffs notEmpty \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/initialize.st b/src/Squot.package/SquotObjectGraphDiff.class/instance/initialize.st deleted file mode 100644 index 6edb7ae64..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initialize - diffs := Dictionary new. - shadows := Dictionary new. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/initializeSquotDiffNodes.with..st b/src/Squot.package/SquotObjectGraphDiff.class/instance/initializeSquotDiffNodes.with..st deleted file mode 100644 index c0e9d99a8..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/initializeSquotDiffNodes.with..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -initializeSquotDiffNodes: diffNodes with: aDiffNodesBuilder - self startDiff initializeSquotDiffNodes: diffNodes with: aDiffNodesBuilder. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/left..st b/src/Squot.package/SquotObjectGraphDiff.class/instance/left..st deleted file mode 100644 index 76788dbf7..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/left..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -left: anObject - left := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/left.st b/src/Squot.package/SquotObjectGraphDiff.class/instance/left.st deleted file mode 100644 index 3bb36da8e..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/left.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -left - ^ left \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/modifications.st b/src/Squot.package/SquotObjectGraphDiff.class/instance/modifications.st deleted file mode 100644 index 68f4ce849..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/modifications.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -modifications - ^ diffs values \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/newSquotDiffNodes.st b/src/Squot.package/SquotObjectGraphDiff.class/instance/newSquotDiffNodes.st deleted file mode 100644 index 7a32b702b..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/newSquotDiffNodes.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -newSquotDiffNodes - ^ self startDiff ifNil: [#()] ifNotNil: [:diff | diff newSquotDiffNodes] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/postCopy.st b/src/Squot.package/SquotObjectGraphDiff.class/instance/postCopy.st deleted file mode 100644 index 5b17faa0d..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/postCopy.st +++ /dev/null @@ -1,4 +0,0 @@ -copying -postCopy - diffs := diffs copy. - shadows := shadows copy. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/printOn..st b/src/Squot.package/SquotObjectGraphDiff.class/instance/printOn..st deleted file mode 100644 index 7870a95cf..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/printOn..st +++ /dev/null @@ -1,6 +0,0 @@ -printing -printOn: aStream - super printOn: aStream. - aStream nextPutAll: ' ('; - print: diffs size; - nextPutAll: ' changed objects)' \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/right..st b/src/Squot.package/SquotObjectGraphDiff.class/instance/right..st deleted file mode 100644 index 0246a03b1..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/right..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -right: anObject - right := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/right.st b/src/Squot.package/SquotObjectGraphDiff.class/instance/right.st deleted file mode 100644 index 42b8b9e67..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/right.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -right - ^ right \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/roots.st b/src/Squot.package/SquotObjectGraphDiff.class/instance/roots.st deleted file mode 100644 index 56647ec91..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/roots.st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-diff-patching -roots - ^ {left startShadow. right startShadow} \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/squotApplyTo..st b/src/Squot.package/SquotObjectGraphDiff.class/instance/squotApplyTo..st deleted file mode 100644 index 74ea54664..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/squotApplyTo..st +++ /dev/null @@ -1,15 +0,0 @@ -Squot-diff-patching -squotApplyTo: anObjectGraph - | newGraph oldImplementation newImplementation | - self hasChanges ifFalse: [^ anObjectGraph]. - newGraph := anObjectGraph mutableCopy. - oldImplementation := - [diffs keysAndValuesDo: - [:name :diff | newGraph applyDiff: diff toShadowNamed: name]]. - newImplementation := "Does not work until object graph merges compute the right side of the resolved patch by themselves. Moreover it touches all remaining objects rather than just the changed ones and their referrers." - [right shadows - do: [:each | newGraph assign: (right nameOf: each) toShadow: each]. - newGraph evictObjectNames]. - oldImplementation value flag: #todo. - newGraph refreshStartShadow. - ^ newGraph asShadowGraph \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/squotApplyToLoaded..st b/src/Squot.package/SquotObjectGraphDiff.class/instance/squotApplyToLoaded..st deleted file mode 100644 index 62a3ae244..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/squotApplyToLoaded..st +++ /dev/null @@ -1,8 +0,0 @@ -Squot-diff-patching -squotApplyToLoaded: anObjectGraph - "Modify anObject such that it matches what I model and answer the modified object, even if it was modified in-place." - self hasChanges - ifFalse: [^ anObjectGraph]. - ^ SquotPatcher new - registry: anObjectGraph; - apply: self toLoadedGraph: anObjectGraph. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotObjectGraphDiff.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index dcce1bf5c..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -squotChangeAsStringOrText - diffs ifEmpty: [^ '']. - ^ (diffs at: startObjectName) squotChangeAsStringOrText \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/squotHasChanges.st b/src/Squot.package/SquotObjectGraphDiff.class/instance/squotHasChanges.st deleted file mode 100644 index 87594106a..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/squotHasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-diff-testing -squotHasChanges - ^ diffs notEmpty \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/startDiff.st b/src/Squot.package/SquotObjectGraphDiff.class/instance/startDiff.st deleted file mode 100644 index e8ba51ec6..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/startDiff.st +++ /dev/null @@ -1,9 +0,0 @@ -accessing -startDiff - ^ diffs ifEmpty: [] - ifNotEmpty: - [diffs at: - (startObjectName ifNil: - [^ diffs size = 1 - ifTrue: [diffs anyOne] - ifFalse: [self error: 'Cannot identify top diff']])] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/startObjectName..st b/src/Squot.package/SquotObjectGraphDiff.class/instance/startObjectName..st deleted file mode 100644 index f79bd3e20..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/startObjectName..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -startObjectName: anObject - startObjectName := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/instance/startObjectName.st b/src/Squot.package/SquotObjectGraphDiff.class/instance/startObjectName.st deleted file mode 100644 index 57d263f9e..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/instance/startObjectName.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -startObjectName - ^ startObjectName \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiff.class/methodProperties.json b/src/Squot.package/SquotObjectGraphDiff.class/methodProperties.json deleted file mode 100644 index 1b219f9bf..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/methodProperties.json +++ /dev/null @@ -1,33 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "addDiff:forObjectNamed:" : "jr 6/22/2017 15:42", - "addModificationsAsConflicts:" : "jr 8/3/2019 21:52", - "addShadow:named:" : "jr 9/21/2019 21:28", - "asSquotHierarchicalDiff" : "jr 10/26/2018 23:42", - "asStartDiff" : "jr 6/27/2021 22:28", - "diffForObjectNamed:" : "jr 6/22/2017 16:10", - "diffForObjectNamed:ifAbsent:" : "jr 6/22/2017 16:17", - "diffs" : "jr 10/31/2017 22:52", - "diffsDo:" : "jr 7/30/2019 00:21", - "diffsWithNamesDo:" : "jr 6/12/2021 18:20", - "hasChanges" : "jr 8/4/2019 00:19", - "initialize" : "jr 6/22/2017 15:04", - "initializeSquotDiffNodes:with:" : "jr 11/18/2017 22:41", - "left" : "jr 9/21/2019 22:33", - "left:" : "jr 9/21/2019 22:33", - "modifications" : "jr 7/30/2019 21:48", - "newSquotDiffNodes" : "jr 11/18/2017 22:23", - "postCopy" : "jr 7/22/2017 17:04", - "printOn:" : "jr 12/12/2020 12:12", - "right" : "jr 9/21/2019 22:34", - "right:" : "jr 9/21/2019 22:34", - "roots" : "jr 6/20/2021 23:12", - "squotApplyTo:" : "jr 8/8/2021 15:19", - "squotApplyToLoaded:" : "jr 7/17/2021 02:11", - "squotChangeAsStringOrText" : "jr 11/25/2020 21:15", - "squotHasChanges" : "jr 6/22/2017 14:03", - "startDiff" : "jr 7/21/2017 00:51", - "startObjectName" : "jr 6/22/2017 16:06", - "startObjectName:" : "jr 6/22/2017 16:06" } } diff --git a/src/Squot.package/SquotObjectGraphDiff.class/properties.json b/src/Squot.package/SquotObjectGraphDiff.class/properties.json deleted file mode 100644 index 488c80acb..000000000 --- a/src/Squot.package/SquotObjectGraphDiff.class/properties.json +++ /dev/null @@ -1,20 +0,0 @@ -{ - "category" : "Squot-Diffs", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotDiff classTrait + TSquotModification classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 18:46", - "instvars" : [ - "left", - "right", - "diffs", - "startObjectName", - "shadows" ], - "name" : "SquotObjectGraphDiff", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotDiff + TSquotModification", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectGraphDiffKickoff.class/README.md b/src/Squot.package/SquotObjectGraphDiffKickoff.class/README.md deleted file mode 100644 index 85be81456..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoff.class/README.md +++ /dev/null @@ -1 +0,0 @@ -When patching an object graph, I am the first pseudo-diff worked upon. I direct the patching process to all the entity objects that must be patched according to the graph diff. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffKickoff.class/class/for..st b/src/Squot.package/SquotObjectGraphDiffKickoff.class/class/for..st deleted file mode 100644 index bafabdd8d..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoff.class/class/for..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -for: aGraphDiff - ^ self new - setGraphDiff: aGraphDiff; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffKickoff.class/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st b/src/Squot.package/SquotObjectGraphDiffKickoff.class/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st deleted file mode 100644 index ea05e5156..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoff.class/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st +++ /dev/null @@ -1,13 +0,0 @@ -Squot-diff-enumerating -referenceDiffsWithDefaultOwners: leftAndRightShadows reflectedIn: aMirror do: aBlock - "Evaluate aBlock with a pseudo-diff for each pseudo-reference to patched objects in the graph." - ^ graphDiff diffsWithNamesDo: - [:each :name | | left right rightName reference isForStart | - each isAddition ifFalse: - [rightName := each rightName ifNil: [name]. - reference := SquotObjectGraphReference diff: each objectName: rightName. - left := graphDiff left shadowNamed: name ifAbsent: []. - right := graphDiff right shadowNamed: rightName ifAbsent: []. - isForStart := each == graphDiff startDiff. - aBlock value: - ((isForStart ifTrue: [SquotObjectGraphDiffKickoffStartReference] ifFalse: [SquotObjectGraphDiffKickoffReference]) reference: reference leftOwner: graphDiff left reflectedIn: aMirror rightOwner: graphDiff right reflectedIn: aMirror objectDiff: each)]] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffKickoff.class/instance/setGraphDiff..st b/src/Squot.package/SquotObjectGraphDiffKickoff.class/instance/setGraphDiff..st deleted file mode 100644 index 6cbec1bcb..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoff.class/instance/setGraphDiff..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -setGraphDiff: aGraphDiff - graphDiff := aGraphDiff. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffKickoff.class/methodProperties.json b/src/Squot.package/SquotObjectGraphDiffKickoff.class/methodProperties.json deleted file mode 100644 index 87da1e18c..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoff.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - "for:" : "jr 6/18/2021 00:23" }, - "instance" : { - "referenceDiffsWithDefaultOwners:reflectedIn:do:" : "jr 7/18/2021 16:24", - "setGraphDiff:" : "jr 6/18/2021 00:23" } } diff --git a/src/Squot.package/SquotObjectGraphDiffKickoff.class/properties.json b/src/Squot.package/SquotObjectGraphDiffKickoff.class/properties.json deleted file mode 100644 index d86d785d5..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoff.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Diffs-Internal", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotDiff classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 6/27/2021 22:29", - "instvars" : [ - "graphDiff" ], - "name" : "SquotObjectGraphDiffKickoff", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotDiff", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/README.md b/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/README.md deleted file mode 100644 index 43656c021..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am a pseudo difference in a reference from a graph diff to an object to be updated. I dispatch the patching to an original shadow to be removed, or to a patched shadow that is either to be added or that was modified. I do not change anything in the object graph directly. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/class/reference.leftOwner.reflectedIn.rightOwner.reflectedIn.objectDiff..st b/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/class/reference.leftOwner.reflectedIn.rightOwner.reflectedIn.objectDiff..st deleted file mode 100644 index 63262ba9c..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/class/reference.leftOwner.reflectedIn.rightOwner.reflectedIn.objectDiff..st +++ /dev/null @@ -1,10 +0,0 @@ -instance creation -reference: aReference leftOwner: leftGraph reflectedIn: leftGraphMirror rightOwner: rightGraph reflectedIn: rightGraphMirror objectDiff: aDiff - ^ self new - setReference: aReference - leftOwner: leftGraph - leftOwnerMirror: leftGraphMirror - rightOwner: rightGraph - rightOwnerMirror: rightGraphMirror - objectDiff: aDiff; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/isAddition.st b/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/isAddition.st deleted file mode 100644 index 89b2a36a9..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/isAddition.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isAddition - ^ objectDiff isAddition \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/isModification.st b/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/isModification.st deleted file mode 100644 index 515a5ce80..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/isModification.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isModification - ^ objectDiff isModification \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/isRemoval.st b/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/isRemoval.st deleted file mode 100644 index 6ad50ecbd..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/isRemoval.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isRemoval - ^ objectDiff isRemoval \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/leftOwnerMirror..st b/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/leftOwnerMirror..st deleted file mode 100644 index 334a9a31d..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/leftOwnerMirror..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -leftOwnerMirror: anObject - leftOwnerMirror := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/leftOwnerMirror.st b/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/leftOwnerMirror.st deleted file mode 100644 index 870ee8b30..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/leftOwnerMirror.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -leftOwnerMirror - ^ leftOwnerMirror \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/objectDiff..st b/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/objectDiff..st deleted file mode 100644 index 610885c80..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/objectDiff..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -objectDiff: anObject - objectDiff := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/objectDiff.st b/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/objectDiff.st deleted file mode 100644 index a782ca00b..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/objectDiff.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -objectDiff - ^ objectDiff \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/printOn..st b/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/printOn..st deleted file mode 100644 index 2f61bf8fe..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/printOn..st +++ /dev/null @@ -1,11 +0,0 @@ -printing -printOn: aStream - "Append a sequence of characters to aStream that identify the receiver." - - super printOn: aStream. - aStream - nextPutAll: ' reference: '; - print: reference. - aStream - nextPutAll: ' objectDiff: '; - print: objectDiff. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/rightOwnerMirror..st b/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/rightOwnerMirror..st deleted file mode 100644 index ba7252cec..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/rightOwnerMirror..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rightOwnerMirror: anObject - rightOwnerMirror := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/rightOwnerMirror.st b/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/rightOwnerMirror.st deleted file mode 100644 index 04c828ff4..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/rightOwnerMirror.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rightOwnerMirror - ^ rightOwnerMirror \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/setReference.leftOwner.leftOwnerMirror.rightOwner.rightOwnerMirror.objectDiff..st b/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/setReference.leftOwner.leftOwnerMirror.rightOwner.rightOwnerMirror.objectDiff..st deleted file mode 100644 index 6a19faf0f..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/setReference.leftOwner.leftOwnerMirror.rightOwner.rightOwnerMirror.objectDiff..st +++ /dev/null @@ -1,7 +0,0 @@ -initialize-release -setReference: aReference leftOwner: leftGraph leftOwnerMirror: leftGraphMirror rightOwner: rightGraph rightOwnerMirror: rightGraphMirror objectDiff: aDiff - super setReference: aReference leftOwner: leftGraph rightOwner: rightGraph. - leftOwnerMirror := leftGraphMirror. - rightOwnerMirror := rightGraphMirror. - objectDiff := aDiff. - \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/squotReflectOn.in..st b/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/squotReflectOn.in..st deleted file mode 100644 index 1911e87b6..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/squotReflectOn.in..st +++ /dev/null @@ -1,5 +0,0 @@ -patching -squotReflectOn: anObject in: aMirror - "Apply the difference to anObject via its mirror." - - self shouldBeImplemented. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/squotReflectOn.in.withValue..st b/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/squotReflectOn.in.withValue..st deleted file mode 100644 index 6c12ea8c8..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/squotReflectOn.in.withValue..st +++ /dev/null @@ -1,5 +0,0 @@ -patching -squotReflectOn: aGraph in: aMirror withValue: targetObject - "Nothing to do." - self assert: (aGraph includes: targetObject). - ^ targetObject \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/squotValueShadowFrom.reflectedIn..st b/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/squotValueShadowFrom.reflectedIn..st deleted file mode 100644 index 49520a047..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/instance/squotValueShadowFrom.reflectedIn..st +++ /dev/null @@ -1,5 +0,0 @@ -patching -squotValueShadowFrom: aShadow reflectedIn: aMirror - ^ objectDiff isRemoval - ifTrue: [reference reflect: leftOwner in: leftOwnerMirror] - ifFalse: [reference reflect: rightOwner in: rightOwnerMirror] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/methodProperties.json b/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/methodProperties.json deleted file mode 100644 index 856c9e138..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/methodProperties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "class" : { - "reference:leftOwner:reflectedIn:rightOwner:reflectedIn:objectDiff:" : "jr 6/27/2021 22:10" }, - "instance" : { - "isAddition" : "jr 6/20/2021 22:06", - "isModification" : "jr 6/20/2021 22:14", - "isRemoval" : "jr 6/20/2021 22:14", - "leftOwnerMirror" : "jr 6/20/2021 17:25", - "leftOwnerMirror:" : "jr 6/20/2021 17:25", - "objectDiff" : "jr 6/20/2021 17:12", - "objectDiff:" : "jr 6/20/2021 17:12", - "printOn:" : "jr 6/20/2021 17:14", - "rightOwnerMirror" : "jr 6/20/2021 17:25", - "rightOwnerMirror:" : "jr 6/20/2021 17:25", - "setReference:leftOwner:leftOwnerMirror:rightOwner:rightOwnerMirror:objectDiff:" : "jr 6/27/2021 22:12", - "squotReflectOn:in:" : "jr 6/20/2021 17:11", - "squotReflectOn:in:withValue:" : "jr 6/20/2021 20:12", - "squotValueShadowFrom:reflectedIn:" : "jr 7/18/2021 00:36" } } diff --git a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/properties.json b/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/properties.json deleted file mode 100644 index 6f1b4a295..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoffReference.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Diffs-Internal", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 6/27/2021 22:39", - "instvars" : [ - "objectDiff", - "leftOwnerMirror", - "rightOwnerMirror" ], - "name" : "SquotObjectGraphDiffKickoffReference", - "pools" : [ - ], - "super" : "SquotReferenceDiff", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectGraphDiffKickoffStartReference.class/README.md b/src/Squot.package/SquotObjectGraphDiffKickoffStartReference.class/README.md deleted file mode 100644 index 3e3e9b8e9..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoffStartReference.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am the special case pseudo difference in the reference from a graph diff to the start object of the patched object graph. I update the startName property of the graph being patched. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffKickoffStartReference.class/instance/squotReflectOn.in.withValue..st b/src/Squot.package/SquotObjectGraphDiffKickoffStartReference.class/instance/squotReflectOn.in.withValue..st deleted file mode 100644 index c8ead24aa..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoffStartReference.class/instance/squotReflectOn.in.withValue..st +++ /dev/null @@ -1,7 +0,0 @@ -patching -squotReflectOn: aGraph in: aMirror withValue: targetObject - "Update the startName of the graph." - | answer | - answer := super squotReflectOn: aGraph in: aMirror withValue: targetObject. - aGraph startName: (aGraph nameOf: targetObject undecorated). - ^ answer \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffKickoffStartReference.class/methodProperties.json b/src/Squot.package/SquotObjectGraphDiffKickoffStartReference.class/methodProperties.json deleted file mode 100644 index 17e1f04d8..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoffStartReference.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "squotReflectOn:in:withValue:" : "jr 7/4/2021 20:09" } } diff --git a/src/Squot.package/SquotObjectGraphDiffKickoffStartReference.class/properties.json b/src/Squot.package/SquotObjectGraphDiffKickoffStartReference.class/properties.json deleted file mode 100644 index 34fb9d0e0..000000000 --- a/src/Squot.package/SquotObjectGraphDiffKickoffStartReference.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Diffs-Internal", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 7/4/2021 22:30", - "instvars" : [ - ], - "name" : "SquotObjectGraphDiffKickoffStartReference", - "pools" : [ - ], - "super" : "SquotObjectGraphDiffKickoffReference", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectGraphDiffTest.class/README.md b/src/Squot.package/SquotObjectGraphDiffTest.class/README.md deleted file mode 100644 index 64c46e9ed..000000000 --- a/src/Squot.package/SquotObjectGraphDiffTest.class/README.md +++ /dev/null @@ -1 +0,0 @@ -Tests that different editions of object graphs are compared correctly. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/assertDiffAgainstItselfHasNoChanges..st b/src/Squot.package/SquotObjectGraphDiffTest.class/instance/assertDiffAgainstItselfHasNoChanges..st deleted file mode 100644 index a57497883..000000000 --- a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/assertDiffAgainstItselfHasNoChanges..st +++ /dev/null @@ -1,8 +0,0 @@ -helpers -assertDiffAgainstItselfHasNoChanges: anObject - | leftShadow rightShadow diff | - leftShadow := capturer captureGraph: anObject. - rightShadow := capturer captureGraph: anObject. - diff := leftShadow squotDiffAgainst: rightShadow. - self deny: diff squotHasChanges. - ^ diff \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/diff.against..st b/src/Squot.package/SquotObjectGraphDiffTest.class/instance/diff.against..st deleted file mode 100644 index 622b3b24a..000000000 --- a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/diff.against..st +++ /dev/null @@ -1,8 +0,0 @@ -helpers -diff: left against: right - | leftShadow rightShadow | - leftShadow := capturer captureGraph: left. - left become: right. - [rightShadow := capturer captureGraph: left] - ensure: [right become: left]. - ^ leftShadow squotDiffAgainst: rightShadow \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/diff.againstItselfAfter..st b/src/Squot.package/SquotObjectGraphDiffTest.class/instance/diff.againstItselfAfter..st deleted file mode 100644 index a0453faf8..000000000 --- a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/diff.againstItselfAfter..st +++ /dev/null @@ -1,7 +0,0 @@ -helpers -diff: anObject againstItselfAfter: aBlock - | leftShadow rightShadow | - leftShadow := capturer captureGraph: anObject. - aBlock value. - rightShadow := capturer captureGraph: anObject. - ^ leftShadow squotDiffAgainst: rightShadow \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/setUp.st b/src/Squot.package/SquotObjectGraphDiffTest.class/instance/setUp.st deleted file mode 100644 index 9b88cc54d..000000000 --- a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/setUp.st +++ /dev/null @@ -1,5 +0,0 @@ -running -setUp - objectRegistry := SquotObjectRegistry new. - capturer := SquotObjectCapturer new. - capturer registry: objectRegistry. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testAddObjects.st b/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testAddObjects.st deleted file mode 100644 index 08223e9fe..000000000 --- a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testAddObjects.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testAddObjects - | diff object newObject | - object := ValueHolder new contents: nil. - diff := self diff: object againstItselfAfter: [object contents: (newObject := ValueHolder new contents: 1)]. - self assert: diff squotHasChanges; - assert: (diff diffForObjectNamed: (objectRegistry nameOf: newObject)) isAddition. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testAddSubgraph.st b/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testAddSubgraph.st deleted file mode 100644 index 46fe60932..000000000 --- a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testAddSubgraph.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testAddSubgraph - | diff object newObject | - object := ValueHolder new contents: nil. - diff := self diff: object againstItselfAfter: - [object contents: (newObject := ValueHolder new contents: 'this is new as well')]. - self assert: (diff diffForObjectNamed: (objectRegistry nameOf: newObject contents)) isAddition. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testArrayOfDifferentlyTypedObjects.st b/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testArrayOfDifferentlyTypedObjects.st deleted file mode 100644 index f51c955a5..000000000 --- a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testArrayOfDifferentlyTypedObjects.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testArrayOfDifferentlyTypedObjects - | diff | - diff := self diff: {1} against: {nil}. - self assert: diff squotHasChanges; - assert: diff startDiff squotHasChanges. - diff := self diff: {nil} against: {1}. - self assert: diff squotHasChanges; - assert: diff startDiff squotHasChanges. - diff := self diff: {'foo'} against: {{1}}. - self assert: diff squotHasChanges; - assert: diff startDiff squotHasChanges. - diff := self diff: {{1}} against: {'foo'}. - self assert: diff squotHasChanges; - assert: diff startDiff squotHasChanges. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testArrayOfIntegers.st b/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testArrayOfIntegers.st deleted file mode 100644 index 6a122faa1..000000000 --- a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testArrayOfIntegers.st +++ /dev/null @@ -1,29 +0,0 @@ -tests -testArrayOfIntegers - | left right other arrayName diff | - "{1. 2} <=> {1. 2}" - left := capturer captureGraph: {1. 2}. - arrayName := left startName. - other := Array with: 1 with: 2. - capturer objectGraph assign: arrayName to: other. - right := capturer captureGraph: other. - diff := left squotDiffAgainst: right. - self deny: diff squotHasChanges. - "{2. 1} <=> {1. 2}" - other := Array with: 2 with: 1. - capturer objectGraph assign: arrayName to: other. - left := capturer captureGraph: other. - diff := left squotDiffAgainst: right. - self assert: diff squotHasChanges; - assert: (diff diffForObjectNamed: arrayName ifAbsent: []) notNil. - "{1} <=> {1. 2}" - other := Array with: 1. - capturer objectGraph assign: arrayName to: other. - left := capturer captureGraph: other. - diff := left squotDiffAgainst: right. - self assert: diff squotHasChanges; - assert: (diff diffForObjectNamed: arrayName ifAbsent: []) notNil. - "{1. 2} <=> {1}" - diff := right squotDiffAgainst: left. - self assert: diff squotHasChanges; - assert: (diff diffForObjectNamed: arrayName ifAbsent: []) notNil. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testByteArray.st b/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testByteArray.st deleted file mode 100644 index 4f924d29a..000000000 --- a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testByteArray.st +++ /dev/null @@ -1,17 +0,0 @@ -tests -testByteArray - | left right array arrayName other diff | - "{1. 2} <=> {1. 2}" - array := #[1 2]. - other := #[1 2] copy. - left := capturer captureGraph: (ValueHolder new contents: array; yourself). - arrayName := objectRegistry nameOf: array. - objectRegistry assign: arrayName to: other. - diff := left squotDiffAgainst: (capturer captureGraph: (ValueHolder new contents: other; yourself)). - self assert: (diff diffForObjectNamed: arrayName ifAbsent: []) isNil. - "{2. 1} <=> {1. 2}" - other := #[2 1]. - capturer objectGraph assign: (objectRegistry nameOf: array) to: other. - diff := left squotDiffAgainst: (right := capturer captureGraph: (ValueHolder new contents: other; yourself)). - self assert: (diff := diff diffForObjectNamed: arrayName ifAbsent: []) notNil; - assert: (diff squotApplyTo: (left shadowNamed: arrayName)) = (right shadowNamed: arrayName). \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testCyclicReferences.st b/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testCyclicReferences.st deleted file mode 100644 index 9a62533c8..000000000 --- a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testCyclicReferences.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testCyclicReferences - | subject diff subjectDiff itemShadow | - subject := Array new: 1. - subject at: 1 put: subject. - self assertDiffAgainstItselfHasNoChanges: subject. - diff := self diff: subject againstItselfAfter: - [subject at: 1 put: {subject}]. - self assert: diff squotHasChanges. - subjectDiff := diff diffForObjectNamed: (objectRegistry nameOf: subject). - itemShadow := (subjectDiff slotChanges associationAt: 1) replacementShadow. - self assert: itemShadow name = (objectRegistry nameOf: (subject at: 1)). - self assert: (itemShadow slots at: 1) name = (objectRegistry nameOf: subject). - self assert: ((itemShadow slots at: 1) slots at: 1) == itemShadow. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testDeepChanges.st b/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testDeepChanges.st deleted file mode 100644 index f1d70ba0b..000000000 --- a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testDeepChanges.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testDeepChanges - | a b diff diffA | - a := Array with: (b := Array with: 1). - diff := self diff: a againstItselfAfter: [b at: 1 put: 2]. - self assert: diff squotHasChanges. - diffA := diff diffForObjectNamed: (objectRegistry nameOf: a) - ifAbsent: [self fail: 'Should have a diff for a because of deep changes']. - self assert: diffA squotHasChanges. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testDeepChanges2.st b/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testDeepChanges2.st deleted file mode 100644 index 857413ba2..000000000 --- a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testDeepChanges2.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testDeepChanges2 - | a b diff diffA | - a := ValueHolder new contents: (b := ValueHolder new contents: 1). - diff := self diff: a againstItselfAfter: [b contents: 2]. - self assert: diff squotHasChanges. - diffA := diff diffForObjectNamed: (objectRegistry nameOf: a) - ifAbsent: [self fail: 'Should have a diff for a because of deep changes']. - self assert: diffA squotHasChanges. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testDeepChanges3.st b/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testDeepChanges3.st deleted file mode 100644 index f280d5791..000000000 --- a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testDeepChanges3.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testDeepChanges3 - "Try to provoke the diff builder to visit an object again only after changes to it have been detected already." - | a b c d diff diffD | - a := ValueHolder new - contents: {(b := ValueHolder new contents: 1). - (c := ValueHolder new contents: (d := ValueHolder new contents: b))}. - diff := self diff: a againstItselfAfter: [b contents: 2]. - self assert: diff squotHasChanges. - diffD := diff diffForObjectNamed: (objectRegistry nameOf: c) - ifAbsent: [self fail: 'Should have a diff for a because of deep changes']. - self assert: diffD squotHasChanges. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testDictionariesWithComplexKeys.st b/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testDictionariesWithComplexKeys.st deleted file mode 100644 index b854b1747..000000000 --- a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testDictionariesWithComplexKeys.st +++ /dev/null @@ -1,20 +0,0 @@ -tests -testDictionariesWithComplexKeys - | dict diff key1 key2 key2Diff changedAssocDiff | - key1 := SquotObjectForDiffTests new var1: 1; var2: 2. - key2 := SquotObjectForDiffTests new var1: nil; var2: key1. - dict := Dictionary newFrom: {key1 -> 'value'. key2 -> key1}. - self assertDiffAgainstItselfHasNoChanges: dict. - diff := self diff: dict againstItselfAfter: - [key2 var1: 3. - dict at: key1 put: 'new value'. - dict rehash]. - self assert: diff squotHasChanges. - key2Diff := diff - diffForObjectNamed: (objectRegistry nameOf: key2) - ifAbsent: [self fail: 'no diff for changed key object']. - self assert: (key2Diff slotChanges associationAt: 'var1') replacementShadow value == 3. - changedAssocDiff := diff - diffForObjectNamed: (objectRegistry nameOf: (dict associationAt: key1)) - ifAbsent: [self fail: 'no diff for changed association']. - self assert: (changedAssocDiff slotChanges associationAt: 'value') replacementShadow value = 'new value'. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testDictionariesWithSharedAssociations.st b/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testDictionariesWithSharedAssociations.st deleted file mode 100644 index a1c79db09..000000000 --- a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testDictionariesWithSharedAssociations.st +++ /dev/null @@ -1,20 +0,0 @@ -tests -testDictionariesWithSharedAssociations - | bothDicts dict1 dict2 diff changedAssocDiff dict2Diff | - dict1 := Dictionary newFrom: {#a -> 1. #b -> 2}. - dict2 := Dictionary new add: (dict1 associationAt: #a); yourself. - bothDicts := {dict1. dict2}. - self assertDiffAgainstItselfHasNoChanges: bothDicts. - diff := self diff: bothDicts againstItselfAfter: - [dict2 add: (dict1 associationAt: #b). - dict1 at: #a put: 42]. - self assert: diff squotHasChanges. - dict2Diff := diff - diffForObjectNamed: (objectRegistry nameOf: dict2) - ifAbsent: [self fail: 'no diff for dict2']. - self assert: (dict2Diff itemChanges associations detect: [:each | each class == SquotSlotAddition] ifNone: [self fail: 'no slot addition']) slotToBeAdded association name = - (objectRegistry nameOf: (dict1 associationAt: #b)). - changedAssocDiff := diff - diffForObjectNamed: (objectRegistry nameOf: (dict1 associationAt: #a)) - ifAbsent: [self fail: 'no diff for changed association']. - self assert: (changedAssocDiff slotChanges associationAt: 'value') replacementShadow value = 42. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testDictionary.st b/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testDictionary.st deleted file mode 100644 index a118720f2..000000000 --- a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testDictionary.st +++ /dev/null @@ -1,16 +0,0 @@ -tests -testDictionary - | dict diff removedAssociation | - dict := Dictionary newFrom: {1 -> 2. 'foo' -> 'bar'. #bla -> (StringHolder new contents: 'blubb'; yourself)}. - removedAssociation := dict associationAt: 'foo'. - self assertDiffAgainstItselfHasNoChanges: dict. - diff := self diff: dict againstItselfAfter: - [dict at: 1 put: 3; - at: 'fuu' put: (dict at: 'foo'); - removeKey: 'foo'. - (dict at: #bla) contents: 'blobb']. - self assert: diff squotHasChanges; - assert: (diff diffForObjectNamed: (objectRegistry nameOf: dict) ifAbsent: []) notNil - description: 'no diff for Dictionary'; - assert: (diff diffForObjectNamed: (objectRegistry nameOf: (dict associationAt: 1)) ifAbsent: []) notNil - description: 'no diff for changed association'. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testIdentityReplacedObject.st b/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testIdentityReplacedObject.st deleted file mode 100644 index 3ea3d8a46..000000000 --- a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testIdentityReplacedObject.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testIdentityReplacedObject - | binding1 binding2 diff holder | - binding1 := Smalltalk globals bindingOf: #Smalltalk. - binding2 := self class environment bindingOf: self class name. - holder := ValueHolder new contents: binding1. - diff := self diff: holder againstItselfAfter: [holder contents: binding2]. - self assert: diff squotHasChanges. - diff := self diff: holder againstItselfAfter: []. - self deny: diff squotHasChanges. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testMoveObjectCloserToStart.st b/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testMoveObjectCloserToStart.st deleted file mode 100644 index 8a01639cc..000000000 --- a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testMoveObjectCloserToStart.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -testMoveObjectCloserToStart - "If an object is moved closer to the start object, the comparison walk will encounter it sooner. This must not cause trouble with the mirror lookups." - | diff o1 o2 o3 | - o1 := {o2 := {o3 := {42}}}. - diff := self diff: o1 againstItselfAfter: [o1 at: 1 put: o3]. - self assert: (diff diffForObjectNamed: (objectRegistry nameOf: o1) ifAbsent: []) notNil; - assert: (diff diffForObjectNamed: (objectRegistry nameOf: o3) ifAbsent: []) isNil. - "Now try with new references instead of changing an existing reference." - o1 := Set newFrom: {o2}. - diff := self diff: o1 againstItselfAfter: [o1 add: o3; remove: o2]. "Should not raise an error. Did not wrap in shouldnt:raise: because without it is easier to debug." \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testObjects.st b/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testObjects.st deleted file mode 100644 index 5254e4857..000000000 --- a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testObjects.st +++ /dev/null @@ -1,21 +0,0 @@ -tests -testObjects - "Graph diff records all changes to objects and knows of transitive/deep changes." - | a b c shadow1 shadow2 diff diffForC diffForB | - a := SquotObjectForDiffTests new var1: nil; var2: nil. - b := SquotObjectForDiffTests new var1: 1; var2: 2. - c := SquotObjectForDiffTests new var1: a; var2: b. - shadow1 := capturer captureGraph: c. - b var1: 3. - shadow2 := capturer captureGraph: c. - diff := shadow1 squotDiffAgainst: shadow2. - self assert: diff squotHasChanges. - diffForC := diff startDiff. - self assert: (diffForC slotChanges associationAt: 'var2') class == SquotSlotTransitiveChange. - self assert: (diff diffForObjectNamed: (objectRegistry nameOf: a) ifAbsent: []) isNil - description: 'no diff for a'. - self deny: (diffForC slotChanges includesKey: 'var1') - description: 'no transitive change for a'. - diffForB := diff diffForObjectNamed: (objectRegistry nameOf: b) ifAbsent: []. - self assert: diffForB notNil description: 'diff for b should exist'. - \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testRectangles.st b/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testRectangles.st deleted file mode 100644 index d492b09a3..000000000 --- a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testRectangles.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testRectangles - "Points should be reassigned, not patched." - | diff rect origin corner pointDiff | - origin := 1@2. - corner := 3@4. - rect := (origin corner: corner). - diff := self diff: rect against: (5@6 corner: 7@8). - self assert: diff squotHasChanges; - assert: (diff diffForObjectNamed: (objectRegistry nameOf: rect) ifAbsent: []) notNil; - deny: ((pointDiff := diff diffForObjectNamed: (objectRegistry nameOf: rect origin ifAbsent: []) ifAbsent: []) notNil and: [pointDiff isModification]); - deny: ((pointDiff := diff diffForObjectNamed: (objectRegistry nameOf: rect corner ifAbsent: []) ifAbsent: []) notNil and: [pointDiff isModification]). \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testReferenceSwap.st b/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testReferenceSwap.st deleted file mode 100644 index 7c0e7f740..000000000 --- a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testReferenceSwap.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testReferenceSwap - "When two objects exchange places from one capture to another, the containing object - should have changes, but not the swapped objects." - | a b array diff | - a := Object new. b := Object new. - array := {a. b}. - diff := self diff: array againstItselfAfter: [array swap: 1 with: 2]. - self assert: diff squotHasChanges; - assert: (diff diffForObjectNamed: (objectRegistry nameOf: array) ifAbsent: []) notNil; - assert: (diff diffForObjectNamed: (objectRegistry nameOf: a) ifAbsent: []) isNil; - assert: (diff diffForObjectNamed: (objectRegistry nameOf: b) ifAbsent: []) isNil. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testReplacedObject.st b/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testReplacedObject.st deleted file mode 100644 index 6d59e04e5..000000000 --- a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testReplacedObject.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testReplacedObject - "Capture a ValueHolder whose contents will be proxied." - | holder diff holderDiff | - holder := ValueHolder new contents: (Smalltalk globals bindingOf: #Object); yourself. - diff := self diff: holder againstItselfAfter: [holder contents: (Smalltalk globals bindingOf: #SmallInteger)]. - holderDiff := diff diffForObjectNamed: (objectRegistry nameOf: holder). - self assert: holderDiff squotHasChanges. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testReplacedObject2.st b/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testReplacedObject2.st deleted file mode 100644 index 7257c141d..000000000 --- a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testReplacedObject2.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testReplacedObject2 - "Capture a StringMorph whose font will be proxied." - | stringMorph diff stringMorphDiff | - stringMorph := StringMorph contents: 'foo' font: TextStyle defaultFont. - diff := self diff: stringMorph againstItselfAfter: [stringMorph contents: 'bar']. - stringMorphDiff := diff diffForObjectNamed: (objectRegistry nameOf: stringMorph). - self deny: (stringMorphDiff slotChanges includesKey: 'font'). \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testSet.st b/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testSet.st deleted file mode 100644 index c5d34a508..000000000 --- a/src/Squot.package/SquotObjectGraphDiffTest.class/instance/testSet.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testSet - | set stringHolder diff | - set := Set newFrom: {1. 2. stringHolder := StringHolder new contents: 'foo'}. - self assertDiffAgainstItselfHasNoChanges: set. - diff := self diff: set againstItselfAfter: - [set remove: 1; - add: 3. - stringHolder contents: 'fooo']. - self assert: diff squotHasChanges; - assert: (diff diffForObjectNamed: (objectRegistry nameOf: set) ifAbsent: []) notNil; - assert: diff startDiff == (diff diffForObjectNamed: (objectRegistry nameOf: set)); - assert: (diff diffForObjectNamed: (objectRegistry nameOf: stringHolder) ifAbsent: []) notNil - description: 'no diff for changed item'. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphDiffTest.class/methodProperties.json b/src/Squot.package/SquotObjectGraphDiffTest.class/methodProperties.json deleted file mode 100644 index d612e1b0f..000000000 --- a/src/Squot.package/SquotObjectGraphDiffTest.class/methodProperties.json +++ /dev/null @@ -1,28 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "assertDiffAgainstItselfHasNoChanges:" : "jr 7/30/2017 15:04", - "diff:against:" : "jr 9/13/2019 12:26", - "diff:againstItselfAfter:" : "jr 7/30/2017 15:04", - "setUp" : "jr 7/30/2017 22:04", - "testAddObjects" : "jr 9/13/2019 12:22", - "testAddSubgraph" : "jr 9/24/2019 00:30", - "testArrayOfDifferentlyTypedObjects" : "jr 4/4/2020 19:33", - "testArrayOfIntegers" : "jr 9/13/2019 11:29", - "testByteArray" : "jr 7/25/2021 19:06", - "testCyclicReferences" : "jr 6/25/2017 22:22", - "testDeepChanges" : "jr 7/26/2017 23:30", - "testDeepChanges2" : "jr 7/26/2017 23:31", - "testDeepChanges3" : "jr 8/17/2017 17:52", - "testDictionariesWithComplexKeys" : "jr 4/8/2021 15:53", - "testDictionariesWithSharedAssociations" : "jr 7/30/2017 00:12", - "testDictionary" : "jr 9/13/2019 11:50", - "testIdentityReplacedObject" : "jr 7/30/2017 13:16", - "testMoveObjectCloserToStart" : "jr 7/25/2021 14:14", - "testObjects" : "jr 9/13/2019 11:19", - "testRectangles" : "jr 7/19/2021 00:38", - "testReferenceSwap" : "jr 9/13/2019 11:44", - "testReplacedObject" : "jr 7/30/2021 20:02", - "testReplacedObject2" : "jr 7/20/2017 16:59", - "testSet" : "jr 9/13/2019 11:37" } } diff --git a/src/Squot.package/SquotObjectGraphDiffTest.class/properties.json b/src/Squot.package/SquotObjectGraphDiffTest.class/properties.json deleted file mode 100644 index 28e877547..000000000 --- a/src/Squot.package/SquotObjectGraphDiffTest.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-Tests-Diffs", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 9/20/2019 20:46", - "instvars" : [ - "capturer", - "objectRegistry" ], - "name" : "SquotObjectGraphDiffTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectGraphMerge.class/README.md b/src/Squot.package/SquotObjectGraphMerge.class/README.md deleted file mode 100644 index 1c7c0f842..000000000 --- a/src/Squot.package/SquotObjectGraphMerge.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A state-based three-way merge of different editions of an object graph. It can have conflicts about whether objects are part of the final graph or not. The objects can undergo merges themselves. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMerge.class/instance/addConflict..st b/src/Squot.package/SquotObjectGraphMerge.class/instance/addConflict..st deleted file mode 100644 index f2d641d6b..000000000 --- a/src/Squot.package/SquotObjectGraphMerge.class/instance/addConflict..st +++ /dev/null @@ -1,3 +0,0 @@ -adding and removing -addConflict: aConflict - containerConflicts at: (self keyOf: aConflict object) put: aConflict. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMerge.class/instance/asSquotHierarchicalDiff.st b/src/Squot.package/SquotObjectGraphMerge.class/instance/asSquotHierarchicalDiff.st deleted file mode 100644 index 88c90e7b6..000000000 --- a/src/Squot.package/SquotObjectGraphMerge.class/instance/asSquotHierarchicalDiff.st +++ /dev/null @@ -1,7 +0,0 @@ -*Squot-Tools -asSquotHierarchicalDiff - self flag: #stub. - self hasChanges ifFalse: [^ #()]. - ^ SquotDiffTreeBuilder new - graphDiff: self; - convertToNodes: self \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMerge.class/instance/chooseIncoming.st b/src/Squot.package/SquotObjectGraphMerge.class/instance/chooseIncoming.st deleted file mode 100644 index baf32f18c..000000000 --- a/src/Squot.package/SquotObjectGraphMerge.class/instance/chooseIncoming.st +++ /dev/null @@ -1,4 +0,0 @@ -merging -chooseIncoming - containerConflicts do: [:each | each chooseIncoming]. - elementMerges do: [:each | each chooseIncoming]. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMerge.class/instance/chooseWorking.st b/src/Squot.package/SquotObjectGraphMerge.class/instance/chooseWorking.st deleted file mode 100644 index 7965f184b..000000000 --- a/src/Squot.package/SquotObjectGraphMerge.class/instance/chooseWorking.st +++ /dev/null @@ -1,4 +0,0 @@ -merging -chooseWorking - containerConflicts do: [:each | each chooseWorking]. - elementMerges do: [:each | each chooseWorking]. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMerge.class/instance/computeDifferences.st b/src/Squot.package/SquotObjectGraphMerge.class/instance/computeDifferences.st deleted file mode 100644 index 432ded548..000000000 --- a/src/Squot.package/SquotObjectGraphMerge.class/instance/computeDifferences.st +++ /dev/null @@ -1,17 +0,0 @@ -private -computeDifferences - | graphWalk | - graphWalk := SquotGraphWalk new. - self mergeStartReferencesToStart: graphWalk. - graphWalk do: - [:eachTriple | | object workingObject incomingObject baseObject name | - object := eachTriple first ifNil: [eachTriple second ifNil: [eachTriple third]]. - name := working nameOf: object undecorated - ifAbsent: - [incoming nameOf: object undecorated - ifAbsent: [base nameOf: object undecorated ifAbsent: []]]. - workingObject := object sameIn: working withName: name ifAbsent: []. - incomingObject := object sameIn: incoming withName: name ifAbsent: [eachTriple second]. - baseObject := object sameIn: base withName: name ifAbsent: [eachTriple third]. - self mergeObject: workingObject with: incomingObject basedOn: baseObject; - show: graphWalk nextAfter: eachTriple]. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMerge.class/instance/diffs.st b/src/Squot.package/SquotObjectGraphMerge.class/instance/diffs.st deleted file mode 100644 index accc270dc..000000000 --- a/src/Squot.package/SquotObjectGraphMerge.class/instance/diffs.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -diffs - - ^ diffs \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMerge.class/instance/initialize.st b/src/Squot.package/SquotObjectGraphMerge.class/instance/initialize.st deleted file mode 100644 index 1d98fe692..000000000 --- a/src/Squot.package/SquotObjectGraphMerge.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initialize - super initialize. - diffs := SquotObjectGraphDiff new. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMerge.class/instance/initializeSquotDiffNodes.with..st b/src/Squot.package/SquotObjectGraphMerge.class/instance/initializeSquotDiffNodes.with..st deleted file mode 100644 index 136e1537d..000000000 --- a/src/Squot.package/SquotObjectGraphMerge.class/instance/initializeSquotDiffNodes.with..st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-Tools -initializeSquotDiffNodes: diffNodes with: aDiffNodesBuilder - working startName = incoming startName - ifTrue: [self mergeOfStartObject initializeSquotDiffNodes: diffNodes with: aDiffNodesBuilder] - ifFalse: ["Nothing for now. Maybe add children nodes?" self flag: #stub]. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMerge.class/instance/keyOf.ifAbsent..st b/src/Squot.package/SquotObjectGraphMerge.class/instance/keyOf.ifAbsent..st deleted file mode 100644 index 4f91bef7e..000000000 --- a/src/Squot.package/SquotObjectGraphMerge.class/instance/keyOf.ifAbsent..st +++ /dev/null @@ -1,7 +0,0 @@ -accessing -keyOf: anObject ifAbsent: aBlock - ^ working nameOf: anObject undecorated ifAbsent: - [incoming nameOf: anObject undecorated ifAbsent: - [base - ifNil: [^ aBlock value] - ifNotNil: [base nameOf: anObject undecorated ifAbsent: aBlock]]]. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMerge.class/instance/mergeAt..st b/src/Squot.package/SquotObjectGraphMerge.class/instance/mergeAt..st deleted file mode 100644 index 1704c70b2..000000000 --- a/src/Squot.package/SquotObjectGraphMerge.class/instance/mergeAt..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -mergeAt: name - ^ elementMerges at: name \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMerge.class/instance/mergeObject.with.basedOn..st b/src/Squot.package/SquotObjectGraphMerge.class/instance/mergeObject.with.basedOn..st deleted file mode 100644 index 01d7579c2..000000000 --- a/src/Squot.package/SquotObjectGraphMerge.class/instance/mergeObject.with.basedOn..st +++ /dev/null @@ -1,30 +0,0 @@ -private -mergeObject: workingObject with: incomingObject basedOn: baseObject - "Trigger merge of these object editions and record the merge. - Also note when an object has been added or removed, possibly creating conflicts." - | object name merge | - object := workingObject ifNil: [incomingObject ifNil: [baseObject]]. - name := self keyOf: object ifAbsent: [^ self "value objects are not merged"]. - (elementMerges includesKey: name) ifTrue: [^ self "already done"]. - workingObject - ifNil: - [baseObject - ifNil: ["incoming additon" - containerModifications - at: name - put: (SquotObjectAddition of: incomingObject)] - ifNotNil: ["working removal" self notYetImplemented]] - ifNotNil: - [incomingObject - ifNil: [baseObject - ifNil: ["leave added"] - ifNotNil: - ["incoming removal" - workingObject = baseObject - ifTrue: [containerModifications at: name put: (SquotObjectRemoval of: workingObject)] - ifFalse: [containerConflicts at: name put: (SquotObjectReferenceConflict key: (SquotGraphElementWithName name: name) base: baseObject working: workingObject incoming: nil)]]] - ifNotNil: - ["merge editions" - baseObject ifNil: [self notYetImplemented]. - merge := workingObject squotMergeWith: incomingObject basedOn: baseObject. - merge hasChanges ifTrue: [elementMerges at: name put: merge]]]. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMerge.class/instance/mergeOfStartObject.st b/src/Squot.package/SquotObjectGraphMerge.class/instance/mergeOfStartObject.st deleted file mode 100644 index 8eb2c7640..000000000 --- a/src/Squot.package/SquotObjectGraphMerge.class/instance/mergeOfStartObject.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -mergeOfStartObject - ^ self at: working startName \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMerge.class/instance/mergeStartReferencesToStart..st b/src/Squot.package/SquotObjectGraphMerge.class/instance/mergeStartReferencesToStart..st deleted file mode 100644 index 285fdf70c..000000000 --- a/src/Squot.package/SquotObjectGraphMerge.class/instance/mergeStartReferencesToStart..st +++ /dev/null @@ -1,28 +0,0 @@ -private -mergeStartReferencesToStart: aGraphWalk - (working hasSameStartObjectAs: incoming) - ifTrue: - [(working hasSameStartObjectAs: base) - ifFalse: - [self flag: #notYetImplemented. - "All differences behind the start objects should be conflicts." - "Try to create an empty object of the same kind as base..." - ^ aGraphWalk addFirst: - {working startShadow. - incoming startShadow. - working startShadow undecorated class new}]] - ifFalse: - [self flag: #notYetImplemented. - (working hasSameStartObjectAs: base) - ifTrue: [containerModifications at: working startName put: (SquotObjectReplacement left: working startObject right: incoming startObject)] - ifFalse: - [base startName isNil ifTrue: - [containerConflicts - at: working startName put: (SquotObjectAdditionConflict working: working startShadow incoming: incoming startShadow); - at: incoming startName put: (containerConflicts at: working startName). - ^ self]. - SquotObjectReferenceConflict]]. - aGraphWalk addFirst: - {working startShadow. - incoming startShadow. - base startShadow}. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMerge.class/instance/modifications.st b/src/Squot.package/SquotObjectGraphMerge.class/instance/modifications.st deleted file mode 100644 index 7b9f01dca..000000000 --- a/src/Squot.package/SquotObjectGraphMerge.class/instance/modifications.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -modifications - - ^ diffs \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMerge.class/instance/newSquotDiffNodes.st b/src/Squot.package/SquotObjectGraphMerge.class/instance/newSquotDiffNodes.st deleted file mode 100644 index debff58a3..000000000 --- a/src/Squot.package/SquotObjectGraphMerge.class/instance/newSquotDiffNodes.st +++ /dev/null @@ -1,11 +0,0 @@ -*Squot-Tools -newSquotDiffNodes - ^ working startName = incoming startName - ifTrue: [self mergeOfStartObject newSquotDiffNodes] - ifFalse: [{SquotMergeDiffNode - title: 'Distinct objects' - content: self - children: #() - onInclude: [self chooseIncoming] - onExclude: [self chooseWorking] - onReset: [self resetChoice]}] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMerge.class/instance/privateResolvedPatch.st b/src/Squot.package/SquotObjectGraphMerge.class/instance/privateResolvedPatch.st deleted file mode 100644 index 69907d70e..000000000 --- a/src/Squot.package/SquotObjectGraphMerge.class/instance/privateResolvedPatch.st +++ /dev/null @@ -1,22 +0,0 @@ -private -privateResolvedPatch - self flag: #todo. "maybe it is more consistent to copy what is the instance variable 'working', apply changes to the copy, then compute the effective diff again, but it could also be too costly" - containerConflicts do: - [:each | - each resolution squotHasChanges ifTrue: - [diffs addDiff: each resolution - forObjectNamed: (self keyOf: each resolution object)]]. - containerModifications do: - [:each | - each squotHasChanges ifTrue: - [diffs addDiff: each - forObjectNamed: (self keyOf: each object)]]. - elementMerges do: - [:each | | diff | - diff := each resolvedPatch. - diff squotHasChanges ifTrue: - [diffs addDiff: diff forObjectNamed: (self keyOf: each object)]]. - self assert: (base isNil or: [base startName isNil or: [base startName = working startName and: [working startName = incoming startName]]]) description: 'Object graph editions must start with the same object unless there is an addition conflict'. - diffs startObjectName: working startName. - diffs right: (diffs squotApplyTo: working). - ^ diffs \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMerge.class/instance/resetChoice.st b/src/Squot.package/SquotObjectGraphMerge.class/instance/resetChoice.st deleted file mode 100644 index 632f00a55..000000000 --- a/src/Squot.package/SquotObjectGraphMerge.class/instance/resetChoice.st +++ /dev/null @@ -1,4 +0,0 @@ -merging -resetChoice - containerConflicts do: [:each | each resetChoice]. - elementMerges do: [:each | each resetChoice]. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMerge.class/instance/show.nextAfter..st b/src/Squot.package/SquotObjectGraphMerge.class/instance/show.nextAfter..st deleted file mode 100644 index 79fe896ff..000000000 --- a/src/Squot.package/SquotObjectGraphMerge.class/instance/show.nextAfter..st +++ /dev/null @@ -1,26 +0,0 @@ -enumerating -show: aGraphWalk nextAfter: aTriple - "Queue all objects reachable from the objects in aTriple in the graph walk." - | workingObject incomingObject baseObject | - workingObject := aTriple first. - incomingObject := aTriple second. - baseObject := aTriple third. - (workingObject ifNil: [#()] ifNotNil: [workingObject squotOutgoingReferences]) do: - [:each | - aGraphWalk - add: {each value. - each value sameIn: incoming asIn: working ifAbsent: []. - each value sameIn: base asIn: working ifAbsent: []} - reachedVia: each]. - (incomingObject ifNil: [#()] ifNotNil: [incomingObject squotOutgoingReferences]) do: - [:each | - aGraphWalk add: {each value sameIn: working asIn: incoming ifAbsent: []. - each value. - each value sameIn: base asIn: incoming ifAbsent: []} - reachedVia: each]. - (baseObject ifNil: [#()] ifNotNil: [baseObject squotOutgoingReferences]) do: - [:each | - aGraphWalk add: {each value sameIn: working asIn: base ifAbsent: []. - each value sameIn: incoming asIn: base ifAbsent: []. - each value} - reachedVia: each]. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMerge.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotObjectGraphMerge.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index 9df3bb2fe..000000000 --- a/src/Squot.package/SquotObjectGraphMerge.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,18 +0,0 @@ -*Squot-Tools -squotChangeAsStringOrText - | text | - text := WriteStream on: (Text new: 30). - ({{containerConflicts. 'Conflicts:'}. - {containerModifications. 'Modifications:'}. - {elementMerges. 'Merges:'}} - select: [:eachPair | eachPair first notEmpty]) - do: [:eachPair | - text nextPutAll: (eachPair second asText addAttribute: TextEmphasis italic); - cr; cr. - eachPair first do: - [:each | - text nextPutAll: - (each squotChangeAsStringOrText asText addAttribute: (TextIndent amount: 1)); - cr]] - separatedBy: [text cr]. - ^ text contents \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMerge.class/instance/working..st b/src/Squot.package/SquotObjectGraphMerge.class/instance/working..st deleted file mode 100644 index 7fb4c00d3..000000000 --- a/src/Squot.package/SquotObjectGraphMerge.class/instance/working..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -working: aGraph - super working: aGraph. - diffs left: aGraph. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMerge.class/methodProperties.json b/src/Squot.package/SquotObjectGraphMerge.class/methodProperties.json deleted file mode 100644 index 9f28cb4ba..000000000 --- a/src/Squot.package/SquotObjectGraphMerge.class/methodProperties.json +++ /dev/null @@ -1,24 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "addConflict:" : "jr 7/30/2019 01:25", - "asSquotHierarchicalDiff" : "jr 7/17/2021 02:26", - "chooseIncoming" : "jr 8/14/2019 20:31", - "chooseWorking" : "jr 8/14/2019 21:36", - "computeDifferences" : "jr 12/21/2020 01:11", - "diffs" : "jr 7/30/2019 00:36", - "initialize" : "jr 8/3/2019 21:00", - "initializeSquotDiffNodes:with:" : "jr 11/1/2020 18:46", - "keyOf:ifAbsent:" : "jr 8/4/2019 00:18", - "mergeAt:" : "jr 9/23/2019 22:13", - "mergeObject:with:basedOn:" : "jr 6/28/2022 23:43", - "mergeOfStartObject" : "jr 12/24/2020 00:24", - "mergeStartReferencesToStart:" : "jr 1/13/2022 22:07", - "modifications" : "jr 7/30/2019 01:25", - "newSquotDiffNodes" : "jr 11/1/2020 18:44", - "privateResolvedPatch" : "jr 1/9/2022 20:59", - "resetChoice" : "jr 8/14/2019 21:36", - "show:nextAfter:" : "jr 12/21/2020 01:10", - "squotChangeAsStringOrText" : "jr 11/1/2020 20:19", - "working:" : "jr 9/23/2019 22:19" } } diff --git a/src/Squot.package/SquotObjectGraphMerge.class/properties.json b/src/Squot.package/SquotObjectGraphMerge.class/properties.json deleted file mode 100644 index 362b838db..000000000 --- a/src/Squot.package/SquotObjectGraphMerge.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Merging", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 20:53", - "instvars" : [ - "diffs" ], - "name" : "SquotObjectGraphMerge", - "pools" : [ - ], - "super" : "SquotAbstractCollectionMerge", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectGraphMergeTest.class/README.md b/src/Squot.package/SquotObjectGraphMergeTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotObjectGraphMergeTest.class/instance/testResolvedPatchHasStates.st b/src/Squot.package/SquotObjectGraphMergeTest.class/instance/testResolvedPatchHasStates.st deleted file mode 100644 index e1a047ddd..000000000 --- a/src/Squot.package/SquotObjectGraphMergeTest.class/instance/testResolvedPatchHasStates.st +++ /dev/null @@ -1,22 +0,0 @@ -tests -testResolvedPatchHasStates - | baseGraph baseObject capturer incomingGraph incomingObject merge objectRegistry patch workingGraph workingObject | - baseObject := ValueHolder new contents: 1. - workingObject := ValueHolder new contents: 2. - incomingObject := ValueHolder new contents: 3. - objectRegistry := SquotObjectRegistry new. - (capturer := SquotObjectCapturer new) registry: objectRegistry. - baseGraph := capturer captureGraph: baseObject. - objectRegistry - assign: (objectRegistry nameOf: baseObject) to: workingObject; - assign: (objectRegistry nameOf: baseObject) to: incomingObject. - workingGraph := capturer captureGraph: workingObject. - incomingGraph := capturer captureGraph: incomingObject. - merge := SquotObjectGraphMerge into: workingGraph merge: incomingGraph basedOn: baseGraph. - self assert: merge base == baseGraph; - assert: merge working == workingGraph; - assert: merge incoming == incomingGraph. - ((merge mergeAt: (objectRegistry nameOf: baseObject)) conflictAt: 'contents') chooseIncoming. - patch := merge resolvedPatch. - self assert: patch left == workingGraph; - assert: patch right = incomingGraph. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMergeTest.class/methodProperties.json b/src/Squot.package/SquotObjectGraphMergeTest.class/methodProperties.json deleted file mode 100644 index 9c7c0629f..000000000 --- a/src/Squot.package/SquotObjectGraphMergeTest.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testResolvedPatchHasStates" : "jr 9/23/2019 22:05" } } diff --git a/src/Squot.package/SquotObjectGraphMergeTest.class/properties.json b/src/Squot.package/SquotObjectGraphMergeTest.class/properties.json deleted file mode 100644 index 53436bd70..000000000 --- a/src/Squot.package/SquotObjectGraphMergeTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Merging", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotObjectGraphMergeTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectGraphMirror.class/README.md b/src/Squot.package/SquotObjectGraphMirror.class/README.md deleted file mode 100644 index e57856e7e..000000000 --- a/src/Squot.package/SquotObjectGraphMirror.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A mirror that reflects a SquotShadowGraph or a SquotObjectGraphDiff, allowing the lookup of mirrors for objects in a graph. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMirror.class/class/initialize.st b/src/Squot.package/SquotObjectGraphMirror.class/class/initialize.st deleted file mode 100644 index e694797a0..000000000 --- a/src/Squot.package/SquotObjectGraphMirror.class/class/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -class initialization -initialize - "SquotObjectGraphMirror initialize." - Mirrors := WeakIdentityKeyDictionary new. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMirror.class/instance/defaultMirrorOf..st b/src/Squot.package/SquotObjectGraphMirror.class/instance/defaultMirrorOf..st deleted file mode 100644 index 15f2f95f0..000000000 --- a/src/Squot.package/SquotObjectGraphMirror.class/instance/defaultMirrorOf..st +++ /dev/null @@ -1,4 +0,0 @@ -private -defaultMirrorOf: anObject - "When I cannot determine the mirror to use for anObject by following references from objects with known mirrors, use a default mirror for the kind of anObject." - ^ anObject class squotMirror \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMirror.class/instance/mirrorOf.reachedVia.from..st b/src/Squot.package/SquotObjectGraphMirror.class/instance/mirrorOf.reachedVia.from..st deleted file mode 100644 index 81af63556..000000000 --- a/src/Squot.package/SquotObjectGraphMirror.class/instance/mirrorOf.reachedVia.from..st +++ /dev/null @@ -1,15 +0,0 @@ -reflection -mirrorOf: anObject reachedVia: aReference from: aGraphDiffOrGraph - "Answer the mirror collected from traversing the patched graph of the graph diff or the live graph to which the difff is applied. aReference will be a pseudo-reference made from an object diff in the graph diff's list, and referrerObject will be the patched shadow graph or the object graph being patched." - | notFound | - Mirrors finalizeValues. - ^ [(Mirrors at: aGraphDiffOrGraph ifAbsentPut: [IdentityDictionary new]) - at: anObject - ifAbsent: [(self search: aGraphDiffOrGraph for: anObject) - ifNil: [(notFound := Warning new messageText: 'Object not found in graph') signal. - "Assume that it is the new object from a replacement, or that it is an old object that has to be removed." - self defaultMirrorOf: anObject]]] - on: Warning do: - [:w | (w == notFound and: [aReference objectDiff class = SquotObjectReplacement or: [aReference objectDiff class = SquotObjectRemoval]]) - ifTrue: [w resume] - ifFalse: [w pass]] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMirror.class/instance/referencesFrom..st b/src/Squot.package/SquotObjectGraphMirror.class/instance/referencesFrom..st deleted file mode 100644 index 63d4cd4b0..000000000 --- a/src/Squot.package/SquotObjectGraphMirror.class/instance/referencesFrom..st +++ /dev/null @@ -1,3 +0,0 @@ -enumerating -referencesFrom: anObjectGraph - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMirror.class/instance/reflectGraphElementWithName.in..st b/src/Squot.package/SquotObjectGraphMirror.class/instance/reflectGraphElementWithName.in..st deleted file mode 100644 index 427780067..000000000 --- a/src/Squot.package/SquotObjectGraphMirror.class/instance/reflectGraphElementWithName.in..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflectGraphElementWithName: name in: aGraph - ^ aGraph objectNamed: name \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMirror.class/instance/search.for..st b/src/Squot.package/SquotObjectGraphMirror.class/instance/search.for..st deleted file mode 100644 index 056dc067b..000000000 --- a/src/Squot.package/SquotObjectGraphMirror.class/instance/search.for..st +++ /dev/null @@ -1,23 +0,0 @@ -private -search: aGraphDiffOrGraph for: anObject - | start walk mirrors | - start := aGraphDiffOrGraph roots collect: [:each | each undecorated]. - walk := SquotGraphWalk startingFrom: (start first -> (self defaultMirrorOf: start first)). - walk doNotTrackReferrers; useBreadthFirstTraversal. - start allButFirstDo: [:each | walk add: each -> (self defaultMirrorOf: each) path: #()]. - start do: [:each | walk checkPathsTo: each ifMultiple: []]. - mirrors := Mirrors at: aGraphDiffOrGraph. - "Find correct mirrors by searching the graph from the start." - [walk atEnd] whileFalse: - [| next searchObject searchMirror | next := walk next. - searchObject := next key. searchMirror := next value. - mirrors at: searchObject put: searchMirror. - searchObject == anObject ifTrue: [^ searchMirror]. - (searchMirror referencesFrom: searchObject) do: - [:each | | value valueMirror skip | - value := (each reflect: searchObject in: searchMirror) undecorated. - valueMirror := searchMirror mirrorOf: value reachedVia: each from: searchObject. - walk checkPathsTo: value ifMultiple: [skip := true]. - skip == true ifFalse: - [walk add: value -> valueMirror reachedVia: each]]]. - ^ mirrors at: anObject ifAbsent: [] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphMirror.class/methodProperties.json b/src/Squot.package/SquotObjectGraphMirror.class/methodProperties.json deleted file mode 100644 index 5349a3cf3..000000000 --- a/src/Squot.package/SquotObjectGraphMirror.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - "initialize" : "jr 6/27/2021 23:08" }, - "instance" : { - "defaultMirrorOf:" : "jr 7/4/2021 19:40", - "mirrorOf:reachedVia:from:" : "jr 7/17/2021 21:11", - "referencesFrom:" : "jr 6/27/2021 22:20", - "reflectGraphElementWithName:in:" : "jr 9/10/2021 22:09", - "search:for:" : "jr 7/4/2021 19:41" } } diff --git a/src/Squot.package/SquotObjectGraphMirror.class/properties.json b/src/Squot.package/SquotObjectGraphMirror.class/properties.json deleted file mode 100644 index 269fce85f..000000000 --- a/src/Squot.package/SquotObjectGraphMirror.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Diffs", - "classinstvars" : [ - ], - "classvars" : [ - "Mirrors" ], - "commentStamp" : "jr 6/27/2021 22:23", - "instvars" : [ - ], - "name" : "SquotObjectGraphMirror", - "pools" : [ - ], - "super" : "SquotGraphMirror", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectGraphReference.class/README.md b/src/Squot.package/SquotObjectGraphReference.class/README.md deleted file mode 100644 index 70b663461..000000000 --- a/src/Squot.package/SquotObjectGraphReference.class/README.md +++ /dev/null @@ -1 +0,0 @@ -Pseudo-reference derived from a SquotObjectGraphDiff, referring to the patched version of an object in the graph. I can look up a shadow in a graph by name, or add a new shadow under that name to a graph. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphReference.class/class/diff.objectName..st b/src/Squot.package/SquotObjectGraphReference.class/class/diff.objectName..st deleted file mode 100644 index 2c330b1ba..000000000 --- a/src/Squot.package/SquotObjectGraphReference.class/class/diff.objectName..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -diff: aDiff objectName: name - ^ self new - setDiff: aDiff objectName: name; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphReference.class/instance/newNameFragment.st b/src/Squot.package/SquotObjectGraphReference.class/instance/newNameFragment.st deleted file mode 100644 index ff0112382..000000000 --- a/src/Squot.package/SquotObjectGraphReference.class/instance/newNameFragment.st +++ /dev/null @@ -1,5 +0,0 @@ -capturing -newNameFragment - "Answer a String to put into the non-identifying part of an object name." - - self shouldBeImplemented. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphReference.class/instance/objectDiff..st b/src/Squot.package/SquotObjectGraphReference.class/instance/objectDiff..st deleted file mode 100644 index 610885c80..000000000 --- a/src/Squot.package/SquotObjectGraphReference.class/instance/objectDiff..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -objectDiff: anObject - objectDiff := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphReference.class/instance/objectDiff.st b/src/Squot.package/SquotObjectGraphReference.class/instance/objectDiff.st deleted file mode 100644 index a782ca00b..000000000 --- a/src/Squot.package/SquotObjectGraphReference.class/instance/objectDiff.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -objectDiff - ^ objectDiff \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphReference.class/instance/objectName..st b/src/Squot.package/SquotObjectGraphReference.class/instance/objectName..st deleted file mode 100644 index 0807f1ba1..000000000 --- a/src/Squot.package/SquotObjectGraphReference.class/instance/objectName..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -objectName: anObject - objectName := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphReference.class/instance/objectName.st b/src/Squot.package/SquotObjectGraphReference.class/instance/objectName.st deleted file mode 100644 index c207b9622..000000000 --- a/src/Squot.package/SquotObjectGraphReference.class/instance/objectName.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -objectName - ^ objectName \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphReference.class/instance/reflect.in..st b/src/Squot.package/SquotObjectGraphReference.class/instance/reflect.in..st deleted file mode 100644 index 7725ac37b..000000000 --- a/src/Squot.package/SquotObjectGraphReference.class/instance/reflect.in..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflect: aGraph in: aMirror - ^ aGraph shadowNamed: objectName \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphReference.class/instance/reflect.in.put..st b/src/Squot.package/SquotObjectGraphReference.class/instance/reflect.in.put..st deleted file mode 100644 index 348fc7364..000000000 --- a/src/Squot.package/SquotObjectGraphReference.class/instance/reflect.in.put..st +++ /dev/null @@ -1,9 +0,0 @@ -reflection -reflect: aGraph in: aMirror put: newValue - "Just register the object." - | object | - object := aGraph objectNamed: objectName ifAbsent: []. - object - ifNil: [aGraph assign: objectName to: newValue] - ifNotNil: [self assert: object == newValue]. - ^ newValue \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphReference.class/instance/setDiff.objectName..st b/src/Squot.package/SquotObjectGraphReference.class/instance/setDiff.objectName..st deleted file mode 100644 index 2eeac2c2f..000000000 --- a/src/Squot.package/SquotObjectGraphReference.class/instance/setDiff.objectName..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -setDiff: aDiff objectName: name - objectDiff := aDiff. - objectName := name. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectGraphReference.class/methodProperties.json b/src/Squot.package/SquotObjectGraphReference.class/methodProperties.json deleted file mode 100644 index 3d9bf2ef2..000000000 --- a/src/Squot.package/SquotObjectGraphReference.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - "diff:objectName:" : "jr 7/18/2021 16:24" }, - "instance" : { - "newNameFragment" : "jr 6/20/2021 17:16", - "objectDiff" : "jr 6/20/2021 17:16", - "objectDiff:" : "jr 6/20/2021 17:16", - "objectName" : "jr 6/20/2021 18:35", - "objectName:" : "jr 6/20/2021 18:35", - "reflect:in:" : "jr 6/20/2021 18:38", - "reflect:in:put:" : "jr 6/20/2021 19:03", - "setDiff:objectName:" : "jr 7/18/2021 16:24" } } diff --git a/src/Squot.package/SquotObjectGraphReference.class/properties.json b/src/Squot.package/SquotObjectGraphReference.class/properties.json deleted file mode 100644 index fe959918e..000000000 --- a/src/Squot.package/SquotObjectGraphReference.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-Diffs-Internal", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 6/27/2021 22:42", - "instvars" : [ - "objectDiff", - "objectName" ], - "name" : "SquotObjectGraphReference", - "pools" : [ - ], - "super" : "SquotReference", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectMaterializeTest.class/README.md b/src/Squot.package/SquotObjectMaterializeTest.class/README.md deleted file mode 100644 index 282bc51ed..000000000 --- a/src/Squot.package/SquotObjectMaterializeTest.class/README.md +++ /dev/null @@ -1 +0,0 @@ -Tests that objects can be rematerialized from shadows correctly. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMaterializeTest.class/instance/captureAndRestore..st b/src/Squot.package/SquotObjectMaterializeTest.class/instance/captureAndRestore..st deleted file mode 100644 index b809f9adf..000000000 --- a/src/Squot.package/SquotObjectMaterializeTest.class/instance/captureAndRestore..st +++ /dev/null @@ -1,6 +0,0 @@ -tests -captureAndRestore: anObject - | graph restored | - graph := capturer captureGraph: anObject. - restored := materializer rematerializeGraph: graph asShadowGraph. - ^ restored \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMaterializeTest.class/instance/captureInValueHolderThenRestoreAndCompare..st b/src/Squot.package/SquotObjectMaterializeTest.class/instance/captureInValueHolderThenRestoreAndCompare..st deleted file mode 100644 index 4d86865b7..000000000 --- a/src/Squot.package/SquotObjectMaterializeTest.class/instance/captureInValueHolderThenRestoreAndCompare..st +++ /dev/null @@ -1,8 +0,0 @@ -tests -captureInValueHolderThenRestoreAndCompare: anObject - | holder graph restored | - holder := ValueHolder new contents: anObject; yourself. - graph := capturer captureGraph: holder. - restored := materializer rematerializeGraph: graph asShadowGraph. - self assert: anObject equals: restored contents. - ^ restored \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMaterializeTest.class/instance/captureRestoreAndCompare..st b/src/Squot.package/SquotObjectMaterializeTest.class/instance/captureRestoreAndCompare..st deleted file mode 100644 index f5a838daa..000000000 --- a/src/Squot.package/SquotObjectMaterializeTest.class/instance/captureRestoreAndCompare..st +++ /dev/null @@ -1,7 +0,0 @@ -tests -captureRestoreAndCompare: anObject - | graph restored | - graph := capturer captureGraph: anObject. - restored := materializer rematerializeGraph: graph asShadowGraph. - self assert: anObject equals: restored. - ^ restored \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMaterializeTest.class/instance/setUp.st b/src/Squot.package/SquotObjectMaterializeTest.class/instance/setUp.st deleted file mode 100644 index b6e4caf06..000000000 --- a/src/Squot.package/SquotObjectMaterializeTest.class/instance/setUp.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -setUp - objectRegistry := SquotObjectRegistry new. - capturer := SquotObjectCapturer new. - capturer registry: objectRegistry. - materializer := SquotShadowMaterializer new. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testArrayOfIntegers.st b/src/Squot.package/SquotObjectMaterializeTest.class/instance/testArrayOfIntegers.st deleted file mode 100644 index cd12f6981..000000000 --- a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testArrayOfIntegers.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testArrayOfIntegers - self captureRestoreAndCompare: #(1 2 3) \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testBooleans.st b/src/Squot.package/SquotObjectMaterializeTest.class/instance/testBooleans.st deleted file mode 100644 index 6f7458d02..000000000 --- a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testBooleans.st +++ /dev/null @@ -1,4 +0,0 @@ -tests -testBooleans - self captureInValueHolderThenRestoreAndCompare: true; - captureInValueHolderThenRestoreAndCompare: false. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testCyclicReferences.st b/src/Squot.package/SquotObjectMaterializeTest.class/instance/testCyclicReferences.st deleted file mode 100644 index 93fc11c68..000000000 --- a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testCyclicReferences.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testCyclicReferences - | subject restored | - subject := Array new: 1. - subject at: 1 put: subject. - restored := self captureAndRestore: subject. - self assert: (restored at: 1) == restored. - self assert: (capturer objectGraph nameOf: subject) - equals: (materializer objectGraph nameOf: restored). \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testCyclicReferences2.st b/src/Squot.package/SquotObjectMaterializeTest.class/instance/testCyclicReferences2.st deleted file mode 100644 index e06441d3f..000000000 --- a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testCyclicReferences2.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testCyclicReferences2 - | a b restored | - a := SquotObjectForDiffTests new var1: 1; var2: nil. - b := SquotObjectForDiffTests new var1: 2; var2: a. - a var2: b. - restored := self captureAndRestore: a. - self assert: restored var2 var2 == restored. - self assert: (capturer objectGraph nameOf: a) - equals: (materializer objectGraph nameOf: restored). - self assert: (capturer objectGraph nameOf: a var2) - equals: (materializer objectGraph nameOf: restored var2). \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testDictionariesWithComplexKeys.st b/src/Squot.package/SquotObjectMaterializeTest.class/instance/testDictionariesWithComplexKeys.st deleted file mode 100644 index 75f868cfe..000000000 --- a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testDictionariesWithComplexKeys.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testDictionariesWithComplexKeys - | key1 key2 dict | - key1 := SquotObjectForDiffTests new var1: 1; var2: 2. - key2 := SquotObjectForDiffTests new var1: nil; var2: key1. - dict := Dictionary newFrom: {key1 -> 'value'. key2 -> key1}. - self captureRestoreAndCompare: dict. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testDictionariesWithSharedAssociations.st b/src/Squot.package/SquotObjectMaterializeTest.class/instance/testDictionariesWithSharedAssociations.st deleted file mode 100644 index 8b1fbc855..000000000 --- a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testDictionariesWithSharedAssociations.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testDictionariesWithSharedAssociations - | bothDicts dict1 dict2 restoredDicts | - dict1 := Dictionary newFrom: {#a -> 1. #b -> 2}. - dict2 := Dictionary new add: (dict1 associationAt: #a); yourself. - bothDicts := {dict1. dict2}. - restoredDicts := self captureRestoreAndCompare: bothDicts. - self assert: (restoredDicts second associationAt: #a) == (restoredDicts first associationAt: #a). \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testDictionary.st b/src/Squot.package/SquotObjectMaterializeTest.class/instance/testDictionary.st deleted file mode 100644 index 0668e18ee..000000000 --- a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testDictionary.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testDictionary - | restored | - self captureRestoreAndCompare: (Dictionary newFrom: {1 -> 2. #foo -> #bar. 'bar' -> nil}). - restored := Dictionary newFrom: {Object new -> Object new}. - self assert: restored associations size = 1. - self assert: restored associations first key class == Object. - self assert: restored associations first value class == Object. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testEmptyObject.st b/src/Squot.package/SquotObjectMaterializeTest.class/instance/testEmptyObject.st deleted file mode 100644 index c2d6c2ed3..000000000 --- a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testEmptyObject.st +++ /dev/null @@ -1,5 +0,0 @@ -tests -testEmptyObject - | restored | - restored := self captureAndRestore: Object new. - self assert: restored class == Object. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testIdentityDictionaries.st b/src/Squot.package/SquotObjectMaterializeTest.class/instance/testIdentityDictionaries.st deleted file mode 100644 index 773520505..000000000 --- a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testIdentityDictionaries.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testIdentityDictionaries - | dict restored | - dict := IdentityDictionary newFromPairs: {{nil}. {nil}. {nil}. {1}}. - restored := self captureAndRestore: dict. - self assert: (restored includesAllOf: #((nil) (1))); - assert: (restored keys allSatisfy: [:each | each = #(nil)]). \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testIdentityReplacedObject.st b/src/Squot.package/SquotObjectMaterializeTest.class/instance/testIdentityReplacedObject.st deleted file mode 100644 index 215421e3a..000000000 --- a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testIdentityReplacedObject.st +++ /dev/null @@ -1,5 +0,0 @@ -tests -testIdentityReplacedObject - | binding | - binding := Smalltalk globals bindingOf: #Smalltalk. - self captureRestoreAndCompare: binding. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testIdentitySet.st b/src/Squot.package/SquotObjectMaterializeTest.class/instance/testIdentitySet.st deleted file mode 100644 index 57d6702a4..000000000 --- a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testIdentitySet.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testIdentitySet - | set restoredSet | - set := IdentitySet with: {nil} with: {nil}. - set add: set. "This would not work with regular Sets." - restoredSet := self captureAndRestore: set. - self assert: 2 equals: (restoredSet count: [:each | each = #(nil)]); - assert: (restoredSet includes: restoredSet). \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testNil.st b/src/Squot.package/SquotObjectMaterializeTest.class/instance/testNil.st deleted file mode 100644 index 5640f6fad..000000000 --- a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testNil.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testNil - self captureInValueHolderThenRestoreAndCompare: nil \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testPoint.st b/src/Squot.package/SquotObjectMaterializeTest.class/instance/testPoint.st deleted file mode 100644 index dd4527c1c..000000000 --- a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testPoint.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testPoint - self captureRestoreAndCompare: 1@2. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testRectangle.st b/src/Squot.package/SquotObjectMaterializeTest.class/instance/testRectangle.st deleted file mode 100644 index faabbff04..000000000 --- a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testRectangle.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testRectangle - self captureRestoreAndCompare: (1@2 corner: 3@4). \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testReplacedObject2.st b/src/Squot.package/SquotObjectMaterializeTest.class/instance/testReplacedObject2.st deleted file mode 100644 index bc9c5ec25..000000000 --- a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testReplacedObject2.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testReplacedObject2 - "Capture a StringMorph whose font will be proxied." - | stringMorph restored | - stringMorph := StringMorph contents: 'foo' font: TextStyle defaultFont. - restored := self captureAndRestore: stringMorph. - self assert: stringMorph font == restored font. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testSet.st b/src/Squot.package/SquotObjectMaterializeTest.class/instance/testSet.st deleted file mode 100644 index 0ebbfe546..000000000 --- a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testSet.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testSet - | set stringHolder restoredSet restoredStringHolder | - set := Set newFrom: {1. 2. stringHolder := StringHolder new contents: 'foo'}. - restoredSet := self captureAndRestore: set. - self assert: (restoredSet includesAllOf: #(1 2)). - restoredStringHolder := restoredSet detect: [:each | each class == StringHolder] - ifNone: [self fail: 'StringHolder not rematerialized']. - self assert: 'foo' equals: restoredStringHolder contents. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testSetHashing.st b/src/Squot.package/SquotObjectMaterializeTest.class/instance/testSetHashing.st deleted file mode 100644 index 5a7a2e82a..000000000 --- a/src/Squot.package/SquotObjectMaterializeTest.class/instance/testSetHashing.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testSetHashing - "Sets are rehashed when they are reactivated, but this only works if they are not reactivated before the hashes of the materialized elements have settled. An array is first rematerialized with all elements nil, later the elements are filled in; this changes the hash of the array. If the array is put into the materialized Set too soon, there will be hash collisions and possibly distinct elements will be lost." - | set1 set2 restoredSet1 restoredSet2 | - set1 := Set with: {1} with: {nil}. - set2 := Set with: {nil} with: {1}. - restoredSet1 := self captureAndRestore: set1. - restoredSet2 := self captureAndRestore: set2. - self assert: (restoredSet1 includesAllOf: #((nil) (1))); - assert: (restoredSet2 includesAllOf: #((nil) (1))). \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMaterializeTest.class/methodProperties.json b/src/Squot.package/SquotObjectMaterializeTest.class/methodProperties.json deleted file mode 100644 index d8fec91cc..000000000 --- a/src/Squot.package/SquotObjectMaterializeTest.class/methodProperties.json +++ /dev/null @@ -1,25 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "captureAndRestore:" : "jr 9/21/2019 20:24", - "captureInValueHolderThenRestoreAndCompare:" : "jr 9/21/2019 20:23", - "captureRestoreAndCompare:" : "jr 9/21/2019 20:20", - "setUp" : "jr 7/30/2017 22:04", - "testArrayOfIntegers" : "jr 9/21/2019 20:20", - "testBooleans" : "jr 9/21/2019 20:23", - "testCyclicReferences" : "jr 9/21/2019 20:24", - "testCyclicReferences2" : "jr 9/21/2019 20:24", - "testDictionariesWithComplexKeys" : "jr 9/21/2019 20:20", - "testDictionariesWithSharedAssociations" : "jr 9/21/2019 20:20", - "testDictionary" : "jr 9/21/2019 20:20", - "testEmptyObject" : "jr 9/21/2019 20:24", - "testIdentityDictionaries" : "jr 4/17/2021 21:51", - "testIdentityReplacedObject" : "jr 9/21/2019 20:20", - "testIdentitySet" : "jr 4/17/2021 21:52", - "testNil" : "jr 9/21/2019 20:23", - "testPoint" : "jr 9/21/2019 20:20", - "testRectangle" : "jr 9/21/2019 20:20", - "testReplacedObject2" : "jr 9/21/2019 20:24", - "testSet" : "jr 9/21/2019 20:24", - "testSetHashing" : "jr 4/17/2021 17:26" } } diff --git a/src/Squot.package/SquotObjectMaterializeTest.class/properties.json b/src/Squot.package/SquotObjectMaterializeTest.class/properties.json deleted file mode 100644 index 42b734954..000000000 --- a/src/Squot.package/SquotObjectMaterializeTest.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Tests-Shadows", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 6/24/2017 00:07", - "instvars" : [ - "capturer", - "materializer", - "objectRegistry" ], - "name" : "SquotObjectMaterializeTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectMaterializeWithSharedRegistryTest.class/README.md b/src/Squot.package/SquotObjectMaterializeWithSharedRegistryTest.class/README.md deleted file mode 100644 index a14b326c0..000000000 --- a/src/Squot.package/SquotObjectMaterializeWithSharedRegistryTest.class/README.md +++ /dev/null @@ -1 +0,0 @@ -Tests cases where the materializer should reuse existing resident objects. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMaterializeWithSharedRegistryTest.class/instance/setUp.st b/src/Squot.package/SquotObjectMaterializeWithSharedRegistryTest.class/instance/setUp.st deleted file mode 100644 index f6a459801..000000000 --- a/src/Squot.package/SquotObjectMaterializeWithSharedRegistryTest.class/instance/setUp.st +++ /dev/null @@ -1,7 +0,0 @@ -running -setUp - objectRegistry := SquotObjectRegistry new. - capturer := SquotObjectCapturer new. - capturer registry: objectRegistry. - materializer := SquotShadowMaterializer new. - materializer registry: objectRegistry \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMaterializeWithSharedRegistryTest.class/instance/testSameReferencedInstance.st b/src/Squot.package/SquotObjectMaterializeWithSharedRegistryTest.class/instance/testSameReferencedInstance.st deleted file mode 100644 index cd6a25e0c..000000000 --- a/src/Squot.package/SquotObjectMaterializeWithSharedRegistryTest.class/instance/testSameReferencedInstance.st +++ /dev/null @@ -1,12 +0,0 @@ -testing -testSameReferencedInstance - | array1 array2 restored same shadow1 shadow2 | - same := Object new. - array1 := {same}. - shadow1 := capturer captureGraph: array1. - restored := materializer rematerializeGraph: shadow1 asShadowGraph. - self assert: (restored at: 1) == same. - array2 := {1. same}. - shadow2 := capturer captureGraph: array2. - restored := materializer rematerializeGraph: shadow2. - self assert: (restored at: 2) == same. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMaterializeWithSharedRegistryTest.class/methodProperties.json b/src/Squot.package/SquotObjectMaterializeWithSharedRegistryTest.class/methodProperties.json deleted file mode 100644 index af672aaea..000000000 --- a/src/Squot.package/SquotObjectMaterializeWithSharedRegistryTest.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "setUp" : "jr 7/30/2017 22:04", - "testSameReferencedInstance" : "jr 9/21/2019 20:36" } } diff --git a/src/Squot.package/SquotObjectMaterializeWithSharedRegistryTest.class/properties.json b/src/Squot.package/SquotObjectMaterializeWithSharedRegistryTest.class/properties.json deleted file mode 100644 index cae39549d..000000000 --- a/src/Squot.package/SquotObjectMaterializeWithSharedRegistryTest.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Tests-Shadows", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 7/16/2017 23:29", - "instvars" : [ - "capturer", - "materializer", - "objectRegistry" ], - "name" : "SquotObjectMaterializeWithSharedRegistryTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectMergeMock.class/README.md b/src/Squot.package/SquotObjectMergeMock.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotObjectMergeMock.class/instance/hasChanges..st b/src/Squot.package/SquotObjectMergeMock.class/instance/hasChanges..st deleted file mode 100644 index 41eea73df..000000000 --- a/src/Squot.package/SquotObjectMergeMock.class/instance/hasChanges..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -hasChanges: anObject - - hasChanges := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMergeMock.class/instance/hasChanges.st b/src/Squot.package/SquotObjectMergeMock.class/instance/hasChanges.st deleted file mode 100644 index aa796636f..000000000 --- a/src/Squot.package/SquotObjectMergeMock.class/instance/hasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasChanges - ^ hasConflicts or: [hasChanges] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMergeMock.class/instance/hasConflicts..st b/src/Squot.package/SquotObjectMergeMock.class/instance/hasConflicts..st deleted file mode 100644 index 9be9a44c5..000000000 --- a/src/Squot.package/SquotObjectMergeMock.class/instance/hasConflicts..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -hasConflicts: anObject - - hasConflicts := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMergeMock.class/instance/hasConflicts.st b/src/Squot.package/SquotObjectMergeMock.class/instance/hasConflicts.st deleted file mode 100644 index b8b908be4..000000000 --- a/src/Squot.package/SquotObjectMergeMock.class/instance/hasConflicts.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -hasConflicts - - ^ hasConflicts \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMergeMock.class/instance/object..st b/src/Squot.package/SquotObjectMergeMock.class/instance/object..st deleted file mode 100644 index 3f52f8aee..000000000 --- a/src/Squot.package/SquotObjectMergeMock.class/instance/object..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -object: anObject - - object := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMergeMock.class/instance/object.st b/src/Squot.package/SquotObjectMergeMock.class/instance/object.st deleted file mode 100644 index 320146a3e..000000000 --- a/src/Squot.package/SquotObjectMergeMock.class/instance/object.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -object - - ^ object \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMergeMock.class/methodProperties.json b/src/Squot.package/SquotObjectMergeMock.class/methodProperties.json deleted file mode 100644 index f3c63dec8..000000000 --- a/src/Squot.package/SquotObjectMergeMock.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "hasChanges" : "jr 8/3/2019 21:31", - "hasChanges:" : "jr 8/3/2019 21:31", - "hasConflicts" : "jr 8/3/2019 20:55", - "hasConflicts:" : "jr 8/3/2019 20:55", - "object" : "jr 8/3/2019 20:57", - "object:" : "jr 8/3/2019 20:57" } } diff --git a/src/Squot.package/SquotObjectMergeMock.class/properties.json b/src/Squot.package/SquotObjectMergeMock.class/properties.json deleted file mode 100644 index 050e9ca3a..000000000 --- a/src/Squot.package/SquotObjectMergeMock.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Tests-Merging", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "object", - "hasConflicts", - "hasChanges" ], - "name" : "SquotObjectMergeMock", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectMetadataFile.class/README.md b/src/Squot.package/SquotObjectMetadataFile.class/README.md deleted file mode 100644 index 9122bded0..000000000 --- a/src/Squot.package/SquotObjectMetadataFile.class/README.md +++ /dev/null @@ -1,5 +0,0 @@ -I encapsulate access to the a file containing SquotTrackedObjectMetadata that is relevant to Squot, for example about serialization. - -Instance Variables - metadataFile: - metadata: diff --git a/src/Squot.package/SquotObjectMetadataFile.class/class/forObjectAt..st b/src/Squot.package/SquotObjectMetadataFile.class/class/forObjectAt..st deleted file mode 100644 index 5247afa9d..000000000 --- a/src/Squot.package/SquotObjectMetadataFile.class/class/forObjectAt..st +++ /dev/null @@ -1,7 +0,0 @@ -instance creation -forObjectAt: aFileReference - | metadataFile | - metadataFile := (aFileReference isDirectory - ifTrue: [self referenceToMetadataFileForDirectory: aFileReference] - ifFalse: [self referenceToMetadataFileForFile: aFileReference]). - ^ self on: metadataFile \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMetadataFile.class/class/metadataFileName.st b/src/Squot.package/SquotObjectMetadataFile.class/class/metadataFileName.st deleted file mode 100644 index 591bbc207..000000000 --- a/src/Squot.package/SquotObjectMetadataFile.class/class/metadataFileName.st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -metadataFileName - ^ '.squot-contents' \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMetadataFile.class/class/on..st b/src/Squot.package/SquotObjectMetadataFile.class/class/on..st deleted file mode 100644 index 521708475..000000000 --- a/src/Squot.package/SquotObjectMetadataFile.class/class/on..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -on: aFileReference - ^ self new - initializeWith: aFileReference; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMetadataFile.class/class/referenceToMetadataFileForDirectory..st b/src/Squot.package/SquotObjectMetadataFile.class/class/referenceToMetadataFileForDirectory..st deleted file mode 100644 index 3c6db3799..000000000 --- a/src/Squot.package/SquotObjectMetadataFile.class/class/referenceToMetadataFileForDirectory..st +++ /dev/null @@ -1,5 +0,0 @@ -as yet unclassified -referenceToMetadataFileForDirectory: aDirectory - ^ aDirectory / ({self metadataFileName. '_squot-contents'} - detect: [:each | (aDirectory / each) exists] - ifNone: [self metadataFileName]) \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMetadataFile.class/class/referenceToMetadataFileForFile..st b/src/Squot.package/SquotObjectMetadataFile.class/class/referenceToMetadataFileForFile..st deleted file mode 100644 index 43b4df2d7..000000000 --- a/src/Squot.package/SquotObjectMetadataFile.class/class/referenceToMetadataFileForFile..st +++ /dev/null @@ -1,7 +0,0 @@ -as yet unclassified -referenceToMetadataFileForFile: aFileReference - | undottedBasename | - undottedBasename := aFileReference basename, self metadataFileName. - ^ aFileReference parent / ({'.', undottedBasename. undottedBasename} - detect: [:each | (aFileReference parent / each) isFile] - ifNone: ['.', undottedBasename]) \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMetadataFile.class/instance/applyTo..st b/src/Squot.package/SquotObjectMetadataFile.class/instance/applyTo..st deleted file mode 100644 index d9166cc02..000000000 --- a/src/Squot.package/SquotObjectMetadataFile.class/instance/applyTo..st +++ /dev/null @@ -1,10 +0,0 @@ -reading -applyTo: anArtifact - self isPresent - ifTrue: [anArtifact updateStoreInfo: self metadata] - ifFalse: [SquotNoMetadataFileFound signal - ifNotNil: [:storeInfo | - storeInfo ifEmpty: [^ self errorNotFound: anArtifact path]. - anArtifact updateStoreInfo: storeInfo. - ^ anArtifact storeInfo] - ifNil: [^ self errorNotFound: anArtifact path]] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMetadataFile.class/instance/artifactClass.st b/src/Squot.package/SquotObjectMetadataFile.class/instance/artifactClass.st deleted file mode 100644 index 70fadb772..000000000 --- a/src/Squot.package/SquotObjectMetadataFile.class/instance/artifactClass.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing metadata -artifactClass - ^ self metadata at: #artifactClassName - ifPresent: [:className | Environment current valueOf: className] - ifAbsent: [SquotArtifact] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMetadataFile.class/instance/delete.st b/src/Squot.package/SquotObjectMetadataFile.class/instance/delete.st deleted file mode 100644 index a69ef8358..000000000 --- a/src/Squot.package/SquotObjectMetadataFile.class/instance/delete.st +++ /dev/null @@ -1,3 +0,0 @@ -writing -delete - metadataFile delete. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMetadataFile.class/instance/errorNotFound..st b/src/Squot.package/SquotObjectMetadataFile.class/instance/errorNotFound..st deleted file mode 100644 index 2ba353839..000000000 --- a/src/Squot.package/SquotObjectMetadataFile.class/instance/errorNotFound..st +++ /dev/null @@ -1,3 +0,0 @@ -reading -errorNotFound: path - ^ self error: 'No metadata for ', path, ' found' \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMetadataFile.class/instance/initializeWith..st b/src/Squot.package/SquotObjectMetadataFile.class/instance/initializeWith..st deleted file mode 100644 index 468c3f60e..000000000 --- a/src/Squot.package/SquotObjectMetadataFile.class/instance/initializeWith..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -initializeWith: aFileReference - metadataFile := aFileReference. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMetadataFile.class/instance/isPresent.st b/src/Squot.package/SquotObjectMetadataFile.class/instance/isPresent.st deleted file mode 100644 index 1e432d8c0..000000000 --- a/src/Squot.package/SquotObjectMetadataFile.class/instance/isPresent.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isPresent - ^ metadataFile exists \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMetadataFile.class/instance/metadata.st b/src/Squot.package/SquotObjectMetadataFile.class/instance/metadata.st deleted file mode 100644 index c40647175..000000000 --- a/src/Squot.package/SquotObjectMetadataFile.class/instance/metadata.st +++ /dev/null @@ -1,8 +0,0 @@ -accessing -metadata - ^ metadata ifNil: - [metadata := metadataFile - readStreamDo: [:stream | - (STON reader on: stream; allowComplexMapKeys: true) next - asSquotTrackedObjectMetadata] - ifAbsent: [^ SquotTrackedObjectMetadata new]] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMetadataFile.class/instance/metadataFile.st b/src/Squot.package/SquotObjectMetadataFile.class/instance/metadataFile.st deleted file mode 100644 index 328fc6d74..000000000 --- a/src/Squot.package/SquotObjectMetadataFile.class/instance/metadataFile.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -metadataFile - ^ metadataFile \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMetadataFile.class/instance/objectClassName.st b/src/Squot.package/SquotObjectMetadataFile.class/instance/objectClassName.st deleted file mode 100644 index f72065807..000000000 --- a/src/Squot.package/SquotObjectMetadataFile.class/instance/objectClassName.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing metadata -objectClassName - ^ self metadata at: #objectClassName \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMetadataFile.class/instance/serializerName.st b/src/Squot.package/SquotObjectMetadataFile.class/instance/serializerName.st deleted file mode 100644 index 745a952c8..000000000 --- a/src/Squot.package/SquotObjectMetadataFile.class/instance/serializerName.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing metadata -serializerName - ^ self metadata at: #serializer \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMetadataFile.class/instance/updateFrom..st b/src/Squot.package/SquotObjectMetadataFile.class/instance/updateFrom..st deleted file mode 100644 index 67942e867..000000000 --- a/src/Squot.package/SquotObjectMetadataFile.class/instance/updateFrom..st +++ /dev/null @@ -1,4 +0,0 @@ -writing -updateFrom: aTrackedObjectMetadata - metadata := aTrackedObjectMetadata. - metadataFile writeStreamDo: [:stream | STON squotPut: metadata onStream: stream]. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMetadataFile.class/methodProperties.json b/src/Squot.package/SquotObjectMetadataFile.class/methodProperties.json deleted file mode 100644 index 9fa220a80..000000000 --- a/src/Squot.package/SquotObjectMetadataFile.class/methodProperties.json +++ /dev/null @@ -1,19 +0,0 @@ -{ - "class" : { - "forObjectAt:" : "jr 8/17/2017 18:57", - "metadataFileName" : "jr 4/24/2017 18:23", - "on:" : "jr 1/18/2017 16:01", - "referenceToMetadataFileForDirectory:" : "jr 4/24/2017 18:22", - "referenceToMetadataFileForFile:" : "jr 8/17/2017 19:00" }, - "instance" : { - "applyTo:" : "jr 12/13/2020 22:53", - "artifactClass" : "jr 5/1/2017 00:27", - "delete" : "jr 5/29/2017 15:19", - "errorNotFound:" : "jr 3/6/2019 22:40", - "initializeWith:" : "jr 1/29/2017 22:11", - "isPresent" : "jr 4/13/2017 19:18", - "metadata" : "jr 7/22/2017 17:31", - "metadataFile" : "jr 1/18/2017 16:00", - "objectClassName" : "jr 3/8/2017 16:04", - "serializerName" : "jr 3/8/2017 16:07", - "updateFrom:" : "jr 12/14/2020 22:27" } } diff --git a/src/Squot.package/SquotObjectMetadataFile.class/properties.json b/src/Squot.package/SquotObjectMetadataFile.class/properties.json deleted file mode 100644 index 792912ae0..000000000 --- a/src/Squot.package/SquotObjectMetadataFile.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-FileSystemStore", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 19:24", - "instvars" : [ - "metadataFile", - "metadata" ], - "name" : "SquotObjectMetadataFile", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectMirror.class/README.md b/src/Squot.package/SquotObjectMirror.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotObjectMirror.class/class/class..st b/src/Squot.package/SquotObjectMirror.class/class/class..st deleted file mode 100644 index 9b7d835e6..000000000 --- a/src/Squot.package/SquotObjectMirror.class/class/class..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -class: aClass - ^ self new setClass: aClass; yourself \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMirror.class/instance/^equals.st b/src/Squot.package/SquotObjectMirror.class/instance/^equals.st deleted file mode 100644 index 1ef12b885..000000000 --- a/src/Squot.package/SquotObjectMirror.class/instance/^equals.st +++ /dev/null @@ -1,9 +0,0 @@ -comparing -= anObject - "Answer whether the receiver and anObject represent the same object." - - self == anObject - ifTrue: [^ true]. - self class = anObject class - ifFalse: [^ false]. - ^ self theClass = anObject theClass. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMirror.class/instance/canHaveReferences..st b/src/Squot.package/SquotObjectMirror.class/instance/canHaveReferences..st deleted file mode 100644 index 6f1d20615..000000000 --- a/src/Squot.package/SquotObjectMirror.class/instance/canHaveReferences..st +++ /dev/null @@ -1,9 +0,0 @@ -testing -canHaveReferences: anObject - class isImmediateClass ifTrue: [^ false]. - class = UndefinedObject ifTrue: [^ false]. - class isVariable ifTrue: [^ true]. - (class inheritsFrom: Boolean) ifTrue: [^ false]. - class squotMirror = SquotSystemSingletonMirror ifTrue: [^ false]. - anObject isCollection ifTrue: [^ true]. - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMirror.class/instance/capture.with.ifReplaced..st b/src/Squot.package/SquotObjectMirror.class/instance/capture.with.ifReplaced..st deleted file mode 100644 index 23f8a6ba5..000000000 --- a/src/Squot.package/SquotObjectMirror.class/instance/capture.with.ifReplaced..st +++ /dev/null @@ -1,18 +0,0 @@ -capturing -capture: anObject with: aSquotObjectCapturer ifReplaced: aBlock - "Use aCapturer to answer a conserved form of me that is suitable to be stored in Snapshots." - | newShadow proxy | - proxy := self replacementFor: anObject using: aSquotObjectCapturer. - proxy undecorated == anObject - ifTrue: - [newShadow := self newShadowObject. - aSquotObjectCapturer rememberAsShadowOfCapturedObject: newShadow. - self initializeSnapshot: newShadow of: anObject with: aSquotObjectCapturer] - ifFalse: - [aBlock value: proxy. - newShadow := (self mirrorForReplacement: proxy undecorated) - capture: proxy undecorated - with: aSquotObjectCapturer - ifReplaced: aBlock. - newShadow assumeOriginalClassOf: anObject]. - ^ newShadow \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMirror.class/instance/hash.st b/src/Squot.package/SquotObjectMirror.class/instance/hash.st deleted file mode 100644 index b73dc68bc..000000000 --- a/src/Squot.package/SquotObjectMirror.class/instance/hash.st +++ /dev/null @@ -1,5 +0,0 @@ -comparing -hash - "Answer an integer value that is related to the identity of the receiver." - - ^ self theClass hash. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMirror.class/instance/initializeSnapshot.of.with..st b/src/Squot.package/SquotObjectMirror.class/instance/initializeSnapshot.of.with..st deleted file mode 100644 index f5c3b1a77..000000000 --- a/src/Squot.package/SquotObjectMirror.class/instance/initializeSnapshot.of.with..st +++ /dev/null @@ -1,11 +0,0 @@ -capturing -initializeSnapshot: aSquotObjectShadow of: anObject with: aSquotObjectCapturer - | shadowMirror | - shadowMirror := aSquotObjectShadow class squotMirror. - aSquotObjectShadow setOriginalClass: class capturedClass: (thisContext objectClass: anObject). - shadowMirror - captureReferences: (self referencesFrom: anObject) - from: anObject - reflectedIn: self - into: aSquotObjectShadow - with: aSquotObjectCapturer. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMirror.class/instance/is.comparableTo..st b/src/Squot.package/SquotObjectMirror.class/instance/is.comparableTo..st deleted file mode 100644 index 32d870ce4..000000000 --- a/src/Squot.package/SquotObjectMirror.class/instance/is.comparableTo..st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -is: anObject comparableTo: anotherObject - ^ anObject isMemberOf: anotherObject class \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMirror.class/instance/newDiffFrom.to..st b/src/Squot.package/SquotObjectMirror.class/instance/newDiffFrom.to..st deleted file mode 100644 index 1188f482c..000000000 --- a/src/Squot.package/SquotObjectMirror.class/instance/newDiffFrom.to..st +++ /dev/null @@ -1,5 +0,0 @@ -comparing -newDiffFrom: anObject to: anObject2 - "Do not create diffs from live objects, only from shadows" - self flag: #stub. "Called during the comparison of SquotTrackedObjectMetadata" - ^ nil \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMirror.class/instance/newShadowObject.st b/src/Squot.package/SquotObjectMirror.class/instance/newShadowObject.st deleted file mode 100644 index 9bbe7c053..000000000 --- a/src/Squot.package/SquotObjectMirror.class/instance/newShadowObject.st +++ /dev/null @@ -1,3 +0,0 @@ -capturing -newShadowObject - ^ self shadowFactory new \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMirror.class/instance/printOn..st b/src/Squot.package/SquotObjectMirror.class/instance/printOn..st deleted file mode 100644 index c3fb29e80..000000000 --- a/src/Squot.package/SquotObjectMirror.class/instance/printOn..st +++ /dev/null @@ -1,4 +0,0 @@ -printing -printOn: aStream - super printOn: aStream. - aStream nextPutAll: ' for '; print: class. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMirror.class/instance/referencesFrom..st b/src/Squot.package/SquotObjectMirror.class/instance/referencesFrom..st deleted file mode 100644 index e856135d6..000000000 --- a/src/Squot.package/SquotObjectMirror.class/instance/referencesFrom..st +++ /dev/null @@ -1,6 +0,0 @@ -enumerating -referencesFrom: anObject - | instVars | - instVars := class squotRelevantInstVars copyWithoutAll: (SquotCurrentMetadata value ignoredInstanceVariablesIn: anObject). - ^ (instVars collect: [:each | SquotInstanceVariable named: each]), - ((1 to: (thisContext objectSize: anObject)) collect: [:each | SquotIndexableField index: each]) \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMirror.class/instance/reflectIndexableField.in..st b/src/Squot.package/SquotObjectMirror.class/instance/reflectIndexableField.in..st deleted file mode 100644 index 6265e1e1e..000000000 --- a/src/Squot.package/SquotObjectMirror.class/instance/reflectIndexableField.in..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflectIndexableField: anIndexableField in: anObject - ^ thisContext object: anObject basicAt: anIndexableField index \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMirror.class/instance/reflectIndexableField.in.put..st b/src/Squot.package/SquotObjectMirror.class/instance/reflectIndexableField.in.put..st deleted file mode 100644 index d29c91046..000000000 --- a/src/Squot.package/SquotObjectMirror.class/instance/reflectIndexableField.in.put..st +++ /dev/null @@ -1,4 +0,0 @@ -reflection -reflectIndexableField: anIndexableField in: anObject put: newValue - thisContext object: anObject basicAt: anIndexableField index put: newValue. - ^ newValue \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMirror.class/instance/reflectInstanceVariable.in..st b/src/Squot.package/SquotObjectMirror.class/instance/reflectInstanceVariable.in..st deleted file mode 100644 index a2618c109..000000000 --- a/src/Squot.package/SquotObjectMirror.class/instance/reflectInstanceVariable.in..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflectInstanceVariable: anInstanceVariable in: anObject - ^ thisContext object: anObject instVarAt: (class instVarIndexFor: anInstanceVariable name ifAbsent: [(NotFound object: anInstanceVariable) signal]) \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMirror.class/instance/reflectInstanceVariable.in.put..st b/src/Squot.package/SquotObjectMirror.class/instance/reflectInstanceVariable.in.put..st deleted file mode 100644 index 386bfcf8d..000000000 --- a/src/Squot.package/SquotObjectMirror.class/instance/reflectInstanceVariable.in.put..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflectInstanceVariable: anInstanceVariable in: anObject put: newValue - ^ thisContext object: anObject instVarAt: (class instVarIndexFor: anInstanceVariable name ifAbsent: [(NotFound object: anInstanceVariable) signal]) put: newValue \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMirror.class/instance/setClass..st b/src/Squot.package/SquotObjectMirror.class/instance/setClass..st deleted file mode 100644 index 02b2df0ce..000000000 --- a/src/Squot.package/SquotObjectMirror.class/instance/setClass..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -setClass: anObject - class := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMirror.class/instance/shadowFactory.st b/src/Squot.package/SquotObjectMirror.class/instance/shadowFactory.st deleted file mode 100644 index e551a82c5..000000000 --- a/src/Squot.package/SquotObjectMirror.class/instance/shadowFactory.st +++ /dev/null @@ -1,6 +0,0 @@ -capturing -shadowFactory - "Answer an object factory (e. g. a class) that can create snapshots of my reflected objects." - ^ class isImmediateClass - ifTrue: [SquotPrimitiveValue] - ifFalse: [SquotObjectShadow] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMirror.class/instance/shouldObjectHaveNameAssigned..st b/src/Squot.package/SquotObjectMirror.class/instance/shouldObjectHaveNameAssigned..st deleted file mode 100644 index 437aa90e3..000000000 --- a/src/Squot.package/SquotObjectMirror.class/instance/shouldObjectHaveNameAssigned..st +++ /dev/null @@ -1,4 +0,0 @@ -testing -shouldObjectHaveNameAssigned: anObject - self flag: #stub. - ^ anObject shouldHaveNameAssignedBySquot \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMirror.class/instance/theClass.st b/src/Squot.package/SquotObjectMirror.class/instance/theClass.st deleted file mode 100644 index 34808efa3..000000000 --- a/src/Squot.package/SquotObjectMirror.class/instance/theClass.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -theClass - ^ class \ No newline at end of file diff --git a/src/Squot.package/SquotObjectMirror.class/methodProperties.json b/src/Squot.package/SquotObjectMirror.class/methodProperties.json deleted file mode 100644 index 31bf79c6e..000000000 --- a/src/Squot.package/SquotObjectMirror.class/methodProperties.json +++ /dev/null @@ -1,22 +0,0 @@ -{ - "class" : { - "class:" : "jr 12/15/2020 23:32" }, - "instance" : { - "=" : "jr 12/15/2020 23:33", - "canHaveReferences:" : "jr 7/18/2021 22:28", - "capture:with:ifReplaced:" : "jr 7/17/2021 23:51", - "hash" : "jr 12/15/2020 23:33", - "initializeSnapshot:of:with:" : "jr 4/8/2021 21:23", - "is:comparableTo:" : "jr 7/18/2021 20:13", - "newDiffFrom:to:" : "jr 7/30/2021 20:15", - "newShadowObject" : "jr 4/3/2021 20:59", - "printOn:" : "jr 4/8/2021 19:34", - "referencesFrom:" : "jr 4/8/2021 00:13", - "reflectIndexableField:in:" : "jr 12/16/2020 00:04", - "reflectIndexableField:in:put:" : "jr 12/16/2020 00:07", - "reflectInstanceVariable:in:" : "jr 10/30/2021 16:01", - "reflectInstanceVariable:in:put:" : "jr 10/30/2021 16:01", - "setClass:" : "jr 12/15/2020 23:33", - "shadowFactory" : "jr 1/17/2021 22:48", - "shouldObjectHaveNameAssigned:" : "jr 1/10/2021 21:49", - "theClass" : "jr 12/15/2020 23:33" } } diff --git a/src/Squot.package/SquotObjectMirror.class/properties.json b/src/Squot.package/SquotObjectMirror.class/properties.json deleted file mode 100644 index f4cf128c7..000000000 --- a/src/Squot.package/SquotObjectMirror.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 12/16/2020 01:50", - "instvars" : [ - "class" ], - "name" : "SquotObjectMirror", - "pools" : [ - ], - "super" : "SquotMirror", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectPatchingTest.class/README.md b/src/Squot.package/SquotObjectPatchingTest.class/README.md deleted file mode 100644 index 2448393fe..000000000 --- a/src/Squot.package/SquotObjectPatchingTest.class/README.md +++ /dev/null @@ -1,6 +0,0 @@ -Tests the patching of live objects. - -Instance Variables - capturer: - objectRegistry: - patcher: diff --git a/src/Squot.package/SquotObjectPatchingTest.class/instance/apply.to..st b/src/Squot.package/SquotObjectPatchingTest.class/instance/apply.to..st deleted file mode 100644 index 8813ba0c1..000000000 --- a/src/Squot.package/SquotObjectPatchingTest.class/instance/apply.to..st +++ /dev/null @@ -1,6 +0,0 @@ -testing -apply: anObjectGraphDiff to: anObject - | graph | - graph := capturer captureGraph: anObject. - anObjectGraphDiff squotApplyToLoaded: graph mutableCopy. - ^ anObject \ No newline at end of file diff --git a/src/Squot.package/SquotObjectPatchingTest.class/instance/patch.to..st b/src/Squot.package/SquotObjectPatchingTest.class/instance/patch.to..st deleted file mode 100644 index e3935ba7e..000000000 --- a/src/Squot.package/SquotObjectPatchingTest.class/instance/patch.to..st +++ /dev/null @@ -1,10 +0,0 @@ -testing -patch: original to: target - "Modify original to be like target" - | diff originalGraph targetGraph | - originalGraph := capturer captureGraph: original. - original become: target. - [targetGraph := capturer captureGraph: original] - ensure: [target become: original]. - diff := originalGraph squotDiffAgainst: targetGraph. - ^ (patcher apply: diff toLoadedGraph: originalGraph mutableCopy) startObject \ No newline at end of file diff --git a/src/Squot.package/SquotObjectPatchingTest.class/instance/patchedFrom.to..st b/src/Squot.package/SquotObjectPatchingTest.class/instance/patchedFrom.to..st deleted file mode 100644 index e552809c6..000000000 --- a/src/Squot.package/SquotObjectPatchingTest.class/instance/patchedFrom.to..st +++ /dev/null @@ -1,11 +0,0 @@ -testing -patchedFrom: original to: target - "In contrast to patch:to:, this does not modify the original object, - but creates a patched copy instead." - | diff materializer patched shadowOfOriginal | - shadowOfOriginal := capturer captureGraph: original. - objectRegistry assign: (objectRegistry nameOf: original) to: target. - diff := shadowOfOriginal squotDiffAgainst: (capturer captureGraph: target). - patched := diff squotApplyTo: shadowOfOriginal mutableCopy. - materializer := SquotShadowMaterializer new. - ^ materializedObject := materializer rematerializeGraph: patched \ No newline at end of file diff --git a/src/Squot.package/SquotObjectPatchingTest.class/instance/setUp.st b/src/Squot.package/SquotObjectPatchingTest.class/instance/setUp.st deleted file mode 100644 index a54244d08..000000000 --- a/src/Squot.package/SquotObjectPatchingTest.class/instance/setUp.st +++ /dev/null @@ -1,7 +0,0 @@ -running -setUp - capturer := SquotObjectCapturer new. - patcher := SquotPatcher new. - objectRegistry := SquotObjectRegistry new. - capturer registry: objectRegistry. - patcher registry: objectRegistry. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectPatchingTest.class/instance/testAddObjectThatRefersToExisting.st b/src/Squot.package/SquotObjectPatchingTest.class/instance/testAddObjectThatRefersToExisting.st deleted file mode 100644 index ec0dfc4ca..000000000 --- a/src/Squot.package/SquotObjectPatchingTest.class/instance/testAddObjectThatRefersToExisting.st +++ /dev/null @@ -1,14 +0,0 @@ -testing -testAddObjectThatRefersToExisting - "Existing objects referenced by new objects should not be duplicated just because the - new objects are created new." - | a b existing new diff graphA graphB | - a := Array with: (existing := ValueHolder new) with: nil. - b := Array with: existing with: (new := ValueHolder new contents: existing). - graphA := capturer captureGraph: a. - objectRegistry assign: (objectRegistry nameOf: a) to: b. - graphB := capturer captureGraph: b. - diff := graphA squotDiffAgainst: graphB. - self apply: diff to: a. - self assert: (a at: 1) == (a at: 2) contents; - deny: (a at: 2) == (b at: 2). "Should be a new object" \ No newline at end of file diff --git a/src/Squot.package/SquotObjectPatchingTest.class/instance/testAddObjects.st b/src/Squot.package/SquotObjectPatchingTest.class/instance/testAddObjects.st deleted file mode 100644 index f95a24e21..000000000 --- a/src/Squot.package/SquotObjectPatchingTest.class/instance/testAddObjects.st +++ /dev/null @@ -1,12 +0,0 @@ -testing -testAddObjects - | a b graphA graphB diff | - a := ValueHolder new contents: nil. - b := ValueHolder new contents: (ValueHolder new contents: 1). - graphA := capturer captureGraph: a. - objectRegistry assign: (objectRegistry nameOf: a) to: b. - graphB := capturer captureGraph: b. - diff := graphA squotDiffAgainst: graphB. - self apply: diff to: a. - self assert: a contents class == ValueHolder. - self assert: a contents contents == 1. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectPatchingTest.class/instance/testAddSubgraph.st b/src/Squot.package/SquotObjectPatchingTest.class/instance/testAddSubgraph.st deleted file mode 100644 index 6c7b7f84a..000000000 --- a/src/Squot.package/SquotObjectPatchingTest.class/instance/testAddSubgraph.st +++ /dev/null @@ -1,13 +0,0 @@ -testing -testAddSubgraph - "New objects contained by other new objects must be materialized as well." - | a b diff graphA graphB | - a := ValueHolder new contents: nil. - b := ValueHolder new contents: (ValueHolder new contents: (ValueHolder new contents: 1)). - graphA := capturer captureGraph: a. - objectRegistry assign: (objectRegistry nameOf: a) to: b. - graphB := capturer captureGraph: b. - diff := graphA squotDiffAgainst: graphB. - self apply: diff to: a. - self assert: a contents "first new value holder" contents "second new value holder" contents = 1. - self deny: a contents == b contents. "Should be a new object" \ No newline at end of file diff --git a/src/Squot.package/SquotObjectPatchingTest.class/instance/testAddSubgraph2.st b/src/Squot.package/SquotObjectPatchingTest.class/instance/testAddSubgraph2.st deleted file mode 100644 index 26c4b0e3c..000000000 --- a/src/Squot.package/SquotObjectPatchingTest.class/instance/testAddSubgraph2.st +++ /dev/null @@ -1,14 +0,0 @@ -testing -testAddSubgraph2 - "The subgraph is added to another object than the start object." - | a b graphA graphB diff | - a := ValueHolder new contents: (ValueHolder new contents: nil). - b := ValueHolder new contents: (ValueHolder new contents: (ValueHolder new contents: (ValueHolder new contents: 1))). - graphA := capturer captureGraph: a. - objectRegistry assign: (objectRegistry nameOf: a) to: b; - assign: (objectRegistry nameOf: a contents) to: b contents. - graphB := capturer captureGraph: b. - diff := graphA squotDiffAgainst: graphB. - self apply: diff to: a. - self assert: a contents contents "first new value holder" contents "second new value holder" contents = 1; - deny: a contents contents == b contents contents. "Should be a new object" \ No newline at end of file diff --git a/src/Squot.package/SquotObjectPatchingTest.class/instance/testArrayGrow.st b/src/Squot.package/SquotObjectPatchingTest.class/instance/testArrayGrow.st deleted file mode 100644 index ae5d51f14..000000000 --- a/src/Squot.package/SquotObjectPatchingTest.class/instance/testArrayGrow.st +++ /dev/null @@ -1,6 +0,0 @@ -testing -testArrayGrow - | original target | - original := #(1 2). - target := #(1 2 3). - self assert: target equals: (self patchedFrom: original to: target). \ No newline at end of file diff --git a/src/Squot.package/SquotObjectPatchingTest.class/instance/testArrayShrink.st b/src/Squot.package/SquotObjectPatchingTest.class/instance/testArrayShrink.st deleted file mode 100644 index 662c8d4c0..000000000 --- a/src/Squot.package/SquotObjectPatchingTest.class/instance/testArrayShrink.st +++ /dev/null @@ -1,6 +0,0 @@ -testing -testArrayShrink - | original target | - original := #(1 2 3). - target := #(1 2). - self assert: target equals: (self patchedFrom: original to: target). \ No newline at end of file diff --git a/src/Squot.package/SquotObjectPatchingTest.class/instance/testArraySwap.st b/src/Squot.package/SquotObjectPatchingTest.class/instance/testArraySwap.st deleted file mode 100644 index b1af6bdce..000000000 --- a/src/Squot.package/SquotObjectPatchingTest.class/instance/testArraySwap.st +++ /dev/null @@ -1,11 +0,0 @@ -testing -testArraySwap - | a b original target | - a := 'foo' copy. - b := 'bar' copy. - original := {a. b}. - target := {b. a}. - self patch: original to: target. - self assert: target equals: original. - self assert: original first == b. - self assert: original second == a. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectPatchingTest.class/instance/testCyclicReferences.st b/src/Squot.package/SquotObjectPatchingTest.class/instance/testCyclicReferences.st deleted file mode 100644 index 70bec6669..000000000 --- a/src/Squot.package/SquotObjectPatchingTest.class/instance/testCyclicReferences.st +++ /dev/null @@ -1,20 +0,0 @@ -testing -testCyclicReferences - | array original target diff | - array := Array new: 2. - array - at: 1 put: array; - at: 2 put: 2. - original := capturer captureGraph: array. - array at: 2 put: 3. - target := capturer captureGraph: array. - "Cannot use become: with two different self-referencing arrays because it would mix them. 1->2->1->2->..." - array at: 2 put: 2. - self assert: (original startObject at: 1) == array. - self assert: 2 equals: (original startObject at: 2). - "when" - diff := original squotDiffAgainst: target. - patcher apply: diff toLoadedGraph: original mutableCopy. - "then" - self assert: (array at: 1) == array. - self assert: 3 equals: (array at: 2). \ No newline at end of file diff --git a/src/Squot.package/SquotObjectPatchingTest.class/instance/testCyclicReferences2.st b/src/Squot.package/SquotObjectPatchingTest.class/instance/testCyclicReferences2.st deleted file mode 100644 index 9b213342a..000000000 --- a/src/Squot.package/SquotObjectPatchingTest.class/instance/testCyclicReferences2.st +++ /dev/null @@ -1,30 +0,0 @@ -testing -testCyclicReferences2 - | array1 array2 original target diff | - array1 := Array new: 2. - array2 := Array new: 2. - array1 - at: 1 put: array2; - at: 2 put: 2. - array2 - at: 1 put: 1; - at: 2 put: array1. - original := capturer captureGraph: array1. - array1 at: 2 put: 3. - array2 at: 1 put: 4. - target := capturer captureGraph: array1. - "Cannot use become: with two different self-referencing arrays because it would mix them. 1->2->1->2->..." - array1 at: 2 put: 2. - array2 at: 1 put: 1. - self assert: (original startObject at: 1) == array2; - assert: ((original startObject at: 1) at: 2) == array1. - self assert: 2 equals: (original startObject at: 2); - assert: 1 equals: ((original startObject at: 1) at: 1). - "when" - diff := original squotDiffAgainst: target. - patcher apply: diff toLoadedGraph: original mutableCopy. - "then" - self assert: (array1 at: 1) == array2; - assert: (array2 at: 2) == array1. - self assert: 3 equals: (array1 at: 2); - assert: 4 equals: (array2 at: 1). \ No newline at end of file diff --git a/src/Squot.package/SquotObjectPatchingTest.class/instance/testDictionary.st b/src/Squot.package/SquotObjectPatchingTest.class/instance/testDictionary.st deleted file mode 100644 index 2f3c0db32..000000000 --- a/src/Squot.package/SquotObjectPatchingTest.class/instance/testDictionary.st +++ /dev/null @@ -1,24 +0,0 @@ -testing -testDictionary - | a b sh graphBefore graphAfter diff removedAssociation changedAssociation | - "given" - a := Dictionary newFrom: {1 -> 2. 'foo' -> 'bar'. #bla -> (sh := StringHolder new contents: 'old'; yourself)}. - b := Dictionary newFrom: {1 -> 3. 'fuu' -> (a at: 'foo'). #bla -> (StringHolder new contents: 'new')}. - graphBefore := capturer captureGraph: a. - objectRegistry assign: (objectRegistry nameOf: a) to: b; - assign: (objectRegistry nameOf: (a at: #bla)) to: (b at: #bla). - a keysDo: [:each | (b includesKey: each) ifTrue: [objectRegistry assign: (objectRegistry nameOf: (a associationAt: each)) to: (b associationAt: each)]]. - graphAfter := capturer captureGraph: b. - diff := graphBefore squotDiffAgainst: graphAfter. - changedAssociation := a associationAt: 1. - removedAssociation := a associationAt: 'foo'. - self assert: (b at: 'fuu') == removedAssociation value. - "when" - self apply: diff to: a. - "then" - self assert: 3 equals: (a at: 1). - self deny: (a includesKey: removedAssociation key). - self assert: 'new' equals: (a at: #bla) contents. - self assert: changedAssociation == (a associationAt: 1). - self assert: (a at: 'fuu') == removedAssociation value. - self assert: (a at: #bla) == sh. "Still the same" \ No newline at end of file diff --git a/src/Squot.package/SquotObjectPatchingTest.class/instance/testNestedArray.st b/src/Squot.package/SquotObjectPatchingTest.class/instance/testNestedArray.st deleted file mode 100644 index 8b83177f3..000000000 --- a/src/Squot.package/SquotObjectPatchingTest.class/instance/testNestedArray.st +++ /dev/null @@ -1,7 +0,0 @@ -testing -testNestedArray - | original target instance patched | - instance := 'foo' copy. - original := {1. 2. {instance. 'bar'}. 4}. - target := {1. 2. {instance. 'bla'}. 4}. - self assert: target equals: (patched := self patch: original to: target). \ No newline at end of file diff --git a/src/Squot.package/SquotObjectPatchingTest.class/instance/testRemoveComplexValueObject.st b/src/Squot.package/SquotObjectPatchingTest.class/instance/testRemoveComplexValueObject.st deleted file mode 100644 index 1a93cfef8..000000000 --- a/src/Squot.package/SquotObjectPatchingTest.class/instance/testRemoveComplexValueObject.st +++ /dev/null @@ -1,15 +0,0 @@ -testing -testRemoveComplexValueObject - | a b graphBefore graphAfter diff removedItem | - "given" - a := Set newFrom: {1. (removedItem := {2. {3}. 4})}. - b := Set newFrom: {1}. - graphBefore := capturer captureGraph: a. - objectRegistry assign: (objectRegistry nameOf: a) to: b. - graphAfter := capturer captureGraph: b. - diff := graphBefore squotDiffAgainst: graphAfter. - "when" - self apply: diff to: a. - "then" - self assert: (a includes: 1). - self deny: (a includes: removedItem). \ No newline at end of file diff --git a/src/Squot.package/SquotObjectPatchingTest.class/instance/testReplacedObject.st b/src/Squot.package/SquotObjectPatchingTest.class/instance/testReplacedObject.st deleted file mode 100644 index 73812ce85..000000000 --- a/src/Squot.package/SquotObjectPatchingTest.class/instance/testReplacedObject.st +++ /dev/null @@ -1,13 +0,0 @@ -testing -testReplacedObject - | holder1 holder2 diff graphAfter graphBefore | - holder1 := ValueHolder new contents: (Smalltalk globals bindingOf: #Object); yourself. - holder2 := ValueHolder new contents: (Smalltalk globals bindingOf: #SmallInteger); yourself. - graphBefore := capturer captureGraph: holder1. - objectRegistry assign: (objectRegistry nameOf: holder1) to: holder2. - graphAfter := capturer captureGraph: holder2. - diff := graphBefore squotDiffAgainst: graphAfter. - "when" - self apply: diff to: holder1. - "then" - self assert: holder1 contents == holder2 contents. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectPatchingTest.class/instance/testReplacedObject2.st b/src/Squot.package/SquotObjectPatchingTest.class/instance/testReplacedObject2.st deleted file mode 100644 index be523aa35..000000000 --- a/src/Squot.package/SquotObjectPatchingTest.class/instance/testReplacedObject2.st +++ /dev/null @@ -1,8 +0,0 @@ -testing -testReplacedObject2 - "Patch a StringMorph whose font will be proxied." - | stringMorph1 stringMorph2 | - stringMorph1 := StringMorph contents: 'foo' font: TextStyle defaultFont. - stringMorph2 := StringMorph contents: 'bar' font: TextStyle defaultFont. - self patch: stringMorph1 to: stringMorph2. - self assert: stringMorph1 font == stringMorph2 font. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectPatchingTest.class/instance/testSet.st b/src/Squot.package/SquotObjectPatchingTest.class/instance/testSet.st deleted file mode 100644 index dc74d1611..000000000 --- a/src/Squot.package/SquotObjectPatchingTest.class/instance/testSet.st +++ /dev/null @@ -1,20 +0,0 @@ -testing -testSet - | a b sh graphBefore graphAfter diff removedItem | - "given" - a := Set newFrom: {1. 'foo'. (sh := StringHolder new contents: 'old')}. - b := Set newFrom: {1. 'bar'. StringHolder new contents: 'new'}. - graphBefore := capturer captureGraph: a. - objectRegistry assign: (objectRegistry nameOf: a) to: b; - assign: (objectRegistry nameOf: sh) to: (b detect: [:each | each class = StringHolder]). - graphAfter := capturer captureGraph: b. - diff := graphBefore squotDiffAgainst: graphAfter. - removedItem := a detect: [:each | each = 'foo']. - "when" - self apply: diff to: a. - "then" - self assert: (a includes: 1). - self assert: (a includes: 'bar'). - self deny: (a includes: removedItem). - self assert: 'new' equals: sh contents; - assert: (a includes: sh). \ No newline at end of file diff --git a/src/Squot.package/SquotObjectPatchingTest.class/instance/testTypeChange.st b/src/Squot.package/SquotObjectPatchingTest.class/instance/testTypeChange.st deleted file mode 100644 index aa77c0a37..000000000 --- a/src/Squot.package/SquotObjectPatchingTest.class/instance/testTypeChange.st +++ /dev/null @@ -1,8 +0,0 @@ -testing -testTypeChange - | original target | - original := {1. 'foo'. #bar. nil}. - target := {'foo'. 2. 'bar'. Object new}. - self patch: original to: target. - self assert: target allButLast equals: original allButLast. - self assert: original last class == Object. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectPatchingTest.class/instance/testUnchangedObjectsAreKept.st b/src/Squot.package/SquotObjectPatchingTest.class/instance/testUnchangedObjectsAreKept.st deleted file mode 100644 index f69ed87be..000000000 --- a/src/Squot.package/SquotObjectPatchingTest.class/instance/testUnchangedObjectsAreKept.st +++ /dev/null @@ -1,9 +0,0 @@ -testing -testUnchangedObjectsAreKept - | original target instance patched | - instance := 'foo' copy. - original := {1. instance}. - target := {2. instance}. - self assert: target equals: (patched := self patch: original to: target). - self assert: original == patched. - self assert: (patched at: 2) == instance. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectPatchingTest.class/methodProperties.json b/src/Squot.package/SquotObjectPatchingTest.class/methodProperties.json deleted file mode 100644 index a4b5061c1..000000000 --- a/src/Squot.package/SquotObjectPatchingTest.class/methodProperties.json +++ /dev/null @@ -1,25 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "apply:to:" : "jr 7/7/2021 22:43", - "patch:to:" : "jr 7/30/2017 13:19", - "patchedFrom:to:" : "jr 9/25/2019 20:11", - "setUp" : "jr 7/17/2021 02:11", - "testAddObjectThatRefersToExisting" : "jr 7/7/2021 22:49", - "testAddObjects" : "jr 7/7/2021 22:43", - "testAddSubgraph" : "jr 7/7/2021 22:46", - "testAddSubgraph2" : "jr 7/7/2021 22:52", - "testArrayGrow" : "jr 6/27/2017 17:21", - "testArrayShrink" : "jr 6/27/2017 17:21", - "testArraySwap" : "jr 7/29/2017 17:16", - "testCyclicReferences" : "jr 6/13/2021 23:11", - "testCyclicReferences2" : "jr 8/8/2021 17:06", - "testDictionary" : "jr 7/7/2021 23:00", - "testNestedArray" : "jr 9/23/2019 19:29", - "testRemoveComplexValueObject" : "jr 7/7/2021 23:03", - "testReplacedObject" : "jr 8/8/2021 17:57", - "testReplacedObject2" : "jr 7/20/2017 17:02", - "testSet" : "jr 7/7/2021 23:05", - "testTypeChange" : "jr 6/15/2017 16:23", - "testUnchangedObjectsAreKept" : "jr 6/15/2017 15:53" } } diff --git a/src/Squot.package/SquotObjectPatchingTest.class/properties.json b/src/Squot.package/SquotObjectPatchingTest.class/properties.json deleted file mode 100644 index 75a7f8872..000000000 --- a/src/Squot.package/SquotObjectPatchingTest.class/properties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "category" : "Squot-Tests-Diffs", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 20:14", - "instvars" : [ - "capturer", - "objectRegistry", - "patcher", - "materializedObject" ], - "name" : "SquotObjectPatchingTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectReferenceConflict.class/README.md b/src/Squot.package/SquotObjectReferenceConflict.class/README.md deleted file mode 100644 index 957d84d2c..000000000 --- a/src/Squot.package/SquotObjectReferenceConflict.class/README.md +++ /dev/null @@ -1 +0,0 @@ -Conflicting changes to a reference from one object to another. The referenced object is different in all compared editions. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReferenceConflict.class/class/key.base.working.incoming..st b/src/Squot.package/SquotObjectReferenceConflict.class/class/key.base.working.incoming..st deleted file mode 100644 index da254bc4d..000000000 --- a/src/Squot.package/SquotObjectReferenceConflict.class/class/key.base.working.incoming..st +++ /dev/null @@ -1,5 +0,0 @@ -as yet unclassified -key: anObject base: baseReference working: workingReference incoming: incomingReference - ^ self new - setKey: anObject base: baseReference working: workingReference incoming: incomingReference; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReferenceConflict.class/instance/chooseIncoming.st b/src/Squot.package/SquotObjectReferenceConflict.class/instance/chooseIncoming.st deleted file mode 100644 index c23cf0f01..000000000 --- a/src/Squot.package/SquotObjectReferenceConflict.class/instance/chooseIncoming.st +++ /dev/null @@ -1,3 +0,0 @@ -merging -chooseIncoming - resolution := SquotReferenceTargetExchange reference: key leftOwner: nil target: working rightOwner: nil target: incoming. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReferenceConflict.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotObjectReferenceConflict.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index d62ed53d1..000000000 --- a/src/Squot.package/SquotObjectReferenceConflict.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -squotChangeAsStringOrText - ^ 'Distinct objects', String cr, - (TextDiffBuilder buildDisplayPatchFrom: working printString to: incoming printString) \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReferenceConflict.class/methodProperties.json b/src/Squot.package/SquotObjectReferenceConflict.class/methodProperties.json deleted file mode 100644 index 3f54c0c74..000000000 --- a/src/Squot.package/SquotObjectReferenceConflict.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - "key:base:working:incoming:" : "jr 12/13/2020 15:09" }, - "instance" : { - "chooseIncoming" : "jr 1/16/2022 20:09", - "squotChangeAsStringOrText" : "jr 1/16/2022 20:41" } } diff --git a/src/Squot.package/SquotObjectReferenceConflict.class/properties.json b/src/Squot.package/SquotObjectReferenceConflict.class/properties.json deleted file mode 100644 index ea2d4fbe4..000000000 --- a/src/Squot.package/SquotObjectReferenceConflict.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Merging", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 9/20/2019 21:50", - "instvars" : [ - ], - "name" : "SquotObjectReferenceConflict", - "pools" : [ - ], - "super" : "SquotConflict", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectReferenceInGraph.class/README.md b/src/Squot.package/SquotObjectReferenceInGraph.class/README.md deleted file mode 100644 index 226f30c60..000000000 --- a/src/Squot.package/SquotObjectReferenceInGraph.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I annotate a reference from one object to another with the graph that contains these objects. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReferenceInGraph.class/instance/graph..st b/src/Squot.package/SquotObjectReferenceInGraph.class/instance/graph..st deleted file mode 100644 index 9321504eb..000000000 --- a/src/Squot.package/SquotObjectReferenceInGraph.class/instance/graph..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -graph: anObject - graph := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReferenceInGraph.class/instance/graph.st b/src/Squot.package/SquotObjectReferenceInGraph.class/instance/graph.st deleted file mode 100644 index b446f778b..000000000 --- a/src/Squot.package/SquotObjectReferenceInGraph.class/instance/graph.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -graph - ^ graph \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReferenceInGraph.class/instance/inGraph..st b/src/Squot.package/SquotObjectReferenceInGraph.class/instance/inGraph..st deleted file mode 100644 index fdf4351a4..000000000 --- a/src/Squot.package/SquotObjectReferenceInGraph.class/instance/inGraph..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -inGraph: aGraph - ^ decoratedObject inGraph: aGraph \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReferenceInGraph.class/instance/squotOutgoingReferences.st b/src/Squot.package/SquotObjectReferenceInGraph.class/instance/squotOutgoingReferences.st deleted file mode 100644 index f99f97cff..000000000 --- a/src/Squot.package/SquotObjectReferenceInGraph.class/instance/squotOutgoingReferences.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -squotOutgoingReferences - ^ decoratedObject squotOutgoingReferences collect: [:each | each inGraph: graph] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReferenceInGraph.class/methodProperties.json b/src/Squot.package/SquotObjectReferenceInGraph.class/methodProperties.json deleted file mode 100644 index 599ef90fc..000000000 --- a/src/Squot.package/SquotObjectReferenceInGraph.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "graph" : "jr 9/2/2019 19:12", - "graph:" : "jr 9/2/2019 19:12", - "inGraph:" : "jr 9/2/2019 20:23", - "squotOutgoingReferences" : "jr 9/2/2019 20:18" } } diff --git a/src/Squot.package/SquotObjectReferenceInGraph.class/properties.json b/src/Squot.package/SquotObjectReferenceInGraph.class/properties.json deleted file mode 100644 index 39382b054..000000000 --- a/src/Squot.package/SquotObjectReferenceInGraph.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-Capturing", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 9/20/2019 21:51", - "instvars" : [ - "graph", - "valueName" ], - "name" : "SquotObjectReferenceInGraph", - "pools" : [ - ], - "super" : "SquotDecorator", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectReflection.class/README.md b/src/Squot.package/SquotObjectReflection.class/README.md deleted file mode 100644 index b29c8dda2..000000000 --- a/src/Squot.package/SquotObjectReflection.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I reflect on the references of a particular object in a mirror. I cache the references found. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReflection.class/class/object.mirror..st b/src/Squot.package/SquotObjectReflection.class/class/object.mirror..st deleted file mode 100644 index 37a6462a7..000000000 --- a/src/Squot.package/SquotObjectReflection.class/class/object.mirror..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -object: anObject mirror: aMirror - ^ self new - setMirror: aMirror object: anObject; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReflection.class/instance/canHaveReferences.st b/src/Squot.package/SquotObjectReflection.class/instance/canHaveReferences.st deleted file mode 100644 index 0347a78f4..000000000 --- a/src/Squot.package/SquotObjectReflection.class/instance/canHaveReferences.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -canHaveReferences - ^ mirror canHaveReferences: object \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReflection.class/instance/isComparableTo..st b/src/Squot.package/SquotObjectReflection.class/instance/isComparableTo..st deleted file mode 100644 index 156378141..000000000 --- a/src/Squot.package/SquotObjectReflection.class/instance/isComparableTo..st +++ /dev/null @@ -1,4 +0,0 @@ -comparing -isComparableTo: aReflectedObject - ^ mirror = aReflectedObject mirror - and: [mirror is: object comparableTo: aReflectedObject object] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReflection.class/instance/mirror.st b/src/Squot.package/SquotObjectReflection.class/instance/mirror.st deleted file mode 100644 index 31aa6a7a3..000000000 --- a/src/Squot.package/SquotObjectReflection.class/instance/mirror.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -mirror - ^ mirror \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReflection.class/instance/nextMirror..st b/src/Squot.package/SquotObjectReflection.class/instance/nextMirror..st deleted file mode 100644 index ae37136be..000000000 --- a/src/Squot.package/SquotObjectReflection.class/instance/nextMirror..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -nextMirror: aReference - ^ mirror mirrorOf: (aReference reflect: object in: mirror) undecorated reachedVia: aReference from: object \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReflection.class/instance/object.st b/src/Squot.package/SquotObjectReflection.class/instance/object.st deleted file mode 100644 index ab44a2bb9..000000000 --- a/src/Squot.package/SquotObjectReflection.class/instance/object.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -object - ^ object \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReflection.class/instance/printOn..st b/src/Squot.package/SquotObjectReflection.class/instance/printOn..st deleted file mode 100644 index 27dd8de1c..000000000 --- a/src/Squot.package/SquotObjectReflection.class/instance/printOn..st +++ /dev/null @@ -1,7 +0,0 @@ -printing -printOn: aStream - aStream - nextPutAll: 'reflected '; - print: object; - nextPutAll: ' in '; - print: mirror. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReflection.class/instance/references.st b/src/Squot.package/SquotObjectReflection.class/instance/references.st deleted file mode 100644 index cb23e7b88..000000000 --- a/src/Squot.package/SquotObjectReflection.class/instance/references.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -references - ^ refs ifNil: [refs := mirror referencesFrom: object] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReflection.class/instance/reflect..st b/src/Squot.package/SquotObjectReflection.class/instance/reflect..st deleted file mode 100644 index 831bee21d..000000000 --- a/src/Squot.package/SquotObjectReflection.class/instance/reflect..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflect: aReference - ^ mirror reflect: aReference of: object \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReflection.class/instance/setMirror.object..st b/src/Squot.package/SquotObjectReflection.class/instance/setMirror.object..st deleted file mode 100644 index 378b52d26..000000000 --- a/src/Squot.package/SquotObjectReflection.class/instance/setMirror.object..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -setMirror: aMirror object: anObject - object := anObject. - mirror := aMirror. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReflection.class/methodProperties.json b/src/Squot.package/SquotObjectReflection.class/methodProperties.json deleted file mode 100644 index e72da9443..000000000 --- a/src/Squot.package/SquotObjectReflection.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - "object:mirror:" : "jr 12/21/2020 23:31" }, - "instance" : { - "canHaveReferences" : "jr 7/18/2021 22:10", - "isComparableTo:" : "jr 7/18/2021 20:08", - "mirror" : "jr 12/21/2020 00:37", - "nextMirror:" : "jr 7/18/2021 20:11", - "object" : "jr 12/21/2020 00:37", - "printOn:" : "jr 12/21/2020 00:50", - "references" : "jr 12/21/2020 00:32", - "reflect:" : "jr 12/21/2020 00:39", - "setMirror:object:" : "jr 12/21/2020 00:32" } } diff --git a/src/Squot.package/SquotObjectReflection.class/properties.json b/src/Squot.package/SquotObjectReflection.class/properties.json deleted file mode 100644 index 94948194b..000000000 --- a/src/Squot.package/SquotObjectReflection.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 12/21/2020 01:01", - "instvars" : [ - "object", - "mirror", - "refs" ], - "name" : "SquotObjectReflection", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectRegistry.class/README.md b/src/Squot.package/SquotObjectRegistry.class/README.md deleted file mode 100644 index 18f0ff75f..000000000 --- a/src/Squot.package/SquotObjectRegistry.class/README.md +++ /dev/null @@ -1,4 +0,0 @@ -A permanent registry for objects, to keep them associated with names. Used by Stores. - -Instance Variables - graphForStorage: \ No newline at end of file diff --git a/src/Squot.package/SquotObjectRegistry.class/class/squotMirror.st b/src/Squot.package/SquotObjectRegistry.class/class/squotMirror.st deleted file mode 100644 index 25dcb1d6d..000000000 --- a/src/Squot.package/SquotObjectRegistry.class/class/squotMirror.st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -squotMirror - ^ SquotObjectRegistryMirror new \ No newline at end of file diff --git a/src/Squot.package/SquotObjectRegistry.class/instance/anySatisfy..st b/src/Squot.package/SquotObjectRegistry.class/instance/anySatisfy..st deleted file mode 100644 index f9e4c494e..000000000 --- a/src/Squot.package/SquotObjectRegistry.class/instance/anySatisfy..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -anySatisfy: aBlock - ^ graphForStorage anyObjectSatisfy: aBlock \ No newline at end of file diff --git a/src/Squot.package/SquotObjectRegistry.class/instance/assign.to..st b/src/Squot.package/SquotObjectRegistry.class/instance/assign.to..st deleted file mode 100644 index d208331ca..000000000 --- a/src/Squot.package/SquotObjectRegistry.class/instance/assign.to..st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -assign: aName to: anObject - ^ graphForStorage assign: aName to: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotObjectRegistry.class/instance/creatorOf.ifAbsentPut.of..st b/src/Squot.package/SquotObjectRegistry.class/instance/creatorOf.ifAbsentPut.of..st deleted file mode 100644 index 4ec57ccc6..000000000 --- a/src/Squot.package/SquotObjectRegistry.class/instance/creatorOf.ifAbsentPut.of..st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -creatorOf: anObject ifAbsentPut: slotBlock of: creatorBlock - ^ graphForStorage creatorOf: anObject ifAbsentPut: slotBlock of: creatorBlock \ No newline at end of file diff --git a/src/Squot.package/SquotObjectRegistry.class/instance/initialize.st b/src/Squot.package/SquotObjectRegistry.class/instance/initialize.st deleted file mode 100644 index c93209425..000000000 --- a/src/Squot.package/SquotObjectRegistry.class/instance/initialize.st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -initialize - graphForStorage := SquotMutableObjectGraph new. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectRegistry.class/instance/nameOf..st b/src/Squot.package/SquotObjectRegistry.class/instance/nameOf..st deleted file mode 100644 index 05a134f59..000000000 --- a/src/Squot.package/SquotObjectRegistry.class/instance/nameOf..st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -nameOf: anObject - ^ graphForStorage nameOf: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotObjectRegistry.class/instance/nameOf.ifAbsent..st b/src/Squot.package/SquotObjectRegistry.class/instance/nameOf.ifAbsent..st deleted file mode 100644 index 67584944c..000000000 --- a/src/Squot.package/SquotObjectRegistry.class/instance/nameOf.ifAbsent..st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -nameOf: anObject ifAbsent: absentBlock - ^ graphForStorage nameOf: anObject ifAbsent: absentBlock \ No newline at end of file diff --git a/src/Squot.package/SquotObjectRegistry.class/instance/nameOf.ifAbsentAssign..st b/src/Squot.package/SquotObjectRegistry.class/instance/nameOf.ifAbsentAssign..st deleted file mode 100644 index 93e6f01b3..000000000 --- a/src/Squot.package/SquotObjectRegistry.class/instance/nameOf.ifAbsentAssign..st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -nameOf: anObject ifAbsentAssign: nameBlock - ^ graphForStorage nameOf: anObject ifAbsentAssign: nameBlock \ No newline at end of file diff --git a/src/Squot.package/SquotObjectRegistry.class/instance/objectNamed..st b/src/Squot.package/SquotObjectRegistry.class/instance/objectNamed..st deleted file mode 100644 index 7875a030d..000000000 --- a/src/Squot.package/SquotObjectRegistry.class/instance/objectNamed..st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -objectNamed: aName - ^ graphForStorage objectNamed: aName \ No newline at end of file diff --git a/src/Squot.package/SquotObjectRegistry.class/instance/objectNamed.ifAbsent..st b/src/Squot.package/SquotObjectRegistry.class/instance/objectNamed.ifAbsent..st deleted file mode 100644 index f165b4fb3..000000000 --- a/src/Squot.package/SquotObjectRegistry.class/instance/objectNamed.ifAbsent..st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -objectNamed: aName ifAbsent: absentBlock - ^ graphForStorage objectNamed: aName ifAbsent: absentBlock \ No newline at end of file diff --git a/src/Squot.package/SquotObjectRegistry.class/methodProperties.json b/src/Squot.package/SquotObjectRegistry.class/methodProperties.json deleted file mode 100644 index ff95dcd99..000000000 --- a/src/Squot.package/SquotObjectRegistry.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - "squotMirror" : "jr 9/10/2021 22:44" }, - "instance" : { - "anySatisfy:" : "jr 7/17/2021 01:55", - "assign:to:" : "jr 7/30/2017 01:57", - "creatorOf:ifAbsentPut:of:" : "jr 7/30/2017 01:55", - "initialize" : "jr 7/30/2017 01:40", - "nameOf:" : "jr 7/30/2017 01:55", - "nameOf:ifAbsent:" : "jr 7/30/2017 01:56", - "nameOf:ifAbsentAssign:" : "jr 7/30/2017 01:56", - "objectNamed:" : "jr 7/30/2017 01:56", - "objectNamed:ifAbsent:" : "jr 7/30/2017 01:56" } } diff --git a/src/Squot.package/SquotObjectRegistry.class/properties.json b/src/Squot.package/SquotObjectRegistry.class/properties.json deleted file mode 100644 index d59206b4f..000000000 --- a/src/Squot.package/SquotObjectRegistry.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Capturing", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 17:55", - "instvars" : [ - "graphForStorage" ], - "name" : "SquotObjectRegistry", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectRegistryMirror.class/README.md b/src/Squot.package/SquotObjectRegistryMirror.class/README.md deleted file mode 100644 index 4d7721955..000000000 --- a/src/Squot.package/SquotObjectRegistryMirror.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I can access live objects in a SquotObjectRegistry. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectRegistryMirror.class/instance/canHaveReferences..st b/src/Squot.package/SquotObjectRegistryMirror.class/instance/canHaveReferences..st deleted file mode 100644 index 68b68d925..000000000 --- a/src/Squot.package/SquotObjectRegistryMirror.class/instance/canHaveReferences..st +++ /dev/null @@ -1,5 +0,0 @@ -testing -canHaveReferences: anObject - "Answer whether the kind of anObject is capable of having references to other objects." - - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/SquotObjectRegistryMirror.class/instance/capture.with.ifReplaced..st b/src/Squot.package/SquotObjectRegistryMirror.class/instance/capture.with.ifReplaced..st deleted file mode 100644 index 4afbec81a..000000000 --- a/src/Squot.package/SquotObjectRegistryMirror.class/instance/capture.with.ifReplaced..st +++ /dev/null @@ -1,9 +0,0 @@ -capturing -capture: anObject with: aSquotObjectCapturer ifReplaced: aBlock - "Answer a snapshot of the object. If it is supposed to be replaced by a proxy, evaluate aBlock with the proxy before creating the snapshot of the proxy." - - "For objects that might have cyclic references, do not attempt to capture the whole object subgraph! Instead enumerate the references, only create the new shadow object and prepare it, then announce the references to the capturer with: - aSquotObjectCapturer capture: referencedObject asValueOf: aReference from: anObject reflectedIn: aMirror - intoValueOf: shadowsReference from: shadowOfAnObject reflectedIn: aShadowMirror" - - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/SquotObjectRegistryMirror.class/instance/is.comparableTo..st b/src/Squot.package/SquotObjectRegistryMirror.class/instance/is.comparableTo..st deleted file mode 100644 index 4632a68c6..000000000 --- a/src/Squot.package/SquotObjectRegistryMirror.class/instance/is.comparableTo..st +++ /dev/null @@ -1,5 +0,0 @@ -comparing -is: anObject comparableTo: anotherObject - "Answer true if anObject and anotherObject are of the same kind." - - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/SquotObjectRegistryMirror.class/instance/newDiffFrom.to..st b/src/Squot.package/SquotObjectRegistryMirror.class/instance/newDiffFrom.to..st deleted file mode 100644 index 2ca4f5a19..000000000 --- a/src/Squot.package/SquotObjectRegistryMirror.class/instance/newDiffFrom.to..st +++ /dev/null @@ -1,5 +0,0 @@ -comparing -newDiffFrom: leftObject to: rightObject - "Answer a new instance of a diff suitable to be applied to leftObject." - - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/SquotObjectRegistryMirror.class/instance/referencesFrom..st b/src/Squot.package/SquotObjectRegistryMirror.class/instance/referencesFrom..st deleted file mode 100644 index 82db87600..000000000 --- a/src/Squot.package/SquotObjectRegistryMirror.class/instance/referencesFrom..st +++ /dev/null @@ -1,5 +0,0 @@ -enumerating -referencesFrom: anObject - "Answer a collection of all references going out of anObject." - - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/SquotObjectRegistryMirror.class/instance/reflectGraphElementWithName.in..st b/src/Squot.package/SquotObjectRegistryMirror.class/instance/reflectGraphElementWithName.in..st deleted file mode 100644 index 6e2930cdd..000000000 --- a/src/Squot.package/SquotObjectRegistryMirror.class/instance/reflectGraphElementWithName.in..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflectGraphElementWithName: name in: aSquotObjectRegistry - ^ aSquotObjectRegistry objectNamed: name \ No newline at end of file diff --git a/src/Squot.package/SquotObjectRegistryMirror.class/methodProperties.json b/src/Squot.package/SquotObjectRegistryMirror.class/methodProperties.json deleted file mode 100644 index 4dbb77642..000000000 --- a/src/Squot.package/SquotObjectRegistryMirror.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "canHaveReferences:" : "jr 9/10/2021 22:44", - "capture:with:ifReplaced:" : "jr 9/10/2021 22:44", - "is:comparableTo:" : "jr 9/10/2021 22:44", - "newDiffFrom:to:" : "jr 9/10/2021 22:44", - "referencesFrom:" : "jr 9/10/2021 22:44", - "reflectGraphElementWithName:in:" : "jr 9/10/2021 22:45" } } diff --git a/src/Squot.package/SquotObjectRegistryMirror.class/properties.json b/src/Squot.package/SquotObjectRegistryMirror.class/properties.json deleted file mode 100644 index 6c64eba25..000000000 --- a/src/Squot.package/SquotObjectRegistryMirror.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 9/10/2021 23:52", - "instvars" : [ - ], - "name" : "SquotObjectRegistryMirror", - "pools" : [ - ], - "super" : "SquotGraphMirror", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectRegistryTest.class/README.md b/src/Squot.package/SquotObjectRegistryTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotObjectRegistryTest.class/instance/setUp.st b/src/Squot.package/SquotObjectRegistryTest.class/instance/setUp.st deleted file mode 100644 index 3ec44c5b8..000000000 --- a/src/Squot.package/SquotObjectRegistryTest.class/instance/setUp.st +++ /dev/null @@ -1,3 +0,0 @@ -running -setUp - registry := SquotObjectRegistry new. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectRegistryTest.class/instance/testNilDoesNotInheritNameOfGarbageCollectedObject.st b/src/Squot.package/SquotObjectRegistryTest.class/instance/testNilDoesNotInheritNameOfGarbageCollectedObject.st deleted file mode 100644 index 1d2a07f62..000000000 --- a/src/Squot.package/SquotObjectRegistryTest.class/instance/testNilDoesNotInheritNameOfGarbageCollectedObject.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testNilDoesNotInheritNameOfGarbageCollectedObject - "When objects are garbage collected, the keys in the names hash table become nil. - This must not mislead the registry to answer that nil had one of the names of the former - objects!" - | hashTable | - "Craft a registry where all keys were freed. - This is tightly coupled to the WeakKeyDictionary, SquotObjectRegistry and - SquotShadowGraph implementation!" - hashTable := ((registry instVarNamed: 'graphForStorage') instVarNamed: 'objectNames') array. - hashTable replace: [:each | WeakKeyAssociation key: nil value: Object new]. - self assert: (registry nameOf: nil ifAbsent: []) isNil. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectRegistryTest.class/methodProperties.json b/src/Squot.package/SquotObjectRegistryTest.class/methodProperties.json deleted file mode 100644 index cf21e17e2..000000000 --- a/src/Squot.package/SquotObjectRegistryTest.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "setUp" : "jr 9/25/2019 13:19", - "testNilDoesNotInheritNameOfGarbageCollectedObject" : "jr 9/25/2019 15:22" } } diff --git a/src/Squot.package/SquotObjectRegistryTest.class/properties.json b/src/Squot.package/SquotObjectRegistryTest.class/properties.json deleted file mode 100644 index 754692903..000000000 --- a/src/Squot.package/SquotObjectRegistryTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "registry" ], - "name" : "SquotObjectRegistryTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectRemoval.class/README.md b/src/Squot.package/SquotObjectRemoval.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotObjectRemoval.class/class/of..st b/src/Squot.package/SquotObjectRemoval.class/class/of..st deleted file mode 100644 index d947f4a4a..000000000 --- a/src/Squot.package/SquotObjectRemoval.class/class/of..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -of: anObject - ^ self new setObject: anObject; yourself \ No newline at end of file diff --git a/src/Squot.package/SquotObjectRemoval.class/instance/applyToShadowNamed.inGraph..st b/src/Squot.package/SquotObjectRemoval.class/instance/applyToShadowNamed.inGraph..st deleted file mode 100644 index af898d808..000000000 --- a/src/Squot.package/SquotObjectRemoval.class/instance/applyToShadowNamed.inGraph..st +++ /dev/null @@ -1,5 +0,0 @@ -Squot-diff-patching -applyToShadowNamed: name inGraph: anObjectGraph - self assert: (anObjectGraph shadowNamed: name) = object. - anObjectGraph removeObjectNamed: name. - ^ nil \ No newline at end of file diff --git a/src/Squot.package/SquotObjectRemoval.class/instance/object.st b/src/Squot.package/SquotObjectRemoval.class/instance/object.st deleted file mode 100644 index ab44a2bb9..000000000 --- a/src/Squot.package/SquotObjectRemoval.class/instance/object.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -object - ^ object \ No newline at end of file diff --git a/src/Squot.package/SquotObjectRemoval.class/instance/setObject..st b/src/Squot.package/SquotObjectRemoval.class/instance/setObject..st deleted file mode 100644 index 42f1a9e0b..000000000 --- a/src/Squot.package/SquotObjectRemoval.class/instance/setObject..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -setObject: anObject - object := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectRemoval.class/instance/squotApplyTo..st b/src/Squot.package/SquotObjectRemoval.class/instance/squotApplyTo..st deleted file mode 100644 index 8dfe0ab20..000000000 --- a/src/Squot.package/SquotObjectRemoval.class/instance/squotApplyTo..st +++ /dev/null @@ -1,4 +0,0 @@ -Squot-diff-patching -squotApplyTo: aShadow - "aShadow shall be removed from the object graph. But that does not mean that the object must be changed. Leave it to the garbage collector." - self isThisEverCalled. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectRemoval.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotObjectRemoval.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index 4884b0aa8..000000000 --- a/src/Squot.package/SquotObjectRemoval.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -squotChangeAsStringOrText - ^ 'Removed object: ', object printString \ No newline at end of file diff --git a/src/Squot.package/SquotObjectRemoval.class/methodProperties.json b/src/Squot.package/SquotObjectRemoval.class/methodProperties.json deleted file mode 100644 index da6581595..000000000 --- a/src/Squot.package/SquotObjectRemoval.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - "of:" : "jr 12/7/2020 21:48" }, - "instance" : { - "applyToShadowNamed:inGraph:" : "jr 7/17/2021 21:06", - "object" : "jr 7/17/2021 20:59", - "setObject:" : "jr 12/7/2020 21:58", - "squotApplyTo:" : "jr 7/17/2021 21:06", - "squotChangeAsStringOrText" : "jr 7/17/2021 20:58" } } diff --git a/src/Squot.package/SquotObjectRemoval.class/properties.json b/src/Squot.package/SquotObjectRemoval.class/properties.json deleted file mode 100644 index 98516b430..000000000 --- a/src/Squot.package/SquotObjectRemoval.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Diffs", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotRemoval classTrait + TSquotDiff classTrait", - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "object" ], - "name" : "SquotObjectRemoval", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotRemoval + (TSquotDiff - {#squotHasChanges})", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectReplacement.class/README.md b/src/Squot.package/SquotObjectReplacement.class/README.md deleted file mode 100644 index 480435c2e..000000000 --- a/src/Squot.package/SquotObjectReplacement.class/README.md +++ /dev/null @@ -1,5 +0,0 @@ -I signify that an object should be replaced by another, without patching the original object. Therefore, I only hold to a shadow or reference of the right object. - -Instance Variables - left: - right: \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReplacement.class/class/left.right..st b/src/Squot.package/SquotObjectReplacement.class/class/left.right..st deleted file mode 100644 index 9f0f9e7d7..000000000 --- a/src/Squot.package/SquotObjectReplacement.class/class/left.right..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -left: leftValue right: rightValue - ^ self new left: leftValue; right: rightValue; yourself \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReplacement.class/instance/addReferenceDiff..st b/src/Squot.package/SquotObjectReplacement.class/instance/addReferenceDiff..st deleted file mode 100644 index 32e6205f9..000000000 --- a/src/Squot.package/SquotObjectReplacement.class/instance/addReferenceDiff..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-diff-comparing -addReferenceDiff: aSquotReferenceDiff - "Ignore this since right shall completely replace left from the referrer." \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReplacement.class/instance/addTransitiveChangeIn..st b/src/Squot.package/SquotObjectReplacement.class/instance/addTransitiveChangeIn..st deleted file mode 100644 index db0533e00..000000000 --- a/src/Squot.package/SquotObjectReplacement.class/instance/addTransitiveChangeIn..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-diff-comparing -addTransitiveChangeIn: aReference - "Ignore this since right shall completely replace left from the referrer." \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReplacement.class/instance/applyToShadowNamed.inGraph..st b/src/Squot.package/SquotObjectReplacement.class/instance/applyToShadowNamed.inGraph..st deleted file mode 100644 index 96a4ef6c3..000000000 --- a/src/Squot.package/SquotObjectReplacement.class/instance/applyToShadowNamed.inGraph..st +++ /dev/null @@ -1,11 +0,0 @@ -Squot-diff-patching -applyToShadowNamed: name inGraph: anObjectGraph - "Don't use the name of the old shadow, use the name of the new shadow." - | new | - new := self right. - new hasSquotShadowName - ifTrue: - [anObjectGraph assign: new name toShadow: new undecorated. - anObjectGraph startName = name - ifTrue: [anObjectGraph startName: new name]]. - ^ new \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReplacement.class/instance/asSquotConflicts.st b/src/Squot.package/SquotObjectReplacement.class/instance/asSquotConflicts.st deleted file mode 100644 index 33f1a45d9..000000000 --- a/src/Squot.package/SquotObjectReplacement.class/instance/asSquotConflicts.st +++ /dev/null @@ -1,4 +0,0 @@ -Squot-diff-converting -asSquotConflicts - "Answer a copy of me in which all differences are conflicts in a merge without a base object." - ^ SquotObjectAdditionConflict working: left incoming: right \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReplacement.class/instance/incoming.st b/src/Squot.package/SquotObjectReplacement.class/instance/incoming.st deleted file mode 100644 index b937ec329..000000000 --- a/src/Squot.package/SquotObjectReplacement.class/instance/incoming.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -incoming - ^ self right \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReplacement.class/instance/initializeFrom.to..st b/src/Squot.package/SquotObjectReplacement.class/instance/initializeFrom.to..st deleted file mode 100644 index fc0dcf1bc..000000000 --- a/src/Squot.package/SquotObjectReplacement.class/instance/initializeFrom.to..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -initializeFrom: aSquotObjectShadow to: aSquotObjectShadow2 - "Those objects could be anything, so do not attempt to compare them." \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReplacement.class/instance/initializeSquotDiffNodes.with..st b/src/Squot.package/SquotObjectReplacement.class/instance/initializeSquotDiffNodes.with..st deleted file mode 100644 index 769caabb2..000000000 --- a/src/Squot.package/SquotObjectReplacement.class/instance/initializeSquotDiffNodes.with..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -initializeSquotDiffNodes: aCollection with: aSquotDiffNodesBuilder - "Nothing to do. Everything has already been done in #newSquotDiffNodes." \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReplacement.class/instance/left..st b/src/Squot.package/SquotObjectReplacement.class/instance/left..st deleted file mode 100644 index 76788dbf7..000000000 --- a/src/Squot.package/SquotObjectReplacement.class/instance/left..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -left: anObject - left := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReplacement.class/instance/left.st b/src/Squot.package/SquotObjectReplacement.class/instance/left.st deleted file mode 100644 index 3bb36da8e..000000000 --- a/src/Squot.package/SquotObjectReplacement.class/instance/left.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -left - ^ left \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReplacement.class/instance/newSquotDiffNodes.st b/src/Squot.package/SquotObjectReplacement.class/instance/newSquotDiffNodes.st deleted file mode 100644 index 1a1bdb2f8..000000000 --- a/src/Squot.package/SquotObjectReplacement.class/instance/newSquotDiffNodes.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -newSquotDiffNodes - ^ {SquotDiffNode title: 'value' content: self children: #() onInclude: [] onExclude: []} \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReplacement.class/instance/object.st b/src/Squot.package/SquotObjectReplacement.class/instance/object.st deleted file mode 100644 index f0c5a2934..000000000 --- a/src/Squot.package/SquotObjectReplacement.class/instance/object.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -object - ^ left ifNil: [right] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReplacement.class/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st b/src/Squot.package/SquotObjectReplacement.class/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st deleted file mode 100644 index 8080729c0..000000000 --- a/src/Squot.package/SquotObjectReplacement.class/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st +++ /dev/null @@ -1,15 +0,0 @@ -Squot-diff-enumerating -referenceDiffsWithDefaultOwners: leftAndRightShadows reflectedIn: aMirror do: aBlock - "Allow the replacement to be materialized proper. Like with an addition, enumerate all references to update their values." - | leftUndecorated rightUndecorated leftMirror sameMirror | - leftUndecorated := left undecorated. - rightUndecorated := right undecorated. - leftMirror := leftUndecorated class squotMirror. - sameMirror := leftMirror = aMirror. - ^ (aMirror referencesFrom: rightUndecorated) - collect: - [:each | SquotReferenceTargetExchange - reference: each - leftOwner: leftUndecorated target: (sameMirror ifTrue: [leftMirror reflect: each of: leftUndecorated]) - rightOwner: rightUndecorated target: (aMirror reflect: each of: rightUndecorated)] - thenDo: aBlock \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReplacement.class/instance/right..st b/src/Squot.package/SquotObjectReplacement.class/instance/right..st deleted file mode 100644 index 0246a03b1..000000000 --- a/src/Squot.package/SquotObjectReplacement.class/instance/right..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -right: anObject - right := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReplacement.class/instance/right.st b/src/Squot.package/SquotObjectReplacement.class/instance/right.st deleted file mode 100644 index 42b8b9e67..000000000 --- a/src/Squot.package/SquotObjectReplacement.class/instance/right.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -right - ^ right \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReplacement.class/instance/rightName.st b/src/Squot.package/SquotObjectReplacement.class/instance/rightName.st deleted file mode 100644 index 8f1b862a6..000000000 --- a/src/Squot.package/SquotObjectReplacement.class/instance/rightName.st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-diff-patching -rightName - ^ self right name \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReplacement.class/instance/squotApplyTo..st b/src/Squot.package/SquotObjectReplacement.class/instance/squotApplyTo..st deleted file mode 100644 index 514883ddb..000000000 --- a/src/Squot.package/SquotObjectReplacement.class/instance/squotApplyTo..st +++ /dev/null @@ -1,5 +0,0 @@ -patching -squotApplyTo: aContentObject - "Apply my changes to aContentObject (the representation of an object in a snapshot) - and answer the result." - ^ self right \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReplacement.class/instance/squotApplyTo.with..st b/src/Squot.package/SquotObjectReplacement.class/instance/squotApplyTo.with..st deleted file mode 100644 index 71c1d141a..000000000 --- a/src/Squot.package/SquotObjectReplacement.class/instance/squotApplyTo.with..st +++ /dev/null @@ -1,5 +0,0 @@ -patching -squotApplyTo: aContentObject with: aDiffBuilder - "Apply my changes to aContentObject (the representation of an object in a snapshot) - and answer the result." - ^ self right \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReplacement.class/instance/squotApplyToLoaded..st b/src/Squot.package/SquotObjectReplacement.class/instance/squotApplyToLoaded..st deleted file mode 100644 index 60c95d8a9..000000000 --- a/src/Squot.package/SquotObjectReplacement.class/instance/squotApplyToLoaded..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -squotApplyToLoaded: anObject - ^ right value \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReplacement.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotObjectReplacement.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index 91bafad86..000000000 --- a/src/Squot.package/SquotObjectReplacement.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,6 +0,0 @@ -*Squot-Tools -squotChangeAsStringOrText - ^ TextDiffBuilder - buildDisplayPatchFrom: (left ifNil: ['']) asString - to: (right ifNil: ['']) asString - \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReplacement.class/instance/squotHasChanges.st b/src/Squot.package/SquotObjectReplacement.class/instance/squotHasChanges.st deleted file mode 100644 index 360f15302..000000000 --- a/src/Squot.package/SquotObjectReplacement.class/instance/squotHasChanges.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -squotHasChanges - "Answer false if the two compared objects were equal, answer true if there were diffs." - ^ left ~= right \ No newline at end of file diff --git a/src/Squot.package/SquotObjectReplacement.class/methodProperties.json b/src/Squot.package/SquotObjectReplacement.class/methodProperties.json deleted file mode 100644 index fdfe63ae9..000000000 --- a/src/Squot.package/SquotObjectReplacement.class/methodProperties.json +++ /dev/null @@ -1,24 +0,0 @@ -{ - "class" : { - "left:right:" : "jr 6/1/2017 12:48" }, - "instance" : { - "addReferenceDiff:" : "jr 7/25/2021 14:19", - "addTransitiveChangeIn:" : "jr 7/25/2021 19:44", - "applyToShadowNamed:inGraph:" : "jr 7/4/2021 18:00", - "asSquotConflicts" : "jr 12/20/2020 23:32", - "incoming" : "jr 8/4/2019 00:14", - "initializeFrom:to:" : "jr 7/30/2021 19:26", - "initializeSquotDiffNodes:with:" : "jr 3/17/2018 14:22", - "left" : "jr 6/1/2017 12:44", - "left:" : "jr 6/1/2017 12:44", - "newSquotDiffNodes" : "jr 11/18/2018 02:35", - "object" : "jr 8/4/2019 00:18", - "referenceDiffsWithDefaultOwners:reflectedIn:do:" : "jr 1/13/2022 21:31", - "right" : "jr 6/1/2017 12:44", - "right:" : "jr 6/1/2017 12:44", - "rightName" : "jr 7/4/2021 18:39", - "squotApplyTo:" : "jr 6/1/2017 12:44", - "squotApplyTo:with:" : "jr 6/12/2017 18:15", - "squotApplyToLoaded:" : "jr 6/16/2017 12:06", - "squotChangeAsStringOrText" : "jr 6/2/2017 15:33", - "squotHasChanges" : "jr 6/1/2017 12:44" } } diff --git a/src/Squot.package/SquotObjectReplacement.class/properties.json b/src/Squot.package/SquotObjectReplacement.class/properties.json deleted file mode 100644 index 0c66ae7b8..000000000 --- a/src/Squot.package/SquotObjectReplacement.class/properties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "category" : "Squot-Diffs", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotDiff classTrait + TSquotModification classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 12/13/2020 16:28", - "instvars" : [ - "left", - "right" ], - "name" : "SquotObjectReplacement", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotDiff + TSquotModification", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectShadow.class/README.md b/src/Squot.package/SquotObjectShadow.class/README.md deleted file mode 100644 index cf77863ea..000000000 --- a/src/Squot.package/SquotObjectShadow.class/README.md +++ /dev/null @@ -1,15 +0,0 @@ -I conserve an object for storage as part of a Snapshot. - -Instance Variables - originalClass: class of the conserved object - capturedClass: class that was actually captured (e. g. if the original object is replaced by a proxy) - slots: Holds the captured state of the object. Associations are subinstances of SquotShadowSlot. - -slots - - Stores the conserved objects that were bound to my object's variables. The keys are instance variable names or indices. The instance variables of all superclasses of my object's class are included (flattened hierarchy). - -originalClass - - Class of the object that I conserve. Used to rematerialize a new instance. - -capturedClass - - Some objects are not captured as-is, but replaced by a proxy. See the uses of DiskProxy for examples. The class of the proxy is stored in capturedClass. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/class/squotMirror.st b/src/Squot.package/SquotObjectShadow.class/class/squotMirror.st deleted file mode 100644 index 72bbdac42..000000000 --- a/src/Squot.package/SquotObjectShadow.class/class/squotMirror.st +++ /dev/null @@ -1,3 +0,0 @@ -reflecting -squotMirror - ^ SquotObjectShadowMirror new \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/addInstVarNamed.withValue.with..st b/src/Squot.package/SquotObjectShadow.class/instance/addInstVarNamed.withValue.with..st deleted file mode 100644 index 62b4c9854..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/addInstVarNamed.withValue.with..st +++ /dev/null @@ -1,6 +0,0 @@ -initialize-release -addInstVarNamed: aString withValue: anObject with: aCapturer - | slot | - self flag: #deprecated. "Use SquotObjectMirror>>initializeSnapshot:of: with: instead." - slot := SquotInstVarSlot key: aString value: nil. - slots add: (aCapturer capture: anObject asValueOfSlot: slot). \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/addInstVarSlot..st b/src/Squot.package/SquotObjectShadow.class/instance/addInstVarSlot..st deleted file mode 100644 index faa769e43..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/addInstVarSlot..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -addInstVarSlot: anInstVarSlot - slots add: anInstVarSlot. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/addVariablePartSlot..st b/src/Squot.package/SquotObjectShadow.class/instance/addVariablePartSlot..st deleted file mode 100644 index 1007caee5..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/addVariablePartSlot..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -addVariablePartSlot: aVariablePartSlot - slots add: aVariablePartSlot. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/addVariableSlotAt.withValue.with..st b/src/Squot.package/SquotObjectShadow.class/instance/addVariableSlotAt.withValue.with..st deleted file mode 100644 index 240f99f99..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/addVariableSlotAt.withValue.with..st +++ /dev/null @@ -1,6 +0,0 @@ -initialize-release -addVariableSlotAt: anInteger withValue: anObject with: aCapturer - | slot | - self flag: #deprecated. "Use SquotObjectMirror>>initializeSnapshot:of:with: instead." - slot := SquotVariablePartSlot key: anInteger value: nil. - slots add: (aCapturer capture: anObject asValueOfSlot: slot). \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/applyDiff..st b/src/Squot.package/SquotObjectShadow.class/instance/applyDiff..st deleted file mode 100644 index 62bfd8fe2..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/applyDiff..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -applyDiff: aDiff - ^ self copy privateApplyDiff: aDiff \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/applyDiff.with..st b/src/Squot.package/SquotObjectShadow.class/instance/applyDiff.with..st deleted file mode 100644 index ad44b9da4..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/applyDiff.with..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -applyDiff: aDiff with: aPatcher - ^ self copy privateApplyDiff: aDiff with: aPatcher \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/assumeOriginalClassOf..st b/src/Squot.package/SquotObjectShadow.class/instance/assumeOriginalClassOf..st deleted file mode 100644 index a5dbf9c87..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/assumeOriginalClassOf..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -assumeOriginalClassOf: anObject - originalClass := anObject class. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/basicSizeOfMaterializedInstance.st b/src/Squot.package/SquotObjectShadow.class/instance/basicSizeOfMaterializedInstance.st deleted file mode 100644 index db8324032..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/basicSizeOfMaterializedInstance.st +++ /dev/null @@ -1,3 +0,0 @@ -rematerializing -basicSizeOfMaterializedInstance - ^ ((self variableSlots detectMax: #index) ifNil: [^ 0]) index \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/captureWithSquot..st b/src/Squot.package/SquotObjectShadow.class/instance/captureWithSquot..st deleted file mode 100644 index 1f51758c5..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/captureWithSquot..st +++ /dev/null @@ -1,4 +0,0 @@ -forbid capturing -captureWithSquot: aContentCapturer - self flag: #deprecated. "Ask the mirror instead." - self shouldNotImplement. "or rather, should not be called" \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/capturedClass.st b/src/Squot.package/SquotObjectShadow.class/instance/capturedClass.st deleted file mode 100644 index 6d7039941..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/capturedClass.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -capturedClass - ^ capturedClass ifNil: [originalClass] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/diffClass.st b/src/Squot.package/SquotObjectShadow.class/instance/diffClass.st deleted file mode 100644 index e401bc865..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/diffClass.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -diffClass - ^ SquotObjectDiff \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/diffToBaseObjectShadow..st b/src/Squot.package/SquotObjectShadow.class/instance/diffToBaseObjectShadow..st deleted file mode 100644 index aea021d75..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/diffToBaseObjectShadow..st +++ /dev/null @@ -1,4 +0,0 @@ -comparing -diffToBaseObjectShadow: baseShadow - "Double dispatch" - ^ self diffClass left: baseShadow right: self \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/explorerContents.st b/src/Squot.package/SquotObjectShadow.class/instance/explorerContents.st deleted file mode 100644 index 936b36952..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/explorerContents.st +++ /dev/null @@ -1,7 +0,0 @@ -*Squot-Tools -explorerContents - ^ slots keysSortedSafely collect: - [:each | ObjectExplorerWrapper - with: (slots at: each) - name: each asString - model: self] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/hasContentsInExplorer.st b/src/Squot.package/SquotObjectShadow.class/instance/hasContentsInExplorer.st deleted file mode 100644 index b1024719d..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/hasContentsInExplorer.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -hasContentsInExplorer - - ^ slots notNil and: [slots isEmpty not] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/includesSlot..st b/src/Squot.package/SquotObjectShadow.class/instance/includesSlot..st deleted file mode 100644 index 0f0a61b5e..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/includesSlot..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -includesSlot: aKey - ^ slots includesKey: aKey \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/initialize.st b/src/Squot.package/SquotObjectShadow.class/instance/initialize.st deleted file mode 100644 index d5d308aef..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/initialize.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -initialize - slots := Dictionary new. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/initializeFrom.with..st b/src/Squot.package/SquotObjectShadow.class/instance/initializeFrom.with..st deleted file mode 100644 index 1220b62cc..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/initializeFrom.with..st +++ /dev/null @@ -1,6 +0,0 @@ -initialize-release -initializeFrom: anObject with: aCapturer - self flag: #deprecated. "Ask the mirror instead." - originalClass := anObject class. - capturedClass := anObject class. - anObject squotCaptureSlotsIn: self with: aCapturer. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/instVarSlotNamed..st b/src/Squot.package/SquotObjectShadow.class/instance/instVarSlotNamed..st deleted file mode 100644 index 1ccff3623..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/instVarSlotNamed..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -instVarSlotNamed: aString - ^ slots at: aString \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/name.st b/src/Squot.package/SquotObjectShadow.class/instance/name.st deleted file mode 100644 index 0157a5ed4..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/name.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -name - "Overridden to detect errors when asking for the names of shadows. - They should be added with a SquotNameDecorator, but this message got through to the undecorated shadow." - ^ self shouldNotImplement \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/originalClass.st b/src/Squot.package/SquotObjectShadow.class/instance/originalClass.st deleted file mode 100644 index b2e491cd2..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/originalClass.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -originalClass - ^ originalClass \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/postCopy.st b/src/Squot.package/SquotObjectShadow.class/instance/postCopy.st deleted file mode 100644 index 3d329f22c..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/postCopy.st +++ /dev/null @@ -1,3 +0,0 @@ -copying -postCopy - slots := slots copy. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/printOn..st b/src/Squot.package/SquotObjectShadow.class/instance/printOn..st deleted file mode 100644 index 92e28ab38..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/printOn..st +++ /dev/null @@ -1,3 +0,0 @@ -printing -printOn: aStream - aStream nextPutAll: 'shadow of a '; nextPutAll: capturedClass name. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/privateApplyDiff..st b/src/Squot.package/SquotObjectShadow.class/instance/privateApplyDiff..st deleted file mode 100644 index acf9d97cf..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/privateApplyDiff..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -privateApplyDiff: aSquotObjectDiff - aSquotObjectDiff applyTo: self. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/privateApplyDiff.with..st b/src/Squot.package/SquotObjectShadow.class/instance/privateApplyDiff.with..st deleted file mode 100644 index 0643e2a3b..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/privateApplyDiff.with..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -privateApplyDiff: aSquotObjectDiff with: aPatcher - aSquotObjectDiff applyTo: self with: aPatcher. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/reassignSlot.to..st b/src/Squot.package/SquotObjectShadow.class/instance/reassignSlot.to..st deleted file mode 100644 index acbed397f..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/reassignSlot.to..st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -reassignSlot: slotKey to: aShadow - (slots includesKey: slotKey) - ifTrue: [slots at: slotKey put: aShadow] - ifFalse: [self isThisEverCalled: 'would have to guess the slot type'] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/references.st b/src/Squot.package/SquotObjectShadow.class/instance/references.st deleted file mode 100644 index 4f5e1a9d8..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/references.st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -references - ^ slots associations collect: [:each | each asReference] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/removeInstVarNamed..st b/src/Squot.package/SquotObjectShadow.class/instance/removeInstVarNamed..st deleted file mode 100644 index cceb865f8..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/removeInstVarNamed..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -removeInstVarNamed: aString - "Create a partial snapshot by not capturing this instance variable any longer." - ^ slots removeKey: aString \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/removeVariablePartSlot..st b/src/Squot.package/SquotObjectShadow.class/instance/removeVariablePartSlot..st deleted file mode 100644 index 777be3e72..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/removeVariablePartSlot..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -removeVariablePartSlot: aVariablePartSlot - ^ slots removeKey: aVariablePartSlot key \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/sameIn.withName.ifAbsent..st b/src/Squot.package/SquotObjectShadow.class/instance/sameIn.withName.ifAbsent..st deleted file mode 100644 index 5ce25c247..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/sameIn.withName.ifAbsent..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -sameIn: aShadowGraph withName: aName ifAbsent: aBlock - ^ [aShadowGraph class squotMirror reflect: (SquotGraphElementWithName name: aName) of: aShadowGraph] on: KeyNotFound do: [:e | e return: aBlock value] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/setOriginalClass.capturedClass..st b/src/Squot.package/SquotObjectShadow.class/instance/setOriginalClass.capturedClass..st deleted file mode 100644 index 02f722817..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/setOriginalClass.capturedClass..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -setOriginalClass: origClass capturedClass: proxyClass - originalClass := origClass. - capturedClass := proxyClass. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/slots.st b/src/Squot.package/SquotObjectShadow.class/instance/slots.st deleted file mode 100644 index 1d49e2612..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/slots.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -slots - ^ slots \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/squotDiffAgainst..st b/src/Squot.package/SquotObjectShadow.class/instance/squotDiffAgainst..st deleted file mode 100644 index 92d2ae2cb..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/squotDiffAgainst..st +++ /dev/null @@ -1,4 +0,0 @@ -comparing -squotDiffAgainst: otherShadow - "Answer an object that describes the differences between me and otherMetaobject." - ^ otherShadow diffToBaseObjectShadow: self \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/squotDiffAgainst.with..st b/src/Squot.package/SquotObjectShadow.class/instance/squotDiffAgainst.with..st deleted file mode 100644 index 1aa753bd3..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/squotDiffAgainst.with..st +++ /dev/null @@ -1,7 +0,0 @@ -comparing -squotDiffAgainst: otherShadow with: aDiffBuilder - "Answer an object that describes the differences between me and otherShadow." - self deprecated: 'See SquotObjectShadowMirror newDiffFrom:to:'. - ^ aDiffBuilder diffFrom: self to: otherShadow - ifNew: [self diffClass new] - andInitialize: [:diff | diff diff: self against: otherShadow with: aDiffBuilder] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/squotMaterializeWith..st b/src/Squot.package/SquotObjectShadow.class/instance/squotMaterializeWith..st deleted file mode 100644 index f2f44b696..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/squotMaterializeWith..st +++ /dev/null @@ -1,6 +0,0 @@ -rematerializing -squotMaterializeWith: aMaterializer - "Answer a fresh object of the same class and with the same size as my original" - ^ capturedClass isVariable - ifTrue: [capturedClass basicNew: self basicSizeOfMaterializedInstance] - ifFalse: [capturedClass basicNew] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/squotMergeWith.basedOn..st b/src/Squot.package/SquotObjectShadow.class/instance/squotMergeWith.basedOn..st deleted file mode 100644 index 80fd7d107..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/squotMergeWith.basedOn..st +++ /dev/null @@ -1,6 +0,0 @@ -merging -squotMergeWith: incomingObjectShadow basedOn: baseObjectShadow - ^ SquotObjectShadowMerge - into: self - merge: incomingObjectShadow - basedOn: baseObjectShadow \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/squotOutgoingReferences.st b/src/Squot.package/SquotObjectShadow.class/instance/squotOutgoingReferences.st deleted file mode 100644 index 37ebe0ffd..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/squotOutgoingReferences.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -squotOutgoingReferences - ^ slots associations \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/variablePartSlotWithIndex..st b/src/Squot.package/SquotObjectShadow.class/instance/variablePartSlotWithIndex..st deleted file mode 100644 index 67823ea88..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/variablePartSlotWithIndex..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -variablePartSlotWithIndex: anInteger - ^ slots at: anInteger \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/instance/variableSlots.st b/src/Squot.package/SquotObjectShadow.class/instance/variableSlots.st deleted file mode 100644 index b2360fb37..000000000 --- a/src/Squot.package/SquotObjectShadow.class/instance/variableSlots.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -variableSlots - ^ slots associations select: [:each | each isMemberOf: SquotVariablePartSlot] \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadow.class/methodProperties.json b/src/Squot.package/SquotObjectShadow.class/methodProperties.json deleted file mode 100644 index 257c8992d..000000000 --- a/src/Squot.package/SquotObjectShadow.class/methodProperties.json +++ /dev/null @@ -1,42 +0,0 @@ -{ - "class" : { - "squotMirror" : "jr 1/16/2021 11:31" }, - "instance" : { - "addInstVarNamed:withValue:with:" : "jr 1/17/2021 15:33", - "addInstVarSlot:" : "jr 7/16/2017 00:34", - "addVariablePartSlot:" : "jr 7/20/2017 22:42", - "addVariableSlotAt:withValue:with:" : "jr 1/17/2021 15:33", - "applyDiff:" : "jr 9/23/2019 23:17", - "applyDiff:with:" : "jr 7/15/2017 23:58", - "assumeOriginalClassOf:" : "jr 7/20/2017 17:45", - "basicSizeOfMaterializedInstance" : "jr 7/16/2017 22:37", - "captureWithSquot:" : "jr 1/11/2021 00:01", - "capturedClass" : "jr 7/20/2017 18:01", - "diffClass" : "jr 6/17/2017 22:19", - "diffToBaseObjectShadow:" : "jr 9/16/2019 21:09", - "explorerContents" : "jr 12/30/2019 00:38", - "hasContentsInExplorer" : "jr 2/23/2020 20:24", - "includesSlot:" : "jr 6/17/2017 23:05", - "initialize" : "jr 8/11/2017 14:59", - "initializeFrom:with:" : "jr 1/11/2021 00:08", - "instVarSlotNamed:" : "jr 7/16/2017 15:35", - "name" : "jr 7/16/2017 19:24", - "originalClass" : "jr 6/12/2017 18:45", - "postCopy" : "jr 8/11/2017 14:59", - "printOn:" : "jr 7/20/2017 18:05", - "privateApplyDiff:" : "jr 9/23/2019 23:18", - "privateApplyDiff:with:" : "jr 7/16/2017 00:29", - "reassignSlot:to:" : "jr 7/16/2017 01:47", - "references" : "jr 4/10/2021 12:23", - "removeInstVarNamed:" : "jr 9/9/2017 14:22", - "removeVariablePartSlot:" : "jr 7/20/2017 22:49", - "sameIn:withName:ifAbsent:" : "jr 9/11/2021 00:08", - "setOriginalClass:capturedClass:" : "jr 1/10/2021 23:45", - "slots" : "jr 6/17/2017 23:01", - "squotDiffAgainst:" : "jr 9/16/2019 21:45", - "squotDiffAgainst:with:" : "jr 7/30/2021 19:50", - "squotMaterializeWith:" : "jr 7/18/2021 01:04", - "squotMergeWith:basedOn:" : "jr 8/29/2019 21:18", - "squotOutgoingReferences" : "jr 8/31/2019 19:42", - "variablePartSlotWithIndex:" : "jr 7/16/2017 15:36", - "variableSlots" : "jr 6/18/2017 12:07" } } diff --git a/src/Squot.package/SquotObjectShadow.class/properties.json b/src/Squot.package/SquotObjectShadow.class/properties.json deleted file mode 100644 index b8c11cefc..000000000 --- a/src/Squot.package/SquotObjectShadow.class/properties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "category" : "Squot-Shadows", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotDiffableShadow classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 9/13/2020 16:34", - "instvars" : [ - "originalClass", - "capturedClass", - "slots" ], - "name" : "SquotObjectShadow", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotDiffableShadow", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectShadowMerge.class/README.md b/src/Squot.package/SquotObjectShadowMerge.class/README.md deleted file mode 100644 index ac4e93411..000000000 --- a/src/Squot.package/SquotObjectShadowMerge.class/README.md +++ /dev/null @@ -1 +0,0 @@ -Three-way merge of SquotObjectShadows. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadowMerge.class/instance/chooseIncoming.st b/src/Squot.package/SquotObjectShadowMerge.class/instance/chooseIncoming.st deleted file mode 100644 index 4ac02a3fc..000000000 --- a/src/Squot.package/SquotObjectShadowMerge.class/instance/chooseIncoming.st +++ /dev/null @@ -1,4 +0,0 @@ -merging -chooseIncoming - choice := #incoming. - self flag: #stub. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadowMerge.class/instance/chooseWorking.st b/src/Squot.package/SquotObjectShadowMerge.class/instance/chooseWorking.st deleted file mode 100644 index 60ef35dc3..000000000 --- a/src/Squot.package/SquotObjectShadowMerge.class/instance/chooseWorking.st +++ /dev/null @@ -1,4 +0,0 @@ -merging -chooseWorking - choice := #working. - self flag: #stub. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadowMerge.class/instance/computeDifferences.st b/src/Squot.package/SquotObjectShadowMerge.class/instance/computeDifferences.st deleted file mode 100644 index 49e5c1d21..000000000 --- a/src/Squot.package/SquotObjectShadowMerge.class/instance/computeDifferences.st +++ /dev/null @@ -1,46 +0,0 @@ -private -computeDifferences - "Only note the differences in my references, do not engage in comparisons of the - referenced objects. This must be managed by the SquotObjectGraphMerge that contains - me." - self flag: #encapsulation. "knows about the structure of slots (keys)" - self flag: SquotNameDecorator. "relies on object name decorations" - working slots keys do: - [:each | | workingValue incomingValue baseValue | - workingValue := working slots at: each. - incomingValue := incoming slots at: each ifAbsent: []. - baseValue := base slots at: each ifAbsent: []. - incomingValue - ifNotNil: - [((workingValue hasSquotShadowName and: [incomingValue hasSquotShadowName]) or: [workingValue canHaveNameAssignedBySquot not and: [incomingValue canHaveNameAssignedBySquot not]]) ifFalse: [self notYetImplemented "for value objects, such as Point"]. - workingValue name = incomingValue name ifFalse: - [incomingValue name = baseValue name - ifTrue: ["working modification, do nothing (could have deep changes though)"] - ifFalse: [workingValue name = baseValue name - ifTrue: ["incoming modification (could have deep changes though)" - containerModifications at: each put: - (SquotSlotReassignment key: each - leftShadow: (working slots at: each) - rightShadow: (incoming slots at: each))] - ifFalse: ["conflicting modification" - containerConflicts at: each put: - (SquotObjectReferenceConflict new - key: (working slots associationAt: each) asReference; - base: (base slots associationAt: each); - working: (working slots at: each); - incoming: (incoming slots at: each); - yourself)]]]] - ifNil: - [(working slots at: each) name = baseValue name - ifTrue: ["incoming removal" self notYetImplemented] - ifFalse: ["conflicting removal" self notYetImplemented]]]. - (incoming slots keys copyWithoutAll: working slots keys) do: - [:each | | incomingValue baseValue | - incomingValue := incoming slots at: each ifAbsent: []. - baseValue := base slots at: each ifAbsent: []. - baseValue - ifNil: ["incoming addition" self notYetImplemented] - ifNotNil: - [incomingValue name = baseValue name - ifTrue: ["working removal, do nothing (could have deep changes though)"] - ifFalse: ["conflicting modification" self notYetImplemented]]]. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadowMerge.class/instance/hasChanges.st b/src/Squot.package/SquotObjectShadowMerge.class/instance/hasChanges.st deleted file mode 100644 index 17ca9b461..000000000 --- a/src/Squot.package/SquotObjectShadowMerge.class/instance/hasChanges.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -hasChanges - choice = #working ifTrue: [^ false]. - ^ super hasChanges \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadowMerge.class/instance/initializeSquotDiffNodes.with..st b/src/Squot.package/SquotObjectShadowMerge.class/instance/initializeSquotDiffNodes.with..st deleted file mode 100644 index 83e7a526f..000000000 --- a/src/Squot.package/SquotObjectShadowMerge.class/instance/initializeSquotDiffNodes.with..st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -initializeSquotDiffNodes: aCollection with: aSquotDiffTreeBuilder - self flag: #stub. - "Leave nodes as they are for now. Later add children nodes or augment the titles?" \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadowMerge.class/instance/newSquotDiffNodes.st b/src/Squot.package/SquotObjectShadowMerge.class/instance/newSquotDiffNodes.st deleted file mode 100644 index 2e0aeb832..000000000 --- a/src/Squot.package/SquotObjectShadowMerge.class/instance/newSquotDiffNodes.st +++ /dev/null @@ -1,42 +0,0 @@ -*Squot-Tools -newSquotDiffNodes - | nodes | - nodes := OrderedCollection new. - containerModifications keysAndValuesDo: - [:key :each | - nodes add: - (SquotDiffNode - title: key asString - content: each - children: #() - onInclude: [self chooseIncoming] - onExclude: [self chooseWorking])]. - containerConflicts keysAndValuesDo: - [:key :each | - nodes add: - (SquotMergeDiffNode - title: key asString - content: each - children: #() - onInclude: [self chooseIncoming] - onExclude: [self chooseWorking] - onReset: [self resetChoice])]. - elementMerges keysAndValuesDo: - [:key :each | - nodes add: (each hasConflicts - ifTrue: - [SquotMergeDiffNode - title: key asString - content: each - children: #() - onInclude: [self chooseIncoming] - onExclude: [self chooseWorking] - onReset: [self resetChoice]] - ifFalse: - [SquotDiffNode - title: key asString - content: each - children: #() - onInclude: [self chooseIncoming] - onExclude: [self chooseWorking]])]. - ^ nodes \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadowMerge.class/instance/printOn..st b/src/Squot.package/SquotObjectShadowMerge.class/instance/printOn..st deleted file mode 100644 index 6ed6ec167..000000000 --- a/src/Squot.package/SquotObjectShadowMerge.class/instance/printOn..st +++ /dev/null @@ -1,6 +0,0 @@ -printing -printOn: aStream - super printOn: aStream. - aStream space; - nextPutAll: ' of '; - print: self object. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadowMerge.class/instance/privateResolvedPatch.st b/src/Squot.package/SquotObjectShadowMerge.class/instance/privateResolvedPatch.st deleted file mode 100644 index 580b7c27e..000000000 --- a/src/Squot.package/SquotObjectShadowMerge.class/instance/privateResolvedPatch.st +++ /dev/null @@ -1,10 +0,0 @@ -private -privateResolvedPatch - | modifiedWorking mirror | - choice = #working ifTrue: [^ SquotDiffOfEqualObjects instance]. - "Compare with a patched version of the working copy object, but only with the modifications remaining that were not removed." - modifiedWorking := working copy. - mirror := (modifiedWorking flag: #stub; class) squotMirror. - containerModifications do: [:each | each applyTo: modifiedWorking]. - containerConflicts do: [:each | each resolution squotReflectOn: modifiedWorking in: mirror]. - ^ working squotDiffAgainst: modifiedWorking \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadowMerge.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotObjectShadowMerge.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index 6f224fb57..000000000 --- a/src/Squot.package/SquotObjectShadowMerge.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,20 +0,0 @@ -*Squot-Tools -squotChangeAsStringOrText - | text | - text := WriteStream on: (Text new: 30). - containerConflicts ifNotEmpty: - [text nextPutAll: ('Conflicts: - -' asText addAttribute: TextEmphasis italic). - containerConflicts do: [:each | text nextPutAll: each squotChangeAsStringOrText; cr]]. - containerModifications ifNotEmpty: - [text nextPutAll: ('Modifications: - -' asText addAttribute: TextEmphasis italic). - containerModifications do: [:each | text nextPutAll: each squotChangeAsStringOrText; cr]]. - elementMerges ifNotEmpty: - [text nextPutAll: ('Merges: - -' asText addAttribute: TextEmphasis italic). - elementMerges do: [:each | text nextPutAll: each squotChangeAsStringOrText; cr]]. - ^ text contents \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadowMerge.class/methodProperties.json b/src/Squot.package/SquotObjectShadowMerge.class/methodProperties.json deleted file mode 100644 index b99e7e10b..000000000 --- a/src/Squot.package/SquotObjectShadowMerge.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "chooseIncoming" : "jr 11/1/2020 19:20", - "chooseWorking" : "jr 11/1/2020 19:18", - "computeDifferences" : "jr 6/29/2022 00:34", - "hasChanges" : "jr 6/28/2022 23:21", - "initializeSquotDiffNodes:with:" : "jr 11/1/2020 19:08", - "newSquotDiffNodes" : "jr 11/1/2020 19:19", - "printOn:" : "jr 8/31/2019 19:38", - "privateResolvedPatch" : "jr 6/28/2022 23:34", - "squotChangeAsStringOrText" : "jr 11/1/2020 19:16" } } diff --git a/src/Squot.package/SquotObjectShadowMerge.class/properties.json b/src/Squot.package/SquotObjectShadowMerge.class/properties.json deleted file mode 100644 index a89ee5c5e..000000000 --- a/src/Squot.package/SquotObjectShadowMerge.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Merging", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 9/20/2019 21:52", - "instvars" : [ - "choice" ], - "name" : "SquotObjectShadowMerge", - "pools" : [ - ], - "super" : "SquotAbstractCollectionMerge", - "type" : "normal" } diff --git a/src/Squot.package/SquotObjectShadowMirror.class/README.md b/src/Squot.package/SquotObjectShadowMirror.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotObjectShadowMirror.class/class/class..st b/src/Squot.package/SquotObjectShadowMirror.class/class/class..st deleted file mode 100644 index 540ff49a8..000000000 --- a/src/Squot.package/SquotObjectShadowMirror.class/class/class..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -class: aClass - ^ self new \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadowMirror.class/instance/^equals.st b/src/Squot.package/SquotObjectShadowMirror.class/instance/^equals.st deleted file mode 100644 index c893b6e41..000000000 --- a/src/Squot.package/SquotObjectShadowMirror.class/instance/^equals.st +++ /dev/null @@ -1,9 +0,0 @@ -comparing -= anObject - "Answer whether the receiver and anObject represent the same object." - - self == anObject - ifTrue: [^ true]. - self class = anObject class - ifFalse: [^ false]. - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadowMirror.class/instance/canHaveReferences..st b/src/Squot.package/SquotObjectShadowMirror.class/instance/canHaveReferences..st deleted file mode 100644 index e5da5b0ed..000000000 --- a/src/Squot.package/SquotObjectShadowMirror.class/instance/canHaveReferences..st +++ /dev/null @@ -1,8 +0,0 @@ -testing -canHaveReferences: aSquotObjectShadow - | class | - class := aSquotObjectShadow originalClass. - class isImmediateClass ifTrue: [^ false]. - class isVariable ifTrue: [^ true]. - (class squotMirror isKindOf: SquotSystemSingletonMirror) ifTrue: [^ false]. - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadowMirror.class/instance/capture.with.ifReplaced..st b/src/Squot.package/SquotObjectShadowMirror.class/instance/capture.with.ifReplaced..st deleted file mode 100644 index 1df56409b..000000000 --- a/src/Squot.package/SquotObjectShadowMirror.class/instance/capture.with.ifReplaced..st +++ /dev/null @@ -1,3 +0,0 @@ -capturing -capture: anObject with: aSquotObjectCapturer ifReplaced: aBlock - self shouldNotImplement. "Shadows should not be captured again. They are snapshots already." \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadowMirror.class/instance/captureReferences.from.reflectedIn.into.with..st b/src/Squot.package/SquotObjectShadowMirror.class/instance/captureReferences.from.reflectedIn.into.with..st deleted file mode 100644 index f32cd77a5..000000000 --- a/src/Squot.package/SquotObjectShadowMirror.class/instance/captureReferences.from.reflectedIn.into.with..st +++ /dev/null @@ -1,14 +0,0 @@ -capturing -captureReferences: aCollection from: anObject reflectedIn: aMirror into: anObjectShadow with: aCapturer - aCollection do: - [:each | | captured | - captured := each asCapturedReference. - captured reflect: anObjectShadow in: self put: nil. - aCapturer - capture: (each reflect: anObject in: aMirror) - asValueOf: each - from: anObject - reflectedIn: aMirror - intoValueOf: captured - from: anObjectShadow - reflectedIn: self]. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadowMirror.class/instance/hash.st b/src/Squot.package/SquotObjectShadowMirror.class/instance/hash.st deleted file mode 100644 index b73dc68bc..000000000 --- a/src/Squot.package/SquotObjectShadowMirror.class/instance/hash.st +++ /dev/null @@ -1,5 +0,0 @@ -comparing -hash - "Answer an integer value that is related to the identity of the receiver." - - ^ self theClass hash. \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadowMirror.class/instance/is.comparableTo..st b/src/Squot.package/SquotObjectShadowMirror.class/instance/is.comparableTo..st deleted file mode 100644 index 5f2b0b21b..000000000 --- a/src/Squot.package/SquotObjectShadowMirror.class/instance/is.comparableTo..st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -is: aSquotObjectShadow comparableTo: aSquotObjectShadow2 - ^ aSquotObjectShadow capturedClass = aSquotObjectShadow2 capturedClass \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadowMirror.class/instance/newDiffFrom.to..st b/src/Squot.package/SquotObjectShadowMirror.class/instance/newDiffFrom.to..st deleted file mode 100644 index a7cdad419..000000000 --- a/src/Squot.package/SquotObjectShadowMirror.class/instance/newDiffFrom.to..st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -newDiffFrom: aSquotObjectShadow to: aSquotObjectShadow2 - ^ aSquotObjectShadow diffClass new \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadowMirror.class/instance/newShadowObject.st b/src/Squot.package/SquotObjectShadowMirror.class/instance/newShadowObject.st deleted file mode 100644 index de7ad5f10..000000000 --- a/src/Squot.package/SquotObjectShadowMirror.class/instance/newShadowObject.st +++ /dev/null @@ -1,4 +0,0 @@ -capturing -newShadowObject - "Do not create shadows of shadows." - self shouldNotImplement \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadowMirror.class/instance/referencesFrom..st b/src/Squot.package/SquotObjectShadowMirror.class/instance/referencesFrom..st deleted file mode 100644 index c5c6e6037..000000000 --- a/src/Squot.package/SquotObjectShadowMirror.class/instance/referencesFrom..st +++ /dev/null @@ -1,3 +0,0 @@ -enumerating -referencesFrom: anObjectShadow - ^ anObjectShadow references \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadowMirror.class/instance/reflectIndexableField.in..st b/src/Squot.package/SquotObjectShadowMirror.class/instance/reflectIndexableField.in..st deleted file mode 100644 index 9c3d3b22c..000000000 --- a/src/Squot.package/SquotObjectShadowMirror.class/instance/reflectIndexableField.in..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflectIndexableField: anIndexableField in: aShadow - ^ aShadow variablePartSlotWithIndex: anIndexableField index \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadowMirror.class/instance/reflectIndexableField.in.put..st b/src/Squot.package/SquotObjectShadowMirror.class/instance/reflectIndexableField.in.put..st deleted file mode 100644 index 2b20bcf33..000000000 --- a/src/Squot.package/SquotObjectShadowMirror.class/instance/reflectIndexableField.in.put..st +++ /dev/null @@ -1,4 +0,0 @@ -reflection -reflectIndexableField: anIndexableField in: anObjectShadow put: newValue - anObjectShadow addVariablePartSlot: (SquotVariablePartSlot key: anIndexableField index value: newValue). - ^ newValue \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadowMirror.class/instance/reflectInstanceVariable.in..st b/src/Squot.package/SquotObjectShadowMirror.class/instance/reflectInstanceVariable.in..st deleted file mode 100644 index 56b7896cd..000000000 --- a/src/Squot.package/SquotObjectShadowMirror.class/instance/reflectInstanceVariable.in..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflectInstanceVariable: anInstanceVariable in: anObjectShadow - ^ anObjectShadow instVarSlotNamed: anInstanceVariable name \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadowMirror.class/instance/reflectInstanceVariable.in.put..st b/src/Squot.package/SquotObjectShadowMirror.class/instance/reflectInstanceVariable.in.put..st deleted file mode 100644 index 2218aaedc..000000000 --- a/src/Squot.package/SquotObjectShadowMirror.class/instance/reflectInstanceVariable.in.put..st +++ /dev/null @@ -1,4 +0,0 @@ -reflection -reflectInstanceVariable: anInstanceVariable in: anObjectShadow put: newValue - anObjectShadow addInstVarSlot: (SquotInstVarSlot key: anInstanceVariable name value: newValue). - ^ newValue \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadowMirror.class/instance/shouldObjectHaveNameAssigned..st b/src/Squot.package/SquotObjectShadowMirror.class/instance/shouldObjectHaveNameAssigned..st deleted file mode 100644 index 437aa90e3..000000000 --- a/src/Squot.package/SquotObjectShadowMirror.class/instance/shouldObjectHaveNameAssigned..st +++ /dev/null @@ -1,4 +0,0 @@ -testing -shouldObjectHaveNameAssigned: anObject - self flag: #stub. - ^ anObject shouldHaveNameAssignedBySquot \ No newline at end of file diff --git a/src/Squot.package/SquotObjectShadowMirror.class/methodProperties.json b/src/Squot.package/SquotObjectShadowMirror.class/methodProperties.json deleted file mode 100644 index 8eb8ba713..000000000 --- a/src/Squot.package/SquotObjectShadowMirror.class/methodProperties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "class" : { - "class:" : "jr 8/7/2022 19:18" }, - "instance" : { - "=" : "jr 7/18/2021 20:08", - "canHaveReferences:" : "jr 7/18/2021 22:23", - "capture:with:ifReplaced:" : "jr 7/17/2021 23:58", - "captureReferences:from:reflectedIn:into:with:" : "jr 4/8/2021 21:23", - "hash" : "jr 12/15/2020 23:33", - "is:comparableTo:" : "jr 7/18/2021 20:10", - "newDiffFrom:to:" : "jr 7/30/2021 19:18", - "newShadowObject" : "jr 4/3/2021 21:00", - "referencesFrom:" : "jr 4/10/2021 12:23", - "reflectIndexableField:in:" : "jr 4/10/2021 16:15", - "reflectIndexableField:in:put:" : "jr 1/16/2021 11:40", - "reflectInstanceVariable:in:" : "jr 4/10/2021 12:28", - "reflectInstanceVariable:in:put:" : "jr 1/17/2021 22:31", - "shouldObjectHaveNameAssigned:" : "jr 1/10/2021 21:49" } } diff --git a/src/Squot.package/SquotObjectShadowMirror.class/properties.json b/src/Squot.package/SquotObjectShadowMirror.class/properties.json deleted file mode 100644 index 0770eeec2..000000000 --- a/src/Squot.package/SquotObjectShadowMirror.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotObjectShadowMirror", - "pools" : [ - ], - "super" : "SquotMirror", - "type" : "normal" } diff --git a/src/Squot.package/SquotOpaqueValueMirror.class/README.md b/src/Squot.package/SquotOpaqueValueMirror.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotOpaqueValueMirror.class/instance/^equals.st b/src/Squot.package/SquotOpaqueValueMirror.class/instance/^equals.st deleted file mode 100644 index 271d24e7c..000000000 --- a/src/Squot.package/SquotOpaqueValueMirror.class/instance/^equals.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -= anObject - ^ anObject isMemberOf: self class \ No newline at end of file diff --git a/src/Squot.package/SquotOpaqueValueMirror.class/instance/canHaveReferences..st b/src/Squot.package/SquotOpaqueValueMirror.class/instance/canHaveReferences..st deleted file mode 100644 index 190003341..000000000 --- a/src/Squot.package/SquotOpaqueValueMirror.class/instance/canHaveReferences..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -canHaveReferences: anObject - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotOpaqueValueMirror.class/instance/capture.with.ifReplaced..st b/src/Squot.package/SquotOpaqueValueMirror.class/instance/capture.with.ifReplaced..st deleted file mode 100644 index 480490656..000000000 --- a/src/Squot.package/SquotOpaqueValueMirror.class/instance/capture.with.ifReplaced..st +++ /dev/null @@ -1,3 +0,0 @@ -capturing -capture: anObject with: aSquotObjectCapturer ifReplaced: aBlock - ^ SquotPrimitiveValue for: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotOpaqueValueMirror.class/instance/hash.st b/src/Squot.package/SquotOpaqueValueMirror.class/instance/hash.st deleted file mode 100644 index 4482adb9a..000000000 --- a/src/Squot.package/SquotOpaqueValueMirror.class/instance/hash.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -hash - ^ self class hash \ No newline at end of file diff --git a/src/Squot.package/SquotOpaqueValueMirror.class/instance/is.comparableTo..st b/src/Squot.package/SquotOpaqueValueMirror.class/instance/is.comparableTo..st deleted file mode 100644 index edd00331a..000000000 --- a/src/Squot.package/SquotOpaqueValueMirror.class/instance/is.comparableTo..st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -is: anObject comparableTo: anotherObject - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotOpaqueValueMirror.class/instance/newDiffFrom.to..st b/src/Squot.package/SquotOpaqueValueMirror.class/instance/newDiffFrom.to..st deleted file mode 100644 index de1c7e45f..000000000 --- a/src/Squot.package/SquotOpaqueValueMirror.class/instance/newDiffFrom.to..st +++ /dev/null @@ -1,4 +0,0 @@ -comparing -newDiffFrom: aSquotPrimitiveValue to: aSquotPrimitiveValue2 - "Usually this is only called when comparing two SquotTrackedObjectMetadata values. This answer may not actually be correct in that case, but SquotTrackedObjectMetadata does not use the diffs returned from here anyway, so better use a singleton instead of creating an accurate wasted diff." - ^ SquotDiffOfEqualObjects instance \ No newline at end of file diff --git a/src/Squot.package/SquotOpaqueValueMirror.class/instance/referencesFrom..st b/src/Squot.package/SquotOpaqueValueMirror.class/instance/referencesFrom..st deleted file mode 100644 index 39d619004..000000000 --- a/src/Squot.package/SquotOpaqueValueMirror.class/instance/referencesFrom..st +++ /dev/null @@ -1,4 +0,0 @@ -enumerating -referencesFrom: anObject - "Since it is treated as opaque, pretend that are no references." - ^ #() \ No newline at end of file diff --git a/src/Squot.package/SquotOpaqueValueMirror.class/instance/shouldObjectHaveNameAssigned..st b/src/Squot.package/SquotOpaqueValueMirror.class/instance/shouldObjectHaveNameAssigned..st deleted file mode 100644 index f7845f66e..000000000 --- a/src/Squot.package/SquotOpaqueValueMirror.class/instance/shouldObjectHaveNameAssigned..st +++ /dev/null @@ -1,4 +0,0 @@ -testing -shouldObjectHaveNameAssigned: anObject - "Since this is supposed to be a value, do not assign an identifier." - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotOpaqueValueMirror.class/methodProperties.json b/src/Squot.package/SquotOpaqueValueMirror.class/methodProperties.json deleted file mode 100644 index c9efec51d..000000000 --- a/src/Squot.package/SquotOpaqueValueMirror.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "=" : "jr 4/8/2021 20:17", - "canHaveReferences:" : "jr 7/18/2021 22:35", - "capture:with:ifReplaced:" : "jr 7/17/2021 23:58", - "hash" : "jr 4/8/2021 20:16", - "is:comparableTo:" : "jr 7/18/2021 20:14", - "newDiffFrom:to:" : "jr 8/8/2021 17:30", - "referencesFrom:" : "jr 4/8/2021 20:14", - "shouldObjectHaveNameAssigned:" : "jr 4/8/2021 20:15" } } diff --git a/src/Squot.package/SquotOpaqueValueMirror.class/properties.json b/src/Squot.package/SquotOpaqueValueMirror.class/properties.json deleted file mode 100644 index f5681a39e..000000000 --- a/src/Squot.package/SquotOpaqueValueMirror.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotOpaqueValueMirror", - "pools" : [ - ], - "super" : "SquotMirror", - "type" : "normal" } diff --git a/src/Squot.package/SquotPackageAutotrackingTest.class/README.md b/src/Squot.package/SquotPackageAutotrackingTest.class/README.md deleted file mode 100644 index cae622ecc..000000000 --- a/src/Squot.package/SquotPackageAutotrackingTest.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I test how working copies automatically start tracking objects in certain cases. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageAutotrackingTest.class/instance/initializePackage.st b/src/Squot.package/SquotPackageAutotrackingTest.class/instance/initializePackage.st deleted file mode 100644 index a82b856b4..000000000 --- a/src/Squot.package/SquotPackageAutotrackingTest.class/instance/initializePackage.st +++ /dev/null @@ -1,5 +0,0 @@ -tests -initializePackage - SystemChangeNotifier uniqueInstance doSilently: [class := classFactory newClass]. - class compileSilently: 'a ^ 1'. - package := PackageInfo named: class category. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageAutotrackingTest.class/instance/packagePath.st b/src/Squot.package/SquotPackageAutotrackingTest.class/instance/packagePath.st deleted file mode 100644 index 10e0df960..000000000 --- a/src/Squot.package/SquotPackageAutotrackingTest.class/instance/packagePath.st +++ /dev/null @@ -1,4 +0,0 @@ -tests -packagePath - ^ path ifNil: - [(workingCopy store pathsOf: package) anyOne] \ No newline at end of file diff --git a/src/Squot.package/SquotPackageAutotrackingTest.class/instance/savePackage.st b/src/Squot.package/SquotPackageAutotrackingTest.class/instance/savePackage.st deleted file mode 100644 index 3e82d03e1..000000000 --- a/src/Squot.package/SquotPackageAutotrackingTest.class/instance/savePackage.st +++ /dev/null @@ -1,4 +0,0 @@ -tests -savePackage - self savePackageAndKeep. - workingCopy removePackageNamed: package name. "untrack again" \ No newline at end of file diff --git a/src/Squot.package/SquotPackageAutotrackingTest.class/instance/savePackageAndKeep.st b/src/Squot.package/SquotPackageAutotrackingTest.class/instance/savePackageAndKeep.st deleted file mode 100644 index 4cd10154c..000000000 --- a/src/Squot.package/SquotPackageAutotrackingTest.class/instance/savePackageAndKeep.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -savePackageAndKeep - self initializePackage; - trackPackage. - workingCopy saveVersionWithMessage: 'version with package'. - path := self packagePath. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageAutotrackingTest.class/instance/setUp.st b/src/Squot.package/SquotPackageAutotrackingTest.class/instance/setUp.st deleted file mode 100644 index 614c3f7a2..000000000 --- a/src/Squot.package/SquotPackageAutotrackingTest.class/instance/setUp.st +++ /dev/null @@ -1,5 +0,0 @@ -running -setUp - super setUp. - classFactory := ClassFactoryForTestCase new. - path := nil. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageAutotrackingTest.class/instance/tearDown.st b/src/Squot.package/SquotPackageAutotrackingTest.class/instance/tearDown.st deleted file mode 100644 index f210ccdac..000000000 --- a/src/Squot.package/SquotPackageAutotrackingTest.class/instance/tearDown.st +++ /dev/null @@ -1,4 +0,0 @@ -running -tearDown - SystemChangeNotifier uniqueInstance doSilently: [classFactory cleanUp]. - super tearDown. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageAutotrackingTest.class/instance/testPackageTrackedAutomaticallyOnLoad.st b/src/Squot.package/SquotPackageAutotrackingTest.class/instance/testPackageTrackedAutomaticallyOnLoad.st deleted file mode 100644 index e4f580ee0..000000000 --- a/src/Squot.package/SquotPackageAutotrackingTest.class/instance/testPackageTrackedAutomaticallyOnLoad.st +++ /dev/null @@ -1,24 +0,0 @@ -tests -testPackageTrackedAutomaticallyOnLoad - "When a version with a certain package is loaded and that package is already in the - image, the patch should show that the package is being modified, not added." - "given" - self savePackage. - class compileSilently: 'a ^ 2'. "to be reverted by load" - self deny: (workingCopy includesObject: package) description: 'not untracked after setup'. - "when" - [workingCopy loadVersion: workingCopy loadedHistorian version interactive: true] - "then" - on: SquotSelectionOfChangesRequested do: - [:request | - self assert: (workingCopy includesObjectAt: path) - description: 'not automatically tracked'; - assert: (request patch includesDiffAt: path) - description: 'diff of package is missing'; - deny: (request patch diffAt: path) isAddition - description: 'is addition instead of modification'; - assert: (request patch diffAt: path) content startDiff operations size = 1 - description: ['expected only 1 change, but were ', (request patch diffAt: path) content startDiff operations size]. - request return "abort load"]. - self assert: (workingCopy objectAt: path) = package - description: 'package was not tracked automatically'. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageAutotrackingTest.class/instance/testSwitchAndMoveOverDoesNotDiscardChangesToUntrackedPackage.st b/src/Squot.package/SquotPackageAutotrackingTest.class/instance/testSwitchAndMoveOverDoesNotDiscardChangesToUntrackedPackage.st deleted file mode 100644 index d00921fa3..000000000 --- a/src/Squot.package/SquotPackageAutotrackingTest.class/instance/testSwitchAndMoveOverDoesNotDiscardChangesToUntrackedPackage.st +++ /dev/null @@ -1,20 +0,0 @@ -tests -testSwitchAndMoveOverDoesNotDiscardChangesToUntrackedPackage - "When switching (back) to a version that already contains a loaded package, do not silently discard any changes made to that package while it was not tracked." - | mainBranch otherBranch | - "given" - workingCopy saveVersionWithMessage: 'empty base version'. - mainBranch := workingCopy loadedHistorian. - (otherBranch := repository historianNamed: 'other') version: workingCopy baseVersion. - self savePackageAndKeep. - self deny: (workingCopy patchRelativeToBase: workingCopy baseVersion) hasChanges. - workingCopy switchTo: otherBranch. - self deny: (workingCopy includesObjectAt: path). - class compileSilently: 'b ^ 2'. "Not a conflict with the saved version of the package" - "when" - [workingCopy switchAndMoveUnsavedChangesOverTo: mainBranch] - "then" - on: SquotMergeRequested do: - [:request | self fail: 'Should not have prompted a merge']. - self assert: 2 equals: class new b description: 'Unsaved change still loaded'; - assert: (workingCopy objectAt: path) = package description: 'should track package again'. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageAutotrackingTest.class/instance/testSwitchDoesNotDiscardChangesToUntrackedPackage.st b/src/Squot.package/SquotPackageAutotrackingTest.class/instance/testSwitchDoesNotDiscardChangesToUntrackedPackage.st deleted file mode 100644 index dbf15cfdc..000000000 --- a/src/Squot.package/SquotPackageAutotrackingTest.class/instance/testSwitchDoesNotDiscardChangesToUntrackedPackage.st +++ /dev/null @@ -1,28 +0,0 @@ -tests -testSwitchDoesNotDiscardChangesToUntrackedPackage - "When switching (back) to a version that already contains a loaded package, do not silently discard any changes made to that package while it was not tracked." - | mainBranch otherBranch mergePrompted | - "given" - workingCopy saveVersionWithMessage: 'empty base version'. - mainBranch := workingCopy loadedHistorian. - (otherBranch := repository historianNamed: 'other') version: workingCopy baseVersion. - self savePackageAndKeep. - self deny: (workingCopy patchRelativeToBase: workingCopy baseVersion) hasChanges. - workingCopy switchTo: otherBranch. - self deny: (workingCopy includesObjectAt: path). - class compileSilently: 'b ^ 2'. "Not a conflict with the saved version of the package" - "when" - mergePrompted := false. - [workingCopy switchTo: mainBranch] - on: SquotMergeRequested do: - [:request | | packageMerge | - mergePrompted := true. - "Exclude all changes" - packageMerge := (request merge mergeAt: path) elementMerges anyOne. - self assert: {#b} equals: (packageMerge modifications collect: [:each | each definition selector]). - packageMerge modifications do: [:each | packageMerge removeOperationOrConflict: each]. - request resume]. - "then" - self assert: 2 equals: class new b description: 'Unsaved change should still be loaded'; - assert: (workingCopy objectAt: path) = package description: 'should track package again'; - assert: mergePrompted. "Since the merge was unexpected, the user should be aware of it." \ No newline at end of file diff --git a/src/Squot.package/SquotPackageAutotrackingTest.class/instance/trackPackage.st b/src/Squot.package/SquotPackageAutotrackingTest.class/instance/trackPackage.st deleted file mode 100644 index 7d6e5cbd7..000000000 --- a/src/Squot.package/SquotPackageAutotrackingTest.class/instance/trackPackage.st +++ /dev/null @@ -1,4 +0,0 @@ -tests -trackPackage - path := 'src/', package name, '.package'. - workingCopy addPackageNamed: package name at: path. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageAutotrackingTest.class/methodProperties.json b/src/Squot.package/SquotPackageAutotrackingTest.class/methodProperties.json deleted file mode 100644 index d6a3dcf68..000000000 --- a/src/Squot.package/SquotPackageAutotrackingTest.class/methodProperties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "initializePackage" : "jr 1/20/2022 23:03", - "packagePath" : "jr 5/4/2019 01:56", - "savePackage" : "jr 6/28/2022 21:08", - "savePackageAndKeep" : "jr 6/28/2022 21:08", - "setUp" : "jr 5/4/2019 02:01", - "tearDown" : "jr 12/23/2019 17:10", - "testPackageTrackedAutomaticallyOnLoad" : "jr 5/15/2022 11:49", - "testSwitchAndMoveOverDoesNotDiscardChangesToUntrackedPackage" : "jr 6/28/2022 21:08", - "testSwitchDoesNotDiscardChangesToUntrackedPackage" : "jr 6/28/2022 21:09", - "trackPackage" : "jr 1/20/2022 23:17" } } diff --git a/src/Squot.package/SquotPackageAutotrackingTest.class/properties.json b/src/Squot.package/SquotPackageAutotrackingTest.class/properties.json deleted file mode 100644 index 5889e61e3..000000000 --- a/src/Squot.package/SquotPackageAutotrackingTest.class/properties.json +++ /dev/null @@ -1,19 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classtraitcomposition" : "TTestCaseSuppressingProgressDisplay classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 5/4/2019 00:55", - "instvars" : [ - "classFactory", - "class", - "package", - "path" ], - "name" : "SquotPackageAutotrackingTest", - "pools" : [ - ], - "super" : "SquotWorkingCopyTestIndependentOfRepositoryType", - "traitcomposition" : "TTestCaseSuppressingProgressDisplay", - "type" : "normal" } diff --git a/src/Squot.package/SquotPackageDiff.class/README.md b/src/Squot.package/SquotPackageDiff.class/README.md deleted file mode 100644 index 8af15ca82..000000000 --- a/src/Squot.package/SquotPackageDiff.class/README.md +++ /dev/null @@ -1,3 +0,0 @@ -I am the difference between two SquotPackageShadows. - -I hold onto the name of the package and a Monticello patch to represent the differences in code and organization. For three-way diffs (merges) I use SquotMonticelloMergeDiff instead of a MCPatch. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiff.class/class/left.withSnapshot.right.withSnapshot..st b/src/Squot.package/SquotPackageDiff.class/class/left.withSnapshot.right.withSnapshot..st deleted file mode 100644 index 2ecfb6b79..000000000 --- a/src/Squot.package/SquotPackageDiff.class/class/left.withSnapshot.right.withSnapshot..st +++ /dev/null @@ -1,7 +0,0 @@ -instance creation -left: leftPackageShadow withSnapshot: leftMCSnapshot -right: rightPackageShadow withSnapshot: rightMCSnapshot - ^ self new - left: leftPackageShadow withSnapshot: leftMCSnapshot - right: rightPackageShadow withSnapshot: rightMCSnapshot; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiff.class/class/modificationsGroupedByClass..st b/src/Squot.package/SquotPackageDiff.class/class/modificationsGroupedByClass..st deleted file mode 100644 index c3aaf2036..000000000 --- a/src/Squot.package/SquotPackageDiff.class/class/modificationsGroupedByClass..st +++ /dev/null @@ -1,26 +0,0 @@ -*Squot-Tools -modificationsGroupedByClass: aCollection - | operationsWithClass rest classes | - operationsWithClass := aCollection select: - [:each | each definition respondsTo: #isCodeDefinition]. - classes := (operationsWithClass groupBy: [:each | each definition className]) - collect: [:eachGroup | | classOperation | - "lift class definition changes to the top of each group" - classOperation := eachGroup detect: [:each | each definition isClassDefinition] ifNone: []. - classOperation ifNil: [eachGroup] ifNotNil: - [{classOperation}, (eachGroup copyWithout: classOperation)]]. - rest := aCollection copyWithoutAll: operationsWithClass. - rest := rest groupBy: [:each | each class allSelectors - detect: [:selector | ('is*Definition' match: selector) and: - [(each perform: selector) == true]] - ifNone: ['other']]. - rest keys copy do: "remove is*Definition from the group keys" - [:eachKey | | group | - eachKey ~= 'other' ifTrue: - [group := rest removeKey: eachKey. - rest - at: (eachKey copyFrom: 3 to: eachKey size - 'Definition' size) - put: group]]. - ^ (OrderedDictionary newFrom: classes) - addAll: rest; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiff.class/instance/addOperationOrConflict..st b/src/Squot.package/SquotPackageDiff.class/instance/addOperationOrConflict..st deleted file mode 100644 index 35f5639ec..000000000 --- a/src/Squot.package/SquotPackageDiff.class/instance/addOperationOrConflict..st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -addOperationOrConflict: aMCPatchOperationOrConflict - self assert: aMCPatchOperationOrConflict isConflict not. - patch squotAddOperation: aMCPatchOperationOrConflict. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiff.class/instance/asSquotConflicts.st b/src/Squot.package/SquotPackageDiff.class/instance/asSquotConflicts.st deleted file mode 100644 index c99e6e567..000000000 --- a/src/Squot.package/SquotPackageDiff.class/instance/asSquotConflicts.st +++ /dev/null @@ -1,7 +0,0 @@ -Squot-diff-converting -asSquotConflicts - "Answer a copy of me in which all differences are conflicts in a merge without a base object." - ^ SquotPackageMerge - into: working - merge: incoming - basedOn: (working copyWithSnapshot: MCSnapshot empty) \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiff.class/instance/base.st b/src/Squot.package/SquotPackageDiff.class/instance/base.st deleted file mode 100644 index 01a1b0f7a..000000000 --- a/src/Squot.package/SquotPackageDiff.class/instance/base.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -base - ^ working \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiff.class/instance/incoming..st b/src/Squot.package/SquotPackageDiff.class/instance/incoming..st deleted file mode 100644 index 4cfd2413a..000000000 --- a/src/Squot.package/SquotPackageDiff.class/instance/incoming..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -incoming: aPackageShadow - incoming := aPackageShadow. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiff.class/instance/incoming.st b/src/Squot.package/SquotPackageDiff.class/instance/incoming.st deleted file mode 100644 index 86b6e6389..000000000 --- a/src/Squot.package/SquotPackageDiff.class/instance/incoming.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -incoming - ^ incoming \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiff.class/instance/initializeFrom.to..st b/src/Squot.package/SquotPackageDiff.class/instance/initializeFrom.to..st deleted file mode 100644 index bfb23e339..000000000 --- a/src/Squot.package/SquotPackageDiff.class/instance/initializeFrom.to..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -initializeFrom: aSquotPackageShadow to: aSquotPackageShadow2 - "Already done when constructed." \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiff.class/instance/initializeSquotDiffNodes.with..st b/src/Squot.package/SquotPackageDiff.class/instance/initializeSquotDiffNodes.with..st deleted file mode 100644 index fcb02ca8f..000000000 --- a/src/Squot.package/SquotPackageDiff.class/instance/initializeSquotDiffNodes.with..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -initializeSquotDiffNodes: aCollection with: aDiffNodesBuilder - "Nothing to do, nodes were already built completely in #newSquotDiffNodes." \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiff.class/instance/left.withSnapshot.right.withSnapshot..st b/src/Squot.package/SquotPackageDiff.class/instance/left.withSnapshot.right.withSnapshot..st deleted file mode 100644 index 997b2140a..000000000 --- a/src/Squot.package/SquotPackageDiff.class/instance/left.withSnapshot.right.withSnapshot..st +++ /dev/null @@ -1,6 +0,0 @@ -initialize-release -left: leftPackageShadow withSnapshot: leftMCSnapshot right: rightPackageShadow withSnapshot: rightMCSnapshot - working := leftPackageShadow. - incoming := rightPackageShadow. - packageName := leftPackageShadow packageName. - patch := rightMCSnapshot patchRelativeToBase: leftMCSnapshot. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiff.class/instance/newSquotDiffNodes.st b/src/Squot.package/SquotPackageDiff.class/instance/newSquotDiffNodes.st deleted file mode 100644 index 041d8622d..000000000 --- a/src/Squot.package/SquotPackageDiff.class/instance/newSquotDiffNodes.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -newSquotDiffNodes - ^ SquotPackageDiffNodesBuilder new topNodesForDiff: self \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiff.class/instance/object.st b/src/Squot.package/SquotPackageDiff.class/instance/object.st deleted file mode 100644 index ee7277bbc..000000000 --- a/src/Squot.package/SquotPackageDiff.class/instance/object.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -object - ^ working ifNil: [incoming] \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiff.class/instance/operations.st b/src/Squot.package/SquotPackageDiff.class/instance/operations.st deleted file mode 100644 index 07c22a686..000000000 --- a/src/Squot.package/SquotPackageDiff.class/instance/operations.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -operations - ^ patch operations \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiff.class/instance/operationsAndConflicts.st b/src/Squot.package/SquotPackageDiff.class/instance/operationsAndConflicts.st deleted file mode 100644 index 49b393aa7..000000000 --- a/src/Squot.package/SquotPackageDiff.class/instance/operationsAndConflicts.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -operationsAndConflicts - ^ patch operations \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiff.class/instance/packageName.st b/src/Squot.package/SquotPackageDiff.class/instance/packageName.st deleted file mode 100644 index 6064ae87e..000000000 --- a/src/Squot.package/SquotPackageDiff.class/instance/packageName.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -packageName - ^ packageName \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiff.class/instance/patch.st b/src/Squot.package/SquotPackageDiff.class/instance/patch.st deleted file mode 100644 index 29fd096f1..000000000 --- a/src/Squot.package/SquotPackageDiff.class/instance/patch.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -patch - ^ patch \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiff.class/instance/postCopy.st b/src/Squot.package/SquotPackageDiff.class/instance/postCopy.st deleted file mode 100644 index 705a300a4..000000000 --- a/src/Squot.package/SquotPackageDiff.class/instance/postCopy.st +++ /dev/null @@ -1,3 +0,0 @@ -copying -postCopy - patch := patch copy. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiff.class/instance/removeOperationOrConflict..st b/src/Squot.package/SquotPackageDiff.class/instance/removeOperationOrConflict..st deleted file mode 100644 index 0152bc9b0..000000000 --- a/src/Squot.package/SquotPackageDiff.class/instance/removeOperationOrConflict..st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -removeOperationOrConflict: aMCPatchOperationOrConflict - self assert: aMCPatchOperationOrConflict isConflict not. - patch squotRemoveOperation: aMCPatchOperationOrConflict. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiff.class/instance/squotApplyTo..st b/src/Squot.package/SquotPackageDiff.class/instance/squotApplyTo..st deleted file mode 100644 index b5cb6f930..000000000 --- a/src/Squot.package/SquotPackageDiff.class/instance/squotApplyTo..st +++ /dev/null @@ -1,6 +0,0 @@ -Squot-diff-patching -squotApplyTo: aPackageShadow - "Apply my changes to aPackageShadow and answer the result." - ^ aPackageShadow - copyWithSnapshot: (patch squotApplyTo: aPackageShadow asMCSnapshot) - tonelProperties: incoming tonelProperties \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiff.class/instance/squotApplyTo.with..st b/src/Squot.package/SquotPackageDiff.class/instance/squotApplyTo.with..st deleted file mode 100644 index 7483d060e..000000000 --- a/src/Squot.package/SquotPackageDiff.class/instance/squotApplyTo.with..st +++ /dev/null @@ -1,4 +0,0 @@ -Squot-diff-patching -squotApplyTo: aPackageShadow with: aPatcher - ^ (self squotApplyTo: aPackageShadow) "do not need the help of aPatcher" - withSquotObjectName: (aPatcher nameOf: aPackageShadow undecorated) \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiff.class/instance/squotApplyToLoaded..st b/src/Squot.package/SquotPackageDiff.class/instance/squotApplyToLoaded..st deleted file mode 100644 index 093824227..000000000 --- a/src/Squot.package/SquotPackageDiff.class/instance/squotApplyToLoaded..st +++ /dev/null @@ -1,5 +0,0 @@ -Squot-diff-patching -squotApplyToLoaded: aPackageInfo - (PackageInfo squotEnvironmentInMetadata: SquotCurrentMetadata value) - beCurrentDuring: - [^ patch squotApplyToLoaded: aPackageInfo] \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiff.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotPackageDiff.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index b919a4b68..000000000 --- a/src/Squot.package/SquotPackageDiff.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,13 +0,0 @@ -*Squot-Tools -squotChangeAsStringOrText - | text | - text := WriteStream on: (Text new: 100). - (self class modificationsGroupedByClass: patch operations) - keysAndValuesDo: - [:groupKey :items | - text nextPutAll: groupKey asText allBold; - cr; cr. - items do: [:each | text nextPutAll: each squotChangeAsStringOrText] - separatedBy: [text cr; cr]. - text cr; cr]. - ^ text contents \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiff.class/instance/squotHasChanges.st b/src/Squot.package/SquotPackageDiff.class/instance/squotHasChanges.st deleted file mode 100644 index c8623b2bf..000000000 --- a/src/Squot.package/SquotPackageDiff.class/instance/squotHasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-diff-testing -squotHasChanges - ^ patch squotHasChanges or: [working tonelProperties ~= incoming tonelProperties] \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiff.class/instance/update.reflectedIn.asMaterializedFrom.reflectedIn..st b/src/Squot.package/SquotPackageDiff.class/instance/update.reflectedIn.asMaterializedFrom.reflectedIn..st deleted file mode 100644 index 32925d862..000000000 --- a/src/Squot.package/SquotPackageDiff.class/instance/update.reflectedIn.asMaterializedFrom.reflectedIn..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-diff-patching -update: aPackageInfo reflectedIn: aMirror asMaterializedFrom: aShadow reflectedIn: aShadowMirror - ^ self squotApplyToLoaded: aPackageInfo \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiff.class/instance/working..st b/src/Squot.package/SquotPackageDiff.class/instance/working..st deleted file mode 100644 index d7f98e175..000000000 --- a/src/Squot.package/SquotPackageDiff.class/instance/working..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -working: aPackageShadow - working := aPackageShadow. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiff.class/instance/working.st b/src/Squot.package/SquotPackageDiff.class/instance/working.st deleted file mode 100644 index ffc22a7f9..000000000 --- a/src/Squot.package/SquotPackageDiff.class/instance/working.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -working - ^ working \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiff.class/methodProperties.json b/src/Squot.package/SquotPackageDiff.class/methodProperties.json deleted file mode 100644 index a034fd639..000000000 --- a/src/Squot.package/SquotPackageDiff.class/methodProperties.json +++ /dev/null @@ -1,29 +0,0 @@ -{ - "class" : { - "left:withSnapshot:right:withSnapshot:" : "jr 9/25/2019 22:29", - "modificationsGroupedByClass:" : "jr 5/8/2020 21:46" }, - "instance" : { - "addOperationOrConflict:" : "jr 11/29/2020 20:22", - "asSquotConflicts" : "jr 9/25/2019 22:04", - "base" : "jr 1/22/2022 17:28", - "incoming" : "jr 8/14/2019 19:40", - "incoming:" : "jr 8/14/2019 19:40", - "initializeFrom:to:" : "jr 7/30/2021 19:35", - "initializeSquotDiffNodes:with:" : "jr 11/29/2020 20:29", - "left:withSnapshot:right:withSnapshot:" : "jr 9/25/2019 22:29", - "newSquotDiffNodes" : "jr 1/22/2022 19:25", - "object" : "jr 8/14/2019 19:43", - "operations" : "jr 7/27/2017 23:23", - "operationsAndConflicts" : "jr 11/29/2020 20:16", - "packageName" : "jr 1/26/2020 23:41", - "patch" : "jr 10/31/2017 22:57", - "postCopy" : "jr 11/18/2018 02:00", - "removeOperationOrConflict:" : "jr 11/29/2020 20:24", - "squotApplyTo:" : "jr 5/17/2022 00:23", - "squotApplyTo:with:" : "jr 4/7/2019 21:23", - "squotApplyToLoaded:" : "jr 12/23/2019 12:41", - "squotChangeAsStringOrText" : "jr 5/8/2020 21:51", - "squotHasChanges" : "jr 5/22/2022 18:25", - "update:reflectedIn:asMaterializedFrom:reflectedIn:" : "jr 6/13/2021 20:18", - "working" : "jr 8/14/2019 19:40", - "working:" : "jr 8/14/2019 19:40" } } diff --git a/src/Squot.package/SquotPackageDiff.class/properties.json b/src/Squot.package/SquotPackageDiff.class/properties.json deleted file mode 100644 index 778a75e6d..000000000 --- a/src/Squot.package/SquotPackageDiff.class/properties.json +++ /dev/null @@ -1,19 +0,0 @@ -{ - "category" : "Squot-Packages", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotDiff classTrait + TSquotModification classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 7/21/2017 23:43", - "instvars" : [ - "working", - "incoming", - "packageName", - "patch" ], - "name" : "SquotPackageDiff", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotDiff + TSquotModification", - "type" : "normal" } diff --git a/src/Squot.package/SquotPackageDiffClassChanges.class/README.md b/src/Squot.package/SquotPackageDiffClassChanges.class/README.md deleted file mode 100644 index 8bc3323e9..000000000 --- a/src/Squot.package/SquotPackageDiffClassChanges.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am assigned to a SquotDiffNode that groups all changes that apply to the same class. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/actualClassInSquotWorkingCopy..st b/src/Squot.package/SquotPackageDiffClassChanges.class/instance/actualClassInSquotWorkingCopy..st deleted file mode 100644 index c8f737e3a..000000000 --- a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/actualClassInSquotWorkingCopy..st +++ /dev/null @@ -1,4 +0,0 @@ -browsing -actualClassInSquotWorkingCopy: aSquotWorkingCopyArtifact - ^ (PackageInfo squotEnvironmentOf: aSquotWorkingCopyArtifact) - classNamed: className \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/browseFromSquotWorkingCopyArtifact..st b/src/Squot.package/SquotPackageDiffClassChanges.class/instance/browseFromSquotWorkingCopyArtifact..st deleted file mode 100644 index aa4ae969c..000000000 --- a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/browseFromSquotWorkingCopyArtifact..st +++ /dev/null @@ -1,25 +0,0 @@ -browsing -browseFromSquotWorkingCopyArtifact: aWorkingCopyArtifact - | environment behavior classTraitName | - aWorkingCopyArtifact isLoaded ifFalse: - [^ (MCSnapshotBrowser forSnapshot: - (MCSnapshot fromDefinitions: - (conflicts collect: [:each | each localDefinition]), - (operations collect: [:each | each definition]))) - categorySelection: 1; - classSelection: 1; - showLabelled: 'Snapshot of ', className]. - environment := PackageInfo squotEnvironmentOf: aWorkingCopyArtifact. - behavior := environment classOrTraitNamed: className. - behavior ifNil: - ["Could be a class trait." - behavior := environment classOrTraitNamed: - (classTraitName := className copyReplaceAll: ' classSide' with: ' classTrait')]. - behavior ifNil: - ["could be a class from another package, with extension methods" - behavior := environment valueOf: className]. - behavior ifNil: - ["Could be a class trait from another package..." - behavior := environment valueOf: classTraitName]. - behavior isBehavior ifFalse: [^ self inform: 'Class or trait not found!']. - behavior browse. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/classDefinition..st b/src/Squot.package/SquotPackageDiffClassChanges.class/instance/classDefinition..st deleted file mode 100644 index fefaa096e..000000000 --- a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/classDefinition..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -classDefinition: anObject - classDefinition := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/classDefinition.st b/src/Squot.package/SquotPackageDiffClassChanges.class/instance/classDefinition.st deleted file mode 100644 index 8e06236df..000000000 --- a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/classDefinition.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -classDefinition - ^ classDefinition \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/className..st b/src/Squot.package/SquotPackageDiffClassChanges.class/instance/className..st deleted file mode 100644 index 8f312dec7..000000000 --- a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/className..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -className: anObject - - className := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/className.st b/src/Squot.package/SquotPackageDiffClassChanges.class/instance/className.st deleted file mode 100644 index 08d210634..000000000 --- a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/className.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -className - ^ className \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/classShadowFromArtifact..st b/src/Squot.package/SquotPackageDiffClassChanges.class/instance/classShadowFromArtifact..st deleted file mode 100644 index fcf5e7706..000000000 --- a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/classShadowFromArtifact..st +++ /dev/null @@ -1,7 +0,0 @@ -private -classShadowFromArtifact: anArtifact - ^ SquotClassShadow new - snapshot: (MCSnapshot fromDefinitions: - (anArtifact shadowOfTrackedObject - definitions select: [:each | (each respondsTo: #actualClass "cannot use className because of Object>>className") and: [each className = className]])); - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/conflicts..st b/src/Squot.package/SquotPackageDiffClassChanges.class/instance/conflicts..st deleted file mode 100644 index b285c7899..000000000 --- a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/conflicts..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -conflicts: anObject - conflicts := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/conflicts.st b/src/Squot.package/SquotPackageDiffClassChanges.class/instance/conflicts.st deleted file mode 100644 index 32ff144eb..000000000 --- a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/conflicts.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -conflicts - ^ conflicts \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/diffTreeNode..st b/src/Squot.package/SquotPackageDiffClassChanges.class/instance/diffTreeNode..st deleted file mode 100644 index 58139341e..000000000 --- a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/diffTreeNode..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -diffTreeNode: anObject - - diffTreeNode := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/diffTreeNode.st b/src/Squot.package/SquotPackageDiffClassChanges.class/instance/diffTreeNode.st deleted file mode 100644 index 5dd493386..000000000 --- a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/diffTreeNode.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -diffTreeNode - - ^ diffTreeNode \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/ignoreInSquot.st b/src/Squot.package/SquotPackageDiffClassChanges.class/instance/ignoreInSquot.st deleted file mode 100644 index e5e37d9bb..000000000 --- a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/ignoreInSquot.st +++ /dev/null @@ -1,3 +0,0 @@ -ignoring -ignoreInSquot - SquotIgnoredSmalltalkCode ignoreClass: self className. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/isCurrentlyIgnoredInSquot.st b/src/Squot.package/SquotPackageDiffClassChanges.class/instance/isCurrentlyIgnoredInSquot.st deleted file mode 100644 index ca360f493..000000000 --- a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/isCurrentlyIgnoredInSquot.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isCurrentlyIgnoredInSquot - ^ SquotIgnoredSmalltalkCode isWholeClassIgnored: self className \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/left.st b/src/Squot.package/SquotPackageDiffClassChanges.class/instance/left.st deleted file mode 100644 index ec5eea13d..000000000 --- a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/left.st +++ /dev/null @@ -1,3 +0,0 @@ -browsing -left - ^ self classShadowFromArtifact: diffTreeNode artifactDiff left \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/operations..st b/src/Squot.package/SquotPackageDiffClassChanges.class/instance/operations..st deleted file mode 100644 index 8aa9b9067..000000000 --- a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/operations..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -operations: anObject - operations := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/operations.st b/src/Squot.package/SquotPackageDiffClassChanges.class/instance/operations.st deleted file mode 100644 index 27108c7cb..000000000 --- a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/operations.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -operations - ^ operations \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/right.st b/src/Squot.package/SquotPackageDiffClassChanges.class/instance/right.st deleted file mode 100644 index 1c28e0560..000000000 --- a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/right.st +++ /dev/null @@ -1,6 +0,0 @@ -browsing -right - ^ self classShadowFromArtifact: - ((diffTreeNode artifactDiff respondsTo: #conflicts) - ifTrue: [diffTreeNode artifactDiff incoming] - ifFalse: [diffTreeNode artifactDiff right]) \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/squotAddDiffNodeMenuItems.for..st b/src/Squot.package/SquotPackageDiffClassChanges.class/instance/squotAddDiffNodeMenuItems.for..st deleted file mode 100644 index aedd671c0..000000000 --- a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/squotAddDiffNodeMenuItems.for..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -squotAddDiffNodeMenuItems: aMenu for: aSquotChangesChooser - self isCurrentlyIgnoredInSquot - ifTrue: [aSquotChangesChooser addUnignoreMenuItem: aMenu] - ifFalse: [aSquotChangesChooser addIgnoreMenuItem: aMenu] \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotPackageDiffClassChanges.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index a7e85bd74..000000000 --- a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,4 +0,0 @@ -converting -squotChangeAsStringOrText - ^ (diffTreeNode title asText, String cr, String cr) allBold, - diffTreeNode concatenatedChildrenTexts \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/squotToolsDiffNodeContent.st b/src/Squot.package/SquotPackageDiffClassChanges.class/instance/squotToolsDiffNodeContent.st deleted file mode 100644 index 75f537978..000000000 --- a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/squotToolsDiffNodeContent.st +++ /dev/null @@ -1,4 +0,0 @@ -classification -squotToolsDiffNodeContent - "Objects of this type are used as the content of SquotDiffNode. Marker method." - \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/unignoreInSquot.st b/src/Squot.package/SquotPackageDiffClassChanges.class/instance/unignoreInSquot.st deleted file mode 100644 index 4ad61cedc..000000000 --- a/src/Squot.package/SquotPackageDiffClassChanges.class/instance/unignoreInSquot.st +++ /dev/null @@ -1,3 +0,0 @@ -ignoring -unignoreInSquot - SquotIgnoredSmalltalkCode unignoreClass: self className. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffClassChanges.class/methodProperties.json b/src/Squot.package/SquotPackageDiffClassChanges.class/methodProperties.json deleted file mode 100644 index 8ff2f3ddb..000000000 --- a/src/Squot.package/SquotPackageDiffClassChanges.class/methodProperties.json +++ /dev/null @@ -1,25 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "actualClassInSquotWorkingCopy:" : "jr 5/17/2020 21:52", - "browseFromSquotWorkingCopyArtifact:" : "jr 7/9/2022 11:27", - "classDefinition" : "jr 1/22/2022 17:17", - "classDefinition:" : "jr 1/22/2022 17:17", - "className" : "jr 12/22/2019 19:48", - "className:" : "jr 12/22/2019 19:48", - "classShadowFromArtifact:" : "jr 6/6/2020 01:23", - "conflicts" : "jr 7/9/2022 11:18", - "conflicts:" : "jr 7/9/2022 11:18", - "diffTreeNode" : "jr 12/22/2019 19:48", - "diffTreeNode:" : "jr 12/22/2019 19:48", - "ignoreInSquot" : "jr 4/14/2020 17:11", - "isCurrentlyIgnoredInSquot" : "jr 4/14/2020 16:28", - "left" : "jr 6/6/2020 01:24", - "operations" : "jr 7/9/2022 11:18", - "operations:" : "jr 7/9/2022 11:18", - "right" : "jr 6/6/2020 02:37", - "squotAddDiffNodeMenuItems:for:" : "jr 4/14/2020 14:50", - "squotChangeAsStringOrText" : "jr 11/18/2020 15:20", - "squotToolsDiffNodeContent" : "jr 12/23/2019 15:06", - "unignoreInSquot" : "jr 4/14/2020 17:11" } } diff --git a/src/Squot.package/SquotPackageDiffClassChanges.class/properties.json b/src/Squot.package/SquotPackageDiffClassChanges.class/properties.json deleted file mode 100644 index 1b0d24799..000000000 --- a/src/Squot.package/SquotPackageDiffClassChanges.class/properties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "category" : "Squot-Tools-Packages", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 12/22/2019 19:56", - "instvars" : [ - "diffTreeNode", - "className", - "classDefinition", - "operations", - "conflicts" ], - "name" : "SquotPackageDiffClassChanges", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotPackageDiffNodesBuilder.class/README.md b/src/Squot.package/SquotPackageDiffNodesBuilder.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/addOperationOrConflict..st b/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/addOperationOrConflict..st deleted file mode 100644 index 0728a1710..000000000 --- a/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/addOperationOrConflict..st +++ /dev/null @@ -1,4 +0,0 @@ -node creation -addOperationOrConflict: aMCOperationOrConflict - (groups at: aMCOperationOrConflict definition squotGroup ifAbsentPut: [OrderedCollection new]) - add: aMCOperationOrConflict. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/buildNodes.st b/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/buildNodes.st deleted file mode 100644 index ec54dfb53..000000000 --- a/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/buildNodes.st +++ /dev/null @@ -1,7 +0,0 @@ -node creation -buildNodes - groups keysAndValuesDo: [:key :each | each first definition squotBelongsToClass - ifTrue: [classNodes add: (self createNodeForClass: key operationsAndConflicts: each)] - ifFalse: [otherNodes add: (self createNodeForDefinitionType: key operationsAndConflicts: each)]]. - classNodes sort: [:a :b | self compareClassNodes: a and: b]. - ^ classNodes, otherNodes \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/classDefOperationOrConflictFor..st b/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/classDefOperationOrConflictFor..st deleted file mode 100644 index bded82de6..000000000 --- a/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/classDefOperationOrConflictFor..st +++ /dev/null @@ -1,13 +0,0 @@ -private -classDefOperationOrConflictFor: aCollection - | anyMethod className | - anyMethod := aCollection - detect: - [:each | - each definition isClassDefinition ifTrue: [^ each]. - each definition isMethodDefinition] - ifNone: [^ nil]. - className := anyMethod definition className. - ^ (groups at: className ifAbsent: [^ nil]) - detect: [:each | each definition isClassDefinition] - ifNone: [] \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/classSuffix..st b/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/classSuffix..st deleted file mode 100644 index 52aa3838f..000000000 --- a/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/classSuffix..st +++ /dev/null @@ -1,12 +0,0 @@ -private -classSuffix: aPatchOperationOrConflictOrNil - aPatchOperationOrConflictOrNil ifNil: [^ '']. - aPatchOperationOrConflictOrNil definition isClassDefinition ifFalse: [^ '']. - aPatchOperationOrConflictOrNil isConflict - ifTrue: - [aPatchOperationOrConflictOrNil operation isAddition ifTrue: [^ ' (removed/changed)']. - aPatchOperationOrConflictOrNil operation isRemoval ifTrue: [^ '(changed/removed)']] - ifFalse: - [aPatchOperationOrConflictOrNil isAddition ifTrue: [^ ' (added)']. - aPatchOperationOrConflictOrNil isRemoval ifTrue: [^ ' (removed)']]. - ^ '' \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/compareClassNodes.and..st b/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/compareClassNodes.and..st deleted file mode 100644 index 758fa3255..000000000 --- a/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/compareClassNodes.and..st +++ /dev/null @@ -1,3 +0,0 @@ -private -compareClassNodes: a and: b - ^ a title asString <= b title asString \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/createNodeForClass.operationsAndConflicts..st b/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/createNodeForClass.operationsAndConflicts..st deleted file mode 100644 index 1fa88de8b..000000000 --- a/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/createNodeForClass.operationsAndConflicts..st +++ /dev/null @@ -1,36 +0,0 @@ -node creation -createNodeForClass: aSymbol operationsAndConflicts: aCollection - | operations conflicts nonConflicts classOperationOrConflict contentDummy node | - operations := self hoistClassDefinition: aCollection. - classOperationOrConflict := operations - detect: [:each | each definition isClassDefinition] - ifNone: - ["Could be a metaclass, look for corresponding class definition" - self classDefOperationOrConflictFor: operations]. - conflicts := OrderedCollection new. - nonConflicts := OrderedCollection new. - operations do: - [:each | ((each respondsTo: #isConflict) and: [each isConflict]) - ifTrue: [conflicts add: each] - ifFalse: [nonConflicts add: each]]. - contentDummy := SquotPackageDiffClassChanges new - className: aSymbol; - classDefinition: - (classOperationOrConflict - ifNotNil: [classOperationOrConflict definition] "<-- class removal" - ifNil: [packageMerge incoming definitions - detect: [:each | each isClassDefinition and: [each className = aSymbol]] - ifNone: [self extensionPseudoClassDefinition]]); - operations: nonConflicts; - conflicts: conflicts; - yourself. - node := SquotDiffNode - title: aSymbol , (self classSuffix: classOperationOrConflict) - content: contentDummy - children: - ((operations collect: [:each | self nodeFor: each]) - sort: [:a :b | a title asString <= b title asString]) - onInclude: [] - onExclude: []. - contentDummy diffTreeNode: node. - ^ node \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/createNodeForDefinitionType.operationsAndConflicts..st b/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/createNodeForDefinitionType.operationsAndConflicts..st deleted file mode 100644 index f5e82d4f2..000000000 --- a/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/createNodeForDefinitionType.operationsAndConflicts..st +++ /dev/null @@ -1,8 +0,0 @@ -node creation -createNodeForDefinitionType: aString operationsAndConflicts: aCollection - ^ SquotDiffNode - title: aString - content: nil - children: (aCollection collect: [:each | self nodeFor: each]) - onInclude: [] - onExclude: [] \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/extensionPseudoClassDefinition.st b/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/extensionPseudoClassDefinition.st deleted file mode 100644 index 584b8ee0f..000000000 --- a/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/extensionPseudoClassDefinition.st +++ /dev/null @@ -1,8 +0,0 @@ -private -extensionPseudoClassDefinition - ^ MCClassDefinition - name: '*Extension' - superclassName: '' - category: '*Extension' - instVarNames: #() - comment: '' \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/hoistClassDefinition..st b/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/hoistClassDefinition..st deleted file mode 100644 index c5836efab..000000000 --- a/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/hoistClassDefinition..st +++ /dev/null @@ -1,9 +0,0 @@ -private -hoistClassDefinition: aCollection - | classOperation | - classOperation := aCollection detect: [:each | each definition isClassDefinition] ifNone: []. - ^ classOperation - ifNil: [aCollection] - ifNotNil: [{classOperation}, - "All other definitions; use identity comparison to reject because there can be mixture of MCPatchOperation and MCConflict and they are not =-comparable (hence we cannot use copyWithout:, for example)." - (aCollection reject: [:each | classOperation == each])] \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/initialize.st b/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/initialize.st deleted file mode 100644 index 5389456ac..000000000 --- a/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/initialize.st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -initialize - groups := Dictionary new. - classNodes := OrderedCollection new. - otherNodes := OrderedCollection new. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/nodeFor..st b/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/nodeFor..st deleted file mode 100644 index 17545c87c..000000000 --- a/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/nodeFor..st +++ /dev/null @@ -1,18 +0,0 @@ -node creation -nodeFor: aMCPatchOperationOrConflict - ^ aMCPatchOperationOrConflict isConflict - ifTrue: - [SquotMergeDiffNode - title: aMCPatchOperationOrConflict operation squotDiffNodeSummary - content: aMCPatchOperationOrConflict - children: #() - onInclude: [aMCPatchOperationOrConflict chooseRemote] - onExclude: [aMCPatchOperationOrConflict chooseLocal] - onReset: [aMCPatchOperationOrConflict clearChoice]] - ifFalse: - [SquotDiffNode - title: aMCPatchOperationOrConflict squotDiffNodeSummary - content: aMCPatchOperationOrConflict - children: #() - onInclude: [packageMerge addOperationOrConflict: aMCPatchOperationOrConflict] - onExclude: [packageMerge removeOperationOrConflict: aMCPatchOperationOrConflict]]. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/topNodesForDiff..st b/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/topNodesForDiff..st deleted file mode 100644 index b8a2abc96..000000000 --- a/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/topNodesForDiff..st +++ /dev/null @@ -1,3 +0,0 @@ -node creation -topNodesForDiff: aSquotPackageDiff - ^ self topNodesForMerge: aSquotPackageDiff "Can use the same interface to modify both." \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/topNodesForMerge..st b/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/topNodesForMerge..st deleted file mode 100644 index d607e616e..000000000 --- a/src/Squot.package/SquotPackageDiffNodesBuilder.class/instance/topNodesForMerge..st +++ /dev/null @@ -1,5 +0,0 @@ -node creation -topNodesForMerge: aSquotPackageMerge - packageMerge := aSquotPackageMerge. - packageMerge operationsAndConflicts do: [:each | self addOperationOrConflict: each]. - ^ self buildNodes \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffNodesBuilder.class/methodProperties.json b/src/Squot.package/SquotPackageDiffNodesBuilder.class/methodProperties.json deleted file mode 100644 index a9695ae75..000000000 --- a/src/Squot.package/SquotPackageDiffNodesBuilder.class/methodProperties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "addOperationOrConflict:" : "jr 1/22/2022 19:37", - "buildNodes" : "jr 1/22/2022 20:03", - "classDefOperationOrConflictFor:" : "jr 1/22/2022 19:51", - "classSuffix:" : "jr 12/19/2021 09:43", - "compareClassNodes:and:" : "jr 3/8/2022 20:05", - "createNodeForClass:operationsAndConflicts:" : "jr 7/9/2022 11:21", - "createNodeForDefinitionType:operationsAndConflicts:" : "jr 1/22/2022 20:09", - "extensionPseudoClassDefinition" : "jr 1/22/2022 17:39", - "hoistClassDefinition:" : "jr 1/22/2022 18:02", - "initialize" : "jr 3/8/2022 20:05", - "nodeFor:" : "jr 1/22/2022 20:01", - "topNodesForDiff:" : "jr 11/29/2020 20:28", - "topNodesForMerge:" : "jr 3/8/2022 20:05" } } diff --git a/src/Squot.package/SquotPackageDiffNodesBuilder.class/properties.json b/src/Squot.package/SquotPackageDiffNodesBuilder.class/properties.json deleted file mode 100644 index c29693d95..000000000 --- a/src/Squot.package/SquotPackageDiffNodesBuilder.class/properties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "category" : "Squot-Tools-Packages", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "packageMerge", - "groups", - "classNodes", - "otherNodes" ], - "name" : "SquotPackageDiffNodesBuilder", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotPackageDiffNodesBuilderTest.class/README.md b/src/Squot.package/SquotPackageDiffNodesBuilderTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotPackageDiffNodesBuilderTest.class/instance/testClassDefinitionDiffHoistedToTop.st b/src/Squot.package/SquotPackageDiffNodesBuilderTest.class/instance/testClassDefinitionDiffHoistedToTop.st deleted file mode 100644 index b3cde4ae7..000000000 --- a/src/Squot.package/SquotPackageDiffNodesBuilderTest.class/instance/testClassDefinitionDiffHoistedToTop.st +++ /dev/null @@ -1,49 +0,0 @@ -tests -testClassDefinitionDiffHoistedToTop - | workingSnapshot incomingSnapshot baseSnapshot modifications conflicts merge nodes classNode | - "given" - baseSnapshot := SquotPackageShadow forPackageNamed: 'Test' withSnapshot: - (MCSnapshot fromDefinitions: - {MCMethodDefinition - className: 'TestClass' - selector: 'test' - category: 'private' - timeStamp: '' - source: 'test ^ 42'. - MCClassDefinition - name: 'TestClass' - superclassName: 'Object' - category: 'Test' - instVarNames: #() - comment: 'No comment'.}). - incomingSnapshot := SquotPackageShadow forPackageNamed: 'Test' withSnapshot: - (MCSnapshot fromDefinitions: - {MCMethodDefinition - className: 'TestClass' - selector: 'test' - category: 'private' - timeStamp: '' - source: 'test ^ 13'. - MCClassDefinition - name: 'TestClass' - superclassName: 'Object' - category: 'Test' - instVarNames: #() - comment: 'Changed comment'.}). - workingSnapshot := baseSnapshot. - modifications := - {MCModification of: (workingSnapshot asMCSnapshot definitions detect: [:each | each isMethodDefinition]) to: (incomingSnapshot asMCSnapshot definitions detect: [:each | each isMethodDefinition]). - MCModification of: (workingSnapshot asMCSnapshot definitions detect: [:each | each isClassDefinition]) to: (incomingSnapshot asMCSnapshot definitions detect: [:each | each isClassDefinition])}. - conflicts := #(). - merge := SquotPackageMerge - working: workingSnapshot - incoming: incomingSnapshot - base: baseSnapshot - modifications: modifications - conflicts: conflicts. - "when" - nodes := SquotPackageDiffNodesBuilder new topNodesForMerge: merge. - "then" - classNode := nodes detect: [:each | each title beginsWith: 'TestClass'] ifNone: []. - self assert: classNode notNil; - assert: classNode children first content definition isClassDefinition. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffNodesBuilderTest.class/instance/testClassDefinitionDiffHoistedToTopWithClassConflict.st b/src/Squot.package/SquotPackageDiffNodesBuilderTest.class/instance/testClassDefinitionDiffHoistedToTopWithClassConflict.st deleted file mode 100644 index 4ec3bdcde..000000000 --- a/src/Squot.package/SquotPackageDiffNodesBuilderTest.class/instance/testClassDefinitionDiffHoistedToTopWithClassConflict.st +++ /dev/null @@ -1,63 +0,0 @@ -tests -testClassDefinitionDiffHoistedToTopWithClassConflict - | workingSnapshot incomingSnapshot baseSnapshot modifications conflicts merge nodes classNode | - "given" - baseSnapshot := SquotPackageShadow forPackageNamed: 'Test' withSnapshot: - (MCSnapshot fromDefinitions: - {MCMethodDefinition - className: 'TestClass' - selector: 'test' - category: 'private' - timeStamp: '' - source: 'test ^ 42'. - MCClassDefinition - name: 'TestClass' - superclassName: 'Object' - category: 'Test' - instVarNames: #() - comment: 'No comment'.}). - incomingSnapshot := SquotPackageShadow forPackageNamed: 'Test' withSnapshot: - (MCSnapshot fromDefinitions: - {MCMethodDefinition - className: 'TestClass' - selector: 'new' - category: 'private' - timeStamp: '' - source: 'new ^ 13'. - MCClassDefinition - name: 'TestClass' - superclassName: 'Object' - category: 'Test' - instVarNames: #() - comment: 'Changed comment'.}). - workingSnapshot := SquotPackageShadow forPackageNamed: 'Test' withSnapshot: - (MCSnapshot fromDefinitions: - {MCMethodDefinition - className: 'TestClass' - selector: 'test' - category: 'private' - timeStamp: '' - source: 'test ^ 42'. - MCClassDefinition - name: 'TestClass' - superclassName: 'Object' - category: 'Test' - instVarNames: #() - comment: 'Differently changed comment'}). - modifications := - {MCRemoval of: (workingSnapshot asMCSnapshot definitions detect: [:each | each source = 'test ^ 42']). - MCAddition of: (incomingSnapshot asMCSnapshot definitions detect: [:each | each source = 'new ^ 13'])}. - conflicts := - {MCConflict operation: (MCModification of: (workingSnapshot asMCSnapshot definitions detect: [:each | each isClassDefinition]) to: (incomingSnapshot asMCSnapshot definitions detect: [:each | each isClassDefinition]))}. - merge := SquotPackageMerge - working: workingSnapshot - incoming: incomingSnapshot - base: baseSnapshot - modifications: modifications - conflicts: conflicts. - "when" - nodes := SquotPackageDiffNodesBuilder new topNodesForMerge: merge. - "then" - classNode := nodes detect: [:each | each title beginsWith: 'TestClass'] ifNone: []. - self assert: classNode notNil; - assert: classNode children first content definition isClassDefinition. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffNodesBuilderTest.class/instance/testClassDefinitionDiffHoistedToTopWithMethodConflict.st b/src/Squot.package/SquotPackageDiffNodesBuilderTest.class/instance/testClassDefinitionDiffHoistedToTopWithMethodConflict.st deleted file mode 100644 index 00c2bbf3f..000000000 --- a/src/Squot.package/SquotPackageDiffNodesBuilderTest.class/instance/testClassDefinitionDiffHoistedToTopWithMethodConflict.st +++ /dev/null @@ -1,50 +0,0 @@ -tests -testClassDefinitionDiffHoistedToTopWithMethodConflict - | workingSnapshot incomingSnapshot baseSnapshot modifications conflicts merge nodes classNode | - "given" - baseSnapshot := SquotPackageShadow forPackageNamed: 'Test' withSnapshot: - (MCSnapshot fromDefinitions: - {MCMethodDefinition - className: 'TestClass' - selector: 'test' - category: 'private' - timeStamp: '' - source: 'test ^ 42'. - MCClassDefinition - name: 'TestClass' - superclassName: 'Object' - category: 'Test' - instVarNames: #() - comment: 'No comment'}). - incomingSnapshot := SquotPackageShadow forPackageNamed: 'Test' withSnapshot: - (MCSnapshot fromDefinitions: {}). - workingSnapshot := SquotPackageShadow forPackageNamed: 'Test' withSnapshot: - (MCSnapshot fromDefinitions: - {MCMethodDefinition - className: 'TestClass' - selector: 'test' - category: 'private' - timeStamp: '' - source: 'test ^ #changed'. - MCClassDefinition - name: 'TestClass' - superclassName: 'Object' - category: 'Test' - instVarNames: #() - comment: 'No comment'}). - modifications := - {MCRemoval of: (workingSnapshot asMCSnapshot definitions detect: [:each | each isClassDefinition])}. - conflicts := - {MCConflict operation: (MCRemoval of: (workingSnapshot asMCSnapshot definitions detect: [:each | each isMethodDefinition]))}. - merge := SquotPackageMerge - working: workingSnapshot - incoming: incomingSnapshot - base: baseSnapshot - modifications: modifications - conflicts: conflicts. - "when" - nodes := SquotPackageDiffNodesBuilder new topNodesForMerge: merge. - "then" - classNode := nodes detect: [:each | each title beginsWith: 'TestClass'] ifNone: []. - self assert: classNode notNil; - assert: classNode children first content definition isClassDefinition. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffNodesBuilderTest.class/instance/testClassesOrderedLexicograhically.st b/src/Squot.package/SquotPackageDiffNodesBuilderTest.class/instance/testClassesOrderedLexicograhically.st deleted file mode 100644 index d3f4ec4db..000000000 --- a/src/Squot.package/SquotPackageDiffNodesBuilderTest.class/instance/testClassesOrderedLexicograhically.st +++ /dev/null @@ -1,63 +0,0 @@ -tests -testClassesOrderedLexicograhically - | workingSnapshot incomingSnapshot baseSnapshot class1b class1i class2b class2i class3b class3i modifications conflicts merge nodes | - "given" - baseSnapshot := SquotPackageShadow forPackageNamed: 'Test' withSnapshot: - (MCSnapshot fromDefinitions: - {MCOrganizationDefinition categories: #('Test-B' 'Test-A'). - class1b := MCClassDefinition - name: 'TestClass1' - superclassName: 'Object' - category: 'Test-A' - instVarNames: #() - comment: 'No comment'. - class3b := MCClassDefinition - name: 'TestClass3' - superclassName: 'Object' - category: 'Test-B' - instVarNames: #() - comment: 'No comment'. - class2b := MCClassDefinition - name: 'TestClass2' - superclassName: 'Object' - category: 'Test-B' - instVarNames: #() - comment: 'No comment'}). - incomingSnapshot := SquotPackageShadow forPackageNamed: 'Test' withSnapshot: - (MCSnapshot fromDefinitions: - {MCOrganizationDefinition categories: #('Test-B' 'Test-A'). - class1i := MCClassDefinition - name: 'TestClass1' - superclassName: 'Object' - category: 'Test-A' - instVarNames: #() - comment: 'Changed comment'. - class3i := MCClassDefinition - name: 'TestClass3' - superclassName: 'Object' - category: 'Test-A' "changed category (we once tried to have classes sorted by category, but since you don't see the categories in the diff tree, the order was rather surprising than helpful)" - instVarNames: #() - comment: 'Changed comment'. - class2i := MCClassDefinition - name: 'TestClass2' - superclassName: 'Object' - category: 'Test-B' - instVarNames: #() - comment: 'Changed comment'}). - workingSnapshot := baseSnapshot. - modifications := - {MCModification of: class1b to: class1i. - MCModification of: class3b to: class3i. "deliberately not in the expected order" - MCModification of: class2b to: class2i}. - conflicts := #(). - merge := SquotPackageMerge - working: workingSnapshot - incoming: incomingSnapshot - base: baseSnapshot - modifications: modifications - conflicts: conflicts. - "when" - nodes := SquotPackageDiffNodesBuilder new topNodesForMerge: merge. - "The classes are ordered lexicographically by their names." - self assert: #(#TestClass1 #TestClass2 #TestClass3) - equals: (nodes collect: [:each | each content className]) asArray. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffNodesBuilderTest.class/instance/testMetaclassNodeSuffix.st b/src/Squot.package/SquotPackageDiffNodesBuilderTest.class/instance/testMetaclassNodeSuffix.st deleted file mode 100644 index 4971269b2..000000000 --- a/src/Squot.package/SquotPackageDiffNodesBuilderTest.class/instance/testMetaclassNodeSuffix.st +++ /dev/null @@ -1,46 +0,0 @@ -tests -testMetaclassNodeSuffix - | emptySnapshot populatedSnapshot modifications conflicts merge nodes metaclassNode | - "given" - emptySnapshot := SquotPackageShadow forPackageNamed: 'Test' withSnapshot: MCSnapshot empty. - populatedSnapshot := SquotPackageShadow forPackageNamed: 'Test' withSnapshot: - (MCSnapshot fromDefinitions: - {MCClassDefinition - name: 'TestClass' - superclassName: 'Object' - category: 'Test' - instVarNames: #() - comment: 'No comment'. - MCMethodDefinition - className: 'TestClass' - classIsMeta: true - selector: 'test' - category: 'private' - timeStamp: '' - source: 'test ^ 42'.}). - modifications := populatedSnapshot asMCSnapshot definitions collect: [:each | MCAddition of: each]. - conflicts := #(). - merge := SquotPackageMerge - working: emptySnapshot - incoming: populatedSnapshot - base: emptySnapshot - modifications: modifications - conflicts: conflicts. - "when" - nodes := SquotPackageDiffNodesBuilder new topNodesForMerge: merge. - "then" - metaclassNode := nodes detect: [:each | each title beginsWith: 'TestClass class'] ifNone: []. - self assert: metaclassNode notNil; - assert: (metaclassNode title endsWith: '(added)'). - "when" - nodes := SquotPackageDiffNodesBuilder new topNodesForMerge: - (SquotPackageMerge - working: populatedSnapshot - incoming: emptySnapshot "remove all" - base: populatedSnapshot - modifications: (populatedSnapshot asMCSnapshot definitions collect: [:each | MCRemoval of: each]) - conflicts: conflicts). - "then" - metaclassNode := nodes detect: [:each | each title beginsWith: 'TestClass class'] ifNone: []. - self assert: metaclassNode notNil; - assert: (metaclassNode title endsWith: '(removed)'). \ No newline at end of file diff --git a/src/Squot.package/SquotPackageDiffNodesBuilderTest.class/methodProperties.json b/src/Squot.package/SquotPackageDiffNodesBuilderTest.class/methodProperties.json deleted file mode 100644 index 4553aae13..000000000 --- a/src/Squot.package/SquotPackageDiffNodesBuilderTest.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testClassDefinitionDiffHoistedToTop" : "jr 1/22/2022 19:26", - "testClassDefinitionDiffHoistedToTopWithClassConflict" : "jr 1/22/2022 19:26", - "testClassDefinitionDiffHoistedToTopWithMethodConflict" : "jr 1/22/2022 19:26", - "testClassesOrderedLexicograhically" : "jr 3/8/2022 20:08", - "testMetaclassNodeSuffix" : "jr 1/22/2022 19:26" } } diff --git a/src/Squot.package/SquotPackageDiffNodesBuilderTest.class/properties.json b/src/Squot.package/SquotPackageDiffNodesBuilderTest.class/properties.json deleted file mode 100644 index 51c5dc876..000000000 --- a/src/Squot.package/SquotPackageDiffNodesBuilderTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Tools-Packages", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotPackageDiffNodesBuilderTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotPackageInfoExtension.class/README.md b/src/Squot.package/SquotPackageInfoExtension.class/README.md deleted file mode 100644 index 30e7bd759..000000000 --- a/src/Squot.package/SquotPackageInfoExtension.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I hold additional state for PackageInfo objects. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageInfoExtension.class/class/at.ifAbsent..st b/src/Squot.package/SquotPackageInfoExtension.class/class/at.ifAbsent..st deleted file mode 100644 index 8f25df1b7..000000000 --- a/src/Squot.package/SquotPackageInfoExtension.class/class/at.ifAbsent..st +++ /dev/null @@ -1,8 +0,0 @@ -accessing -at: aPackageInfo ifAbsent: aBlock - self assert: (aPackageInfo isKindOf: PackageInfo). - (NextFinalization ifNil: [DateAndTime now]) <= DateAndTime now - ifTrue: - [Extensions finalizeValues. - NextFinalization := DateAndTime now + 5 minutes]. - ^ Extensions at: aPackageInfo ifAbsent: aBlock \ No newline at end of file diff --git a/src/Squot.package/SquotPackageInfoExtension.class/class/initialize.st b/src/Squot.package/SquotPackageInfoExtension.class/class/initialize.st deleted file mode 100644 index 81bf43901..000000000 --- a/src/Squot.package/SquotPackageInfoExtension.class/class/initialize.st +++ /dev/null @@ -1,3 +0,0 @@ -class initialization -initialize - Extensions := WeakIdentityKeyDictionary newFrom: (Extensions ifNil: [#()]). \ No newline at end of file diff --git a/src/Squot.package/SquotPackageInfoExtension.class/class/of..st b/src/Squot.package/SquotPackageInfoExtension.class/class/of..st deleted file mode 100644 index b2696a8ab..000000000 --- a/src/Squot.package/SquotPackageInfoExtension.class/class/of..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -of: aPackageInfo - ^ self at: aPackageInfo ifAbsent: [Extensions at: aPackageInfo put: self new] \ No newline at end of file diff --git a/src/Squot.package/SquotPackageInfoExtension.class/instance/tonelProperties..st b/src/Squot.package/SquotPackageInfoExtension.class/instance/tonelProperties..st deleted file mode 100644 index 60296ae76..000000000 --- a/src/Squot.package/SquotPackageInfoExtension.class/instance/tonelProperties..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -tonelProperties: anObject - tonelProperties := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotPackageInfoExtension.class/instance/tonelProperties.st b/src/Squot.package/SquotPackageInfoExtension.class/instance/tonelProperties.st deleted file mode 100644 index b260cca82..000000000 --- a/src/Squot.package/SquotPackageInfoExtension.class/instance/tonelProperties.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -tonelProperties - ^ tonelProperties ifNil: [Dictionary new] \ No newline at end of file diff --git a/src/Squot.package/SquotPackageInfoExtension.class/methodProperties.json b/src/Squot.package/SquotPackageInfoExtension.class/methodProperties.json deleted file mode 100644 index ac71c20ac..000000000 --- a/src/Squot.package/SquotPackageInfoExtension.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - "at:ifAbsent:" : "jr 6/6/2022 19:46", - "initialize" : "jr 6/6/2022 19:42", - "of:" : "jr 12/4/2020 20:18" }, - "instance" : { - "tonelProperties" : "jr 12/5/2020 00:14", - "tonelProperties:" : "jr 12/4/2020 20:19" } } diff --git a/src/Squot.package/SquotPackageInfoExtension.class/properties.json b/src/Squot.package/SquotPackageInfoExtension.class/properties.json deleted file mode 100644 index e89dbe020..000000000 --- a/src/Squot.package/SquotPackageInfoExtension.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-Packages", - "classinstvars" : [ - ], - "classvars" : [ - "Extensions", - "NextFinalization" ], - "commentStamp" : "jr 12/4/2020 20:19", - "instvars" : [ - "tonelProperties" ], - "name" : "SquotPackageInfoExtension", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotPackageLoadTest.class/README.md b/src/Squot.package/SquotPackageLoadTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotPackageLoadTest.class/instance/capturePackage.st b/src/Squot.package/SquotPackageLoadTest.class/instance/capturePackage.st deleted file mode 100644 index 988172a64..000000000 --- a/src/Squot.package/SquotPackageLoadTest.class/instance/capturePackage.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -capturePackage - imageStore add: package at: package name, '.package'. - ^ imageStore captureSnapshot \ No newline at end of file diff --git a/src/Squot.package/SquotPackageLoadTest.class/instance/changeLogSuppressor.st b/src/Squot.package/SquotPackageLoadTest.class/instance/changeLogSuppressor.st deleted file mode 100644 index 4d9314a20..000000000 --- a/src/Squot.package/SquotPackageLoadTest.class/instance/changeLogSuppressor.st +++ /dev/null @@ -1,3 +0,0 @@ -private -changeLogSuppressor - ^ changeLogSuppressor \ No newline at end of file diff --git a/src/Squot.package/SquotPackageLoadTest.class/instance/checkRestoredPackage.st b/src/Squot.package/SquotPackageLoadTest.class/instance/checkRestoredPackage.st deleted file mode 100644 index 8d491e494..000000000 --- a/src/Squot.package/SquotPackageLoadTest.class/instance/checkRestoredPackage.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -checkRestoredPackage - self assert: classFactory packageName equals: package packageName. - self assert: (Smalltalk at: className) isBehavior. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageLoadTest.class/instance/setUp.st b/src/Squot.package/SquotPackageLoadTest.class/instance/setUp.st deleted file mode 100644 index 7c8bb4439..000000000 --- a/src/Squot.package/SquotPackageLoadTest.class/instance/setUp.st +++ /dev/null @@ -1,8 +0,0 @@ -running -setUp - changeLogSuppressor := SUnitChangeLogSuppressor new. - imageStore := SquotImageStore new. - classFactory := ClassFactoryForTestCase new. - self suppressChangeNotificationsDuring: [class := classFactory newClass]. - className := class name. - package := PackageInfo new packageName: classFactory packageName. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageLoadTest.class/instance/tearDown.st b/src/Squot.package/SquotPackageLoadTest.class/instance/tearDown.st deleted file mode 100644 index 204cfaad2..000000000 --- a/src/Squot.package/SquotPackageLoadTest.class/instance/tearDown.st +++ /dev/null @@ -1,4 +0,0 @@ -running -tearDown - self suppressChangeNotificationsDuring: [classFactory cleanUp]. - ChangeSet removeChangeSetsNamedSuchThat: [:each | each beginsWith: package name]. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageLoadTest.class/instance/testLoadedAndTracked.st b/src/Squot.package/SquotPackageLoadTest.class/instance/testLoadedAndTracked.st deleted file mode 100644 index d65742a59..000000000 --- a/src/Squot.package/SquotPackageLoadTest.class/instance/testLoadedAndTracked.st +++ /dev/null @@ -1,6 +0,0 @@ -testing -testLoadedAndTracked - | snapshot | - snapshot := self capturePackage. - imageStore applyPatch: (snapshot patchRelativeToBase: imageStore). - self checkRestoredPackage. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageLoadTest.class/instance/testLoadedAndUntracked.st b/src/Squot.package/SquotPackageLoadTest.class/instance/testLoadedAndUntracked.st deleted file mode 100644 index 3d7695d9e..000000000 --- a/src/Squot.package/SquotPackageLoadTest.class/instance/testLoadedAndUntracked.st +++ /dev/null @@ -1,7 +0,0 @@ -testing -testLoadedAndUntracked - | snapshot | - snapshot := self capturePackage. - self untrackPackage. - imageStore applyPatch: (snapshot patchRelativeToBase: imageStore). - self checkRestoredPackage. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageLoadTest.class/instance/testUnloaded.st b/src/Squot.package/SquotPackageLoadTest.class/instance/testUnloaded.st deleted file mode 100644 index 6dc983d67..000000000 --- a/src/Squot.package/SquotPackageLoadTest.class/instance/testUnloaded.st +++ /dev/null @@ -1,8 +0,0 @@ -testing -testUnloaded - | snapshot | - snapshot := self capturePackage. - self untrackPackage; - unloadPackage. - imageStore applyPatch: (snapshot patchRelativeToBase: imageStore). - self checkRestoredPackage. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageLoadTest.class/instance/unloadPackage.st b/src/Squot.package/SquotPackageLoadTest.class/instance/unloadPackage.st deleted file mode 100644 index ec0db7f04..000000000 --- a/src/Squot.package/SquotPackageLoadTest.class/instance/unloadPackage.st +++ /dev/null @@ -1,5 +0,0 @@ -testing -unloadPackage - self suppressChangeNotificationsDuring: - [(MCPackage named: classFactory packageName) unload]. - self deny: (Smalltalk at: className ifAbsent: []) isBehavior. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageLoadTest.class/instance/untrackPackage.st b/src/Squot.package/SquotPackageLoadTest.class/instance/untrackPackage.st deleted file mode 100644 index 07df218e3..000000000 --- a/src/Squot.package/SquotPackageLoadTest.class/instance/untrackPackage.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -untrackPackage - imageStore := SquotImageStore new. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageLoadTest.class/methodProperties.json b/src/Squot.package/SquotPackageLoadTest.class/methodProperties.json deleted file mode 100644 index 2bae33605..000000000 --- a/src/Squot.package/SquotPackageLoadTest.class/methodProperties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "capturePackage" : "jr 7/30/2017 17:08", - "changeLogSuppressor" : "jr 4/29/2018 16:50", - "checkRestoredPackage" : "jr 7/30/2017 16:54", - "setUp" : "jr 4/29/2018 16:51", - "tearDown" : "jr 12/23/2019 17:10", - "testLoadedAndTracked" : "jr 7/30/2017 17:09", - "testLoadedAndUntracked" : "jr 7/30/2017 17:13", - "testUnloaded" : "jr 7/30/2017 17:13", - "unloadPackage" : "jr 12/23/2019 17:11", - "untrackPackage" : "jr 7/30/2017 17:12" } } diff --git a/src/Squot.package/SquotPackageLoadTest.class/properties.json b/src/Squot.package/SquotPackageLoadTest.class/properties.json deleted file mode 100644 index e876e0d49..000000000 --- a/src/Squot.package/SquotPackageLoadTest.class/properties.json +++ /dev/null @@ -1,23 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classtraitcomposition" : "TTestCaseSuppressingProgressDisplay classTrait + TTestCaseThatCreatesClassesOrMethods classTrait", - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "imageStore", - "materializer", - "objectRegistry", - "classFactory", - "class", - "className", - "package", - "changeLogSuppressor" ], - "name" : "SquotPackageLoadTest", - "pools" : [ - ], - "super" : "TestCase", - "traitcomposition" : "TTestCaseSuppressingProgressDisplay + TTestCaseThatCreatesClassesOrMethods", - "type" : "normal" } diff --git a/src/Squot.package/SquotPackageMerge.class/README.md b/src/Squot.package/SquotPackageMerge.class/README.md deleted file mode 100644 index eece18294..000000000 --- a/src/Squot.package/SquotPackageMerge.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A state-based three-way merge of different editions of a package. Uses Monticello underneath to merge snapshots. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageMerge.class/class/working.incoming.base.modifications.conflicts..st b/src/Squot.package/SquotPackageMerge.class/class/working.incoming.base.modifications.conflicts..st deleted file mode 100644 index c2f0abba6..000000000 --- a/src/Squot.package/SquotPackageMerge.class/class/working.incoming.base.modifications.conflicts..st +++ /dev/null @@ -1,9 +0,0 @@ -instance creation -working: workingPackageShadow incoming: incomingPackageShadow base: basePackageShadow modifications: operationsCollection conflicts: conflictsCollection - ^ self new - setWorking: workingPackageShadow - incoming: incomingPackageShadow - base: basePackageShadow - modifications: operationsCollection - conflicts: conflictsCollection; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotPackageMerge.class/instance/addOperationOrConflict..st b/src/Squot.package/SquotPackageMerge.class/instance/addOperationOrConflict..st deleted file mode 100644 index fa09263ba..000000000 --- a/src/Squot.package/SquotPackageMerge.class/instance/addOperationOrConflict..st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-Tools -addOperationOrConflict: aMCPatchOperationOrConflict - aMCPatchOperationOrConflict isConflict - ifTrue: [containerConflicts at: (self keyOf: aMCPatchOperationOrConflict definition) put: aMCPatchOperationOrConflict] - ifFalse: [containerModifications at: (self keyOf: aMCPatchOperationOrConflict definition) put: aMCPatchOperationOrConflict]. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageMerge.class/instance/chooseIncoming.st b/src/Squot.package/SquotPackageMerge.class/instance/chooseIncoming.st deleted file mode 100644 index be79f3335..000000000 --- a/src/Squot.package/SquotPackageMerge.class/instance/chooseIncoming.st +++ /dev/null @@ -1,3 +0,0 @@ -merging -chooseIncoming - containerConflicts do: [:each | each chooseRemote]. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageMerge.class/instance/chooseWorking.st b/src/Squot.package/SquotPackageMerge.class/instance/chooseWorking.st deleted file mode 100644 index 4a7657929..000000000 --- a/src/Squot.package/SquotPackageMerge.class/instance/chooseWorking.st +++ /dev/null @@ -1,3 +0,0 @@ -merging -chooseWorking - containerConflicts do: [:each | each chooseLocal]. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageMerge.class/instance/computeDifferences.st b/src/Squot.package/SquotPackageMerge.class/instance/computeDifferences.st deleted file mode 100644 index 723d725bf..000000000 --- a/src/Squot.package/SquotPackageMerge.class/instance/computeDifferences.st +++ /dev/null @@ -1,8 +0,0 @@ -private -computeDifferences - | merger | - merger := working mergeSnapshot: incoming basedOn: base. - merger operations do: - [:each | containerModifications at: each definition description put: each]. - merger conflicts do: - [:each | containerConflicts at: each definition description put: each]. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageMerge.class/instance/hasChanges.st b/src/Squot.package/SquotPackageMerge.class/instance/hasChanges.st deleted file mode 100644 index 7b11dcf7a..000000000 --- a/src/Squot.package/SquotPackageMerge.class/instance/hasChanges.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -hasChanges - ^ containerModifications notEmpty or: - [containerConflicts anySatisfy: [:each | each isResolved not or: [each remoteChosen]]] \ No newline at end of file diff --git a/src/Squot.package/SquotPackageMerge.class/instance/initializeSquotDiffNodes.with..st b/src/Squot.package/SquotPackageMerge.class/instance/initializeSquotDiffNodes.with..st deleted file mode 100644 index a4fec3e78..000000000 --- a/src/Squot.package/SquotPackageMerge.class/instance/initializeSquotDiffNodes.with..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -initializeSquotDiffNodes: aCollection with: aSquotDiffNodesBuilder - "Nothing to do, nodes were already built completely in #newSquotDiffNodes." \ No newline at end of file diff --git a/src/Squot.package/SquotPackageMerge.class/instance/keyOf.ifAbsent..st b/src/Squot.package/SquotPackageMerge.class/instance/keyOf.ifAbsent..st deleted file mode 100644 index 3de3e3676..000000000 --- a/src/Squot.package/SquotPackageMerge.class/instance/keyOf.ifAbsent..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -keyOf: aMCDefinition ifAbsent: aBlock - ^ aMCDefinition description \ No newline at end of file diff --git a/src/Squot.package/SquotPackageMerge.class/instance/modifications.st b/src/Squot.package/SquotPackageMerge.class/instance/modifications.st deleted file mode 100644 index 5a0b0de1a..000000000 --- a/src/Squot.package/SquotPackageMerge.class/instance/modifications.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -modifications - ^ containerModifications values \ No newline at end of file diff --git a/src/Squot.package/SquotPackageMerge.class/instance/newSquotDiffNodes.st b/src/Squot.package/SquotPackageMerge.class/instance/newSquotDiffNodes.st deleted file mode 100644 index d574d55c2..000000000 --- a/src/Squot.package/SquotPackageMerge.class/instance/newSquotDiffNodes.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -newSquotDiffNodes - ^ SquotPackageDiffNodesBuilder new topNodesForMerge: self \ No newline at end of file diff --git a/src/Squot.package/SquotPackageMerge.class/instance/operationsAndConflicts.st b/src/Squot.package/SquotPackageMerge.class/instance/operationsAndConflicts.st deleted file mode 100644 index 1d15a0136..000000000 --- a/src/Squot.package/SquotPackageMerge.class/instance/operationsAndConflicts.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -operationsAndConflicts - ^ containerModifications values, containerConflicts values \ No newline at end of file diff --git a/src/Squot.package/SquotPackageMerge.class/instance/privateResolvedPatch.st b/src/Squot.package/SquotPackageMerge.class/instance/privateResolvedPatch.st deleted file mode 100644 index 6827ee4d1..000000000 --- a/src/Squot.package/SquotPackageMerge.class/instance/privateResolvedPatch.st +++ /dev/null @@ -1,7 +0,0 @@ -private -privateResolvedPatch - | patcher | - patcher := working monticelloPatcher. - containerConflicts do: [:each | each applyTo: patcher]. - containerModifications do: [:each | each applyTo: patcher]. - ^ working diffToSnapshot: patcher patchedSnapshot \ No newline at end of file diff --git a/src/Squot.package/SquotPackageMerge.class/instance/removeOperationOrConflict..st b/src/Squot.package/SquotPackageMerge.class/instance/removeOperationOrConflict..st deleted file mode 100644 index 1b5a88a28..000000000 --- a/src/Squot.package/SquotPackageMerge.class/instance/removeOperationOrConflict..st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-Tools -removeOperationOrConflict: aMCPatchOperationOrConflict - aMCPatchOperationOrConflict isConflict - ifTrue: [containerConflicts removeKey: (self keyOf: aMCPatchOperationOrConflict definition)] - ifFalse: [containerModifications removeKey: (self keyOf: aMCPatchOperationOrConflict definition)]. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageMerge.class/instance/resetChoice.st b/src/Squot.package/SquotPackageMerge.class/instance/resetChoice.st deleted file mode 100644 index f222cf1bc..000000000 --- a/src/Squot.package/SquotPackageMerge.class/instance/resetChoice.st +++ /dev/null @@ -1,3 +0,0 @@ -merging -resetChoice - containerConflicts do: [:each | each clearChoice]. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageMerge.class/instance/setWorking.incoming.base.modifications.conflicts..st b/src/Squot.package/SquotPackageMerge.class/instance/setWorking.incoming.base.modifications.conflicts..st deleted file mode 100644 index c69a101f4..000000000 --- a/src/Squot.package/SquotPackageMerge.class/instance/setWorking.incoming.base.modifications.conflicts..st +++ /dev/null @@ -1,9 +0,0 @@ -initialize-release -setWorking: workingPackageShadow incoming: incomingPackageShadow base: basePackageShadow modifications: operationsCollection conflicts: conflictsCollection - working := workingPackageShadow. - incoming := incomingPackageShadow. - base := basePackageShadow. - operationsCollection do: - [:each | containerModifications at: each definition description put: each]. - conflictsCollection do: - [:each | containerConflicts at: each definition description put: each]. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageMerge.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotPackageMerge.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index fe706875f..000000000 --- a/src/Squot.package/SquotPackageMerge.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,21 +0,0 @@ -*Squot-Tools -squotChangeAsStringOrText - | text | - text := WriteStream on: (Text new: 100). - (SquotPackageDiff modificationsGroupedByClass: ((containerConflicts reject: [:each | each localChosen]) collect: [:each | each operation])) - keysAndValuesDo: - [:groupKey :items | - text nextPutAll: groupKey asText allBold; - cr; cr. - items do: [:each | text nextPutAll: (containerConflicts at: each definition description) squotChangeAsStringOrText] - separatedBy: [text cr; cr]. - text cr; cr]. - (SquotPackageDiff modificationsGroupedByClass: self modifications) - keysAndValuesDo: - [:groupKey :items | - text nextPutAll: groupKey asText allBold; - cr; cr. - items do: [:each | text nextPutAll: each squotChangeAsStringOrText] - separatedBy: [text cr; cr]. - text cr; cr]. - ^ text contents \ No newline at end of file diff --git a/src/Squot.package/SquotPackageMerge.class/methodProperties.json b/src/Squot.package/SquotPackageMerge.class/methodProperties.json deleted file mode 100644 index 25d8c6a75..000000000 --- a/src/Squot.package/SquotPackageMerge.class/methodProperties.json +++ /dev/null @@ -1,19 +0,0 @@ -{ - "class" : { - "working:incoming:base:modifications:conflicts:" : "jr 12/12/2021 16:28" }, - "instance" : { - "addOperationOrConflict:" : "jr 11/29/2020 20:21", - "chooseIncoming" : "jr 9/25/2019 21:20", - "chooseWorking" : "jr 9/25/2019 21:20", - "computeDifferences" : "jr 9/25/2019 21:43", - "hasChanges" : "jr 6/29/2022 00:13", - "initializeSquotDiffNodes:with:" : "jr 9/25/2019 21:50", - "keyOf:ifAbsent:" : "jr 9/25/2019 21:43", - "modifications" : "jr 9/25/2019 22:32", - "newSquotDiffNodes" : "jr 1/22/2022 19:26", - "operationsAndConflicts" : "jr 11/29/2020 20:16", - "privateResolvedPatch" : "jr 9/25/2019 21:35", - "removeOperationOrConflict:" : "jr 11/29/2020 20:23", - "resetChoice" : "jr 9/25/2019 21:21", - "setWorking:incoming:base:modifications:conflicts:" : "jr 12/12/2021 16:26", - "squotChangeAsStringOrText" : "jr 5/17/2020 22:59" } } diff --git a/src/Squot.package/SquotPackageMerge.class/properties.json b/src/Squot.package/SquotPackageMerge.class/properties.json deleted file mode 100644 index 9cff912ec..000000000 --- a/src/Squot.package/SquotPackageMerge.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Packages", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 21:00", - "instvars" : [ - ], - "name" : "SquotPackageMerge", - "pools" : [ - ], - "super" : "SquotAbstractCollectionMerge", - "type" : "normal" } diff --git a/src/Squot.package/SquotPackageMergeNodesTest.class/README.md b/src/Squot.package/SquotPackageMergeNodesTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotPackageMergeNodesTest.class/instance/testArtifactModifcationRemovalConflict.st b/src/Squot.package/SquotPackageMergeNodesTest.class/instance/testArtifactModifcationRemovalConflict.st deleted file mode 100644 index 64ebf1abb..000000000 --- a/src/Squot.package/SquotPackageMergeNodesTest.class/instance/testArtifactModifcationRemovalConflict.st +++ /dev/null @@ -1,26 +0,0 @@ -tests -testArtifactModifcationRemovalConflict - | working incoming base merge node | - "given" - working := SquotSnapshot empty. - incoming := SquotSnapshot builder - add: ((MCSnapshot fromDefinitions: - {MCClassDefinition name: 'ChangedAndRemoved' superclassName: 'Object' - category: 'ChangedAndRemoved' instVarNames: '' comment: 'A'}) - asSquotArtifactForPackage: - (PackageInfo new packageName: 'ChangedAndRemoved')); - buildSnapshot. - base := SquotSnapshot builder - add: ((MCSnapshot fromDefinitions: - {MCClassDefinition name: 'ChangedAndRemoved' superclassName: 'Object' - category: 'ChangedAndRemoved' instVarNames: '' comment: 'C'}) - asSquotArtifactForPackage: - (PackageInfo new packageName: 'ChangedAndRemoved')); - buildSnapshot. - merge := SquotMerge into: working merge: incoming basedOn: base. - "when" - node := merge containerConflicts anyOne asDiffTree. - "then" - self assert: node content == (merge conflictAt: 'ChangedAndRemoved.package'); - assert: 'ChangedAndRemoved.package (removed/changed)' equals: node title asString; - assert: node needsChoice. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageMergeNodesTest.class/instance/testArtifactParallelAdditionConflict.st b/src/Squot.package/SquotPackageMergeNodesTest.class/instance/testArtifactParallelAdditionConflict.st deleted file mode 100644 index 2ed6f0c1c..000000000 --- a/src/Squot.package/SquotPackageMergeNodesTest.class/instance/testArtifactParallelAdditionConflict.st +++ /dev/null @@ -1,26 +0,0 @@ -tests -testArtifactParallelAdditionConflict - | working incoming base merge node | - "given" - working := SquotSnapshot builder - add: ((MCSnapshot fromDefinitions: - {MCClassDefinition name: 'AddedByBoth' superclassName: 'Object' - category: 'AddedByBoth' instVarNames: '' comment: 'A'}) - asSquotArtifactForPackage: - (PackageInfo new packageName: 'AddedByBoth')); - buildSnapshot. - incoming := SquotSnapshot builder - add: ((MCSnapshot fromDefinitions: - {MCClassDefinition name: 'AddedByBoth' superclassName: 'Object' - category: 'AddedByBoth' instVarNames: '' comment: 'B'}) - asSquotArtifactForPackage: - (PackageInfo new packageName: 'AddedByBoth')); - buildSnapshot. - base := SquotSnapshot empty. - merge := SquotMerge into: working merge: incoming basedOn: base. - "when" - node := merge elementMerges anyOne asDiffTree. - "then" - self assert: node content == (merge mergeAt: 'AddedByBoth.package'); - assert: 'AddedByBoth.package (merge, not loaded)' equals: node title asString; - assert: node needsChoice. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageMergeNodesTest.class/instance/testArtifactRemovalModifcationConflict.st b/src/Squot.package/SquotPackageMergeNodesTest.class/instance/testArtifactRemovalModifcationConflict.st deleted file mode 100644 index 5f0fffa59..000000000 --- a/src/Squot.package/SquotPackageMergeNodesTest.class/instance/testArtifactRemovalModifcationConflict.st +++ /dev/null @@ -1,26 +0,0 @@ -tests -testArtifactRemovalModifcationConflict - | working incoming base merge node | - "given" - working := SquotSnapshot builder - add: ((MCSnapshot fromDefinitions: - {MCClassDefinition name: 'ChangedAndRemoved' superclassName: 'Object' - category: 'ChangedAndRemoved' instVarNames: '' comment: 'A'}) - asSquotArtifactForPackage: - (PackageInfo new packageName: 'ChangedAndRemoved')); - buildSnapshot. - incoming := SquotSnapshot empty. - base := SquotSnapshot builder - add: ((MCSnapshot fromDefinitions: - {MCClassDefinition name: 'ChangedAndRemoved' superclassName: 'Object' - category: 'ChangedAndRemoved' instVarNames: '' comment: 'C'}) - asSquotArtifactForPackage: - (PackageInfo new packageName: 'ChangedAndRemoved')); - buildSnapshot. - merge := SquotMerge into: working merge: incoming basedOn: base. - "when" - node := merge containerConflicts anyOne asDiffTree. - "then" - self assert: node content == (merge conflictAt: 'ChangedAndRemoved.package'); - assert: 'ChangedAndRemoved.package (changed/removed)' equals: node title asString; - assert: node needsChoice. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageMergeNodesTest.class/methodProperties.json b/src/Squot.package/SquotPackageMergeNodesTest.class/methodProperties.json deleted file mode 100644 index 51385c35d..000000000 --- a/src/Squot.package/SquotPackageMergeNodesTest.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testArtifactModifcationRemovalConflict" : "jr 11/22/2020 23:43", - "testArtifactParallelAdditionConflict" : "jr 11/22/2020 23:44", - "testArtifactRemovalModifcationConflict" : "jr 11/22/2020 23:44" } } diff --git a/src/Squot.package/SquotPackageMergeNodesTest.class/properties.json b/src/Squot.package/SquotPackageMergeNodesTest.class/properties.json deleted file mode 100644 index a64a71cf6..000000000 --- a/src/Squot.package/SquotPackageMergeNodesTest.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Tests-Packages", - "classinstvars" : [ - ], - "classtraitcomposition" : "TTestCaseSuppressingProgressDisplay classTrait", - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotPackageMergeNodesTest", - "pools" : [ - ], - "super" : "TestCase", - "traitcomposition" : "TTestCaseSuppressingProgressDisplay", - "type" : "normal" } diff --git a/src/Squot.package/SquotPackageMergeTest.class/README.md b/src/Squot.package/SquotPackageMergeTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotPackageMergeTest.class/instance/testParallelAddition.st b/src/Squot.package/SquotPackageMergeTest.class/instance/testParallelAddition.st deleted file mode 100644 index 5becc919c..000000000 --- a/src/Squot.package/SquotPackageMergeTest.class/instance/testParallelAddition.st +++ /dev/null @@ -1,40 +0,0 @@ -tests -testParallelAddition - | working incoming diff merge | - working := - SquotPackageShadow - forPackageNamed: 'Package' withSnapshot: - (MCSnapshot fromDefinitions: - {MCClassDefinition name: 'Class1' superclassName: 'Object' - category: 'TestCategory' instVarNames: 'a b c' comment: 'A'. - MCMethodDefinition className: 'Class1' selector: 'onlyInA' - category: 'clean merge' timeStamp: '' source: 'onlyInA ^ true'. - MCMethodDefinition className: 'Class1' selector: 'conflict' - category: 'conflicts' timeStamp: '' source: 'conflict ^ $A'}). - incoming := - SquotPackageShadow - forPackageNamed: 'Package' withSnapshot: - (MCSnapshot fromDefinitions: - {MCClassDefinition name: 'Class1' superclassName: 'Object' - category: 'TestCategory' instVarNames: 'a b c d' comment: 'B'. - MCMethodDefinition className: 'Class1' selector: 'onlyInB' - category: 'clean merge' timeStamp: '' source: 'onlyInB ^ true'. - MCMethodDefinition className: 'Class1' selector: 'conflict' - category: 'conflicts' timeStamp: '' source: 'conflict ^ $B'}). - diff := working squotDiffAgainst: incoming. - merge := diff asSquotConflicts. - self assert: ((merge conflicts collect: [:each | each operation]) includesAllOf: - {MCModification - of: (MCMethodDefinition className: 'Class1' selector: 'conflict' - category: 'conflicts' timeStamp: '' source: 'conflict ^ $A') - to: (MCMethodDefinition className: 'Class1' selector: 'conflict' - category: 'conflicts' timeStamp: '' source: 'conflict ^ $B'). - MCModification - of: (MCClassDefinition name: 'Class1' superclassName: 'Object' - category: 'TestCategory' instVarNames: 'a b c' comment: 'A') - to: (MCClassDefinition name: 'Class1' superclassName: 'Object' - category: 'TestCategory' instVarNames: 'a b c d' comment: 'B')}); - assert: (merge modifications includesAllOf: - {MCAddition of: - (MCMethodDefinition className: 'Class1' selector: 'onlyInB' - category: 'clean merge' timeStamp: '' source: 'onlyInB ^ true')}). \ No newline at end of file diff --git a/src/Squot.package/SquotPackageMergeTest.class/methodProperties.json b/src/Squot.package/SquotPackageMergeTest.class/methodProperties.json deleted file mode 100644 index ddacd7cdb..000000000 --- a/src/Squot.package/SquotPackageMergeTest.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testParallelAddition" : "jr 9/25/2019 22:50" } } diff --git a/src/Squot.package/SquotPackageMergeTest.class/properties.json b/src/Squot.package/SquotPackageMergeTest.class/properties.json deleted file mode 100644 index 35a84b35f..000000000 --- a/src/Squot.package/SquotPackageMergeTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Packages", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotPackageMergeTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotPackageMirror.class/README.md b/src/Squot.package/SquotPackageMirror.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotPackageMirror.class/instance/capture.with.ifReplaced..st b/src/Squot.package/SquotPackageMirror.class/instance/capture.with.ifReplaced..st deleted file mode 100644 index 1cdd266bb..000000000 --- a/src/Squot.package/SquotPackageMirror.class/instance/capture.with.ifReplaced..st +++ /dev/null @@ -1,15 +0,0 @@ -capturing -capture: aPackageInfo with: aSquotObjectCapturer ifReplaced: aBlock - | environment mcEnvironment snapshot | - aSquotObjectCapturer flag: #unusedArgument. - environment := self environmentInMetadata: SquotCurrentMetadata value. - mcEnvironment := aPackageInfo workingCopy environment. - (mcEnvironment ~= environment and: [environment = Smalltalk globals]) ifTrue: - [Warning signal: 'Capturing ', self asString, ' in Environment ', mcEnvironment asString. - environment := mcEnvironment]. - snapshot := environment beCurrentDuring: - [(MCPackage named: aPackageInfo packageName) snapshot]. - ^ SquotPackageShadow - forPackageNamed: aPackageInfo packageName - withSnapshot: snapshot - tonelProperties: (SquotPackageInfoExtension of: aPackageInfo) tonelProperties \ No newline at end of file diff --git a/src/Squot.package/SquotPackageMirror.class/instance/environmentInMetadata..st b/src/Squot.package/SquotPackageMirror.class/instance/environmentInMetadata..st deleted file mode 100644 index 0444fd21e..000000000 --- a/src/Squot.package/SquotPackageMirror.class/instance/environmentInMetadata..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -environmentInMetadata: aTrackedObjectMetadata - self flag: #stub. - ^ PackageInfo squotEnvironmentInMetadata: aTrackedObjectMetadata \ No newline at end of file diff --git a/src/Squot.package/SquotPackageMirror.class/instance/newShadowObject.st b/src/Squot.package/SquotPackageMirror.class/instance/newShadowObject.st deleted file mode 100644 index 4191816cc..000000000 --- a/src/Squot.package/SquotPackageMirror.class/instance/newShadowObject.st +++ /dev/null @@ -1,3 +0,0 @@ -capturing -newShadowObject - ^ SquotPackageShadow new \ No newline at end of file diff --git a/src/Squot.package/SquotPackageMirror.class/instance/referencesFrom..st b/src/Squot.package/SquotPackageMirror.class/instance/referencesFrom..st deleted file mode 100644 index 8eaa8ad2c..000000000 --- a/src/Squot.package/SquotPackageMirror.class/instance/referencesFrom..st +++ /dev/null @@ -1,5 +0,0 @@ -enumerating -referencesFrom: aPackageInfo - "Treat packages as opaque for now, all the separation into different sub-objects like classes, methods, ... happens without detailing the object graph." - - ^ #() \ No newline at end of file diff --git a/src/Squot.package/SquotPackageMirror.class/instance/shouldObjectHaveNameAssigned..st b/src/Squot.package/SquotPackageMirror.class/instance/shouldObjectHaveNameAssigned..st deleted file mode 100644 index 2f92a6310..000000000 --- a/src/Squot.package/SquotPackageMirror.class/instance/shouldObjectHaveNameAssigned..st +++ /dev/null @@ -1,4 +0,0 @@ -testing -shouldObjectHaveNameAssigned: aPackageInfo - "Package is identified by its name already." - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotPackageMirror.class/methodProperties.json b/src/Squot.package/SquotPackageMirror.class/methodProperties.json deleted file mode 100644 index a53fa5694..000000000 --- a/src/Squot.package/SquotPackageMirror.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "capture:with:ifReplaced:" : "jr 7/17/2021 23:59", - "environmentInMetadata:" : "jr 4/7/2021 22:40", - "newShadowObject" : "jr 4/7/2021 22:41", - "referencesFrom:" : "jr 6/27/2021 23:24", - "shouldObjectHaveNameAssigned:" : "jr 6/26/2021 22:38" } } diff --git a/src/Squot.package/SquotPackageMirror.class/properties.json b/src/Squot.package/SquotPackageMirror.class/properties.json deleted file mode 100644 index 318002d3c..000000000 --- a/src/Squot.package/SquotPackageMirror.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Packages", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotPackageMirror", - "pools" : [ - ], - "super" : "SquotMirror", - "type" : "normal" } diff --git a/src/Squot.package/SquotPackageShadow.class/README.md b/src/Squot.package/SquotPackageShadow.class/README.md deleted file mode 100644 index 25fad15d1..000000000 --- a/src/Squot.package/SquotPackageShadow.class/README.md +++ /dev/null @@ -1,3 +0,0 @@ -I am a shadow of the code of a Squeak package, as defined by PackageInfo. - -I use Monticello snapshots to store code and organization, and MCPatch for diffs. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/class/forPackageNamed.withSnapshot..st b/src/Squot.package/SquotPackageShadow.class/class/forPackageNamed.withSnapshot..st deleted file mode 100644 index 37f27f41c..000000000 --- a/src/Squot.package/SquotPackageShadow.class/class/forPackageNamed.withSnapshot..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -forPackageNamed: aString withSnapshot: aMCSnapshot - ^ self newNotEmpty - setPackageName: aString snapshot: aMCSnapshot tonelProperties: Dictionary new; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/class/forPackageNamed.withSnapshot.tonelProperties..st b/src/Squot.package/SquotPackageShadow.class/class/forPackageNamed.withSnapshot.tonelProperties..st deleted file mode 100644 index d9a0f1b57..000000000 --- a/src/Squot.package/SquotPackageShadow.class/class/forPackageNamed.withSnapshot.tonelProperties..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -forPackageNamed: aString withSnapshot: aMCSnapshot tonelProperties: aDictionary - ^ self newNotEmpty - setPackageName: aString snapshot: aMCSnapshot tonelProperties: aDictionary; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/class/newNotEmpty.st b/src/Squot.package/SquotPackageShadow.class/class/newNotEmpty.st deleted file mode 100644 index 457002ff1..000000000 --- a/src/Squot.package/SquotPackageShadow.class/class/newNotEmpty.st +++ /dev/null @@ -1,3 +0,0 @@ -private instance creation -newNotEmpty - ^ self basicNew "to avoid initialize to empty snapshot" \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/class/squotMirror.st b/src/Squot.package/SquotPackageShadow.class/class/squotMirror.st deleted file mode 100644 index c3cd789b7..000000000 --- a/src/Squot.package/SquotPackageShadow.class/class/squotMirror.st +++ /dev/null @@ -1,3 +0,0 @@ -reflecting -squotMirror - ^ SquotPackageShadowMirror new \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/class/squotPreferredSerializer.st b/src/Squot.package/SquotPackageShadow.class/class/squotPreferredSerializer.st deleted file mode 100644 index be60e639a..000000000 --- a/src/Squot.package/SquotPackageShadow.class/class/squotPreferredSerializer.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -squotPreferredSerializer - ^ SquotCypressCodeSerializer \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/^equals.st b/src/Squot.package/SquotPackageShadow.class/instance/^equals.st deleted file mode 100644 index 10e00c16e..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/^equals.st +++ /dev/null @@ -1,4 +0,0 @@ -comparing -= other - ^ other packageName = packageName - and: [(other diffToBase: self withSnapshot: snapshot) squotHasChanges not] \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/asMCSnapshot.st b/src/Squot.package/SquotPackageShadow.class/instance/asMCSnapshot.st deleted file mode 100644 index fbdd10dac..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/asMCSnapshot.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -asMCSnapshot - ^ snapshot \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/browse.st b/src/Squot.package/SquotPackageShadow.class/instance/browse.st deleted file mode 100644 index 6c4a4d9a3..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/browse.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -browse - ^ (MCSnapshotBrowser forSnapshot: snapshot) showLabelled: 'Snapshot of package ', packageName \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/copyWithSnapshot..st b/src/Squot.package/SquotPackageShadow.class/instance/copyWithSnapshot..st deleted file mode 100644 index db4e8cf40..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/copyWithSnapshot..st +++ /dev/null @@ -1,7 +0,0 @@ -patching -copyWithSnapshot: aMCSnapshot - ^ self copy - setPackageName: packageName - snapshot: aMCSnapshot - tonelProperties: tonelProperties; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/copyWithSnapshot.tonelProperties..st b/src/Squot.package/SquotPackageShadow.class/instance/copyWithSnapshot.tonelProperties..st deleted file mode 100644 index a12195609..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/copyWithSnapshot.tonelProperties..st +++ /dev/null @@ -1,7 +0,0 @@ -patching -copyWithSnapshot: aMCSnapshot tonelProperties: aDictionary - ^ self copy - setPackageName: packageName - snapshot: aMCSnapshot - tonelProperties: aDictionary; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/definitions.st b/src/Squot.package/SquotPackageShadow.class/instance/definitions.st deleted file mode 100644 index 9815b3724..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/definitions.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tests -definitions - ^ snapshot definitions \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/diffToBase.withSnapshot..st b/src/Squot.package/SquotPackageShadow.class/instance/diffToBase.withSnapshot..st deleted file mode 100644 index e461f2566..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/diffToBase.withSnapshot..st +++ /dev/null @@ -1,5 +0,0 @@ -comparing -diffToBase: aPackageShadow withSnapshot: aMCSnapshot - ^ SquotPackageDiff - left: aPackageShadow withSnapshot: aMCSnapshot - right: self withSnapshot: snapshot \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/diffToSnapshot..st b/src/Squot.package/SquotPackageShadow.class/instance/diffToSnapshot..st deleted file mode 100644 index 30a0305bc..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/diffToSnapshot..st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -diffToSnapshot: aMCSnapshot - ^ self squotDiffAgainst: (self copyWithSnapshot: aMCSnapshot) \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/hash.st b/src/Squot.package/SquotPackageShadow.class/instance/hash.st deleted file mode 100644 index 3dcc8a749..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/hash.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -hash - ^ (packageName hash bitXor: snapshot hash) hashMultiply \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/initialize.st b/src/Squot.package/SquotPackageShadow.class/instance/initialize.st deleted file mode 100644 index 6d5d6f18a..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/initialize.st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -initialize - packageName := ''. - snapshot := MCSnapshot empty. - tonelProperties := Dictionary new. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/mergeSnapshot.basedOn..st b/src/Squot.package/SquotPackageShadow.class/instance/mergeSnapshot.basedOn..st deleted file mode 100644 index dc0e219ff..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/mergeSnapshot.basedOn..st +++ /dev/null @@ -1,3 +0,0 @@ -merging -mergeSnapshot: incomingPackageShadow basedOn: basePackageShadow - ^ incomingPackageShadow mergeSnapshotInto: snapshot basedOn: basePackageShadow \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/mergeSnapshot.into..st b/src/Squot.package/SquotPackageShadow.class/instance/mergeSnapshot.into..st deleted file mode 100644 index 38bb937ec..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/mergeSnapshot.into..st +++ /dev/null @@ -1,7 +0,0 @@ -merging -mergeSnapshot: incomingMCSnapshot into: workingMCSnapshot - ^ [MCThreeWayMerger - base: workingMCSnapshot - target: incomingMCSnapshot - ancestor: snapshot] - on: MCNoChangesException do: [:e | e resume "swallow 'no changes' inform"] \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/mergeSnapshotInto.basedOn..st b/src/Squot.package/SquotPackageShadow.class/instance/mergeSnapshotInto.basedOn..st deleted file mode 100644 index 35d9127a0..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/mergeSnapshotInto.basedOn..st +++ /dev/null @@ -1,3 +0,0 @@ -merging -mergeSnapshotInto: workingMCSnapshot basedOn: basePackageShadow - ^ basePackageShadow mergeSnapshot: snapshot into: workingMCSnapshot \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/monticelloPatcher.st b/src/Squot.package/SquotPackageShadow.class/instance/monticelloPatcher.st deleted file mode 100644 index db578927e..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/monticelloPatcher.st +++ /dev/null @@ -1,3 +0,0 @@ -patching -monticelloPatcher - ^ MCPatcher snapshot: snapshot \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/packageName.st b/src/Squot.package/SquotPackageShadow.class/instance/packageName.st deleted file mode 100644 index 6064ae87e..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/packageName.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -packageName - ^ packageName \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/printOn..st b/src/Squot.package/SquotPackageShadow.class/instance/printOn..st deleted file mode 100644 index f6056718f..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/printOn..st +++ /dev/null @@ -1,6 +0,0 @@ -printing -printOn: aStream - super printOn: aStream. - aStream - nextPutAll: ' of '; nextPutAll: packageName; - yourself. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/sameIn.withName.ifAbsent..st b/src/Squot.package/SquotPackageShadow.class/instance/sameIn.withName.ifAbsent..st deleted file mode 100644 index ec1a25830..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/sameIn.withName.ifAbsent..st +++ /dev/null @@ -1,11 +0,0 @@ -accessing -sameIn: aGraph withName: aName ifAbsent: aBlock - | otherEdition | - otherEdition := [aGraph class squotMirror reflect: (SquotGraphElementWithName name: aName) of: aGraph] on: KeyNotFound do: [:e | ^ aBlock value]. - otherEdition packageName ~= packageName - ifTrue: "Graph contained a different package." - [^ aBlock value]. - (aGraph respondsTo: #startShadow) - ifTrue: [self assert: aGraph startShadow undecorated = otherEdition - description: 'Packages should be the source of a tracked object graph']. - ^ otherEdition \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/setPackageName.snapshot.tonelProperties..st b/src/Squot.package/SquotPackageShadow.class/instance/setPackageName.snapshot.tonelProperties..st deleted file mode 100644 index 9996711d8..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/setPackageName.snapshot.tonelProperties..st +++ /dev/null @@ -1,6 +0,0 @@ -initialize-release -setPackageName: aString snapshot: aMCSnapshot tonelProperties: aDictionary - packageName := aString. - snapshot := aMCSnapshot. - tonelProperties := aDictionary. - \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/snapshot..st b/src/Squot.package/SquotPackageShadow.class/instance/snapshot..st deleted file mode 100644 index 742b8704b..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/snapshot..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -snapshot: aMCSnapshot - snapshot := aMCSnapshot. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/squotDiffAgainst..st b/src/Squot.package/SquotPackageShadow.class/instance/squotDiffAgainst..st deleted file mode 100644 index b3085398d..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/squotDiffAgainst..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-shadow-diffing -squotDiffAgainst: aPackageShadow - ^ aPackageShadow diffToBase: self withSnapshot: snapshot \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/squotDiffAgainst.with..st b/src/Squot.package/SquotPackageShadow.class/instance/squotDiffAgainst.with..st deleted file mode 100644 index ebad59974..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/squotDiffAgainst.with..st +++ /dev/null @@ -1,6 +0,0 @@ -Squot-shadow-diffing -squotDiffAgainst: otherPackageShadow with: aDiffBuilder - self deprecated: 'See SquotPackageShadowMirror newDiffFrom:to:'. - ^ aDiffBuilder diffFrom: self to: otherPackageShadow - ifNew: [otherPackageShadow diffToBase: self withSnapshot: snapshot] - andInitialize: [] \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/squotMaterializeWith..st b/src/Squot.package/SquotPackageShadow.class/instance/squotMaterializeWith..st deleted file mode 100644 index 78793f722..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/squotMaterializeWith..st +++ /dev/null @@ -1,13 +0,0 @@ -Squot-shadow -squotMaterializeWith: aMaterializer - | mcPackage packageInfo | - (PackageInfo squotEnvironmentInMetadata: SquotCurrentMetadata value) - beCurrentDuring: - [mcPackage := MCPackage named: packageName. - MCPackageLoader new - updatePackage: mcPackage withSnapshot: snapshot; - loadWithNameLike: packageName. - packageInfo := PackageInfo named: packageName. - (SquotPackageInfoExtension of: packageInfo) - tonelProperties: tonelProperties copy. - ^ packageInfo] \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/squotMergeWith.basedOn..st b/src/Squot.package/SquotPackageShadow.class/instance/squotMergeWith.basedOn..st deleted file mode 100644 index 7d0e727c1..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/squotMergeWith.basedOn..st +++ /dev/null @@ -1,6 +0,0 @@ -merging -squotMergeWith: incomingPackageShadow basedOn: basePackageShadow - ^ SquotPackageMerge - into: self - merge: incomingPackageShadow - basedOn: basePackageShadow \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/squotOutgoingReferences.st b/src/Squot.package/SquotPackageShadow.class/instance/squotOutgoingReferences.st deleted file mode 100644 index 08743fe25..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/squotOutgoingReferences.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -squotOutgoingReferences - "I care for my contents myself, no need to walk objects side me." - ^ #() \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/squotPreferredSerializer.st b/src/Squot.package/SquotPackageShadow.class/instance/squotPreferredSerializer.st deleted file mode 100644 index 6445488d6..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/squotPreferredSerializer.st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-shadow -squotPreferredSerializer - ^ self class squotPreferredSerializer \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/squotRewritePath.with..st b/src/Squot.package/SquotPackageShadow.class/instance/squotRewritePath.with..st deleted file mode 100644 index 7323133bd..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/squotRewritePath.with..st +++ /dev/null @@ -1,4 +0,0 @@ -serializing -squotRewritePath: pathString with: aSerializer - "double dispatch" - ^ aSerializer rewritePath: pathString ofPackage: self \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/squotWrite.asTonelWith..st b/src/Squot.package/SquotPackageShadow.class/instance/squotWrite.asTonelWith..st deleted file mode 100644 index de6fcc347..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/squotWrite.asTonelWith..st +++ /dev/null @@ -1,7 +0,0 @@ -serializing -squotWrite: anArtifact asTonelWith: aSerializer - ^ aSerializer - writeMCSnapshot: snapshot - forPackageNamed: packageName - packageProperties: tonelProperties - from: anArtifact \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/squotWrite.with..st b/src/Squot.package/SquotPackageShadow.class/instance/squotWrite.with..st deleted file mode 100644 index f63e10254..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/squotWrite.with..st +++ /dev/null @@ -1,3 +0,0 @@ -serializing -squotWrite: anArtifact with: aSerializer - ^ aSerializer writeMCSnapshot: snapshot forPackageNamed: packageName from: anArtifact \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/instance/tonelProperties.st b/src/Squot.package/SquotPackageShadow.class/instance/tonelProperties.st deleted file mode 100644 index 94128cfe4..000000000 --- a/src/Squot.package/SquotPackageShadow.class/instance/tonelProperties.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -tonelProperties - ^ tonelProperties copy \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadow.class/methodProperties.json b/src/Squot.package/SquotPackageShadow.class/methodProperties.json deleted file mode 100644 index fafe9b2b6..000000000 --- a/src/Squot.package/SquotPackageShadow.class/methodProperties.json +++ /dev/null @@ -1,37 +0,0 @@ -{ - "class" : { - "forPackageNamed:withSnapshot:" : "jr 1/13/2022 22:02", - "forPackageNamed:withSnapshot:tonelProperties:" : "jr 1/13/2022 22:02", - "newNotEmpty" : "jr 1/13/2022 22:02", - "squotMirror" : "jr 6/16/2021 22:30", - "squotPreferredSerializer" : "jr 8/31/2020 23:27" }, - "instance" : { - "=" : "jr 9/25/2019 22:25", - "asMCSnapshot" : "jr 7/22/2017 17:26", - "browse" : "jr 6/6/2020 03:26", - "copyWithSnapshot:" : "jr 12/4/2020 20:23", - "copyWithSnapshot:tonelProperties:" : "jr 5/17/2022 00:10", - "definitions" : "jr 7/22/2017 00:27", - "diffToBase:withSnapshot:" : "jr 9/25/2019 22:48", - "diffToSnapshot:" : "jr 9/25/2019 22:33", - "hash" : "jr 3/12/2019 22:01", - "initialize" : "jr 1/13/2022 22:04", - "mergeSnapshot:basedOn:" : "jr 9/25/2019 21:15", - "mergeSnapshot:into:" : "jr 9/25/2019 21:17", - "mergeSnapshotInto:basedOn:" : "jr 9/25/2019 21:16", - "monticelloPatcher" : "jr 9/25/2019 21:30", - "packageName" : "jr 9/20/2017 21:06", - "printOn:" : "jr 7/25/2021 14:23", - "sameIn:withName:ifAbsent:" : "jr 9/11/2021 00:10", - "setPackageName:snapshot:tonelProperties:" : "jr 12/4/2020 20:22", - "snapshot:" : "jr 6/6/2020 01:11", - "squotDiffAgainst:" : "jr 9/25/2019 22:24", - "squotDiffAgainst:with:" : "jr 7/30/2021 19:50", - "squotMaterializeWith:" : "jr 12/5/2020 00:12", - "squotMergeWith:basedOn:" : "jr 9/25/2019 20:59", - "squotOutgoingReferences" : "jr 8/14/2019 18:29", - "squotPreferredSerializer" : "jr 8/31/2020 23:27", - "squotRewritePath:with:" : "jr 9/20/2017 21:02", - "squotWrite:asTonelWith:" : "jr 12/4/2020 20:26", - "squotWrite:with:" : "jr 3/16/2019 23:33", - "tonelProperties" : "jr 12/4/2020 23:14" } } diff --git a/src/Squot.package/SquotPackageShadow.class/properties.json b/src/Squot.package/SquotPackageShadow.class/properties.json deleted file mode 100644 index 5086b67f6..000000000 --- a/src/Squot.package/SquotPackageShadow.class/properties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "category" : "Squot-Packages", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotDiffableShadow classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 7/21/2017 23:38", - "instvars" : [ - "snapshot", - "packageName", - "tonelProperties" ], - "name" : "SquotPackageShadow", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotDiffableShadow", - "type" : "normal" } diff --git a/src/Squot.package/SquotPackageShadowMirror.class/README.md b/src/Squot.package/SquotPackageShadowMirror.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotPackageShadowMirror.class/instance/capture.with.ifReplaced..st b/src/Squot.package/SquotPackageShadowMirror.class/instance/capture.with.ifReplaced..st deleted file mode 100644 index 1df56409b..000000000 --- a/src/Squot.package/SquotPackageShadowMirror.class/instance/capture.with.ifReplaced..st +++ /dev/null @@ -1,3 +0,0 @@ -capturing -capture: anObject with: aSquotObjectCapturer ifReplaced: aBlock - self shouldNotImplement. "Shadows should not be captured again. They are snapshots already." \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadowMirror.class/instance/newDiffFrom.to..st b/src/Squot.package/SquotPackageShadowMirror.class/instance/newDiffFrom.to..st deleted file mode 100644 index 28545635d..000000000 --- a/src/Squot.package/SquotPackageShadowMirror.class/instance/newDiffFrom.to..st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -newDiffFrom: aSquotPackageShadow to: aSquotPackageShadow2 - ^ aSquotPackageShadow squotDiffAgainst: aSquotPackageShadow2 \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadowMirror.class/instance/referencesFrom..st b/src/Squot.package/SquotPackageShadowMirror.class/instance/referencesFrom..st deleted file mode 100644 index bd51b451f..000000000 --- a/src/Squot.package/SquotPackageShadowMirror.class/instance/referencesFrom..st +++ /dev/null @@ -1,3 +0,0 @@ -enumerating -referencesFrom: anObject - ^ #() \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadowMirror.class/instance/shouldObjectHaveNameAssigned..st b/src/Squot.package/SquotPackageShadowMirror.class/instance/shouldObjectHaveNameAssigned..st deleted file mode 100644 index f88e666e4..000000000 --- a/src/Squot.package/SquotPackageShadowMirror.class/instance/shouldObjectHaveNameAssigned..st +++ /dev/null @@ -1,4 +0,0 @@ -testing -shouldObjectHaveNameAssigned: anObject - "Package identified by its name already" - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotPackageShadowMirror.class/methodProperties.json b/src/Squot.package/SquotPackageShadowMirror.class/methodProperties.json deleted file mode 100644 index 400c579c3..000000000 --- a/src/Squot.package/SquotPackageShadowMirror.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "capture:with:ifReplaced:" : "jr 7/17/2021 23:59", - "newDiffFrom:to:" : "jr 7/30/2021 19:35", - "referencesFrom:" : "jr 6/16/2021 22:27", - "shouldObjectHaveNameAssigned:" : "jr 6/16/2021 22:28" } } diff --git a/src/Squot.package/SquotPackageShadowMirror.class/properties.json b/src/Squot.package/SquotPackageShadowMirror.class/properties.json deleted file mode 100644 index d8325f117..000000000 --- a/src/Squot.package/SquotPackageShadowMirror.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Packages", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotPackageShadowMirror", - "pools" : [ - ], - "super" : "SquotMirror", - "type" : "normal" } diff --git a/src/Squot.package/SquotPackageTrackingTest.class/README.md b/src/Squot.package/SquotPackageTrackingTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotPackageTrackingTest.class/instance/testDefaultEnvironment.st b/src/Squot.package/SquotPackageTrackingTest.class/instance/testDefaultEnvironment.st deleted file mode 100644 index f0ff40285..000000000 --- a/src/Squot.package/SquotPackageTrackingTest.class/instance/testDefaultEnvironment.st +++ /dev/null @@ -1,13 +0,0 @@ -tests -testDefaultEnvironment - | artifact metadata expectedEnvironment | - artifact := SquotLiveArtifact new. - metadata := SquotTrackedObjectMetadata new. - artifact storeInfo: metadata. - expectedEnvironment := Environment current. - self assert: expectedEnvironment == (PackageInfo squotEnvironmentInMetadata: metadata); - assert: expectedEnvironment == (PackageInfo squotEnvironmentOf: artifact). - expectedEnvironment := Environment new. - expectedEnvironment beCurrentDuring: [ - self assert: expectedEnvironment == (PackageInfo squotEnvironmentInMetadata: metadata); - assert: expectedEnvironment == (PackageInfo squotEnvironmentOf: artifact)]. \ No newline at end of file diff --git a/src/Squot.package/SquotPackageTrackingTest.class/instance/testEnvironmentAccessors.st b/src/Squot.package/SquotPackageTrackingTest.class/instance/testEnvironmentAccessors.st deleted file mode 100644 index 23c4d768a..000000000 --- a/src/Squot.package/SquotPackageTrackingTest.class/instance/testEnvironmentAccessors.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testEnvironmentAccessors - | artifact metadata environment | - artifact := SquotLiveArtifact new. - metadata := SquotTrackedObjectMetadata new. - artifact storeInfo: metadata. - environment := Object new. - PackageInfo squotSetEnvironmentOf: artifact to: environment. - self assert: environment == (PackageInfo squotEnvironmentOf: artifact). - self assert: environment == (PackageInfo squotEnvironmentInMetadata: metadata). - environment := Object new. - PackageInfo squotSetEnvironment: environment inMetadata: metadata. - self assert: environment == (PackageInfo squotEnvironmentInMetadata: metadata). - self assert: environment == (PackageInfo squotEnvironmentOf: artifact). \ No newline at end of file diff --git a/src/Squot.package/SquotPackageTrackingTest.class/methodProperties.json b/src/Squot.package/SquotPackageTrackingTest.class/methodProperties.json deleted file mode 100644 index 10a566ef6..000000000 --- a/src/Squot.package/SquotPackageTrackingTest.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testDefaultEnvironment" : "jr 12/23/2019 12:56", - "testEnvironmentAccessors" : "jr 12/22/2019 17:31" } } diff --git a/src/Squot.package/SquotPackageTrackingTest.class/properties.json b/src/Squot.package/SquotPackageTrackingTest.class/properties.json deleted file mode 100644 index f80e77484..000000000 --- a/src/Squot.package/SquotPackageTrackingTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Packages", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotPackageTrackingTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotPatch.class/README.md b/src/Squot.package/SquotPatch.class/README.md deleted file mode 100644 index 22970b2e2..000000000 --- a/src/Squot.package/SquotPatch.class/README.md +++ /dev/null @@ -1,2 +0,0 @@ -I contain the differences between two object containers, such as SquotSnapshot. -Like an object conatiner, my contents are accessible by paths. But I do not contain artifacts, rather I contain the diffs between such artifacts, subinstances of SquotArtifactDiff. \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/class/builder.st b/src/Squot.package/SquotPatch.class/class/builder.st deleted file mode 100644 index e51a83377..000000000 --- a/src/Squot.package/SquotPatch.class/class/builder.st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -builder - ^ SquotPatchBuilder new \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/class/noChangesTo..st b/src/Squot.package/SquotPatch.class/class/noChangesTo..st deleted file mode 100644 index de8424063..000000000 --- a/src/Squot.package/SquotPatch.class/class/noChangesTo..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -noChangesTo: anObjectContainer - ^ self builder startingFrom: anObjectContainer; updateRightArtifacts; buildPatch \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/instance/applyTo..st b/src/Squot.package/SquotPatch.class/instance/applyTo..st deleted file mode 100644 index 26a9541a8..000000000 --- a/src/Squot.package/SquotPatch.class/instance/applyTo..st +++ /dev/null @@ -1,3 +0,0 @@ -applying -applyTo: anObjectContainer - ^ self applyTo: anObjectContainer displayingProgress: [:each | 'Applying changes to ', each] \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/instance/applyTo.displayingProgress..st b/src/Squot.package/SquotPatch.class/instance/applyTo.displayingProgress..st deleted file mode 100644 index 45cdc8088..000000000 --- a/src/Squot.package/SquotPatch.class/instance/applyTo.displayingProgress..st +++ /dev/null @@ -1,6 +0,0 @@ -applying -applyTo: anObjectContainer displayingProgress: progressText - ^ self privateApplyTo: anObjectContainer - diffsDoing: - [:changedKeys :apply | - SquotProgress display: progressText for: changedKeys do: apply]. \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/instance/applyToLoadOrder..st b/src/Squot.package/SquotPatch.class/instance/applyToLoadOrder..st deleted file mode 100644 index eee3c9c02..000000000 --- a/src/Squot.package/SquotPatch.class/instance/applyToLoadOrder..st +++ /dev/null @@ -1,4 +0,0 @@ -applying -applyToLoadOrder: aCollection - loadOrderDiff ifNil: [^ aCollection]. - ^ loadOrderDiff applyTo: aCollection \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/instance/artifacts.st b/src/Squot.package/SquotPatch.class/instance/artifacts.st deleted file mode 100644 index 4c2bbcef9..000000000 --- a/src/Squot.package/SquotPatch.class/instance/artifacts.st +++ /dev/null @@ -1,4 +0,0 @@ -snapshot -artifacts - "Answer my original artifacts and the newly added artifacts." - ^ diffs collect: [:each | each originalOrAddedArtifact] \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/instance/base.st b/src/Squot.package/SquotPatch.class/instance/base.st deleted file mode 100644 index 1df5d3187..000000000 --- a/src/Squot.package/SquotPatch.class/instance/base.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -base - ^ base \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/instance/browse.st b/src/Squot.package/SquotPatch.class/instance/browse.st deleted file mode 100644 index 6b001c73e..000000000 --- a/src/Squot.package/SquotPatch.class/instance/browse.st +++ /dev/null @@ -1,3 +0,0 @@ -tools -browse - ^ (SquotDiffExplorer forPatch: self) open \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/instance/commonPathsWith..st b/src/Squot.package/SquotPatch.class/instance/commonPathsWith..st deleted file mode 100644 index 76222d60a..000000000 --- a/src/Squot.package/SquotPatch.class/instance/commonPathsWith..st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -commonPathsWith: other - ^ diffs keys intersection: other diffs keys \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/instance/copy.st b/src/Squot.package/SquotPatch.class/instance/copy.st deleted file mode 100644 index 73bced6fd..000000000 --- a/src/Squot.package/SquotPatch.class/instance/copy.st +++ /dev/null @@ -1,4 +0,0 @@ -copying -copy - "Create a copy of me with copies of the diffs, using the patch builder." - ^ self createNewBuilder buildPatch \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/instance/createNewBuilder.st b/src/Squot.package/SquotPatch.class/instance/createNewBuilder.st deleted file mode 100644 index 8f2b12511..000000000 --- a/src/Squot.package/SquotPatch.class/instance/createNewBuilder.st +++ /dev/null @@ -1,8 +0,0 @@ -copying -createNewBuilder - | builder | - builder := self species builder. - builder startingFrom: base; goingTo: patched. - self diffsDo: [:each | builder addDiff: each copy]. - builder newLoadOrder: patched loadOrder. - ^ builder \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/instance/diffAt..st b/src/Squot.package/SquotPatch.class/instance/diffAt..st deleted file mode 100644 index ee72734a3..000000000 --- a/src/Squot.package/SquotPatch.class/instance/diffAt..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -diffAt: path - ^ diffs at: path \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/instance/diffs.st b/src/Squot.package/SquotPatch.class/instance/diffs.st deleted file mode 100644 index e33628afe..000000000 --- a/src/Squot.package/SquotPatch.class/instance/diffs.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -diffs - ^ diffs \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/instance/diffsDo..st b/src/Squot.package/SquotPatch.class/instance/diffsDo..st deleted file mode 100644 index 280d89586..000000000 --- a/src/Squot.package/SquotPatch.class/instance/diffsDo..st +++ /dev/null @@ -1,7 +0,0 @@ -enumerating -diffsDo: aBlock - diffs select: [:each | each isRemoval] thenDo: aBlock. - ((patched loadOrder - select: [:each | diffs includesKey: each]) - collect: [:each | diffs at: each]) - do: aBlock. \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/instance/hasChanges.st b/src/Squot.package/SquotPatch.class/instance/hasChanges.st deleted file mode 100644 index 770e450ff..000000000 --- a/src/Squot.package/SquotPatch.class/instance/hasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasChanges - ^ (diffs isEmpty not and: [diffs anySatisfy: #hasChanges]) or: [self hasLoadOrderChanges] \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/instance/hasLoadOrderChanges.st b/src/Squot.package/SquotPatch.class/instance/hasLoadOrderChanges.st deleted file mode 100644 index 040382a81..000000000 --- a/src/Squot.package/SquotPatch.class/instance/hasLoadOrderChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasLoadOrderChanges - ^ loadOrderDiff squotHasChanges \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/instance/includesDiffAt..st b/src/Squot.package/SquotPatch.class/instance/includesDiffAt..st deleted file mode 100644 index 44029cee4..000000000 --- a/src/Squot.package/SquotPatch.class/instance/includesDiffAt..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -includesDiffAt: path - ^ diffs includesKey: path \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/instance/initialize.st b/src/Squot.package/SquotPatch.class/instance/initialize.st deleted file mode 100644 index 76d108cf0..000000000 --- a/src/Squot.package/SquotPatch.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initialize - super initialize. - diffs := Dictionary new. "path -> diff" \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/instance/initializeFrom.to.withDiffs..st b/src/Squot.package/SquotPatch.class/instance/initializeFrom.to.withDiffs..st deleted file mode 100644 index 715e23422..000000000 --- a/src/Squot.package/SquotPatch.class/instance/initializeFrom.to.withDiffs..st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -initializeFrom: baseObjectContainer to: patchedObjectContainer withDiffs: diffDictionary - base := baseObjectContainer. - patched := patchedObjectContainer. - diffs addAll: diffDictionary. \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/instance/initializeWith..st b/src/Squot.package/SquotPatch.class/instance/initializeWith..st deleted file mode 100644 index 1e7c23c15..000000000 --- a/src/Squot.package/SquotPatch.class/instance/initializeWith..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -initializeWith: diffDictionary - diffs addAll: diffDictionary. \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/instance/loadOrderDiff..st b/src/Squot.package/SquotPatch.class/instance/loadOrderDiff..st deleted file mode 100644 index 59948244c..000000000 --- a/src/Squot.package/SquotPatch.class/instance/loadOrderDiff..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -loadOrderDiff: aDiffPatch - loadOrderDiff := aDiffPatch \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/instance/loadOrderDiff.st b/src/Squot.package/SquotPatch.class/instance/loadOrderDiff.st deleted file mode 100644 index 72c331486..000000000 --- a/src/Squot.package/SquotPatch.class/instance/loadOrderDiff.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -loadOrderDiff - ^ loadOrderDiff \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/instance/patched.st b/src/Squot.package/SquotPatch.class/instance/patched.st deleted file mode 100644 index 1e2c94215..000000000 --- a/src/Squot.package/SquotPatch.class/instance/patched.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -patched - ^ patched \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/instance/patchedLoadOrder.st b/src/Squot.package/SquotPatch.class/instance/patchedLoadOrder.st deleted file mode 100644 index c5d82b5b0..000000000 --- a/src/Squot.package/SquotPatch.class/instance/patchedLoadOrder.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -patchedLoadOrder - ^ patched loadOrder \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/instance/paths.st b/src/Squot.package/SquotPatch.class/instance/paths.st deleted file mode 100644 index 5fc1d7eda..000000000 --- a/src/Squot.package/SquotPatch.class/instance/paths.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -paths - ^ diffs keys \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/instance/printOn..st b/src/Squot.package/SquotPatch.class/instance/printOn..st deleted file mode 100644 index 17e7182c8..000000000 --- a/src/Squot.package/SquotPatch.class/instance/printOn..st +++ /dev/null @@ -1,7 +0,0 @@ -printing -printOn: aStream - super printOn: aStream. - aStream - nextPutAll: ' ('; - print: diffs size; - nextPutAll: ' diffs)'. \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/instance/privateApplyTo.diffsDoing..st b/src/Squot.package/SquotPatch.class/instance/privateApplyTo.diffsDoing..st deleted file mode 100644 index d7c7e410f..000000000 --- a/src/Squot.package/SquotPatch.class/instance/privateApplyTo.diffsDoing..st +++ /dev/null @@ -1,26 +0,0 @@ -applying -privateApplyTo: anObjectContainer diffsDoing: aBlock - "Patch anObjectContainer and answer a lazy snapshot of its new state." - | order relevant removed patchedArtifacts newSnapshot | - order := anObjectContainer loadOrder. - order := self applyToLoadOrder: order. - relevant := order select: [:each | diffs includesKey: each]. - removed := diffs keys copyWithoutAll: order. - patchedArtifacts := Dictionary new. - aBlock - value: removed, relevant - value: [:each | patchedArtifacts at: each - put: (anObjectContainer applyDiff: (diffs at: each))]. - anObjectContainer loadOrder: order. - - "Prepare new snapshot with artifacts already captured in the process of patching." - newSnapshot := SquotSnapshot builder startingFrom: anObjectContainer. - "Most containers implement a lazy snapshot in their #artifacts implementation. See SquotSnapshotBuilder>>#startingFrom:." - "Stored artifacts could be slightly different than each `diff right`, so cannot simply apply the diffs to the newSnapshot." - removed, relevant do: - [:each | - (diffs at: each) isRemoval - ifTrue: [newSnapshot removeAt: each] - ifFalse: [newSnapshot add: (patchedArtifacts at: each)]]. - newSnapshot loadOrder: order. - ^ newSnapshot buildSnapshot \ No newline at end of file diff --git a/src/Squot.package/SquotPatch.class/methodProperties.json b/src/Squot.package/SquotPatch.class/methodProperties.json deleted file mode 100644 index 1b7bc6bcb..000000000 --- a/src/Squot.package/SquotPatch.class/methodProperties.json +++ /dev/null @@ -1,30 +0,0 @@ -{ - "class" : { - "builder" : "jr 9/16/2018 14:36", - "noChangesTo:" : "jr 7/17/2021 20:33" }, - "instance" : { - "applyTo:" : "jr 1/3/2021 21:19", - "applyTo:displayingProgress:" : "jr 1/2/2021 17:40", - "applyToLoadOrder:" : "jr 8/18/2018 23:35", - "artifacts" : "jr 10/2/2017 23:45", - "base" : "jr 8/15/2019 00:50", - "browse" : "jr 10/31/2017 18:22", - "commonPathsWith:" : "jr 5/28/2017 19:03", - "copy" : "jr 11/26/2018 21:25", - "createNewBuilder" : "jr 11/3/2020 22:18", - "diffAt:" : "jr 5/28/2017 16:58", - "diffs" : "jr 5/1/2017 21:26", - "diffsDo:" : "jr 3/27/2019 22:48", - "hasChanges" : "jr 10/19/2020 21:02", - "hasLoadOrderChanges" : "jr 10/19/2020 21:22", - "includesDiffAt:" : "jr 4/14/2018 20:21", - "initialize" : "jr 5/1/2017 19:47", - "initializeFrom:to:withDiffs:" : "jr 3/27/2019 21:47", - "initializeWith:" : "jr 5/1/2017 20:52", - "loadOrderDiff" : "jr 8/18/2018 21:51", - "loadOrderDiff:" : "jr 8/18/2018 21:51", - "patched" : "jr 8/15/2019 00:51", - "patchedLoadOrder" : "jr 4/8/2019 20:42", - "paths" : "jr 5/28/2017 22:57", - "printOn:" : "jr 11/19/2020 14:38", - "privateApplyTo:diffsDoing:" : "jr 1/3/2021 22:03" } } diff --git a/src/Squot.package/SquotPatch.class/properties.json b/src/Squot.package/SquotPatch.class/properties.json deleted file mode 100644 index dc055623a..000000000 --- a/src/Squot.package/SquotPatch.class/properties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "category" : "Squot-Diffs", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 4/14/2018 20:20", - "instvars" : [ - "base", - "patched", - "diffs", - "loadOrderDiff" ], - "name" : "SquotPatch", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotPatchBuilder.class/README.md b/src/Squot.package/SquotPatchBuilder.class/README.md deleted file mode 100644 index 964afb1ac..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/README.md +++ /dev/null @@ -1,6 +0,0 @@ -I combine the artifacts with equal paths from two snapshots to form a patch. - -Instance Variables - diffs: diffs in the resulting patch - leftArtifacts: - rightArtifacts: \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/addArtifact..st b/src/Squot.package/SquotPatchBuilder.class/instance/addArtifact..st deleted file mode 100644 index 7bcff64f1..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/addArtifact..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -addArtifact: anArtifact - self deprecated: 'Inline this method instead'. - self addDiff: (SquotArtifactAddition of: anArtifact). \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/addDiff..st b/src/Squot.package/SquotPatchBuilder.class/instance/addDiff..st deleted file mode 100644 index 04cdf7170..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/addDiff..st +++ /dev/null @@ -1,15 +0,0 @@ -private -addDiff: aDiff - (aDiff isBasedOn: base) - ifTrue: [diffs at: aDiff path put: aDiff] - ifFalse: ["trying to apply a diff to a different base, happens when saving changes after merges (including cherry picks)" - diffs at: aDiff path put: - (aDiff rebaseOn: base)]. - aDiff isAddition ifFalse: [(originalLoadOrder includes: aDiff path) - ifFalse: [originalLoadOrder add: aDiff path. - loadOrderMerge := nil]]. - aDiff isRemoval - ifFalse: [(patchedLoadOrder includes: aDiff path) - ifFalse: - [patchedLoadOrder add: aDiff path. - self updateLoadOrder]]. \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/addLoadOrderDiffTreeTo..st b/src/Squot.package/SquotPatchBuilder.class/instance/addLoadOrderDiffTreeTo..st deleted file mode 100644 index b231fb050..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/addLoadOrderDiffTreeTo..st +++ /dev/null @@ -1,7 +0,0 @@ -*Squot-Tools -addLoadOrderDiffTreeTo: aCollection - (originalLoadOrder hasEqualElements: patchedLoadOrder) ifTrue: [^ self]. - aCollection add: - (loadOrderMerge - createDiffOrMergeTreeNodeWithWorkingOrder: [originalLoadOrder] - incomingOrder: [patchedLoadOrder]). \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/buildPatch.st b/src/Squot.package/SquotPatchBuilder.class/instance/buildPatch.st deleted file mode 100644 index 2d339633e..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/buildPatch.st +++ /dev/null @@ -1,12 +0,0 @@ -accessing -buildPatch - base ifNil: [base := SquotSnapshot empty]. - self loadOrderMerge resetAppliedDiffs. - diffs do: [:each | self loadOrderMerge applyDiff: each. "Applies removals and additions"]. - self loadOrderMerge - detectConflicts; - chooseIncoming. - ^ SquotPatch new - initializeFrom: base to: patched withDiffs: (diffs select: [:each | each mayAffectArtifact]); - loadOrderDiff: (self loadOrderMerge resolvedPatch ifNil: [self error: 'Load order conflicts not resolved']); - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/computeDifferences.st b/src/Squot.package/SquotPatchBuilder.class/instance/computeDifferences.st deleted file mode 100644 index d1fe689b0..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/computeDifferences.st +++ /dev/null @@ -1,6 +0,0 @@ -private -computeDifferences - self displayProgress: 'Diffing objects... ' during: - [self computeDiffsFromLeftToRight; - computeDiffsForNewArtifacts; - updateLoadOrder]. \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/computeDiffsForNewArtifacts.st b/src/Squot.package/SquotPatchBuilder.class/instance/computeDiffsForNewArtifacts.st deleted file mode 100644 index 092b40478..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/computeDiffsForNewArtifacts.st +++ /dev/null @@ -1,7 +0,0 @@ -private -computeDiffsForNewArtifacts - (rightArtifacts keys reject: [:each | leftArtifacts includesKey: each]) - do: [:path | | rightArtifact | - progress ifNotNil: [progress stepWithText: path]. - rightArtifact := rightArtifacts at: path. - diffs at: path put: (SquotArtifactAddition of: rightArtifact)]. \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/computeDiffsFromLeftToRight.st b/src/Squot.package/SquotPatchBuilder.class/instance/computeDiffsFromLeftToRight.st deleted file mode 100644 index d49bcfb4f..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/computeDiffsFromLeftToRight.st +++ /dev/null @@ -1,9 +0,0 @@ -private -computeDiffsFromLeftToRight - leftArtifacts keysAndValuesDo: [:path :leftArtifact | | diff | - progress ifNotNil: [progress stepWithText: path]. - rightArtifacts at: path - ifPresent: [:myArtifact | - diff := leftArtifact diffAgainst: myArtifact. - diff mayAffectArtifact ifTrue: [self addDiff: diff]] - ifAbsent: [diffs at: path put: (SquotArtifactRemoval of: leftArtifact)]] \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/diff.against..st b/src/Squot.package/SquotPatchBuilder.class/instance/diff.against..st deleted file mode 100644 index d3129a9e4..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/diff.against..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -diff: leftArtifact against: rightArtifact - self deprecated: 'Inline this method instead'. - ^ self addDiff: (leftArtifact diffAgainst: rightArtifact) \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/diffAt..st b/src/Squot.package/SquotPatchBuilder.class/instance/diffAt..st deleted file mode 100644 index 58f6f0853..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/diffAt..st +++ /dev/null @@ -1,3 +0,0 @@ -SquotPatch -diffAt: path - ^ diffs at: path \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/diffPath.from.to..st b/src/Squot.package/SquotPatchBuilder.class/instance/diffPath.from.to..st deleted file mode 100644 index b45a07c87..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/diffPath.from.to..st +++ /dev/null @@ -1,12 +0,0 @@ -accessing -diffPath: path from: leftObjectContainer to: rightObjectContainer - "Add the difference between two objects at the same path." - | diff | - diff := leftObjectContainer artifactAt: path - ifPresent: [:leftArtifact | | rightArtifact | - rightArtifact := rightObjectContainer artifactAt: path ifAbsent: []. - rightArtifact - ifNotNil: [leftArtifact diffAgainst: rightArtifact] - ifNil: [SquotArtifactRemoval of: leftArtifact]] - ifAbsent: [SquotArtifactAddition of: (rightObjectContainer artifactAt: path)]. - diff mayAffectArtifact ifTrue: [self addDiff: diff]. \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/diffs.st b/src/Squot.package/SquotPatchBuilder.class/instance/diffs.st deleted file mode 100644 index 672403687..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/diffs.st +++ /dev/null @@ -1,3 +0,0 @@ -SquotPatch -diffs - ^ diffs \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/diffsDo..st b/src/Squot.package/SquotPatchBuilder.class/instance/diffsDo..st deleted file mode 100644 index 0e2ef05ed..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/diffsDo..st +++ /dev/null @@ -1,7 +0,0 @@ -SquotPatch -diffsDo: aBlock - diffs select: [:each | each isRemoval] thenDo: aBlock. - ((patchedLoadOrder - select: [:each | diffs includesKey: each]) - collect: [:each | diffs at: each]) - do: aBlock. \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/displayProgress.during..st b/src/Squot.package/SquotPatchBuilder.class/instance/displayProgress.during..st deleted file mode 100644 index 8269d1811..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/displayProgress.during..st +++ /dev/null @@ -1,7 +0,0 @@ -private -displayProgress: progressText during: aBlock - SquotProgress display: progressText during: - [:newprogress | progress := newprogress. - progress totalSteps: (1 max: leftArtifacts size + (rightArtifacts keys copyWithoutAll: leftArtifacts keys) size). - ^ [aBlock value] - ensure: [progress := nil]] \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/goingTo..st b/src/Squot.package/SquotPatchBuilder.class/instance/goingTo..st deleted file mode 100644 index e914d0949..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/goingTo..st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -goingTo: rightObjectContainer - patched := rightObjectContainer. - rightArtifacts := rightObjectContainer artifacts. - patchedLoadOrder := rightObjectContainer loadOrder asOrderedCollection. \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/hasChanges.st b/src/Squot.package/SquotPatchBuilder.class/instance/hasChanges.st deleted file mode 100644 index c9e44863a..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/hasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasChanges - ^ (diffs anySatisfy: [:each | each hasChanges]) or: [self hasLoadOrderChanges] \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/hasLoadOrderChanges.st b/src/Squot.package/SquotPatchBuilder.class/instance/hasLoadOrderChanges.st deleted file mode 100644 index c709f2e91..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/hasLoadOrderChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasLoadOrderChanges - ^ self loadOrderMerge hasChanges \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/includesDiffAt..st b/src/Squot.package/SquotPatchBuilder.class/instance/includesDiffAt..st deleted file mode 100644 index d9011d73b..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/includesDiffAt..st +++ /dev/null @@ -1,3 +0,0 @@ -SquotPatch -includesDiffAt: path - ^ diffs includesKey: path \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/initialize.st b/src/Squot.package/SquotPatchBuilder.class/instance/initialize.st deleted file mode 100644 index 12c8a8019..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialize-release -initialize - diffs := Dictionary new. - originalLoadOrder := OrderedCollection new. - patchedLoadOrder := OrderedCollection new. - loadOrderMerge := nil. \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/loadOrderMerge.st b/src/Squot.package/SquotPatchBuilder.class/instance/loadOrderMerge.st deleted file mode 100644 index 4530918b8..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/loadOrderMerge.st +++ /dev/null @@ -1,9 +0,0 @@ -SquotPatch -loadOrderMerge - ^ loadOrderMerge - ifNil: - ["Use a merge to get additions and removals applied correctly." - loadOrderMerge := SquotLoadOrderMerge - into: originalLoadOrder - merge: patchedLoadOrder copy - basedOn: originalLoadOrder "=> gets conflicts only through additions applied in different orders"]. \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/newLoadOrder..st b/src/Squot.package/SquotPatchBuilder.class/instance/newLoadOrder..st deleted file mode 100644 index e310b5350..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/newLoadOrder..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -newLoadOrder: aCollection - patchedLoadOrder := aCollection asOrderedCollection. - self updateLoadOrder. \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/newLoadOrder.st b/src/Squot.package/SquotPatchBuilder.class/instance/newLoadOrder.st deleted file mode 100644 index cf35895c9..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/newLoadOrder.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -newLoadOrder - ^ patchedLoadOrder asOrderedCollection \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/patchFrom.to..st b/src/Squot.package/SquotPatchBuilder.class/instance/patchFrom.to..st deleted file mode 100644 index 73bdb6142..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/patchFrom.to..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -patchFrom: leftObjectContainer to: rightObjectContainer - self initialize. - self startingFrom: leftObjectContainer goingTo: rightObjectContainer. - ^ self buildPatch \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/paths.st b/src/Squot.package/SquotPatchBuilder.class/instance/paths.st deleted file mode 100644 index 3a612d810..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/paths.st +++ /dev/null @@ -1,3 +0,0 @@ -SquotPatch -paths - ^ diffs keys \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/removeArtifact..st b/src/Squot.package/SquotPatchBuilder.class/instance/removeArtifact..st deleted file mode 100644 index 224de8f8d..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/removeArtifact..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -removeArtifact: anArtifact - self deprecated: 'Inline this method instead'. - self addDiff: (SquotArtifactRemoval of: anArtifact). \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/resetAt..st b/src/Squot.package/SquotPatchBuilder.class/instance/resetAt..st deleted file mode 100644 index 1ba716b64..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/resetAt..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -resetAt: path - | diff | - diff := diffs removeKey: path ifAbsent: [^ self]. \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/startingFrom..st b/src/Squot.package/SquotPatchBuilder.class/instance/startingFrom..st deleted file mode 100644 index 034281b65..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/startingFrom..st +++ /dev/null @@ -1,7 +0,0 @@ -initialize-release -startingFrom: anObjectContainer - base := anObjectContainer. - leftArtifacts := anObjectContainer artifacts. - originalLoadOrder := anObjectContainer loadOrder asOrderedCollection. - patchedLoadOrder := originalLoadOrder copy. - loadOrderMerge := nil. \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/startingFrom.goingTo..st b/src/Squot.package/SquotPatchBuilder.class/instance/startingFrom.goingTo..st deleted file mode 100644 index 4649f60dc..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/startingFrom.goingTo..st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -startingFrom: leftObjectContainer goingTo: rightObjectContainer - self startingFrom: leftObjectContainer; - goingTo: rightObjectContainer; - computeDifferences. \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/unloadedArtifactsFromLeft.st b/src/Squot.package/SquotPatchBuilder.class/instance/unloadedArtifactsFromLeft.st deleted file mode 100644 index bd6ceac59..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/unloadedArtifactsFromLeft.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -unloadedArtifactsFromLeft - ^ leftArtifacts select: [:each | (each respondsTo: #isLoaded) and: [each isLoaded not]] \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/updateArtifactTo..st b/src/Squot.package/SquotPatchBuilder.class/instance/updateArtifactTo..st deleted file mode 100644 index 3163043bc..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/updateArtifactTo..st +++ /dev/null @@ -1,8 +0,0 @@ -accessing -updateArtifactTo: anArtifact - "Have an object with the same path patched to become the given one." - | diff | - diff := leftArtifacts at: anArtifact path - ifPresent: [:leftArtifact | leftArtifact diffAgainst: anArtifact] - ifAbsent: [SquotArtifactAddition of: anArtifact]. - diff mayAffectArtifact ifTrue: [self addDiff: diff]. \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/updateLoadOrder.st b/src/Squot.package/SquotPatchBuilder.class/instance/updateLoadOrder.st deleted file mode 100644 index e3b36e1b5..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/updateLoadOrder.st +++ /dev/null @@ -1,3 +0,0 @@ -private -updateLoadOrder - self loadOrderMerge newLoadOrder: patchedLoadOrder. \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/instance/updateRightArtifacts.st b/src/Squot.package/SquotPatchBuilder.class/instance/updateRightArtifacts.st deleted file mode 100644 index efcc44bf0..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/instance/updateRightArtifacts.st +++ /dev/null @@ -1,21 +0,0 @@ -accessing -updateRightArtifacts - | snapshotBuilder | - self loadOrderMerge resetAppliedDiffs. - diffs do: [:each | - each updateRightArtifact. - self loadOrderMerge applyDiff: each. "Applies removals and additions"]. - snapshotBuilder := SquotSnapshot builder. - ((self loadOrderMerge - detectConflicts; - chooseIncoming; - resolvedPatch) - applyTo: originalLoadOrder) - do: - [:each | | patchedArtifact | - patchedArtifact := - ((diffs includesKey: each) - ifTrue: [(diffs at: each) right] - ifFalse: [base artifactAt: each ifAbsent: []]). - patchedArtifact ifNotNil: [snapshotBuilder add: patchedArtifact]]. - patched := snapshotBuilder buildSnapshot. \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilder.class/methodProperties.json b/src/Squot.package/SquotPatchBuilder.class/methodProperties.json deleted file mode 100644 index 591dcf109..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/methodProperties.json +++ /dev/null @@ -1,35 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "addArtifact:" : "jr 11/7/2020 19:31", - "addDiff:" : "jr 11/21/2020 01:01", - "addLoadOrderDiffTreeTo:" : "jr 11/7/2020 11:46", - "buildPatch" : "jr 7/17/2021 20:51", - "computeDifferences" : "jr 11/7/2020 11:36", - "computeDiffsForNewArtifacts" : "jr 9/13/2020 19:29", - "computeDiffsFromLeftToRight" : "jr 11/6/2020 23:05", - "diff:against:" : "jr 11/6/2020 19:57", - "diffAt:" : "jr 11/26/2018 21:22", - "diffPath:from:to:" : "jr 11/6/2020 23:22", - "diffs" : "jr 11/26/2018 21:22", - "diffsDo:" : "jr 3/27/2019 22:52", - "displayProgress:during:" : "jr 9/13/2020 21:52", - "goingTo:" : "jr 3/30/2019 12:36", - "hasChanges" : "jr 11/5/2020 16:17", - "hasLoadOrderChanges" : "jr 11/5/2020 16:18", - "includesDiffAt:" : "jr 7/28/2019 11:01", - "initialize" : "jr 11/3/2020 22:24", - "loadOrderMerge" : "jr 11/7/2020 16:41", - "newLoadOrder" : "jr 3/17/2019 23:07", - "newLoadOrder:" : "jr 11/7/2020 11:35", - "patchFrom:to:" : "jr 11/5/2020 17:53", - "paths" : "jr 11/26/2018 21:22", - "removeArtifact:" : "jr 11/7/2020 19:31", - "resetAt:" : "jr 11/7/2020 12:09", - "startingFrom:" : "jr 11/3/2020 22:25", - "startingFrom:goingTo:" : "jr 11/5/2020 17:53", - "unloadedArtifactsFromLeft" : "jr 11/4/2020 12:26", - "updateArtifactTo:" : "jr 11/6/2020 23:30", - "updateLoadOrder" : "jr 11/7/2020 11:29", - "updateRightArtifacts" : "jr 11/7/2020 12:16" } } diff --git a/src/Squot.package/SquotPatchBuilder.class/properties.json b/src/Squot.package/SquotPatchBuilder.class/properties.json deleted file mode 100644 index 88b203f3d..000000000 --- a/src/Squot.package/SquotPatchBuilder.class/properties.json +++ /dev/null @@ -1,22 +0,0 @@ -{ - "category" : "Squot-Diffs", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 18:45", - "instvars" : [ - "diffs", - "leftArtifacts", - "rightArtifacts", - "originalLoadOrder", - "patchedLoadOrder", - "loadOrderMerge", - "base", - "patched", - "progress" ], - "name" : "SquotPatchBuilder", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotPatchBuilderTest.class/README.md b/src/Squot.package/SquotPatchBuilderTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotPatchBuilderTest.class/instance/testCorrectLoadOrderAfterExcludedArtifactAddition.st b/src/Squot.package/SquotPatchBuilderTest.class/instance/testCorrectLoadOrderAfterExcludedArtifactAddition.st deleted file mode 100644 index bc9f597f5..000000000 --- a/src/Squot.package/SquotPatchBuilderTest.class/instance/testCorrectLoadOrderAfterExcludedArtifactAddition.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testCorrectLoadOrderAfterExcludedArtifactAddition - | builder editedPatch original patched | - original := SquotSnapshot builder - add: (SquotArtifactMock new path: '1'; diffBlock: [SquotArtifactDiffMock path: '1']; yourself); - buildSnapshot. - patched := SquotSnapshot builder - add: (SquotArtifactMock new path: '1'; yourself); - add: (SquotArtifactMock new path: '2'; yourself); - buildSnapshot. - builder := (patched patchRelativeToBase: original) createNewBuilder. - builder resetAt: '2'. - editedPatch := builder updateRightArtifacts; buildPatch. - self assert: #('1') equals: editedPatch patchedLoadOrder. \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilderTest.class/instance/testCorrectLoadOrderAfterExcludedArtifactRemoval.st b/src/Squot.package/SquotPatchBuilderTest.class/instance/testCorrectLoadOrderAfterExcludedArtifactRemoval.st deleted file mode 100644 index 40a419466..000000000 --- a/src/Squot.package/SquotPatchBuilderTest.class/instance/testCorrectLoadOrderAfterExcludedArtifactRemoval.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testCorrectLoadOrderAfterExcludedArtifactRemoval - | builder editedPatch original patched | - original := SquotSnapshot builder - add: (SquotArtifactMock new path: '1'; diffBlock: [SquotArtifactDiffMock path: '1']; yourself); - add: (SquotArtifactMock new path: '2'; yourself); - buildSnapshot. - patched := SquotSnapshot builder - add: (SquotArtifactMock new path: '1'; yourself); - buildSnapshot. - builder := (patched patchRelativeToBase: original) createNewBuilder. - builder resetAt: '2'. - editedPatch := builder updateRightArtifacts; buildPatch. - self assert: #('1' '2') equals: editedPatch patchedLoadOrder. \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilderTest.class/instance/testCorrectLoadOrderAfterExcludedArtifactRemovalAndSimultaneousOrderChange.st b/src/Squot.package/SquotPatchBuilderTest.class/instance/testCorrectLoadOrderAfterExcludedArtifactRemovalAndSimultaneousOrderChange.st deleted file mode 100644 index 6517a0368..000000000 --- a/src/Squot.package/SquotPatchBuilderTest.class/instance/testCorrectLoadOrderAfterExcludedArtifactRemovalAndSimultaneousOrderChange.st +++ /dev/null @@ -1,16 +0,0 @@ -tests -testCorrectLoadOrderAfterExcludedArtifactRemovalAndSimultaneousOrderChange - | builder editedPatch original patched | - original := SquotSnapshot builder - add: (SquotArtifactMock new path: '1'; diffBlock: [SquotArtifactDiffMock path: '1']; yourself); - add: (SquotArtifactMock new path: '2'; yourself); - add: (SquotArtifactMock new path: '3'; diffBlock: [SquotArtifactDiffMock path: '3']; yourself); - buildSnapshot. - patched := SquotSnapshot builder - add: (SquotArtifactMock new path: '3'; yourself); - add: (SquotArtifactMock new path: '1'; yourself); - buildSnapshot. - builder := (patched patchRelativeToBase: original) createNewBuilder. - builder resetAt: '2'. - editedPatch := builder updateRightArtifacts; buildPatch. - self assert: #('3' '1' '2') equals: editedPatch patchedLoadOrder. \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilderTest.class/instance/testCorrectLoadOrderAfterExcludedArtifactRemovalAtBeginning.st b/src/Squot.package/SquotPatchBuilderTest.class/instance/testCorrectLoadOrderAfterExcludedArtifactRemovalAtBeginning.st deleted file mode 100644 index d82ec0112..000000000 --- a/src/Squot.package/SquotPatchBuilderTest.class/instance/testCorrectLoadOrderAfterExcludedArtifactRemovalAtBeginning.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testCorrectLoadOrderAfterExcludedArtifactRemovalAtBeginning - | builder editedPatch original patched | - original := SquotSnapshot builder - add: (SquotArtifactMock new path: '1'; yourself); - add: (SquotArtifactMock new path: '2'; diffBlock: [SquotArtifactDiffMock path: '2']; yourself); - buildSnapshot. - patched := SquotSnapshot builder - add: (SquotArtifactMock new path: '2'; yourself); - buildSnapshot. - builder := (patched patchRelativeToBase: original) createNewBuilder. - builder resetAt: '1'. - editedPatch := builder updateRightArtifacts; buildPatch. - self assert: #('1' '2') equals: editedPatch patchedLoadOrder. \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilderTest.class/instance/testLoadOrderAfterIncludedArtifactAdditionAndSimultaneousOrderChange.st b/src/Squot.package/SquotPatchBuilderTest.class/instance/testLoadOrderAfterIncludedArtifactAdditionAndSimultaneousOrderChange.st deleted file mode 100644 index 16add49a5..000000000 --- a/src/Squot.package/SquotPatchBuilderTest.class/instance/testLoadOrderAfterIncludedArtifactAdditionAndSimultaneousOrderChange.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testLoadOrderAfterIncludedArtifactAdditionAndSimultaneousOrderChange - | editedPatch original patched | - original := SquotSnapshot builder - add: (SquotArtifactMock new path: '1'; diffBlock: [SquotArtifactDiffMock path: '1']; yourself); - add: (SquotArtifactMock new path: '3'; diffBlock: [SquotArtifactDiffMock path: '3']; yourself); - buildSnapshot. - patched := SquotSnapshot builder - add: (SquotArtifactMock new path: '3'; yourself); - add: (SquotArtifactMock new path: '2'; yourself); - add: (SquotArtifactMock new path: '1'; yourself); - buildSnapshot. - editedPatch := SquotPatchBuilder new patchFrom: original to: patched. - self assert: #('3' '2' '1') equals: (editedPatch loadOrderDiff applyTo: #('1' '3')); - assert: #('3' '2' '1') equals: editedPatch patchedLoadOrder. \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilderTest.class/instance/testLoadOrderAfterIncludedArtifactAdditionAndSimultaneousOrderChange2.st b/src/Squot.package/SquotPatchBuilderTest.class/instance/testLoadOrderAfterIncludedArtifactAdditionAndSimultaneousOrderChange2.st deleted file mode 100644 index c36111f0d..000000000 --- a/src/Squot.package/SquotPatchBuilderTest.class/instance/testLoadOrderAfterIncludedArtifactAdditionAndSimultaneousOrderChange2.st +++ /dev/null @@ -1,20 +0,0 @@ -tests -testLoadOrderAfterIncludedArtifactAdditionAndSimultaneousOrderChange2 - | editedPatch original patched | - original := SquotSnapshot builder - add: (SquotArtifactMock new path: '1'; diffBlock: [SquotArtifactDiffMock path: '1']; yourself); - add: (SquotArtifactMock new path: '3'; diffBlock: [SquotArtifactDiffMock path: '3']; yourself); - buildSnapshot. - patched := SquotSnapshot builder - add: (SquotArtifactMock new path: '1'; yourself); - add: (SquotArtifactMock new path: '2'; yourself); - add: (SquotArtifactMock new path: '3'; yourself); - buildSnapshot. - editedPatch := SquotPatchBuilder new - startingFrom: original; - addDiff: (SquotArtifactAddition of: (patched artifactAt: '2')); - newLoadOrder: #('3' '2' '1'); - updateRightArtifacts; - buildPatch. - self assert: #('3' '2' '1') equals: (editedPatch loadOrderDiff applyTo: #('1' '3')); - assert: #('3' '2' '1') equals: editedPatch patchedLoadOrder. \ No newline at end of file diff --git a/src/Squot.package/SquotPatchBuilderTest.class/methodProperties.json b/src/Squot.package/SquotPatchBuilderTest.class/methodProperties.json deleted file mode 100644 index 65f0ef4d4..000000000 --- a/src/Squot.package/SquotPatchBuilderTest.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testCorrectLoadOrderAfterExcludedArtifactAddition" : "jr 7/17/2021 20:41", - "testCorrectLoadOrderAfterExcludedArtifactRemoval" : "jr 7/17/2021 20:42", - "testCorrectLoadOrderAfterExcludedArtifactRemovalAndSimultaneousOrderChange" : "jr 7/17/2021 20:42", - "testCorrectLoadOrderAfterExcludedArtifactRemovalAtBeginning" : "jr 7/17/2021 20:42", - "testLoadOrderAfterIncludedArtifactAdditionAndSimultaneousOrderChange" : "jr 11/3/2020 18:15", - "testLoadOrderAfterIncludedArtifactAdditionAndSimultaneousOrderChange2" : "jr 7/17/2021 20:43" } } diff --git a/src/Squot.package/SquotPatchBuilderTest.class/properties.json b/src/Squot.package/SquotPatchBuilderTest.class/properties.json deleted file mode 100644 index 46e85926e..000000000 --- a/src/Squot.package/SquotPatchBuilderTest.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Tests-Diffs", - "classinstvars" : [ - ], - "classtraitcomposition" : "TTestCaseSuppressingProgressDisplay classTrait", - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotPatchBuilderTest", - "pools" : [ - ], - "super" : "TestCase", - "traitcomposition" : "TTestCaseSuppressingProgressDisplay", - "type" : "normal" } diff --git a/src/Squot.package/SquotPatchTest.class/README.md b/src/Squot.package/SquotPatchTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotPatchTest.class/instance/testEmptyPatch.st b/src/Squot.package/SquotPatchTest.class/instance/testEmptyPatch.st deleted file mode 100644 index bbaccdee1..000000000 --- a/src/Squot.package/SquotPatchTest.class/instance/testEmptyPatch.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testEmptyPatch - | patch container | - container := SquotSnapshot builder - add: (SquotArtifactMock new path: 'a'; yourself); - buildSnapshot. - patch := SquotPatch noChangesTo: container. - self assert: container artifacts equals: (container applyPatch: patch) artifacts. \ No newline at end of file diff --git a/src/Squot.package/SquotPatchTest.class/methodProperties.json b/src/Squot.package/SquotPatchTest.class/methodProperties.json deleted file mode 100644 index e384f6512..000000000 --- a/src/Squot.package/SquotPatchTest.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testEmptyPatch" : "jr 6/9/2019 02:03" } } diff --git a/src/Squot.package/SquotPatchTest.class/properties.json b/src/Squot.package/SquotPatchTest.class/properties.json deleted file mode 100644 index ffbd3af09..000000000 --- a/src/Squot.package/SquotPatchTest.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Tests-Diffs", - "classinstvars" : [ - ], - "classtraitcomposition" : "TTestCaseSuppressingProgressDisplay classTrait", - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotPatchTest", - "pools" : [ - ], - "super" : "TestCase", - "traitcomposition" : "TTestCaseSuppressingProgressDisplay", - "type" : "normal" } diff --git a/src/Squot.package/SquotPatcher.class/README.md b/src/Squot.package/SquotPatcher.class/README.md deleted file mode 100644 index 2b12930a8..000000000 --- a/src/Squot.package/SquotPatcher.class/README.md +++ /dev/null @@ -1,9 +0,0 @@ -I unpack graphs of object shadows to generate regular object graphs. - -If a reference indicates that the hash of the value is significant, the value will only be filled in after it has been fully reactivated. Otherwise the values are filled in as soon as they are materialized (but still empty). - -Instance Variables - availableObjects already unpacked objects (or in progress) - remainingReferences: outgoing references not yet filled in - pendingReferences: incoming references to be filled in when the object in the key has been materialized - pendingReferencesForHash: incoming references to be filled in when the values have been reactivated (and their hash is settled) \ No newline at end of file diff --git a/src/Squot.package/SquotPatcher.class/instance/apply.from.to.reflectedIn.inGraph.original.reflectedIn.patched.reflectedIn.diffsOfReferenceValuesDo..st b/src/Squot.package/SquotPatcher.class/instance/apply.from.to.reflectedIn.inGraph.original.reflectedIn.patched.reflectedIn.diffsOfReferenceValuesDo..st deleted file mode 100644 index 976df48ca..000000000 --- a/src/Squot.package/SquotPatcher.class/instance/apply.from.to.reflectedIn.inGraph.original.reflectedIn.patched.reflectedIn.diffsOfReferenceValuesDo..st +++ /dev/null @@ -1,21 +0,0 @@ -public graph patching -apply: diff from: aGraphDiff to: targetObject reflectedIn: mirror inGraph: anObjectGraph original: oldShadow reflectedIn: oldShadowMirror patched: newShadow reflectedIn: shadowMirror diffsOfReferenceValuesDo: walkBlock - | remaining object | - object := targetObject. - object := diff update: object reflectedIn: mirror - asMaterializedFrom: newShadow reflectedIn: shadowMirror. - "Oftentimes the new object is also the old object (same instance)." self flag: #todo. "But if it is not, we need a new mirror." - self take: object asMaterializedFrom: newShadow. - remaining := OrderedCollection new. - diff referenceDiffsWithDefaultOwners: {oldShadow. newShadow} reflectedIn: shadowMirror do: - [:each | self applyReferenceDiff: each to: object reflectedIn: mirror - new: newShadow reflectedIn: shadowMirror - old: oldShadow reflectedIn: oldShadowMirror - from: aGraphDiff - ifDeferred: [remaining add: each reference] - nextDiffsDo: [:valueDiff :value :valueMirror :valueShadow :valueShadowMirror :oldValueShadow | walkBlock valueWithArguments: {each. valueDiff. value. valueMirror. valueShadow. valueShadowMirror. oldValueShadow. oldShadowMirror mirrorOf: oldValueShadow reachedVia: each reference from: oldShadow}]]. - remaining - ifEmpty: [self reactivate: object] - ifNotEmpty: [pendingOutgoingReferences at: object put: remaining]. - self assignIdentifierIfAnyTo: object reflectedIn: mirror in: anObjectGraph materializedFrom: newShadow. - self updateReferrersTo: object materializedFrom: newShadow diff --git a/src/Squot.package/SquotPatcher.class/instance/apply.toLoadedGraph..st b/src/Squot.package/SquotPatcher.class/instance/apply.toLoadedGraph..st deleted file mode 100644 index e9b5392f9..000000000 --- a/src/Squot.package/SquotPatcher.class/instance/apply.toLoadedGraph..st +++ /dev/null @@ -1,21 +0,0 @@ -public graph patching -apply: aGraphDiff toLoadedGraph: anObjectGraph - "Materialize the changed versions of each shadow into existing objects or create new objects." - "When an object is updated, only the references listed the diff should be filled in, the rest remains as is and is not pending. Updated objects will have pending references until the targets have also been updated. Updated objects may need to be refreshed (e. g. Sets rehashed) after all references have been resolved; compared to full rematerialization of the graph, this refreshing happens in place of reactivating the new objects. For objects created during the patching, all their references must be filled in. Such objects must eventually be reactivated like during full materialization. We currently rely on #transitiveChange to be listed in the diffs, rather than computing the referrers by ourselves." - | walk | - sourceGraph := aGraphDiff right. - "queue diff for start and updating the start reference" - walk := SquotGraphWalk startingFrom: {aGraphDiff asStartDiff. anObjectGraph. SquotObjectGraphMirror new. aGraphDiff right. SquotObjectGraphMirror new. aGraphDiff left. SquotObjectGraphMirror new}. - walk doNotTrackReferrers. - [walk atEnd] whileFalse: - [ | next diff object mirror newShadow shadowMirror oldShadow oldShadowMirror | - next := walk next. diff := next first. object := next second. mirror := next third. newShadow := next fourth. shadowMirror := next fifth. oldShadow := next sixth. oldShadowMirror := next seventh. - self apply: diff from: aGraphDiff to: object reflectedIn: mirror - inGraph: anObjectGraph - original: oldShadow reflectedIn: oldShadowMirror - patched: newShadow reflectedIn: shadowMirror - diffsOfReferenceValuesDo: - [:referenceDiff :valueDiff :value :valueMirror :valueShadow :valueShadowMirror :oldValueShadow :oldValueShadowMirror | - walk add: {valueDiff. value. valueMirror. valueShadow. valueShadowMirror. oldValueShadow. oldValueShadowMirror} reachedVia: referenceDiff]]. - pendingOutgoingReferences ifNotEmpty: [self error: 'Objects not fully updated']. - ^ anObjectGraph \ No newline at end of file diff --git a/src/Squot.package/SquotPatcher.class/instance/applyReferenceDiff.to.reflectedIn.new.reflectedIn.old.reflectedIn.from.ifDeferred.nextDiffsDo..st b/src/Squot.package/SquotPatcher.class/instance/applyReferenceDiff.to.reflectedIn.new.reflectedIn.old.reflectedIn.from.ifDeferred.nextDiffsDo..st deleted file mode 100644 index 5a1f06288..000000000 --- a/src/Squot.package/SquotPatcher.class/instance/applyReferenceDiff.to.reflectedIn.new.reflectedIn.old.reflectedIn.from.ifDeferred.nextDiffsDo..st +++ /dev/null @@ -1,27 +0,0 @@ -private -applyReferenceDiff: aReferenceDiff to: anObject reflectedIn: aMirror new: newShadow reflectedIn: newShadowMirror old: oldShadow reflectedIn: oldShadowMirror from: aGraphDiff ifDeferred: deferredBlock nextDiffsDo: walkBlock - | valueShadow | - valueShadow := aReferenceDiff squotValueShadowFrom: oldShadow reflectedIn: oldShadowMirror. - self applying: aReferenceDiff - fill: valueShadow reachedVia: aReferenceDiff reference - into: anObject reflectedIn: aMirror - ifDeferredUntilActivated: [deferredBlock value] - ifNotTreatedYet: - ["Could be new or just not yet patched." - | value isNew valueMirror valueShadowMirror valueName valueDiff | - valueShadowMirror := newShadowMirror mirrorOf: valueShadow undecorated reachedVia: aReferenceDiff reference from: newShadow undecorated. - isNew := false. - value := self findOrCreateMaterializedInstanceOf: valueShadow reflectedIn: valueShadowMirror ifNew: [:newValue | isNew := true]. - "To update a reference might entail to materialize new objects. Filling in of their references must be queued as well." - valueMirror := aMirror mirrorOf: value reachedVia: aReferenceDiff reference from: anObject. - valueName := aGraphDiff right nameOf: valueShadow undecorated ifAbsent: []. - valueDiff := aGraphDiff diffForObjectNamed: valueName ifAbsent: []. - isNew & valueDiff isNil - ifTrue: [valueDiff := SquotObjectAddition of: valueShadow]. - valueDiff - ifNil: [aReferenceDiff squotReflectOn: anObject in: aMirror withValue: value] - ifNotNil: - [| oldValueShadow | - oldValueShadow := (valueName ifNil: [valueShadow] ifNotNil: [aGraphDiff left shadowNamed: valueName ifAbsent: [valueShadow]]) undecorated. - walkBlock valueWithArguments: {valueDiff. value. valueMirror. valueShadow. valueShadowMirror. oldValueShadow}. - deferredBlock value]]. \ No newline at end of file diff --git a/src/Squot.package/SquotPatcher.class/instance/applying.fill.reachedVia.into.reflectedIn.ifDeferredUntilActivated.ifNotTreatedYet..st b/src/Squot.package/SquotPatcher.class/instance/applying.fill.reachedVia.into.reflectedIn.ifDeferredUntilActivated.ifNotTreatedYet..st deleted file mode 100644 index a90653979..000000000 --- a/src/Squot.package/SquotPatcher.class/instance/applying.fill.reachedVia.into.reflectedIn.ifDeferredUntilActivated.ifNotTreatedYet..st +++ /dev/null @@ -1,26 +0,0 @@ -private -applying: aReferenceDiff fill: valueShadow reachedVia: eachReference into: materialized reflectedIn: materializedMirror ifDeferredUntilActivated: deferredValueBlock ifNotTreatedYet: unavailableValueBlock - "Answer whether the reference could already be filled in." - | wasFilledIn | - treatedObjects at: valueShadow undecorated - ifPresent: - [:materializedValue | - (eachReference isHashRelevant and: [(self wasReactivated: materializedValue) not]) - ifTrue: ["Fill in later" wasFilledIn := false. - deferredValueBlock value. - (pendingIncomingReferencesForHash at: valueShadow undecorated ifAbsentPut: [OrderedCollection new]) - add: {materialized. materializedMirror. eachReference. aReferenceDiff}] - ifFalse: - [aReferenceDiff squotReflectOn: materialized in: materializedMirror withValue: materializedValue. - wasFilledIn := true]] - ifAbsent: - [wasFilledIn := false. - unavailableValueBlock value. - eachReference isHashRelevant - ifTrue: - [(pendingIncomingReferencesForHash at: valueShadow undecorated ifAbsentPut: [OrderedCollection new]) - add: {materialized. materializedMirror. eachReference. aReferenceDiff}] - ifFalse: - [(pendingIncomingReferences at: valueShadow undecorated ifAbsentPut: [OrderedCollection new]) - add: {materialized. materializedMirror. eachReference. aReferenceDiff}]]. - ^ wasFilledIn \ No newline at end of file diff --git a/src/Squot.package/SquotPatcher.class/instance/assignIdentifierIfAnyTo.reflectedIn.in.materializedFrom..st b/src/Squot.package/SquotPatcher.class/instance/assignIdentifierIfAnyTo.reflectedIn.in.materializedFrom..st deleted file mode 100644 index 370cff0a7..000000000 --- a/src/Squot.package/SquotPatcher.class/instance/assignIdentifierIfAnyTo.reflectedIn.in.materializedFrom..st +++ /dev/null @@ -1,10 +0,0 @@ -private -assignIdentifierIfAnyTo: anObject reflectedIn: aMirror in: anObjectGraph materializedFrom: aShadow - | name | - name := self sourceNameOf: aShadow ifPresent: [:sourceName | sourceName] ifAbsent: []. - (aMirror shouldObjectHaveNameAssigned: anObject) - ifTrue: - [name - ifNil: ["Object should normally have a name, but maybe it is just materialized to be removed from a collection. Then it does not need to get a name in the registry or the new graph."] - ifNotNil: [objectRegistry assign: name to: anObject]]. - name ifNotNil: [anObjectGraph assign: name to: anObject]. \ No newline at end of file diff --git a/src/Squot.package/SquotPatcher.class/instance/fill.reachedVia.into.reflectedIn.ifDeferredUntilActivated.ifUnavailable..st b/src/Squot.package/SquotPatcher.class/instance/fill.reachedVia.into.reflectedIn.ifDeferredUntilActivated.ifUnavailable..st deleted file mode 100644 index afd7f244f..000000000 --- a/src/Squot.package/SquotPatcher.class/instance/fill.reachedVia.into.reflectedIn.ifDeferredUntilActivated.ifUnavailable..st +++ /dev/null @@ -1,26 +0,0 @@ -private -fill: value reachedVia: eachReference into: materialized reflectedIn: materializedMirror ifDeferredUntilActivated: deferredValueBlock ifUnavailable: unavailableValueBlock - "Answer whether the reference could already be filled in." - | wasFilledIn | - treatedObjects at: value undecorated - ifPresent: - [:materializedValue | - (eachReference isHashRelevant and: [(self wasReactivated: materializedValue) not]) - ifTrue: ["Fill in later" wasFilledIn := false. - deferredValueBlock value. - (pendingIncomingReferencesForHash at: value undecorated ifAbsentPut: [OrderedCollection new]) - add: {materialized. materializedMirror. eachReference}] - ifFalse: - [eachReference asMaterializedReference reflect: materialized in: materializedMirror put: materializedValue. - wasFilledIn := true]] - ifAbsent: - [wasFilledIn := false. - unavailableValueBlock value. - eachReference isHashRelevant - ifTrue: - [(pendingIncomingReferencesForHash at: value undecorated ifAbsentPut: [OrderedCollection new]) - add: {materialized. materializedMirror. eachReference}] - ifFalse: - [(pendingIncomingReferences at: value undecorated ifAbsentPut: [OrderedCollection new]) - add: {materialized. materializedMirror. eachReference}]]. - ^ wasFilledIn \ No newline at end of file diff --git a/src/Squot.package/SquotPatcher.class/instance/findOrCreateMaterializedInstanceOf.reflectedIn.ifNew..st b/src/Squot.package/SquotPatcher.class/instance/findOrCreateMaterializedInstanceOf.reflectedIn.ifNew..st deleted file mode 100644 index 55223f4cc..000000000 --- a/src/Squot.package/SquotPatcher.class/instance/findOrCreateMaterializedInstanceOf.reflectedIn.ifNew..st +++ /dev/null @@ -1,16 +0,0 @@ -private -findOrCreateMaterializedInstanceOf: aShadow reflectedIn: aMirror ifNew: aBlock - "Answers a live (but not necessarily reactivated) object. Its references may not all be updated in yet." - | existing materialized | - self sourceNameOf: aShadow - ifPresent: - [:name | - existing := objectRegistry objectNamed: name ifAbsent: []. - (existing notNil and: [existing squotShouldKeepIdentity]) - ifTrue: [materialized := existing]] - ifAbsent: []. - materialized ifNil: - [materialized := aShadow squotMaterializeWith: self. - aBlock value: materialized]. - "The references of anObject are not yet filled in here. Also the object does not get activated yet." - ^ materialized \ No newline at end of file diff --git a/src/Squot.package/SquotPatcher.class/instance/initialize.st b/src/Squot.package/SquotPatcher.class/instance/initialize.st deleted file mode 100644 index a1a5fb29c..000000000 --- a/src/Squot.package/SquotPatcher.class/instance/initialize.st +++ /dev/null @@ -1,7 +0,0 @@ -initialize-release -initialize - treatedObjects := IdentityDictionary new. - pendingIncomingReferences := IdentityDictionary new. - pendingIncomingReferencesForHash := IdentityDictionary new. - pendingOutgoingReferences := IdentityDictionary new. - objectRegistry := SquotObjectRegistry new. \ No newline at end of file diff --git a/src/Squot.package/SquotPatcher.class/instance/reactivate..st b/src/Squot.package/SquotPatcher.class/instance/reactivate..st deleted file mode 100644 index 13e9a0822..000000000 --- a/src/Squot.package/SquotPatcher.class/instance/reactivate..st +++ /dev/null @@ -1,22 +0,0 @@ -private -reactivate: anObject - | materializedObject | - materializedObject := anObject squotReactivateWith: self. - "Update all known references to the reactivated object where its hash matters. Reactivate each object that needs no more references to be filled in." - (pendingIncomingReferencesForHash removeKey: (treatedObjects keyAtValue: anObject) ifAbsent: [#()]) do: - [:eachTuple | | referrer mirror reference diff remaining | - referrer := eachTuple first. mirror := eachTuple second. reference := eachTuple third. diff := eachTuple fourth. - remaining := pendingOutgoingReferences at: referrer. - diff squotReflectOn: referrer in: mirror withValue: materializedObject. - remaining remove: reference. - remaining ifEmpty: - ["Reactivate object if all references are filled in now." - pendingOutgoingReferences removeKey: referrer. - self reactivate: referrer]]. - self haltIf: (anObject ~~ materializedObject "Safeguard against dangerous become operations." - and: ["anObject was not freshly created during this materialization" (true flag: #todo "formerly thisContext sender method ~~ (SquotObjectShadow >> #squotMaterializeWith:)") - and: [anObject class isWeak not]]). - anObject ~~ materializedObject ifTrue: - "For example if anObject is a DiskProxy." - [anObject becomeForward: materializedObject copyHash: false]. - ^ materializedObject \ No newline at end of file diff --git a/src/Squot.package/SquotPatcher.class/instance/registry..st b/src/Squot.package/SquotPatcher.class/instance/registry..st deleted file mode 100644 index 305a408d3..000000000 --- a/src/Squot.package/SquotPatcher.class/instance/registry..st +++ /dev/null @@ -1,3 +0,0 @@ -public graph patching -registry: anObjectRegistry - objectRegistry := anObjectRegistry. \ No newline at end of file diff --git a/src/Squot.package/SquotPatcher.class/instance/sourceGraph..st b/src/Squot.package/SquotPatcher.class/instance/sourceGraph..st deleted file mode 100644 index a044b059d..000000000 --- a/src/Squot.package/SquotPatcher.class/instance/sourceGraph..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -sourceGraph: aShadowGraph - sourceGraph := aShadowGraph. \ No newline at end of file diff --git a/src/Squot.package/SquotPatcher.class/instance/sourceNameOf.ifPresent.ifAbsent..st b/src/Squot.package/SquotPatcher.class/instance/sourceNameOf.ifPresent.ifAbsent..st deleted file mode 100644 index c47163365..000000000 --- a/src/Squot.package/SquotPatcher.class/instance/sourceNameOf.ifPresent.ifAbsent..st +++ /dev/null @@ -1,8 +0,0 @@ -private -sourceNameOf: aShadow ifPresent: unaryBlock ifAbsent: niladicBlock - | name | - sourceGraph ifNotNil: - [name := sourceGraph nameOf: aShadow undecorated ifAbsent: []. - name ifNotNil: [^ unaryBlock value: name]]. - aShadow hasSquotShadowName ifTrue: [^ unaryBlock value: aShadow name]. - ^ niladicBlock value \ No newline at end of file diff --git a/src/Squot.package/SquotPatcher.class/instance/take.asMaterializedFrom..st b/src/Squot.package/SquotPatcher.class/instance/take.asMaterializedFrom..st deleted file mode 100644 index 7de8de20f..000000000 --- a/src/Squot.package/SquotPatcher.class/instance/take.asMaterializedFrom..st +++ /dev/null @@ -1,4 +0,0 @@ -private -take: anObject asMaterializedFrom: aShadow - "Recognize anObject as being the materialized form of aShadow." - treatedObjects at: aShadow undecorated put: anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotPatcher.class/instance/updateReference.from.reflectedIn.for.withValue..st b/src/Squot.package/SquotPatcher.class/instance/updateReference.from.reflectedIn.for.withValue..st deleted file mode 100644 index 50ac5b84f..000000000 --- a/src/Squot.package/SquotPatcher.class/instance/updateReference.from.reflectedIn.for.withValue..st +++ /dev/null @@ -1,11 +0,0 @@ -private -updateReference: reference from: referrer reflectedIn: mirror for: aDiff withValue: materialized - "Update all known references to the new object where its hash does not matter. Reactivate each object that needs no more references to be filled in." - | remaining | - remaining := pendingOutgoingReferences at: referrer. - aDiff squotReflectOn: referrer in: mirror withValue: materialized. - remaining remove: reference. - remaining ifEmpty: - ["Reactivate object if all references are filled in now." - pendingOutgoingReferences removeKey: referrer. - self reactivate: referrer]. \ No newline at end of file diff --git a/src/Squot.package/SquotPatcher.class/instance/updateReferrersTo.materializedFrom..st b/src/Squot.package/SquotPatcher.class/instance/updateReferrersTo.materializedFrom..st deleted file mode 100644 index b42768f94..000000000 --- a/src/Squot.package/SquotPatcher.class/instance/updateReferrersTo.materializedFrom..st +++ /dev/null @@ -1,7 +0,0 @@ -private -updateReferrersTo: materialized materializedFrom: aShadow - "Update all known references to the new object where its hash does not matter. Reactivate each object that needs no more references to be filled in." - (pendingIncomingReferences removeKey: aShadow undecorated ifAbsent: [#()]) do: - [:eachTuple | | referrer mirror reference diff | - referrer := eachTuple first. mirror := eachTuple second. reference := eachTuple third. diff := eachTuple fourth. - self updateReference: reference from: referrer reflectedIn: mirror for: diff withValue: materialized]. \ No newline at end of file diff --git a/src/Squot.package/SquotPatcher.class/instance/wasReactivated..st b/src/Squot.package/SquotPatcher.class/instance/wasReactivated..st deleted file mode 100644 index ba26d8d56..000000000 --- a/src/Squot.package/SquotPatcher.class/instance/wasReactivated..st +++ /dev/null @@ -1,3 +0,0 @@ -private -wasReactivated: anObject - ^ (pendingOutgoingReferences includesKey: anObject) not \ No newline at end of file diff --git a/src/Squot.package/SquotPatcher.class/methodProperties.json b/src/Squot.package/SquotPatcher.class/methodProperties.json deleted file mode 100644 index cd395f1c5..000000000 --- a/src/Squot.package/SquotPatcher.class/methodProperties.json +++ /dev/null @@ -1,20 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "apply:from:to:reflectedIn:inGraph:original:reflectedIn:patched:reflectedIn:diffsOfReferenceValuesDo:" : "jr 7/25/2021 18:21", - "apply:toLoadedGraph:" : "jr 7/25/2021 18:25", - "applyReferenceDiff:to:reflectedIn:new:reflectedIn:old:reflectedIn:from:ifDeferred:nextDiffsDo:" : "jr 7/18/2021 00:56", - "applying:fill:reachedVia:into:reflectedIn:ifDeferredUntilActivated:ifNotTreatedYet:" : "jr 7/18/2021 00:29", - "assignIdentifierIfAnyTo:reflectedIn:in:materializedFrom:" : "jr 7/18/2021 00:57", - "fill:reachedVia:into:reflectedIn:ifDeferredUntilActivated:ifUnavailable:" : "jr 6/13/2021 17:35", - "findOrCreateMaterializedInstanceOf:reflectedIn:ifNew:" : "jr 6/17/2021 23:38", - "initialize" : "jr 6/13/2021 12:08", - "reactivate:" : "jr 7/4/2021 18:54", - "registry:" : "jr 6/12/2021 17:07", - "sourceGraph:" : "jr 6/12/2021 01:37", - "sourceNameOf:ifPresent:ifAbsent:" : "jr 6/13/2021 19:26", - "take:asMaterializedFrom:" : "jr 6/13/2021 12:08", - "updateReference:from:reflectedIn:for:withValue:" : "jr 6/20/2021 21:34", - "updateReferrersTo:materializedFrom:" : "jr 6/20/2021 21:33", - "wasReactivated:" : "jr 6/13/2021 10:35" } } diff --git a/src/Squot.package/SquotPatcher.class/properties.json b/src/Squot.package/SquotPatcher.class/properties.json deleted file mode 100644 index 45712f14f..000000000 --- a/src/Squot.package/SquotPatcher.class/properties.json +++ /dev/null @@ -1,19 +0,0 @@ -{ - "category" : "Squot-Diffs", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 6/11/2021 23:26", - "instvars" : [ - "objectRegistry", - "sourceGraph", - "pendingOutgoingReferences", - "pendingIncomingReferences", - "pendingIncomingReferencesForHash", - "treatedObjects" ], - "name" : "SquotPatcher", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotPath.class/README.md b/src/Squot.package/SquotPath.class/README.md deleted file mode 100644 index ba337a4ad..000000000 --- a/src/Squot.package/SquotPath.class/README.md +++ /dev/null @@ -1 +0,0 @@ -Helper class to handle or convert paths. Used to consitently form artifact paths from filesystem paths. \ No newline at end of file diff --git a/src/Squot.package/SquotPath.class/class/delimiter.st b/src/Squot.package/SquotPath.class/class/delimiter.st deleted file mode 100644 index ca57914b5..000000000 --- a/src/Squot.package/SquotPath.class/class/delimiter.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -delimiter - ^ $/ \ No newline at end of file diff --git a/src/Squot.package/SquotPath.class/class/from..st b/src/Squot.package/SquotPath.class/class/from..st deleted file mode 100644 index 351794426..000000000 --- a/src/Squot.package/SquotPath.class/class/from..st +++ /dev/null @@ -1,3 +0,0 @@ -converting -from: aResolvableObject - ^ self new resolve: aResolvableObject \ No newline at end of file diff --git a/src/Squot.package/SquotPath.class/class/fromPath..st b/src/Squot.package/SquotPath.class/class/fromPath..st deleted file mode 100644 index f03cd42e3..000000000 --- a/src/Squot.package/SquotPath.class/class/fromPath..st +++ /dev/null @@ -1,5 +0,0 @@ -converting -fromPath: aFSPath - ^ aFSPath isWorkingDirectory - ifTrue: [''] - ifFalse: [aFSPath printWithDelimiter: self delimiter] \ No newline at end of file diff --git a/src/Squot.package/SquotPath.class/class/fromReference..st b/src/Squot.package/SquotPath.class/class/fromReference..st deleted file mode 100644 index 26bf67f0d..000000000 --- a/src/Squot.package/SquotPath.class/class/fromReference..st +++ /dev/null @@ -1,3 +0,0 @@ -converting -fromReference: aFileReference - ^ self fromPath: aFileReference path \ No newline at end of file diff --git a/src/Squot.package/SquotPath.class/class/fromString..st b/src/Squot.package/SquotPath.class/class/fromString..st deleted file mode 100644 index 0ae3731c0..000000000 --- a/src/Squot.package/SquotPath.class/class/fromString..st +++ /dev/null @@ -1,3 +0,0 @@ -converting -fromString: aString - ^ aString \ No newline at end of file diff --git a/src/Squot.package/SquotPath.class/instance/resolve..st b/src/Squot.package/SquotPath.class/instance/resolve..st deleted file mode 100644 index 0548c41ff..000000000 --- a/src/Squot.package/SquotPath.class/instance/resolve..st +++ /dev/null @@ -1,3 +0,0 @@ -FileSystem resolving -resolve: aResolvable - ^ aResolvable asResolvedBy: self \ No newline at end of file diff --git a/src/Squot.package/SquotPath.class/instance/resolvePath..st b/src/Squot.package/SquotPath.class/instance/resolvePath..st deleted file mode 100644 index f8fa38833..000000000 --- a/src/Squot.package/SquotPath.class/instance/resolvePath..st +++ /dev/null @@ -1,3 +0,0 @@ -FileSystem resolving -resolvePath: aFSPath - ^ self class fromPath: aFSPath \ No newline at end of file diff --git a/src/Squot.package/SquotPath.class/instance/resolveReference..st b/src/Squot.package/SquotPath.class/instance/resolveReference..st deleted file mode 100644 index 49f332eac..000000000 --- a/src/Squot.package/SquotPath.class/instance/resolveReference..st +++ /dev/null @@ -1,3 +0,0 @@ -FileSystem resolving -resolveReference: aFSReference - ^ self class fromReference: aFSReference \ No newline at end of file diff --git a/src/Squot.package/SquotPath.class/instance/resolveString..st b/src/Squot.package/SquotPath.class/instance/resolveString..st deleted file mode 100644 index 5592116bd..000000000 --- a/src/Squot.package/SquotPath.class/instance/resolveString..st +++ /dev/null @@ -1,3 +0,0 @@ -FileSystem resolving -resolveString: aString - ^ self class fromString: aString \ No newline at end of file diff --git a/src/Squot.package/SquotPath.class/methodProperties.json b/src/Squot.package/SquotPath.class/methodProperties.json deleted file mode 100644 index 35d59e916..000000000 --- a/src/Squot.package/SquotPath.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - "delimiter" : "jr 5/8/2017 19:32", - "from:" : "jr 7/15/2017 13:40", - "fromPath:" : "jr 4/6/2018 21:57", - "fromReference:" : "jr 3/11/2017 00:59", - "fromString:" : "jr 3/11/2017 01:00" }, - "instance" : { - "resolve:" : "jr 7/15/2017 13:41", - "resolvePath:" : "jr 7/15/2017 13:41", - "resolveReference:" : "jr 7/15/2017 13:42", - "resolveString:" : "jr 7/15/2017 13:41" } } diff --git a/src/Squot.package/SquotPath.class/properties.json b/src/Squot.package/SquotPath.class/properties.json deleted file mode 100644 index b3e957edc..000000000 --- a/src/Squot.package/SquotPath.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Internal", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 18:57", - "instvars" : [ - ], - "name" : "SquotPath", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotPathNegotiationTest.class/README.md b/src/Squot.package/SquotPathNegotiationTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotPathNegotiationTest.class/instance/newRepository.st b/src/Squot.package/SquotPathNegotiationTest.class/instance/newRepository.st deleted file mode 100644 index 77bc45d28..000000000 --- a/src/Squot.package/SquotPathNegotiationTest.class/instance/newRepository.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -newRepository - ^ SquotMockRepository new \ No newline at end of file diff --git a/src/Squot.package/SquotPathNegotiationTest.class/instance/newStore.st b/src/Squot.package/SquotPathNegotiationTest.class/instance/newStore.st deleted file mode 100644 index 6e24b6719..000000000 --- a/src/Squot.package/SquotPathNegotiationTest.class/instance/newStore.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -newStore - ^ SquotMockStore new \ No newline at end of file diff --git a/src/Squot.package/SquotPathNegotiationTest.class/instance/testRepositoryChangesPath.st b/src/Squot.package/SquotPathNegotiationTest.class/instance/testRepositoryChangesPath.st deleted file mode 100644 index 0982889d1..000000000 --- a/src/Squot.package/SquotPathNegotiationTest.class/instance/testRepositoryChangesPath.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testRepositoryChangesPath - | object | - "given" - object := Object new. - store whenInitializingStoreInfoFor: object do: [:storeInfo | "nothing"]. - repository whenInitializingStoreInfoDo: - [:shadow :storeInfo | | path | path := storeInfo at: #path. - (path endsWith: ' changed by repository') - ifFalse: [storeInfo at: #path put: path, ' changed by repository']]. - "when" - workingCopy add: object at: 'path'. - "then" - self assert: (store includesObjectAt: 'path changed by repository'). \ No newline at end of file diff --git a/src/Squot.package/SquotPathNegotiationTest.class/instance/testStoreAndRepositoryChangePath.st b/src/Squot.package/SquotPathNegotiationTest.class/instance/testStoreAndRepositoryChangePath.st deleted file mode 100644 index f2501e3f9..000000000 --- a/src/Squot.package/SquotPathNegotiationTest.class/instance/testStoreAndRepositoryChangePath.st +++ /dev/null @@ -1,18 +0,0 @@ -tests -testStoreAndRepositoryChangePath - | object | - "given" - object := Object new. - store - whenInitializingStoreInfoFor: object - do: [:storeInfo | | path | path := storeInfo at: #path. - (path includesSubstring: 'changed by store' caseSensitive: true) - ifFalse: [storeInfo at: #path put: path, ' changed by store']]. - repository whenInitializingStoreInfoDo: - [:shadow :storeInfo | | path | path := storeInfo at: #path. - (path endsWith: ' and repository') - ifFalse: [storeInfo at: #path put: path, ' and repository']]. - "when" - workingCopy add: object at: 'path'. - "then" - self assert: (store includesObjectAt: 'path changed by store and repository'). \ No newline at end of file diff --git a/src/Squot.package/SquotPathNegotiationTest.class/instance/testStoreAndRepositoryDisagree.st b/src/Squot.package/SquotPathNegotiationTest.class/instance/testStoreAndRepositoryDisagree.st deleted file mode 100644 index 5c15b7314..000000000 --- a/src/Squot.package/SquotPathNegotiationTest.class/instance/testStoreAndRepositoryDisagree.st +++ /dev/null @@ -1,16 +0,0 @@ -tests -testStoreAndRepositoryDisagree - | object | - "given" - object := Object new. - store - whenInitializingStoreInfoFor: object - do: [:storeInfo | | path | path := storeInfo at: #path. - (path endsWith: ' changed by store') - ifFalse: [storeInfo at: #path put: path, ' changed by store']]. - repository whenInitializingStoreInfoDo: - [:shadow :storeInfo | | path | path := storeInfo at: #path. - (path endsWith: ' changed by repository') - ifFalse: [storeInfo at: #path put: path, ' changed by repository']]. - "when" - self should: [workingCopy add: object at: 'path'] raise: Error. \ No newline at end of file diff --git a/src/Squot.package/SquotPathNegotiationTest.class/instance/testStoreChangesPath.st b/src/Squot.package/SquotPathNegotiationTest.class/instance/testStoreChangesPath.st deleted file mode 100644 index 930324a06..000000000 --- a/src/Squot.package/SquotPathNegotiationTest.class/instance/testStoreChangesPath.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testStoreChangesPath - | object | - "given" - object := Object new. - store - whenInitializingStoreInfoFor: object - do: [:storeInfo | | path | path := storeInfo at: #path. - (path endsWith: ' changed by store') - ifFalse: [storeInfo at: #path put: path, ' changed by store']]. - repository whenInitializingStoreInfoDo: [:shadow :storeInfo | "nothing"]. - "when" - workingCopy add: object at: 'path'. - "then" - self assert: (store includesObjectAt: 'path changed by store'). \ No newline at end of file diff --git a/src/Squot.package/SquotPathNegotiationTest.class/methodProperties.json b/src/Squot.package/SquotPathNegotiationTest.class/methodProperties.json deleted file mode 100644 index e40ae5d6b..000000000 --- a/src/Squot.package/SquotPathNegotiationTest.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "newRepository" : "jr 12/2/2019 22:07", - "newStore" : "jr 12/2/2019 22:07", - "testRepositoryChangesPath" : "jr 5/28/2022 12:09", - "testStoreAndRepositoryChangePath" : "jr 5/28/2022 12:09", - "testStoreAndRepositoryDisagree" : "jr 5/28/2022 12:09", - "testStoreChangesPath" : "jr 5/28/2022 12:10" } } diff --git a/src/Squot.package/SquotPathNegotiationTest.class/properties.json b/src/Squot.package/SquotPathNegotiationTest.class/properties.json deleted file mode 100644 index 9f132af43..000000000 --- a/src/Squot.package/SquotPathNegotiationTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotPathNegotiationTest", - "pools" : [ - ], - "super" : "SquotWorkingCopyTestIndependentOfRepositoryType", - "type" : "normal" } diff --git a/src/Squot.package/SquotPrimitiveValue.class/README.md b/src/Squot.package/SquotPrimitiveValue.class/README.md deleted file mode 100644 index 495bc3d09..000000000 --- a/src/Squot.package/SquotPrimitiveValue.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am a shadow for primitive values like SmallIntegers, Characters, Booleans or UndefinedObject. \ No newline at end of file diff --git a/src/Squot.package/SquotPrimitiveValue.class/class/for..st b/src/Squot.package/SquotPrimitiveValue.class/class/for..st deleted file mode 100644 index 9066d820d..000000000 --- a/src/Squot.package/SquotPrimitiveValue.class/class/for..st +++ /dev/null @@ -1,4 +0,0 @@ -instance creation -for: aPrimitiveObject - ^ self new value: aPrimitiveObject; yourself - \ No newline at end of file diff --git a/src/Squot.package/SquotPrimitiveValue.class/class/squotMirror.st b/src/Squot.package/SquotPrimitiveValue.class/class/squotMirror.st deleted file mode 100644 index 8693aa6c6..000000000 --- a/src/Squot.package/SquotPrimitiveValue.class/class/squotMirror.st +++ /dev/null @@ -1,3 +0,0 @@ -reflecting -squotMirror - ^ SquotOpaqueValueMirror new \ No newline at end of file diff --git a/src/Squot.package/SquotPrimitiveValue.class/instance/^equals.st b/src/Squot.package/SquotPrimitiveValue.class/instance/^equals.st deleted file mode 100644 index f90ea3091..000000000 --- a/src/Squot.package/SquotPrimitiveValue.class/instance/^equals.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -= other - ^ value = other value \ No newline at end of file diff --git a/src/Squot.package/SquotPrimitiveValue.class/instance/canHaveNameAssignedBySquot.st b/src/Squot.package/SquotPrimitiveValue.class/instance/canHaveNameAssignedBySquot.st deleted file mode 100644 index e21afa81a..000000000 --- a/src/Squot.package/SquotPrimitiveValue.class/instance/canHaveNameAssignedBySquot.st +++ /dev/null @@ -1,4 +0,0 @@ -classification -canHaveNameAssignedBySquot - "Primitive objects must not get names, so neither do their shadows" - ^ value shouldHaveNameAssignedBySquot \ No newline at end of file diff --git a/src/Squot.package/SquotPrimitiveValue.class/instance/diffClass.st b/src/Squot.package/SquotPrimitiveValue.class/instance/diffClass.st deleted file mode 100644 index 130afb9bd..000000000 --- a/src/Squot.package/SquotPrimitiveValue.class/instance/diffClass.st +++ /dev/null @@ -1,5 +0,0 @@ -comparing -diffClass - "Primitive values cannot be modified and should not be becomeForwarded:. - Instead, the slot referring to it should be reassigned." - self shouldNotImplement \ No newline at end of file diff --git a/src/Squot.package/SquotPrimitiveValue.class/instance/explorerContents.st b/src/Squot.package/SquotPrimitiveValue.class/instance/explorerContents.st deleted file mode 100644 index 3339f42c4..000000000 --- a/src/Squot.package/SquotPrimitiveValue.class/instance/explorerContents.st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-Tools -explorerContents - ^ self class = SquotPrimitiveValue - ifTrue: [value explorerContents] - ifFalse: [super explorerContents] \ No newline at end of file diff --git a/src/Squot.package/SquotPrimitiveValue.class/instance/hasContentsInExplorer.st b/src/Squot.package/SquotPrimitiveValue.class/instance/hasContentsInExplorer.st deleted file mode 100644 index 77d6d105f..000000000 --- a/src/Squot.package/SquotPrimitiveValue.class/instance/hasContentsInExplorer.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -hasContentsInExplorer - - ^ value hasContentsInExplorer \ No newline at end of file diff --git a/src/Squot.package/SquotPrimitiveValue.class/instance/hash.st b/src/Squot.package/SquotPrimitiveValue.class/instance/hash.st deleted file mode 100644 index cb4627103..000000000 --- a/src/Squot.package/SquotPrimitiveValue.class/instance/hash.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -hash - ^ value hash \ No newline at end of file diff --git a/src/Squot.package/SquotPrimitiveValue.class/instance/initializeFrom.with..st b/src/Squot.package/SquotPrimitiveValue.class/instance/initializeFrom.with..st deleted file mode 100644 index ccad7343f..000000000 --- a/src/Squot.package/SquotPrimitiveValue.class/instance/initializeFrom.with..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initializeFrom: aPrimitiveObject with: aContentCapturer - self flag: #deprecated. "Ask the mirror instead." - value := aPrimitiveObject. \ No newline at end of file diff --git a/src/Squot.package/SquotPrimitiveValue.class/instance/originalClass.st b/src/Squot.package/SquotPrimitiveValue.class/instance/originalClass.st deleted file mode 100644 index c80e6705f..000000000 --- a/src/Squot.package/SquotPrimitiveValue.class/instance/originalClass.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -originalClass - ^ value class \ No newline at end of file diff --git a/src/Squot.package/SquotPrimitiveValue.class/instance/printOn..st b/src/Squot.package/SquotPrimitiveValue.class/instance/printOn..st deleted file mode 100644 index fd4a61857..000000000 --- a/src/Squot.package/SquotPrimitiveValue.class/instance/printOn..st +++ /dev/null @@ -1,5 +0,0 @@ -printing -printOn: aStream - aStream - nextPutAll: 'shadow of '; - print: value. \ No newline at end of file diff --git a/src/Squot.package/SquotPrimitiveValue.class/instance/sameIn.withName.ifAbsent..st b/src/Squot.package/SquotPrimitiveValue.class/instance/sameIn.withName.ifAbsent..st deleted file mode 100644 index 21eef8324..000000000 --- a/src/Squot.package/SquotPrimitiveValue.class/instance/sameIn.withName.ifAbsent..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -sameIn: aShadowGraph withName: anUndefinedObject ifAbsent: aBlock - "If the graph contains something like me, it is identical to me. So just answer myself." - self assert: anUndefinedObject isNil description: 'Primitive objects should not have names'. - ^ self \ No newline at end of file diff --git a/src/Squot.package/SquotPrimitiveValue.class/instance/slots.st b/src/Squot.package/SquotPrimitiveValue.class/instance/slots.st deleted file mode 100644 index e2dbffb8b..000000000 --- a/src/Squot.package/SquotPrimitiveValue.class/instance/slots.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -slots - ^ Dictionary new \ No newline at end of file diff --git a/src/Squot.package/SquotPrimitiveValue.class/instance/squotDiffAgainst..st b/src/Squot.package/SquotPrimitiveValue.class/instance/squotDiffAgainst..st deleted file mode 100644 index 7a200ac43..000000000 --- a/src/Squot.package/SquotPrimitiveValue.class/instance/squotDiffAgainst..st +++ /dev/null @@ -1,6 +0,0 @@ -Squot-shadow-diffing -squotDiffAgainst: otherContent - "Answer an object that describes the differences between me and otherContent." - self isThisEverCalled: 'Comparison of trivial objects'. - "It makes no sense to compare trivial objects, since there are no differing editions of them." - ^ SquotDiffBuilder new left: self right: otherContent \ No newline at end of file diff --git a/src/Squot.package/SquotPrimitiveValue.class/instance/squotDiffAgainst.with..st b/src/Squot.package/SquotPrimitiveValue.class/instance/squotDiffAgainst.with..st deleted file mode 100644 index 979f6ecdc..000000000 --- a/src/Squot.package/SquotPrimitiveValue.class/instance/squotDiffAgainst.with..st +++ /dev/null @@ -1,7 +0,0 @@ -Squot-shadow-diffing -squotDiffAgainst: otherContent with: aDiffBuilder - "Answer an object that describes the differences between me and otherContent." - self isThisEverCalled: 'Comparison of trivial objects'. - self deprecated: 'See SquotSystemSingletonMirror or SquotOpaqueValueMirror newDiffFrom:to:'. - "It makes no sense to compare trivial objects, since there are no differing editions of them." - ^ aDiffBuilder replacing: self with: otherContent \ No newline at end of file diff --git a/src/Squot.package/SquotPrimitiveValue.class/instance/squotMaterializeWith..st b/src/Squot.package/SquotPrimitiveValue.class/instance/squotMaterializeWith..st deleted file mode 100644 index 717d9e76f..000000000 --- a/src/Squot.package/SquotPrimitiveValue.class/instance/squotMaterializeWith..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-shadow -squotMaterializeWith: aMaterializer - ^ value \ No newline at end of file diff --git a/src/Squot.package/SquotPrimitiveValue.class/instance/squotMergeWith.basedOn..st b/src/Squot.package/SquotPrimitiveValue.class/instance/squotMergeWith.basedOn..st deleted file mode 100644 index de4d1aefb..000000000 --- a/src/Squot.package/SquotPrimitiveValue.class/instance/squotMergeWith.basedOn..st +++ /dev/null @@ -1,6 +0,0 @@ -merging -squotMergeWith: incomingPrimitiveValue basedOn: basePrimitiveValue - "There is no point in merging primitive objects. They are immutable." - self assert: incomingPrimitiveValue = self; - assert: basePrimitiveValue = self. - ^ SquotNoMerge of: self \ No newline at end of file diff --git a/src/Squot.package/SquotPrimitiveValue.class/instance/squotOutgoingReferences.st b/src/Squot.package/SquotPrimitiveValue.class/instance/squotOutgoingReferences.st deleted file mode 100644 index e06d791f3..000000000 --- a/src/Squot.package/SquotPrimitiveValue.class/instance/squotOutgoingReferences.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -squotOutgoingReferences - "I do not refer to other non-primitive objects." - ^ #() \ No newline at end of file diff --git a/src/Squot.package/SquotPrimitiveValue.class/instance/value..st b/src/Squot.package/SquotPrimitiveValue.class/instance/value..st deleted file mode 100644 index b7bae317d..000000000 --- a/src/Squot.package/SquotPrimitiveValue.class/instance/value..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -value: aPrimitiveObject - value := aPrimitiveObject \ No newline at end of file diff --git a/src/Squot.package/SquotPrimitiveValue.class/instance/value.st b/src/Squot.package/SquotPrimitiveValue.class/instance/value.st deleted file mode 100644 index ead3df2ca..000000000 --- a/src/Squot.package/SquotPrimitiveValue.class/instance/value.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -value - ^ value \ No newline at end of file diff --git a/src/Squot.package/SquotPrimitiveValue.class/methodProperties.json b/src/Squot.package/SquotPrimitiveValue.class/methodProperties.json deleted file mode 100644 index cc703e4b1..000000000 --- a/src/Squot.package/SquotPrimitiveValue.class/methodProperties.json +++ /dev/null @@ -1,23 +0,0 @@ -{ - "class" : { - "for:" : "jr 6/15/2017 16:55", - "squotMirror" : "jr 4/10/2021 12:37" }, - "instance" : { - "=" : "jr 6/17/2017 22:08", - "canHaveNameAssignedBySquot" : "jr 4/25/2020 15:42", - "diffClass" : "jr 7/15/2017 23:17", - "explorerContents" : "jr 12/30/2019 00:42", - "hasContentsInExplorer" : "jr 12/30/2019 00:47", - "hash" : "jr 6/17/2017 22:08", - "initializeFrom:with:" : "jr 1/11/2021 00:08", - "originalClass" : "jr 6/17/2017 22:15", - "printOn:" : "jr 6/16/2017 12:07", - "sameIn:withName:ifAbsent:" : "jr 8/31/2019 20:26", - "slots" : "jr 7/15/2017 23:08", - "squotDiffAgainst:" : "jr 9/23/2019 20:44", - "squotDiffAgainst:with:" : "jr 7/30/2021 19:52", - "squotMaterializeWith:" : "jr 6/15/2017 16:51", - "squotMergeWith:basedOn:" : "jr 9/7/2019 17:58", - "squotOutgoingReferences" : "jr 8/31/2019 20:36", - "value" : "jr 6/17/2017 21:43", - "value:" : "jr 6/15/2017 16:55" } } diff --git a/src/Squot.package/SquotPrimitiveValue.class/properties.json b/src/Squot.package/SquotPrimitiveValue.class/properties.json deleted file mode 100644 index 2bae5ea0c..000000000 --- a/src/Squot.package/SquotPrimitiveValue.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Shadows", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotDiffableShadow classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 18:33", - "instvars" : [ - "value" ], - "name" : "SquotPrimitiveValue", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotDiffableShadow", - "type" : "normal" } diff --git a/src/Squot.package/SquotProgress.class/README.md b/src/Squot.package/SquotProgress.class/README.md deleted file mode 100644 index 39867c22f..000000000 --- a/src/Squot.package/SquotProgress.class/README.md +++ /dev/null @@ -1,5 +0,0 @@ -I am the progress of some complex operation. The progress will be displayed on the current SquotProgressOutput. - -For usage examples, have a look at the comments of the method in the instance creation protocol of the class. - -Possible collaborators as SquotProgressOutput: SquotGUI, SquotNoProgressOutput. \ No newline at end of file diff --git a/src/Squot.package/SquotProgress.class/class/display.during..st b/src/Squot.package/SquotProgress.class/class/display.during..st deleted file mode 100644 index dc231a12c..000000000 --- a/src/Squot.package/SquotProgress.class/class/display.during..st +++ /dev/null @@ -1,21 +0,0 @@ -instance creation -display: aString during: aBlock - "SquotProgress display: 'Example: ' during: - [:progress | - (Delay forMilliseconds: 500) wait. - progress update: 0.1 text: 'just starting'. - (Delay forMilliseconds: 500) wait. - progress update: 0.5 text: nil. - (Delay forMilliseconds: 500) wait. - progress update: '1.0' text: 'done'. - (Delay forMilliseconds: 500) wait.]" - "SquotProgress display: 'Count to three: ' during: - [:progress | progress totalSteps: 3. - progress stepWithText: '1'. - (Delay forMilliseconds: 500) wait. - progress stepWithText: '2'. - (Delay forMilliseconds: 500) wait. - progress stepWithText: '3'. - (Delay forMilliseconds: 500) wait]" - ^ self new - display: aString during: aBlock \ No newline at end of file diff --git a/src/Squot.package/SquotProgress.class/class/display.for.do..st b/src/Squot.package/SquotProgress.class/class/display.for.do..st deleted file mode 100644 index 0553ff747..000000000 --- a/src/Squot.package/SquotProgress.class/class/display.for.do..st +++ /dev/null @@ -1,6 +0,0 @@ -instance creation -display: aStringOrBlock for: aCollection do: aBlock - "SquotProgress display: [:aClass | 'Processing ', aClass name] - for: (Smalltalk allClasses first: 20) do: [:aClass| (Delay forMilliseconds: 100) wait]." - ^ self new - display: aStringOrBlock for: aCollection do: aBlock \ No newline at end of file diff --git a/src/Squot.package/SquotProgress.class/class/displayStatus.during..st b/src/Squot.package/SquotProgress.class/class/displayStatus.during..st deleted file mode 100644 index c63de5e14..000000000 --- a/src/Squot.package/SquotProgress.class/class/displayStatus.during..st +++ /dev/null @@ -1,6 +0,0 @@ -instance creation -displayStatus: aString during: aBlock - "SquotProgress displayStatus: 'No progress bar' during: - [(Delay forMilliseconds: 1000) wait]" - ^ self new - displayStatus: aString during: aBlock \ No newline at end of file diff --git a/src/Squot.package/SquotProgress.class/instance/display.during..st b/src/Squot.package/SquotProgress.class/instance/display.during..st deleted file mode 100644 index 2dab875c6..000000000 --- a/src/Squot.package/SquotProgress.class/instance/display.during..st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -display: aString during: aBlock - ^ (self outputOr: [^ aBlock value: self]) - displayProgress: aString - during: [aBlock value: self] \ No newline at end of file diff --git a/src/Squot.package/SquotProgress.class/instance/display.for.do..st b/src/Squot.package/SquotProgress.class/instance/display.for.do..st deleted file mode 100644 index 192acee3c..000000000 --- a/src/Squot.package/SquotProgress.class/instance/display.for.do..st +++ /dev/null @@ -1,6 +0,0 @@ -initialize-release -display: aStringOrBlock for: aCollection do: aBlock - ^ (self outputOr: [^ aBlock value: self]) - displayProgress: aStringOrBlock - for: aCollection - do: aBlock \ No newline at end of file diff --git a/src/Squot.package/SquotProgress.class/instance/displayStatus.during..st b/src/Squot.package/SquotProgress.class/instance/displayStatus.during..st deleted file mode 100644 index 40978d5cf..000000000 --- a/src/Squot.package/SquotProgress.class/instance/displayStatus.during..st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -displayStatus: aString during: aBlock - ^ (self outputOr: [^ aBlock value]) - displayStatus: aString - during: aBlock \ No newline at end of file diff --git a/src/Squot.package/SquotProgress.class/instance/outputOr..st b/src/Squot.package/SquotProgress.class/instance/outputOr..st deleted file mode 100644 index f6a4f0d14..000000000 --- a/src/Squot.package/SquotProgress.class/instance/outputOr..st +++ /dev/null @@ -1,3 +0,0 @@ -private -outputOr: aBlock - ^ SquotProgressOutput value ifNil: [aBlock] \ No newline at end of file diff --git a/src/Squot.package/SquotProgress.class/instance/stepWithText..st b/src/Squot.package/SquotProgress.class/instance/stepWithText..st deleted file mode 100644 index 92f7c4a64..000000000 --- a/src/Squot.package/SquotProgress.class/instance/stepWithText..st +++ /dev/null @@ -1,5 +0,0 @@ -updating -stepWithText: aString - doneSteps ifNil: [doneSteps := 0]. - self update: doneSteps / totalSteps text: aString. - doneSteps := doneSteps + 1. \ No newline at end of file diff --git a/src/Squot.package/SquotProgress.class/instance/totalSteps..st b/src/Squot.package/SquotProgress.class/instance/totalSteps..st deleted file mode 100644 index 11f9b9647..000000000 --- a/src/Squot.package/SquotProgress.class/instance/totalSteps..st +++ /dev/null @@ -1,3 +0,0 @@ -updating -totalSteps: aNumber - totalSteps := aNumber. \ No newline at end of file diff --git a/src/Squot.package/SquotProgress.class/instance/update.text..st b/src/Squot.package/SquotProgress.class/instance/update.text..st deleted file mode 100644 index 084c0735b..000000000 --- a/src/Squot.package/SquotProgress.class/instance/update.text..st +++ /dev/null @@ -1,5 +0,0 @@ -updating -update: aNumber text: aString - (self outputOr: [^ self]) - updateProgress: aNumber - text: aString. \ No newline at end of file diff --git a/src/Squot.package/SquotProgress.class/methodProperties.json b/src/Squot.package/SquotProgress.class/methodProperties.json deleted file mode 100644 index 6b3b906e4..000000000 --- a/src/Squot.package/SquotProgress.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - "display:during:" : "jr 9/13/2020 21:57", - "display:for:do:" : "jr 9/22/2020 22:15", - "displayStatus:during:" : "jr 9/13/2020 21:59" }, - "instance" : { - "display:during:" : "jr 9/13/2020 21:50", - "display:for:do:" : "jr 9/13/2020 22:18", - "displayStatus:during:" : "jr 9/13/2020 21:58", - "outputOr:" : "jr 9/13/2020 21:48", - "stepWithText:" : "jr 9/13/2020 21:30", - "totalSteps:" : "jr 9/13/2020 18:53", - "update:text:" : "jr 9/13/2020 21:49" } } diff --git a/src/Squot.package/SquotProgress.class/properties.json b/src/Squot.package/SquotProgress.class/properties.json deleted file mode 100644 index 175cf01ba..000000000 --- a/src/Squot.package/SquotProgress.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-Internal", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 9/21/2020 23:30", - "instvars" : [ - "totalSteps", - "doneSteps" ], - "name" : "SquotProgress", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotProgressOutput.class/README.md b/src/Squot.package/SquotProgressOutput.class/README.md deleted file mode 100644 index dafd51259..000000000 --- a/src/Squot.package/SquotProgressOutput.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I hold the current output of progress information, to decouple SquotProgress from an actual output implementation (such as Morphic or UIManager). \ No newline at end of file diff --git a/src/Squot.package/SquotProgressOutput.class/class/default..st b/src/Squot.package/SquotProgressOutput.class/class/default..st deleted file mode 100644 index d00391fc9..000000000 --- a/src/Squot.package/SquotProgressOutput.class/class/default..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -default: anObject - "Set the output implemenation to use." - Default := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotProgressOutput.class/class/default.st b/src/Squot.package/SquotProgressOutput.class/class/default.st deleted file mode 100644 index 3fd6cb68d..000000000 --- a/src/Squot.package/SquotProgressOutput.class/class/default.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -default - ^ Default \ No newline at end of file diff --git a/src/Squot.package/SquotProgressOutput.class/methodProperties.json b/src/Squot.package/SquotProgressOutput.class/methodProperties.json deleted file mode 100644 index 7f28c4903..000000000 --- a/src/Squot.package/SquotProgressOutput.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - "default" : "jr 9/13/2020 21:38", - "default:" : "jr 9/13/2020 21:39" }, - "instance" : { - } } diff --git a/src/Squot.package/SquotProgressOutput.class/properties.json b/src/Squot.package/SquotProgressOutput.class/properties.json deleted file mode 100644 index c853c7ca0..000000000 --- a/src/Squot.package/SquotProgressOutput.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Internal", - "classinstvars" : [ - ], - "classvars" : [ - "Default" ], - "commentStamp" : "jr 9/13/2020 21:51", - "instvars" : [ - ], - "name" : "SquotProgressOutput", - "pools" : [ - ], - "super" : "DynamicVariable", - "type" : "normal" } diff --git a/src/Squot.package/SquotReference.class/README.md b/src/Squot.package/SquotReference.class/README.md deleted file mode 100644 index cf1e8b3ed..000000000 --- a/src/Squot.package/SquotReference.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I mirror a reference from one class of objects to another object. \ No newline at end of file diff --git a/src/Squot.package/SquotReference.class/instance/asCapturedReference.st b/src/Squot.package/SquotReference.class/instance/asCapturedReference.st deleted file mode 100644 index 8e8dea605..000000000 --- a/src/Squot.package/SquotReference.class/instance/asCapturedReference.st +++ /dev/null @@ -1,3 +0,0 @@ -capturing -asCapturedReference - ^ self \ No newline at end of file diff --git a/src/Squot.package/SquotReference.class/instance/asDiffTreeStringOrText.st b/src/Squot.package/SquotReference.class/instance/asDiffTreeStringOrText.st deleted file mode 100644 index 277bdac09..000000000 --- a/src/Squot.package/SquotReference.class/instance/asDiffTreeStringOrText.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -asDiffTreeStringOrText - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotReference.class/instance/asMaterializedReference.st b/src/Squot.package/SquotReference.class/instance/asMaterializedReference.st deleted file mode 100644 index dd5da9ba5..000000000 --- a/src/Squot.package/SquotReference.class/instance/asMaterializedReference.st +++ /dev/null @@ -1,3 +0,0 @@ -materializing -asMaterializedReference - ^ self \ No newline at end of file diff --git a/src/Squot.package/SquotReference.class/instance/isCollectionElement.st b/src/Squot.package/SquotReference.class/instance/isCollectionElement.st deleted file mode 100644 index 38bd95843..000000000 --- a/src/Squot.package/SquotReference.class/instance/isCollectionElement.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isCollectionElement - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotReference.class/instance/isHashRelevant.st b/src/Squot.package/SquotReference.class/instance/isHashRelevant.st deleted file mode 100644 index 2c300ce7d..000000000 --- a/src/Squot.package/SquotReference.class/instance/isHashRelevant.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -isHashRelevant - "References can indicate that the hash of their values is significant for materialization. For example, the elements of Sets must have their correct hash values already when they are added to the Set." - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotReference.class/instance/isInstanceVariable.st b/src/Squot.package/SquotReference.class/instance/isInstanceVariable.st deleted file mode 100644 index e54fba6e6..000000000 --- a/src/Squot.package/SquotReference.class/instance/isInstanceVariable.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isInstanceVariable - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotReference.class/instance/newNameFragment.st b/src/Squot.package/SquotReference.class/instance/newNameFragment.st deleted file mode 100644 index 57581ce71..000000000 --- a/src/Squot.package/SquotReference.class/instance/newNameFragment.st +++ /dev/null @@ -1,4 +0,0 @@ -capturing -newNameFragment - "Answer a String to put into the non-identifying part of an object name." - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotReference.class/instance/reflect.in..st b/src/Squot.package/SquotReference.class/instance/reflect.in..st deleted file mode 100644 index e262d6d8e..000000000 --- a/src/Squot.package/SquotReference.class/instance/reflect.in..st +++ /dev/null @@ -1,4 +0,0 @@ -reflection -reflect: anObject in: aMirror - "Answer the value of this reference in anObject." - self subclassResponsibility. \ No newline at end of file diff --git a/src/Squot.package/SquotReference.class/instance/reflect.in.put..st b/src/Squot.package/SquotReference.class/instance/reflect.in.put..st deleted file mode 100644 index 8df4fec5d..000000000 --- a/src/Squot.package/SquotReference.class/instance/reflect.in.put..st +++ /dev/null @@ -1,4 +0,0 @@ -reflection -reflect: anObject in: aMirror put: newValue - "Replace the value of this reference in anObject." - self subclassResponsibility. \ No newline at end of file diff --git a/src/Squot.package/SquotReference.class/methodProperties.json b/src/Squot.package/SquotReference.class/methodProperties.json deleted file mode 100644 index 73ee83f36..000000000 --- a/src/Squot.package/SquotReference.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "asCapturedReference" : "jr 4/3/2021 21:42", - "asDiffTreeStringOrText" : "jr 1/16/2022 21:29", - "asMaterializedReference" : "jr 4/10/2021 02:26", - "isCollectionElement" : "jr 4/17/2021 18:07", - "isHashRelevant" : "jr 4/17/2021 17:28", - "isInstanceVariable" : "jr 4/17/2021 17:54", - "newNameFragment" : "jr 1/17/2021 22:42", - "reflect:in:" : "jr 12/15/2020 23:39", - "reflect:in:put:" : "jr 12/16/2020 00:06" } } diff --git a/src/Squot.package/SquotReference.class/properties.json b/src/Squot.package/SquotReference.class/properties.json deleted file mode 100644 index db162e0fb..000000000 --- a/src/Squot.package/SquotReference.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 12/15/2020 23:10", - "instvars" : [ - ], - "name" : "SquotReference", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotReferenceAddition.class/README.md b/src/Squot.package/SquotReferenceAddition.class/README.md deleted file mode 100644 index 533016464..000000000 --- a/src/Squot.package/SquotReferenceAddition.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I tell how a new reference was added to an object. \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceAddition.class/class/to.reference.target.rightOwner..st b/src/Squot.package/SquotReferenceAddition.class/class/to.reference.target.rightOwner..st deleted file mode 100644 index 0c6e86587..000000000 --- a/src/Squot.package/SquotReferenceAddition.class/class/to.reference.target.rightOwner..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -to: leftObject reference: aReference target: targetObject rightOwner: rightObject - ^ self new - setReference: aReference leftOwner: leftObject rightOwner: rightObject target: targetObject; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceAddition.class/instance/asSlotDiff.st b/src/Squot.package/SquotReferenceAddition.class/instance/asSlotDiff.st deleted file mode 100644 index 3dc5ac425..000000000 --- a/src/Squot.package/SquotReferenceAddition.class/instance/asSlotDiff.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -asSlotDiff - ^ SquotSlotAddition key: reference asSlotDiffKey newSlot: (reference asSlotWithValue: target) \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceAddition.class/instance/printOn..st b/src/Squot.package/SquotReferenceAddition.class/instance/printOn..st deleted file mode 100644 index 3e983e657..000000000 --- a/src/Squot.package/SquotReferenceAddition.class/instance/printOn..st +++ /dev/null @@ -1,5 +0,0 @@ -printing -printOn: aStream - aStream - nextPutAll: 'add '; - print: reference. \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceAddition.class/instance/rightTarget.st b/src/Squot.package/SquotReferenceAddition.class/instance/rightTarget.st deleted file mode 100644 index 4366eefd9..000000000 --- a/src/Squot.package/SquotReferenceAddition.class/instance/rightTarget.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -rightTarget - "Not called #target for polymorphy with SquotDifferentReferenceTarget" - ^ target \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceAddition.class/instance/setReference.leftOwner.rightOwner.target..st b/src/Squot.package/SquotReferenceAddition.class/instance/setReference.leftOwner.rightOwner.target..st deleted file mode 100644 index 885fd2413..000000000 --- a/src/Squot.package/SquotReferenceAddition.class/instance/setReference.leftOwner.rightOwner.target..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -setReference: aReference leftOwner: leftObject rightOwner: rightObject target: targetObject - super setReference: aReference leftOwner: leftObject rightOwner: rightObject. - target := targetObject. \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceAddition.class/instance/squotReflectOn.in..st b/src/Squot.package/SquotReferenceAddition.class/instance/squotReflectOn.in..st deleted file mode 100644 index 28dba526c..000000000 --- a/src/Squot.package/SquotReferenceAddition.class/instance/squotReflectOn.in..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -squotReflectOn: anObject in: aMirror - ^ aMirror reflect: reference of: anObject put: target \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceAddition.class/instance/squotReflectOn.in.withValue..st b/src/Squot.package/SquotReferenceAddition.class/instance/squotReflectOn.in.withValue..st deleted file mode 100644 index c0de2bf54..000000000 --- a/src/Squot.package/SquotReferenceAddition.class/instance/squotReflectOn.in.withValue..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -squotReflectOn: ownerObject in: aMirror withValue: targetObject - ^ aMirror reflect: reference of: ownerObject put: targetObject \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceAddition.class/instance/squotValueShadowFrom.reflectedIn..st b/src/Squot.package/SquotReferenceAddition.class/instance/squotValueShadowFrom.reflectedIn..st deleted file mode 100644 index 0c30ca82c..000000000 --- a/src/Squot.package/SquotReferenceAddition.class/instance/squotValueShadowFrom.reflectedIn..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -squotValueShadowFrom: aShadow reflectedIn: aMirror - ^ target \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceAddition.class/methodProperties.json b/src/Squot.package/SquotReferenceAddition.class/methodProperties.json deleted file mode 100644 index 26b448627..000000000 --- a/src/Squot.package/SquotReferenceAddition.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - "to:reference:target:rightOwner:" : "jr 12/24/2020 01:30" }, - "instance" : { - "asSlotDiff" : "jr 7/18/2021 20:21", - "printOn:" : "jr 6/16/2021 21:20", - "rightTarget" : "jr 1/16/2022 21:27", - "setReference:leftOwner:rightOwner:target:" : "jr 12/24/2020 01:29", - "squotReflectOn:in:" : "jr 12/24/2020 01:37", - "squotReflectOn:in:withValue:" : "jr 6/20/2021 19:16", - "squotValueShadowFrom:reflectedIn:" : "jr 7/18/2021 00:36" } } diff --git a/src/Squot.package/SquotReferenceAddition.class/properties.json b/src/Squot.package/SquotReferenceAddition.class/properties.json deleted file mode 100644 index 5608af450..000000000 --- a/src/Squot.package/SquotReferenceAddition.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Diffs", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotAddition classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 12/24/2020 00:59", - "instvars" : [ - "target" ], - "name" : "SquotReferenceAddition", - "pools" : [ - ], - "super" : "SquotReferenceDiff", - "traitcomposition" : "TSquotAddition", - "type" : "normal" } diff --git a/src/Squot.package/SquotReferenceAdditionConflict.class/README.md b/src/Squot.package/SquotReferenceAdditionConflict.class/README.md deleted file mode 100644 index c335646b9..000000000 --- a/src/Squot.package/SquotReferenceAdditionConflict.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am a conflict of two additions of the same reference to an object, but with different targets. \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceAdditionConflict.class/class/reference.working.owner.incoming.owner..st b/src/Squot.package/SquotReferenceAdditionConflict.class/class/reference.working.owner.incoming.owner..st deleted file mode 100644 index 5c2f72a38..000000000 --- a/src/Squot.package/SquotReferenceAdditionConflict.class/class/reference.working.owner.incoming.owner..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -reference: aReference working: workingAddedObject owner: workingOwnerObject incoming: incomingAddedObject owner: incomingOwnerObject - ^ self new - setKey: aReference working: workingAddedObject owner: workingOwnerObject incoming: incomingAddedObject owner: incomingOwnerObject; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceAdditionConflict.class/instance/chooseIncoming.st b/src/Squot.package/SquotReferenceAdditionConflict.class/instance/chooseIncoming.st deleted file mode 100644 index 2cde5edf1..000000000 --- a/src/Squot.package/SquotReferenceAdditionConflict.class/instance/chooseIncoming.st +++ /dev/null @@ -1,3 +0,0 @@ -merging -chooseIncoming - resolution := SquotReferenceTargetExchange reference: key leftOwner: workingOwner target: working rightOwner: incomingOwner target: incoming. \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceAdditionConflict.class/instance/initializeSquotDiffNodes.with..st b/src/Squot.package/SquotReferenceAdditionConflict.class/instance/initializeSquotDiffNodes.with..st deleted file mode 100644 index 3e13697af..000000000 --- a/src/Squot.package/SquotReferenceAdditionConflict.class/instance/initializeSquotDiffNodes.with..st +++ /dev/null @@ -1,9 +0,0 @@ -*Squot-Tools -initializeSquotDiffNodes: aCollection with: aDiffNodesBuilder - aCollection do: [:each | each - setTitle: 'conflicting addition' - content: self - children: Array new; - includeBlock: []; - excludeBlock: []; - resetBlock: []]. \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceAdditionConflict.class/instance/newSquotDiffNodes.st b/src/Squot.package/SquotReferenceAdditionConflict.class/instance/newSquotDiffNodes.st deleted file mode 100644 index 65424b6c1..000000000 --- a/src/Squot.package/SquotReferenceAdditionConflict.class/instance/newSquotDiffNodes.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -newSquotDiffNodes - ^ Array with: SquotMergeDiffNode new \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceAdditionConflict.class/instance/setKey.working.owner.incoming.owner..st b/src/Squot.package/SquotReferenceAdditionConflict.class/instance/setKey.working.owner.incoming.owner..st deleted file mode 100644 index 82e86471b..000000000 --- a/src/Squot.package/SquotReferenceAdditionConflict.class/instance/setKey.working.owner.incoming.owner..st +++ /dev/null @@ -1,6 +0,0 @@ -initialize-release -setKey: aReference working: workingAddedObject owner: workingOwnerObject incoming: incomingAddedObject owner: incomingOwnerObject - super setKey: aReference base: nil working: workingAddedObject incoming: incomingAddedObject. - self resetChoice. - workingOwner := workingOwnerObject. - incomingOwner := incomingOwnerObject. \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceAdditionConflict.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotReferenceAdditionConflict.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index d62ed53d1..000000000 --- a/src/Squot.package/SquotReferenceAdditionConflict.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Tools -squotChangeAsStringOrText - ^ 'Distinct objects', String cr, - (TextDiffBuilder buildDisplayPatchFrom: working printString to: incoming printString) \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceAdditionConflict.class/methodProperties.json b/src/Squot.package/SquotReferenceAdditionConflict.class/methodProperties.json deleted file mode 100644 index 837b7ed38..000000000 --- a/src/Squot.package/SquotReferenceAdditionConflict.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - "reference:working:owner:incoming:owner:" : "jr 1/9/2021 19:42" }, - "instance" : { - "chooseIncoming" : "jr 1/9/2021 19:47", - "initializeSquotDiffNodes:with:" : "jr 11/1/2020 21:42", - "newSquotDiffNodes" : "jr 3/17/2018 14:35", - "setKey:working:owner:incoming:owner:" : "jr 1/9/2021 19:41", - "squotChangeAsStringOrText" : "jr 11/1/2020 18:50" } } diff --git a/src/Squot.package/SquotReferenceAdditionConflict.class/properties.json b/src/Squot.package/SquotReferenceAdditionConflict.class/properties.json deleted file mode 100644 index fb56700e3..000000000 --- a/src/Squot.package/SquotReferenceAdditionConflict.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-Merging", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 12/24/2020 01:59", - "instvars" : [ - "workingOwner", - "incomingOwner" ], - "name" : "SquotReferenceAdditionConflict", - "pools" : [ - ], - "super" : "SquotConflict", - "type" : "normal" } diff --git a/src/Squot.package/SquotReferenceCopy.class/README.md b/src/Squot.package/SquotReferenceCopy.class/README.md deleted file mode 100644 index 4923bd155..000000000 --- a/src/Squot.package/SquotReferenceCopy.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I tell how an existing reference was copied to another reference. This is a stub as of now. \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceCopy.class/methodProperties.json b/src/Squot.package/SquotReferenceCopy.class/methodProperties.json deleted file mode 100644 index 0e4a66223..000000000 --- a/src/Squot.package/SquotReferenceCopy.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - } } diff --git a/src/Squot.package/SquotReferenceCopy.class/properties.json b/src/Squot.package/SquotReferenceCopy.class/properties.json deleted file mode 100644 index f0e970587..000000000 --- a/src/Squot.package/SquotReferenceCopy.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Diffs", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotAddition classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 12/24/2020 00:59", - "instvars" : [ - "newReference" ], - "name" : "SquotReferenceCopy", - "pools" : [ - ], - "super" : "SquotReferenceDiff", - "traitcomposition" : "TSquotAddition", - "type" : "normal" } diff --git a/src/Squot.package/SquotReferenceDiff.class/README.md b/src/Squot.package/SquotReferenceDiff.class/README.md deleted file mode 100644 index f4b6ca966..000000000 --- a/src/Squot.package/SquotReferenceDiff.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I describe how one reference of an object is different in another version of the object. \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceDiff.class/instance/asSlotDiff.st b/src/Squot.package/SquotReferenceDiff.class/instance/asSlotDiff.st deleted file mode 100644 index d52c7d358..000000000 --- a/src/Squot.package/SquotReferenceDiff.class/instance/asSlotDiff.st +++ /dev/null @@ -1,4 +0,0 @@ -converting -asSlotDiff - "Convert to SquotSlotDiff for compatbility with SquotObjectDiff" - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceDiff.class/instance/isAddition.st b/src/Squot.package/SquotReferenceDiff.class/instance/isAddition.st deleted file mode 100644 index bed7b3f47..000000000 --- a/src/Squot.package/SquotReferenceDiff.class/instance/isAddition.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isAddition - self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceDiff.class/instance/isModification.st b/src/Squot.package/SquotReferenceDiff.class/instance/isModification.st deleted file mode 100644 index 6a671420a..000000000 --- a/src/Squot.package/SquotReferenceDiff.class/instance/isModification.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isModification - self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceDiff.class/instance/isRemoval.st b/src/Squot.package/SquotReferenceDiff.class/instance/isRemoval.st deleted file mode 100644 index 2753d4b98..000000000 --- a/src/Squot.package/SquotReferenceDiff.class/instance/isRemoval.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isRemoval - self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceDiff.class/instance/reference.st b/src/Squot.package/SquotReferenceDiff.class/instance/reference.st deleted file mode 100644 index 25397143f..000000000 --- a/src/Squot.package/SquotReferenceDiff.class/instance/reference.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -reference - ^ reference \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceDiff.class/instance/setReference.leftOwner.rightOwner..st b/src/Squot.package/SquotReferenceDiff.class/instance/setReference.leftOwner.rightOwner..st deleted file mode 100644 index 6b2cb42b4..000000000 --- a/src/Squot.package/SquotReferenceDiff.class/instance/setReference.leftOwner.rightOwner..st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -setReference: aReference leftOwner: leftObject rightOwner: rightObject - reference := aReference. - leftOwner := leftObject. - rightOwner := rightObject. \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceDiff.class/instance/squotReflectOn.in..st b/src/Squot.package/SquotReferenceDiff.class/instance/squotReflectOn.in..st deleted file mode 100644 index eb8d84f51..000000000 --- a/src/Squot.package/SquotReferenceDiff.class/instance/squotReflectOn.in..st +++ /dev/null @@ -1,4 +0,0 @@ -patching -squotReflectOn: anObject in: aMirror - "Apply the difference to anObject via its mirror." - self subclassResponsibility. \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceDiff.class/instance/squotReflectOn.in.withValue..st b/src/Squot.package/SquotReferenceDiff.class/instance/squotReflectOn.in.withValue..st deleted file mode 100644 index 3be72e43a..000000000 --- a/src/Squot.package/SquotReferenceDiff.class/instance/squotReflectOn.in.withValue..st +++ /dev/null @@ -1,4 +0,0 @@ -patching -squotReflectOn: ownerObject in: aMirror withValue: targetObject - "Apply the difference to anObject via its mirror, using targetObject as the new value." - self subclassResponsibility. \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceDiff.class/instance/squotValueShadowFrom.reflectedIn..st b/src/Squot.package/SquotReferenceDiff.class/instance/squotValueShadowFrom.reflectedIn..st deleted file mode 100644 index 09cda5462..000000000 --- a/src/Squot.package/SquotReferenceDiff.class/instance/squotValueShadowFrom.reflectedIn..st +++ /dev/null @@ -1,5 +0,0 @@ -patching -squotValueShadowFrom: anObject reflectedIn: aMirror - "Answer the new value for the reference. - If I do not have a new value, but only an old value for the reference, answer that instead." - self subclassResponsibility. \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceDiff.class/methodProperties.json b/src/Squot.package/SquotReferenceDiff.class/methodProperties.json deleted file mode 100644 index bf162d870..000000000 --- a/src/Squot.package/SquotReferenceDiff.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "asSlotDiff" : "jr 7/18/2021 20:17", - "isAddition" : "jr 6/12/2021 19:01", - "isModification" : "jr 6/12/2021 19:01", - "isRemoval" : "jr 6/12/2021 19:01", - "reference" : "jr 6/13/2021 21:51", - "setReference:leftOwner:rightOwner:" : "jr 12/24/2020 01:01", - "squotReflectOn:in:" : "jr 12/24/2020 01:26", - "squotReflectOn:in:withValue:" : "jr 6/20/2021 19:16", - "squotValueShadowFrom:reflectedIn:" : "jr 7/18/2021 00:36" } } diff --git a/src/Squot.package/SquotReferenceDiff.class/properties.json b/src/Squot.package/SquotReferenceDiff.class/properties.json deleted file mode 100644 index 6de50b106..000000000 --- a/src/Squot.package/SquotReferenceDiff.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Diffs", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 12/24/2020 00:53", - "instvars" : [ - "reference", - "leftOwner", - "rightOwner" ], - "name" : "SquotReferenceDiff", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotReferenceRemoval.class/README.md b/src/Squot.package/SquotReferenceRemoval.class/README.md deleted file mode 100644 index 54b411c98..000000000 --- a/src/Squot.package/SquotReferenceRemoval.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I tell how a reference was removed from an object. \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceRemoval.class/class/of.from.reference.rightObject..st b/src/Squot.package/SquotReferenceRemoval.class/class/of.from.reference.rightObject..st deleted file mode 100644 index 82725c522..000000000 --- a/src/Squot.package/SquotReferenceRemoval.class/class/of.from.reference.rightObject..st +++ /dev/null @@ -1,6 +0,0 @@ -instance creation -of: anObject from: leftObject reference: aReference rightObject: rightObject - ^ self new - setOldTarget: anObject reference: aReference leftOwner: leftObject rightObject: rightObject; - yourself - "rightObject is not called rightOwner because the object does not own/contain the target object anymore." \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceRemoval.class/instance/asSlotDiff.st b/src/Squot.package/SquotReferenceRemoval.class/instance/asSlotDiff.st deleted file mode 100644 index 4908c8433..000000000 --- a/src/Squot.package/SquotReferenceRemoval.class/instance/asSlotDiff.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -asSlotDiff - ^ SquotSlotRemoval key: reference asSlotDiffKey removedSlot: (reference asSlotWithValue: oldTarget) \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceRemoval.class/instance/printOn..st b/src/Squot.package/SquotReferenceRemoval.class/instance/printOn..st deleted file mode 100644 index 33eedb8ae..000000000 --- a/src/Squot.package/SquotReferenceRemoval.class/instance/printOn..st +++ /dev/null @@ -1,5 +0,0 @@ -printing -printOn: aStream - aStream - nextPutAll: 'remove '; - print: reference. \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceRemoval.class/instance/setOldTarget.reference.leftOwner.rightObject..st b/src/Squot.package/SquotReferenceRemoval.class/instance/setOldTarget.reference.leftOwner.rightObject..st deleted file mode 100644 index a830084b4..000000000 --- a/src/Squot.package/SquotReferenceRemoval.class/instance/setOldTarget.reference.leftOwner.rightObject..st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -setOldTarget: anObject reference: aReference leftOwner: leftObject rightObject: rightObject - super setReference: aReference leftOwner: leftObject rightOwner: rightObject. - "rightObject is not called rightOwner because the object does not own/contain the target object anymore." - oldTarget := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceRemoval.class/instance/setReference.leftOwner.rightObject..st b/src/Squot.package/SquotReferenceRemoval.class/instance/setReference.leftOwner.rightObject..st deleted file mode 100644 index 1927f063e..000000000 --- a/src/Squot.package/SquotReferenceRemoval.class/instance/setReference.leftOwner.rightObject..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -setReference: aReference leftOwner: leftObject rightObject: rightObject - super setReference: aReference leftOwner: leftObject rightOwner: rightObject. - "rightObject is not called rightOwner because the object does not own/contain the target object anymore." \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceRemoval.class/instance/squotReflectOn.in..st b/src/Squot.package/SquotReferenceRemoval.class/instance/squotReflectOn.in..st deleted file mode 100644 index a61360650..000000000 --- a/src/Squot.package/SquotReferenceRemoval.class/instance/squotReflectOn.in..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -squotReflectOn: anObject in: aMirror - ^ aMirror reflect: reference removeFrom: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceRemoval.class/instance/squotReflectOn.in.withValue..st b/src/Squot.package/SquotReferenceRemoval.class/instance/squotReflectOn.in.withValue..st deleted file mode 100644 index cf7c49e88..000000000 --- a/src/Squot.package/SquotReferenceRemoval.class/instance/squotReflectOn.in.withValue..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -squotReflectOn: ownerObject in: aMirror withValue: targetObject - ^ aMirror reflect: (reference copyWithTarget: targetObject) removeFrom: ownerObject \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceRemoval.class/instance/squotValueShadowFrom.reflectedIn..st b/src/Squot.package/SquotReferenceRemoval.class/instance/squotValueShadowFrom.reflectedIn..st deleted file mode 100644 index c225d27fd..000000000 --- a/src/Squot.package/SquotReferenceRemoval.class/instance/squotValueShadowFrom.reflectedIn..st +++ /dev/null @@ -1,4 +0,0 @@ -patching -squotValueShadowFrom: aShadow reflectedIn: aMirror - "I have only an old value." - ^ reference reflect: aShadow in: aMirror \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceRemoval.class/methodProperties.json b/src/Squot.package/SquotReferenceRemoval.class/methodProperties.json deleted file mode 100644 index 8c4da4d96..000000000 --- a/src/Squot.package/SquotReferenceRemoval.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - "of:from:reference:rightObject:" : "jr 7/18/2021 20:25" }, - "instance" : { - "asSlotDiff" : "jr 7/18/2021 20:26", - "printOn:" : "jr 6/16/2021 21:19", - "setOldTarget:reference:leftOwner:rightObject:" : "jr 7/18/2021 20:25", - "setReference:leftOwner:rightObject:" : "jr 6/20/2021 21:56", - "squotReflectOn:in:" : "jr 12/24/2020 01:33", - "squotReflectOn:in:withValue:" : "jr 6/20/2021 21:36", - "squotValueShadowFrom:reflectedIn:" : "jr 7/18/2021 00:36" } } diff --git a/src/Squot.package/SquotReferenceRemoval.class/properties.json b/src/Squot.package/SquotReferenceRemoval.class/properties.json deleted file mode 100644 index 8607914ca..000000000 --- a/src/Squot.package/SquotReferenceRemoval.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Diffs", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotRemoval classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 12/24/2020 00:59", - "instvars" : [ - "oldTarget" ], - "name" : "SquotReferenceRemoval", - "pools" : [ - ], - "super" : "SquotReferenceDiff", - "traitcomposition" : "TSquotRemoval", - "type" : "normal" } diff --git a/src/Squot.package/SquotReferenceTargetExchange.class/README.md b/src/Squot.package/SquotReferenceTargetExchange.class/README.md deleted file mode 100644 index 03cba7061..000000000 --- a/src/Squot.package/SquotReferenceTargetExchange.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I tell how the target of a reference was exchanged with another target. \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceTargetExchange.class/instance/asSlotDiff.st b/src/Squot.package/SquotReferenceTargetExchange.class/instance/asSlotDiff.st deleted file mode 100644 index a376f601a..000000000 --- a/src/Squot.package/SquotReferenceTargetExchange.class/instance/asSlotDiff.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -asSlotDiff - ^ SquotSlotReassignment key: reference asSlotDiffKey leftShadow: leftTarget rightShadow: rightTarget \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceTargetExchange.class/instance/printOn..st b/src/Squot.package/SquotReferenceTargetExchange.class/instance/printOn..st deleted file mode 100644 index 9a3de85c9..000000000 --- a/src/Squot.package/SquotReferenceTargetExchange.class/instance/printOn..st +++ /dev/null @@ -1,5 +0,0 @@ -printing -printOn: aStream - aStream - nextPutAll: 'reassign '; - print: reference. \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceTargetExchange.class/instance/squotHasChanges.st b/src/Squot.package/SquotReferenceTargetExchange.class/instance/squotHasChanges.st deleted file mode 100644 index 93c0c8a3d..000000000 --- a/src/Squot.package/SquotReferenceTargetExchange.class/instance/squotHasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -squotHasChanges - ^ leftTarget ~= rightTarget \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceTargetExchange.class/instance/squotReflectOn.in..st b/src/Squot.package/SquotReferenceTargetExchange.class/instance/squotReflectOn.in..st deleted file mode 100644 index 7a63a9c09..000000000 --- a/src/Squot.package/SquotReferenceTargetExchange.class/instance/squotReflectOn.in..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -squotReflectOn: anObject in: aMirror - ^ aMirror reflect: reference of: anObject put: rightTarget \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceTargetExchange.class/instance/squotReflectOn.in.withValue..st b/src/Squot.package/SquotReferenceTargetExchange.class/instance/squotReflectOn.in.withValue..st deleted file mode 100644 index c0de2bf54..000000000 --- a/src/Squot.package/SquotReferenceTargetExchange.class/instance/squotReflectOn.in.withValue..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -squotReflectOn: ownerObject in: aMirror withValue: targetObject - ^ aMirror reflect: reference of: ownerObject put: targetObject \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceTargetExchange.class/methodProperties.json b/src/Squot.package/SquotReferenceTargetExchange.class/methodProperties.json deleted file mode 100644 index fdb071e76..000000000 --- a/src/Squot.package/SquotReferenceTargetExchange.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "asSlotDiff" : "jr 7/18/2021 20:18", - "printOn:" : "jr 6/16/2021 21:20", - "squotHasChanges" : "jr 6/29/2022 00:03", - "squotReflectOn:in:" : "jr 12/24/2020 01:27", - "squotReflectOn:in:withValue:" : "jr 6/20/2021 19:17" } } diff --git a/src/Squot.package/SquotReferenceTargetExchange.class/properties.json b/src/Squot.package/SquotReferenceTargetExchange.class/properties.json deleted file mode 100644 index 71322e8da..000000000 --- a/src/Squot.package/SquotReferenceTargetExchange.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Diffs", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 12/24/2020 00:59", - "instvars" : [ - ], - "name" : "SquotReferenceTargetExchange", - "pools" : [ - ], - "super" : "SquotDifferentReferenceTarget", - "type" : "normal" } diff --git a/src/Squot.package/SquotReferenceTransformation.class/README.md b/src/Squot.package/SquotReferenceTransformation.class/README.md deleted file mode 100644 index c8485b475..000000000 --- a/src/Squot.package/SquotReferenceTransformation.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I tell how an existing reference was transformed into a different reference (e. g. a rename or move). This is a stub for now. \ No newline at end of file diff --git a/src/Squot.package/SquotReferenceTransformation.class/methodProperties.json b/src/Squot.package/SquotReferenceTransformation.class/methodProperties.json deleted file mode 100644 index 0e4a66223..000000000 --- a/src/Squot.package/SquotReferenceTransformation.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - } } diff --git a/src/Squot.package/SquotReferenceTransformation.class/properties.json b/src/Squot.package/SquotReferenceTransformation.class/properties.json deleted file mode 100644 index 9bd8fa49a..000000000 --- a/src/Squot.package/SquotReferenceTransformation.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Diffs", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotModification classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 12/24/2020 01:00", - "instvars" : [ - "newReference" ], - "name" : "SquotReferenceTransformation", - "pools" : [ - ], - "super" : "SquotReferenceDiff", - "traitcomposition" : "TSquotModification", - "type" : "normal" } diff --git a/src/Squot.package/SquotRevertOperation.class/README.md b/src/Squot.package/SquotRevertOperation.class/README.md deleted file mode 100644 index 6859d1a89..000000000 --- a/src/Squot.package/SquotRevertOperation.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I coordinate a revert of an ancestor version of the working copy. A revert undoes the changes introduced by another version relative to its (or one of its) parents. This creates a new version on the current historian. Therefore a revert is composed of a merge and a save operation. It is very similar to a cherry-pick, the main difference being that the base version and the incoming version of the merge are swapped. \ No newline at end of file diff --git a/src/Squot.package/SquotRevertOperation.class/instance/applyMerge.st b/src/Squot.package/SquotRevertOperation.class/instance/applyMerge.st deleted file mode 100644 index b06e16664..000000000 --- a/src/Squot.package/SquotRevertOperation.class/instance/applyMerge.st +++ /dev/null @@ -1,7 +0,0 @@ -applying -applyMerge - "Execute the merge and answer the applied patch." - ^ loadedPatch := - merge - applyToWorkingCopy; - appliedPatch \ No newline at end of file diff --git a/src/Squot.package/SquotRevertOperation.class/instance/applyToWorkingCopy.st b/src/Squot.package/SquotRevertOperation.class/instance/applyToWorkingCopy.st deleted file mode 100644 index db04fc814..000000000 --- a/src/Squot.package/SquotRevertOperation.class/instance/applyToWorkingCopy.st +++ /dev/null @@ -1,10 +0,0 @@ -applying -applyToWorkingCopy - "Execute the cherry pick." - self withUnitOfWork: - [self validate. - self workingCopy withCurrentSnapshot: - [self - prepareMerge; - applyMerge]. - self save]. \ No newline at end of file diff --git a/src/Squot.package/SquotRevertOperation.class/instance/defaultMessage.st b/src/Squot.package/SquotRevertOperation.class/instance/defaultMessage.st deleted file mode 100644 index a9994d501..000000000 --- a/src/Squot.package/SquotRevertOperation.class/instance/defaultMessage.st +++ /dev/null @@ -1,7 +0,0 @@ -accessing -defaultMessage - ^ 'Revert "{1}" - -This reverts {2}' format: - {revertedVersion message withSqueakLineEndings copyUpTo: Character cr. - revertedVersion} \ No newline at end of file diff --git a/src/Squot.package/SquotRevertOperation.class/instance/loadedPatch..st b/src/Squot.package/SquotRevertOperation.class/instance/loadedPatch..st deleted file mode 100644 index b44401b20..000000000 --- a/src/Squot.package/SquotRevertOperation.class/instance/loadedPatch..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -loadedPatch: anObject - - loadedPatch := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotRevertOperation.class/instance/loadedPatch.st b/src/Squot.package/SquotRevertOperation.class/instance/loadedPatch.st deleted file mode 100644 index 4cd5671cf..000000000 --- a/src/Squot.package/SquotRevertOperation.class/instance/loadedPatch.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -loadedPatch - - ^ loadedPatch \ No newline at end of file diff --git a/src/Squot.package/SquotRevertOperation.class/instance/merge..st b/src/Squot.package/SquotRevertOperation.class/instance/merge..st deleted file mode 100644 index b1897417d..000000000 --- a/src/Squot.package/SquotRevertOperation.class/instance/merge..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -merge: anObject - - merge := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotRevertOperation.class/instance/merge.st b/src/Squot.package/SquotRevertOperation.class/instance/merge.st deleted file mode 100644 index 067f5ed7d..000000000 --- a/src/Squot.package/SquotRevertOperation.class/instance/merge.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -merge - - ^ merge \ No newline at end of file diff --git a/src/Squot.package/SquotRevertOperation.class/instance/message..st b/src/Squot.package/SquotRevertOperation.class/instance/message..st deleted file mode 100644 index ff9946f3c..000000000 --- a/src/Squot.package/SquotRevertOperation.class/instance/message..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -message: aString - message := aString. - save ifNotNil: [save message: aString]. \ No newline at end of file diff --git a/src/Squot.package/SquotRevertOperation.class/instance/prepareMerge.st b/src/Squot.package/SquotRevertOperation.class/instance/prepareMerge.st deleted file mode 100644 index 6088c546c..000000000 --- a/src/Squot.package/SquotRevertOperation.class/instance/prepareMerge.st +++ /dev/null @@ -1,15 +0,0 @@ -applying -prepareMerge - "Compute the merge and answer it (not the merge operation)." - ^ self withUnitOfWorkActive: - [self validateAncestry. - (merge := self privateNewMerge) - unitOfWork: self unitOfWork; - doNotAddParent; - workingCopySnapshot: self workingCopySnapshot; - "This is like a reversed cherry-pick:" - mergeVersion: relevantParentOfRevertedVersion; - baseVersion: revertedVersion; - title: 'Revert ', revertedVersion asString; - requestor: self. - merge prepare] \ No newline at end of file diff --git a/src/Squot.package/SquotRevertOperation.class/instance/prepareSave.st b/src/Squot.package/SquotRevertOperation.class/instance/prepareSave.st deleted file mode 100644 index 1b1e0b7cb..000000000 --- a/src/Squot.package/SquotRevertOperation.class/instance/prepareSave.st +++ /dev/null @@ -1,11 +0,0 @@ -applying -prepareSave - | patchBuilder | - ^ self withUnitOfWorkActive: - [patchBuilder := self workingCopy baseVersion newPatchBuilder. - loadedPatch diffsDo: [:each | each hasChanges ifTrue: [patchBuilder addDiff: each]]. - save := self privateNewSave - message: (message ifNil: [self defaultMessage]); - patch: (patchBuilder updateRightArtifacts; buildPatch); - unitOfWork: self unitOfWork; - yourself] \ No newline at end of file diff --git a/src/Squot.package/SquotRevertOperation.class/instance/privateNewMerge.st b/src/Squot.package/SquotRevertOperation.class/instance/privateNewMerge.st deleted file mode 100644 index c4f9a2ccb..000000000 --- a/src/Squot.package/SquotRevertOperation.class/instance/privateNewMerge.st +++ /dev/null @@ -1,3 +0,0 @@ -applying -privateNewMerge - ^ self workingCopy newMergeOperation \ No newline at end of file diff --git a/src/Squot.package/SquotRevertOperation.class/instance/privateNewSave.st b/src/Squot.package/SquotRevertOperation.class/instance/privateNewSave.st deleted file mode 100644 index 633de3b02..000000000 --- a/src/Squot.package/SquotRevertOperation.class/instance/privateNewSave.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -privateNewSave - ^ self workingCopy newSaveOperation \ No newline at end of file diff --git a/src/Squot.package/SquotRevertOperation.class/instance/relevantParentOfRevertedVersion..st b/src/Squot.package/SquotRevertOperation.class/instance/relevantParentOfRevertedVersion..st deleted file mode 100644 index 602034652..000000000 --- a/src/Squot.package/SquotRevertOperation.class/instance/relevantParentOfRevertedVersion..st +++ /dev/null @@ -1,7 +0,0 @@ -accessing -relevantParentOfRevertedVersion: aVersion - - relevantParentOfRevertedVersion := aVersion. - aVersion ifNotNil: - [self withUnitOfWork: - [self workingCopy addGlobalObjectsToStore: aVersion]]. \ No newline at end of file diff --git a/src/Squot.package/SquotRevertOperation.class/instance/relevantParentOfRevertedVersion.st b/src/Squot.package/SquotRevertOperation.class/instance/relevantParentOfRevertedVersion.st deleted file mode 100644 index 6706fdd91..000000000 --- a/src/Squot.package/SquotRevertOperation.class/instance/relevantParentOfRevertedVersion.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -relevantParentOfRevertedVersion - - ^ relevantParentOfRevertedVersion \ No newline at end of file diff --git a/src/Squot.package/SquotRevertOperation.class/instance/revertMerge.st b/src/Squot.package/SquotRevertOperation.class/instance/revertMerge.st deleted file mode 100644 index 92048da74..000000000 --- a/src/Squot.package/SquotRevertOperation.class/instance/revertMerge.st +++ /dev/null @@ -1,7 +0,0 @@ -applying -revertMerge - "Revert the changes loaded during the merge." - "Uses the snapshot previously captured in prepareMerge" - loadedPatch artifacts do: - [:each | workingCopy loadArtifact: (self workingCopySnapshot artifactAt: each path)]. - workingCopy resetNewVersionMessage. \ No newline at end of file diff --git a/src/Squot.package/SquotRevertOperation.class/instance/revertedVersion..st b/src/Squot.package/SquotRevertOperation.class/instance/revertedVersion..st deleted file mode 100644 index eca663249..000000000 --- a/src/Squot.package/SquotRevertOperation.class/instance/revertedVersion..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -revertedVersion: aVersion - - revertedVersion := aVersion. \ No newline at end of file diff --git a/src/Squot.package/SquotRevertOperation.class/instance/revertedVersion.st b/src/Squot.package/SquotRevertOperation.class/instance/revertedVersion.st deleted file mode 100644 index 0dc90021c..000000000 --- a/src/Squot.package/SquotRevertOperation.class/instance/revertedVersion.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -revertedVersion - - ^ revertedVersion \ No newline at end of file diff --git a/src/Squot.package/SquotRevertOperation.class/instance/save.st b/src/Squot.package/SquotRevertOperation.class/instance/save.st deleted file mode 100644 index 923df89f5..000000000 --- a/src/Squot.package/SquotRevertOperation.class/instance/save.st +++ /dev/null @@ -1,5 +0,0 @@ -applying -save - "Save the new version." - ^ self prepareSave - applyToWorkingCopy \ No newline at end of file diff --git a/src/Squot.package/SquotRevertOperation.class/instance/validate.st b/src/Squot.package/SquotRevertOperation.class/instance/validate.st deleted file mode 100644 index c80e16fc2..000000000 --- a/src/Squot.package/SquotRevertOperation.class/instance/validate.st +++ /dev/null @@ -1,3 +0,0 @@ -applying -validate - self validateAncestry. \ No newline at end of file diff --git a/src/Squot.package/SquotRevertOperation.class/instance/validateAncestry.st b/src/Squot.package/SquotRevertOperation.class/instance/validateAncestry.st deleted file mode 100644 index 366326b26..000000000 --- a/src/Squot.package/SquotRevertOperation.class/instance/validateAncestry.st +++ /dev/null @@ -1,7 +0,0 @@ -applying -validateAncestry - revertedVersion ifNil: [self error: 'Version to revert not configured']. - relevantParentOfRevertedVersion ifNil: - [revertedVersion parents isEmpty - ifTrue: [relevantParentOfRevertedVersion := SquotSnapshot empty] - ifFalse: [self error: 'Parent of version to revert not configured']]. \ No newline at end of file diff --git a/src/Squot.package/SquotRevertOperation.class/methodProperties.json b/src/Squot.package/SquotRevertOperation.class/methodProperties.json deleted file mode 100644 index 4fce8f78c..000000000 --- a/src/Squot.package/SquotRevertOperation.class/methodProperties.json +++ /dev/null @@ -1,24 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "applyMerge" : "jr 1/6/2020 23:02", - "applyToWorkingCopy" : "jr 11/22/2020 17:41", - "defaultMessage" : "jr 1/23/2022 00:13", - "loadedPatch" : "jr 1/4/2020 19:27", - "loadedPatch:" : "jr 1/4/2020 19:27", - "merge" : "jr 1/4/2020 19:27", - "merge:" : "jr 1/4/2020 19:27", - "message:" : "jr 11/22/2020 17:47", - "prepareMerge" : "jr 1/22/2022 21:28", - "prepareSave" : "jr 1/22/2022 21:28", - "privateNewMerge" : "jr 1/19/2020 01:43", - "privateNewSave" : "jr 1/26/2020 21:47", - "relevantParentOfRevertedVersion" : "jr 1/22/2022 21:24", - "relevantParentOfRevertedVersion:" : "jr 1/22/2022 22:13", - "revertMerge" : "jr 5/9/2020 01:14", - "revertedVersion" : "jr 1/22/2022 21:24", - "revertedVersion:" : "jr 1/22/2022 21:24", - "save" : "jr 2/1/2020 00:15", - "validate" : "jr 11/22/2020 17:47", - "validateAncestry" : "jr 1/22/2022 21:26" } } diff --git a/src/Squot.package/SquotRevertOperation.class/properties.json b/src/Squot.package/SquotRevertOperation.class/properties.json deleted file mode 100644 index a4a6a7871..000000000 --- a/src/Squot.package/SquotRevertOperation.class/properties.json +++ /dev/null @@ -1,19 +0,0 @@ -{ - "category" : "Squot-WorkingCopies", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 1/23/2022 00:20", - "instvars" : [ - "merge", - "loadedPatch", - "save", - "message", - "revertedVersion", - "relevantParentOfRevertedVersion" ], - "name" : "SquotRevertOperation", - "pools" : [ - ], - "super" : "SquotWorkingCopyOperation", - "type" : "normal" } diff --git a/src/Squot.package/SquotSaveOperation.class/README.md b/src/Squot.package/SquotSaveOperation.class/README.md deleted file mode 100644 index e900c2c92..000000000 --- a/src/Squot.package/SquotSaveOperation.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I coordinate the saving of a new version from a working copy. \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/additionalParentVersions..st b/src/Squot.package/SquotSaveOperation.class/instance/additionalParentVersions..st deleted file mode 100644 index 8090463cd..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/additionalParentVersions..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -additionalParentVersions: anObject - - additionalParentVersions := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/additionalParentVersions.st b/src/Squot.package/SquotSaveOperation.class/instance/additionalParentVersions.st deleted file mode 100644 index 0070cd473..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/additionalParentVersions.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -additionalParentVersions - - ^ additionalParentVersions \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/applyLoadStatusToPatchArtifacts..st b/src/Squot.package/SquotSaveOperation.class/instance/applyLoadStatusToPatchArtifacts..st deleted file mode 100644 index 8bc705ea3..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/applyLoadStatusToPatchArtifacts..st +++ /dev/null @@ -1,6 +0,0 @@ -private -applyLoadStatusToPatchArtifacts: aPatch - aPatch diffsDo: - [:each | - (self workingCopy artifactAt: each path ifAbsent: []) - ifNotNil: [:artifact | artifact isLoaded ifTrue: [each setLoadedInWorkingCopy]]]. \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/applyToWorkingCopy.st b/src/Squot.package/SquotSaveOperation.class/instance/applyToWorkingCopy.st deleted file mode 100644 index c551b911d..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/applyToWorkingCopy.st +++ /dev/null @@ -1,10 +0,0 @@ -applying -applyToWorkingCopy - "Save the new version in the repository." - ^ self withUnitOfWork: - [patch ifNil: [patch := self computePatch]. - self validate; - applyLoadStatusToPatchArtifacts: patch; - createVersion; - updateWorkingCopy. - self newVersion] \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/author..st b/src/Squot.package/SquotSaveOperation.class/instance/author..st deleted file mode 100644 index ed0437151..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/author..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -author: anObject - - author := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/author.st b/src/Squot.package/SquotSaveOperation.class/instance/author.st deleted file mode 100644 index d013b703f..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/author.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -author - - ^ author ifNil: [author := self workingCopy defaultAuthor] \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/committer..st b/src/Squot.package/SquotSaveOperation.class/instance/committer..st deleted file mode 100644 index 3ca478363..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/committer..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -committer: anObject - - committer := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/committer.st b/src/Squot.package/SquotSaveOperation.class/instance/committer.st deleted file mode 100644 index 0f6264e27..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/committer.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -committer - - ^ committer ifNil: [committer := self workingCopy defaultAuthor] \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/computePatch.st b/src/Squot.package/SquotSaveOperation.class/instance/computePatch.st deleted file mode 100644 index bcaba0011..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/computePatch.st +++ /dev/null @@ -1,3 +0,0 @@ -applying -computePatch - ^ self workingCopySnapshot patchRelativeToBase: self workingCopy baseSnapshot \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/createVersion.st b/src/Squot.package/SquotSaveOperation.class/instance/createVersion.st deleted file mode 100644 index 13219e162..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/createVersion.st +++ /dev/null @@ -1,11 +0,0 @@ -applying -createVersion - self withUnitOfWorkActive: - [newVersion := historian createNewVersionFromPatch: patch - with: [:version | version - message: message; - author: author; - timestamp: self timestamp. - version parents: self parentVersions. - shouldStoreMetadata ifFalse: [version doNotStoreMetadata]]]. - ^ newVersion \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/historian..st b/src/Squot.package/SquotSaveOperation.class/instance/historian..st deleted file mode 100644 index 5a6890634..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/historian..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -historian: anObject - - historian := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/historian.st b/src/Squot.package/SquotSaveOperation.class/instance/historian.st deleted file mode 100644 index 041e1ecc0..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/historian.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -historian - - ^ historian \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/initialize.st b/src/Squot.package/SquotSaveOperation.class/instance/initialize.st deleted file mode 100644 index 9e211757e..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/initialize.st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -initialize - super initialize. - shouldStoreMetadata := true. - additionalParentVersions := OrderedCollection new. \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/message..st b/src/Squot.package/SquotSaveOperation.class/instance/message..st deleted file mode 100644 index bd5591998..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/message..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -message: anObject - - message := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/message.st b/src/Squot.package/SquotSaveOperation.class/instance/message.st deleted file mode 100644 index d808932ce..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/message.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -message - - ^ message \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/newVersion..st b/src/Squot.package/SquotSaveOperation.class/instance/newVersion..st deleted file mode 100644 index 0cf875b8a..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/newVersion..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -newVersion: anObject - newVersion := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/newVersion.st b/src/Squot.package/SquotSaveOperation.class/instance/newVersion.st deleted file mode 100644 index 1529f3200..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/newVersion.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -newVersion - ^ newVersion \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/parentVersions.st b/src/Squot.package/SquotSaveOperation.class/instance/parentVersions.st deleted file mode 100644 index 1df5a7b3c..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/parentVersions.st +++ /dev/null @@ -1,8 +0,0 @@ -applying -parentVersions - | mainParent | - mainParent := historian version. - mainParent ifNil: [^ additionalParentVersions asArray]. - additionalParentVersions ifEmpty: [^ Array with: mainParent]. - ^ {mainParent}, (additionalParentVersions copyWithout: mainParent) - \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/patch..st b/src/Squot.package/SquotSaveOperation.class/instance/patch..st deleted file mode 100644 index 186ec25eb..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/patch..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -patch: anObject - - patch := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/patch.st b/src/Squot.package/SquotSaveOperation.class/instance/patch.st deleted file mode 100644 index 9b1b1bc61..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/patch.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -patch - - ^ patch \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/shouldStoreMetadata..st b/src/Squot.package/SquotSaveOperation.class/instance/shouldStoreMetadata..st deleted file mode 100644 index 395e44d82..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/shouldStoreMetadata..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -shouldStoreMetadata: anObject - shouldStoreMetadata := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/shouldStoreMetadata.st b/src/Squot.package/SquotSaveOperation.class/instance/shouldStoreMetadata.st deleted file mode 100644 index 6f8866efa..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/shouldStoreMetadata.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -shouldStoreMetadata - ^ shouldStoreMetadata \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/timestamp..st b/src/Squot.package/SquotSaveOperation.class/instance/timestamp..st deleted file mode 100644 index 8f660da1b..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/timestamp..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -timestamp: aDateAndTime - timestamp := aDateAndTime \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/timestamp.st b/src/Squot.package/SquotSaveOperation.class/instance/timestamp.st deleted file mode 100644 index e36d5272e..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/timestamp.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -timestamp - "If no timestamp is enforced by the client, use the current time. - Do not store the current time: there might be early accesses to this property long before the version is actually stored in the repository. For example, after the first access users might still get asked to select the changes to save, which might take a while." - ^ timestamp ifNil: [DateAndTime now] \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/updateMetadataAfterSaving.st b/src/Squot.package/SquotSaveOperation.class/instance/updateMetadataAfterSaving.st deleted file mode 100644 index 5357f5a04..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/updateMetadataAfterSaving.st +++ /dev/null @@ -1,36 +0,0 @@ -private -updateMetadataAfterSaving - "Some repositories cause additional metadata to be added when saving an artifact for the first time. Bring this into the working copy. The patch was used to create newVersion which may have a slightly different snapshot (e. g. because the repository added something or put additional metadata for the serialization)." - | paths savedPaths newlyAddedArtifacts | - paths := workingCopy artifacts collect: [:each | each path]. - savedPaths := patch patched artifacts collect: [:each | each path]. - newlyAddedArtifacts := newVersion artifacts select: [:each | (paths includes: each path) not and: [(savedPaths includes: each path) not]]. - newlyAddedArtifacts do: [:each | workingCopy addUnloaded: each]. - paths do: - [:eachPath | | workingArtifact savedArtifact versionArtifact metadataMerge metadataDiff | - workingArtifact := workingCopy artifactAt: eachPath ifAbsent: []. - savedArtifact := patch patched artifactAt: eachPath ifAbsent: []. - versionArtifact := newVersion artifactAt: eachPath ifAbsent: []. - "Artifacts may have been removed from the working copy without saving this. - Artifacts may have been added to the working copy without saving them." - versionArtifact notNil & savedArtifact notNil & workingArtifact notNil - ifTrue: - [workingArtifact isLoaded - ifTrue: "Cherry-pick any changes back to the working copy if they do not conflict." - [metadataMerge := workingArtifact storeInfo squotMergeWith: versionArtifact storeInfo basedOn: savedArtifact storeInfo. - metadataMerge conflicts do: [:each | each chooseWorking]. - metadataMerge hasChanges ifTrue: - [metadataDiff := metadataMerge resolvedPatch. - workingCopy - applyDiff: - (SquotArtifactModification - left: workingArtifact - right: (savedArtifact copy storeInfo: metadataDiff right; yourself) - isLoadedInWorkingCopy: true - contentDiff: SquotObjectGraphDiff new - metadataDiff: metadataDiff) - toObjectAt: eachPath]. - (versionArtifact id notNil and: [workingArtifact id ~= versionArtifact id]) - ifTrue: [workingArtifact id: versionArtifact id]. "Take id from version. Ids are ignored during merges and comparisons above."] - ifFalse: "Just overwrite unloaded artifact's metadata" - [workingArtifact storeInfo: versionArtifact storeInfo]]]. \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/updateWorkingCopy.st b/src/Squot.package/SquotSaveOperation.class/instance/updateWorkingCopy.st deleted file mode 100644 index a59b238cb..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/updateWorkingCopy.st +++ /dev/null @@ -1,13 +0,0 @@ -applying -updateWorkingCopy - | previousVersionOrNil | - self withUnitOfWorkActive: - [previousVersionOrNil := self workingCopy loadedVersion. - self updateMetadataAfterSaving. - self workingCopy - loadedVersion: newVersion; - cacheSavedArtifacts: patch in: newVersion; - updateLoadOrderFromVersion: newVersion; - resetAdditionalParents; - resetNewVersionMessage]. - self workingCopy assertConsistentLoadOrder. \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/validate.st b/src/Squot.package/SquotSaveOperation.class/instance/validate.st deleted file mode 100644 index e29ab6c1c..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/validate.st +++ /dev/null @@ -1,10 +0,0 @@ -applying -validate - "Make sure that all necessary input has been set up." - "See also SquotSaveOperation>>validateForCherryPick." - self withUnitOfWorkActive: - [historian ifNil: [self error: 'Historian to store to not configured']. - patch ifNil: [self error: 'No changes to be saved']. - message ifNil: [self error: 'Message not configured']. - self author ifNil: [self error: 'Author not configured']. - self committer ifNil: [self error: 'Committer not configured']]. \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/instance/validateForCherryPick.st b/src/Squot.package/SquotSaveOperation.class/instance/validateForCherryPick.st deleted file mode 100644 index 334fd413f..000000000 --- a/src/Squot.package/SquotSaveOperation.class/instance/validateForCherryPick.st +++ /dev/null @@ -1,9 +0,0 @@ -applying -validateForCherryPick - "Do not test the patch yet, it will be determined after the merge." - "See also SquotSaveOperation>>validate." - self withUnitOfWorkActive: - [historian ifNil: [self error: 'Historian to store to not configured']. - message ifNil: [self error: 'Message not configured']. - self author ifNil: [self error: 'Author not configured']. - self committer ifNil: [self error: 'Committer not configured']]. \ No newline at end of file diff --git a/src/Squot.package/SquotSaveOperation.class/methodProperties.json b/src/Squot.package/SquotSaveOperation.class/methodProperties.json deleted file mode 100644 index dfc7bed9a..000000000 --- a/src/Squot.package/SquotSaveOperation.class/methodProperties.json +++ /dev/null @@ -1,32 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "additionalParentVersions" : "jr 1/4/2020 19:03", - "additionalParentVersions:" : "jr 1/4/2020 19:03", - "applyLoadStatusToPatchArtifacts:" : "jr 11/19/2020 13:17", - "applyToWorkingCopy" : "jr 11/19/2020 13:32", - "author" : "jr 2/24/2020 21:06", - "author:" : "jr 1/4/2020 19:03", - "committer" : "jr 2/24/2020 21:06", - "committer:" : "jr 1/4/2020 19:07", - "computePatch" : "jr 11/19/2020 12:18", - "createVersion" : "jr 1/9/2021 18:04", - "historian" : "jr 1/4/2020 19:03", - "historian:" : "jr 1/4/2020 19:03", - "initialize" : "jr 1/26/2020 21:40", - "message" : "jr 1/4/2020 19:03", - "message:" : "jr 1/4/2020 19:03", - "newVersion" : "jr 1/24/2020 22:24", - "newVersion:" : "jr 1/24/2020 22:24", - "parentVersions" : "jr 1/24/2020 23:14", - "patch" : "jr 11/19/2020 12:19", - "patch:" : "jr 1/4/2020 19:03", - "shouldStoreMetadata" : "jr 1/24/2020 23:29", - "shouldStoreMetadata:" : "jr 1/24/2020 23:29", - "timestamp" : "jr 8/27/2020 00:27", - "timestamp:" : "jr 8/26/2020 23:55", - "updateMetadataAfterSaving" : "jr 4/18/2022 16:44", - "updateWorkingCopy" : "jr 11/28/2021 10:02", - "validate" : "jr 11/19/2020 12:59", - "validateForCherryPick" : "jr 11/19/2020 12:59" } } diff --git a/src/Squot.package/SquotSaveOperation.class/properties.json b/src/Squot.package/SquotSaveOperation.class/properties.json deleted file mode 100644 index 5c9c8a6d3..000000000 --- a/src/Squot.package/SquotSaveOperation.class/properties.json +++ /dev/null @@ -1,22 +0,0 @@ -{ - "category" : "Squot-WorkingCopies", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 1/4/2020 19:02", - "instvars" : [ - "historian", - "additionalParentVersions", - "message", - "patch", - "author", - "timestamp", - "committer", - "newVersion", - "shouldStoreMetadata" ], - "name" : "SquotSaveOperation", - "pools" : [ - ], - "super" : "SquotWorkingCopyOperation", - "type" : "normal" } diff --git a/src/Squot.package/SquotSaveVersionDialog.class/README.md b/src/Squot.package/SquotSaveVersionDialog.class/README.md deleted file mode 100644 index 7d964a9e3..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/README.md +++ /dev/null @@ -1,6 +0,0 @@ -I am a tool that lets a user edit the properties of a new Version. - -Instance Variables - canceled: the operation is assumed to be cancelled unless #accept has been called and this is false - changeChooser: - message: log message for the new version diff --git a/src/Squot.package/SquotSaveVersionDialog.class/class/themeProperties.st b/src/Squot.package/SquotSaveVersionDialog.class/class/themeProperties.st deleted file mode 100644 index c77b5fe3d..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/class/themeProperties.st +++ /dev/null @@ -1,6 +0,0 @@ -preferences -themeProperties - ^ super themeProperties, { - { #acceptColor. 'Colors'. 'Color for the commit button.' }. - { #cancelColor. 'Colors'. 'Color for the cancel button.' }. - } \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialog.class/instance/accept.st b/src/Squot.package/SquotSaveVersionDialog.class/instance/accept.st deleted file mode 100644 index 5df495aed..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/instance/accept.st +++ /dev/null @@ -1,7 +0,0 @@ -actions -accept - self updateMessageFromViews. - ((self messageWasChanged not or: [message isEmpty]) - and: [(self confirm: 'Do you really want to commit without a proper commit message?') not]) - ifTrue: [^ self]. - super accept. \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialog.class/instance/actionCommit.st b/src/Squot.package/SquotSaveVersionDialog.class/instance/actionCommit.st deleted file mode 100644 index 18f0daed3..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/instance/actionCommit.st +++ /dev/null @@ -1,3 +0,0 @@ -actions -actionCommit - self accept \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialog.class/instance/activateNodeCommandLabel.st b/src/Squot.package/SquotSaveVersionDialog.class/instance/activateNodeCommandLabel.st deleted file mode 100644 index a1bf41928..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/instance/activateNodeCommandLabel.st +++ /dev/null @@ -1,3 +0,0 @@ -ui labels -activateNodeCommandLabel - ^ 'Include this change in the new version (x)' \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialog.class/instance/addUnloadedArtifactMenuItems..st b/src/Squot.package/SquotSaveVersionDialog.class/instance/addUnloadedArtifactMenuItems..st deleted file mode 100644 index efa8c29d8..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/instance/addUnloadedArtifactMenuItems..st +++ /dev/null @@ -1,3 +0,0 @@ -ui menus -addUnloadedArtifactMenuItems: aMenu - "Do not show them. Cannot cause something to get unloaded during a save." \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialog.class/instance/appendCoAuthors.st b/src/Squot.package/SquotSaveVersionDialog.class/instance/appendCoAuthors.st deleted file mode 100644 index 6617f8c49..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/instance/appendCoAuthors.st +++ /dev/null @@ -1,11 +0,0 @@ -*Squot-CoAuthorsExtension -appendCoAuthors - - CoAuthorList default select - ifNotNil: [ :selection | selection - ifNotEmpty: [ - self message: (self message, String crlfcrlf, String crlf, - (String streamContents: [:s | (selection - collect: [ :gitStamp | self coAuthorString, gitStamp asStringWithoutTimestamp]) - asStringOn: s delimiter: String crlf])). - self changed: #message]]. \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialog.class/instance/autoProcessNodes..st b/src/Squot.package/SquotSaveVersionDialog.class/instance/autoProcessNodes..st deleted file mode 100644 index 624d657e4..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/instance/autoProcessNodes..st +++ /dev/null @@ -1,9 +0,0 @@ -ui diff tree -autoProcessNodes: nodes - | packageNodes | - packageNodes := ((nodes select: [:each | each artifactDiff notNil]) select: [:each | each content isModification and: [each content object storeInfo objectClassName = #PackageInfo]]). - SquotToggles ignoreMethodsInAssumeUnchanged ifTrue: - [self excludeMethodsThatAreAssumedUnchanged: packageNodes]. - self excludeMethodsWithOnlyTimestampChanges: packageNodes. - self excludePackagesWithoutActiveChanges: packageNodes. - ^ nodes \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialog.class/instance/browseOtherEdition.st b/src/Squot.package/SquotSaveVersionDialog.class/instance/browseOtherEdition.st deleted file mode 100644 index 8c653c419..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/instance/browseOtherEdition.st +++ /dev/null @@ -1,3 +0,0 @@ -actions -browseOtherEdition - self browseOriginalEdition. \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialog.class/instance/browseOtherEditionLabel.st b/src/Squot.package/SquotSaveVersionDialog.class/instance/browseOtherEditionLabel.st deleted file mode 100644 index 43b49089b..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/instance/browseOtherEditionLabel.st +++ /dev/null @@ -1,3 +0,0 @@ -ui labels -browseOtherEditionLabel - ^ 'Browse original edition' \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialog.class/instance/buildButtonBar..st b/src/Squot.package/SquotSaveVersionDialog.class/instance/buildButtonBar..st deleted file mode 100644 index 9cbc75d66..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/instance/buildButtonBar..st +++ /dev/null @@ -1,13 +0,0 @@ -ui toolbuilder -buildButtonBar: builder - | buttonBar cancelButton commitButton | - buttonBar := super buildButtonBar: builder. - commitButton := buttonBar children first. - commitButton - label: 'Commit'; - help: nil; - action: #actionCommit. - cancelButton := buttonBar children second. - cancelButton - help: nil. - ^ buttonBar \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialog.class/instance/buildCoAuthorSelector..st b/src/Squot.package/SquotSaveVersionDialog.class/instance/buildCoAuthorSelector..st deleted file mode 100644 index 0e7967a57..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/instance/buildCoAuthorSelector..st +++ /dev/null @@ -1,18 +0,0 @@ -*Squot-CoAuthorsExtension -buildCoAuthorSelector: builder - | coAuthorBar selectCoAuthorsButton | - coAuthorBar := builder pluggablePanelSpec new - layout: #horizontal; - children: OrderedCollection new; - frame: (LayoutFrame fractions: (0.8@0.7 corner: 1@1) offsets: (0@0 corner: 0@(self buttonHeight negated))); - yourself. - - selectCoAuthorsButton := builder pluggableActionButtonSpec new - name: 'co-authors for this commit'; - model: self; - label: 'Add Co-Authors'; - action: #appendCoAuthors; - yourself. - - coAuthorBar children addAll: {selectCoAuthorsButton}. - ^ coAuthorBar \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialog.class/instance/buildDiffPane..st b/src/Squot.package/SquotSaveVersionDialog.class/instance/buildDiffPane..st deleted file mode 100644 index 22f77eeee..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/instance/buildDiffPane..st +++ /dev/null @@ -1,10 +0,0 @@ -ui toolbuilder -buildDiffPane: builder - | mainWidgetsPanel | - mainWidgetsPanel := super buildDiffPane: builder. - mainWidgetsPanel - frame: (LayoutFrame - fractions: (0@0 corner: 1@0.7) - offsets: (0@0 corner: 0@0)); - wantsResizeHandles: true. - ^ mainWidgetsPanel \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialog.class/instance/cancel.st b/src/Squot.package/SquotSaveVersionDialog.class/instance/cancel.st deleted file mode 100644 index 0096b07fe..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/instance/cancel.st +++ /dev/null @@ -1,4 +0,0 @@ -actions -cancel - self updateMessageFromViews. - super cancel. \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialog.class/instance/coAuthorString.st b/src/Squot.package/SquotSaveVersionDialog.class/instance/coAuthorString.st deleted file mode 100644 index 2927b3d32..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/instance/coAuthorString.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-CoAuthorsExtension -coAuthorString - - ^ 'Co-authored-by: ' \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialog.class/instance/deactivateNodeCommandLabel.st b/src/Squot.package/SquotSaveVersionDialog.class/instance/deactivateNodeCommandLabel.st deleted file mode 100644 index 9a364eec6..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/instance/deactivateNodeCommandLabel.st +++ /dev/null @@ -1,3 +0,0 @@ -ui labels -deactivateNodeCommandLabel - ^ 'Exclude this change from the new version (x)' \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialog.class/instance/defaultMessage.st b/src/Squot.package/SquotSaveVersionDialog.class/instance/defaultMessage.st deleted file mode 100644 index 5321cf461..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/instance/defaultMessage.st +++ /dev/null @@ -1,3 +0,0 @@ -ui -defaultMessage - ^ 'Enter commit log message here'. diff --git a/src/Squot.package/SquotSaveVersionDialog.class/instance/excludeMethodsThatAreAssumedUnchanged..st b/src/Squot.package/SquotSaveVersionDialog.class/instance/excludeMethodsThatAreAssumedUnchanged..st deleted file mode 100644 index 18518c2de..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/instance/excludeMethodsThatAreAssumedUnchanged..st +++ /dev/null @@ -1,14 +0,0 @@ -actions -excludeMethodsThatAreAssumedUnchanged: aCollection - aCollection do: [:eachPackage | - eachPackage children do: [:eachClass | - [eachClass content isCurrentlyIgnoredInSquot - ifTrue: [eachClass withAllChildren"Nodes" do: [:each | each exclude]] - ifFalse: [eachClass children - select: [:each | each content isCurrentlyIgnoredInSquot] - thenDo: [:each | each exclude]. - eachClass hasActiveChildren ifFalse: [eachClass exclude]]] - on: MessageNotUnderstood do: - [:error | error message selector == #isCurrentlyIgnoredInSquot - ifTrue: [error resume: false] - ifFalse: [error pass]]]]. \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialog.class/instance/initialize.st b/src/Squot.package/SquotSaveVersionDialog.class/instance/initialize.st deleted file mode 100644 index fb46fdc0d..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initialize - super initialize. - message := self defaultMessage. diff --git a/src/Squot.package/SquotSaveVersionDialog.class/instance/inspectOriginalArtifactCommandLabel.st b/src/Squot.package/SquotSaveVersionDialog.class/instance/inspectOriginalArtifactCommandLabel.st deleted file mode 100644 index bf62a135d..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/instance/inspectOriginalArtifactCommandLabel.st +++ /dev/null @@ -1,3 +0,0 @@ -ui labels -inspectOriginalArtifactCommandLabel - ^ 'Inspect original edition' \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialog.class/instance/message..st b/src/Squot.package/SquotSaveVersionDialog.class/instance/message..st deleted file mode 100644 index b85ef2159..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/instance/message..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -message: anObject - - message := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialog.class/instance/message.st b/src/Squot.package/SquotSaveVersionDialog.class/instance/message.st deleted file mode 100644 index d808932ce..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/instance/message.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -message - - ^ message \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialog.class/instance/messageWasChanged.st b/src/Squot.package/SquotSaveVersionDialog.class/instance/messageWasChanged.st deleted file mode 100644 index 059335f7d..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/instance/messageWasChanged.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -messageWasChanged - ^ self message ~= self defaultMessage \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialog.class/instance/parentVersions..st b/src/Squot.package/SquotSaveVersionDialog.class/instance/parentVersions..st deleted file mode 100644 index d77e488f4..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/instance/parentVersions..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -parentVersions: versionsCollection - self flag: #stub. \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialog.class/instance/toggleLoadSelectedNode.st b/src/Squot.package/SquotSaveVersionDialog.class/instance/toggleLoadSelectedNode.st deleted file mode 100644 index ef124e160..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/instance/toggleLoadSelectedNode.st +++ /dev/null @@ -1,3 +0,0 @@ -actions -toggleLoadSelectedNode - self shouldNotImplement. "I am here to save, not to load." \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialog.class/instance/updateMessageFromViews.st b/src/Squot.package/SquotSaveVersionDialog.class/instance/updateMessageFromViews.st deleted file mode 100644 index 01a7e0810..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/instance/updateMessageFromViews.st +++ /dev/null @@ -1,6 +0,0 @@ -ui -updateMessageFromViews - self dependents - select: [:each | (each respondsTo: #getTextSelector) - and: [each getTextSelector == #message]] - thenDo: [:each | each accept]. \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialog.class/instance/widgetSpecs..st b/src/Squot.package/SquotSaveVersionDialog.class/instance/widgetSpecs..st deleted file mode 100644 index 0e6e0a7eb..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/instance/widgetSpecs..st +++ /dev/null @@ -1,13 +0,0 @@ -ui toolbuilder -widgetSpecs: builder - ^{self buildDiffPane: builder. - builder pluggableTextSpec new - name: 'message for the new version'; - model: self; - getText: #message; - setText: #message:; - editText: #message:; - frame: (LayoutFrame fractions: (0@0.7 corner: 0.8@1) offsets: (0@0 corner: 0@(self buttonHeight negated))); - yourself. - self buildCoAuthorSelector: builder. - self buildButtonBar: builder} \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialog.class/instance/windowLabel.st b/src/Squot.package/SquotSaveVersionDialog.class/instance/windowLabel.st deleted file mode 100644 index 30b8bf372..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/instance/windowLabel.st +++ /dev/null @@ -1,3 +0,0 @@ -ui labels -windowLabel - ^ 'New version' \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialog.class/methodProperties.json b/src/Squot.package/SquotSaveVersionDialog.class/methodProperties.json deleted file mode 100644 index 08af2de8a..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/methodProperties.json +++ /dev/null @@ -1,30 +0,0 @@ -{ - "class" : { - "themeProperties" : "jr 10/14/2018 00:52" }, - "instance" : { - "accept" : "jr 5/22/2020 15:51", - "actionCommit" : "fn 4/11/2017 16:01", - "activateNodeCommandLabel" : "jr 4/7/2019 22:30", - "addUnloadedArtifactMenuItems:" : "jr 10/4/2020 18:45", - "appendCoAuthors" : "ms 3/15/2019 11:53", - "autoProcessNodes:" : "jr 3/8/2022 22:53", - "browseOtherEdition" : "jr 6/6/2020 01:04", - "browseOtherEditionLabel" : "jr 6/6/2020 00:48", - "buildButtonBar:" : "jr 11/18/2018 01:39", - "buildCoAuthorSelector:" : "jr 12/22/2021 13:10", - "buildDiffPane:" : "jr 11/18/2018 01:33", - "cancel" : "jr 11/18/2018 00:44", - "coAuthorString" : "ms 3/15/2019 11:53", - "deactivateNodeCommandLabel" : "jr 4/7/2019 22:29", - "defaultMessage" : "jr 10/14/2018 01:24", - "excludeMethodsThatAreAssumedUnchanged:" : "jr 3/8/2022 20:28", - "initialize" : "jr 11/18/2018 00:50", - "inspectOriginalArtifactCommandLabel" : "jr 11/18/2018 01:05", - "message" : "jr 2/17/2017 17:03", - "message:" : "jr 2/17/2017 17:03", - "messageWasChanged" : "jr 11/17/2018 23:19", - "parentVersions:" : "jr 2/17/2017 19:34", - "toggleLoadSelectedNode" : "jr 10/4/2020 17:54", - "updateMessageFromViews" : "jr 10/14/2018 01:30", - "widgetSpecs:" : "jr 12/22/2021 13:09", - "windowLabel" : "jr 11/18/2018 01:29" } } diff --git a/src/Squot.package/SquotSaveVersionDialog.class/properties.json b/src/Squot.package/SquotSaveVersionDialog.class/properties.json deleted file mode 100644 index 7e03d5d9b..000000000 --- a/src/Squot.package/SquotSaveVersionDialog.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tools", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 19:48", - "instvars" : [ - "message" ], - "name" : "SquotSaveVersionDialog", - "pools" : [ - ], - "super" : "SquotChangedArtifactsChooser", - "type" : "normal" } diff --git a/src/Squot.package/SquotSaveVersionDialogTest.class/README.md b/src/Squot.package/SquotSaveVersionDialogTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotSaveVersionDialogTest.class/class/allTestSelectors.st b/src/Squot.package/SquotSaveVersionDialogTest.class/class/allTestSelectors.st deleted file mode 100644 index e34b9ebde..000000000 --- a/src/Squot.package/SquotSaveVersionDialogTest.class/class/allTestSelectors.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -allTestSelectors - ^ super allTestSelectors copyWithoutAll: self excludedTests \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialogTest.class/class/excludedTests.st b/src/Squot.package/SquotSaveVersionDialogTest.class/class/excludedTests.st deleted file mode 100644 index dd2b45c66..000000000 --- a/src/Squot.package/SquotSaveVersionDialogTest.class/class/excludedTests.st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -excludedTests - ^ #( - "Loading and unloading not possible in save dialog." - testLoadUnloadedArtifact testDoNotLoadAddedArtifact testToggleLoadAddedArtifact testLoadUnloadedArtifact testLoadUnloadedArtifactDuringModification - ) \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialogTest.class/class/testSelectors.st b/src/Squot.package/SquotSaveVersionDialogTest.class/class/testSelectors.st deleted file mode 100644 index 8cf644117..000000000 --- a/src/Squot.package/SquotSaveVersionDialogTest.class/class/testSelectors.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -testSelectors - ^ super testSelectors copyWithoutAll: self excludedTests \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialogTest.class/instance/expectedFailures.st b/src/Squot.package/SquotSaveVersionDialogTest.class/instance/expectedFailures.st deleted file mode 100644 index dd55fd310..000000000 --- a/src/Squot.package/SquotSaveVersionDialogTest.class/instance/expectedFailures.st +++ /dev/null @@ -1,4 +0,0 @@ -failures -expectedFailures - ^ super expectedFailures, - #(testDoNotLoadAddedArtifact testToggleLoadAddedArtifact) "Because you cannot make something unloaded during a save." \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialogTest.class/instance/newToolOn..st b/src/Squot.package/SquotSaveVersionDialogTest.class/instance/newToolOn..st deleted file mode 100644 index c7b26faf6..000000000 --- a/src/Squot.package/SquotSaveVersionDialogTest.class/instance/newToolOn..st +++ /dev/null @@ -1,6 +0,0 @@ -utilities -newToolOn: aPatch - ^ (SquotSaveVersionDialog on: aPatch) - workingCopy: workingCopy; - message: 'this is a test'; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialogTest.class/instance/patchChangingArtifactAt..st b/src/Squot.package/SquotSaveVersionDialogTest.class/instance/patchChangingArtifactAt..st deleted file mode 100644 index ea5a1ff9d..000000000 --- a/src/Squot.package/SquotSaveVersionDialogTest.class/instance/patchChangingArtifactAt..st +++ /dev/null @@ -1,8 +0,0 @@ -test objects -patchChangingArtifactAt: path - | object | - object := ValueHolder new contents: 1; yourself. - workingCopy add: object at: path; - saveVersionWithMessage: 'add object'. - object contents: 2. - ^ self workingCopySavePatch \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialogTest.class/instance/performUiInteractionTestsOnNode.withPath.inTree..st b/src/Squot.package/SquotSaveVersionDialogTest.class/instance/performUiInteractionTestsOnNode.withPath.inTree..st deleted file mode 100644 index cb53c9184..000000000 --- a/src/Squot.package/SquotSaveVersionDialogTest.class/instance/performUiInteractionTestsOnNode.withPath.inTree..st +++ /dev/null @@ -1,11 +0,0 @@ -utilities -performUiInteractionTestsOnNode: aSquotDiffNode withPath: aCollection inTree: treeView - super performUiInteractionTestsOnNode: aSquotDiffNode withPath: aCollection inTree: treeView. - self assert: ((treeView getMenu: false) items noneSatisfy: [:each | #toggleLoadSelectedNode = each selector]) - description: 'Must not load or unload during save'. - ((treeView getMenu: false) items anySatisfy: [:each | #ignoreSelectedNode = each selector]) ifTrue: - [tool ignoreSelectedNode. - self deny: tool selectedNode isActive; - assert: ((treeView getMenu: false) items anySatisfy: [:each | #unignoreSelectedNode = each selector]) description: 'Cannot unignore previously ignored node'. - tool unignoreSelectedNode. - self assert: tool selectedNode isActive]. \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialogTest.class/instance/testDoNotLoadAddedArtifact.st b/src/Squot.package/SquotSaveVersionDialogTest.class/instance/testDoNotLoadAddedArtifact.st deleted file mode 100644 index 72c5f34ee..000000000 --- a/src/Squot.package/SquotSaveVersionDialogTest.class/instance/testDoNotLoadAddedArtifact.st +++ /dev/null @@ -1,3 +0,0 @@ -tests unloaded artifacts -testDoNotLoadAddedArtifact - self shouldNotImplement. \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialogTest.class/instance/testLeaveUnloadedArtifactUnloaded.st b/src/Squot.package/SquotSaveVersionDialogTest.class/instance/testLeaveUnloadedArtifactUnloaded.st deleted file mode 100644 index b8bfd21fc..000000000 --- a/src/Squot.package/SquotSaveVersionDialogTest.class/instance/testLeaveUnloadedArtifactUnloaded.st +++ /dev/null @@ -1,26 +0,0 @@ -tests unloaded artifacts -testLeaveUnloadedArtifactUnloaded - "Unloaded artifacts should not appear if they are not changed. If they are changed, they stay unloaded while saving." - | store artifact path patch acceptReturned | - path := 'artifact'. - store := SquotImageStore new. - store add: (ValueHolder new contents: 1) at: 'changed'; - add: Object new at: path. - artifact := (store artifactAt: path) capture. - workingCopy addUnloaded: artifact; - addUnloaded: (store artifactAt: 'changed') capture; - saveVersionWithMessage: 'Add artifact'. - (store objectAt: 'changed') contents: 2. - workingCopy applyDiff: (((workingCopy artifactAt: 'changed') diffAgainst: (store artifactAt: 'changed'))). - patch := self workingCopySavePatch. - tool := self newToolOn: patch. - self assert: (tool rootNodes noneSatisfy: [:each | each title asString includesSubstring: 'artifact']). - tool selectNode: tool rootNodes first. - self deny: (self treeViewMenuIncludesAction: #toggleLoadSelectedNode). - self closeDialogPossiblyOpenedDuring: [tool accept. acceptReturned := true] timeoutMsecs: 5. - self assert: acceptReturned == true. - workingCopy newSaveOperation - patch: tool selectedPatch; - message: 'Change'; - applyToWorkingCopy. - self deny: (workingCopy artifactAt: 'changed') isLoaded. \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialogTest.class/instance/testLoadUnloadedArtifact.st b/src/Squot.package/SquotSaveVersionDialogTest.class/instance/testLoadUnloadedArtifact.st deleted file mode 100644 index 53780c086..000000000 --- a/src/Squot.package/SquotSaveVersionDialogTest.class/instance/testLoadUnloadedArtifact.st +++ /dev/null @@ -1,3 +0,0 @@ -tests unloaded artifacts -testLoadUnloadedArtifact - self shouldNotImplement \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialogTest.class/instance/testLoadUnloadedArtifactDuringModification.st b/src/Squot.package/SquotSaveVersionDialogTest.class/instance/testLoadUnloadedArtifactDuringModification.st deleted file mode 100644 index 6f18b8278..000000000 --- a/src/Squot.package/SquotSaveVersionDialogTest.class/instance/testLoadUnloadedArtifactDuringModification.st +++ /dev/null @@ -1,3 +0,0 @@ -tests unloaded artifacts -testLoadUnloadedArtifactDuringModification - self shouldNotImplement \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialogTest.class/instance/testMethodsGetExcludedIfOnlyTheirStampsChanged.st b/src/Squot.package/SquotSaveVersionDialogTest.class/instance/testMethodsGetExcludedIfOnlyTheirStampsChanged.st deleted file mode 100644 index eac5f0584..000000000 --- a/src/Squot.package/SquotSaveVersionDialogTest.class/instance/testMethodsGetExcludedIfOnlyTheirStampsChanged.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testMethodsGetExcludedIfOnlyTheirStampsChanged - | methodNode | - tool := self newToolOn: (self patchModifyingMethodTimestampInArtifactAt: 'src/TestPackage.package'). - tool rootNodes. "compute" - methodNode := tool rootNodes first children first children first. - tool selectNode: methodNode. - self deny: tool selectedDiffNodeIsIncluded. \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialogTest.class/instance/testToggleLoadAddedArtifact.st b/src/Squot.package/SquotSaveVersionDialogTest.class/instance/testToggleLoadAddedArtifact.st deleted file mode 100644 index 3315c23a3..000000000 --- a/src/Squot.package/SquotSaveVersionDialogTest.class/instance/testToggleLoadAddedArtifact.st +++ /dev/null @@ -1,3 +0,0 @@ -tests unloaded artifacts -testToggleLoadAddedArtifact - self shouldNotImplement \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialogTest.class/instance/testUnloadedArtifactsAdorned.st b/src/Squot.package/SquotSaveVersionDialogTest.class/instance/testUnloadedArtifactsAdorned.st deleted file mode 100644 index 923c958f3..000000000 --- a/src/Squot.package/SquotSaveVersionDialogTest.class/instance/testUnloadedArtifactsAdorned.st +++ /dev/null @@ -1,14 +0,0 @@ -tests unloaded artifacts -testUnloadedArtifactsAdorned - | store patch | - store := SquotImageStore new. - store add: (ValueHolder new contents: 1) at: 'changed'. - workingCopy - addUnloaded: (store artifactAt: 'changed') capture; - saveVersionWithMessage: 'Add artifact'. - (store objectAt: 'changed') contents: 2. - workingCopy applyDiff: (((workingCopy artifactAt: 'changed') diffAgainst: (store artifactAt: 'changed'))). - patch := workingCopy lazySnapshot patchRelativeToBase: workingCopy baseVersion. - tool := self newToolOn: patch. - tool selectNode: tool rootNodes first. - self assert: ('*(*not loaded*)' match: (tool nodeLabelOf: tool selectedNode) asString). \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialogTest.class/instance/workingCopySavePatch.st b/src/Squot.package/SquotSaveVersionDialogTest.class/instance/workingCopySavePatch.st deleted file mode 100644 index c009738fa..000000000 --- a/src/Squot.package/SquotSaveVersionDialogTest.class/instance/workingCopySavePatch.st +++ /dev/null @@ -1,13 +0,0 @@ -test objects -workingCopySavePatch - | patch version | - version := workingCopy parentVersions first. - patch := workingCopy newSaveOperation - message: 'temporary save'; - applyToWorkingCopy; - patch. - "Then reset to the previous version, only needed the patch." - workingCopy loadedVersion: version. - workingCopy loadedHistorian version: version. - self assert: version equals: workingCopy parentVersions first. - ^ patch \ No newline at end of file diff --git a/src/Squot.package/SquotSaveVersionDialogTest.class/methodProperties.json b/src/Squot.package/SquotSaveVersionDialogTest.class/methodProperties.json deleted file mode 100644 index e620c5d3e..000000000 --- a/src/Squot.package/SquotSaveVersionDialogTest.class/methodProperties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "class" : { - "allTestSelectors" : "jr 11/18/2020 20:17", - "excludedTests" : "jr 11/18/2020 21:11", - "testSelectors" : "jr 11/18/2020 20:17" }, - "instance" : { - "expectedFailures" : "jr 10/4/2020 20:50", - "newToolOn:" : "jr 5/2/2020 01:49", - "patchChangingArtifactAt:" : "jr 6/6/2022 23:18", - "performUiInteractionTestsOnNode:withPath:inTree:" : "jr 11/18/2020 21:06", - "testDoNotLoadAddedArtifact" : "jr 11/18/2020 21:07", - "testLeaveUnloadedArtifactUnloaded" : "jr 6/6/2022 23:18", - "testLoadUnloadedArtifact" : "jr 11/18/2020 21:38", - "testLoadUnloadedArtifactDuringModification" : "jr 11/18/2020 21:38", - "testMethodsGetExcludedIfOnlyTheirStampsChanged" : "jr 5/14/2021 16:18", - "testToggleLoadAddedArtifact" : "jr 11/18/2020 21:39", - "testUnloadedArtifactsAdorned" : "jr 6/6/2022 23:18", - "workingCopySavePatch" : "jr 11/20/2020 23:28" } } diff --git a/src/Squot.package/SquotSaveVersionDialogTest.class/properties.json b/src/Squot.package/SquotSaveVersionDialogTest.class/properties.json deleted file mode 100644 index e5f16de7d..000000000 --- a/src/Squot.package/SquotSaveVersionDialogTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Tools", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotSaveVersionDialogTest", - "pools" : [ - ], - "super" : "SquotChangesChooserTest", - "type" : "normal" } diff --git a/src/Squot.package/SquotSelectionOfChangesRequested.class/README.md b/src/Squot.package/SquotSelectionOfChangesRequested.class/README.md deleted file mode 100644 index d663edfdb..000000000 --- a/src/Squot.package/SquotSelectionOfChangesRequested.class/README.md +++ /dev/null @@ -1,6 +0,0 @@ -I am signalled when changes should be selected (picked) from a Patch. Handle and resume me with a collection of SquotArtifacts to answer this request programmatically instead of displaying the request to the user. - -Instance Variables - originalSnapshot: - proposedSnapshot: - title: title of the request, might indicate the reason of the selection request \ No newline at end of file diff --git a/src/Squot.package/SquotSelectionOfChangesRequested.class/instance/defaultResumeValue.st b/src/Squot.package/SquotSelectionOfChangesRequested.class/instance/defaultResumeValue.st deleted file mode 100644 index cb1f2a97d..000000000 --- a/src/Squot.package/SquotSelectionOfChangesRequested.class/instance/defaultResumeValue.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults -defaultResumeValue - ^ patch \ No newline at end of file diff --git a/src/Squot.package/SquotSelectionOfChangesRequested.class/instance/patch..st b/src/Squot.package/SquotSelectionOfChangesRequested.class/instance/patch..st deleted file mode 100644 index 46a154d04..000000000 --- a/src/Squot.package/SquotSelectionOfChangesRequested.class/instance/patch..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -patch: anObject - patch := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotSelectionOfChangesRequested.class/instance/patch.st b/src/Squot.package/SquotSelectionOfChangesRequested.class/instance/patch.st deleted file mode 100644 index 29fd096f1..000000000 --- a/src/Squot.package/SquotSelectionOfChangesRequested.class/instance/patch.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -patch - ^ patch \ No newline at end of file diff --git a/src/Squot.package/SquotSelectionOfChangesRequested.class/instance/title..st b/src/Squot.package/SquotSelectionOfChangesRequested.class/instance/title..st deleted file mode 100644 index 67bb44d77..000000000 --- a/src/Squot.package/SquotSelectionOfChangesRequested.class/instance/title..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -title: anObject - title := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotSelectionOfChangesRequested.class/instance/title.st b/src/Squot.package/SquotSelectionOfChangesRequested.class/instance/title.st deleted file mode 100644 index fc1a896a1..000000000 --- a/src/Squot.package/SquotSelectionOfChangesRequested.class/instance/title.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -title - ^ title \ No newline at end of file diff --git a/src/Squot.package/SquotSelectionOfChangesRequested.class/methodProperties.json b/src/Squot.package/SquotSelectionOfChangesRequested.class/methodProperties.json deleted file mode 100644 index 778b64401..000000000 --- a/src/Squot.package/SquotSelectionOfChangesRequested.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "defaultResumeValue" : "jr 10/19/2017 00:35", - "patch" : "jr 5/28/2017 22:59", - "patch:" : "jr 5/28/2017 22:59", - "title" : "jr 5/26/2017 21:51", - "title:" : "jr 5/26/2017 21:51" } } diff --git a/src/Squot.package/SquotSelectionOfChangesRequested.class/properties.json b/src/Squot.package/SquotSelectionOfChangesRequested.class/properties.json deleted file mode 100644 index d930be596..000000000 --- a/src/Squot.package/SquotSelectionOfChangesRequested.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-Tools", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 19:50", - "instvars" : [ - "title", - "patch" ], - "name" : "SquotSelectionOfChangesRequested", - "pools" : [ - ], - "super" : "Notification", - "type" : "normal" } diff --git a/src/Squot.package/SquotSerializer.class/README.md b/src/Squot.package/SquotSerializer.class/README.md deleted file mode 100644 index a4052e5bd..000000000 --- a/src/Squot.package/SquotSerializer.class/README.md +++ /dev/null @@ -1,3 +0,0 @@ -I document the interface for every Squot Serializer. - -Instance Variables diff --git a/src/Squot.package/SquotSerializer.class/class/copySettingsFrom.to..st b/src/Squot.package/SquotSerializer.class/class/copySettingsFrom.to..st deleted file mode 100644 index 377560cd8..000000000 --- a/src/Squot.package/SquotSerializer.class/class/copySettingsFrom.to..st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -copySettingsFrom: anArtifact to: newTrackedObjectMetadata - "Override in subclasses to copy properties relevant to how the artifact will be stored from anArtifact to newTrackedObjectMetadata." \ No newline at end of file diff --git a/src/Squot.package/SquotSerializer.class/class/rewritePath.for..st b/src/Squot.package/SquotSerializer.class/class/rewritePath.for..st deleted file mode 100644 index 91e08ac3e..000000000 --- a/src/Squot.package/SquotSerializer.class/class/rewritePath.for..st +++ /dev/null @@ -1,4 +0,0 @@ -path rewriting -rewritePath: pathString for: anObject - "Validate the pathString given by the user and answer a modified version of it if necessary." - ^ pathString \ No newline at end of file diff --git a/src/Squot.package/SquotSerializer.class/class/writingBelow..st b/src/Squot.package/SquotSerializer.class/class/writingBelow..st deleted file mode 100644 index a794eb978..000000000 --- a/src/Squot.package/SquotSerializer.class/class/writingBelow..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -writingBelow: aFileReference - ^ self new - rootDirectory: aFileReference; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotSerializer.class/instance/canWriteDiffs.st b/src/Squot.package/SquotSerializer.class/instance/canWriteDiffs.st deleted file mode 100644 index 98ff619a5..000000000 --- a/src/Squot.package/SquotSerializer.class/instance/canWriteDiffs.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -canWriteDiffs - "Override to answer true if the class implements the serialization of just differences instead of whole snapshots." - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotSerializer.class/instance/name.st b/src/Squot.package/SquotSerializer.class/instance/name.st deleted file mode 100644 index 741a7a673..000000000 --- a/src/Squot.package/SquotSerializer.class/instance/name.st +++ /dev/null @@ -1,4 +0,0 @@ -Squot serialization -name - "Answer a String that describes me, to allow another Store to select an appropriate deserializer" - ^ self className, ' ', self version \ No newline at end of file diff --git a/src/Squot.package/SquotSerializer.class/instance/rootDirectory..st b/src/Squot.package/SquotSerializer.class/instance/rootDirectory..st deleted file mode 100644 index ab976168b..000000000 --- a/src/Squot.package/SquotSerializer.class/instance/rootDirectory..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -rootDirectory: anObject - - rootDirectory := anObject. diff --git a/src/Squot.package/SquotSerializer.class/instance/rootDirectory.st b/src/Squot.package/SquotSerializer.class/instance/rootDirectory.st deleted file mode 100644 index 66444f991..000000000 --- a/src/Squot.package/SquotSerializer.class/instance/rootDirectory.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rootDirectory - ^ rootDirectory \ No newline at end of file diff --git a/src/Squot.package/SquotSerializer.class/instance/version.st b/src/Squot.package/SquotSerializer.class/instance/version.st deleted file mode 100644 index 9373e338d..000000000 --- a/src/Squot.package/SquotSerializer.class/instance/version.st +++ /dev/null @@ -1,4 +0,0 @@ -Squot serialization -version - "Answer a String that describes the version of the serialization format used by me, to allow another Store to select an appropriate deserializer (or check if it has the correct version of it)" - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/SquotSerializer.class/instance/write..st b/src/Squot.package/SquotSerializer.class/instance/write..st deleted file mode 100644 index 89d0bb831..000000000 --- a/src/Squot.package/SquotSerializer.class/instance/write..st +++ /dev/null @@ -1,4 +0,0 @@ -Squot serialization -write: anArtifact - "serialize the artifact content at the artifact's path" - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/SquotSerializer.class/methodProperties.json b/src/Squot.package/SquotSerializer.class/methodProperties.json deleted file mode 100644 index 833fad4ac..000000000 --- a/src/Squot.package/SquotSerializer.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - "copySettingsFrom:to:" : "jr 5/27/2022 23:15", - "rewritePath:for:" : "jr 1/25/2017 17:21", - "writingBelow:" : "jr 3/8/2017 17:15" }, - "instance" : { - "canWriteDiffs" : "jr 11/19/2021 20:48", - "name" : "jr 1/4/2017 17:46", - "rootDirectory" : "jr 3/8/2017 17:14", - "rootDirectory:" : "jr 3/8/2017 17:14", - "version" : "jr 1/4/2017 17:47", - "write:" : "jr 1/29/2017 20:51" } } diff --git a/src/Squot.package/SquotSerializer.class/properties.json b/src/Squot.package/SquotSerializer.class/properties.json deleted file mode 100644 index 17b20eec4..000000000 --- a/src/Squot.package/SquotSerializer.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Serialization", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 1/4/2017 17:40", - "instvars" : [ - "rootDirectory" ], - "name" : "SquotSerializer", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotShadowGraph.class/README.md b/src/Squot.package/SquotShadowGraph.class/README.md deleted file mode 100644 index 138e56cf2..000000000 --- a/src/Squot.package/SquotShadowGraph.class/README.md +++ /dev/null @@ -1,7 +0,0 @@ -I contain a graph of objects encountered during one capture operation. - -Instance Variables - objects: objects in the source graph by name - shadows: shadows in the graph of shadows by name - startName: name of the object from which the capture operation was started - delegateRegistry: that knows more objects than me from other capture operations. Will be asked if I do not know an answer and updated when I am. \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/class/anonymousObjectName.st b/src/Squot.package/SquotShadowGraph.class/class/anonymousObjectName.st deleted file mode 100644 index c3bf3556f..000000000 --- a/src/Squot.package/SquotShadowGraph.class/class/anonymousObjectName.st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -anonymousObjectName - ^ #() \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/class/empty.st b/src/Squot.package/SquotShadowGraph.class/class/empty.st deleted file mode 100644 index 1ae99a83b..000000000 --- a/src/Squot.package/SquotShadowGraph.class/class/empty.st +++ /dev/null @@ -1,11 +0,0 @@ -instance creation -empty - | placeholder uniqueName | - placeholder := Object new. - uniqueName := {UUID new}. - ^ SquotMutableObjectGraph new - assign: uniqueName to: placeholder; - assign: uniqueName toShadow: SquotObjectShadow new; - startName: uniqueName; - refreshStartShadow; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/class/squotMirror.st b/src/Squot.package/SquotShadowGraph.class/class/squotMirror.st deleted file mode 100644 index 4e81ff8c5..000000000 --- a/src/Squot.package/SquotShadowGraph.class/class/squotMirror.st +++ /dev/null @@ -1,3 +0,0 @@ -reflecting -squotMirror - ^ SquotShadowGraphMirror new \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/class/stonAllInstVarNames.st b/src/Squot.package/SquotShadowGraph.class/class/stonAllInstVarNames.st deleted file mode 100644 index 56ffda2b3..000000000 --- a/src/Squot.package/SquotShadowGraph.class/class/stonAllInstVarNames.st +++ /dev/null @@ -1,10 +0,0 @@ -serializing -stonAllInstVarNames - "1. Do not serialize the delegate registry, which does not really belong to the graph itself but is used as a fallback to look up objects and their names. - 2. Write the startShadow variable first, so that the rendered STON reflects the object graph as it was captured, not starting from the objectNames dictionary." - | variables | - variables := super stonAllInstVarNames asOrderedCollection. - variables - remove: 'delegateRegistry'; - addFirst: (variables remove: 'startShadow'). - ^ variables \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/class/withSingleShadow..st b/src/Squot.package/SquotShadowGraph.class/class/withSingleShadow..st deleted file mode 100644 index 15912c72e..000000000 --- a/src/Squot.package/SquotShadowGraph.class/class/withSingleShadow..st +++ /dev/null @@ -1,7 +0,0 @@ -instance creation -withSingleShadow: aShadow - ^ SquotMutableObjectGraph new - delegateRegistry: SquotActiveObjectRegistry value; - ifNecessaryAssignNameToShadow: aShadow; - startShadow: aShadow; - as: self \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/^equals.st b/src/Squot.package/SquotShadowGraph.class/instance/^equals.st deleted file mode 100644 index 8c669a84a..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/^equals.st +++ /dev/null @@ -1,7 +0,0 @@ -comparing -= aShadowGraph - (aShadowGraph shadows collect: [:each | (aShadowGraph nameOf: each)]) = shadows keys - ifFalse: [^ false]. - aShadowGraph startName = startName - ifFalse: [^ false]. - ^ (aShadowGraph squotDiffAgainst: self) squotHasChanges not \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/as..st b/src/Squot.package/SquotShadowGraph.class/instance/as..st deleted file mode 100644 index 52ff3a4ca..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/as..st +++ /dev/null @@ -1,4 +0,0 @@ -converting -as: aShadowGraphSubclass - self class == aShadowGraphSubclass ifTrue: [^ self]. - ^ (aShadowGraphSubclass newFrom: self) postCopy \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/asShadowGraph.st b/src/Squot.package/SquotShadowGraph.class/instance/asShadowGraph.st deleted file mode 100644 index 50f52782c..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/asShadowGraph.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -asShadowGraph - ^ self \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/browse.st b/src/Squot.package/SquotShadowGraph.class/instance/browse.st deleted file mode 100644 index 78230eb52..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/browse.st +++ /dev/null @@ -1,3 +0,0 @@ -tools -browse - ^ self startShadow browse \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/captureWithSquot..st b/src/Squot.package/SquotShadowGraph.class/instance/captureWithSquot..st deleted file mode 100644 index 3b052871b..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/captureWithSquot..st +++ /dev/null @@ -1,5 +0,0 @@ -converting -captureWithSquot: aCapturer - Warning signal: 'About to capture a SquotObjectGraph, which should not be done.'. - self deprecated: 'Ask the mirror instead'. - ^ super captureWithSquot: aCapturer \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/delegateRegistry..st b/src/Squot.package/SquotShadowGraph.class/instance/delegateRegistry..st deleted file mode 100644 index 4b5cf7289..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/delegateRegistry..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -delegateRegistry: anObject - anObject ifNil: [^ self]. - delegateRegistry := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/delegateRegistry.st b/src/Squot.package/SquotShadowGraph.class/instance/delegateRegistry.st deleted file mode 100644 index 7879f7d39..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/delegateRegistry.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -delegateRegistry - ^ delegateRegistry \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/errorNotFound..st b/src/Squot.package/SquotShadowGraph.class/instance/errorNotFound..st deleted file mode 100644 index e632aaddd..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/errorNotFound..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -errorNotFound: anObject - ^ (NotFound object: anObject) signal \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/evictObjectNames.st b/src/Squot.package/SquotShadowGraph.class/instance/evictObjectNames.st deleted file mode 100644 index 02fcd4bd4..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/evictObjectNames.st +++ /dev/null @@ -1,5 +0,0 @@ -copying -evictObjectNames - "Remember only the names of my contained objects." - objectNames removeAll. - shadows keysAndValuesDo: [:name :shadow | objectNames at: shadow put: name]. \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/hasSameStartObjectAs..st b/src/Squot.package/SquotShadowGraph.class/instance/hasSameStartObjectAs..st deleted file mode 100644 index 93802b812..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/hasSameStartObjectAs..st +++ /dev/null @@ -1,7 +0,0 @@ -testing -hasSameStartObjectAs: aShadowGraph - "Answer whether the other graph and I have the same start object (although it may be a - different edition of it)." - ^ self startName - ifNil: [aShadowGraph startName isNil and: [self startShadow = aShadowGraph startShadow]] - ifNotNil: [aShadowGraph startName = self startName] \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/includes..st b/src/Squot.package/SquotShadowGraph.class/instance/includes..st deleted file mode 100644 index b5d67400d..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/includes..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -includes: aShadow - ^ (objectNames includesKey: aShadow) and: [shadows includes: aShadow] \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/includesObjectNamed..st b/src/Squot.package/SquotShadowGraph.class/instance/includesObjectNamed..st deleted file mode 100644 index 19bcdaf1f..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/includesObjectNamed..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -includesObjectNamed: name - ^ shadows includesKey: name \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/initialize.st b/src/Squot.package/SquotShadowGraph.class/instance/initialize.st deleted file mode 100644 index 2275451c7..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/initialize.st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -initialize - shadows := Dictionary new. - objectNames := WeakIdentityKeyDictionary new. - self initializeObjectCreatorDictionaries. \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/initializeObjectCreatorDictionaries.st b/src/Squot.package/SquotShadowGraph.class/instance/initializeObjectCreatorDictionaries.st deleted file mode 100644 index 9d1a5151d..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/initializeObjectCreatorDictionaries.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initializeObjectCreatorDictionaries - objectCreators := WeakIdentityKeyDictionary new. - objectCreatorSlots := WeakIdentityKeyDictionary new. \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/mutableCopy.st b/src/Squot.package/SquotShadowGraph.class/instance/mutableCopy.st deleted file mode 100644 index da7a9d9e8..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/mutableCopy.st +++ /dev/null @@ -1,6 +0,0 @@ -copying -mutableCopy - ^ SquotMutableObjectGraph new - copySameFrom: self; - postCopy; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/nameOf..st b/src/Squot.package/SquotShadowGraph.class/instance/nameOf..st deleted file mode 100644 index cc97926b3..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/nameOf..st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -nameOf: anObject - ^ objectNames at: anObject ifAbsent: - [delegateRegistry - ifNotNil: [delegateRegistry nameOf: anObject] - ifNil: [self errorNotFound: anObject]] \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/nameOf.ifAbsent..st b/src/Squot.package/SquotShadowGraph.class/instance/nameOf.ifAbsent..st deleted file mode 100644 index 6974db369..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/nameOf.ifAbsent..st +++ /dev/null @@ -1,12 +0,0 @@ -accessing -nameOf: anObject ifAbsent: absentBlock - "Answer the remembered name of anObject in this graph, or evaluate the block if no name - for the object is known." - "objectNames has weak keys, which can become nil. Therefore we cannot look up names - for nil, since it leads to false positives. Fortunately, nil or 'shadow of nil' should never get a - name anyway." - anObject ifNil: [^ absentBlock value]. - ^ objectNames at: anObject ifAbsent: - [delegateRegistry - ifNotNil: [delegateRegistry nameOf: anObject ifAbsent: absentBlock] - ifNil: [absentBlock value]] \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/objectForDataStream..st b/src/Squot.package/SquotShadowGraph.class/instance/objectForDataStream..st deleted file mode 100644 index 02ae43100..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/objectForDataStream..st +++ /dev/null @@ -1,9 +0,0 @@ -objects from disk -objectForDataStream: aDataStream - "Do not serialize the delegate registry, which does not really belong to the graph itself but is used as a fallback to look up objects and their names." - | copy | - copy := self copy - delegateRegistry: nil; - yourself. - aDataStream replace: self with: copy. - ^ copy \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/objectNames.st b/src/Squot.package/SquotShadowGraph.class/instance/objectNames.st deleted file mode 100644 index edcf732bc..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/objectNames.st +++ /dev/null @@ -1,3 +0,0 @@ -tools -objectNames - ^ objectNames values \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/postCopy.st b/src/Squot.package/SquotShadowGraph.class/instance/postCopy.st deleted file mode 100644 index aa86d69a3..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/postCopy.st +++ /dev/null @@ -1,6 +0,0 @@ -copying -postCopy - objectNames := objectNames copy. - shadows := shadows copy. - self evictObjectNames. - self initializeObjectCreatorDictionaries. \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/preferredSerializer.st b/src/Squot.package/SquotShadowGraph.class/instance/preferredSerializer.st deleted file mode 100644 index b5d878423..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/preferredSerializer.st +++ /dev/null @@ -1,3 +0,0 @@ -serializing -preferredSerializer - ^ self startShadow squotPreferredSerializer \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/roots.st b/src/Squot.package/SquotShadowGraph.class/instance/roots.st deleted file mode 100644 index 04948c5ca..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/roots.st +++ /dev/null @@ -1,3 +0,0 @@ -patching -roots - ^ {startShadow} \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/shadowNamed..st b/src/Squot.package/SquotShadowGraph.class/instance/shadowNamed..st deleted file mode 100644 index 7a48784be..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/shadowNamed..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -shadowNamed: aName - ^ shadows at: aName \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/shadowNamed.ifAbsent..st b/src/Squot.package/SquotShadowGraph.class/instance/shadowNamed.ifAbsent..st deleted file mode 100644 index d8a640f61..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/shadowNamed.ifAbsent..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -shadowNamed: aName ifAbsent: absentBlock - ^ shadows at: aName ifAbsent: absentBlock \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/shadows.st b/src/Squot.package/SquotShadowGraph.class/instance/shadows.st deleted file mode 100644 index d36407f03..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/shadows.st +++ /dev/null @@ -1,3 +0,0 @@ -tools -shadows - ^ shadows values \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/squotDiffAgainst..st b/src/Squot.package/SquotShadowGraph.class/instance/squotDiffAgainst..st deleted file mode 100644 index 0de97a5ce..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/squotDiffAgainst..st +++ /dev/null @@ -1,7 +0,0 @@ -Squot-shadow-diffing -squotDiffAgainst: aGraph - "Answer an object that describes the differences between me and otherContent." - | diffBuilder | - diffBuilder := SquotDiffBuilder new. - diffBuilder left: self; right: aGraph. - ^ diffBuilder startFromLeft: self startShadow right: aGraph startShadow \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/squotDiffAgainst.withBase..st b/src/Squot.package/SquotShadowGraph.class/instance/squotDiffAgainst.withBase..st deleted file mode 100644 index c144ff914..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/squotDiffAgainst.withBase..st +++ /dev/null @@ -1,9 +0,0 @@ -Squot-shadow-diffing -squotDiffAgainst: incomingGraph withBase: baseGraph - "Answer an object that describes the merge between me and otherContent based on baseContent." - "New name suggestions: - mergeWith: incomingGraph basedOn: baseGraph (there are no different kinds of graphs)" - ^ SquotObjectGraphMerge - into: self - merge: incomingGraph - basedOn: baseGraph \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/squotMaterializeWith.from.replacing..st b/src/Squot.package/SquotShadowGraph.class/instance/squotMaterializeWith.from.replacing..st deleted file mode 100644 index e9ef94e7c..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/squotMaterializeWith.from.replacing..st +++ /dev/null @@ -1,4 +0,0 @@ -Squot-shadow -squotMaterializeWith: aMaterializer from: anArtifact replacing: anObject - "Answer the object restored from me by aMaterializer. Double dispatch path" - ^ aMaterializer materializeGraph: self from: anArtifact replacing: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/squotRewritePath.with..st b/src/Squot.package/SquotShadowGraph.class/instance/squotRewritePath.with..st deleted file mode 100644 index b46b353b8..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/squotRewritePath.with..st +++ /dev/null @@ -1,4 +0,0 @@ -serializing -squotRewritePath: pathString with: aSerializer - "delegate double dispatch with the serializer to the start shadow" - ^ self startShadow squotRewritePath: pathString with: aSerializer \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/squotSummaryText.st b/src/Squot.package/SquotShadowGraph.class/instance/squotSummaryText.st deleted file mode 100644 index 1c066c21c..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/squotSummaryText.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -squotSummaryText - ^ self startShadow printString \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/squotWrite.with..st b/src/Squot.package/SquotShadowGraph.class/instance/squotWrite.with..st deleted file mode 100644 index fc37a1dd8..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/squotWrite.with..st +++ /dev/null @@ -1,3 +0,0 @@ -serializing -squotWrite: anArtifact with: aSerializer - ^ aSerializer writeObject: self from: anArtifact \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/startName..st b/src/Squot.package/SquotShadowGraph.class/instance/startName..st deleted file mode 100644 index 1991a867b..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/startName..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -startName: name - startName := name. \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/startName.st b/src/Squot.package/SquotShadowGraph.class/instance/startName.st deleted file mode 100644 index 0d9326d05..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/startName.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -startName - ^ startName \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/startShadow..st b/src/Squot.package/SquotShadowGraph.class/instance/startShadow..st deleted file mode 100644 index d7f062636..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/startShadow..st +++ /dev/null @@ -1,13 +0,0 @@ -accessing -startShadow: aShadow - | name | - name := self nameOf: aShadow undecorated ifAbsent: []. - name - ifNil: [startShadow := aShadow] - ifNotNil: - [startShadow := - aShadow hasSquotShadowName - ifTrue: [self assert: aShadow name = name. - aShadow] - ifFalse: [aShadow withSquotObjectName: name]]. - startName := name. \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/instance/startShadow.st b/src/Squot.package/SquotShadowGraph.class/instance/startShadow.st deleted file mode 100644 index e938db93b..000000000 --- a/src/Squot.package/SquotShadowGraph.class/instance/startShadow.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -startShadow - ^ startShadow ifNil: - [(self shadowNamed: startName) - withSquotObjectName: startName] \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraph.class/methodProperties.json b/src/Squot.package/SquotShadowGraph.class/methodProperties.json deleted file mode 100644 index fd15178d8..000000000 --- a/src/Squot.package/SquotShadowGraph.class/methodProperties.json +++ /dev/null @@ -1,43 +0,0 @@ -{ - "class" : { - "anonymousObjectName" : "jr 7/30/2017 18:11", - "empty" : "jr 7/7/2021 21:17", - "squotMirror" : "jr 9/10/2021 22:54", - "stonAllInstVarNames" : "jr 4/18/2022 21:11", - "withSingleShadow:" : "jr 9/20/2017 21:14" }, - "instance" : { - "=" : "jr 3/16/2019 20:28", - "as:" : "jr 7/30/2017 02:07", - "asShadowGraph" : "jr 7/30/2017 01:37", - "browse" : "jr 12/23/2019 14:43", - "captureWithSquot:" : "jr 7/25/2021 16:36", - "delegateRegistry" : "jr 6/27/2017 17:33", - "delegateRegistry:" : "jr 7/21/2017 01:30", - "errorNotFound:" : "jr 7/30/2017 01:19", - "evictObjectNames" : "jr 8/17/2017 22:15", - "hasSameStartObjectAs:" : "jr 7/17/2021 19:47", - "includes:" : "jr 7/26/2019 23:08", - "includesObjectNamed:" : "jr 9/23/2019 19:00", - "initialize" : "jr 8/17/2017 22:18", - "initializeObjectCreatorDictionaries" : "jr 8/17/2017 22:18", - "mutableCopy" : "jr 7/30/2017 01:28", - "nameOf:" : "jr 7/30/2017 01:19", - "nameOf:ifAbsent:" : "jr 9/25/2019 14:52", - "objectForDataStream:" : "jr 4/18/2022 21:02", - "objectNames" : "jr 5/10/2018 19:41", - "postCopy" : "jr 8/17/2017 22:18", - "preferredSerializer" : "jr 9/20/2017 20:47", - "roots" : "jr 6/20/2021 23:11", - "shadowNamed:" : "jr 7/16/2017 00:55", - "shadowNamed:ifAbsent:" : "jr 7/16/2017 00:55", - "shadows" : "jr 5/10/2018 19:54", - "squotDiffAgainst:" : "jr 7/25/2021 15:56", - "squotDiffAgainst:withBase:" : "jr 8/13/2019 17:27", - "squotMaterializeWith:from:replacing:" : "jr 7/16/2017 18:09", - "squotRewritePath:with:" : "jr 4/7/2018 16:06", - "squotSummaryText" : "jr 11/5/2018 21:20", - "squotWrite:with:" : "jr 7/22/2017 01:25", - "startName" : "jr 7/20/2017 23:30", - "startName:" : "jr 9/21/2019 19:49", - "startShadow" : "jr 4/7/2019 22:38", - "startShadow:" : "jr 4/7/2019 21:33" } } diff --git a/src/Squot.package/SquotShadowGraph.class/properties.json b/src/Squot.package/SquotShadowGraph.class/properties.json deleted file mode 100644 index 1720bd39c..000000000 --- a/src/Squot.package/SquotShadowGraph.class/properties.json +++ /dev/null @@ -1,20 +0,0 @@ -{ - "category" : "Squot-Shadows", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "objectNames", - "objectCreators", - "objectCreatorSlots", - "shadows", - "delegateRegistry", - "startName", - "startShadow" ], - "name" : "SquotShadowGraph", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotShadowGraphBrowser.class/README.md b/src/Squot.package/SquotShadowGraphBrowser.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotShadowGraphBrowser.class/class/openOn..st b/src/Squot.package/SquotShadowGraphBrowser.class/class/openOn..st deleted file mode 100644 index 1b1cee08e..000000000 --- a/src/Squot.package/SquotShadowGraphBrowser.class/class/openOn..st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -openOn: aShadowGraph - ^ ToolBuilder open: (self new graph: aShadowGraph) \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraphBrowser.class/instance/buildWith..st b/src/Squot.package/SquotShadowGraphBrowser.class/instance/buildWith..st deleted file mode 100644 index a2e7f173b..000000000 --- a/src/Squot.package/SquotShadowGraphBrowser.class/instance/buildWith..st +++ /dev/null @@ -1,33 +0,0 @@ -as yet unclassified -buildWith: toolBuilder - ^ toolBuilder build: (toolBuilder pluggableWindowSpec new - model: self; - label: 'Squot Object Graph'; - children: { - toolBuilder pluggableListSpec new - model: self; - list: #objectNames; - getIndex: #selectedIndex; - setIndex: #selectedIndex:; - doubleClick: #inspectName; - name: #objectNames; - frame: (LayoutFrame fractions: (0@0 corner: 1/2@1)); - yourself. - toolBuilder pluggableListSpec new - model: self; - list: #shadowObjects; - getIndex: #selectedIndex; - setIndex: #selectedIndex:; - doubleClick: #inspectShadow; - name: #shadowObjects; - frame: (LayoutFrame fractions: (1/2@0 corner: 4/5@1)); - yourself. - toolBuilder pluggableListSpec new - model: self; - list: #liveObjects; - getIndex: #selectedIndex; - setIndex: #selectedIndex:; - doubleClick: #inspectLiveObject; - name: #liveObjects; - frame: (LayoutFrame fractions: (4/5@0 corner: 1@1)); - yourself }) \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraphBrowser.class/instance/graph..st b/src/Squot.package/SquotShadowGraphBrowser.class/instance/graph..st deleted file mode 100644 index 042c8dc23..000000000 --- a/src/Squot.package/SquotShadowGraphBrowser.class/instance/graph..st +++ /dev/null @@ -1,4 +0,0 @@ -as yet unclassified -graph: aShadowGraph - graph := aShadowGraph. - self graphChanged. \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraphBrowser.class/instance/graph.st b/src/Squot.package/SquotShadowGraphBrowser.class/instance/graph.st deleted file mode 100644 index 95997ae3f..000000000 --- a/src/Squot.package/SquotShadowGraphBrowser.class/instance/graph.st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -graph - ^ graph \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraphBrowser.class/instance/graphChanged.st b/src/Squot.package/SquotShadowGraphBrowser.class/instance/graphChanged.st deleted file mode 100644 index 906bd3a7f..000000000 --- a/src/Squot.package/SquotShadowGraphBrowser.class/instance/graphChanged.st +++ /dev/null @@ -1,6 +0,0 @@ -as yet unclassified -graphChanged - shadows := graph shadows. - self changed: #objectNames; - changed: #shadowObjects; - changed: #liveObjects. \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraphBrowser.class/instance/initialize.st b/src/Squot.package/SquotShadowGraphBrowser.class/instance/initialize.st deleted file mode 100644 index 65d8da304..000000000 --- a/src/Squot.package/SquotShadowGraphBrowser.class/instance/initialize.st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -initialize - selectedIndex := 0. \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraphBrowser.class/instance/inspectLiveObject.st b/src/Squot.package/SquotShadowGraphBrowser.class/instance/inspectLiveObject.st deleted file mode 100644 index 16ac9c1d8..000000000 --- a/src/Squot.package/SquotShadowGraphBrowser.class/instance/inspectLiveObject.st +++ /dev/null @@ -1,4 +0,0 @@ -as yet unclassified -inspectLiveObject - (graph respondsTo: #objectNamed:ifAbsent:) ifFalse: [^ self]. - ^ graph objectNamed: (graph nameOf: self selectedShadow ifAbsent: [^ self]) ifAbsent: [^ self] \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraphBrowser.class/instance/inspectName.st b/src/Squot.package/SquotShadowGraphBrowser.class/instance/inspectName.st deleted file mode 100644 index bb0801847..000000000 --- a/src/Squot.package/SquotShadowGraphBrowser.class/instance/inspectName.st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -inspectName - ^ (graph nameOf: self selectedShadow ifAbsent: [^ self]) explore \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraphBrowser.class/instance/inspectShadow.st b/src/Squot.package/SquotShadowGraphBrowser.class/instance/inspectShadow.st deleted file mode 100644 index e2f9d89dc..000000000 --- a/src/Squot.package/SquotShadowGraphBrowser.class/instance/inspectShadow.st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -inspectShadow - ^ self selectedShadow ifNotNil: #explore \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraphBrowser.class/instance/liveObjects.st b/src/Squot.package/SquotShadowGraphBrowser.class/instance/liveObjects.st deleted file mode 100644 index 5012f2275..000000000 --- a/src/Squot.package/SquotShadowGraphBrowser.class/instance/liveObjects.st +++ /dev/null @@ -1,4 +0,0 @@ -as yet unclassified -liveObjects - (graph respondsTo: #objectNamed:) ifFalse: [^ Array empty]. - ^ shadows collect: [:each | graph objectNamed: (graph nameOf: each) ifAbsent: ['']] \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraphBrowser.class/instance/objectNames.st b/src/Squot.package/SquotShadowGraphBrowser.class/instance/objectNames.st deleted file mode 100644 index c679f805a..000000000 --- a/src/Squot.package/SquotShadowGraphBrowser.class/instance/objectNames.st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -objectNames - ^ shadows collect: [:each | graph nameOf: each] \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraphBrowser.class/instance/selectedIndex..st b/src/Squot.package/SquotShadowGraphBrowser.class/instance/selectedIndex..st deleted file mode 100644 index a78493735..000000000 --- a/src/Squot.package/SquotShadowGraphBrowser.class/instance/selectedIndex..st +++ /dev/null @@ -1,4 +0,0 @@ -as yet unclassified -selectedIndex: anInteger - selectedIndex := anInteger. - self changed: #selectedIndex. \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraphBrowser.class/instance/selectedIndex.st b/src/Squot.package/SquotShadowGraphBrowser.class/instance/selectedIndex.st deleted file mode 100644 index 870c8bc21..000000000 --- a/src/Squot.package/SquotShadowGraphBrowser.class/instance/selectedIndex.st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -selectedIndex - ^ selectedIndex \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraphBrowser.class/instance/selectedShadow.st b/src/Squot.package/SquotShadowGraphBrowser.class/instance/selectedShadow.st deleted file mode 100644 index 60458380e..000000000 --- a/src/Squot.package/SquotShadowGraphBrowser.class/instance/selectedShadow.st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -selectedShadow - ^ shadows at: selectedIndex ifAbsent: [] \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraphBrowser.class/instance/shadowObjects.st b/src/Squot.package/SquotShadowGraphBrowser.class/instance/shadowObjects.st deleted file mode 100644 index c71f61587..000000000 --- a/src/Squot.package/SquotShadowGraphBrowser.class/instance/shadowObjects.st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -shadowObjects - ^ shadows collect: [:each | each printString] \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraphBrowser.class/methodProperties.json b/src/Squot.package/SquotShadowGraphBrowser.class/methodProperties.json deleted file mode 100644 index 046dc7aae..000000000 --- a/src/Squot.package/SquotShadowGraphBrowser.class/methodProperties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "class" : { - "openOn:" : "jr 5/10/2018 20:00" }, - "instance" : { - "buildWith:" : "jr 5/10/2018 20:03", - "graph" : "jr 5/10/2018 19:35", - "graph:" : "jr 5/10/2018 19:35", - "graphChanged" : "jr 5/11/2018 00:04", - "initialize" : "jr 5/10/2018 19:52", - "inspectLiveObject" : "jr 5/10/2018 20:09", - "inspectName" : "jr 5/10/2018 20:06", - "inspectShadow" : "jr 5/10/2018 20:06", - "liveObjects" : "jr 5/10/2018 20:11", - "objectNames" : "jr 5/10/2018 20:11", - "selectedIndex" : "jr 5/10/2018 19:56", - "selectedIndex:" : "jr 5/10/2018 19:53", - "selectedShadow" : "jr 5/10/2018 20:10", - "shadowObjects" : "jr 5/10/2018 20:10" } } diff --git a/src/Squot.package/SquotShadowGraphBrowser.class/properties.json b/src/Squot.package/SquotShadowGraphBrowser.class/properties.json deleted file mode 100644 index 419767d51..000000000 --- a/src/Squot.package/SquotShadowGraphBrowser.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Tools", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "graph", - "shadows", - "selectedIndex" ], - "name" : "SquotShadowGraphBrowser", - "pools" : [ - ], - "super" : "Model", - "type" : "normal" } diff --git a/src/Squot.package/SquotShadowGraphMirror.class/README.md b/src/Squot.package/SquotShadowGraphMirror.class/README.md deleted file mode 100644 index bde208d80..000000000 --- a/src/Squot.package/SquotShadowGraphMirror.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I can access shadows in a SquotShadowGraph (or its subclasses). \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraphMirror.class/instance/canHaveReferences..st b/src/Squot.package/SquotShadowGraphMirror.class/instance/canHaveReferences..st deleted file mode 100644 index 68b68d925..000000000 --- a/src/Squot.package/SquotShadowGraphMirror.class/instance/canHaveReferences..st +++ /dev/null @@ -1,5 +0,0 @@ -testing -canHaveReferences: anObject - "Answer whether the kind of anObject is capable of having references to other objects." - - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraphMirror.class/instance/capture.with.ifReplaced..st b/src/Squot.package/SquotShadowGraphMirror.class/instance/capture.with.ifReplaced..st deleted file mode 100644 index f03689804..000000000 --- a/src/Squot.package/SquotShadowGraphMirror.class/instance/capture.with.ifReplaced..st +++ /dev/null @@ -1,3 +0,0 @@ -capturing -capture: anObject with: aSquotObjectCapturer ifReplaced: aBlock - self shouldNotImplement "graph is supposed to already consist of snapshots of objects" \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraphMirror.class/instance/is.comparableTo..st b/src/Squot.package/SquotShadowGraphMirror.class/instance/is.comparableTo..st deleted file mode 100644 index 4632a68c6..000000000 --- a/src/Squot.package/SquotShadowGraphMirror.class/instance/is.comparableTo..st +++ /dev/null @@ -1,5 +0,0 @@ -comparing -is: anObject comparableTo: anotherObject - "Answer true if anObject and anotherObject are of the same kind." - - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraphMirror.class/instance/newDiffFrom.to..st b/src/Squot.package/SquotShadowGraphMirror.class/instance/newDiffFrom.to..st deleted file mode 100644 index 2ca4f5a19..000000000 --- a/src/Squot.package/SquotShadowGraphMirror.class/instance/newDiffFrom.to..st +++ /dev/null @@ -1,5 +0,0 @@ -comparing -newDiffFrom: leftObject to: rightObject - "Answer a new instance of a diff suitable to be applied to leftObject." - - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraphMirror.class/instance/referencesFrom..st b/src/Squot.package/SquotShadowGraphMirror.class/instance/referencesFrom..st deleted file mode 100644 index 82db87600..000000000 --- a/src/Squot.package/SquotShadowGraphMirror.class/instance/referencesFrom..st +++ /dev/null @@ -1,5 +0,0 @@ -enumerating -referencesFrom: anObject - "Answer a collection of all references going out of anObject." - - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraphMirror.class/instance/reflectGraphElementWithName.in..st b/src/Squot.package/SquotShadowGraphMirror.class/instance/reflectGraphElementWithName.in..st deleted file mode 100644 index e7d5e83b1..000000000 --- a/src/Squot.package/SquotShadowGraphMirror.class/instance/reflectGraphElementWithName.in..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflectGraphElementWithName: name in: aGraph - ^ aGraph shadowNamed: name \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraphMirror.class/methodProperties.json b/src/Squot.package/SquotShadowGraphMirror.class/methodProperties.json deleted file mode 100644 index afab215f5..000000000 --- a/src/Squot.package/SquotShadowGraphMirror.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "canHaveReferences:" : "jr 9/10/2021 22:17", - "capture:with:ifReplaced:" : "jr 9/10/2021 22:18", - "is:comparableTo:" : "jr 9/10/2021 22:17", - "newDiffFrom:to:" : "jr 9/10/2021 22:17", - "referencesFrom:" : "jr 9/10/2021 22:17", - "reflectGraphElementWithName:in:" : "jr 9/10/2021 22:19" } } diff --git a/src/Squot.package/SquotShadowGraphMirror.class/properties.json b/src/Squot.package/SquotShadowGraphMirror.class/properties.json deleted file mode 100644 index b8f16c50b..000000000 --- a/src/Squot.package/SquotShadowGraphMirror.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 9/10/2021 23:53", - "instvars" : [ - ], - "name" : "SquotShadowGraphMirror", - "pools" : [ - ], - "super" : "SquotGraphMirror", - "type" : "normal" } diff --git a/src/Squot.package/SquotShadowGraphTest.class/README.md b/src/Squot.package/SquotShadowGraphTest.class/README.md deleted file mode 100644 index dd88428aa..000000000 --- a/src/Squot.package/SquotShadowGraphTest.class/README.md +++ /dev/null @@ -1 +0,0 @@ -Tests for SquotShadowGraph. \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraphTest.class/instance/testHasDifferentNamelessStartObject.st b/src/Squot.package/SquotShadowGraphTest.class/instance/testHasDifferentNamelessStartObject.st deleted file mode 100644 index ef111e62c..000000000 --- a/src/Squot.package/SquotShadowGraphTest.class/instance/testHasDifferentNamelessStartObject.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testHasDifferentNamelessStartObject - | a b | - a := SquotMutableObjectGraph new - startShadow: (SquotPrimitiveValue for: 1); - asShadowGraph. - b := SquotMutableObjectGraph new - startShadow: (SquotPrimitiveValue for: 2); - asShadowGraph. - self deny: (a hasSameStartObjectAs: b). \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraphTest.class/instance/testHasDifferentStartObject.st b/src/Squot.package/SquotShadowGraphTest.class/instance/testHasDifferentStartObject.st deleted file mode 100644 index 3b16e7ab3..000000000 --- a/src/Squot.package/SquotShadowGraphTest.class/instance/testHasDifferentStartObject.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testHasDifferentStartObject - | a b | - a := SquotMutableObjectGraph new - answer: #a whenAskedForTheNameOf: (a := SquotObjectShadow new); - startShadow: a; - asShadowGraph. - b := SquotMutableObjectGraph new - answer: #b whenAskedForTheNameOf: (b := SquotObjectShadow new); - startShadow: b; - asShadowGraph. - self deny: (a hasSameStartObjectAs: b). \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraphTest.class/instance/testHasSameNamelessStartObject.st b/src/Squot.package/SquotShadowGraphTest.class/instance/testHasSameNamelessStartObject.st deleted file mode 100644 index d9adf80d6..000000000 --- a/src/Squot.package/SquotShadowGraphTest.class/instance/testHasSameNamelessStartObject.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testHasSameNamelessStartObject - | a b | - a := SquotMutableObjectGraph new - startShadow: (SquotPrimitiveValue for: 1); - asShadowGraph. - b := SquotMutableObjectGraph new - startShadow: (SquotPrimitiveValue for: 1); - asShadowGraph. - self assert: (a hasSameStartObjectAs: b). \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraphTest.class/instance/testHasSameStartObject.st b/src/Squot.package/SquotShadowGraphTest.class/instance/testHasSameStartObject.st deleted file mode 100644 index e844deb9b..000000000 --- a/src/Squot.package/SquotShadowGraphTest.class/instance/testHasSameStartObject.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testHasSameStartObject - | a b | - a := SquotMutableObjectGraph new - answer: #z whenAskedForTheNameOf: (a := SquotObjectShadow new); - startShadow: a; - asShadowGraph. - b := SquotMutableObjectGraph new - answer: #z whenAskedForTheNameOf: (b := SquotObjectShadow new); - startShadow: b; - asShadowGraph. - self assert: (a hasSameStartObjectAs: b). \ No newline at end of file diff --git a/src/Squot.package/SquotShadowGraphTest.class/methodProperties.json b/src/Squot.package/SquotShadowGraphTest.class/methodProperties.json deleted file mode 100644 index d59c26a24..000000000 --- a/src/Squot.package/SquotShadowGraphTest.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testHasDifferentNamelessStartObject" : "jr 9/2/2019 19:58", - "testHasDifferentStartObject" : "jr 9/2/2019 19:57", - "testHasSameNamelessStartObject" : "jr 9/2/2019 19:58", - "testHasSameStartObject" : "jr 9/2/2019 19:56" } } diff --git a/src/Squot.package/SquotShadowGraphTest.class/properties.json b/src/Squot.package/SquotShadowGraphTest.class/properties.json deleted file mode 100644 index 112e528e6..000000000 --- a/src/Squot.package/SquotShadowGraphTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Shadows", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 9/20/2019 21:52", - "instvars" : [ - ], - "name" : "SquotShadowGraphTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotShadowMaterializer.class/README.md b/src/Squot.package/SquotShadowMaterializer.class/README.md deleted file mode 100644 index 913923d57..000000000 --- a/src/Squot.package/SquotShadowMaterializer.class/README.md +++ /dev/null @@ -1,9 +0,0 @@ -I unpack graphs of object shadows to generate regular object graphs. - -If a reference indicates that the hash of the value is significant, the value will only be filled in after it has been fully reactivated. Otherwise the values are filled in as soon as they are materialized (but still empty). - -Instance Variables - convertedObjects: already unpacked objects (or in progress) - remainingReferences: outgoing references not yet filled in - pendingReferences: incoming references to be filled in when the object in the key has been materialized - pendingReferencesForHash: incoming references to be filled in when the values have been reactivated (and their hash is settled) \ No newline at end of file diff --git a/src/Squot.package/SquotShadowMaterializer.class/instance/initialize.st b/src/Squot.package/SquotShadowMaterializer.class/instance/initialize.st deleted file mode 100644 index d87ca3128..000000000 --- a/src/Squot.package/SquotShadowMaterializer.class/instance/initialize.st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -initialize - convertedObjects := IdentityDictionary new. - objectRegistry := SquotObjectRegistry new. - targetGraph := SquotMutableObjectGraph new. \ No newline at end of file diff --git a/src/Squot.package/SquotShadowMaterializer.class/instance/objectGraph.st b/src/Squot.package/SquotShadowMaterializer.class/instance/objectGraph.st deleted file mode 100644 index 10b063627..000000000 --- a/src/Squot.package/SquotShadowMaterializer.class/instance/objectGraph.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -objectGraph - ^ targetGraph \ No newline at end of file diff --git a/src/Squot.package/SquotShadowMaterializer.class/instance/registry..st b/src/Squot.package/SquotShadowMaterializer.class/instance/registry..st deleted file mode 100644 index 81f4903a6..000000000 --- a/src/Squot.package/SquotShadowMaterializer.class/instance/registry..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -registry: anObjectRegistry - objectRegistry := anObjectRegistry. \ No newline at end of file diff --git a/src/Squot.package/SquotShadowMaterializer.class/instance/registry.st b/src/Squot.package/SquotShadowMaterializer.class/instance/registry.st deleted file mode 100644 index 8cf20b584..000000000 --- a/src/Squot.package/SquotShadowMaterializer.class/instance/registry.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -registry - ^ objectRegistry \ No newline at end of file diff --git a/src/Squot.package/SquotShadowMaterializer.class/instance/rematerializeGraph..st b/src/Squot.package/SquotShadowMaterializer.class/instance/rematerializeGraph..st deleted file mode 100644 index 0b0324451..000000000 --- a/src/Squot.package/SquotShadowMaterializer.class/instance/rematerializeGraph..st +++ /dev/null @@ -1,20 +0,0 @@ -public converting -rematerializeGraph: aShadowGraph - | existingRoot existingShadow targetGraph | - existingRoot := objectRegistry objectNamed: aShadowGraph startName ifAbsent: []. - targetGraph := - existingRoot - ifNil: [SquotMutableObjectGraph empty - delegateRegistry: objectRegistry; - yourself] - ifNotNil: [SquotObjectCapturer new - registry: objectRegistry; - captureGraph: existingRoot; - objectGraph]. - existingShadow := aShadowGraph startShadow sameIn: targetGraph asIn: aShadowGraph ifAbsent: []. - "If the object looked up by name is not really the same as the object captured in aShadowGraph, start from an empty graph instead. All packages get the SquotShadowGraph anonymousObjectName, and the registry might have several packages, so it is not guaranteed that the correct one is obtained from objectNamed:ifAbsent:." - existingShadow ifNil: [targetGraph := SquotMutableObjectGraph empty - delegateRegistry: objectRegistry; - yourself]. - self assert: (targetGraph isKindOf: SquotMutableObjectGraph). - ^ self rematerializeGraph: aShadowGraph into: targetGraph \ No newline at end of file diff --git a/src/Squot.package/SquotShadowMaterializer.class/instance/rematerializeGraph.into..st b/src/Squot.package/SquotShadowMaterializer.class/instance/rematerializeGraph.into..st deleted file mode 100644 index 3073b1fba..000000000 --- a/src/Squot.package/SquotShadowMaterializer.class/instance/rematerializeGraph.into..st +++ /dev/null @@ -1,15 +0,0 @@ -public converting -rematerializeGraph: aShadowGraph into: targetMutableObjectGraph - | additionDiff NotFound | - targetGraph := targetMutableObjectGraph. - NotFound := #(). - aShadowGraph shadows do: - [:each | | existing | - existing := each sameIn: objectRegistry asIn: aShadowGraph ifAbsent: [NotFound]. - existing ~~ NotFound - ifTrue: [targetMutableObjectGraph assign: (objectRegistry nameOf: existing) to: existing]]. - additionDiff := targetMutableObjectGraph squotDiffAgainst: aShadowGraph. - (convertedObjects := SquotPatcher new) - registry: targetMutableObjectGraph; - apply: additionDiff toLoadedGraph: targetMutableObjectGraph. - ^ targetMutableObjectGraph startObject \ No newline at end of file diff --git a/src/Squot.package/SquotShadowMaterializer.class/instance/sourceGraph..st b/src/Squot.package/SquotShadowMaterializer.class/instance/sourceGraph..st deleted file mode 100644 index 851677a81..000000000 --- a/src/Squot.package/SquotShadowMaterializer.class/instance/sourceGraph..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -sourceGraph: anObject - sourceGraph := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotShadowMaterializer.class/instance/sourceGraph.st b/src/Squot.package/SquotShadowMaterializer.class/instance/sourceGraph.st deleted file mode 100644 index 7b9263a1f..000000000 --- a/src/Squot.package/SquotShadowMaterializer.class/instance/sourceGraph.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -sourceGraph - ^ sourceGraph \ No newline at end of file diff --git a/src/Squot.package/SquotShadowMaterializer.class/instance/targetGraph..st b/src/Squot.package/SquotShadowMaterializer.class/instance/targetGraph..st deleted file mode 100644 index f75909327..000000000 --- a/src/Squot.package/SquotShadowMaterializer.class/instance/targetGraph..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -targetGraph: anObjectGraph - targetGraph := anObjectGraph. \ No newline at end of file diff --git a/src/Squot.package/SquotShadowMaterializer.class/instance/targetGraph.st b/src/Squot.package/SquotShadowMaterializer.class/instance/targetGraph.st deleted file mode 100644 index a816b45b8..000000000 --- a/src/Squot.package/SquotShadowMaterializer.class/instance/targetGraph.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -targetGraph - ^ targetGraph \ No newline at end of file diff --git a/src/Squot.package/SquotShadowMaterializer.class/methodProperties.json b/src/Squot.package/SquotShadowMaterializer.class/methodProperties.json deleted file mode 100644 index 6c49f6974..000000000 --- a/src/Squot.package/SquotShadowMaterializer.class/methodProperties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "initialize" : "jr 7/30/2017 22:04", - "objectGraph" : "jr 7/30/2017 02:18", - "registry" : "jr 7/29/2017 18:15", - "registry:" : "jr 7/6/2017 15:29", - "rematerializeGraph:" : "jr 7/25/2021 15:09", - "rematerializeGraph:into:" : "jr 9/10/2021 22:52", - "sourceGraph" : "jr 7/30/2017 02:20", - "sourceGraph:" : "jr 7/30/2017 02:20", - "targetGraph" : "jr 7/30/2017 02:15", - "targetGraph:" : "jr 7/30/2017 02:15" } } diff --git a/src/Squot.package/SquotShadowMaterializer.class/properties.json b/src/Squot.package/SquotShadowMaterializer.class/properties.json deleted file mode 100644 index 560f0f205..000000000 --- a/src/Squot.package/SquotShadowMaterializer.class/properties.json +++ /dev/null @@ -1,21 +0,0 @@ -{ - "category" : "Squot-Shadows", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 4/17/2021 18:36", - "instvars" : [ - "convertedObjects", - "objectRegistry", - "sourceGraph", - "targetGraph", - "walk", - "remainingReferences", - "pendingReferences", - "pendingReferencesForHash" ], - "name" : "SquotShadowMaterializer", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotShadowMock.class/README.md b/src/Squot.package/SquotShadowMock.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotShadowMock.class/methodProperties.json b/src/Squot.package/SquotShadowMock.class/methodProperties.json deleted file mode 100644 index 0e4a66223..000000000 --- a/src/Squot.package/SquotShadowMock.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - } } diff --git a/src/Squot.package/SquotShadowMock.class/properties.json b/src/Squot.package/SquotShadowMock.class/properties.json deleted file mode 100644 index c7b37e4ed..000000000 --- a/src/Squot.package/SquotShadowMock.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Support", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotShadowMock", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotShadowPatchingTest.class/README.md b/src/Squot.package/SquotShadowPatchingTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotShadowPatchingTest.class/instance/expectedFailures.st b/src/Squot.package/SquotShadowPatchingTest.class/instance/expectedFailures.st deleted file mode 100644 index de5778bee..000000000 --- a/src/Squot.package/SquotShadowPatchingTest.class/instance/expectedFailures.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -expectedFailures - ^ #(testUpdatesReferencesOfChangedShadows testUpdatesNameMappingConsistently "not implemented yet") \ No newline at end of file diff --git a/src/Squot.package/SquotShadowPatchingTest.class/instance/patchGraph.st b/src/Squot.package/SquotShadowPatchingTest.class/instance/patchGraph.st deleted file mode 100644 index 030175ca0..000000000 --- a/src/Squot.package/SquotShadowPatchingTest.class/instance/patchGraph.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -patchGraph - | source | - sharedObject := ValueHolder new contents: 1; yourself. - source := Array with: sharedObject with: (Array with: sharedObject) with: Array new. - patchedGraph := self patched: source asIn: - [sharedObject contents: 2. - source at: 3 put: (Array with: (source at: 3))]. - nameOfSharedObject := objectRegistry nameOf: sharedObject. - patchedShadowOfSharedObject := patchedGraph shadowNamed: nameOfSharedObject. - ^ patchedGraph \ No newline at end of file diff --git a/src/Squot.package/SquotShadowPatchingTest.class/instance/patched.asIn..st b/src/Squot.package/SquotShadowPatchingTest.class/instance/patched.asIn..st deleted file mode 100644 index 11aa3f69d..000000000 --- a/src/Squot.package/SquotShadowPatchingTest.class/instance/patched.asIn..st +++ /dev/null @@ -1,9 +0,0 @@ -tests -patched: anObject asIn: aBlock - | patched originalGraph changedGraph | - originalGraph := (capturer captureGraph: anObject) asShadowGraph. - aBlock value. - changedGraph := (capturer captureGraph: anObject) asShadowGraph. - diff := originalGraph squotDiffAgainst: changedGraph. - patched := diff squotApplyTo: originalGraph mutableCopy. - ^ patched \ No newline at end of file diff --git a/src/Squot.package/SquotShadowPatchingTest.class/instance/setUp.st b/src/Squot.package/SquotShadowPatchingTest.class/instance/setUp.st deleted file mode 100644 index 29e271998..000000000 --- a/src/Squot.package/SquotShadowPatchingTest.class/instance/setUp.st +++ /dev/null @@ -1,5 +0,0 @@ -running -setUp - capturer := SquotObjectCapturer new. - objectRegistry := SquotObjectRegistry new. - capturer registry: objectRegistry. \ No newline at end of file diff --git a/src/Squot.package/SquotShadowPatchingTest.class/instance/testPatchesShadowsCorrectly.st b/src/Squot.package/SquotShadowPatchingTest.class/instance/testPatchesShadowsCorrectly.st deleted file mode 100644 index dfced73a3..000000000 --- a/src/Squot.package/SquotShadowPatchingTest.class/instance/testPatchesShadowsCorrectly.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testPatchesShadowsCorrectly - self patchGraph. - self assert: - ((patchedGraph shadowNamed: (objectRegistry nameOf: sharedObject)) - slots at: 'contents') = 2 captureWithSquot - description: 'not patched correctly'. \ No newline at end of file diff --git a/src/Squot.package/SquotShadowPatchingTest.class/instance/testUpdatesNameMappingConsistently.st b/src/Squot.package/SquotShadowPatchingTest.class/instance/testUpdatesNameMappingConsistently.st deleted file mode 100644 index fb43381a4..000000000 --- a/src/Squot.package/SquotShadowPatchingTest.class/instance/testUpdatesNameMappingConsistently.st +++ /dev/null @@ -1,16 +0,0 @@ -tests -testUpdatesNameMappingConsistently - | unchangedArray original name decoratorName | - self patchGraph. - unchangedArray := (patchedGraph startShadow slots at: 3) slots at: 1. - original := diff left startShadow slots at: 3. - name := diff left nameOf: original undecorated. - decoratorName := unchangedArray name. - self assert: (patchedGraph shadowNamed: name) == unchangedArray undecorated - description: 'name mapping should be consistent with graph'; - assert: (patchedGraph shadowNamed: decoratorName) == unchangedArray undecorated - description: 'decorated objects should be retrievable by name'; - assert: (patchedGraph nameOf: unchangedArray undecorated ifAbsent: []) notNil - description: 'must be possible to look up the name of a reached object'; - assert: decoratorName equals: (patchedGraph nameOf: unchangedArray undecorated ifAbsent: []) - description: 'names should be consistent with the decoration'. \ No newline at end of file diff --git a/src/Squot.package/SquotShadowPatchingTest.class/instance/testUpdatesReferencesOfChangedShadows.st b/src/Squot.package/SquotShadowPatchingTest.class/instance/testUpdatesReferencesOfChangedShadows.st deleted file mode 100644 index 7f708d254..000000000 --- a/src/Squot.package/SquotShadowPatchingTest.class/instance/testUpdatesReferencesOfChangedShadows.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -testUpdatesReferencesOfChangedShadows - self patchGraph. - self assert: - (patchedGraph startShadow slots at: 1) value undecorated - == patchedShadowOfSharedObject - description: 'references not updated'; - assert: - (patchedGraph startShadow slots at: 1) value undecorated - == ((patchedGraph startShadow slots at: 2) value slots at: 1) value undecorated - description: 'unconsistent references'. \ No newline at end of file diff --git a/src/Squot.package/SquotShadowPatchingTest.class/methodProperties.json b/src/Squot.package/SquotShadowPatchingTest.class/methodProperties.json deleted file mode 100644 index 7a0f3a7e7..000000000 --- a/src/Squot.package/SquotShadowPatchingTest.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "expectedFailures" : "jr 8/8/2021 15:21", - "patchGraph" : "jr 7/31/2021 16:03", - "patched:asIn:" : "jr 7/31/2021 15:48", - "setUp" : "jr 7/31/2021 16:01", - "testPatchesShadowsCorrectly" : "jr 7/31/2021 16:02", - "testUpdatesNameMappingConsistently" : "jr 7/31/2021 16:13", - "testUpdatesReferencesOfChangedShadows" : "jr 7/31/2021 16:02" } } diff --git a/src/Squot.package/SquotShadowPatchingTest.class/properties.json b/src/Squot.package/SquotShadowPatchingTest.class/properties.json deleted file mode 100644 index 38ebfb8bf..000000000 --- a/src/Squot.package/SquotShadowPatchingTest.class/properties.json +++ /dev/null @@ -1,21 +0,0 @@ -{ - "category" : "Squot-Tests-Diffs", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "capturer", - "objectRegistry", - "materializedObject", - "sharedObject", - "diff", - "patchedGraph", - "nameOfSharedObject", - "patchedShadowOfSharedObject" ], - "name" : "SquotShadowPatchingTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotShadowSlot.class/README.md b/src/Squot.package/SquotShadowSlot.class/README.md deleted file mode 100644 index ff80295d7..000000000 --- a/src/Squot.package/SquotShadowSlot.class/README.md +++ /dev/null @@ -1 +0,0 @@ -Abstract superclass for slots of shadow objects. \ No newline at end of file diff --git a/src/Squot.package/SquotShadowSlot.class/instance/addTo..st b/src/Squot.package/SquotShadowSlot.class/instance/addTo..st deleted file mode 100644 index 6a1d24c2c..000000000 --- a/src/Squot.package/SquotShadowSlot.class/instance/addTo..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -addTo: anObjectShadow - self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotShadowSlot.class/instance/addTo.with..st b/src/Squot.package/SquotShadowSlot.class/instance/addTo.with..st deleted file mode 100644 index beecc954a..000000000 --- a/src/Squot.package/SquotShadowSlot.class/instance/addTo.with..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -addTo: anObjectShadow with: aPatcher - self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotShadowSlot.class/instance/asReference.st b/src/Squot.package/SquotShadowSlot.class/instance/asReference.st deleted file mode 100644 index 11e5e82d1..000000000 --- a/src/Squot.package/SquotShadowSlot.class/instance/asReference.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -asReference - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotShadowSlot.class/instance/lookupIn..st b/src/Squot.package/SquotShadowSlot.class/instance/lookupIn..st deleted file mode 100644 index 34e4d8843..000000000 --- a/src/Squot.package/SquotShadowSlot.class/instance/lookupIn..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -lookupIn: anObjectShadow - self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotShadowSlot.class/instance/newNameFragment.st b/src/Squot.package/SquotShadowSlot.class/instance/newNameFragment.st deleted file mode 100644 index 53c8b84d0..000000000 --- a/src/Squot.package/SquotShadowSlot.class/instance/newNameFragment.st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -newNameFragment - "Answer a fragment of the name of the object referenced by this slot. - The name should contribute to the understanding of an inspecting user how the referenced object was captured." - ^ self key - \ No newline at end of file diff --git a/src/Squot.package/SquotShadowSlot.class/instance/removeFrom..st b/src/Squot.package/SquotShadowSlot.class/instance/removeFrom..st deleted file mode 100644 index 21937cc5c..000000000 --- a/src/Squot.package/SquotShadowSlot.class/instance/removeFrom..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -removeFrom: anObjectShadow - self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotShadowSlot.class/instance/removeFrom.with..st b/src/Squot.package/SquotShadowSlot.class/instance/removeFrom.with..st deleted file mode 100644 index 14b73a23c..000000000 --- a/src/Squot.package/SquotShadowSlot.class/instance/removeFrom.with..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -removeFrom: anObjectShadow with: aPatcher - self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotShadowSlot.class/instance/squotDiffAgainst..st b/src/Squot.package/SquotShadowSlot.class/instance/squotDiffAgainst..st deleted file mode 100644 index aaf888c51..000000000 --- a/src/Squot.package/SquotShadowSlot.class/instance/squotDiffAgainst..st +++ /dev/null @@ -1,4 +0,0 @@ -comparing -squotDiffAgainst: otherSlot - "Answer a slot diff for turning me into otherSlot." - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotShadowSlot.class/instance/value..st b/src/Squot.package/SquotShadowSlot.class/instance/value..st deleted file mode 100644 index 381c57397..000000000 --- a/src/Squot.package/SquotShadowSlot.class/instance/value..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -value: anObject - "Overridden because of the object reference trait method" - ^ super value: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotShadowSlot.class/instance/value.st b/src/Squot.package/SquotShadowSlot.class/instance/value.st deleted file mode 100644 index 9a3da2f48..000000000 --- a/src/Squot.package/SquotShadowSlot.class/instance/value.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -value - "Overridden because of the object reference trait method" - ^ super value \ No newline at end of file diff --git a/src/Squot.package/SquotShadowSlot.class/methodProperties.json b/src/Squot.package/SquotShadowSlot.class/methodProperties.json deleted file mode 100644 index 784acff88..000000000 --- a/src/Squot.package/SquotShadowSlot.class/methodProperties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "addTo:" : "jr 9/23/2019 23:19", - "addTo:with:" : "jr 9/23/2019 23:20", - "asReference" : "jr 4/10/2021 12:25", - "lookupIn:" : "jr 7/16/2017 15:32", - "newNameFragment" : "jr 6/21/2017 17:05", - "removeFrom:" : "jr 9/23/2019 23:19", - "removeFrom:with:" : "jr 9/23/2019 23:20", - "squotDiffAgainst:" : "jr 9/18/2019 20:24", - "value" : "jr 9/1/2019 12:06", - "value:" : "jr 9/1/2019 12:06" } } diff --git a/src/Squot.package/SquotShadowSlot.class/properties.json b/src/Squot.package/SquotShadowSlot.class/properties.json deleted file mode 100644 index 356a366cd..000000000 --- a/src/Squot.package/SquotShadowSlot.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Shadows", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotDiffable classTrait + TSquotObjectReference classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 6/22/2017 00:45", - "instvars" : [ - ], - "name" : "SquotShadowSlot", - "pools" : [ - ], - "super" : "Association", - "traitcomposition" : "TSquotDiffable + TSquotObjectReference", - "type" : "normal" } diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/README.md b/src/Squot.package/SquotSimpleMergeTestScenario.class/README.md deleted file mode 100644 index f95f134d1..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/README.md +++ /dev/null @@ -1,4 +0,0 @@ -I create three versions that together form a V-shaped history. -The firstVersion comes at the base. Two other versions are children of it. -The secondVersion is on the main historian, the thirdVersion is created by the otherHistorian. -All versions contain a single sampleClass and a few methods depending on the concrete scenario (see subclasses). \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/assertSecondMethodUnmodifiedBy.with..st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/assertSecondMethodUnmodifiedBy.with..st deleted file mode 100644 index 818df6d6c..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/assertSecondMethodUnmodifiedBy.with..st +++ /dev/null @@ -1,8 +0,0 @@ -asserting -assertSecondMethodUnmodifiedBy: aMerge with: aTestCase - aTestCase deny: - ((aMerge mergeAt: packagePath) mergeOfTrackedObject resolvedPatch operations - anySatisfy: - [:each | - each definition isMethodDefinition - and: [each definition selector = secondMethod selector]]). \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/assertSecondMethodUnmodifiedWith..st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/assertSecondMethodUnmodifiedWith..st deleted file mode 100644 index 838c952e9..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/assertSecondMethodUnmodifiedWith..st +++ /dev/null @@ -1,6 +0,0 @@ -asserting -assertSecondMethodUnmodifiedWith: aTestCase - self updateSampleClass. - aTestCase - assert: (secondMethod equivalentTo: sampleClass >> #secondMethod) - description: 'second method unchanged'. \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/assertThirdMethodLoadedWith..st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/assertThirdMethodLoadedWith..st deleted file mode 100644 index 6844ec288..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/assertThirdMethodLoadedWith..st +++ /dev/null @@ -1,5 +0,0 @@ -asserting -assertThirdMethodLoadedWith: aTestCase - self updateSampleClass. - aTestCase assert: (sampleClass includesSelector: #thirdMethod) - description: 'third method loaded'. \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/assertThirdMethodWillBeAdded.with..st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/assertThirdMethodWillBeAdded.with..st deleted file mode 100644 index d9dae1bc1..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/assertThirdMethodWillBeAdded.with..st +++ /dev/null @@ -1,11 +0,0 @@ -asserting -assertThirdMethodWillBeAdded: aMerge with: aTestCase - | operation | - operation := (aMerge mergeAt: packagePath) mergeOfTrackedObject resolvedPatch - operations - detect: - [:each | - each definition isMethodDefinition - and: [each toSource asString = thirdMethod source]] - ifNone: [aTestCase fail: 'third method not in the patch']. - aTestCase assert: operation isAddition description: 'third method not added'. \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/classFactory.st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/classFactory.st deleted file mode 100644 index 89edda88c..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/classFactory.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -classFactory - - ^ classFactory diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/createFirstVersion.st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/createFirstVersion.st deleted file mode 100644 index 84b0024f9..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/createFirstVersion.st +++ /dev/null @@ -1,14 +0,0 @@ -setUp -createFirstVersion - SystemChangeNotifier uniqueInstance doSilently: [sampleClass := classFactory newClass]. - sampleClass compileSilently: 'firstMethod ^ self' classified: 'methods of first version'. - packageInfo := PackageInfo named: classFactory packageName. - packagePath := (MCSnapshot empty asSquotArtifactForPackage: packageInfo) path. - workingCopy add: packageInfo at: packagePath. - packageId := (workingCopy artifactAt: packagePath) id. - workingCopy newSaveOperation - message: 'first version'; - timestamp: DateAndTime now - 5 minutes; - applyToWorkingCopy. - firstVersion := workingCopy baseVersion. - ^ firstVersion \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/createSecondVersion.st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/createSecondVersion.st deleted file mode 100644 index 694af3955..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/createSecondVersion.st +++ /dev/null @@ -1,8 +0,0 @@ -setUp -createSecondVersion - sampleClass compileSilently: 'secondMethod ^ self' - classified: 'methods of second version'. - secondMethod := sampleClass >> #secondMethod. - workingCopy saveVersionWithMessage: 'second version'. - secondVersion := workingCopy baseVersion. - ^ secondVersion \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/createThirdVersion.st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/createThirdVersion.st deleted file mode 100644 index 69b5c049c..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/createThirdVersion.st +++ /dev/null @@ -1,28 +0,0 @@ -setUp -createThirdVersion - | firstSnapshot packageArtifact newSnapshot | - firstSnapshot := firstVersion snapshot. - packageArtifact := firstSnapshot artifactAt: packagePath. - newSnapshot := - firstSnapshot createNewBuilder - add: (((MCSnapshot fromDefinitions: - packageArtifact packageArtifactDefinitions , - {thirdMethod := MCMethodDefinition - className: sampleClass name - selector: #thirdMethod - category: 'methods of third version' - timeStamp: 'whatever' - source: ('thirdMethod ^ self')}) - asSquotArtifactForPackage: packageInfo) - id: packageArtifact id; - yourself); - buildSnapshot. - otherHistorian := repository historianNamed: 'other'. - otherHistorian version: firstVersion. - thirdVersion := otherHistorian - createNewVersion: newSnapshot - with: [:newVersion | - newVersion message: 'third version'; - author: workingCopy defaultAuthor; - timestamp: DateAndTime now - 1 minute]. - ^ thirdVersion \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/firstVersion..st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/firstVersion..st deleted file mode 100644 index 139d0d933..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/firstVersion..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -firstVersion: anObject - - firstVersion := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/firstVersion.st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/firstVersion.st deleted file mode 100644 index 7ee192ac0..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/firstVersion.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -firstVersion - - ^ firstVersion \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/initializeForTestCase..st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/initializeForTestCase..st deleted file mode 100644 index 79fbf1e02..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/initializeForTestCase..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initializeForTestCase: aWorkingCopyTestCase - super initializeForTestCase: aWorkingCopyTestCase. - classFactory := aWorkingCopyTestCase classFactory. \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/otherHistorian..st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/otherHistorian..st deleted file mode 100644 index 4d64f358f..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/otherHistorian..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -otherHistorian: anObject - - otherHistorian := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/otherHistorian.st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/otherHistorian.st deleted file mode 100644 index 7209e77b9..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/otherHistorian.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -otherHistorian - - ^ otherHistorian \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/packageId.st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/packageId.st deleted file mode 100644 index 9f0db3b05..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/packageId.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -packageId - ^ packageId \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/packageInfo..st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/packageInfo..st deleted file mode 100644 index ac0646ea6..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/packageInfo..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -packageInfo: anObject - - packageInfo := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/packageInfo.st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/packageInfo.st deleted file mode 100644 index 334719d74..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/packageInfo.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -packageInfo - - ^ packageInfo \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/packagePath..st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/packagePath..st deleted file mode 100644 index c309dcf82..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/packagePath..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -packagePath: anObject - - packagePath := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/packagePath.st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/packagePath.st deleted file mode 100644 index 508783214..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/packagePath.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -packagePath - - ^ packagePath \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/sampleClass..st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/sampleClass..st deleted file mode 100644 index 649ce603f..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/sampleClass..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -sampleClass: anObject - - sampleClass := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/sampleClass.st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/sampleClass.st deleted file mode 100644 index 289e3bf75..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/sampleClass.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -sampleClass - - ^ sampleClass \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/secondMethod..st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/secondMethod..st deleted file mode 100644 index efb40333b..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/secondMethod..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -secondMethod: anObject - - secondMethod := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/secondMethod.st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/secondMethod.st deleted file mode 100644 index 2691c2430..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/secondMethod.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -secondMethod - - ^ secondMethod \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/secondVersion..st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/secondVersion..st deleted file mode 100644 index 359a82895..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/secondVersion..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -secondVersion: anObject - - secondVersion := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/secondVersion.st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/secondVersion.st deleted file mode 100644 index 1d5a49120..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/secondVersion.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -secondVersion - - ^ secondVersion \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/setUp.st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/setUp.st deleted file mode 100644 index 8a152e651..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/setUp.st +++ /dev/null @@ -1,6 +0,0 @@ -setUp -setUp - repository withUnitOfWork: - [self createFirstVersion; - createSecondVersion; - createThirdVersion]. \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/thirdMethod..st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/thirdMethod..st deleted file mode 100644 index bc5a23ea9..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/thirdMethod..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -thirdMethod: anObject - - thirdMethod := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/thirdMethod.st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/thirdMethod.st deleted file mode 100644 index f618c18e4..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/thirdMethod.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -thirdMethod - - ^ thirdMethod \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/thirdVersion..st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/thirdVersion..st deleted file mode 100644 index 2a15a7870..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/thirdVersion..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -thirdVersion: anObject - - thirdVersion := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/thirdVersion.st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/thirdVersion.st deleted file mode 100644 index f745bfafd..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/thirdVersion.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -thirdVersion - - ^ thirdVersion \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/unloadPackage.st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/unloadPackage.st deleted file mode 100644 index fd27c9873..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/unloadPackage.st +++ /dev/null @@ -1,11 +0,0 @@ -setUp -unloadPackage - | artifactSnapshot | - artifactSnapshot := (workingCopy artifactAt: packagePath) snapshot. - sampleClass := sampleClass name. - SystemChangeNotifier uniqueInstance doSilently: - [MCPackageLoader unloadPackage: packageInfo mcPackage]. - workingCopy - removeAt: packagePath; - addUnloaded: artifactSnapshot. - ^ workingCopy artifactAt: packagePath \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/updateSampleClass.st b/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/updateSampleClass.st deleted file mode 100644 index e7ec4f1ed..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/instance/updateSampleClass.st +++ /dev/null @@ -1,9 +0,0 @@ -setUp -updateSampleClass - | newClass | - sampleClass isString ifTrue: - [newClass := (PackageInfo - squotEnvironmentOf: (workingCopy artifactAt: packagePath)) - classNamed: sampleClass. - newClass ifNil: [(NotFound object: sampleClass) signal: 'Sample class not found (vanished or not recreated)']. - sampleClass := newClass]. \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/methodProperties.json b/src/Squot.package/SquotSimpleMergeTestScenario.class/methodProperties.json deleted file mode 100644 index ac6e55273..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/methodProperties.json +++ /dev/null @@ -1,35 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "assertSecondMethodUnmodifiedBy:with:" : "jr 1/5/2020 18:34", - "assertSecondMethodUnmodifiedWith:" : "jr 11/24/2020 00:38", - "assertThirdMethodLoadedWith:" : "jr 11/22/2020 21:37", - "assertThirdMethodWillBeAdded:with:" : "jr 1/5/2020 19:17", - "classFactory" : "jr 10/24/2020 15:13", - "createFirstVersion" : "jr 2/13/2022 18:48", - "createSecondVersion" : "jr 1/26/2020 22:57", - "createThirdVersion" : "jr 2/13/2022 23:11", - "firstVersion" : "jr 1/5/2020 18:17", - "firstVersion:" : "jr 1/5/2020 18:17", - "initializeForTestCase:" : "jr 10/24/2020 15:12", - "otherHistorian" : "jr 1/5/2020 18:17", - "otherHistorian:" : "jr 1/5/2020 18:17", - "packageId" : "jr 2/13/2022 18:48", - "packageInfo" : "jr 1/5/2020 18:17", - "packageInfo:" : "jr 1/5/2020 18:17", - "packagePath" : "jr 1/5/2020 18:17", - "packagePath:" : "jr 1/5/2020 18:17", - "sampleClass" : "jr 1/5/2020 18:17", - "sampleClass:" : "jr 1/5/2020 18:17", - "secondMethod" : "jr 1/5/2020 18:17", - "secondMethod:" : "jr 1/5/2020 18:17", - "secondVersion" : "jr 1/5/2020 18:17", - "secondVersion:" : "jr 1/5/2020 18:17", - "setUp" : "jr 3/2/2020 22:43", - "thirdMethod" : "jr 1/5/2020 18:17", - "thirdMethod:" : "jr 1/5/2020 18:17", - "thirdVersion" : "jr 1/5/2020 18:17", - "thirdVersion:" : "jr 1/5/2020 18:17", - "unloadPackage" : "jr 11/22/2020 21:34", - "updateSampleClass" : "jr 7/4/2021 22:38" } } diff --git a/src/Squot.package/SquotSimpleMergeTestScenario.class/properties.json b/src/Squot.package/SquotSimpleMergeTestScenario.class/properties.json deleted file mode 100644 index 3553a4fa9..000000000 --- a/src/Squot.package/SquotSimpleMergeTestScenario.class/properties.json +++ /dev/null @@ -1,24 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 1/5/2020 18:05", - "instvars" : [ - "packageInfo", - "packagePath", - "firstVersion", - "secondVersion", - "thirdVersion", - "sampleClass", - "otherHistorian", - "secondMethod", - "thirdMethod", - "classFactory", - "packageId" ], - "name" : "SquotSimpleMergeTestScenario", - "pools" : [ - ], - "super" : "SquotWorkingCopyTestScenario", - "type" : "normal" } diff --git a/src/Squot.package/SquotSimpleWorkingCopyTest.class/README.md b/src/Squot.package/SquotSimpleWorkingCopyTest.class/README.md deleted file mode 100644 index 5e172702d..000000000 --- a/src/Squot.package/SquotSimpleWorkingCopyTest.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I test some basic behavior of working copies (that did not fit into any other sibling test class). \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleWorkingCopyTest.class/instance/testAdditionalParentsWhenSavedNonInteractively.st b/src/Squot.package/SquotSimpleWorkingCopyTest.class/instance/testAdditionalParentsWhenSavedNonInteractively.st deleted file mode 100644 index 622524e82..000000000 --- a/src/Squot.package/SquotSimpleWorkingCopyTest.class/instance/testAdditionalParentsWhenSavedNonInteractively.st +++ /dev/null @@ -1,18 +0,0 @@ -tests -testAdditionalParentsWhenSavedNonInteractively - | text firstVersion secondVersion thirdVersion | - "given" - firstVersion := (workingCopy - add: (text := ValueHolder new contents: 'example') at: 'some-text'; - newSaveOperation) message: 'first version'; applyToWorkingCopy. - text contents: text contents, ' 1'. - secondVersion := workingCopy newSaveOperation message: 'append 1'; applyToWorkingCopy. - workingCopy loadVersion: firstVersion interactive: false. - self assert: 'example' equals: text contents. - "when" - workingCopy addParentVersion: secondVersion. - text contents: text contents, ' 2'. - thirdVersion := workingCopy newSaveOperation message: 'append 2'; applyToWorkingCopy. - "then" - self assert: thirdVersion parents size = 2. - self assert: thirdVersion parents asSet = (Set with: firstVersion with: secondVersion). \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleWorkingCopyTest.class/instance/testAdditionalParentsWhenSavedNonInteractivelyOld.st b/src/Squot.package/SquotSimpleWorkingCopyTest.class/instance/testAdditionalParentsWhenSavedNonInteractivelyOld.st deleted file mode 100644 index 955f86775..000000000 --- a/src/Squot.package/SquotSimpleWorkingCopyTest.class/instance/testAdditionalParentsWhenSavedNonInteractivelyOld.st +++ /dev/null @@ -1,21 +0,0 @@ -tests -testAdditionalParentsWhenSavedNonInteractivelyOld - | text firstVersion secondVersion thirdVersion | - "given" - [firstVersion := workingCopy - add: (text := ValueHolder new contents: 'example') at: 'some-text'; - saveVersionWithMessage: 'first version'] - on: Deprecation do: [:e | e resume]. - text contents: text contents, ' 1'. - [secondVersion := workingCopy saveVersionWithMessage: 'append 1'] - on: Deprecation do: [:e | e resume]. - workingCopy loadVersion: firstVersion interactive: false. - self assert: 'example' equals: text contents. - "when" - workingCopy addParentVersion: secondVersion. - text contents: text contents, ' 2'. - [thirdVersion := workingCopy saveVersionWithMessage: 'append 2'] - on: Deprecation do: [:e | e resume]. - "then" - self assert: thirdVersion parents size = 2. - self assert: thirdVersion parents asSet = (Set with: firstVersion with: secondVersion). \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleWorkingCopyTest.class/instance/testCherryPickPreservesAuthor.st b/src/Squot.package/SquotSimpleWorkingCopyTest.class/instance/testCherryPickPreservesAuthor.st deleted file mode 100644 index 4a96e1ca6..000000000 --- a/src/Squot.package/SquotSimpleWorkingCopyTest.class/instance/testCherryPickPreservesAuthor.st +++ /dev/null @@ -1,21 +0,0 @@ -tests -testCherryPickPreservesAuthor - | master otherHistorian | - workingCopy saveVersionWithMessage: 'empty start'. - master := workingCopy loadedHistorian. - self assert: workingCopy baseVersion author = workingCopy defaultAuthor; - deny: workingCopy defaultAuthor = 'someone else'. - otherHistorian := repository historianNamed: 'other'. - self assert: otherHistorian ~= master. - otherHistorian version: workingCopy baseVersion. - workingCopy add: Object new at: 'object'. - workingCopy newSaveOperation message: 'add object'; - author: 'someone else'; - applyToWorkingCopy. - self assert: workingCopy baseVersion author = 'someone else'. - workingCopy switchTo: otherHistorian. - workingCopy newCherryPickOperation - pickedVersion: master version; - relevantParentOfPickedVersion: master version parents first; - applyToWorkingCopy. - self assert: 'someone else' equals: workingCopy baseVersion author. \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleWorkingCopyTest.class/instance/testOldUnnecessaryMergeIsCanceled.st b/src/Squot.package/SquotSimpleWorkingCopyTest.class/instance/testOldUnnecessaryMergeIsCanceled.st deleted file mode 100644 index 9a9e60dc4..000000000 --- a/src/Squot.package/SquotSimpleWorkingCopyTest.class/instance/testOldUnnecessaryMergeIsCanceled.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testOldUnnecessaryMergeIsCanceled - | firstVersion wasCanceled | - "given" - workingCopy - saveVersionWithMessage: 'first version'; - saveVersionWithMessage: 'successor version'. - firstVersion := workingCopy baseVersion parents first. - "when" - wasCanceled := false. - [[workingCopy mergeVersionInteractively: firstVersion ifCanceled: [wasCanceled := true]] - valueSupplyingAnswers: {{'*'. #default}}] - on: Deprecation do: [:d | d resume]. - "then" - self assert: wasCanceled. \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleWorkingCopyTest.class/instance/testSnapshotIncludesLoadOrder.st b/src/Squot.package/SquotSimpleWorkingCopyTest.class/instance/testSnapshotIncludesLoadOrder.st deleted file mode 100644 index a3c172d42..000000000 --- a/src/Squot.package/SquotSimpleWorkingCopyTest.class/instance/testSnapshotIncludesLoadOrder.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -testSnapshotIncludesLoadOrder - | snapshot | - "given" - store add: (StringHolder new contents: '1') at: '1'; - add: (StringHolder new contents: '2') at: '2'. - workingCopy loadOrder: store artifacts keys asArray reversed. - "when" - snapshot := workingCopy lazySnapshot. - "then" - self assert: snapshot loadOrder asArray = workingCopy loadOrder asArray. \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleWorkingCopyTest.class/instance/testUnnecessaryMergeIsCanceled.st b/src/Squot.package/SquotSimpleWorkingCopyTest.class/instance/testUnnecessaryMergeIsCanceled.st deleted file mode 100644 index 5026471a3..000000000 --- a/src/Squot.package/SquotSimpleWorkingCopyTest.class/instance/testUnnecessaryMergeIsCanceled.st +++ /dev/null @@ -1,16 +0,0 @@ -tests -testUnnecessaryMergeIsCanceled - | firstVersion | - "given" - workingCopy - saveVersionWithMessage: 'first version'; - saveVersionWithMessage: 'successor version'. - firstVersion := workingCopy baseVersion parents first. - self should: - "when" - [workingCopy newMergeOperation - mergeVersion: firstVersion; - prepare; - applyToWorkingCopy] - "then" - raise: SquotVersionAlreadyInHistory. \ No newline at end of file diff --git a/src/Squot.package/SquotSimpleWorkingCopyTest.class/methodProperties.json b/src/Squot.package/SquotSimpleWorkingCopyTest.class/methodProperties.json deleted file mode 100644 index 07332de73..000000000 --- a/src/Squot.package/SquotSimpleWorkingCopyTest.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testAdditionalParentsWhenSavedNonInteractively" : "jr 1/2/2021 00:50", - "testAdditionalParentsWhenSavedNonInteractivelyOld" : "jr 1/2/2021 00:51", - "testCherryPickPreservesAuthor" : "jr 2/1/2020 00:10", - "testOldUnnecessaryMergeIsCanceled" : "jr 9/22/2020 01:50", - "testSnapshotIncludesLoadOrder" : "jr 10/11/2020 23:14", - "testUnnecessaryMergeIsCanceled" : "jr 9/22/2020 01:52" } } diff --git a/src/Squot.package/SquotSimpleWorkingCopyTest.class/properties.json b/src/Squot.package/SquotSimpleWorkingCopyTest.class/properties.json deleted file mode 100644 index bfbc4aa88..000000000 --- a/src/Squot.package/SquotSimpleWorkingCopyTest.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classtraitcomposition" : "TTestCaseSuppressingProgressDisplay classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 5/4/2019 00:54", - "instvars" : [ - ], - "name" : "SquotSimpleWorkingCopyTest", - "pools" : [ - ], - "super" : "SquotWorkingCopyTestIndependentOfRepositoryType", - "traitcomposition" : "TTestCaseSuppressingProgressDisplay", - "type" : "normal" } diff --git a/src/Squot.package/SquotSlotAddition.class/README.md b/src/Squot.package/SquotSlotAddition.class/README.md deleted file mode 100644 index 9fd5ae269..000000000 --- a/src/Squot.package/SquotSlotAddition.class/README.md +++ /dev/null @@ -1,5 +0,0 @@ -I am the addition of a slot to an object. - -My value is the new slot, whose value in turn is the shadow of or reference to the added object. - -Because I might require a structural change to the patched object, I might imply a replacement of the object. \ No newline at end of file diff --git a/src/Squot.package/SquotSlotAddition.class/class/key.newSlot..st b/src/Squot.package/SquotSlotAddition.class/class/key.newSlot..st deleted file mode 100644 index 95275fc73..000000000 --- a/src/Squot.package/SquotSlotAddition.class/class/key.newSlot..st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -key: aKey newSlot: aSlot - ^ self key: aKey value: aSlot \ No newline at end of file diff --git a/src/Squot.package/SquotSlotAddition.class/instance/applyTo..st b/src/Squot.package/SquotSlotAddition.class/instance/applyTo..st deleted file mode 100644 index 582db0d25..000000000 --- a/src/Squot.package/SquotSlotAddition.class/instance/applyTo..st +++ /dev/null @@ -1,4 +0,0 @@ -Squot-diff-patching -applyTo: aShadow - "Apply my changes to aShadow (the representation of an object in a snapshot) and answer the result." - ^ self slotToBeAdded addTo: aShadow \ No newline at end of file diff --git a/src/Squot.package/SquotSlotAddition.class/instance/applyTo.with..st b/src/Squot.package/SquotSlotAddition.class/instance/applyTo.with..st deleted file mode 100644 index 3abfba97a..000000000 --- a/src/Squot.package/SquotSlotAddition.class/instance/applyTo.with..st +++ /dev/null @@ -1,4 +0,0 @@ -Squot-diff-patching -applyTo: aShadow with: aPatcher - "Apply my changes to aShadow (the representation of an object in a snapshot) and answer the result." - ^ self slotToBeAdded addTo: aShadow with: aPatcher \ No newline at end of file diff --git a/src/Squot.package/SquotSlotAddition.class/instance/asReferenceDiffWithDefaultOwners.reflectedIn..st b/src/Squot.package/SquotSlotAddition.class/instance/asReferenceDiffWithDefaultOwners.reflectedIn..st deleted file mode 100644 index 682d16f11..000000000 --- a/src/Squot.package/SquotSlotAddition.class/instance/asReferenceDiffWithDefaultOwners.reflectedIn..st +++ /dev/null @@ -1,7 +0,0 @@ -converting -asReferenceDiffWithDefaultOwners: leftAndRightShadows reflectedIn: aMirror - ^ SquotReferenceAddition - to: leftAndRightShadows first - reference: self slotToBeAdded asReference - target: self slotToBeAdded value - rightOwner: leftAndRightShadows second \ No newline at end of file diff --git a/src/Squot.package/SquotSlotAddition.class/instance/hierarchicalDiffTitle.st b/src/Squot.package/SquotSlotAddition.class/instance/hierarchicalDiffTitle.st deleted file mode 100644 index 8ffc85172..000000000 --- a/src/Squot.package/SquotSlotAddition.class/instance/hierarchicalDiffTitle.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools-Diffs -hierarchicalDiffTitle - ^ super hierarchicalDiffTitle, ' (added)' \ No newline at end of file diff --git a/src/Squot.package/SquotSlotAddition.class/instance/printDescriptionOn..st b/src/Squot.package/SquotSlotAddition.class/instance/printDescriptionOn..st deleted file mode 100644 index 272b5c10f..000000000 --- a/src/Squot.package/SquotSlotAddition.class/instance/printDescriptionOn..st +++ /dev/null @@ -1,3 +0,0 @@ -printing -printDescriptionOn: aStream - aStream nextPutAll: 'add '. \ No newline at end of file diff --git a/src/Squot.package/SquotSlotAddition.class/instance/slotShadowType.st b/src/Squot.package/SquotSlotAddition.class/instance/slotShadowType.st deleted file mode 100644 index 715b1c9b3..000000000 --- a/src/Squot.package/SquotSlotAddition.class/instance/slotShadowType.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -slotShadowType - ^ self slotToBeAdded class \ No newline at end of file diff --git a/src/Squot.package/SquotSlotAddition.class/instance/slotToBeAdded.st b/src/Squot.package/SquotSlotAddition.class/instance/slotToBeAdded.st deleted file mode 100644 index 9c3a1b2a3..000000000 --- a/src/Squot.package/SquotSlotAddition.class/instance/slotToBeAdded.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -slotToBeAdded - ^ self value \ No newline at end of file diff --git a/src/Squot.package/SquotSlotAddition.class/instance/squotHasChanges.st b/src/Squot.package/SquotSlotAddition.class/instance/squotHasChanges.st deleted file mode 100644 index 4ae7cf360..000000000 --- a/src/Squot.package/SquotSlotAddition.class/instance/squotHasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-diff-testing -squotHasChanges - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotSlotAddition.class/methodProperties.json b/src/Squot.package/SquotSlotAddition.class/methodProperties.json deleted file mode 100644 index 298cbd15e..000000000 --- a/src/Squot.package/SquotSlotAddition.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - "key:newSlot:" : "jr 6/22/2017 12:01" }, - "instance" : { - "applyTo:" : "jr 9/23/2019 23:18", - "applyTo:with:" : "jr 7/29/2017 21:27", - "asReferenceDiffWithDefaultOwners:reflectedIn:" : "jr 6/13/2021 20:43", - "hierarchicalDiffTitle" : "jr 6/25/2017 21:51", - "printDescriptionOn:" : "jr 6/18/2017 11:51", - "slotShadowType" : "jr 6/25/2017 21:57", - "slotToBeAdded" : "jr 6/18/2017 12:11", - "squotHasChanges" : "jr 6/17/2017 23:29" } } diff --git a/src/Squot.package/SquotSlotAddition.class/properties.json b/src/Squot.package/SquotSlotAddition.class/properties.json deleted file mode 100644 index 3a00f568d..000000000 --- a/src/Squot.package/SquotSlotAddition.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Diffs-Generic", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotAddition classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 6/18/2017 12:14", - "instvars" : [ - ], - "name" : "SquotSlotAddition", - "pools" : [ - ], - "super" : "SquotSlotDiff", - "traitcomposition" : "TSquotAddition", - "type" : "normal" } diff --git a/src/Squot.package/SquotSlotDiff.class/README.md b/src/Squot.package/SquotSlotDiff.class/README.md deleted file mode 100644 index 75e3166c0..000000000 --- a/src/Squot.package/SquotSlotDiff.class/README.md +++ /dev/null @@ -1,4 +0,0 @@ -I am the change to a slot of an object. - -My key is the identification of the slot (e. g., instance variable name, or variable part index). -My value is the diff that should be applied to the value of the slot. \ No newline at end of file diff --git a/src/Squot.package/SquotSlotDiff.class/instance/applyTo..st b/src/Squot.package/SquotSlotDiff.class/instance/applyTo..st deleted file mode 100644 index 046bdae2e..000000000 --- a/src/Squot.package/SquotSlotDiff.class/instance/applyTo..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-diff-patching -applyTo: aShadow - self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotSlotDiff.class/instance/applyTo.with..st b/src/Squot.package/SquotSlotDiff.class/instance/applyTo.with..st deleted file mode 100644 index b3f34b32e..000000000 --- a/src/Squot.package/SquotSlotDiff.class/instance/applyTo.with..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-diff-patching -applyTo: aShadow with: aPatcher - self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotSlotDiff.class/instance/asReferenceDiffWithDefaultOwners.reflectedIn..st b/src/Squot.package/SquotSlotDiff.class/instance/asReferenceDiffWithDefaultOwners.reflectedIn..st deleted file mode 100644 index 1961554a1..000000000 --- a/src/Squot.package/SquotSlotDiff.class/instance/asReferenceDiffWithDefaultOwners.reflectedIn..st +++ /dev/null @@ -1,3 +0,0 @@ -converting -asReferenceDiffWithDefaultOwners: leftAndRightShadows reflectedIn: aMirror - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotSlotDiff.class/instance/hierarchicalDiffTitle.st b/src/Squot.package/SquotSlotDiff.class/instance/hierarchicalDiffTitle.st deleted file mode 100644 index eb73a83b0..000000000 --- a/src/Squot.package/SquotSlotDiff.class/instance/hierarchicalDiffTitle.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools-Diffs -hierarchicalDiffTitle - ^ self key printString \ No newline at end of file diff --git a/src/Squot.package/SquotSlotDiff.class/instance/initializeSquotDiffNode.with..st b/src/Squot.package/SquotSlotDiff.class/instance/initializeSquotDiffNode.with..st deleted file mode 100644 index 816438305..000000000 --- a/src/Squot.package/SquotSlotDiff.class/instance/initializeSquotDiffNode.with..st +++ /dev/null @@ -1,3 +0,0 @@ -converting -initializeSquotDiffNode: aSquotDiffNode with: aDiffNodesBuilder - self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotSlotDiff.class/instance/printDescriptionOn..st b/src/Squot.package/SquotSlotDiff.class/instance/printDescriptionOn..st deleted file mode 100644 index 5537a8442..000000000 --- a/src/Squot.package/SquotSlotDiff.class/instance/printDescriptionOn..st +++ /dev/null @@ -1,3 +0,0 @@ -printing -printDescriptionOn: aStream - aStream nextPutAll: 'change of '. \ No newline at end of file diff --git a/src/Squot.package/SquotSlotDiff.class/instance/printOn..st b/src/Squot.package/SquotSlotDiff.class/instance/printOn..st deleted file mode 100644 index 6c8644ce2..000000000 --- a/src/Squot.package/SquotSlotDiff.class/instance/printOn..st +++ /dev/null @@ -1,4 +0,0 @@ -printing -printOn: aStream - self printDescriptionOn: aStream. - super printOn: aStream. \ No newline at end of file diff --git a/src/Squot.package/SquotSlotDiff.class/instance/squotHasChanges.st b/src/Squot.package/SquotSlotDiff.class/instance/squotHasChanges.st deleted file mode 100644 index 0d49c12d8..000000000 --- a/src/Squot.package/SquotSlotDiff.class/instance/squotHasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-diff-testing -squotHasChanges - self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotSlotDiff.class/methodProperties.json b/src/Squot.package/SquotSlotDiff.class/methodProperties.json deleted file mode 100644 index 282336667..000000000 --- a/src/Squot.package/SquotSlotDiff.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "applyTo:" : "jr 9/23/2019 23:18", - "applyTo:with:" : "jr 7/29/2017 21:44", - "asReferenceDiffWithDefaultOwners:reflectedIn:" : "jr 6/13/2021 20:37", - "hierarchicalDiffTitle" : "jr 6/25/2017 21:41", - "initializeSquotDiffNode:with:" : "jr 11/18/2017 22:37", - "printDescriptionOn:" : "jr 6/18/2017 11:50", - "printOn:" : "jr 6/18/2017 11:50", - "squotHasChanges" : "jr 7/29/2017 21:44" } } diff --git a/src/Squot.package/SquotSlotDiff.class/properties.json b/src/Squot.package/SquotSlotDiff.class/properties.json deleted file mode 100644 index 2850ea909..000000000 --- a/src/Squot.package/SquotSlotDiff.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Diffs-Generic", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 6/18/2017 00:15", - "instvars" : [ - ], - "name" : "SquotSlotDiff", - "pools" : [ - ], - "super" : "Association", - "type" : "normal" } diff --git a/src/Squot.package/SquotSlotReassignment.class/README.md b/src/Squot.package/SquotSlotReassignment.class/README.md deleted file mode 100644 index 6e580ab8c..000000000 --- a/src/Squot.package/SquotSlotReassignment.class/README.md +++ /dev/null @@ -1,3 +0,0 @@ -I am a forced reassignment of a new object to a slot. - -My value is the new slot, whose value in turn is the shadow of the replacement object. \ No newline at end of file diff --git a/src/Squot.package/SquotSlotReassignment.class/class/key.leftShadow.rightShadow..st b/src/Squot.package/SquotSlotReassignment.class/class/key.leftShadow.rightShadow..st deleted file mode 100644 index 37f1327b1..000000000 --- a/src/Squot.package/SquotSlotReassignment.class/class/key.leftShadow.rightShadow..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -key: aKey leftShadow: leftShadow rightShadow: rightShadow - ^ self key: aKey value: leftShadow -> rightShadow \ No newline at end of file diff --git a/src/Squot.package/SquotSlotReassignment.class/instance/applyTo..st b/src/Squot.package/SquotSlotReassignment.class/instance/applyTo..st deleted file mode 100644 index 93c8e3419..000000000 --- a/src/Squot.package/SquotSlotReassignment.class/instance/applyTo..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-diff-patching -applyTo: anObjectShadow - anObjectShadow reassignSlot: key to: self replacementShadow. \ No newline at end of file diff --git a/src/Squot.package/SquotSlotReassignment.class/instance/applyTo.with..st b/src/Squot.package/SquotSlotReassignment.class/instance/applyTo.with..st deleted file mode 100644 index ad16a2617..000000000 --- a/src/Squot.package/SquotSlotReassignment.class/instance/applyTo.with..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-diff-patching -applyTo: anObjectShadow with: aPatcher - anObjectShadow reassignSlot: key to: (aPatcher addToGraph: self replacementShadow) \ No newline at end of file diff --git a/src/Squot.package/SquotSlotReassignment.class/instance/asReferenceDiffWithDefaultOwners.reflectedIn..st b/src/Squot.package/SquotSlotReassignment.class/instance/asReferenceDiffWithDefaultOwners.reflectedIn..st deleted file mode 100644 index 0e410d99a..000000000 --- a/src/Squot.package/SquotSlotReassignment.class/instance/asReferenceDiffWithDefaultOwners.reflectedIn..st +++ /dev/null @@ -1,14 +0,0 @@ -converting -asReferenceDiffWithDefaultOwners: leftAndRightShadows reflectedIn: aMirror - | reference | - {[self key isInteger ifTrue: [SquotIndexableField index: self key]]. - [self key isString ifTrue: [SquotInstanceVariable named: self key]]. - [self key isNil ifTrue: [SquotCollectionElement target: self replacementShadow]]. - [self key]} - detect: [:each | (each value ifNotNil: [:value | reference := value]) notNil]. - ^ SquotReferenceTargetExchange - reference: reference - leftOwner: leftAndRightShadows first - target: self value key - rightOwner: leftAndRightShadows second - target: self replacementShadow \ No newline at end of file diff --git a/src/Squot.package/SquotSlotReassignment.class/instance/hierarchicalDiffTitle.st b/src/Squot.package/SquotSlotReassignment.class/instance/hierarchicalDiffTitle.st deleted file mode 100644 index 6876efb68..000000000 --- a/src/Squot.package/SquotSlotReassignment.class/instance/hierarchicalDiffTitle.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools-Diffs -hierarchicalDiffTitle - ^ super hierarchicalDiffTitle, ' (reassigned)' \ No newline at end of file diff --git a/src/Squot.package/SquotSlotReassignment.class/instance/initializeSquotDiffNode.with..st b/src/Squot.package/SquotSlotReassignment.class/instance/initializeSquotDiffNode.with..st deleted file mode 100644 index f97d9fc09..000000000 --- a/src/Squot.package/SquotSlotReassignment.class/instance/initializeSquotDiffNode.with..st +++ /dev/null @@ -1,7 +0,0 @@ -*Squot-Tools-Diffs -initializeSquotDiffNode: aDiffNode with: aDiffNodesBuilder - self flag: #stub. - aDiffNode - title: self hierarchicalDiffTitle; - content: self; - children: (aDiffNodesBuilder convertDiffOf: self replacementShadow). \ No newline at end of file diff --git a/src/Squot.package/SquotSlotReassignment.class/instance/originalShadow.st b/src/Squot.package/SquotSlotReassignment.class/instance/originalShadow.st deleted file mode 100644 index 98430d3ed..000000000 --- a/src/Squot.package/SquotSlotReassignment.class/instance/originalShadow.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -originalShadow - ^ self value key \ No newline at end of file diff --git a/src/Squot.package/SquotSlotReassignment.class/instance/printDescriptionOn..st b/src/Squot.package/SquotSlotReassignment.class/instance/printDescriptionOn..st deleted file mode 100644 index 57620896a..000000000 --- a/src/Squot.package/SquotSlotReassignment.class/instance/printDescriptionOn..st +++ /dev/null @@ -1,3 +0,0 @@ -printing -printDescriptionOn: aStream - aStream nextPutAll: 'reassign '. \ No newline at end of file diff --git a/src/Squot.package/SquotSlotReassignment.class/instance/replacementShadow.st b/src/Squot.package/SquotSlotReassignment.class/instance/replacementShadow.st deleted file mode 100644 index d6104a0aa..000000000 --- a/src/Squot.package/SquotSlotReassignment.class/instance/replacementShadow.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -replacementShadow - ^ self value value \ No newline at end of file diff --git a/src/Squot.package/SquotSlotReassignment.class/instance/slotShadowType.st b/src/Squot.package/SquotSlotReassignment.class/instance/slotShadowType.st deleted file mode 100644 index 0dc56a7dd..000000000 --- a/src/Squot.package/SquotSlotReassignment.class/instance/slotShadowType.st +++ /dev/null @@ -1,7 +0,0 @@ -accessing -slotShadowType - self flag: #stub. "this information is currently lost after diffing" - self key isInteger - ifTrue: [^ SquotVariablePartSlot] - ifFalse: [^ SquotInstVarSlot] - \ No newline at end of file diff --git a/src/Squot.package/SquotSlotReassignment.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotSlotReassignment.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index 329d4cb62..000000000 --- a/src/Squot.package/SquotSlotReassignment.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-Tools-Diffs -squotChangeAsStringOrText - self key isString - ifTrue: [^ self key, ' := ', self replacementShadow printString] - ifFalse: [^ 'at: ', self key printString, ' put: ', self replacementShadow printString] \ No newline at end of file diff --git a/src/Squot.package/SquotSlotReassignment.class/instance/squotHasChanges.st b/src/Squot.package/SquotSlotReassignment.class/instance/squotHasChanges.st deleted file mode 100644 index 7cc8bb4b4..000000000 --- a/src/Squot.package/SquotSlotReassignment.class/instance/squotHasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-diff-testing -squotHasChanges - ^ self originalShadow ~= self replacementShadow \ No newline at end of file diff --git a/src/Squot.package/SquotSlotReassignment.class/methodProperties.json b/src/Squot.package/SquotSlotReassignment.class/methodProperties.json deleted file mode 100644 index 37359517b..000000000 --- a/src/Squot.package/SquotSlotReassignment.class/methodProperties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "class" : { - "key:leftShadow:rightShadow:" : "jr 6/22/2017 14:50" }, - "instance" : { - "applyTo:" : "jr 9/13/2019 10:06", - "applyTo:with:" : "jr 7/29/2017 21:43", - "asReferenceDiffWithDefaultOwners:reflectedIn:" : "jr 6/13/2021 22:06", - "hierarchicalDiffTitle" : "jr 6/25/2017 21:51", - "initializeSquotDiffNode:with:" : "jr 11/18/2017 22:39", - "originalShadow" : "jr 6/28/2022 23:24", - "printDescriptionOn:" : "jr 6/18/2017 11:50", - "replacementShadow" : "jr 6/20/2017 00:50", - "slotShadowType" : "jr 6/25/2017 22:01", - "squotChangeAsStringOrText" : "jr 9/9/2017 13:38", - "squotHasChanges" : "jr 6/29/2022 00:22" } } diff --git a/src/Squot.package/SquotSlotReassignment.class/properties.json b/src/Squot.package/SquotSlotReassignment.class/properties.json deleted file mode 100644 index d3c1f9c87..000000000 --- a/src/Squot.package/SquotSlotReassignment.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Diffs-Generic", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotModification classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 6/18/2017 12:14", - "instvars" : [ - ], - "name" : "SquotSlotReassignment", - "pools" : [ - ], - "super" : "SquotSlotDiff", - "traitcomposition" : "TSquotModification", - "type" : "normal" } diff --git a/src/Squot.package/SquotSlotRemoval.class/README.md b/src/Squot.package/SquotSlotRemoval.class/README.md deleted file mode 100644 index c1887435b..000000000 --- a/src/Squot.package/SquotSlotRemoval.class/README.md +++ /dev/null @@ -1,5 +0,0 @@ -I am the removal of a slot from an object. - -My value does not matter, since the slot should be removed. - -Because I might require a structural change to the patched object, I might imply a replacement of the object. \ No newline at end of file diff --git a/src/Squot.package/SquotSlotRemoval.class/class/key.removedSlot..st b/src/Squot.package/SquotSlotRemoval.class/class/key.removedSlot..st deleted file mode 100644 index 68d1272fd..000000000 --- a/src/Squot.package/SquotSlotRemoval.class/class/key.removedSlot..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -key: aKey removedSlot: aSlot - ^ self key: aKey value: aSlot \ No newline at end of file diff --git a/src/Squot.package/SquotSlotRemoval.class/instance/applyTo..st b/src/Squot.package/SquotSlotRemoval.class/instance/applyTo..st deleted file mode 100644 index 4afa85131..000000000 --- a/src/Squot.package/SquotSlotRemoval.class/instance/applyTo..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -applyTo: aShadow - ^ self slotToBeRemoved removeFrom: aShadow \ No newline at end of file diff --git a/src/Squot.package/SquotSlotRemoval.class/instance/applyTo.with..st b/src/Squot.package/SquotSlotRemoval.class/instance/applyTo.with..st deleted file mode 100644 index 673485405..000000000 --- a/src/Squot.package/SquotSlotRemoval.class/instance/applyTo.with..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -applyTo: aShadow with: aPatcher - ^ self slotToBeRemoved removeFrom: aShadow with: aPatcher \ No newline at end of file diff --git a/src/Squot.package/SquotSlotRemoval.class/instance/asReferenceDiffWithDefaultOwners.reflectedIn..st b/src/Squot.package/SquotSlotRemoval.class/instance/asReferenceDiffWithDefaultOwners.reflectedIn..st deleted file mode 100644 index fa4b79c4e..000000000 --- a/src/Squot.package/SquotSlotRemoval.class/instance/asReferenceDiffWithDefaultOwners.reflectedIn..st +++ /dev/null @@ -1,7 +0,0 @@ -converting -asReferenceDiffWithDefaultOwners: leftAndRightShadows reflectedIn: aMirror - ^ SquotReferenceRemoval - of: self slotToBeRemoved value - from: leftAndRightShadows first - reference: self slotToBeRemoved asReference - rightObject: leftAndRightShadows second \ No newline at end of file diff --git a/src/Squot.package/SquotSlotRemoval.class/instance/hierarchicalDiffTitle.st b/src/Squot.package/SquotSlotRemoval.class/instance/hierarchicalDiffTitle.st deleted file mode 100644 index 2d9dfb408..000000000 --- a/src/Squot.package/SquotSlotRemoval.class/instance/hierarchicalDiffTitle.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools-Diffs -hierarchicalDiffTitle - ^ super hierarchicalDiffTitle, ' (removed)' \ No newline at end of file diff --git a/src/Squot.package/SquotSlotRemoval.class/instance/printDescriptionOn..st b/src/Squot.package/SquotSlotRemoval.class/instance/printDescriptionOn..st deleted file mode 100644 index 35020c1ac..000000000 --- a/src/Squot.package/SquotSlotRemoval.class/instance/printDescriptionOn..st +++ /dev/null @@ -1,3 +0,0 @@ -printing -printDescriptionOn: aStream - aStream nextPutAll: 'remove '. \ No newline at end of file diff --git a/src/Squot.package/SquotSlotRemoval.class/instance/slotShadowType.st b/src/Squot.package/SquotSlotRemoval.class/instance/slotShadowType.st deleted file mode 100644 index 1750894b1..000000000 --- a/src/Squot.package/SquotSlotRemoval.class/instance/slotShadowType.st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -slotShadowType - self flag: #stub. "this information is currently lost after diffing" - self key isNil - ifTrue: [^ SquotHashedCollectionSlot] - ifFalse: [^ SquotDictionarySlot] \ No newline at end of file diff --git a/src/Squot.package/SquotSlotRemoval.class/instance/slotToBeRemoved.st b/src/Squot.package/SquotSlotRemoval.class/instance/slotToBeRemoved.st deleted file mode 100644 index a0790340c..000000000 --- a/src/Squot.package/SquotSlotRemoval.class/instance/slotToBeRemoved.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -slotToBeRemoved - ^ self value \ No newline at end of file diff --git a/src/Squot.package/SquotSlotRemoval.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotSlotRemoval.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index 702517041..000000000 --- a/src/Squot.package/SquotSlotRemoval.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools-Diffs -squotChangeAsStringOrText - ^ 'remove ', self key \ No newline at end of file diff --git a/src/Squot.package/SquotSlotRemoval.class/instance/squotHasChanges.st b/src/Squot.package/SquotSlotRemoval.class/instance/squotHasChanges.st deleted file mode 100644 index 4ae7cf360..000000000 --- a/src/Squot.package/SquotSlotRemoval.class/instance/squotHasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-diff-testing -squotHasChanges - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotSlotRemoval.class/methodProperties.json b/src/Squot.package/SquotSlotRemoval.class/methodProperties.json deleted file mode 100644 index 28d4ac162..000000000 --- a/src/Squot.package/SquotSlotRemoval.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - "key:removedSlot:" : "jr 7/17/2017 00:01" }, - "instance" : { - "applyTo:" : "jr 9/23/2019 23:19", - "applyTo:with:" : "jr 7/29/2017 21:29", - "asReferenceDiffWithDefaultOwners:reflectedIn:" : "jr 7/18/2021 20:24", - "hierarchicalDiffTitle" : "jr 6/25/2017 21:51", - "printDescriptionOn:" : "jr 6/18/2017 11:51", - "slotShadowType" : "jr 6/25/2017 22:09", - "slotToBeRemoved" : "jr 7/17/2017 00:03", - "squotChangeAsStringOrText" : "jr 9/9/2017 14:18", - "squotHasChanges" : "jr 6/17/2017 23:29" } } diff --git a/src/Squot.package/SquotSlotRemoval.class/properties.json b/src/Squot.package/SquotSlotRemoval.class/properties.json deleted file mode 100644 index 0e27ebb05..000000000 --- a/src/Squot.package/SquotSlotRemoval.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Diffs-Generic", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotRemoval classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 6/18/2017 00:17", - "instvars" : [ - ], - "name" : "SquotSlotRemoval", - "pools" : [ - ], - "super" : "SquotSlotDiff", - "traitcomposition" : "TSquotRemoval", - "type" : "normal" } diff --git a/src/Squot.package/SquotSlotTransitiveChange.class/README.md b/src/Squot.package/SquotSlotTransitiveChange.class/README.md deleted file mode 100644 index ccb9edd0f..000000000 --- a/src/Squot.package/SquotSlotTransitiveChange.class/README.md +++ /dev/null @@ -1 +0,0 @@ -Nothing has changed in the slot itself, but an object directly or indirectly reachable via it has been changed. \ No newline at end of file diff --git a/src/Squot.package/SquotSlotTransitiveChange.class/class/key..st b/src/Squot.package/SquotSlotTransitiveChange.class/class/key..st deleted file mode 100644 index 2f1037add..000000000 --- a/src/Squot.package/SquotSlotTransitiveChange.class/class/key..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -key: aKey - ^ self key: aKey value: #transitiveChange \ No newline at end of file diff --git a/src/Squot.package/SquotSlotTransitiveChange.class/instance/applyTo..st b/src/Squot.package/SquotSlotTransitiveChange.class/instance/applyTo..st deleted file mode 100644 index d329176b8..000000000 --- a/src/Squot.package/SquotSlotTransitiveChange.class/instance/applyTo..st +++ /dev/null @@ -1,4 +0,0 @@ -Squot-diff-patching -applyTo: aShadow - "Nothing to be done, the change is in another object reachable via the slot." - ^ aShadow \ No newline at end of file diff --git a/src/Squot.package/SquotSlotTransitiveChange.class/instance/applyTo.with..st b/src/Squot.package/SquotSlotTransitiveChange.class/instance/applyTo.with..st deleted file mode 100644 index da8e6bab6..000000000 --- a/src/Squot.package/SquotSlotTransitiveChange.class/instance/applyTo.with..st +++ /dev/null @@ -1,4 +0,0 @@ -Squot-diff-patching -applyTo: aShadow with: aPatcher - "Nothing to be done, the change is in another object reachable via the slot." - ^ aShadow \ No newline at end of file diff --git a/src/Squot.package/SquotSlotTransitiveChange.class/instance/asReferenceDiffWithDefaultOwners.reflectedIn..st b/src/Squot.package/SquotSlotTransitiveChange.class/instance/asReferenceDiffWithDefaultOwners.reflectedIn..st deleted file mode 100644 index 268eb7ca7..000000000 --- a/src/Squot.package/SquotSlotTransitiveChange.class/instance/asReferenceDiffWithDefaultOwners.reflectedIn..st +++ /dev/null @@ -1,14 +0,0 @@ -converting -asReferenceDiffWithDefaultOwners: leftAndRightShadows reflectedIn: aMirror - | reference | - {[self key isInteger ifTrue: [SquotIndexableField index: self key]]. - [self key isString ifTrue: [SquotInstanceVariable named: self key]]. - [self key isNil ifTrue: [SquotCollectionElement target: self replacementShadow]]. - [self key]} - detect: [:each | (each value ifNotNil: [:value | reference := value]) notNil]. - ^ SquotDifferentReferenceTarget - reference: reference - leftOwner: leftAndRightShadows first - target: (aMirror reflect: reference of: leftAndRightShadows first) - rightOwner: leftAndRightShadows second - target: (aMirror reflect: reference of: leftAndRightShadows second) \ No newline at end of file diff --git a/src/Squot.package/SquotSlotTransitiveChange.class/instance/hierarchicalDiffTitle.st b/src/Squot.package/SquotSlotTransitiveChange.class/instance/hierarchicalDiffTitle.st deleted file mode 100644 index 4edcc9b5c..000000000 --- a/src/Squot.package/SquotSlotTransitiveChange.class/instance/hierarchicalDiffTitle.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools-Diffs -hierarchicalDiffTitle - ^ super hierarchicalDiffTitle, ' (deep change)' \ No newline at end of file diff --git a/src/Squot.package/SquotSlotTransitiveChange.class/instance/initializeSquotDiffNode.with..st b/src/Squot.package/SquotSlotTransitiveChange.class/instance/initializeSquotDiffNode.with..st deleted file mode 100644 index e19aa39ac..000000000 --- a/src/Squot.package/SquotSlotTransitiveChange.class/instance/initializeSquotDiffNode.with..st +++ /dev/null @@ -1,7 +0,0 @@ -*Squot-Tools-Diffs -initializeSquotDiffNode: aDiffNode with: aDiffNodesBuilder - self flag: #stub. - aDiffNode - title: self hierarchicalDiffTitle; - content: self; - children: #(). \ No newline at end of file diff --git a/src/Squot.package/SquotSlotTransitiveChange.class/instance/printDescriptionOn..st b/src/Squot.package/SquotSlotTransitiveChange.class/instance/printDescriptionOn..st deleted file mode 100644 index ebe9fe6fc..000000000 --- a/src/Squot.package/SquotSlotTransitiveChange.class/instance/printDescriptionOn..st +++ /dev/null @@ -1,3 +0,0 @@ -printing -printDescriptionOn: aStream - aStream nextPutAll: 'changes below '. \ No newline at end of file diff --git a/src/Squot.package/SquotSlotTransitiveChange.class/instance/slotShadowType.st b/src/Squot.package/SquotSlotTransitiveChange.class/instance/slotShadowType.st deleted file mode 100644 index e9a757188..000000000 --- a/src/Squot.package/SquotSlotTransitiveChange.class/instance/slotShadowType.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -slotShadowType - self flag: #stub. "this information is currently not available here" - ^ SquotInstVarSlot \ No newline at end of file diff --git a/src/Squot.package/SquotSlotTransitiveChange.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotSlotTransitiveChange.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index b405c382c..000000000 --- a/src/Squot.package/SquotSlotTransitiveChange.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools-Diffs -squotChangeAsStringOrText - ^ 'some change in the objects reachable via ', self key \ No newline at end of file diff --git a/src/Squot.package/SquotSlotTransitiveChange.class/instance/squotHasChanges.st b/src/Squot.package/SquotSlotTransitiveChange.class/instance/squotHasChanges.st deleted file mode 100644 index 15055315f..000000000 --- a/src/Squot.package/SquotSlotTransitiveChange.class/instance/squotHasChanges.st +++ /dev/null @@ -1,4 +0,0 @@ -Squot-diff-testing -squotHasChanges - "By definition, answer true." - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotSlotTransitiveChange.class/methodProperties.json b/src/Squot.package/SquotSlotTransitiveChange.class/methodProperties.json deleted file mode 100644 index 7e8a9bab6..000000000 --- a/src/Squot.package/SquotSlotTransitiveChange.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - "key:" : "jr 7/27/2017 00:28" }, - "instance" : { - "applyTo:" : "jr 9/23/2019 23:19", - "applyTo:with:" : "jr 7/29/2017 21:38", - "asReferenceDiffWithDefaultOwners:reflectedIn:" : "jr 6/13/2021 22:07", - "hierarchicalDiffTitle" : "jr 7/26/2017 23:58", - "initializeSquotDiffNode:with:" : "jr 3/17/2018 15:02", - "printDescriptionOn:" : "jr 7/26/2017 23:58", - "slotShadowType" : "jr 11/17/2018 22:40", - "squotChangeAsStringOrText" : "jr 9/9/2017 13:32", - "squotHasChanges" : "jr 7/26/2017 23:56" } } diff --git a/src/Squot.package/SquotSlotTransitiveChange.class/properties.json b/src/Squot.package/SquotSlotTransitiveChange.class/properties.json deleted file mode 100644 index b6898102d..000000000 --- a/src/Squot.package/SquotSlotTransitiveChange.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Diffs-Generic", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotModification classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 7/26/2017 21:45", - "instvars" : [ - ], - "name" : "SquotSlotTransitiveChange", - "pools" : [ - ], - "super" : "SquotSlotDiff", - "traitcomposition" : "TSquotModification", - "type" : "normal" } diff --git a/src/Squot.package/SquotSmartRefStreamDeserializer.class/README.md b/src/Squot.package/SquotSmartRefStreamDeserializer.class/README.md deleted file mode 100644 index 37dcddd7b..000000000 --- a/src/Squot.package/SquotSmartRefStreamDeserializer.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I deserialize what SquotSmartRefStreamSerializer serialized, using SmartRefStream. \ No newline at end of file diff --git a/src/Squot.package/SquotSmartRefStreamDeserializer.class/class/canReadObjectSerializedBy..st b/src/Squot.package/SquotSmartRefStreamDeserializer.class/class/canReadObjectSerializedBy..st deleted file mode 100644 index 488c79617..000000000 --- a/src/Squot.package/SquotSmartRefStreamDeserializer.class/class/canReadObjectSerializedBy..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot deserialization -canReadObjectSerializedBy: serializerName - ^ serializerName beginsWith: 'SquotSmartRefStreamSerializer' \ No newline at end of file diff --git a/src/Squot.package/SquotSmartRefStreamDeserializer.class/instance/fillContentOf.from..st b/src/Squot.package/SquotSmartRefStreamDeserializer.class/instance/fillContentOf.from..st deleted file mode 100644 index d7416cc33..000000000 --- a/src/Squot.package/SquotSmartRefStreamDeserializer.class/instance/fillContentOf.from..st +++ /dev/null @@ -1,4 +0,0 @@ -Squot deserialization -fillContentOf: anArtifact from: aFileReference - aFileReference readStreamDo: [:stream | - anArtifact content: (self streamClass on: stream) next] \ No newline at end of file diff --git a/src/Squot.package/SquotSmartRefStreamDeserializer.class/instance/streamClass.st b/src/Squot.package/SquotSmartRefStreamDeserializer.class/instance/streamClass.st deleted file mode 100644 index 81c29d49b..000000000 --- a/src/Squot.package/SquotSmartRefStreamDeserializer.class/instance/streamClass.st +++ /dev/null @@ -1,3 +0,0 @@ -private -streamClass - ^ SmartRefStream \ No newline at end of file diff --git a/src/Squot.package/SquotSmartRefStreamDeserializer.class/methodProperties.json b/src/Squot.package/SquotSmartRefStreamDeserializer.class/methodProperties.json deleted file mode 100644 index 67b6fc1e6..000000000 --- a/src/Squot.package/SquotSmartRefStreamDeserializer.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - "canReadObjectSerializedBy:" : "jr 1/18/2017 16:30" }, - "instance" : { - "fillContentOf:from:" : "jr 1/29/2017 23:06", - "streamClass" : "jr 1/5/2017 15:23" } } diff --git a/src/Squot.package/SquotSmartRefStreamDeserializer.class/properties.json b/src/Squot.package/SquotSmartRefStreamDeserializer.class/properties.json deleted file mode 100644 index c22c49249..000000000 --- a/src/Squot.package/SquotSmartRefStreamDeserializer.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Serialization", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 19:29", - "instvars" : [ - ], - "name" : "SquotSmartRefStreamDeserializer", - "pools" : [ - ], - "super" : "SquotDeserializer", - "type" : "normal" } diff --git a/src/Squot.package/SquotSmartRefStreamSerializer.class/README.md b/src/Squot.package/SquotSmartRefStreamSerializer.class/README.md deleted file mode 100644 index 73aee90db..000000000 --- a/src/Squot.package/SquotSmartRefStreamSerializer.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I write objects to files with a SmartRefStream. \ No newline at end of file diff --git a/src/Squot.package/SquotSmartRefStreamSerializer.class/instance/streamClass.st b/src/Squot.package/SquotSmartRefStreamSerializer.class/instance/streamClass.st deleted file mode 100644 index 81c29d49b..000000000 --- a/src/Squot.package/SquotSmartRefStreamSerializer.class/instance/streamClass.st +++ /dev/null @@ -1,3 +0,0 @@ -private -streamClass - ^ SmartRefStream \ No newline at end of file diff --git a/src/Squot.package/SquotSmartRefStreamSerializer.class/instance/version.st b/src/Squot.package/SquotSmartRefStreamSerializer.class/instance/version.st deleted file mode 100644 index d0efb5c49..000000000 --- a/src/Squot.package/SquotSmartRefStreamSerializer.class/instance/version.st +++ /dev/null @@ -1,3 +0,0 @@ -Squot serialization -version - ^ 1 \ No newline at end of file diff --git a/src/Squot.package/SquotSmartRefStreamSerializer.class/instance/write..st b/src/Squot.package/SquotSmartRefStreamSerializer.class/instance/write..st deleted file mode 100644 index 414407ff9..000000000 --- a/src/Squot.package/SquotSmartRefStreamSerializer.class/instance/write..st +++ /dev/null @@ -1,6 +0,0 @@ -Squot serialization -write: anArtifact - self atPathOf: anArtifact writeStreamDo: - [:artifactStream | - stream := self streamClass on: artifactStream. - anArtifact writeWith: self] \ No newline at end of file diff --git a/src/Squot.package/SquotSmartRefStreamSerializer.class/instance/writeObject.from..st b/src/Squot.package/SquotSmartRefStreamSerializer.class/instance/writeObject.from..st deleted file mode 100644 index 13cd273a7..000000000 --- a/src/Squot.package/SquotSmartRefStreamSerializer.class/instance/writeObject.from..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot serialization -writeObject: anObject from: anArtifact - ^ stream nextPutObjOnly: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotSmartRefStreamSerializer.class/methodProperties.json b/src/Squot.package/SquotSmartRefStreamSerializer.class/methodProperties.json deleted file mode 100644 index 35c4b1b0e..000000000 --- a/src/Squot.package/SquotSmartRefStreamSerializer.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "streamClass" : "jr 1/5/2017 15:01", - "version" : "jr 1/5/2017 14:11", - "write:" : "jr 7/20/2017 14:08", - "writeObject:from:" : "jr 7/20/2017 14:06" } } diff --git a/src/Squot.package/SquotSmartRefStreamSerializer.class/properties.json b/src/Squot.package/SquotSmartRefStreamSerializer.class/properties.json deleted file mode 100644 index 1f2584c54..000000000 --- a/src/Squot.package/SquotSmartRefStreamSerializer.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Serialization", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotSingleFileSerializer classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 19:29", - "instvars" : [ - "stream" ], - "name" : "SquotSmartRefStreamSerializer", - "pools" : [ - ], - "super" : "SquotSerializer", - "traitcomposition" : "TSquotSingleFileSerializer", - "type" : "normal" } diff --git a/src/Squot.package/SquotSnapshot.class/README.md b/src/Squot.package/SquotSnapshot.class/README.md deleted file mode 100644 index c392dc2b8..000000000 --- a/src/Squot.package/SquotSnapshot.class/README.md +++ /dev/null @@ -1,5 +0,0 @@ -I am a collection of SquotArtifacts (an object container) and the result of capturing with a Store. - -Instance Variables - artifacts: my artifacts as a Dictionary with the paths as keys - loadOrder: of artifact paths that denotes the order in which artifacts should be loaded. The recommended unload order is the reverse of this list. \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshot.class/class/builder.st b/src/Squot.package/SquotSnapshot.class/class/builder.st deleted file mode 100644 index 68290cf4e..000000000 --- a/src/Squot.package/SquotSnapshot.class/class/builder.st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -builder - ^ SquotSnapshotBuilder new \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshot.class/class/empty.st b/src/Squot.package/SquotSnapshot.class/class/empty.st deleted file mode 100644 index 5b62ed73d..000000000 --- a/src/Squot.package/SquotSnapshot.class/class/empty.st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -empty - ^ self new \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshot.class/instance/applyPatch..st b/src/Squot.package/SquotSnapshot.class/instance/applyPatch..st deleted file mode 100644 index 91ef4980e..000000000 --- a/src/Squot.package/SquotSnapshot.class/instance/applyPatch..st +++ /dev/null @@ -1,5 +0,0 @@ -patching -applyPatch: aPatch - ^ self createNewBuilder - applyPatch: aPatch; - buildSnapshot \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshot.class/instance/artifactAt..st b/src/Squot.package/SquotSnapshot.class/instance/artifactAt..st deleted file mode 100644 index cbc1e87de..000000000 --- a/src/Squot.package/SquotSnapshot.class/instance/artifactAt..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -artifactAt: aPath - ^ artifacts at: aPath asString \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshot.class/instance/artifactAt.ifAbsent..st b/src/Squot.package/SquotSnapshot.class/instance/artifactAt.ifAbsent..st deleted file mode 100644 index 6730df067..000000000 --- a/src/Squot.package/SquotSnapshot.class/instance/artifactAt.ifAbsent..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -artifactAt: aPath ifAbsent: absentBlock - ^ artifacts at: aPath asString ifAbsent: absentBlock \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshot.class/instance/artifacts..st b/src/Squot.package/SquotSnapshot.class/instance/artifacts..st deleted file mode 100644 index 3e8e86474..000000000 --- a/src/Squot.package/SquotSnapshot.class/instance/artifacts..st +++ /dev/null @@ -1,3 +0,0 @@ -private -artifacts: aDictionary - artifacts := aDictionary. \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshot.class/instance/artifacts.st b/src/Squot.package/SquotSnapshot.class/instance/artifacts.st deleted file mode 100644 index 468b6f3e5..000000000 --- a/src/Squot.package/SquotSnapshot.class/instance/artifacts.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -artifacts - ^ artifacts \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshot.class/instance/artifactsDo..st b/src/Squot.package/SquotSnapshot.class/instance/artifactsDo..st deleted file mode 100644 index 8cd1791aa..000000000 --- a/src/Squot.package/SquotSnapshot.class/instance/artifactsDo..st +++ /dev/null @@ -1,3 +0,0 @@ -enumerating -artifactsDo: aBlock - artifacts do: aBlock \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshot.class/instance/artifactsInLoadOrder.st b/src/Squot.package/SquotSnapshot.class/instance/artifactsInLoadOrder.st deleted file mode 100644 index 782e7d965..000000000 --- a/src/Squot.package/SquotSnapshot.class/instance/artifactsInLoadOrder.st +++ /dev/null @@ -1,6 +0,0 @@ -enumerating -artifactsInLoadOrder - | orderedArtifacts | - orderedArtifacts := OrderedCollection new. - self artifactsInLoadOrderDo: [:each | orderedArtifacts add: each]. - ^ orderedArtifacts \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshot.class/instance/artifactsInLoadOrderDo..st b/src/Squot.package/SquotSnapshot.class/instance/artifactsInLoadOrderDo..st deleted file mode 100644 index 5820429c7..000000000 --- a/src/Squot.package/SquotSnapshot.class/instance/artifactsInLoadOrderDo..st +++ /dev/null @@ -1,3 +0,0 @@ -enumerating -artifactsInLoadOrderDo: aBlock - loadOrder do: [:eachPath | aBlock value: (artifacts at: eachPath)]. \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshot.class/instance/createNewBuilder.st b/src/Squot.package/SquotSnapshot.class/instance/createNewBuilder.st deleted file mode 100644 index 2a0b5d6ca..000000000 --- a/src/Squot.package/SquotSnapshot.class/instance/createNewBuilder.st +++ /dev/null @@ -1,4 +0,0 @@ -patching -createNewBuilder - "Answer a builder for a new snapshot that initially has all my artifacts." - ^ self class builder startingFrom: self \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshot.class/instance/includesObjectAt..st b/src/Squot.package/SquotSnapshot.class/instance/includesObjectAt..st deleted file mode 100644 index 77990933c..000000000 --- a/src/Squot.package/SquotSnapshot.class/instance/includesObjectAt..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -includesObjectAt: path - ^ artifacts includesKey: path \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshot.class/instance/initialize.st b/src/Squot.package/SquotSnapshot.class/instance/initialize.st deleted file mode 100644 index e716ac150..000000000 --- a/src/Squot.package/SquotSnapshot.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initialize - artifacts := Dictionary new. - loadOrder := Array new. \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshot.class/instance/initializeWith..st b/src/Squot.package/SquotSnapshot.class/instance/initializeWith..st deleted file mode 100644 index 2e70eb50c..000000000 --- a/src/Squot.package/SquotSnapshot.class/instance/initializeWith..st +++ /dev/null @@ -1,10 +0,0 @@ -initialize-release -initializeWith: aCollectionOfArtifacts - | paths | - self initialize. - paths := OrderedCollection new. - aCollectionOfArtifacts - do: [:each | - artifacts at: each path put: each. - paths add: each path]. - self loadOrder: paths asArray. \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshot.class/instance/loadOrder..st b/src/Squot.package/SquotSnapshot.class/instance/loadOrder..st deleted file mode 100644 index 6209c19af..000000000 --- a/src/Squot.package/SquotSnapshot.class/instance/loadOrder..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -loadOrder: anArray - loadOrder := anArray. \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshot.class/instance/loadOrder.st b/src/Squot.package/SquotSnapshot.class/instance/loadOrder.st deleted file mode 100644 index 8704c223e..000000000 --- a/src/Squot.package/SquotSnapshot.class/instance/loadOrder.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -loadOrder - ^ loadOrder ifNil: [loadOrder := artifacts keys asArray] \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshot.class/instance/patchRelativeToBase..st b/src/Squot.package/SquotSnapshot.class/instance/patchRelativeToBase..st deleted file mode 100644 index 92af8f32a..000000000 --- a/src/Squot.package/SquotSnapshot.class/instance/patchRelativeToBase..st +++ /dev/null @@ -1,5 +0,0 @@ -comparing -patchRelativeToBase: objectContainer - ^ SquotPatch builder - patchFrom: (objectContainer ifNil: [SquotSnapshot empty]) - to: self \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshot.class/instance/paths.st b/src/Squot.package/SquotSnapshot.class/instance/paths.st deleted file mode 100644 index 1d1605efa..000000000 --- a/src/Squot.package/SquotSnapshot.class/instance/paths.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -paths - ^ artifacts keys \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshot.class/instance/printOn..st b/src/Squot.package/SquotSnapshot.class/instance/printOn..st deleted file mode 100644 index a71df63df..000000000 --- a/src/Squot.package/SquotSnapshot.class/instance/printOn..st +++ /dev/null @@ -1,5 +0,0 @@ -printing -printOn: aStream - artifacts - ifEmpty: [aStream nextPutAll: 'SquotSnapshot empty'] - ifNotEmpty: [super printOn: aStream]. \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshot.class/instance/resolve..st b/src/Squot.package/SquotSnapshot.class/instance/resolve..st deleted file mode 100644 index 2b8636616..000000000 --- a/src/Squot.package/SquotSnapshot.class/instance/resolve..st +++ /dev/null @@ -1,3 +0,0 @@ -FileSystem -resolve: anObject - ^ anObject asResolvedBy: self \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshot.class/instance/resolvePath..st b/src/Squot.package/SquotSnapshot.class/instance/resolvePath..st deleted file mode 100644 index cdbcbd857..000000000 --- a/src/Squot.package/SquotSnapshot.class/instance/resolvePath..st +++ /dev/null @@ -1,3 +0,0 @@ -FileSystem -resolvePath: aPath - ^ self artifactAt: (SquotPath fromPath: aPath) \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshot.class/instance/resolveString..st b/src/Squot.package/SquotSnapshot.class/instance/resolveString..st deleted file mode 100644 index 66bc9d0e7..000000000 --- a/src/Squot.package/SquotSnapshot.class/instance/resolveString..st +++ /dev/null @@ -1,3 +0,0 @@ -FileSystem -resolveString: aString - ^ self artifactAt: aString \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshot.class/instance/select..st b/src/Squot.package/SquotSnapshot.class/instance/select..st deleted file mode 100644 index 4500bdd7c..000000000 --- a/src/Squot.package/SquotSnapshot.class/instance/select..st +++ /dev/null @@ -1,7 +0,0 @@ -copying -select: aBlock - | snapshotBuilder | - snapshotBuilder := self species builder. - self artifactsInLoadOrderDo: [:each | - (aBlock value: each) ifTrue: [snapshotBuilder add: each]]. - ^ snapshotBuilder buildSnapshot \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshot.class/instance/snapshot.st b/src/Squot.package/SquotSnapshot.class/instance/snapshot.st deleted file mode 100644 index 431205699..000000000 --- a/src/Squot.package/SquotSnapshot.class/instance/snapshot.st +++ /dev/null @@ -1,8 +0,0 @@ -converting -snapshot - "Make sure all my artifacts are snapshots." - | builder | - self flag: #todo. "It smells that snapshots are sometimes lazy, capturing only on demand. Maybe there should be another kind of object for artifact listings and on-demand cache behavior." - builder := SquotSnapshot builder. - self artifactsInLoadOrderDo: [:each | builder add: each snapshot]. - ^ builder buildSnapshot \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshot.class/methodProperties.json b/src/Squot.package/SquotSnapshot.class/methodProperties.json deleted file mode 100644 index 079d6259d..000000000 --- a/src/Squot.package/SquotSnapshot.class/methodProperties.json +++ /dev/null @@ -1,27 +0,0 @@ -{ - "class" : { - "builder" : "jr 1/27/2017 15:21", - "empty" : "jr 2/15/2017 17:31" }, - "instance" : { - "applyPatch:" : "jr 5/31/2017 13:19", - "artifactAt:" : "jr 1/29/2017 21:35", - "artifactAt:ifAbsent:" : "jr 4/17/2017 23:34", - "artifacts" : "jr 2/14/2017 17:06", - "artifacts:" : "jr 1/31/2017 12:19", - "artifactsDo:" : "jr 1/27/2017 15:16", - "artifactsInLoadOrder" : "jr 8/18/2018 18:13", - "artifactsInLoadOrderDo:" : "jr 8/18/2018 17:35", - "createNewBuilder" : "jr 9/23/2018 22:24", - "includesObjectAt:" : "jr 5/31/2017 18:02", - "initialize" : "jr 8/18/2018 15:32", - "initializeWith:" : "jr 8/18/2018 18:35", - "loadOrder" : "jr 8/18/2018 16:52", - "loadOrder:" : "jr 8/18/2018 15:40", - "patchRelativeToBase:" : "jr 9/17/2018 22:52", - "paths" : "jr 9/23/2018 17:51", - "printOn:" : "jr 3/30/2019 12:28", - "resolve:" : "jr 1/27/2017 15:11", - "resolvePath:" : "jr 7/15/2017 13:39", - "resolveString:" : "jr 1/27/2017 15:11", - "select:" : "jr 9/23/2018 22:26", - "snapshot" : "jr 11/22/2020 16:01" } } diff --git a/src/Squot.package/SquotSnapshot.class/properties.json b/src/Squot.package/SquotSnapshot.class/properties.json deleted file mode 100644 index 696c32ae4..000000000 --- a/src/Squot.package/SquotSnapshot.class/properties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "category" : "Squot-Core", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotObjectContainer classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 8/18/2018 13:15", - "instvars" : [ - "artifacts", - "loadOrder" ], - "name" : "SquotSnapshot", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotObjectContainer", - "type" : "normal" } diff --git a/src/Squot.package/SquotSnapshotBuilder.class/README.md b/src/Squot.package/SquotSnapshotBuilder.class/README.md deleted file mode 100644 index e0d37a251..000000000 --- a/src/Squot.package/SquotSnapshotBuilder.class/README.md +++ /dev/null @@ -1,5 +0,0 @@ -I collect Artifacts to bundle them into a Snapshot. I am mostly here to let Snapshots appear immutable... - -Instance Variables - artifacts: of added artifacts. The artifacts' paths are the keys. - loadOrder: of paths that determine the recommended loading order of the artifacts. \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshotBuilder.class/instance/add..st b/src/Squot.package/SquotSnapshotBuilder.class/instance/add..st deleted file mode 100644 index 505f1fef7..000000000 --- a/src/Squot.package/SquotSnapshotBuilder.class/instance/add..st +++ /dev/null @@ -1,5 +0,0 @@ -adding -add: anArtifact - artifacts at: anArtifact path put: anArtifact. - (loadOrder includes: anArtifact path) ifFalse: [loadOrder add: anArtifact path]. - ^ anArtifact \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshotBuilder.class/instance/addAll..st b/src/Squot.package/SquotSnapshotBuilder.class/instance/addAll..st deleted file mode 100644 index dfa0c7681..000000000 --- a/src/Squot.package/SquotSnapshotBuilder.class/instance/addAll..st +++ /dev/null @@ -1,3 +0,0 @@ -adding -addAll: aCollectionOfArtifacts - aCollectionOfArtifacts do: [:each | self add: each]. \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshotBuilder.class/instance/applyDiff.toObjectAt..st b/src/Squot.package/SquotSnapshotBuilder.class/instance/applyDiff.toObjectAt..st deleted file mode 100644 index 4a3a9e179..000000000 --- a/src/Squot.package/SquotSnapshotBuilder.class/instance/applyDiff.toObjectAt..st +++ /dev/null @@ -1,7 +0,0 @@ -patching -applyDiff: aDiff toObjectAt: path - | existing patched | - aDiff hasChanges ifFalse: [^ artifacts at: path]. - existing := artifacts at: path ifAbsentPut: [^ aDiff right]. - patched := existing copyWithDiffApplied: aDiff. - ^ artifacts at: path put: patched \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshotBuilder.class/instance/artifactAt..st b/src/Squot.package/SquotSnapshotBuilder.class/instance/artifactAt..st deleted file mode 100644 index cadbed5b2..000000000 --- a/src/Squot.package/SquotSnapshotBuilder.class/instance/artifactAt..st +++ /dev/null @@ -1,3 +0,0 @@ -private -artifactAt: path - ^ artifacts at: path \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshotBuilder.class/instance/artifacts.st b/src/Squot.package/SquotSnapshotBuilder.class/instance/artifacts.st deleted file mode 100644 index 584411b22..000000000 --- a/src/Squot.package/SquotSnapshotBuilder.class/instance/artifacts.st +++ /dev/null @@ -1,3 +0,0 @@ -private -artifacts - ^ artifacts \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshotBuilder.class/instance/buildSnapshot.st b/src/Squot.package/SquotSnapshotBuilder.class/instance/buildSnapshot.st deleted file mode 100644 index c73b8a6ff..000000000 --- a/src/Squot.package/SquotSnapshotBuilder.class/instance/buildSnapshot.st +++ /dev/null @@ -1,6 +0,0 @@ -snapshot -buildSnapshot - ^ SquotSnapshot new - artifacts: artifacts; - loadOrder: loadOrder asArray; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshotBuilder.class/instance/initialize.st b/src/Squot.package/SquotSnapshotBuilder.class/instance/initialize.st deleted file mode 100644 index 5a5019f6f..000000000 --- a/src/Squot.package/SquotSnapshotBuilder.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initialize - artifacts := Dictionary new. "path -> artifact" - loadOrder := OrderedCollection new. "paths" \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshotBuilder.class/instance/loadOrder..st b/src/Squot.package/SquotSnapshotBuilder.class/instance/loadOrder..st deleted file mode 100644 index e4f18c825..000000000 --- a/src/Squot.package/SquotSnapshotBuilder.class/instance/loadOrder..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -loadOrder: aCollection - loadOrder removeAll; addAll: aCollection. \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshotBuilder.class/instance/loadOrder.st b/src/Squot.package/SquotSnapshotBuilder.class/instance/loadOrder.st deleted file mode 100644 index f069f8849..000000000 --- a/src/Squot.package/SquotSnapshotBuilder.class/instance/loadOrder.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -loadOrder - ^ loadOrder \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshotBuilder.class/instance/removeAt..st b/src/Squot.package/SquotSnapshotBuilder.class/instance/removeAt..st deleted file mode 100644 index 96a95e93d..000000000 --- a/src/Squot.package/SquotSnapshotBuilder.class/instance/removeAt..st +++ /dev/null @@ -1,4 +0,0 @@ -removing -removeAt: path - artifacts removeKey: path ifAbsent: []. - loadOrder remove: path ifAbsent: []. \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshotBuilder.class/instance/startingFrom..st b/src/Squot.package/SquotSnapshotBuilder.class/instance/startingFrom..st deleted file mode 100644 index 136b22057..000000000 --- a/src/Squot.package/SquotSnapshotBuilder.class/instance/startingFrom..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -startingFrom: anObjectContainer - artifacts := anObjectContainer artifacts copy. "path -> artifact" - loadOrder := OrderedCollection withAll: anObjectContainer loadOrder. "paths" \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshotBuilder.class/methodProperties.json b/src/Squot.package/SquotSnapshotBuilder.class/methodProperties.json deleted file mode 100644 index ce97ebda5..000000000 --- a/src/Squot.package/SquotSnapshotBuilder.class/methodProperties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "add:" : "jr 9/15/2018 19:08", - "addAll:" : "jr 1/31/2017 12:16", - "applyDiff:toObjectAt:" : "jr 12/29/2021 21:18", - "artifactAt:" : "jr 1/31/2017 14:12", - "artifacts" : "jr 7/16/2017 03:01", - "buildSnapshot" : "jr 8/18/2018 15:40", - "initialize" : "jr 8/18/2018 15:38", - "loadOrder" : "jr 8/18/2018 16:47", - "loadOrder:" : "jr 8/18/2018 16:52", - "removeAt:" : "jr 9/23/2018 18:37", - "startingFrom:" : "jr 9/23/2018 18:40" } } diff --git a/src/Squot.package/SquotSnapshotBuilder.class/properties.json b/src/Squot.package/SquotSnapshotBuilder.class/properties.json deleted file mode 100644 index ba14aa43b..000000000 --- a/src/Squot.package/SquotSnapshotBuilder.class/properties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "category" : "Squot-Internal", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotMutableObjectContainer classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 8/18/2018 15:39", - "instvars" : [ - "artifacts", - "loadOrder" ], - "name" : "SquotSnapshotBuilder", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotMutableObjectContainer", - "type" : "normal" } diff --git a/src/Squot.package/SquotSnapshotTest.class/README.md b/src/Squot.package/SquotSnapshotTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotSnapshotTest.class/instance/testBuilderPreservesLoadOrder.st b/src/Squot.package/SquotSnapshotTest.class/instance/testBuilderPreservesLoadOrder.st deleted file mode 100644 index 2fccaf977..000000000 --- a/src/Squot.package/SquotSnapshotTest.class/instance/testBuilderPreservesLoadOrder.st +++ /dev/null @@ -1,15 +0,0 @@ -testing -testBuilderPreservesLoadOrder - "When a new snapshot is created with the builder, the load order is remembered in the snapshot." - | artifact1 artifact2 | - artifact1 := SquotArtifact new - path: 'artifact1'; - yourself. - artifact2 := SquotArtifact new - path: 'artifact2'; - yourself. - snapshot := SquotSnapshot builder - add: artifact1; - add: artifact2; - buildSnapshot. - self assert: snapshot loadOrder asArray = #('artifact1' 'artifact2') \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshotTest.class/instance/testNewBuilderPreservesLoadOrder.st b/src/Squot.package/SquotSnapshotTest.class/instance/testNewBuilderPreservesLoadOrder.st deleted file mode 100644 index 4b5fd92e1..000000000 --- a/src/Squot.package/SquotSnapshotTest.class/instance/testNewBuilderPreservesLoadOrder.st +++ /dev/null @@ -1,20 +0,0 @@ -testing -testNewBuilderPreservesLoadOrder - "When a new builder is created from a snapshot, it must preserve the load order." - | artifact1 artifact2 builder | - artifact1 := SquotArtifact new - path: 'artifact1'; - yourself. - artifact2 := SquotArtifact new - path: 'artifact2'; - yourself. - (snapshot := SquotSnapshot new) - artifacts: (Dictionary new - at: artifact1 path put: artifact1; - at: artifact2 path put: artifact2; - yourself); - loadOrder: snapshot artifacts keys reversed. - "when" - builder := snapshot createNewBuilder. - "then" - self assert: builder loadOrder asArray = snapshot loadOrder asArray. \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshotTest.class/instance/testSelectPreservesLoadOrder.st b/src/Squot.package/SquotSnapshotTest.class/instance/testSelectPreservesLoadOrder.st deleted file mode 100644 index ea6f11267..000000000 --- a/src/Squot.package/SquotSnapshotTest.class/instance/testSelectPreservesLoadOrder.st +++ /dev/null @@ -1,20 +0,0 @@ -testing -testSelectPreservesLoadOrder - "When a new builder is created from a snapshot, it must preserve the load order." - | artifact1 artifact2 newSnapshot | - artifact1 := SquotArtifact new - path: 'artifact1'; - yourself. - artifact2 := SquotArtifact new - path: 'artifact2'; - yourself. - (snapshot := SquotSnapshot new) - artifacts: (Dictionary new - at: artifact1 path put: artifact1; - at: artifact2 path put: artifact2; - yourself); - loadOrder: snapshot artifacts keys reversed. - "when" - newSnapshot := snapshot select: [:each | true]. - "then" - self assert: newSnapshot loadOrder asArray = snapshot loadOrder asArray. \ No newline at end of file diff --git a/src/Squot.package/SquotSnapshotTest.class/methodProperties.json b/src/Squot.package/SquotSnapshotTest.class/methodProperties.json deleted file mode 100644 index 8ab5556cb..000000000 --- a/src/Squot.package/SquotSnapshotTest.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testBuilderPreservesLoadOrder" : "jr 8/18/2018 15:37", - "testNewBuilderPreservesLoadOrder" : "jr 8/18/2018 16:46", - "testSelectPreservesLoadOrder" : "jr 9/23/2018 22:27" } } diff --git a/src/Squot.package/SquotSnapshotTest.class/properties.json b/src/Squot.package/SquotSnapshotTest.class/properties.json deleted file mode 100644 index 9b262012e..000000000 --- a/src/Squot.package/SquotSnapshotTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "snapshot" ], - "name" : "SquotSnapshotTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotStonFileCodec.class/README.md b/src/Squot.package/SquotStonFileCodec.class/README.md deleted file mode 100644 index 8de0a18ba..000000000 --- a/src/Squot.package/SquotStonFileCodec.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I serialize and deserialize arbitrary objects in STON (Smalltalk object notation) format. \ No newline at end of file diff --git a/src/Squot.package/SquotStonFileCodec.class/instance/fillContentOf.from..st b/src/Squot.package/SquotStonFileCodec.class/instance/fillContentOf.from..st deleted file mode 100644 index bd9f59ad3..000000000 --- a/src/Squot.package/SquotStonFileCodec.class/instance/fillContentOf.from..st +++ /dev/null @@ -1,4 +0,0 @@ -Squot deserialization -fillContentOf: anArtifact from: aFileOrDirectoryReference - anArtifact content: (aFileOrDirectoryReference readStreamDo: - [:stream | STON fromStream: stream]) \ No newline at end of file diff --git a/src/Squot.package/SquotStonFileCodec.class/instance/version.st b/src/Squot.package/SquotStonFileCodec.class/instance/version.st deleted file mode 100644 index d0efb5c49..000000000 --- a/src/Squot.package/SquotStonFileCodec.class/instance/version.st +++ /dev/null @@ -1,3 +0,0 @@ -Squot serialization -version - ^ 1 \ No newline at end of file diff --git a/src/Squot.package/SquotStonFileCodec.class/instance/write..st b/src/Squot.package/SquotStonFileCodec.class/instance/write..st deleted file mode 100644 index 1e241753e..000000000 --- a/src/Squot.package/SquotStonFileCodec.class/instance/write..st +++ /dev/null @@ -1,4 +0,0 @@ -Squot serialization -write: anArtifact - self atPathOf: anArtifact writeStreamDo: - [:stream | STON squotPut: anArtifact content onStream: stream] \ No newline at end of file diff --git a/src/Squot.package/SquotStonFileCodec.class/methodProperties.json b/src/Squot.package/SquotStonFileCodec.class/methodProperties.json deleted file mode 100644 index 49780dda8..000000000 --- a/src/Squot.package/SquotStonFileCodec.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "fillContentOf:from:" : "jr 3/8/2017 17:06", - "version" : "jr 3/8/2017 17:06", - "write:" : "jr 3/8/2017 17:15" } } diff --git a/src/Squot.package/SquotStonFileCodec.class/properties.json b/src/Squot.package/SquotStonFileCodec.class/properties.json deleted file mode 100644 index ffddafb00..000000000 --- a/src/Squot.package/SquotStonFileCodec.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Serialization", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotCodec classTrait + TSquotSingleFileSerializer classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 19:30", - "instvars" : [ - ], - "name" : "SquotStonFileCodec", - "pools" : [ - ], - "super" : "SquotSerializer", - "traitcomposition" : "TSquotCodec + TSquotSingleFileSerializer", - "type" : "normal" } diff --git a/src/Squot.package/SquotStringMirror.class/README.md b/src/Squot.package/SquotStringMirror.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotStringMirror.class/class/class..st b/src/Squot.package/SquotStringMirror.class/class/class..st deleted file mode 100644 index 9b7d835e6..000000000 --- a/src/Squot.package/SquotStringMirror.class/class/class..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -class: aClass - ^ self new setClass: aClass; yourself \ No newline at end of file diff --git a/src/Squot.package/SquotStringMirror.class/instance/^equals.st b/src/Squot.package/SquotStringMirror.class/instance/^equals.st deleted file mode 100644 index 1ef12b885..000000000 --- a/src/Squot.package/SquotStringMirror.class/instance/^equals.st +++ /dev/null @@ -1,9 +0,0 @@ -comparing -= anObject - "Answer whether the receiver and anObject represent the same object." - - self == anObject - ifTrue: [^ true]. - self class = anObject class - ifFalse: [^ false]. - ^ self theClass = anObject theClass. \ No newline at end of file diff --git a/src/Squot.package/SquotStringMirror.class/instance/canHaveReferences..st b/src/Squot.package/SquotStringMirror.class/instance/canHaveReferences..st deleted file mode 100644 index 010622b78..000000000 --- a/src/Squot.package/SquotStringMirror.class/instance/canHaveReferences..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -canHaveReferences: aString - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotStringMirror.class/instance/capture.with.ifReplaced..st b/src/Squot.package/SquotStringMirror.class/instance/capture.with.ifReplaced..st deleted file mode 100644 index 30756925a..000000000 --- a/src/Squot.package/SquotStringMirror.class/instance/capture.with.ifReplaced..st +++ /dev/null @@ -1,7 +0,0 @@ -capturing -capture: aString with: aSquotObjectCapturer ifReplaced: aBlock - | newShadow | - newShadow := self newShadowObject. - aSquotObjectCapturer rememberAsShadowOfCapturedObject: newShadow. - self initializeSnapshot: newShadow of: aString with: aSquotObjectCapturer. - ^ newShadow \ No newline at end of file diff --git a/src/Squot.package/SquotStringMirror.class/instance/hash.st b/src/Squot.package/SquotStringMirror.class/instance/hash.st deleted file mode 100644 index b73dc68bc..000000000 --- a/src/Squot.package/SquotStringMirror.class/instance/hash.st +++ /dev/null @@ -1,5 +0,0 @@ -comparing -hash - "Answer an integer value that is related to the identity of the receiver." - - ^ self theClass hash. \ No newline at end of file diff --git a/src/Squot.package/SquotStringMirror.class/instance/initializeSnapshot.of.with..st b/src/Squot.package/SquotStringMirror.class/instance/initializeSnapshot.of.with..st deleted file mode 100644 index 82ce71bdf..000000000 --- a/src/Squot.package/SquotStringMirror.class/instance/initializeSnapshot.of.with..st +++ /dev/null @@ -1,3 +0,0 @@ -capturing -initializeSnapshot: aSquotObjectShadow of: aString with: aSquotObjectCapturer - aSquotObjectShadow value: (aString copy flag: #todo). "Using copies of the string means that those string snapshots are still recognized as real strings by the meta object protocol.". \ No newline at end of file diff --git a/src/Squot.package/SquotStringMirror.class/instance/is.comparableTo..st b/src/Squot.package/SquotStringMirror.class/instance/is.comparableTo..st deleted file mode 100644 index d734c7e09..000000000 --- a/src/Squot.package/SquotStringMirror.class/instance/is.comparableTo..st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -is: aString comparableTo: aString2 - ^ aString2 isString \ No newline at end of file diff --git a/src/Squot.package/SquotStringMirror.class/instance/newDiffFrom.to..st b/src/Squot.package/SquotStringMirror.class/instance/newDiffFrom.to..st deleted file mode 100644 index 98df6bc4a..000000000 --- a/src/Squot.package/SquotStringMirror.class/instance/newDiffFrom.to..st +++ /dev/null @@ -1,5 +0,0 @@ -comparing -newDiffFrom: aString to: aString2 - "Do not create diffs from live objects, only from shadows" - self flag: #stub. "Called during the comparison of SquotTrackedObjectMetadata" - ^ nil \ No newline at end of file diff --git a/src/Squot.package/SquotStringMirror.class/instance/newShadowObject.st b/src/Squot.package/SquotStringMirror.class/instance/newShadowObject.st deleted file mode 100644 index 55a810833..000000000 --- a/src/Squot.package/SquotStringMirror.class/instance/newShadowObject.st +++ /dev/null @@ -1,3 +0,0 @@ -capturing -newShadowObject - ^ SquotStringShadow new \ No newline at end of file diff --git a/src/Squot.package/SquotStringMirror.class/instance/referencesFrom..st b/src/Squot.package/SquotStringMirror.class/instance/referencesFrom..st deleted file mode 100644 index d1eba1f45..000000000 --- a/src/Squot.package/SquotStringMirror.class/instance/referencesFrom..st +++ /dev/null @@ -1,4 +0,0 @@ -enumerating -referencesFrom: anObject - "Treat Strings as opaque value objects." - ^ #() \ No newline at end of file diff --git a/src/Squot.package/SquotStringMirror.class/instance/reflectIndexableField.in..st b/src/Squot.package/SquotStringMirror.class/instance/reflectIndexableField.in..st deleted file mode 100644 index 6265e1e1e..000000000 --- a/src/Squot.package/SquotStringMirror.class/instance/reflectIndexableField.in..st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -reflectIndexableField: anIndexableField in: anObject - ^ thisContext object: anObject basicAt: anIndexableField index \ No newline at end of file diff --git a/src/Squot.package/SquotStringMirror.class/instance/setClass..st b/src/Squot.package/SquotStringMirror.class/instance/setClass..st deleted file mode 100644 index 02b2df0ce..000000000 --- a/src/Squot.package/SquotStringMirror.class/instance/setClass..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -setClass: anObject - class := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotStringMirror.class/instance/shouldObjectHaveNameAssigned..st b/src/Squot.package/SquotStringMirror.class/instance/shouldObjectHaveNameAssigned..st deleted file mode 100644 index e96b38a61..000000000 --- a/src/Squot.package/SquotStringMirror.class/instance/shouldObjectHaveNameAssigned..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -shouldObjectHaveNameAssigned: aString - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotStringMirror.class/instance/theClass.st b/src/Squot.package/SquotStringMirror.class/instance/theClass.st deleted file mode 100644 index 34808efa3..000000000 --- a/src/Squot.package/SquotStringMirror.class/instance/theClass.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -theClass - ^ class \ No newline at end of file diff --git a/src/Squot.package/SquotStringMirror.class/methodProperties.json b/src/Squot.package/SquotStringMirror.class/methodProperties.json deleted file mode 100644 index 3ff8257b8..000000000 --- a/src/Squot.package/SquotStringMirror.class/methodProperties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "class" : { - "class:" : "jr 12/15/2020 23:32" }, - "instance" : { - "=" : "jr 12/15/2020 23:33", - "canHaveReferences:" : "jr 7/18/2021 22:40", - "capture:with:ifReplaced:" : "jr 7/18/2021 00:05", - "hash" : "jr 12/15/2020 23:33", - "initializeSnapshot:of:with:" : "jr 7/18/2021 00:00", - "is:comparableTo:" : "jr 7/18/2021 20:15", - "newDiffFrom:to:" : "jr 7/30/2021 20:15", - "newShadowObject" : "jr 7/25/2021 18:46", - "referencesFrom:" : "jr 12/16/2020 01:51", - "reflectIndexableField:in:" : "jr 12/16/2020 00:04", - "setClass:" : "jr 12/15/2020 23:33", - "shouldObjectHaveNameAssigned:" : "jr 1/10/2021 21:54", - "theClass" : "jr 12/15/2020 23:33" } } diff --git a/src/Squot.package/SquotStringMirror.class/properties.json b/src/Squot.package/SquotStringMirror.class/properties.json deleted file mode 100644 index 1575ef037..000000000 --- a/src/Squot.package/SquotStringMirror.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 12/16/2020 01:50", - "instvars" : [ - "class" ], - "name" : "SquotStringMirror", - "pools" : [ - ], - "super" : "SquotMirror", - "type" : "normal" } diff --git a/src/Squot.package/SquotStringShadow.class/README.md b/src/Squot.package/SquotStringShadow.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotStringShadow.class/instance/references.st b/src/Squot.package/SquotStringShadow.class/instance/references.st deleted file mode 100644 index 74fd6192e..000000000 --- a/src/Squot.package/SquotStringShadow.class/instance/references.st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -references - ^ #() \ No newline at end of file diff --git a/src/Squot.package/SquotStringShadow.class/methodProperties.json b/src/Squot.package/SquotStringShadow.class/methodProperties.json deleted file mode 100644 index 127a02b39..000000000 --- a/src/Squot.package/SquotStringShadow.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "references" : "jr 7/25/2021 18:46" } } diff --git a/src/Squot.package/SquotStringShadow.class/properties.json b/src/Squot.package/SquotStringShadow.class/properties.json deleted file mode 100644 index 5d058d046..000000000 --- a/src/Squot.package/SquotStringShadow.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Shadows", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotStringShadow", - "pools" : [ - ], - "super" : "SquotBitsObjectShadow", - "type" : "normal" } diff --git a/src/Squot.package/SquotStringShadowMirror.class/README.md b/src/Squot.package/SquotStringShadowMirror.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotStringShadowMirror.class/instance/referencesFrom..st b/src/Squot.package/SquotStringShadowMirror.class/instance/referencesFrom..st deleted file mode 100644 index 69be53850..000000000 --- a/src/Squot.package/SquotStringShadowMirror.class/instance/referencesFrom..st +++ /dev/null @@ -1,3 +0,0 @@ -enumerating -referencesFrom: aBitsObjectShadow - ^ #() \ No newline at end of file diff --git a/src/Squot.package/SquotStringShadowMirror.class/methodProperties.json b/src/Squot.package/SquotStringShadowMirror.class/methodProperties.json deleted file mode 100644 index c0c930c3e..000000000 --- a/src/Squot.package/SquotStringShadowMirror.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "referencesFrom:" : "jr 7/25/2021 18:44" } } diff --git a/src/Squot.package/SquotStringShadowMirror.class/properties.json b/src/Squot.package/SquotStringShadowMirror.class/properties.json deleted file mode 100644 index 716370a21..000000000 --- a/src/Squot.package/SquotStringShadowMirror.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotStringShadowMirror", - "pools" : [ - ], - "super" : "SquotBitsShadowMirror", - "type" : "normal" } diff --git a/src/Squot.package/SquotSystemSingletonMirror.class/README.md b/src/Squot.package/SquotSystemSingletonMirror.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotSystemSingletonMirror.class/class/class..st b/src/Squot.package/SquotSystemSingletonMirror.class/class/class..st deleted file mode 100644 index 8b3b89878..000000000 --- a/src/Squot.package/SquotSystemSingletonMirror.class/class/class..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -class: aClass - ^ self new - setClass: aClass; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotSystemSingletonMirror.class/instance/capture.with.ifReplaced..st b/src/Squot.package/SquotSystemSingletonMirror.class/instance/capture.with.ifReplaced..st deleted file mode 100644 index 07277e820..000000000 --- a/src/Squot.package/SquotSystemSingletonMirror.class/instance/capture.with.ifReplaced..st +++ /dev/null @@ -1,4 +0,0 @@ -capturing -capture: singleton with: aSquotObjectCapturer ifReplaced: aBlock - self flag: #todo. "Check whether immediate objects and global singletons such as true, false, nil should not just stand in for themselves instead of wrapping them." - ^ SquotPrimitiveValue for: singleton \ No newline at end of file diff --git a/src/Squot.package/SquotSystemSingletonMirror.class/instance/newDiffFrom.to..st b/src/Squot.package/SquotSystemSingletonMirror.class/instance/newDiffFrom.to..st deleted file mode 100644 index 880124ec5..000000000 --- a/src/Squot.package/SquotSystemSingletonMirror.class/instance/newDiffFrom.to..st +++ /dev/null @@ -1,4 +0,0 @@ -comparing -newDiffFrom: value1 to: value2 - "Usually this is only called when comparing two SquotTrackedObjectMetadata values. This answer may not actually be correct in that case, but SquotTrackedObjectMetadata does not use the diffs returned from here anyway, so better use a singleton instead of creating an accurate wasted diff." - ^ SquotDiffOfEqualObjects instance \ No newline at end of file diff --git a/src/Squot.package/SquotSystemSingletonMirror.class/instance/referencesFrom..st b/src/Squot.package/SquotSystemSingletonMirror.class/instance/referencesFrom..st deleted file mode 100644 index 8fb37b190..000000000 --- a/src/Squot.package/SquotSystemSingletonMirror.class/instance/referencesFrom..st +++ /dev/null @@ -1,3 +0,0 @@ -enumerating -referencesFrom: aBooleanOrNil - ^ #() \ No newline at end of file diff --git a/src/Squot.package/SquotSystemSingletonMirror.class/instance/setClass..st b/src/Squot.package/SquotSystemSingletonMirror.class/instance/setClass..st deleted file mode 100644 index 02b2df0ce..000000000 --- a/src/Squot.package/SquotSystemSingletonMirror.class/instance/setClass..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -setClass: anObject - class := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotSystemSingletonMirror.class/instance/shouldObjectHaveNameAssigned..st b/src/Squot.package/SquotSystemSingletonMirror.class/instance/shouldObjectHaveNameAssigned..st deleted file mode 100644 index b31c61de7..000000000 --- a/src/Squot.package/SquotSystemSingletonMirror.class/instance/shouldObjectHaveNameAssigned..st +++ /dev/null @@ -1,4 +0,0 @@ -testing -shouldObjectHaveNameAssigned: aBooleanOrNil - "The system singletons do not get a name to retrieve them from graphs, since they are available everywhere in the pseudo variables true, false and nil." - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotSystemSingletonMirror.class/methodProperties.json b/src/Squot.package/SquotSystemSingletonMirror.class/methodProperties.json deleted file mode 100644 index 44f6826b4..000000000 --- a/src/Squot.package/SquotSystemSingletonMirror.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - "class:" : "jr 1/17/2021 22:27" }, - "instance" : { - "capture:with:ifReplaced:" : "jr 7/18/2021 00:00", - "newDiffFrom:to:" : "jr 2/17/2022 22:21", - "referencesFrom:" : "jr 6/13/2021 21:28", - "setClass:" : "jr 12/15/2020 23:33", - "shouldObjectHaveNameAssigned:" : "jr 1/17/2021 22:29" } } diff --git a/src/Squot.package/SquotSystemSingletonMirror.class/properties.json b/src/Squot.package/SquotSystemSingletonMirror.class/properties.json deleted file mode 100644 index 59eaeb123..000000000 --- a/src/Squot.package/SquotSystemSingletonMirror.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "class" ], - "name" : "SquotSystemSingletonMirror", - "pools" : [ - ], - "super" : "SquotMirror", - "type" : "normal" } diff --git a/src/Squot.package/SquotTableOfContentsFile.class/README.md b/src/Squot.package/SquotTableOfContentsFile.class/README.md deleted file mode 100644 index 4f8e63fba..000000000 --- a/src/Squot.package/SquotTableOfContentsFile.class/README.md +++ /dev/null @@ -1,5 +0,0 @@ -I encapsulate access to the "table of contents" file that lists artifacts in a file system directory. - -Instance Variables - collection: the retrieved artifacts - file: the table of contents file \ No newline at end of file diff --git a/src/Squot.package/SquotTableOfContentsFile.class/class/on..st b/src/Squot.package/SquotTableOfContentsFile.class/class/on..st deleted file mode 100644 index a94aa3aeb..000000000 --- a/src/Squot.package/SquotTableOfContentsFile.class/class/on..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -on: aFileReference - ^ self new - on: aFileReference; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotTableOfContentsFile.class/instance/add..st b/src/Squot.package/SquotTableOfContentsFile.class/instance/add..st deleted file mode 100644 index c97641c4e..000000000 --- a/src/Squot.package/SquotTableOfContentsFile.class/instance/add..st +++ /dev/null @@ -1,4 +0,0 @@ -adding and removing -add: anArtifact - anArtifact wantsToBeInTableOfContents ifFalse: [^ self]. - self dictionary at: anArtifact path put: anArtifact storeInfo serializer. \ No newline at end of file diff --git a/src/Squot.package/SquotTableOfContentsFile.class/instance/applyDiff..st b/src/Squot.package/SquotTableOfContentsFile.class/instance/applyDiff..st deleted file mode 100644 index 718cd1c21..000000000 --- a/src/Squot.package/SquotTableOfContentsFile.class/instance/applyDiff..st +++ /dev/null @@ -1,3 +0,0 @@ -adding and removing -applyDiff: anArtifactDiff - anArtifactDiff applyToContainer: self. \ No newline at end of file diff --git a/src/Squot.package/SquotTableOfContentsFile.class/instance/applyDiff.toObjectAt..st b/src/Squot.package/SquotTableOfContentsFile.class/instance/applyDiff.toObjectAt..st deleted file mode 100644 index 60844d782..000000000 --- a/src/Squot.package/SquotTableOfContentsFile.class/instance/applyDiff.toObjectAt..st +++ /dev/null @@ -1,7 +0,0 @@ -adding and removing -applyDiff: anArtifactDiff toObjectAt: path - anArtifactDiff right wantsToBeInTableOfContents - ifTrue: [anArtifactDiff right storeInfo serializer - ifNotNil: [:serializer | self dictionary at: path put: serializer] - ifNil: [self dictionary at: path ifAbsentPut: [nil]]] - ifFalse: [self dictionary removeKey: path ifAbsent: []]. \ No newline at end of file diff --git a/src/Squot.package/SquotTableOfContentsFile.class/instance/applyPatch..st b/src/Squot.package/SquotTableOfContentsFile.class/instance/applyPatch..st deleted file mode 100644 index 6c5de4bde..000000000 --- a/src/Squot.package/SquotTableOfContentsFile.class/instance/applyPatch..st +++ /dev/null @@ -1,3 +0,0 @@ -adding and removing -applyPatch: aPatch - aPatch applyTo: self. \ No newline at end of file diff --git a/src/Squot.package/SquotTableOfContentsFile.class/instance/delete.st b/src/Squot.package/SquotTableOfContentsFile.class/instance/delete.st deleted file mode 100644 index 46d43a44a..000000000 --- a/src/Squot.package/SquotTableOfContentsFile.class/instance/delete.st +++ /dev/null @@ -1,3 +0,0 @@ -writing -delete - file ensureDeleted. \ No newline at end of file diff --git a/src/Squot.package/SquotTableOfContentsFile.class/instance/dictionary.st b/src/Squot.package/SquotTableOfContentsFile.class/instance/dictionary.st deleted file mode 100644 index 4a5cd4c3f..000000000 --- a/src/Squot.package/SquotTableOfContentsFile.class/instance/dictionary.st +++ /dev/null @@ -1,3 +0,0 @@ -private accessing -dictionary - ^ collection ifNil: [self fileIn. collection] \ No newline at end of file diff --git a/src/Squot.package/SquotTableOfContentsFile.class/instance/exists.st b/src/Squot.package/SquotTableOfContentsFile.class/instance/exists.st deleted file mode 100644 index d9baa647a..000000000 --- a/src/Squot.package/SquotTableOfContentsFile.class/instance/exists.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -exists - ^ file exists \ No newline at end of file diff --git a/src/Squot.package/SquotTableOfContentsFile.class/instance/fileIn.st b/src/Squot.package/SquotTableOfContentsFile.class/instance/fileIn.st deleted file mode 100644 index a92017827..000000000 --- a/src/Squot.package/SquotTableOfContentsFile.class/instance/fileIn.st +++ /dev/null @@ -1,10 +0,0 @@ -reading -fileIn - file readStreamDo: [:stream | - stream ascii. - collection := STON fromStreamWithComments: stream] - ifAbsent: [ | notification | - collection := OrderedDictionary new. - (notification := SquotNoTableOfContentsFound new) - tableOfContents: self; - signal]. \ No newline at end of file diff --git a/src/Squot.package/SquotTableOfContentsFile.class/instance/fileOut.st b/src/Squot.package/SquotTableOfContentsFile.class/instance/fileOut.st deleted file mode 100644 index f5a4499a4..000000000 --- a/src/Squot.package/SquotTableOfContentsFile.class/instance/fileOut.st +++ /dev/null @@ -1,4 +0,0 @@ -writing -fileOut - collection ifNil: [^ self]. - file writeStreamDo: [:stream | STON squotPut: collection onStream: stream]. \ No newline at end of file diff --git a/src/Squot.package/SquotTableOfContentsFile.class/instance/includesKey..st b/src/Squot.package/SquotTableOfContentsFile.class/instance/includesKey..st deleted file mode 100644 index 7ba3aefd5..000000000 --- a/src/Squot.package/SquotTableOfContentsFile.class/instance/includesKey..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -includesKey: path - ^ self dictionary includesKey: path \ No newline at end of file diff --git a/src/Squot.package/SquotTableOfContentsFile.class/instance/keysDo..st b/src/Squot.package/SquotTableOfContentsFile.class/instance/keysDo..st deleted file mode 100644 index dc4cdaff7..000000000 --- a/src/Squot.package/SquotTableOfContentsFile.class/instance/keysDo..st +++ /dev/null @@ -1,3 +0,0 @@ -enumerating -keysDo: aBlock - self dictionary keysDo: aBlock. \ No newline at end of file diff --git a/src/Squot.package/SquotTableOfContentsFile.class/instance/on..st b/src/Squot.package/SquotTableOfContentsFile.class/instance/on..st deleted file mode 100644 index 672c9ab30..000000000 --- a/src/Squot.package/SquotTableOfContentsFile.class/instance/on..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -on: aFileReference - file := aFileReference. \ No newline at end of file diff --git a/src/Squot.package/SquotTableOfContentsFile.class/instance/removeAll.st b/src/Squot.package/SquotTableOfContentsFile.class/instance/removeAll.st deleted file mode 100644 index 375775683..000000000 --- a/src/Squot.package/SquotTableOfContentsFile.class/instance/removeAll.st +++ /dev/null @@ -1,3 +0,0 @@ -adding and removing -removeAll - self dictionary removeAll. \ No newline at end of file diff --git a/src/Squot.package/SquotTableOfContentsFile.class/instance/removeAt..st b/src/Squot.package/SquotTableOfContentsFile.class/instance/removeAt..st deleted file mode 100644 index 941fc9867..000000000 --- a/src/Squot.package/SquotTableOfContentsFile.class/instance/removeAt..st +++ /dev/null @@ -1,3 +0,0 @@ -adding and removing -removeAt: path - self dictionary removeKey: path ifAbsent: []. \ No newline at end of file diff --git a/src/Squot.package/SquotTableOfContentsFile.class/methodProperties.json b/src/Squot.package/SquotTableOfContentsFile.class/methodProperties.json deleted file mode 100644 index fc9ad852e..000000000 --- a/src/Squot.package/SquotTableOfContentsFile.class/methodProperties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "class" : { - "on:" : "jr 10/2/2017 23:13" }, - "instance" : { - "add:" : "jr 10/3/2017 00:38", - "applyDiff:" : "jr 10/2/2017 23:13", - "applyDiff:toObjectAt:" : "ct 12/29/2021 20:37", - "applyPatch:" : "jr 10/2/2017 23:12", - "delete" : "jr 3/17/2019 22:13", - "dictionary" : "jr 10/3/2017 00:31", - "exists" : "jr 3/6/2019 21:08", - "fileIn" : "jr 10/3/2017 00:31", - "fileOut" : "jr 8/18/2018 17:32", - "includesKey:" : "jr 10/2/2017 23:31", - "keysDo:" : "jr 10/2/2017 23:19", - "on:" : "jr 10/2/2017 22:35", - "removeAll" : "jr 8/18/2018 17:38", - "removeAt:" : "jr 10/3/2017 00:40" } } diff --git a/src/Squot.package/SquotTableOfContentsFile.class/properties.json b/src/Squot.package/SquotTableOfContentsFile.class/properties.json deleted file mode 100644 index 11f0e001d..000000000 --- a/src/Squot.package/SquotTableOfContentsFile.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-FileSystemStore", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 10/2/2017 23:53", - "instvars" : [ - "file", - "collection" ], - "name" : "SquotTableOfContentsFile", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotTestObjectWithTransientMetadata.class/README.md b/src/Squot.package/SquotTestObjectWithTransientMetadata.class/README.md deleted file mode 100644 index b339bd96c..000000000 --- a/src/Squot.package/SquotTestObjectWithTransientMetadata.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am an example of an object that uses transient metadata while the object is loaded. \ No newline at end of file diff --git a/src/Squot.package/SquotTestObjectWithTransientMetadata.class/instance/squotAddTransientStoreInfoTo..st b/src/Squot.package/SquotTestObjectWithTransientMetadata.class/instance/squotAddTransientStoreInfoTo..st deleted file mode 100644 index da6a6979e..000000000 --- a/src/Squot.package/SquotTestObjectWithTransientMetadata.class/instance/squotAddTransientStoreInfoTo..st +++ /dev/null @@ -1,4 +0,0 @@ -tracking -squotAddTransientStoreInfoTo: aTrackedObjectMetadata - super squotAddTransientStoreInfoTo: aTrackedObjectMetadata. - aTrackedObjectMetadata at: #transient put: 1. \ No newline at end of file diff --git a/src/Squot.package/SquotTestObjectWithTransientMetadata.class/instance/squotInitializeStoreInfo..st b/src/Squot.package/SquotTestObjectWithTransientMetadata.class/instance/squotInitializeStoreInfo..st deleted file mode 100644 index 4fe3b9a43..000000000 --- a/src/Squot.package/SquotTestObjectWithTransientMetadata.class/instance/squotInitializeStoreInfo..st +++ /dev/null @@ -1,4 +0,0 @@ -tracking -squotInitializeStoreInfo: aTrackedObjectMetadata - super squotInitializeStoreInfo: aTrackedObjectMetadata. - aTrackedObjectMetadata at: #dummy put: {1. 1}. \ No newline at end of file diff --git a/src/Squot.package/SquotTestObjectWithTransientMetadata.class/instance/squotRemoveTransientStoreInfoFrom..st b/src/Squot.package/SquotTestObjectWithTransientMetadata.class/instance/squotRemoveTransientStoreInfoFrom..st deleted file mode 100644 index bde2120ff..000000000 --- a/src/Squot.package/SquotTestObjectWithTransientMetadata.class/instance/squotRemoveTransientStoreInfoFrom..st +++ /dev/null @@ -1,4 +0,0 @@ -tracking -squotRemoveTransientStoreInfoFrom: aTrackedObjectMetadata - super squotRemoveTransientStoreInfoFrom: aTrackedObjectMetadata. - aTrackedObjectMetadata removeKey: #transient. \ No newline at end of file diff --git a/src/Squot.package/SquotTestObjectWithTransientMetadata.class/methodProperties.json b/src/Squot.package/SquotTestObjectWithTransientMetadata.class/methodProperties.json deleted file mode 100644 index 0b643fb8a..000000000 --- a/src/Squot.package/SquotTestObjectWithTransientMetadata.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "squotAddTransientStoreInfoTo:" : "jr 12/13/2020 21:34", - "squotInitializeStoreInfo:" : "jr 12/13/2020 21:41", - "squotRemoveTransientStoreInfoFrom:" : "jr 12/13/2020 21:34" } } diff --git a/src/Squot.package/SquotTestObjectWithTransientMetadata.class/properties.json b/src/Squot.package/SquotTestObjectWithTransientMetadata.class/properties.json deleted file mode 100644 index 3c7d6e1db..000000000 --- a/src/Squot.package/SquotTestObjectWithTransientMetadata.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 12/13/2020 21:28", - "instvars" : [ - ], - "name" : "SquotTestObjectWithTransientMetadata", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotTestSnapshots.class/README.md b/src/Squot.package/SquotTestSnapshots.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotTestSnapshots.class/class/snapshotWithChangedLoadOrder.st b/src/Squot.package/SquotTestSnapshots.class/class/snapshotWithChangedLoadOrder.st deleted file mode 100644 index 43e39d890..000000000 --- a/src/Squot.package/SquotTestSnapshots.class/class/snapshotWithChangedLoadOrder.st +++ /dev/null @@ -1,21 +0,0 @@ -objects for tests -snapshotWithChangedLoadOrder - | bytes1 bytes2 snapshot | - bytes1 := #[1]. bytes2 := #[2]. - (snapshot := SquotSnapshot new) - artifacts: (Dictionary new - at: 'bytes1' put: (SquotArtifact new - content: (SquotShadowGraph withSingleShadow: - (SquotBitsObjectShadow for: bytes1)); - path: 'bytes1'; - initializeDefaultStoreInfoFor: bytes1; - yourself); - at: 'bytes2' put: (SquotArtifact new - content: (SquotShadowGraph withSingleShadow: - (SquotBitsObjectShadow for: bytes2)); - path: 'bytes2'; - initializeDefaultStoreInfoFor: bytes2; - yourself); - yourself); - loadOrder: snapshot artifacts keys asArray reversed. - ^ snapshot \ No newline at end of file diff --git a/src/Squot.package/SquotTestSnapshots.class/methodProperties.json b/src/Squot.package/SquotTestSnapshots.class/methodProperties.json deleted file mode 100644 index 129c7c13f..000000000 --- a/src/Squot.package/SquotTestSnapshots.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "snapshotWithChangedLoadOrder" : "jr 8/18/2018 18:16" }, - "instance" : { - } } diff --git a/src/Squot.package/SquotTestSnapshots.class/properties.json b/src/Squot.package/SquotTestSnapshots.class/properties.json deleted file mode 100644 index 2feac56ec..000000000 --- a/src/Squot.package/SquotTestSnapshots.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotTestSnapshots", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotTextFileCodec.class/README.md b/src/Squot.package/SquotTextFileCodec.class/README.md deleted file mode 100644 index e9b5b0236..000000000 --- a/src/Squot.package/SquotTextFileCodec.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I write and read (serialize/deserialize) Strings as plain text files. \ No newline at end of file diff --git a/src/Squot.package/SquotTextFileCodec.class/instance/fillContentOf.from..st b/src/Squot.package/SquotTextFileCodec.class/instance/fillContentOf.from..st deleted file mode 100644 index 591a9d4a4..000000000 --- a/src/Squot.package/SquotTextFileCodec.class/instance/fillContentOf.from..st +++ /dev/null @@ -1,6 +0,0 @@ -Squot deserialization -fillContentOf: anArtifact from: aFileOrDirectoryReference - anArtifact content: - (SquotShadowGraph withSingleShadow: - (aFileOrDirectoryReference readStreamDo: [:stream | stream text contents]) - captureWithSquot undecorated) \ No newline at end of file diff --git a/src/Squot.package/SquotTextFileCodec.class/instance/version.st b/src/Squot.package/SquotTextFileCodec.class/instance/version.st deleted file mode 100644 index d0efb5c49..000000000 --- a/src/Squot.package/SquotTextFileCodec.class/instance/version.st +++ /dev/null @@ -1,3 +0,0 @@ -Squot serialization -version - ^ 1 \ No newline at end of file diff --git a/src/Squot.package/SquotTextFileCodec.class/instance/write..st b/src/Squot.package/SquotTextFileCodec.class/instance/write..st deleted file mode 100644 index 1ad8b1d7e..000000000 --- a/src/Squot.package/SquotTextFileCodec.class/instance/write..st +++ /dev/null @@ -1,5 +0,0 @@ -Squot serialization -write: anArtifact - self atPathOf: anArtifact writeStreamDo: [:stream | - anArtifact shadowOfTrackedObject writeTo: stream. - stream truncate: stream position]. \ No newline at end of file diff --git a/src/Squot.package/SquotTextFileCodec.class/methodProperties.json b/src/Squot.package/SquotTextFileCodec.class/methodProperties.json deleted file mode 100644 index bf87d9c33..000000000 --- a/src/Squot.package/SquotTextFileCodec.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "fillContentOf:from:" : "jr 8/18/2017 12:48", - "version" : "jr 3/8/2017 17:10", - "write:" : "jr 12/13/2020 23:54" } } diff --git a/src/Squot.package/SquotTextFileCodec.class/properties.json b/src/Squot.package/SquotTextFileCodec.class/properties.json deleted file mode 100644 index b8e67396e..000000000 --- a/src/Squot.package/SquotTextFileCodec.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Serialization", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotCodec classTrait + TSquotSingleFileSerializer classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 3/8/2017 17:09", - "instvars" : [ - ], - "name" : "SquotTextFileCodec", - "pools" : [ - ], - "super" : "SquotSerializer", - "traitcomposition" : "TSquotCodec + TSquotSingleFileSerializer", - "type" : "normal" } diff --git a/src/Squot.package/SquotToggles.class/README.md b/src/Squot.package/SquotToggles.class/README.md deleted file mode 100644 index e3e8211b7..000000000 --- a/src/Squot.package/SquotToggles.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I hold feature flags (feature toggles) for Squot. \ No newline at end of file diff --git a/src/Squot.package/SquotToggles.class/class/ignoreMethodsInAssumeUnchanged..st b/src/Squot.package/SquotToggles.class/class/ignoreMethodsInAssumeUnchanged..st deleted file mode 100644 index cc923aaf4..000000000 --- a/src/Squot.package/SquotToggles.class/class/ignoreMethodsInAssumeUnchanged..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -ignoreMethodsInAssumeUnchanged: aBoolean - IgnoreMethodsInAssumeUnchanged := aBoolean \ No newline at end of file diff --git a/src/Squot.package/SquotToggles.class/class/ignoreMethodsInAssumeUnchanged.st b/src/Squot.package/SquotToggles.class/class/ignoreMethodsInAssumeUnchanged.st deleted file mode 100644 index fab1157c8..000000000 --- a/src/Squot.package/SquotToggles.class/class/ignoreMethodsInAssumeUnchanged.st +++ /dev/null @@ -1,7 +0,0 @@ -accessing -ignoreMethodsInAssumeUnchanged - - ^ IgnoreMethodsInAssumeUnchanged ifNil: [true] \ No newline at end of file diff --git a/src/Squot.package/SquotToggles.class/class/warnAboutUseOfDeprecatedMethods..st b/src/Squot.package/SquotToggles.class/class/warnAboutUseOfDeprecatedMethods..st deleted file mode 100644 index 282f9f201..000000000 --- a/src/Squot.package/SquotToggles.class/class/warnAboutUseOfDeprecatedMethods..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -warnAboutUseOfDeprecatedMethods: aBoolean - WarnAboutUseOfDeprecatedMethods := aBoolean. \ No newline at end of file diff --git a/src/Squot.package/SquotToggles.class/class/warnAboutUseOfDeprecatedMethods.st b/src/Squot.package/SquotToggles.class/class/warnAboutUseOfDeprecatedMethods.st deleted file mode 100644 index 74442af1d..000000000 --- a/src/Squot.package/SquotToggles.class/class/warnAboutUseOfDeprecatedMethods.st +++ /dev/null @@ -1,7 +0,0 @@ -accessing -warnAboutUseOfDeprecatedMethods - - ^ WarnAboutUseOfDeprecatedMethods ifNil: [false] \ No newline at end of file diff --git a/src/Squot.package/SquotToggles.class/methodProperties.json b/src/Squot.package/SquotToggles.class/methodProperties.json deleted file mode 100644 index eb0fe389f..000000000 --- a/src/Squot.package/SquotToggles.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - "ignoreMethodsInAssumeUnchanged" : "jr 8/10/2020 23:42", - "ignoreMethodsInAssumeUnchanged:" : "jr 2/26/2020 22:52", - "warnAboutUseOfDeprecatedMethods" : "jr 9/21/2020 23:11", - "warnAboutUseOfDeprecatedMethods:" : "jr 9/21/2020 23:11" }, - "instance" : { - } } diff --git a/src/Squot.package/SquotToggles.class/properties.json b/src/Squot.package/SquotToggles.class/properties.json deleted file mode 100644 index 224607281..000000000 --- a/src/Squot.package/SquotToggles.class/properties.json +++ /dev/null @@ -1,19 +0,0 @@ -{ - "category" : "Squot-Internal", - "classinstvars" : [ - ], - "classvars" : [ - "EnableRefactoredCherryPick", - "EnableRefactoredSave", - "IgnoreMethodsInAssumeUnchanged", - "UseNewObjectPatching", - "UseUnitOfWorkInterface", - "WarnAboutUseOfDeprecatedMethods" ], - "commentStamp" : "jr 1/4/2020 19:37", - "instvars" : [ - ], - "name" : "SquotToggles", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotToolTestCase.class/README.md b/src/Squot.package/SquotToolTestCase.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotToolTestCase.class/class/isAbstract.st b/src/Squot.package/SquotToolTestCase.class/class/isAbstract.st deleted file mode 100644 index 4c00e1fd5..000000000 --- a/src/Squot.package/SquotToolTestCase.class/class/isAbstract.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isAbstract - ^ self name = #SquotToolTestCase \ No newline at end of file diff --git a/src/Squot.package/SquotToolTestCase.class/instance/closeDialogPossiblyOpenedDuring.timeoutMsecs..st b/src/Squot.package/SquotToolTestCase.class/instance/closeDialogPossiblyOpenedDuring.timeoutMsecs..st deleted file mode 100644 index 1debe7751..000000000 --- a/src/Squot.package/SquotToolTestCase.class/instance/closeDialogPossiblyOpenedDuring.timeoutMsecs..st +++ /dev/null @@ -1,12 +0,0 @@ -utilities -closeDialogPossiblyOpenedDuring: aBlock timeoutMsecs: millisecondsInteger - | semaphore previousWorldMorphs worldMorphs dialog | - semaphore := Semaphore new. - previousWorldMorphs := Set withAll: self currentWorld submorphs. - [aBlock value. semaphore signal] fork. - semaphore waitTimeoutMSecs: millisecondsInteger. - worldMorphs := self currentWorld submorphs. - (dialog := (worldMorphs first: (3 min: worldMorphs size)) - detect: [:each | (previousWorldMorphs includes: each) not - and: [each isKindOf: DialogWindow]] ifNone: []) - ifNotNil: [dialog closeDialog]. \ No newline at end of file diff --git a/src/Squot.package/SquotToolTestCase.class/instance/closeTool..st b/src/Squot.package/SquotToolTestCase.class/instance/closeTool..st deleted file mode 100644 index 81829b920..000000000 --- a/src/Squot.package/SquotToolTestCase.class/instance/closeTool..st +++ /dev/null @@ -1,3 +0,0 @@ -utilities -closeTool: view - ^ toolBuilder close: view. \ No newline at end of file diff --git a/src/Squot.package/SquotToolTestCase.class/instance/newToolOn..st b/src/Squot.package/SquotToolTestCase.class/instance/newToolOn..st deleted file mode 100644 index feffc192e..000000000 --- a/src/Squot.package/SquotToolTestCase.class/instance/newToolOn..st +++ /dev/null @@ -1,3 +0,0 @@ -utilities -newToolOn: patch - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotToolTestCase.class/instance/openTool.st b/src/Squot.package/SquotToolTestCase.class/instance/openTool.st deleted file mode 100644 index 3a772d715..000000000 --- a/src/Squot.package/SquotToolTestCase.class/instance/openTool.st +++ /dev/null @@ -1,4 +0,0 @@ -utilities -openTool - toolBuilder := ToolBuilder default. - ^ toolBuilder open: tool label: self selector. \ No newline at end of file diff --git a/src/Squot.package/SquotToolTestCase.class/instance/openToolAndTestOn..st b/src/Squot.package/SquotToolTestCase.class/instance/openToolAndTestOn..st deleted file mode 100644 index 39084dc89..000000000 --- a/src/Squot.package/SquotToolTestCase.class/instance/openToolAndTestOn..st +++ /dev/null @@ -1,7 +0,0 @@ -utilities -openToolAndTestOn: aPatch - | view | - view := self openToolOn: aPatch. - [self assert: tool rootNodes notEmpty. - self performUiTestsOnToolBuiltBy: toolBuilder] - ensure: [self closeTool: view]. \ No newline at end of file diff --git a/src/Squot.package/SquotToolTestCase.class/instance/openToolAndTestOnPatch..st b/src/Squot.package/SquotToolTestCase.class/instance/openToolAndTestOnPatch..st deleted file mode 100644 index ae1665a48..000000000 --- a/src/Squot.package/SquotToolTestCase.class/instance/openToolAndTestOnPatch..st +++ /dev/null @@ -1,3 +0,0 @@ -utilities -openToolAndTestOnPatch: aPatch - ^ self openToolAndTestOn: aPatch \ No newline at end of file diff --git a/src/Squot.package/SquotToolTestCase.class/instance/openToolOn..st b/src/Squot.package/SquotToolTestCase.class/instance/openToolOn..st deleted file mode 100644 index fdda9edbf..000000000 --- a/src/Squot.package/SquotToolTestCase.class/instance/openToolOn..st +++ /dev/null @@ -1,4 +0,0 @@ -utilities -openToolOn: aPatch - tool := self newToolOn: aPatch. - ^ self openTool. \ No newline at end of file diff --git a/src/Squot.package/SquotToolTestCase.class/instance/performUiTestsOnToolBuiltBy..st b/src/Squot.package/SquotToolTestCase.class/instance/performUiTestsOnToolBuiltBy..st deleted file mode 100644 index 1eac03029..000000000 --- a/src/Squot.package/SquotToolTestCase.class/instance/performUiTestsOnToolBuiltBy..st +++ /dev/null @@ -1,3 +0,0 @@ -utilities -performUiTestsOnToolBuiltBy: aToolBuilder - self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotToolTestCase.class/methodProperties.json b/src/Squot.package/SquotToolTestCase.class/methodProperties.json deleted file mode 100644 index bf4bef3c8..000000000 --- a/src/Squot.package/SquotToolTestCase.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - "isAbstract" : "jr 8/14/2019 22:19" }, - "instance" : { - "closeDialogPossiblyOpenedDuring:timeoutMsecs:" : "jr 4/23/2018 23:28", - "closeTool:" : "jr 11/7/2020 23:51", - "newToolOn:" : "jr 8/14/2019 22:23", - "openTool" : "jr 11/7/2020 23:56", - "openToolAndTestOn:" : "jr 11/7/2020 23:51", - "openToolAndTestOnPatch:" : "jr 8/15/2019 00:52", - "openToolOn:" : "jr 11/7/2020 23:56", - "performUiTestsOnToolBuiltBy:" : "jr 9/29/2019 22:30" } } diff --git a/src/Squot.package/SquotToolTestCase.class/properties.json b/src/Squot.package/SquotToolTestCase.class/properties.json deleted file mode 100644 index 9e13fcab9..000000000 --- a/src/Squot.package/SquotToolTestCase.class/properties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "category" : "Squot-Tests-Tools", - "classinstvars" : [ - ], - "classtraitcomposition" : "TTestCaseSuppressingProgressDisplay classTrait", - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "tool", - "toolBuilder" ], - "name" : "SquotToolTestCase", - "pools" : [ - ], - "super" : "TestCase", - "traitcomposition" : "TTestCaseSuppressingProgressDisplay", - "type" : "normal" } diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/README.md b/src/Squot.package/SquotTrackedObjectMetadata.class/README.md index 92560a817..e69de29bb 100644 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/README.md +++ b/src/Squot.package/SquotTrackedObjectMetadata.class/README.md @@ -1,6 +0,0 @@ -I keep information about how to capture, store and restore an object that resides in a Store. - -For example, I can store -- the original class of the tracked object, -- if specific instance variables of an object should be default-initialized instead of being captured -- the names of objects in a graph of objects \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/class/squotMirror.st b/src/Squot.package/SquotTrackedObjectMetadata.class/class/squotMirror.st deleted file mode 100644 index ec65ea767..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/class/squotMirror.st +++ /dev/null @@ -1,3 +0,0 @@ -reflection -squotMirror - ^ SquotTrackedObjectMetadataMirror class: self \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/^equals.st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/^equals.st deleted file mode 100644 index 4fdb21421..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/^equals.st +++ /dev/null @@ -1,7 +0,0 @@ -comparing -= anObject - | relevantKeys | - (anObject respondsTo: #keys) ifFalse: [^ false]. - relevantKeys := self keys copyWithout: #objectsReplacedByNames. - ^ relevantKeys size = (anObject keys count: [:each | each ~= #objectsReplacedByNames]) - and: [relevantKeys allSatisfy: [:each | (anObject at: each ifAbsent: []) = (self at: each)]] \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/absorbDiff..st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/absorbDiff..st deleted file mode 100644 index 0538fdf20..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/absorbDiff..st +++ /dev/null @@ -1,9 +0,0 @@ -patching -absorbDiff: aTrackedObjectMetadataDiff - "As metadata with transient properties included, apply the diff, but keep the transient properties." - "The thorough thing to do would be to admit that the 'left' side of the diff is not equal to me, and to merge me with the 'right' side of the diff, with the 'left' side as the common base. But this would be yet another compare-and-merge operation when new versions are loaded." - | patched | - patched := aTrackedObjectMetadataDiff squotApplyTo: self. "This is not completely clean, because the 'left' side of the diff usually does not have my transient properties." - self updateFrom: patched. - "In addition, also remove properties that are explictly removed according to the diff." - (self keys copyWithoutAll: patched keys) do: [:eachKey | self removeKey: eachKey]. \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/add.toSlotOverridesOf..st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/add.toSlotOverridesOf..st deleted file mode 100644 index baa5de07a..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/add.toSlotOverridesOf..st +++ /dev/null @@ -1,4 +0,0 @@ -private accessing -add: aSlot toSlotOverridesOf: anObject - ^ (self slotOverrides at: anObject ifAbsentPut: [Dictionary new]) - add: aSlot \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/asSquotTrackedObjectMetadata.st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/asSquotTrackedObjectMetadata.st deleted file mode 100644 index 39e37b16b..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/asSquotTrackedObjectMetadata.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -asSquotTrackedObjectMetadata - ^ self \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/copyIgnoredInstanceVariables..st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/copyIgnoredInstanceVariables..st deleted file mode 100644 index a045f9ea8..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/copyIgnoredInstanceVariables..st +++ /dev/null @@ -1,3 +0,0 @@ -copying -copyIgnoredInstanceVariables: anIdentityDictionary - ^ anIdentityDictionary copy \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/copySlotOverrides..st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/copySlotOverrides..st deleted file mode 100644 index b3e4957f2..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/copySlotOverrides..st +++ /dev/null @@ -1,7 +0,0 @@ -copying -copySlotOverrides: anIdentityDictionary - "Copy the inner dictionaries." - | copy | - copy := anIdentityDictionary copy. - copy associationsDo: [:each | each value: each value copy]. - ^ copy \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/hash.st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/hash.st deleted file mode 100644 index 5e1856d20..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/hash.st +++ /dev/null @@ -1,12 +0,0 @@ -comparing -hash - | hash sizeWithoutExcludedProperties | - hash := self species hash. - sizeWithoutExcludedProperties := self size. - self size <= 10 ifTrue: "the limitation to 10 is inherited from Collection>>hash" - [self associationsDo: - [:assoc | - assoc key ~= #objectsReplacedByNames - ifTrue: [ hash := hash bitXor: assoc value hash] - ifFalse: [sizeWithoutExcludedProperties := sizeWithoutExcludedProperties - 1]]]. - ^hash bitXor: sizeWithoutExcludedProperties hash \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/id..st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/id..st deleted file mode 100644 index 485114dd9..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/id..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -id: aUUID - ^ self at: #id put: aUUID \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/id.st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/id.st deleted file mode 100644 index 465c106f1..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/id.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -id - ^ self at: #id \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/ignoreInstanceVariable.in..st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/ignoreInstanceVariable.in..st deleted file mode 100644 index ae3d11251..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/ignoreInstanceVariable.in..st +++ /dev/null @@ -1,8 +0,0 @@ -accessing -ignoreInstanceVariable: aString in: anObject - | ignored | - ignored := self ignoredInstanceVariables. - ignored - at: anObject - put: ((ignored at: anObject ifAbsent: [Array empty]) - copyWith: aString). \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/ignoreInstanceVariables.in..st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/ignoreInstanceVariables.in..st deleted file mode 100644 index f86b0fcc6..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/ignoreInstanceVariables.in..st +++ /dev/null @@ -1,8 +0,0 @@ -accessing -ignoreInstanceVariables: aCollectionOfStrings in: anObject - | ignored | - ignored := self ignoredInstanceVariables. - ignored - at: anObject - put: ((ignored at: anObject ifAbsentPut: [Array withAll: aCollectionOfStrings. ^ self]) - , aCollectionOfStrings). \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/ignoredInstanceVariables.st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/ignoredInstanceVariables.st deleted file mode 100644 index 42ff5bf2e..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/ignoredInstanceVariables.st +++ /dev/null @@ -1,3 +0,0 @@ -private accessing -ignoredInstanceVariables - ^ self at: #ignoredInstanceVariables ifAbsentPut: [IdentityDictionary new] \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/ignoredInstanceVariablesIn..st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/ignoredInstanceVariablesIn..st deleted file mode 100644 index a1e9b156a..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/ignoredInstanceVariablesIn..st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -ignoredInstanceVariablesIn: anObject - self ignoredInstanceVariables - at: anObject - ifPresent: [:them | ^ them] - ifAbsent: [#()] \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/initializeInstVarNamed.of.with..st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/initializeInstVarNamed.of.with..st deleted file mode 100644 index 9bb9ed673..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/initializeInstVarNamed.of.with..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -initializeInstVarNamed: aString of: anObject with: aDiskProxy - ^ self add: (SquotInstVarSlot key: aString value: aDiskProxy) toSlotOverridesOf: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/materializer..st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/materializer..st deleted file mode 100644 index d249ba1c8..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/materializer..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -materializer: aMaterializer - ^ self at: #loader put: aMaterializer name \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/materializer.st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/materializer.st deleted file mode 100644 index c9674c46e..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/materializer.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -materializer - ^ self at: #loader ifAbsent: nil \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/mergeWith..st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/mergeWith..st deleted file mode 100644 index ac646aaf5..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/mergeWith..st +++ /dev/null @@ -1,4 +0,0 @@ -patching -mergeWith: otherMetadata - self deprecated: 'Use updateFrom: instead'. - self updateFrom: otherMetadata. \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/objectClass..st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/objectClass..st deleted file mode 100644 index 2cd909ee7..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/objectClass..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -objectClass: aClass - ^ self at: #objectClassName put: aClass name \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/objectClassName.st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/objectClassName.st deleted file mode 100644 index b41f10845..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/objectClassName.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -objectClassName - ^ self at: #objectClassName ifAbsent: [] \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/postCopy.st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/postCopy.st deleted file mode 100644 index 734dbe82e..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/postCopy.st +++ /dev/null @@ -1,11 +0,0 @@ -copying -postCopy - "I am copied, for example, when a SquotLiveObject is captured, and since my data must be modified in some cases, my owned collections must be copied." - super postCopy. - self at: #slotOverrides - ifPresent: [:slotOverrides | - self at: #slotOverrides put: (self copySlotOverrides: slotOverrides)]. - self at: #ignoredInstanceVariables - ifPresent: [:dictionary | - self at: #ignoredInstanceVariables put: (self copyIgnoredInstanceVariables: dictionary)]. - self flag: #extensibility. "Custom metadata currently has no chance to react to copying." \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/replaceObjectNamesWithProperReferences.st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/replaceObjectNamesWithProperReferences.st deleted file mode 100644 index 10ede4fdc..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/replaceObjectNamesWithProperReferences.st +++ /dev/null @@ -1,8 +0,0 @@ -as yet unclassified -replaceObjectNamesWithProperReferences - self at: #objectsReplacedByNames ifAbsent: [^ self]. - self removeKey: #objectsReplacedByNames. - self at: #slotOverrides ifPresent: [:slotOverrides | - self at: #slotOverrides put: (self replaceObjectNamesWithReferencesInDictionaryKeys: slotOverrides)]. - self at: #ignoredInstanceVariables ifPresent: [:dictionary | - self at: #ignoredInstanceVariables put: (self replaceObjectNamesWithReferencesInDictionaryKeys: dictionary)]. \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/replaceObjectNamesWithReferencesInDictionaryKeys..st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/replaceObjectNamesWithReferencesInDictionaryKeys..st deleted file mode 100644 index 2fec7a0eb..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/replaceObjectNamesWithReferencesInDictionaryKeys..st +++ /dev/null @@ -1,7 +0,0 @@ -as yet unclassified -replaceObjectNamesWithReferencesInDictionaryKeys: aDictionary - | newAssociations | - newAssociations := OrderedCollection new: aDictionary size. - aDictionary keysAndValuesDo: [:name :dictionary | - newAssociations add: (SquotActiveObjectRegistry objectNamed: name) -> dictionary]. - ^ IdentityDictionary newFrom: newAssociations \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/replaceObjectReferencesByNamesInDictionaryKeys..st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/replaceObjectReferencesByNamesInDictionaryKeys..st deleted file mode 100644 index ce55cd667..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/replaceObjectReferencesByNamesInDictionaryKeys..st +++ /dev/null @@ -1,7 +0,0 @@ -as yet unclassified -replaceObjectReferencesByNamesInDictionaryKeys: anIdentityDictionary - | newAssociations | - newAssociations := OrderedCollection new: anIdentityDictionary size. - anIdentityDictionary keysAndValuesDo: [:object :value | - newAssociations add: (SquotActiveObjectRegistry nameOf: object) -> value]. - ^ Dictionary newFrom: newAssociations \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/replaceObjectReferencesByTheirNames.st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/replaceObjectReferencesByTheirNames.st deleted file mode 100644 index 04df256b2..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/replaceObjectReferencesByTheirNames.st +++ /dev/null @@ -1,8 +0,0 @@ -as yet unclassified -replaceObjectReferencesByTheirNames - self at: #objectsReplacedByNames ifPresent: [:x | ^ self]. - self at: #objectsReplacedByNames ifAbsentPut: [true]. - self at: #slotOverrides ifPresent: [:slotOverrides | - self at: #slotOverrides put: (self replaceObjectReferencesByNamesInDictionaryKeys: slotOverrides)]. - self at: #ignoredInstanceVariables ifPresent: [:dict | - self at: #ignoredInstanceVariables put: (self replaceObjectReferencesByNamesInDictionaryKeys: dict)]. \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/serializer..st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/serializer..st deleted file mode 100644 index cb7502bf3..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/serializer..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -serializer: aSerializer - ^ self at: #serializer put: aSerializer name \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/serializer.st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/serializer.st deleted file mode 100644 index 6e62e997a..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/serializer.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -serializer - ^ self at: #serializer ifAbsent: nil \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/slotOverrideFor.in.ifFound.ifNone..st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/slotOverrideFor.in.ifFound.ifNone..st deleted file mode 100644 index 9d3f84bd0..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/slotOverrideFor.in.ifFound.ifNone..st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -slotOverrideFor: aShadowSlot in: anObject ifFound: unaryBlock ifNone: noneBlock - ^ (self slotOverrides at: anObject ifAbsent: [^ noneBlock value]) - at: aShadowSlot key - ifPresent: unaryBlock - ifAbsent: noneBlock \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/slotOverrides.st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/slotOverrides.st deleted file mode 100644 index 82ebf8821..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/slotOverrides.st +++ /dev/null @@ -1,3 +0,0 @@ -private accessing -slotOverrides - ^ self at: #slotOverrides ifAbsentPut: [IdentityDictionary new] \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/squotDiffAgainst..st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/squotDiffAgainst..st deleted file mode 100644 index 6a378993b..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/squotDiffAgainst..st +++ /dev/null @@ -1,24 +0,0 @@ -comparing -squotDiffAgainst: aTrackedObjectMetadata - | walk diff diffs | - diffs := Dictionary new. - walk := SquotGraphComparisonWalk new. - diff := walk startFrom: self and: aTrackedObjectMetadata. - walk checkPathsTo: self ifMultiple: []; - checkPathsTo: aTrackedObjectMetadata ifMultiple: ["Same object." ^ SquotDiffOfEqualObjects instance]. - walk do: - [:left :right :leftReferrer :rightReferrer :path | - walk followReferencesOf: left and: right - ifDifferentShape: [diffs at: path put: (SquotReferenceTargetExchange reference: path last leftOwner: leftReferrer target: left rightOwner: rightReferrer target: right)] - ifFromBoth: - [:leftValue :rightValue :commonPath | | alreadyVisited | - alreadyVisited := false. - walk checkPathsTo: leftValue ifMultiple: [alreadyVisited := true]; - checkPathsTo: rightValue ifMultiple: [alreadyVisited := true]. - alreadyVisited ifFalse: - [leftValue ~= rightValue ifTrue: - [walk addLeft: leftValue right: rightValue reachedVia: commonPath last]]] - ifOnlyLeft: [:removed :oldPath | diffs at: oldPath put: (SquotReferenceRemoval of: removed from: left reference: oldPath last rightObject: right)] - ifOnlyRight: [:added :newPath | diffs at: newPath put: (SquotReferenceAddition to: left reference: newPath last target: added rightOwner: right)]]. - diff setLeft: self right: aTrackedObjectMetadata diffs: diffs. - ^ diff \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/squotMergeWith.basedOn..st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/squotMergeWith.basedOn..st deleted file mode 100644 index b81687ab0..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/squotMergeWith.basedOn..st +++ /dev/null @@ -1,48 +0,0 @@ -merging -squotMergeWith: incomingTrackedObjectMetadata basedOn: baseTrackedObjectMetadata - | walk diffs conflicts pathToArtifactId | - diffs := Dictionary new. - conflicts := Dictionary new. - walk := SquotGraphMergeWalk startingFrom: self and: incomingTrackedObjectMetadata basedOn: baseTrackedObjectMetadata. - pathToArtifactId := {SquotDictionaryEntry key: #id}. "Ignore all differences in the artifact id." - walk do: - [:working :incoming :base :workingReferrer :incomingReferrer :baseReferrer | - walk - followReferencesIfReplaced: - [:path | path ~= pathToArtifactId - ifTrue: [diffs at: path - put: (SquotReferenceTargetExchange reference: path last - leftOwner: workingReferrer target: working - rightOwner: incomingReferrer target: incoming)]] - ifReplacedDifferently: - [:path | path ~= pathToArtifactId - ifTrue: [conflicts at: path - put: (SquotObjectReferenceConflict key: path last - base: base working: working incoming: incoming)]] - ifRemoved: - [:removed :path | - path ~= pathToArtifactId - ifTrue: [diffs at: path - put: (SquotReferenceRemoval of: removed from: working - reference: path last rightObject: incoming)]] - ifWorkingChanged: - [:changed :original :path | - path ~= pathToArtifactId - ifTrue: [conflicts at: path - put: (SquotObjectReferenceConflict key: path last - base: original working: changed incoming: nil)]] - ifIncomingChanged: - [:changed :original :path | - path ~= pathToArtifactId - ifTrue: [conflicts at: path - put: (SquotObjectReferenceConflict key: path last - base: original working: nil incoming: changed)]] - ifAdded: [:added :path | diffs at: path put: (SquotReferenceAddition to: working reference: path last target: added rightOwner: incoming)] - ifAddedDifferently: - [:addedWorking :addedIncoming :path | - path ~= pathToArtifactId - ifTrue: [conflicts at: path - put: (SquotReferenceAdditionConflict reference: path last - working: addedWorking owner: working incoming: addedIncoming owner: incoming)]] - ifAlreadyVisited: [self error: 'Multiple paths']]. - ^ SquotTrackedObjectMetadataMerge into: self merge: incomingTrackedObjectMetadata basedOn: baseTrackedObjectMetadata diffs: diffs conflicts: conflicts \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/updateFrom..st b/src/Squot.package/SquotTrackedObjectMetadata.class/instance/updateFrom..st deleted file mode 100644 index dac0a689a..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/instance/updateFrom..st +++ /dev/null @@ -1,4 +0,0 @@ -patching -updateFrom: otherMetadata - "As metadata with transient properties, overwrite my properties, but preserve those transient properties." - otherMetadata keysAndValuesDo: [:key :value | self at: key put: value]. \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/methodProperties.json b/src/Squot.package/SquotTrackedObjectMetadata.class/methodProperties.json index 48e8bd966..0e4a66223 100644 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/methodProperties.json +++ b/src/Squot.package/SquotTrackedObjectMetadata.class/methodProperties.json @@ -1,35 +1,5 @@ { "class" : { - "squotMirror" : "jr 4/8/2021 00:48" }, + }, "instance" : { - "=" : "jr 1/16/2022 19:30", - "absorbDiff:" : "jr 6/26/2022 20:06", - "add:toSlotOverridesOf:" : "jr 7/16/2017 12:23", - "asSquotTrackedObjectMetadata" : "jr 7/22/2017 17:30", - "copyIgnoredInstanceVariables:" : "jr 7/20/2017 13:36", - "copySlotOverrides:" : "jr 7/16/2017 17:24", - "hash" : "jr 6/13/2021 11:50", - "id" : "jr 5/27/2022 22:06", - "id:" : "jr 5/27/2022 22:06", - "ignoreInstanceVariable:in:" : "jr 7/20/2017 12:09", - "ignoreInstanceVariables:in:" : "jr 7/20/2017 11:53", - "ignoredInstanceVariables" : "jr 7/20/2017 11:50", - "ignoredInstanceVariablesIn:" : "jr 7/20/2017 11:46", - "initializeInstVarNamed:of:with:" : "jr 7/16/2017 12:23", - "materializer" : "jr 7/16/2017 12:27", - "materializer:" : "jr 7/16/2017 12:28", - "mergeWith:" : "jr 12/13/2020 22:53", - "objectClass:" : "jr 7/16/2017 12:28", - "objectClassName" : "jr 4/19/2021 19:49", - "postCopy" : "jr 8/10/2017 19:19", - "replaceObjectNamesWithProperReferences" : "jr 12/16/2020 01:36", - "replaceObjectNamesWithReferencesInDictionaryKeys:" : "jr 12/16/2020 01:39", - "replaceObjectReferencesByNamesInDictionaryKeys:" : "jr 12/16/2020 01:38", - "replaceObjectReferencesByTheirNames" : "ct 12/29/2021 20:36", - "serializer" : "jr 7/16/2017 12:27", - "serializer:" : "jr 7/16/2017 12:28", - "slotOverrideFor:in:ifFound:ifNone:" : "jr 7/16/2017 13:50", - "slotOverrides" : "jr 7/16/2017 12:21", - "squotDiffAgainst:" : "jr 8/8/2021 16:53", - "squotMergeWith:basedOn:" : "jr 6/26/2022 22:17", - "updateFrom:" : "jr 6/26/2022 18:45" } } + } } diff --git a/src/Squot.package/SquotTrackedObjectMetadata.class/properties.json b/src/Squot.package/SquotTrackedObjectMetadata.class/properties.json index 60ac87916..b79cc9a36 100644 --- a/src/Squot.package/SquotTrackedObjectMetadata.class/properties.json +++ b/src/Squot.package/SquotTrackedObjectMetadata.class/properties.json @@ -1,10 +1,10 @@ { - "category" : "Squot-Core", + "category" : "Squot-Mapper-Metadata", "classinstvars" : [ ], "classvars" : [ ], - "commentStamp" : "jr 7/16/2017 12:01", + "commentStamp" : "", "instvars" : [ ], "name" : "SquotTrackedObjectMetadata", diff --git a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/README.md b/src/Squot.package/SquotTrackedObjectMetadataDiff.class/README.md deleted file mode 100644 index 9e5b2abcf..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/README.md +++ /dev/null @@ -1,6 +0,0 @@ -I know the differences between two SquotTrackedObjectMetadata objects. - -Instance Variables - diffs: Dictionary of differences in the asSquotTrackedObjectMetadata. The keys are sequences of SquotReferences that denote the path from the root SquotTrackedObjectMetadata to the actual property being changed. The values are SquotReferenceDiffs that say what happened to the reference denoted in the key (e. g. add it, remove it, change it). - left: The original SquotTrackedObjectMetadata. - right: The modified SquotTrackedObjectMetadata. \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/class/left.right.diffs..st b/src/Squot.package/SquotTrackedObjectMetadataDiff.class/class/left.right.diffs..st deleted file mode 100644 index 9f0ef5d96..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/class/left.right.diffs..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -left: leftMetadata right: rightMetadata diffs: aDictionary - ^ self new - setLeft: leftMetadata right: rightMetadata diffs: aDictionary; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/diffTreeNodeForAdding..st b/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/diffTreeNodeForAdding..st deleted file mode 100644 index 1f9ffba7e..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/diffTreeNodeForAdding..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools-Diffs -diffTreeNodeForAdding: key - ^ self diffTreeNodeForChanging: key \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/diffTreeNodeForChanging..st b/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/diffTreeNodeForChanging..st deleted file mode 100644 index 1a98a321b..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/diffTreeNodeForChanging..st +++ /dev/null @@ -1,11 +0,0 @@ -*Squot-Tools-Diffs -diffTreeNodeForChanging: key - | diff path | - path := {SquotDictionaryEntry key: key}. - diff := diffs at: path. - ^ SquotDiffNode - title: 'Set ', key, ' to ', (right at: key) printString - content: nil - children: #() - onInclude: [diffs at: path put: diff] - onExclude: [diffs removeKey: path] \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/diffTreeNodeForRemoving..st b/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/diffTreeNodeForRemoving..st deleted file mode 100644 index 69993e6ee..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/diffTreeNodeForRemoving..st +++ /dev/null @@ -1,11 +0,0 @@ -*Squot-Tools-Diffs -diffTreeNodeForRemoving: key - | diff path | - path := {SquotDictionaryEntry key: key}. - diff := diffs at: path. - ^ SquotDiffNode - title: 'Unset ', key - content: nil - children: #() - onInclude: [diffs at: path put: diff] - onExclude: [diffs removeKey: path] \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/diffs.st b/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/diffs.st deleted file mode 100644 index e33628afe..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/diffs.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -diffs - ^ diffs \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/includesId.st b/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/includesId.st deleted file mode 100644 index b5a5281c4..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/includesId.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -includesId - ^ diffs includesKey: {SquotDictionaryEntry key: #id} \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/initializeSquotDiffNodes.with..st b/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/initializeSquotDiffNodes.with..st deleted file mode 100644 index f63271f8c..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/initializeSquotDiffNodes.with..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools-Diffs -initializeSquotDiffNodes: aCollection with: aSquotDiffNodesBuilder - "Already fully initialized by newSquotDiffNodes" \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/left.st b/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/left.st deleted file mode 100644 index 3bb36da8e..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/left.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -left - ^ left \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/newSquotDiffNodes.st b/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/newSquotDiffNodes.st deleted file mode 100644 index 44e79561f..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/newSquotDiffNodes.st +++ /dev/null @@ -1,19 +0,0 @@ -*Squot-Tools-Diffs -newSquotDiffNodes - | metadataNodes absent hiddenProperties | - hiddenProperties := #(objectsReplacedByNames id). "These properties are implementation details and changes to them should not be prevented by users." - metadataNodes := OrderedCollection new. - absent := Object new. - right keysAndValuesDo: - [:key :value | | leftValue | - leftValue := left at: key ifAbsent: [absent]. - (leftValue ~= value and: [(hiddenProperties includes: key) not]) ifTrue: - [metadataNodes add: - (leftValue == absent - ifTrue: [self diffTreeNodeForAdding: key] - ifFalse: [self diffTreeNodeForChanging: key])]]. - (left keys reject: [:each | right includesKey: each]) do: - [:key | - metadataNodes add: - (self diffTreeNodeForRemoving: key)]. - ^ metadataNodes \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/printOn..st b/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/printOn..st deleted file mode 100644 index da324cfe0..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/printOn..st +++ /dev/null @@ -1,7 +0,0 @@ -printing -printOn: aStream - super printOn: aStream. - aStream - nextPutAll: ' ('; - print: diffs size; - nextPutAll: ' changes)'. \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/right.st b/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/right.st deleted file mode 100644 index 42b8b9e67..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/right.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -right - ^ right \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/setLeft.right.diffs..st b/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/setLeft.right.diffs..st deleted file mode 100644 index b98607aa0..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/setLeft.right.diffs..st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -setLeft: leftMetadata right: rightMetadata diffs: aDictionary - left := leftMetadata. - right := rightMetadata. - diffs := aDictionary. \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/squotApplyTo..st b/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/squotApplyTo..st deleted file mode 100644 index 6d677fae1..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/squotApplyTo..st +++ /dev/null @@ -1,35 +0,0 @@ -Squot-diff-patching -squotApplyTo: metadata - | new sortedKeys replaced pathPrefix idPath | - new := metadata copy. - sortedKeys := diffs keys sorted: [:a :b | a size < b size]. - replaced := Set new. - pathPrefix := OrderedCollection new. - "Copy all objects that will change (also if only their referenced objects change)." - (sortedKeys select: [:each | (diffs at: each) isModification]) do: - [:eachPath | | object mirror | - object := new. - mirror := (thisContext objectClass: object) squotMirror. - pathPrefix removeAll. - eachPath allButLast do: - [:each | | referrer | - pathPrefix add: each. - (replaced includes: pathPrefix asArray) ifFalse: - [referrer := object. - object := each reflect: referrer in: mirror - put: (each reflect: referrer in: mirror) copy. - mirror := mirror mirrorOf: object reachedVia: each from: referrer]]]. - "Apply the differences." - idPath := {SquotDictionaryEntry key: #id}. - diffs keysAndValuesDo: - [:path :diff | | object mirror | (diff isAddition or: [path ~= idPath]) "Ignore all changes in the id, except if it is added." ifTrue: - [object := new. - mirror := (thisContext objectClass: object) squotMirror. - self flag: #todo. "The loop below is actually the traversal of a graph." - path allButLast do: - [:each | | referrer | - referrer := object. - object := each reflect: referrer in: mirror. - mirror := mirror mirrorOf: object reachedVia: each from: referrer]. - [diff squotReflectOn: object in: mirror] on: KeyNotFound do: [:e | diff isRemoval ifTrue: [e return] ifFalse: [e pass]]]]. - ^ new \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/squotHasChanges.st b/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/squotHasChanges.st deleted file mode 100644 index db7b57fb9..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/squotHasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-diff-testing -squotHasChanges - ^ diffs isEmpty not \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/update.reflectedIn.asMaterializedFrom.reflectedIn..st b/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/update.reflectedIn.asMaterializedFrom.reflectedIn..st deleted file mode 100644 index 65655ec7f..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/instance/update.reflectedIn.asMaterializedFrom.reflectedIn..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-diff-patching -update: metadata reflectedIn: aMirror asMaterializedFrom: aShadow reflectedIn: aShadowMirror - ^ self squotApplyTo: metadata \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/methodProperties.json b/src/Squot.package/SquotTrackedObjectMetadataDiff.class/methodProperties.json deleted file mode 100644 index a1cf75fde..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/methodProperties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "class" : { - "left:right:diffs:" : "jr 12/7/2020 22:29" }, - "instance" : { - "diffTreeNodeForAdding:" : "jr 6/19/2022 23:11", - "diffTreeNodeForChanging:" : "jr 6/19/2022 23:15", - "diffTreeNodeForRemoving:" : "jr 6/19/2022 23:26", - "diffs" : "jr 2/13/2022 23:49", - "includesId" : "jr 2/13/2022 23:52", - "initializeSquotDiffNodes:with:" : "jr 6/19/2022 23:07", - "left" : "jr 12/9/2020 22:59", - "newSquotDiffNodes" : "jr 6/19/2022 23:07", - "printOn:" : "jr 12/13/2020 18:04", - "right" : "jr 12/9/2020 22:59", - "setLeft:right:diffs:" : "jr 12/7/2020 22:30", - "squotApplyTo:" : "jr 6/26/2022 22:53", - "squotHasChanges" : "jr 12/7/2020 22:31", - "update:reflectedIn:asMaterializedFrom:reflectedIn:" : "jr 6/13/2021 20:36" } } diff --git a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/properties.json b/src/Squot.package/SquotTrackedObjectMetadataDiff.class/properties.json deleted file mode 100644 index f2a542afd..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataDiff.class/properties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "category" : "Squot-Diffs", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSquotModification classTrait + TSquotDiff classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 7/2/2022 12:27", - "instvars" : [ - "left", - "right", - "diffs" ], - "name" : "SquotTrackedObjectMetadataDiff", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotModification + TSquotDiff", - "type" : "normal" } diff --git a/src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/README.md b/src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/instance/testApplyIsNonDestructive.st b/src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/instance/testApplyIsNonDestructive.st deleted file mode 100644 index 6eb052848..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/instance/testApplyIsNonDestructive.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -testApplyIsNonDestructive - | m1 m2 dict diff new | - m1 := SquotTrackedObjectMetadata newFrom: {#complex -> (Dictionary newFrom: {#a -> {1}})}. - m2 := SquotTrackedObjectMetadata newFrom: {#complex -> (Dictionary newFrom: {#a -> {2}})}. - dict := m1 at: #complex. - "when" - new := (diff := m1 squotDiffAgainst: m2) squotApplyTo: m1. - "then" - self assert: (m1 at: #complex) == dict; - assert: #(1) equals: (dict at: #a) description: 'Do not mutate originals'. \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/instance/testCyclesDoNotCauseInifiniteLoops.st b/src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/instance/testCyclesDoNotCauseInifiniteLoops.st deleted file mode 100644 index 168c92aa7..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/instance/testCyclesDoNotCauseInifiniteLoops.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testCyclesDoNotCauseInifiniteLoops - "Even though every object is treated as a value object, cycles should not cause infinite loops." - | m1 m2 holder diff | - holder := ValueHolder new. - holder contents: holder. - m1 := SquotTrackedObjectMetadata newFrom: {#complex -> holder}. - m2 := SquotTrackedObjectMetadata newFrom: {#complex -> holder}. - "when" - m1 absorbDiff: (diff := m1 squotDiffAgainst: m2). - "then" - self assert: (m1 at: #complex) == holder. "Not changed" \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/instance/testEverythingIsAValue.st b/src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/instance/testEverythingIsAValue.st deleted file mode 100644 index 79e577f74..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/instance/testEverythingIsAValue.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testEverythingIsAValue - "Metadata values are not changed in place, they are always replaced." - | m1 m2 dict diff | - m1 := SquotTrackedObjectMetadata newFrom: {#complex -> (Dictionary newFrom: {#a -> {1}})}. - m2 := SquotTrackedObjectMetadata newFrom: {#complex -> (Dictionary newFrom: {#a -> {2}})}. - dict := m1 at: #complex. - "when" - m1 absorbDiff: (diff := m1 squotDiffAgainst: m2). - "then" - self assert: (m1 at: #complex) ~~ dict; - assert: #(1) equals: (dict at: #a) description: 'Do not mutate originals'; - assert: #(2) equals: ((m1 at: #complex) at: #a); - assert: ((m1 at: #complex) at: #a) ~~ ((m2 at: #complex) at: #a). \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/instance/testRemove.st b/src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/instance/testRemove.st deleted file mode 100644 index 0a42e663b..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/instance/testRemove.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testRemove - | m1 m2 diff new | - m1 := SquotTrackedObjectMetadata newFrom: {#a -> (Dictionary newFrom: {1 -> 1. 2 -> 2}). #b -> 3}. - m2 := SquotTrackedObjectMetadata newFrom: {#a -> (Dictionary newFrom: {2 -> 2})}. - "when" - new := (diff := m1 squotDiffAgainst: m2) squotApplyTo: m1. - "then" - self assert: (new at: #a) keys asArray = #(2) description: 'Inner object not removed'; - assert: (new includesKey: #b) not description: 'Object not removed from root'. \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/instance/testReplacesStrings.st b/src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/instance/testReplacesStrings.st deleted file mode 100644 index dd9e39b8d..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/instance/testReplacesStrings.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testReplacesStrings - | m1 m2 str1 diff new | - m1 := SquotTrackedObjectMetadata newFrom: {#string -> 'abc' copy}. - m2 := SquotTrackedObjectMetadata newFrom: {#string -> 'def' copy}. - str1 := m1 at: #string. - "when" - new := (diff := m1 squotDiffAgainst: m2) squotApplyTo: m1. - "then" - self assert: 'abc' equals: str1; - assert: (new at: #string) ~~ str1; - assert: 'def' equals: (new at: #string). \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/instance/testUnchangedValuesRemain.st b/src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/instance/testUnchangedValuesRemain.st deleted file mode 100644 index 0fddea0cf..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/instance/testUnchangedValuesRemain.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -testUnchangedValuesRemain - "Unchanged objects need not be replaced. Soft requirement." - | str m1 m2 diff | - str := 'a string' copy. - m1 := SquotTrackedObjectMetadata newFrom: {#string -> str}. - m2 := SquotTrackedObjectMetadata newFrom: {#string -> str copy}. - "when" - m1 absorbDiff: (diff := m1 squotDiffAgainst: m2). - "then" - self assert: (m1 at: #string) == str. \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/methodProperties.json b/src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/methodProperties.json deleted file mode 100644 index f131a66bc..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testApplyIsNonDestructive" : "jr 12/23/2020 20:36", - "testCyclesDoNotCauseInifiniteLoops" : "jr 7/18/2021 17:19", - "testEverythingIsAValue" : "jr 12/22/2020 00:21", - "testRemove" : "jr 6/26/2022 17:51", - "testReplacesStrings" : "jr 12/17/2020 19:44", - "testUnchangedValuesRemain" : "jr 12/22/2020 00:24" } } diff --git a/src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/properties.json b/src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/properties.json deleted file mode 100644 index 69b4c71f8..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataDiffTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Diffs", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotTrackedObjectMetadataDiffTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotTrackedObjectMetadataMerge.class/README.md b/src/Squot.package/SquotTrackedObjectMetadataMerge.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotTrackedObjectMetadataMerge.class/class/into.merge.basedOn.diffs.conflicts..st b/src/Squot.package/SquotTrackedObjectMetadataMerge.class/class/into.merge.basedOn.diffs.conflicts..st deleted file mode 100644 index 2331f6cf7..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataMerge.class/class/into.merge.basedOn.diffs.conflicts..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -into: workingMetadata merge: incomingMetadata basedOn: baseMetadata diffs: diffsDictionary conflicts: conflictsDictionary - ^ self new - setWorking: workingMetadata incoming: incomingMetadata base: baseMetadata diffs: diffsDictionary conflicts: conflictsDictionary; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataMerge.class/instance/asSquotHierarchicalDiff.st b/src/Squot.package/SquotTrackedObjectMetadataMerge.class/instance/asSquotHierarchicalDiff.st deleted file mode 100644 index b9ef9789e..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataMerge.class/instance/asSquotHierarchicalDiff.st +++ /dev/null @@ -1,31 +0,0 @@ -*Squot-Tools -asSquotHierarchicalDiff - | metadataNodes hiddenProperties | - self hasChanges ifFalse: [^ #()]. - hiddenProperties := #(objectsReplacedByNames id). "These properties are implementation details and changes to them should not be prevented by users." - metadataNodes := OrderedCollection new. - containerConflicts do: - [:each | metadataNodes add: - (SquotMergeDiffNode title: 'Set ', each key asDiffTreeStringOrText, ' to ', each incoming - content: each children: #() - onInclude: [each chooseIncoming] - onExclude: [each chooseWorking] - onReset: [each resetChoice])]. - containerModifications keysAndValuesDo: - [:path :each | metadataNodes add: - ((each isAddition or: [each isModification]) - ifTrue: [SquotDiffNode title: 'Set ', each reference asDiffTreeStringOrText, ' to ', each rightTarget - content: nil children: #() - onInclude: [containerModifications at: path put: each] - onExclude: [containerModifications removeKey: path]] - ifFalse: [SquotDiffNode title: 'Remove ', each reference asDiffTreeStringOrText - content: nil children: #() - onInclude: [containerModifications at: path put: each] - onExclude: [containerModifications removeKey: path]])]. - ^ {SquotMergeDiffNode - title: '[', 'Metadata' translated, ']' - content: self - children: metadataNodes - onInclude: [] - onExclude: [] - onReset: []} \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataMerge.class/instance/includesId.st b/src/Squot.package/SquotTrackedObjectMetadataMerge.class/instance/includesId.st deleted file mode 100644 index d09240d44..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataMerge.class/instance/includesId.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -includesId - ^ self includesModificationAt: {SquotDictionaryEntry key: #id} \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataMerge.class/instance/privateResolvedPatch.st b/src/Squot.package/SquotTrackedObjectMetadataMerge.class/instance/privateResolvedPatch.st deleted file mode 100644 index e45d67c6b..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataMerge.class/instance/privateResolvedPatch.st +++ /dev/null @@ -1,3 +0,0 @@ -private -privateResolvedPatch - ^ SquotTrackedObjectMetadataDiff left: working right: incoming diffs: containerModifications, (containerConflicts collect: [:each | each resolution]) \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataMerge.class/instance/setWorking.incoming.base.diffs.conflicts..st b/src/Squot.package/SquotTrackedObjectMetadataMerge.class/instance/setWorking.incoming.base.diffs.conflicts..st deleted file mode 100644 index 02d931994..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataMerge.class/instance/setWorking.incoming.base.diffs.conflicts..st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -setWorking: workingMetadata incoming: incomingMetadata base: baseMetadata diffs: diffsDictionary conflicts: conflictsDictionary - super setWorking: workingMetadata incoming: incomingMetadata base: baseMetadata. - containerModifications := diffsDictionary. - containerConflicts := conflictsDictionary. \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataMerge.class/instance/squotChangeAsStringOrText.st b/src/Squot.package/SquotTrackedObjectMetadataMerge.class/instance/squotChangeAsStringOrText.st deleted file mode 100644 index a84f0bf76..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataMerge.class/instance/squotChangeAsStringOrText.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotChangeAsStringOrText - ^ 'Metadata merge' \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataMerge.class/methodProperties.json b/src/Squot.package/SquotTrackedObjectMetadataMerge.class/methodProperties.json deleted file mode 100644 index 246e57aea..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataMerge.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - "into:merge:basedOn:diffs:conflicts:" : "jr 12/13/2020 16:05" }, - "instance" : { - "asSquotHierarchicalDiff" : "jr 6/19/2022 23:22", - "includesId" : "jr 2/13/2022 23:57", - "privateResolvedPatch" : "jr 12/13/2020 16:26", - "setWorking:incoming:base:diffs:conflicts:" : "jr 12/13/2020 16:06", - "squotChangeAsStringOrText" : "jr 1/16/2022 19:29" } } diff --git a/src/Squot.package/SquotTrackedObjectMetadataMerge.class/properties.json b/src/Squot.package/SquotTrackedObjectMetadataMerge.class/properties.json deleted file mode 100644 index f03c91057..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataMerge.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Merging", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotTrackedObjectMetadataMerge", - "pools" : [ - ], - "super" : "SquotAbstractCollectionMerge", - "type" : "normal" } diff --git a/src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/README.md b/src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/instance/testAdditionConflict.st b/src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/instance/testAdditionConflict.st deleted file mode 100644 index bf174213d..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/instance/testAdditionConflict.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testAdditionConflict - | m1 m2 m3 merge | - m1 := SquotTrackedObjectMetadata newFrom: {#a -> 1}. - m2 := SquotTrackedObjectMetadata newFrom: {#a -> 2}. - m3 := SquotTrackedObjectMetadata new. - "This must be detected as a conflict" - merge := m1 squotMergeWith: m2 basedOn: m3. - self assert: merge hasConflicts. - "When the incoming version is chosen, and the merge is applied to m1, the result is like m2" - merge conflicts anyOne chooseIncoming. - self assert: (m2 at: #a) equals: ((merge resolvedPatch squotApplyTo: m1) at: #a). \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/instance/testApplyIsNonDestructive.st b/src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/instance/testApplyIsNonDestructive.st deleted file mode 100644 index 57a34d8af..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/instance/testApplyIsNonDestructive.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -testApplyIsNonDestructive - | m1 m2 dict diff new | - m1 := SquotTrackedObjectMetadata newFrom: {#complex -> (Dictionary newFrom: {#a -> {1}})}. - m2 := SquotTrackedObjectMetadata newFrom: {#complex -> (Dictionary newFrom: {#a -> {2}})}. - dict := m1 at: #complex. - "when" - new := (diff := (m1 squotMergeWith: m2 basedOn: m1) resolvedPatch) squotApplyTo: m1. - "then" - self assert: (m1 at: #complex) == dict; - assert: #(1) equals: (dict at: #a) description: 'Do not mutate originals'. \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/instance/testDeepConflict.st b/src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/instance/testDeepConflict.st deleted file mode 100644 index 087d38e36..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/instance/testDeepConflict.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testDeepConflict - | m1 m2 m3 merge | - m1 := SquotTrackedObjectMetadata newFrom: {#a -> {1}}. - m2 := SquotTrackedObjectMetadata newFrom: {#a -> {2}}. - m3 := SquotTrackedObjectMetadata newFrom: {#a -> {0}}. - "This must be detected as a conflict" - merge := m1 squotMergeWith: m2 basedOn: m3. - self assert: merge hasConflicts. - "When the incoming version is chosen, and the merge is applied to m1, the result is like m2" - merge conflicts anyOne chooseIncoming. - self assert: (m2 at: #a) first equals: ((merge resolvedPatch squotApplyTo: m1) at: #a) first. \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/instance/testEverythingIsAValue.st b/src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/instance/testEverythingIsAValue.st deleted file mode 100644 index ea94b2261..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/instance/testEverythingIsAValue.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testEverythingIsAValue - "Metadata values are not changed in place, they are always replaced." - | m1 m2 dict diff new | - m1 := SquotTrackedObjectMetadata newFrom: {#complex -> (Dictionary newFrom: {#a -> {1}})}. - m2 := SquotTrackedObjectMetadata newFrom: {#complex -> (Dictionary newFrom: {#a -> {2}})}. - dict := m1 at: #complex. - "when" - new := (diff := (m1 squotMergeWith: m2 basedOn: m1) resolvedPatch) squotApplyTo: m1. - "then" - self assert: (new at: #complex) ~~ dict; - assert: #(1) equals: (dict at: #a) description: 'Do not mutate originals'; - assert: #(2) equals: ((new at: #complex) at: #a); - assert: ((new at: #complex) at: #a) ~~ ((m2 at: #complex) at: #a). \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/instance/testReplacesStrings.st b/src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/instance/testReplacesStrings.st deleted file mode 100644 index 882a0d6e6..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/instance/testReplacesStrings.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testReplacesStrings - | m1 m2 str1 diff new | - m1 := SquotTrackedObjectMetadata newFrom: {#string -> 'abc' copy}. - m2 := SquotTrackedObjectMetadata newFrom: {#string -> 'def' copy}. - str1 := m1 at: #string. - "when" - new := (diff := (m1 squotMergeWith: m2 basedOn: m1) resolvedPatch) squotApplyTo: m1. - "then" - self assert: 'abc' equals: str1; - assert: (new at: #string) ~~ str1; - assert: 'def' equals: (new at: #string). \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/methodProperties.json b/src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/methodProperties.json deleted file mode 100644 index e4bcdbea1..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testAdditionConflict" : "jr 1/16/2022 21:46", - "testApplyIsNonDestructive" : "jr 4/8/2021 13:45", - "testDeepConflict" : "jr 1/16/2022 21:40", - "testEverythingIsAValue" : "jr 4/8/2021 13:43", - "testReplacesStrings" : "jr 1/9/2021 19:46" } } diff --git a/src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/properties.json b/src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/properties.json deleted file mode 100644 index 5da3b7dc7..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataMergeTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests-Merging", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotTrackedObjectMetadataMergeTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotTrackedObjectMetadataMirror.class/README.md b/src/Squot.package/SquotTrackedObjectMetadataMirror.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotTrackedObjectMetadataMirror.class/instance/is.comparableTo..st b/src/Squot.package/SquotTrackedObjectMetadataMirror.class/instance/is.comparableTo..st deleted file mode 100644 index c45dd3632..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataMirror.class/instance/is.comparableTo..st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -is: metadata1 comparableTo: metadata2 - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataMirror.class/instance/mirrorOf.reachedVia.from..st b/src/Squot.package/SquotTrackedObjectMetadataMirror.class/instance/mirrorOf.reachedVia.from..st deleted file mode 100644 index a6e89031a..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataMirror.class/instance/mirrorOf.reachedVia.from..st +++ /dev/null @@ -1,9 +0,0 @@ -reflection -mirrorOf: anObject reachedVia: aReference from: referrerObject - | class mirror | - "Treat all dictionaries as value dictionaries as well." - class := thisContext objectClass: anObject. - mirror := class squotMirror. - ^ (mirror isMemberOf: SquotDictionaryMirror) - ifTrue: [SquotTrackedObjectMetadataMirror class: class] - ifFalse: [mirror] \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataMirror.class/instance/newDiffFrom.to..st b/src/Squot.package/SquotTrackedObjectMetadataMirror.class/instance/newDiffFrom.to..st deleted file mode 100644 index f03b4cc78..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataMirror.class/instance/newDiffFrom.to..st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -newDiffFrom: aSquotTrackedObjectMetadata to: aSquotTrackedObjectMetadata2 - ^ SquotTrackedObjectMetadataDiff new \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataMirror.class/instance/referencesFrom..st b/src/Squot.package/SquotTrackedObjectMetadataMirror.class/instance/referencesFrom..st deleted file mode 100644 index 157049cbf..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataMirror.class/instance/referencesFrom..st +++ /dev/null @@ -1,11 +0,0 @@ -enumerating -referencesFrom: aDictionary - | references | - references := OrderedCollection new. - references - addAll: ((class allInstVarNames copyWithoutAll: Dictionary allInstVarNames) - collect: [:each | SquotInstanceVariable named: each]); - addAll: ((1 to: (thisContext objectSize: aDictionary)) - collect: [:each | SquotIndexableField index: each]). - aDictionary keys do: [:each | references add: (SquotDictionaryEntry key: each)]. - ^ references \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataMirror.class/instance/reflectElement.of.put..st b/src/Squot.package/SquotTrackedObjectMetadataMirror.class/instance/reflectElement.of.put..st deleted file mode 100644 index 9b94a1e33..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataMirror.class/instance/reflectElement.of.put..st +++ /dev/null @@ -1,4 +0,0 @@ -reflection -reflectElement: aSquotCollectionElement of: aDictionary put: anAssociation - "Never share associations." - ^ aDictionary at: anAssociation key put: anAssociation value \ No newline at end of file diff --git a/src/Squot.package/SquotTrackedObjectMetadataMirror.class/methodProperties.json b/src/Squot.package/SquotTrackedObjectMetadataMirror.class/methodProperties.json deleted file mode 100644 index f655b2ba8..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataMirror.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "is:comparableTo:" : "jr 7/18/2021 20:12", - "mirrorOf:reachedVia:from:" : "jr 4/11/2021 20:46", - "newDiffFrom:to:" : "jr 7/30/2021 19:30", - "referencesFrom:" : "jr 4/8/2021 00:51", - "reflectElement:of:put:" : "jr 4/8/2021 00:48" } } diff --git a/src/Squot.package/SquotTrackedObjectMetadataMirror.class/properties.json b/src/Squot.package/SquotTrackedObjectMetadataMirror.class/properties.json deleted file mode 100644 index 1c0525edf..000000000 --- a/src/Squot.package/SquotTrackedObjectMetadataMirror.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Reflection", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotTrackedObjectMetadataMirror", - "pools" : [ - ], - "super" : "SquotDictionaryMirror", - "type" : "normal" } diff --git a/src/Squot.package/SquotUnacquaintedFileVisitor.class/README.md b/src/Squot.package/SquotUnacquaintedFileVisitor.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotUnacquaintedFileVisitor.class/class/on.ignoring.addingTo..st b/src/Squot.package/SquotUnacquaintedFileVisitor.class/class/on.ignoring.addingTo..st deleted file mode 100644 index 78b2e444f..000000000 --- a/src/Squot.package/SquotUnacquaintedFileVisitor.class/class/on.ignoring.addingTo..st +++ /dev/null @@ -1,7 +0,0 @@ -instance creation -on: aFileSystemStore ignoring: aSetOfPathStrings addingTo: aSnapshotBuilder - ^ self new - fileStore: aFileSystemStore; - ignoredPaths: aSetOfPathStrings; - snapshotBuilder: aSnapshotBuilder; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/fileStore..st b/src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/fileStore..st deleted file mode 100644 index a07c5afa2..000000000 --- a/src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/fileStore..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -fileStore: anObject - - fileStore := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/fileStore.st b/src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/fileStore.st deleted file mode 100644 index 11f69634d..000000000 --- a/src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/fileStore.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -fileStore - - ^ fileStore \ No newline at end of file diff --git a/src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/ignoredPaths..st b/src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/ignoredPaths..st deleted file mode 100644 index 3bf68cf48..000000000 --- a/src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/ignoredPaths..st +++ /dev/null @@ -1,6 +0,0 @@ -initialize-release -ignoredPaths: aCollectionOfPathsOrStrings - - ignoredPaths := aCollectionOfPathsOrStrings - collect: [:each | (fileStore directory resolve: each) path ] - as: Set. \ No newline at end of file diff --git a/src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/ignoredPaths.st b/src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/ignoredPaths.st deleted file mode 100644 index 298d6afa0..000000000 --- a/src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/ignoredPaths.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -ignoredPaths - - ^ ignoredPaths \ No newline at end of file diff --git a/src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/snapshotBuilder..st b/src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/snapshotBuilder..st deleted file mode 100644 index b9b132168..000000000 --- a/src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/snapshotBuilder..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -snapshotBuilder: anObject - - snapshotBuilder := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/snapshotBuilder.st b/src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/snapshotBuilder.st deleted file mode 100644 index eb4c681a9..000000000 --- a/src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/snapshotBuilder.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -snapshotBuilder - - ^ snapshotBuilder \ No newline at end of file diff --git a/src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/visit..st b/src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/visit..st deleted file mode 100644 index 3d66d942a..000000000 --- a/src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/visit..st +++ /dev/null @@ -1,5 +0,0 @@ -visiting -visit: aReference - aReference isFile - ifTrue: [self visitFile: aReference] - ifFalse: [self visitDirectory: aReference]. \ No newline at end of file diff --git a/src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/visitDirectory..st b/src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/visitDirectory..st deleted file mode 100644 index ab338b371..000000000 --- a/src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/visitDirectory..st +++ /dev/null @@ -1,4 +0,0 @@ -visiting -visitDirectory: aDirectoryReference - (ignoredPaths includes: aDirectoryReference path) ifTrue: [^ self]. - aDirectoryReference entries do: [:each | self visit: each reference]. \ No newline at end of file diff --git a/src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/visitFile..st b/src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/visitFile..st deleted file mode 100644 index c85b5c551..000000000 --- a/src/Squot.package/SquotUnacquaintedFileVisitor.class/instance/visitFile..st +++ /dev/null @@ -1,6 +0,0 @@ -visiting -visitFile: aFileReference - (ignoredPaths includes: aFileReference path) ifTrue: [^ self]. - snapshotBuilder add: ((SquotFileArtifact for: aFileReference) - path: (fileStore pathOf: aFileReference); - yourself). \ No newline at end of file diff --git a/src/Squot.package/SquotUnacquaintedFileVisitor.class/methodProperties.json b/src/Squot.package/SquotUnacquaintedFileVisitor.class/methodProperties.json deleted file mode 100644 index 7d94face7..000000000 --- a/src/Squot.package/SquotUnacquaintedFileVisitor.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - "on:ignoring:addingTo:" : "jr 1/31/2017 11:46" }, - "instance" : { - "fileStore" : "jr 1/31/2017 11:46", - "fileStore:" : "jr 1/31/2017 11:46", - "ignoredPaths" : "jr 1/31/2017 11:46", - "ignoredPaths:" : "jr 1/31/2017 12:04", - "snapshotBuilder" : "jr 1/31/2017 11:46", - "snapshotBuilder:" : "jr 1/31/2017 11:46", - "visit:" : "jr 1/31/2017 11:49", - "visitDirectory:" : "jr 1/31/2017 12:02", - "visitFile:" : "jr 1/31/2017 11:59" } } diff --git a/src/Squot.package/SquotUnacquaintedFileVisitor.class/properties.json b/src/Squot.package/SquotUnacquaintedFileVisitor.class/properties.json deleted file mode 100644 index a66ecd7fe..000000000 --- a/src/Squot.package/SquotUnacquaintedFileVisitor.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-FileSystemStore", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "fileStore", - "ignoredPaths", - "snapshotBuilder" ], - "name" : "SquotUnacquaintedFileVisitor", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotUnloadedArtifact.class/README.md b/src/Squot.package/SquotUnloadedArtifact.class/README.md deleted file mode 100644 index feef339ab..000000000 --- a/src/Squot.package/SquotUnloadedArtifact.class/README.md +++ /dev/null @@ -1,11 +0,0 @@ -I wrap a SquotArtifact that is not loaded in my working copy. - -There are two ways to get an unloaded artifact in the working copy: 1) Unload an artifact that is already loaded, 2) During a load or merge, accept, but not load, an artifact addition. Option 2 will result in a SquotArtifactAdditionWithoutLoad. - -Outside of my working copy you will find my artifact instead of me. That is my artifact is a regular part of snapshots of the working copy and it will participate normally in merges and the creation of new versions. But whenever some changes would be applied to the objects loaded in the working copy, no objects in the working copy will actually be modified or created. Just my shadow objects will be modified for the record instead. - -If I am removed from the working copy, the effect will be roughly equivalent to loading my artifact first and then removing it, except that its objects need not really be loaded, of course. - -When something is merged into the working copy, I might also receive incoming changes. That means I can have conflicts with the incoming changes if there are differences between my artifact and its edition in the common base version with the incoming changes. Since I am not loaded, the only way to solve these conflicts is via the changes chooser. To create truly merged versions (for example, of methods), users will first have to load me and then merge properly. However as long as I am unloaded, no objects will be changed in the working copy when the merge is applied. - -When a new version is saved from the working copy my artifact will be saved with all the changes that were merged into me. If I was removed, my artifact will not be part of the new version. diff --git a/src/Squot.package/SquotUnloadedArtifact.class/class/wrapping..st b/src/Squot.package/SquotUnloadedArtifact.class/class/wrapping..st deleted file mode 100644 index 1a7723094..000000000 --- a/src/Squot.package/SquotUnloadedArtifact.class/class/wrapping..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -wrapping: anArtifact - ^ self new - artifact: anArtifact; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotUnloadedArtifact.class/instance/applyLoadStatusTo..st b/src/Squot.package/SquotUnloadedArtifact.class/instance/applyLoadStatusTo..st deleted file mode 100644 index fd8b44e9b..000000000 --- a/src/Squot.package/SquotUnloadedArtifact.class/instance/applyLoadStatusTo..st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -applyLoadStatusTo: anArtifactDiff - "Nothing to be indicated." \ No newline at end of file diff --git a/src/Squot.package/SquotUnloadedArtifact.class/instance/diffAgainst..st b/src/Squot.package/SquotUnloadedArtifact.class/instance/diffAgainst..st deleted file mode 100644 index a994dee4d..000000000 --- a/src/Squot.package/SquotUnloadedArtifact.class/instance/diffAgainst..st +++ /dev/null @@ -1,9 +0,0 @@ -comparing -diffAgainst: anArtifact - | diff | - diff := super diffAgainst: anArtifact. - ^ (diff hasChanges not and: [anArtifact isLoadable]) - ifTrue: [(SquotArtifactLoad of: self) - toggleWhetherToLoad; "not by default" - yourself] - ifFalse: [diff] \ No newline at end of file diff --git a/src/Squot.package/SquotUnloadedArtifact.class/instance/isLoaded.st b/src/Squot.package/SquotUnloadedArtifact.class/instance/isLoaded.st deleted file mode 100644 index 75923cca8..000000000 --- a/src/Squot.package/SquotUnloadedArtifact.class/instance/isLoaded.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isLoaded - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotUnloadedArtifact.class/instance/load.st b/src/Squot.package/SquotUnloadedArtifact.class/instance/load.st deleted file mode 100644 index 7f44fedb4..000000000 --- a/src/Squot.package/SquotUnloadedArtifact.class/instance/load.st +++ /dev/null @@ -1,10 +0,0 @@ -patching -load - workingCopy unloadedArtifacts removeKey: artifact path ifAbsent: []. - [workingCopy add: artifact] - on: Error do: - [:e | "Undo so the artifact is not effectively removed." - [(workingCopy includesObjectAt: artifact path) - ifFalse: [e return: (workingCopy addUnloaded: artifact)]] - ensure: [e pass]]. - ^ workingCopy artifactAt: artifact path \ No newline at end of file diff --git a/src/Squot.package/SquotUnloadedArtifact.class/instance/printOn..st b/src/Squot.package/SquotUnloadedArtifact.class/instance/printOn..st deleted file mode 100644 index 9eb1d6d5e..000000000 --- a/src/Squot.package/SquotUnloadedArtifact.class/instance/printOn..st +++ /dev/null @@ -1,3 +0,0 @@ -printing -printOn: aStream - aStream nextPutAll: 'unloaded '. artifact printOn: aStream. \ No newline at end of file diff --git a/src/Squot.package/SquotUnloadedArtifact.class/instance/updatePath.st b/src/Squot.package/SquotUnloadedArtifact.class/instance/updatePath.st deleted file mode 100644 index a396105a1..000000000 --- a/src/Squot.package/SquotUnloadedArtifact.class/instance/updatePath.st +++ /dev/null @@ -1,10 +0,0 @@ -private -updatePath - | storeInfo | - storeInfo := artifact storeInfo copy - at: #path put: artifact path; - yourself. - workingCopy repository initializeStoreInfo: storeInfo forObject: artifact content. - (storeInfo at: #path) ~= artifact path ifTrue: - [workingCopy moveObjectAt: artifact path to: (storeInfo at: #path)]. - artifact := workingCopy unloadedArtifacts at: (storeInfo at: #path). \ No newline at end of file diff --git a/src/Squot.package/SquotUnloadedArtifact.class/methodProperties.json b/src/Squot.package/SquotUnloadedArtifact.class/methodProperties.json deleted file mode 100644 index f0c78cf9e..000000000 --- a/src/Squot.package/SquotUnloadedArtifact.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - "wrapping:" : "jr 9/26/2020 17:24" }, - "instance" : { - "applyLoadStatusTo:" : "jr 11/4/2020 12:17", - "diffAgainst:" : "jr 11/5/2020 18:05", - "isLoaded" : "jr 9/26/2020 21:02", - "load" : "jr 1/3/2021 21:54", - "printOn:" : "jr 10/4/2020 21:18", - "updatePath" : "jr 5/28/2022 00:52" } } diff --git a/src/Squot.package/SquotUnloadedArtifact.class/properties.json b/src/Squot.package/SquotUnloadedArtifact.class/properties.json deleted file mode 100644 index 756d9166b..000000000 --- a/src/Squot.package/SquotUnloadedArtifact.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-WorkingCopies", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 9/26/2020 20:39", - "instvars" : [ - ], - "name" : "SquotUnloadedArtifact", - "pools" : [ - ], - "super" : "SquotWorkingCopyArtifact", - "type" : "normal" } diff --git a/src/Squot.package/SquotUnloadedArtifactsTest.class/README.md b/src/Squot.package/SquotUnloadedArtifactsTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotUnloadedArtifactsTest.class/instance/testLazyArtifactsAreEvaluatedWhenAdded.st b/src/Squot.package/SquotUnloadedArtifactsTest.class/instance/testLazyArtifactsAreEvaluatedWhenAdded.st deleted file mode 100644 index 5b65fb92c..000000000 --- a/src/Squot.package/SquotUnloadedArtifactsTest.class/instance/testLazyArtifactsAreEvaluatedWhenAdded.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testLazyArtifactsAreEvaluatedWhenAdded - | artifactSnapshot directory fileStore | - store add: ValueHolder new at: 'object'. - artifactSnapshot := (store artifactAt: 'object') capture. - store removeAt: 'object'. - directory := FileSystem memory root. - fileStore := SquotFileSystemStore inDirectory: directory. - fileStore add: artifactSnapshot. - self deny: ((fileStore artifactAt: 'object') content squotDiffAgainst: artifactSnapshot content) hasChanges. "But the serializer was added to the metadata." - "when" - workingCopy addUnloaded: (fileStore artifactAt: 'object'). - directory children do: [:each | each deleteAll]. - "then" - self deny: ((workingCopy artifactAt: 'object') content squotDiffAgainst: artifactSnapshot content) hasChanges. \ No newline at end of file diff --git a/src/Squot.package/SquotUnloadedArtifactsTest.class/instance/testMergeWithLocalChangesToUnloadedArtifact.st b/src/Squot.package/SquotUnloadedArtifactsTest.class/instance/testMergeWithLocalChangesToUnloadedArtifact.st deleted file mode 100644 index 8c13eb2d2..000000000 --- a/src/Squot.package/SquotUnloadedArtifactsTest.class/instance/testMergeWithLocalChangesToUnloadedArtifact.st +++ /dev/null @@ -1,26 +0,0 @@ -tests -testMergeWithLocalChangesToUnloadedArtifact - "Regression test: local changes to unloaded artifacts must not be reverted during a merge if the incoming version of the artifact is not changed." - | incoming artifactSnapshot | - workingCopy add: ValueHolder new at: 'object'. - workingCopy - saveVersionWithMessage: 'Add object'; - saveVersionWithMessage: 'Dummy incoming version'. - incoming := workingCopy baseVersion. - "Reset to first version" - workingCopy loadedHistorian version: workingCopy baseVersion parents first. - workingCopy loadedVersion: workingCopy baseVersion. - "Change object, then unload" - (workingCopy objectAt: 'object') contents: 1. - workingCopy saveVersionWithMessage: 'Change object'. - artifactSnapshot := (store artifactAt: 'object') capture. - workingCopy - removeAt: 'object'; - addUnloaded: artifactSnapshot. - "when" - workingCopy newMergeOperation - mergeVersion: incoming; - prepare; - applyToWorkingCopy. - "then" - self deny: ((workingCopy artifactAt: 'object') diffAgainst: artifactSnapshot) hasChanges. \ No newline at end of file diff --git a/src/Squot.package/SquotUnloadedArtifactsTest.class/instance/testMergeWithUnloadedArtifact.st b/src/Squot.package/SquotUnloadedArtifactsTest.class/instance/testMergeWithUnloadedArtifact.st deleted file mode 100644 index 4c3b11565..000000000 --- a/src/Squot.package/SquotUnloadedArtifactsTest.class/instance/testMergeWithUnloadedArtifact.st +++ /dev/null @@ -1,27 +0,0 @@ -tests -testMergeWithUnloadedArtifact - "Regression test: load status of the resolvedPatch of the artifact must be initialized." - | incoming artifactSnapshot merge | - workingCopy add: ValueHolder new at: 'object'. - workingCopy saveVersionWithMessage: 'Add object'. - (workingCopy objectAt: 'object') contents: 1. - workingCopy saveVersionWithMessage: 'Change object'. - incoming := workingCopy baseVersion. - "Reset to first version" - workingCopy loadedHistorian version: workingCopy baseVersion parents first. - workingCopy loadedVersion: workingCopy baseVersion. - (workingCopy objectAt: 'object') contents: nil. - workingCopy saveVersionWithMessage: 'Dummy working version'. "to force a merge" - "Unload the object" - artifactSnapshot := (store artifactAt: 'object') capture. - workingCopy removeAt: 'object'. - workingCopy addUnloaded: artifactSnapshot. - "when" - merge := workingCopy newMergeOperation - mergeVersion: incoming; - prepare; - yourself. - "then" - self shouldnt: [merge applyToWorkingCopy] raise: Error. - (workingCopy artifactAt: 'object') load. - self assert: 1 equals: (workingCopy objectAt: 'object') contents. \ No newline at end of file diff --git a/src/Squot.package/SquotUnloadedArtifactsTest.class/instance/testUnloadedAppearDisabledInLoads.st b/src/Squot.package/SquotUnloadedArtifactsTest.class/instance/testUnloadedAppearDisabledInLoads.st deleted file mode 100644 index d3018be33..000000000 --- a/src/Squot.package/SquotUnloadedArtifactsTest.class/instance/testUnloadedAppearDisabledInLoads.st +++ /dev/null @@ -1,13 +0,0 @@ -tests -testUnloadedAppearDisabledInLoads - | artifactSnapshot patch | - store add: ValueHolder new at: 'object'. - artifactSnapshot := (store artifactAt: 'object') capture. - store removeAt: 'object'. - workingCopy - addUnloaded: artifactSnapshot; - saveVersionWithMessage: 'Add object'. - patch := workingCopy baseVersion patchRelativeToBase: workingCopy. - self assert: (patch includesDiffAt: 'object'); - assert: (patch diffAt: 'object') isLoad; - deny: (patch diffAt: 'object') willBeLoaded. diff --git a/src/Squot.package/SquotUnloadedArtifactsTest.class/instance/testUnloadedAppearInMerges.st b/src/Squot.package/SquotUnloadedArtifactsTest.class/instance/testUnloadedAppearInMerges.st deleted file mode 100644 index 7cda2dc68..000000000 --- a/src/Squot.package/SquotUnloadedArtifactsTest.class/instance/testUnloadedAppearInMerges.st +++ /dev/null @@ -1,24 +0,0 @@ -tests -testUnloadedAppearInMerges - "If artifacts are not affected by a merge, but are unloaded, they do appear, but as disabled." - | incoming artifactSnapshot merge | - workingCopy add: ValueHolder new at: 'object'. - workingCopy saveVersionWithMessage: 'Add object'. - workingCopy saveVersionWithMessage: 'Dummy incoming version'. "to force a merge" - incoming := workingCopy baseVersion. - "Reset to first version" - workingCopy loadedHistorian version: workingCopy baseVersion parents first. - workingCopy loadedVersion: workingCopy baseVersion. - workingCopy saveVersionWithMessage: 'Dummy working version'. "to force a merge" - "Unload the object" - artifactSnapshot := (store artifactAt: 'object') capture. - workingCopy removeAt: 'object'. - workingCopy addUnloaded: artifactSnapshot. - "when" - merge := workingCopy newMergeOperation - mergeVersion: incoming; - prepare. - "then" - self assert: (merge includesModificationAt: 'object'); - assert: (merge modificationAt: 'object' ifAbsent: []) isLoad; - deny: (merge modificationAt: 'object' ifAbsent: []) willBeLoaded. \ No newline at end of file diff --git a/src/Squot.package/SquotUnloadedArtifactsTest.class/instance/testUnloadedDoNotAppearInSaveUnlessModifiedOrAdded.st b/src/Squot.package/SquotUnloadedArtifactsTest.class/instance/testUnloadedDoNotAppearInSaveUnlessModifiedOrAdded.st deleted file mode 100644 index 07ed7673b..000000000 --- a/src/Squot.package/SquotUnloadedArtifactsTest.class/instance/testUnloadedDoNotAppearInSaveUnlessModifiedOrAdded.st +++ /dev/null @@ -1,17 +0,0 @@ -tests -testUnloadedDoNotAppearInSaveUnlessModifiedOrAdded - | artifactSnapshot patch | - store add: ValueHolder new at: 'object'. - artifactSnapshot := (store artifactAt: 'object') capture. - store removeAt: 'object'. - workingCopy addUnloaded: artifactSnapshot. - patch := workingCopy newSaveOperation - message: 'Add object'; - applyToWorkingCopy; - patch. - self assert: (patch includesDiffAt: 'object'). - patch := workingCopy newSaveOperation - message: 'Next version'; - applyToWorkingCopy; - patch. - self deny: (patch includesDiffAt: 'object'). \ No newline at end of file diff --git a/src/Squot.package/SquotUnloadedArtifactsTest.class/methodProperties.json b/src/Squot.package/SquotUnloadedArtifactsTest.class/methodProperties.json deleted file mode 100644 index f264a1b89..000000000 --- a/src/Squot.package/SquotUnloadedArtifactsTest.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testLazyArtifactsAreEvaluatedWhenAdded" : "jr 1/3/2021 17:34", - "testMergeWithLocalChangesToUnloadedArtifact" : "jr 11/27/2020 01:11", - "testMergeWithUnloadedArtifact" : "jr 11/27/2020 01:14", - "testUnloadedAppearDisabledInLoads" : "jr 11/29/2020 22:36", - "testUnloadedAppearInMerges" : "jr 11/29/2020 22:42", - "testUnloadedDoNotAppearInSaveUnlessModifiedOrAdded" : "jr 11/29/2020 22:31" } } diff --git a/src/Squot.package/SquotUnloadedArtifactsTest.class/properties.json b/src/Squot.package/SquotUnloadedArtifactsTest.class/properties.json deleted file mode 100644 index 98c80d5bd..000000000 --- a/src/Squot.package/SquotUnloadedArtifactsTest.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classtraitcomposition" : "TTestCaseSuppressingProgressDisplay classTrait", - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotUnloadedArtifactsTest", - "pools" : [ - ], - "super" : "SquotWorkingCopyTestIndependentOfRepositoryType", - "traitcomposition" : "TTestCaseSuppressingProgressDisplay", - "type" : "normal" } diff --git a/src/Squot.package/SquotUnrecordedFilesArtifact.class/README.md b/src/Squot.package/SquotUnrecordedFilesArtifact.class/README.md deleted file mode 100644 index f65a3fc8c..000000000 --- a/src/Squot.package/SquotUnrecordedFilesArtifact.class/README.md +++ /dev/null @@ -1,5 +0,0 @@ -I am a "catch-all" placeholder for files that seem to be irrelevant for Squot and will not appear in any object graph. They do not appear in the table of contents file. - -Instance Variables - ownerSnapshot: - rootDirectory: diff --git a/src/Squot.package/SquotUnrecordedFilesArtifact.class/class/newId.st b/src/Squot.package/SquotUnrecordedFilesArtifact.class/class/newId.st deleted file mode 100644 index 7cfb7fb61..000000000 --- a/src/Squot.package/SquotUnrecordedFilesArtifact.class/class/newId.st +++ /dev/null @@ -1,4 +0,0 @@ -instance creation -newId - "Always answer the same id for all unrecorded files placeholders." - ^ UUID fromString: '93adc0ff-8cc3-9d42-8f3f-f9c1f75893d0' \ No newline at end of file diff --git a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/^equals.st b/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/^equals.st deleted file mode 100644 index 594a826e4..000000000 --- a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/^equals.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -= anObject - ^ (anObject respondsTo: #rootDirectory) and: [anObject rootDirectory = rootDirectory] \ No newline at end of file diff --git a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/browse.st b/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/browse.st deleted file mode 100644 index d22069725..000000000 --- a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/browse.st +++ /dev/null @@ -1,3 +0,0 @@ -tools -browse - ^ self inspect \ No newline at end of file diff --git a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/diffAgainst..st b/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/diffAgainst..st deleted file mode 100644 index dcb89f20c..000000000 --- a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/diffAgainst..st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -diffAgainst: anArtifact - ^ anArtifact reverseDiffAgainstUnrecordedFiles: self \ No newline at end of file diff --git a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/displayText.st b/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/displayText.st deleted file mode 100644 index d03640fbc..000000000 --- a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/displayText.st +++ /dev/null @@ -1,3 +0,0 @@ -printing -displayText - ^ 'Unrecorded files' \ No newline at end of file diff --git a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/hash.st b/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/hash.st deleted file mode 100644 index 09fb1514d..000000000 --- a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/hash.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -hash - ^ rootDirectory hash \ No newline at end of file diff --git a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/initialize.st b/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/initialize.st deleted file mode 100644 index 6eb3a2efb..000000000 --- a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initialize - super initialize. - path := ''. \ No newline at end of file diff --git a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/isLoadable.st b/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/isLoadable.st deleted file mode 100644 index e585c3942..000000000 --- a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/isLoadable.st +++ /dev/null @@ -1,3 +0,0 @@ -loading -isLoadable - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/materializeWith.replacing..st b/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/materializeWith.replacing..st deleted file mode 100644 index 0b17d7e0b..000000000 --- a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/materializeWith.replacing..st +++ /dev/null @@ -1,6 +0,0 @@ -loading -materializeWith: imageStore replacing: anObject - "Answer myself as the object in the image." - self flag: 'Another possiblity would be to place fileReferences in the image'. - self assert: (anObject isNil or: [anObject species = self species]). - ^ self "do not invoke the store's loading facilities" \ No newline at end of file diff --git a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/mergeWith.basedOn..st b/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/mergeWith.basedOn..st deleted file mode 100644 index 78d0c37ef..000000000 --- a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/mergeWith.basedOn..st +++ /dev/null @@ -1,7 +0,0 @@ -merging -mergeWith: anArtifact basedOn: baseArtifact - "Unsupported for now, do not return any differences." - ^ SquotArtifactMerge into: self merge: anArtifact basedOn: baseArtifact - willBeLoaded: false - graphMerge: SquotObjectGraphMerge new - metadataMerge: SquotTrackedObjectMetadataMerge new \ No newline at end of file diff --git a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/ownerSnapshot..st b/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/ownerSnapshot..st deleted file mode 100644 index 06b3eb208..000000000 --- a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/ownerSnapshot..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -ownerSnapshot: anObject - - ownerSnapshot := anObject. diff --git a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/ownerSnapshot.st b/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/ownerSnapshot.st deleted file mode 100644 index 7bc09cf92..000000000 --- a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/ownerSnapshot.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -ownerSnapshot - - ^ ownerSnapshot diff --git a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/path..st b/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/path..st deleted file mode 100644 index 3605f8a51..000000000 --- a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/path..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -path: anObject - self shouldNotImplement \ No newline at end of file diff --git a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/reverseDiffAgainstUnrecordedFiles..st b/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/reverseDiffAgainstUnrecordedFiles..st deleted file mode 100644 index 30ef07caf..000000000 --- a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/reverseDiffAgainstUnrecordedFiles..st +++ /dev/null @@ -1,4 +0,0 @@ -comparing -reverseDiffAgainstUnrecordedFiles: otherUnrecordedFilesArtifact - "As long as we do not support deeper inspection of these, treat as equal." - ^ SquotDiffOfEqualObjects instance \ No newline at end of file diff --git a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/rootDirectory..st b/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/rootDirectory..st deleted file mode 100644 index c961f0b55..000000000 --- a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/rootDirectory..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -rootDirectory: anObject - - rootDirectory := anObject. diff --git a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/rootDirectory.st b/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/rootDirectory.st deleted file mode 100644 index e4a8da194..000000000 --- a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/rootDirectory.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -rootDirectory - - ^ rootDirectory diff --git a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/squotSummaryText.st b/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/squotSummaryText.st deleted file mode 100644 index 23461e11f..000000000 --- a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/squotSummaryText.st +++ /dev/null @@ -1,3 +0,0 @@ -tools -squotSummaryText - ^ 'files not managed by Squot' \ No newline at end of file diff --git a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/storeWith..st b/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/storeWith..st deleted file mode 100644 index c8dd7f478..000000000 --- a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/storeWith..st +++ /dev/null @@ -1,4 +0,0 @@ -serializing -storeWith: aStore - "double dispatch" - ^ aStore storeUnrecordedFiles: self \ No newline at end of file diff --git a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/wantsToBeInTableOfContents.st b/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/wantsToBeInTableOfContents.st deleted file mode 100644 index b67accbe9..000000000 --- a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/wantsToBeInTableOfContents.st +++ /dev/null @@ -1,4 +0,0 @@ -serializing -wantsToBeInTableOfContents - "Stray files are not in the table of contents, otherwise they would be ordinary Artifacts." - ^ false \ No newline at end of file diff --git a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/writeWith..st b/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/writeWith..st deleted file mode 100644 index 8bd9cb1b0..000000000 --- a/src/Squot.package/SquotUnrecordedFilesArtifact.class/instance/writeWith..st +++ /dev/null @@ -1,4 +0,0 @@ -serializing -writeWith: aSerializer - "I already represent files, no need to serialize them again." - self shouldNotImplement \ No newline at end of file diff --git a/src/Squot.package/SquotUnrecordedFilesArtifact.class/methodProperties.json b/src/Squot.package/SquotUnrecordedFilesArtifact.class/methodProperties.json deleted file mode 100644 index 4a98e1f9e..000000000 --- a/src/Squot.package/SquotUnrecordedFilesArtifact.class/methodProperties.json +++ /dev/null @@ -1,23 +0,0 @@ -{ - "class" : { - "newId" : "jr 2/13/2022 17:42" }, - "instance" : { - "=" : "jr 3/16/2019 18:38", - "browse" : "jr 5/13/2017 18:43", - "diffAgainst:" : "jr 7/22/2017 02:42", - "displayText" : "fn 4/11/2017 14:24", - "hash" : "jr 3/16/2019 18:38", - "initialize" : "jr 3/15/2017 16:57", - "isLoadable" : "jr 3/8/2017 16:16", - "materializeWith:replacing:" : "jr 5/31/2017 16:36", - "mergeWith:basedOn:" : "jr 12/23/2020 22:20", - "ownerSnapshot" : "jr 3/7/2017 01:02", - "ownerSnapshot:" : "jr 3/7/2017 01:02", - "path:" : "jr 3/8/2017 17:37", - "reverseDiffAgainstUnrecordedFiles:" : "jr 7/22/2017 02:43", - "rootDirectory" : "jr 3/7/2017 01:02", - "rootDirectory:" : "jr 3/7/2017 01:02", - "squotSummaryText" : "jr 11/17/2018 22:27", - "storeWith:" : "jr 3/7/2017 01:00", - "wantsToBeInTableOfContents" : "jr 3/7/2017 00:57", - "writeWith:" : "jr 3/7/2017 01:00" } } diff --git a/src/Squot.package/SquotUnrecordedFilesArtifact.class/properties.json b/src/Squot.package/SquotUnrecordedFilesArtifact.class/properties.json deleted file mode 100644 index a14b70f79..000000000 --- a/src/Squot.package/SquotUnrecordedFilesArtifact.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-FileSystemStore", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 19:27", - "instvars" : [ - "rootDirectory", - "ownerSnapshot" ], - "name" : "SquotUnrecordedFilesArtifact", - "pools" : [ - ], - "super" : "SquotArtifact", - "type" : "normal" } diff --git a/src/Squot.package/SquotUnsavedChangesTest.class/README.md b/src/Squot.package/SquotUnsavedChangesTest.class/README.md deleted file mode 100644 index c7151ff60..000000000 --- a/src/Squot.package/SquotUnsavedChangesTest.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I test how working copies deal with unsaved changes. \ No newline at end of file diff --git a/src/Squot.package/SquotUnsavedChangesTest.class/instance/addAnotherObject.st b/src/Squot.package/SquotUnsavedChangesTest.class/instance/addAnotherObject.st deleted file mode 100644 index 0f6090807..000000000 --- a/src/Squot.package/SquotUnsavedChangesTest.class/instance/addAnotherObject.st +++ /dev/null @@ -1,4 +0,0 @@ -tests -addAnotherObject - addedObject := StringHolder new contents: 'Added'; yourself. - workingCopy add: addedObject at: 'added.txt'. \ No newline at end of file diff --git a/src/Squot.package/SquotUnsavedChangesTest.class/instance/assertAddedObjectWasRemoved.st b/src/Squot.package/SquotUnsavedChangesTest.class/instance/assertAddedObjectWasRemoved.st deleted file mode 100644 index e31200d30..000000000 --- a/src/Squot.package/SquotUnsavedChangesTest.class/instance/assertAddedObjectWasRemoved.st +++ /dev/null @@ -1,4 +0,0 @@ -tests -assertAddedObjectWasRemoved - self deny: (workingCopy includesObject: addedObject). - self deny: (workingCopy includesObjectAt: 'added.txt'). \ No newline at end of file diff --git a/src/Squot.package/SquotUnsavedChangesTest.class/instance/assertTrackedObjectStillChanged.st b/src/Squot.package/SquotUnsavedChangesTest.class/instance/assertTrackedObjectStillChanged.st deleted file mode 100644 index 0a8be1bf8..000000000 --- a/src/Squot.package/SquotUnsavedChangesTest.class/instance/assertTrackedObjectStillChanged.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -assertTrackedObjectStillChanged - self assert: trackedObject contents = 'Unsaved'. \ No newline at end of file diff --git a/src/Squot.package/SquotUnsavedChangesTest.class/instance/assertTrackedObjectWasReset.st b/src/Squot.package/SquotUnsavedChangesTest.class/instance/assertTrackedObjectWasReset.st deleted file mode 100644 index f546f41a5..000000000 --- a/src/Squot.package/SquotUnsavedChangesTest.class/instance/assertTrackedObjectWasReset.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -assertTrackedObjectWasReset - self assert: trackedObject contents = 'Tracked'. \ No newline at end of file diff --git a/src/Squot.package/SquotUnsavedChangesTest.class/instance/changeTrackedObject.st b/src/Squot.package/SquotUnsavedChangesTest.class/instance/changeTrackedObject.st deleted file mode 100644 index 445d7069d..000000000 --- a/src/Squot.package/SquotUnsavedChangesTest.class/instance/changeTrackedObject.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -changeTrackedObject - trackedObject contents: 'Unsaved'. \ No newline at end of file diff --git a/src/Squot.package/SquotUnsavedChangesTest.class/instance/setUp.st b/src/Squot.package/SquotUnsavedChangesTest.class/instance/setUp.st deleted file mode 100644 index 76a2141e9..000000000 --- a/src/Squot.package/SquotUnsavedChangesTest.class/instance/setUp.st +++ /dev/null @@ -1,9 +0,0 @@ -running -setUp - super setUp. - trackedObject := StringHolder new contents: 'Tracked'; yourself. - workingCopy add: trackedObject at: 'tracked.txt'. - self suppressProgressDisplayDuring: - [workingCopy saveVersionWithMessage: 'add something']. - "remember this version on another branch" - (otherHistorian := repository historianNamed: 'other') version: workingCopy baseVersion. \ No newline at end of file diff --git a/src/Squot.package/SquotUnsavedChangesTest.class/instance/testDiscardUnsavedChanges.st b/src/Squot.package/SquotUnsavedChangesTest.class/instance/testDiscardUnsavedChanges.st deleted file mode 100644 index 18c413e4d..000000000 --- a/src/Squot.package/SquotUnsavedChangesTest.class/instance/testDiscardUnsavedChanges.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testDiscardUnsavedChanges - "given" - self changeTrackedObject; - addAnotherObject. - "when" - workingCopy discardUnsavedChanges. - "then" - self assertTrackedObjectWasReset. - self assertAddedObjectWasRemoved. \ No newline at end of file diff --git a/src/Squot.package/SquotUnsavedChangesTest.class/instance/testSwitchToRestoresUnsavedChanges.st b/src/Squot.package/SquotUnsavedChangesTest.class/instance/testSwitchToRestoresUnsavedChanges.st deleted file mode 100644 index 9d7dc5de6..000000000 --- a/src/Squot.package/SquotUnsavedChangesTest.class/instance/testSwitchToRestoresUnsavedChanges.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testSwitchToRestoresUnsavedChanges - | defaultHistorian | - "given" - "add another version" - self addAnotherObject. - workingCopy saveVersionWithMessage: 'add something else'. - self changeTrackedObject. - defaultHistorian := workingCopy loadedHistorian. - workingCopy switchTo: otherHistorian. - self assertTrackedObjectWasReset. - "when" - workingCopy switchTo: defaultHistorian. - "then" - self assertTrackedObjectStillChanged. \ No newline at end of file diff --git a/src/Squot.package/SquotUnsavedChangesTest.class/instance/testSwitchToRestoresUnsavedChangesOnly.st b/src/Squot.package/SquotUnsavedChangesTest.class/instance/testSwitchToRestoresUnsavedChangesOnly.st deleted file mode 100644 index be923da97..000000000 --- a/src/Squot.package/SquotUnsavedChangesTest.class/instance/testSwitchToRestoresUnsavedChangesOnly.st +++ /dev/null @@ -1,19 +0,0 @@ -tests -testSwitchToRestoresUnsavedChangesOnly - "When a branch was reset, do not restore versions that lead up to the temporary version." - | defaultHistorian | - "given" - "add another version that is discarded later" - self addAnotherObject. - workingCopy saveVersionWithMessage: 'add something else' . - self changeTrackedObject. - defaultHistorian := workingCopy loadedHistorian. - workingCopy switchTo: otherHistorian. - self assertTrackedObjectWasReset. - "reset to earlier version" - defaultHistorian version: otherHistorian version. - "when" - workingCopy switchTo: defaultHistorian. - "then" - self assertTrackedObjectStillChanged. - self assertAddedObjectWasRemoved. \ No newline at end of file diff --git a/src/Squot.package/SquotUnsavedChangesTest.class/methodProperties.json b/src/Squot.package/SquotUnsavedChangesTest.class/methodProperties.json deleted file mode 100644 index 6c5e2d266..000000000 --- a/src/Squot.package/SquotUnsavedChangesTest.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "addAnotherObject" : "jr 2/9/2020 01:50", - "assertAddedObjectWasRemoved" : "jr 2/9/2020 01:56", - "assertTrackedObjectStillChanged" : "jr 2/9/2020 01:52", - "assertTrackedObjectWasReset" : "jr 2/9/2020 01:53", - "changeTrackedObject" : "jr 2/9/2020 01:50", - "setUp" : "jr 9/13/2020 22:51", - "testDiscardUnsavedChanges" : "jr 2/9/2020 01:56", - "testSwitchToRestoresUnsavedChanges" : "jr 2/9/2020 01:55", - "testSwitchToRestoresUnsavedChangesOnly" : "jr 2/9/2020 01:56" } } diff --git a/src/Squot.package/SquotUnsavedChangesTest.class/properties.json b/src/Squot.package/SquotUnsavedChangesTest.class/properties.json deleted file mode 100644 index 6a25ff788..000000000 --- a/src/Squot.package/SquotUnsavedChangesTest.class/properties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classtraitcomposition" : "TTestCaseSuppressingProgressDisplay classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 5/4/2019 00:54", - "instvars" : [ - "trackedObject", - "addedObject", - "otherHistorian" ], - "name" : "SquotUnsavedChangesTest", - "pools" : [ - ], - "super" : "SquotWorkingCopyTestIndependentOfRepositoryType", - "traitcomposition" : "TTestCaseSuppressingProgressDisplay", - "type" : "normal" } diff --git a/src/Squot.package/SquotVariablePartSlot.class/README.md b/src/Squot.package/SquotVariablePartSlot.class/README.md deleted file mode 100644 index 55690481a..000000000 --- a/src/Squot.package/SquotVariablePartSlot.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I capture an indexed variable in an object. \ No newline at end of file diff --git a/src/Squot.package/SquotVariablePartSlot.class/class/printHeadlineForChangesTextOn..st b/src/Squot.package/SquotVariablePartSlot.class/class/printHeadlineForChangesTextOn..st deleted file mode 100644 index 744c87f93..000000000 --- a/src/Squot.package/SquotVariablePartSlot.class/class/printHeadlineForChangesTextOn..st +++ /dev/null @@ -1,3 +0,0 @@ -tools -printHeadlineForChangesTextOn: aTextStream - aTextStream nextPutAll: 'changed indices'. \ No newline at end of file diff --git a/src/Squot.package/SquotVariablePartSlot.class/instance/addTo..st b/src/Squot.package/SquotVariablePartSlot.class/instance/addTo..st deleted file mode 100644 index 8363a6873..000000000 --- a/src/Squot.package/SquotVariablePartSlot.class/instance/addTo..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -addTo: anObjectShadow - anObjectShadow addVariablePartSlot: self. \ No newline at end of file diff --git a/src/Squot.package/SquotVariablePartSlot.class/instance/addTo.with..st b/src/Squot.package/SquotVariablePartSlot.class/instance/addTo.with..st deleted file mode 100644 index d1b604760..000000000 --- a/src/Squot.package/SquotVariablePartSlot.class/instance/addTo.with..st +++ /dev/null @@ -1,4 +0,0 @@ -patching -addTo: anObjectShadow with: aPatcher - anObjectShadow addVariablePartSlot: self. - aPatcher addToGraph: self value. \ No newline at end of file diff --git a/src/Squot.package/SquotVariablePartSlot.class/instance/asReference.st b/src/Squot.package/SquotVariablePartSlot.class/instance/asReference.st deleted file mode 100644 index 1bc12a35c..000000000 --- a/src/Squot.package/SquotVariablePartSlot.class/instance/asReference.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -asReference - ^ SquotIndexableField index: self index \ No newline at end of file diff --git a/src/Squot.package/SquotVariablePartSlot.class/instance/diffToBaseIndexedSlot..st b/src/Squot.package/SquotVariablePartSlot.class/instance/diffToBaseIndexedSlot..st deleted file mode 100644 index 3b9502faa..000000000 --- a/src/Squot.package/SquotVariablePartSlot.class/instance/diffToBaseIndexedSlot..st +++ /dev/null @@ -1,12 +0,0 @@ -comparing -diffToBaseIndexedSlot: aVariablePartSlot - self flag: #duplication. "SquotInstVarSlot>>#diffToBaseInstVar:" - aVariablePartSlot value = self value ifTrue: [^ SquotDiffOfEqualObjects instance]. - self flag: #todo. - "Might need subclasses for each slot type to remember the type. - In that case, let the slots create the reassignment object. - This would also eliminate the access to their internals below." - ^ SquotSlotReassignment - key: aVariablePartSlot key - leftShadow: aVariablePartSlot value - rightShadow: self value \ No newline at end of file diff --git a/src/Squot.package/SquotVariablePartSlot.class/instance/index.st b/src/Squot.package/SquotVariablePartSlot.class/instance/index.st deleted file mode 100644 index 621d09e2f..000000000 --- a/src/Squot.package/SquotVariablePartSlot.class/instance/index.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -index - ^ self key \ No newline at end of file diff --git a/src/Squot.package/SquotVariablePartSlot.class/instance/lookupIn..st b/src/Squot.package/SquotVariablePartSlot.class/instance/lookupIn..st deleted file mode 100644 index 4ef134a99..000000000 --- a/src/Squot.package/SquotVariablePartSlot.class/instance/lookupIn..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -lookupIn: anObjectShadow - ^ anObjectShadow variablePartSlotWithIndex: self index \ No newline at end of file diff --git a/src/Squot.package/SquotVariablePartSlot.class/instance/removeFrom..st b/src/Squot.package/SquotVariablePartSlot.class/instance/removeFrom..st deleted file mode 100644 index 0ba048c6d..000000000 --- a/src/Squot.package/SquotVariablePartSlot.class/instance/removeFrom..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -removeFrom: anObjectShadow - ^ anObjectShadow removeVariablePartSlot: self \ No newline at end of file diff --git a/src/Squot.package/SquotVariablePartSlot.class/instance/removeFrom.with..st b/src/Squot.package/SquotVariablePartSlot.class/instance/removeFrom.with..st deleted file mode 100644 index cae2f6392..000000000 --- a/src/Squot.package/SquotVariablePartSlot.class/instance/removeFrom.with..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -removeFrom: aShadow with: aPatcher - ^ aShadow removeVariablePartSlot: self \ No newline at end of file diff --git a/src/Squot.package/SquotVariablePartSlot.class/instance/squotDiffAgainst..st b/src/Squot.package/SquotVariablePartSlot.class/instance/squotDiffAgainst..st deleted file mode 100644 index f7e9b352a..000000000 --- a/src/Squot.package/SquotVariablePartSlot.class/instance/squotDiffAgainst..st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -squotDiffAgainst: otherSlot - ^ otherSlot diffToBaseIndexedSlot: self \ No newline at end of file diff --git a/src/Squot.package/SquotVariablePartSlot.class/methodProperties.json b/src/Squot.package/SquotVariablePartSlot.class/methodProperties.json deleted file mode 100644 index 97c693ad0..000000000 --- a/src/Squot.package/SquotVariablePartSlot.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - "printHeadlineForChangesTextOn:" : "jr 10/31/2017 20:55" }, - "instance" : { - "addTo:" : "jr 9/23/2019 23:24", - "addTo:with:" : "jr 7/20/2017 22:42", - "asReference" : "jr 4/10/2021 12:25", - "diffToBaseIndexedSlot:" : "jr 9/18/2019 20:14", - "index" : "jr 6/17/2017 20:02", - "lookupIn:" : "jr 7/16/2017 15:34", - "removeFrom:" : "jr 9/25/2019 20:20", - "removeFrom:with:" : "jr 7/20/2017 22:48", - "squotDiffAgainst:" : "jr 9/18/2019 20:12" } } diff --git a/src/Squot.package/SquotVariablePartSlot.class/properties.json b/src/Squot.package/SquotVariablePartSlot.class/properties.json deleted file mode 100644 index 336c6e9ad..000000000 --- a/src/Squot.package/SquotVariablePartSlot.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Shadows", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 9/18/2019 20:32", - "instvars" : [ - ], - "name" : "SquotVariablePartSlot", - "pools" : [ - ], - "super" : "SquotShadowSlot", - "type" : "normal" } diff --git a/src/Squot.package/SquotVersionAlreadyInHistory.class/README.md b/src/Squot.package/SquotVersionAlreadyInHistory.class/README.md deleted file mode 100644 index 11f69ada5..000000000 --- a/src/Squot.package/SquotVersionAlreadyInHistory.class/README.md +++ /dev/null @@ -1 +0,0 @@ -Attempted to merge a version that is already in the ancestry of a working copy. That probably means that the version has already been merged before. \ No newline at end of file diff --git a/src/Squot.package/SquotVersionAlreadyInHistory.class/class/historian.version..st b/src/Squot.package/SquotVersionAlreadyInHistory.class/class/historian.version..st deleted file mode 100644 index f70df4224..000000000 --- a/src/Squot.package/SquotVersionAlreadyInHistory.class/class/historian.version..st +++ /dev/null @@ -1,6 +0,0 @@ -instance creation -historian: aHistorian version: aVersion - ^ self new - historian: aHistorian; - version: aVersion; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotVersionAlreadyInHistory.class/instance/historian..st b/src/Squot.package/SquotVersionAlreadyInHistory.class/instance/historian..st deleted file mode 100644 index 5a6890634..000000000 --- a/src/Squot.package/SquotVersionAlreadyInHistory.class/instance/historian..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -historian: anObject - - historian := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotVersionAlreadyInHistory.class/instance/historian.st b/src/Squot.package/SquotVersionAlreadyInHistory.class/instance/historian.st deleted file mode 100644 index 041e1ecc0..000000000 --- a/src/Squot.package/SquotVersionAlreadyInHistory.class/instance/historian.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -historian - - ^ historian \ No newline at end of file diff --git a/src/Squot.package/SquotVersionAlreadyInHistory.class/instance/version..st b/src/Squot.package/SquotVersionAlreadyInHistory.class/instance/version..st deleted file mode 100644 index cb1ae66fa..000000000 --- a/src/Squot.package/SquotVersionAlreadyInHistory.class/instance/version..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -version: anObject - - version := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotVersionAlreadyInHistory.class/instance/version.st b/src/Squot.package/SquotVersionAlreadyInHistory.class/instance/version.st deleted file mode 100644 index 412bcc528..000000000 --- a/src/Squot.package/SquotVersionAlreadyInHistory.class/instance/version.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -version - - ^ version \ No newline at end of file diff --git a/src/Squot.package/SquotVersionAlreadyInHistory.class/methodProperties.json b/src/Squot.package/SquotVersionAlreadyInHistory.class/methodProperties.json deleted file mode 100644 index 177631b0f..000000000 --- a/src/Squot.package/SquotVersionAlreadyInHistory.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - "historian:version:" : "jr 7/25/2020 19:30" }, - "instance" : { - "historian" : "jr 7/25/2020 19:29", - "historian:" : "jr 7/25/2020 19:29", - "version" : "jr 7/25/2020 19:29", - "version:" : "jr 7/25/2020 19:29" } } diff --git a/src/Squot.package/SquotVersionAlreadyInHistory.class/properties.json b/src/Squot.package/SquotVersionAlreadyInHistory.class/properties.json deleted file mode 100644 index 8a97d858b..000000000 --- a/src/Squot.package/SquotVersionAlreadyInHistory.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-Exceptions", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 21:02", - "instvars" : [ - "historian", - "version" ], - "name" : "SquotVersionAlreadyInHistory", - "pools" : [ - ], - "super" : "Error", - "type" : "normal" } diff --git a/src/Squot.package/SquotWorkingCopy.class/README.md b/src/Squot.package/SquotWorkingCopy.class/README.md deleted file mode 100644 index d8f83e87d..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/README.md +++ /dev/null @@ -1,15 +0,0 @@ -I connect a Store with a local repository and a historian, so you can create new versions with snapshots from the store and restore the snaphots from versions. - -Instance Variables - name: display name of this working copy - store: backing store, usually a SquotImageStore - repository: repository used to read and write history - loadedHistorian: current historian, used to write history - previouslySavedArtifacts: cache of the last saved state of the contained artifacts - shouldStoreMetadata: set to false to not store Squot metadata files - additionalParents: additional parent versions of the next version to be saved (for merges) - lastLoadedHistorian: private historian used to mark the latest version that was loaded or saved using this working copy. - snapshotBlock: used to capture a snapshot. See #withCurrentSnapshot: - loadedVersion: latest version that was loaded or saved using this working copy. - previousVersionId: deprecated. Will be removed in a future release. - previousSnapshot: deprecated. Will be removed in a future release. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/class/forTestInMemory.st b/src/Squot.package/SquotWorkingCopy.class/class/forTestInMemory.st deleted file mode 100644 index 57542917f..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/class/forTestInMemory.st +++ /dev/null @@ -1,7 +0,0 @@ -*Squot-Tests instance creation -forTestInMemory - | repo | - ^ self newOnObjectMemory - repository: (repo := SquotInMemoryRepository new); - loadedHistorian: (repo historianNamed: 'master'); - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/class/initialize.st b/src/Squot.package/SquotWorkingCopy.class/class/initialize.st deleted file mode 100644 index 94749f360..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/class/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -class initialization -initialize - "SquotWorkingCopy initialize" - Smalltalk addToShutDownList: self. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/class/newOnObjectMemory.st b/src/Squot.package/SquotWorkingCopy.class/class/newOnObjectMemory.st deleted file mode 100644 index c0b707bf4..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/class/newOnObjectMemory.st +++ /dev/null @@ -1,7 +0,0 @@ -instance creation -newOnObjectMemory - "Answer a new working copy that tracks objects in the running object memory (image)." - | workingCopy | - workingCopy := self new. - workingCopy store: SquotImageStore new. - ^ workingCopy \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/class/register..st b/src/Squot.package/SquotWorkingCopy.class/class/register..st deleted file mode 100644 index 204f9d7cc..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/class/register..st +++ /dev/null @@ -1,3 +0,0 @@ -working copy registry -register: aWorkingCopy - (registry ifNil: [registry := OrderedCollection new]) add: aWorkingCopy. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/class/registered.st b/src/Squot.package/SquotWorkingCopy.class/class/registered.st deleted file mode 100644 index 79f447630..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/class/registered.st +++ /dev/null @@ -1,4 +0,0 @@ -working copy registry -registered - "registry := nil" - ^ (registry ifNil: [registry := OrderedCollection new]) copy \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/class/unregister..st b/src/Squot.package/SquotWorkingCopy.class/class/unregister..st deleted file mode 100644 index 7fe91a053..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/class/unregister..st +++ /dev/null @@ -1,3 +0,0 @@ -working copy registry -unregister: aWorkingCopy - registry remove: aWorkingCopy ifAbsent: [] \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/add..st b/src/Squot.package/SquotWorkingCopy.class/instance/add..st deleted file mode 100644 index 621f8e959..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/add..st +++ /dev/null @@ -1,7 +0,0 @@ -adding and removing -add: anArtifact - store add: anArtifact. - (store includesObjectAt: anArtifact path) "i. e. was really loaded" ifFalse: - [^ self addUnloaded: anArtifact]. - self appendToLoadOrder: anArtifact path. - ^ SquotLoadedArtifact wrapping: (store artifactAt: anArtifact path) in: self \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/add.at..st b/src/Squot.package/SquotWorkingCopy.class/instance/add.at..st deleted file mode 100644 index 79f281c70..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/add.at..st +++ /dev/null @@ -1,9 +0,0 @@ -adding and removing -add: anObject at: path - | storeInfo | - storeInfo := SquotTrackedObjectMetadata new. - storeInfo - id: SquotArtifact newId; - at: #path put: path. - anObject squotInitializeStoreInfo: storeInfo. "Instead of SquotArtifact initializeDefaultStoreInfoFor: anObject" - ^ self add: anObject withStoreInfo: storeInfo \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/add.withStoreInfo..st b/src/Squot.package/SquotWorkingCopy.class/instance/add.withStoreInfo..st deleted file mode 100644 index 00733d468..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/add.withStoreInfo..st +++ /dev/null @@ -1,8 +0,0 @@ -adding and removing -add: anObject withStoreInfo: storeInfo - | correctedPath | - self initializeStoreInfo: storeInfo forObject: anObject. - correctedPath := storeInfo removeKey: #path. "for now..." - store add: anObject at: correctedPath additionalInfo: storeInfo. - self appendToLoadOrder: correctedPath. - ^ store artifactAt: correctedPath \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/addAsUnloadedFrom.thatAreNotIn..st b/src/Squot.package/SquotWorkingCopy.class/instance/addAsUnloadedFrom.thatAreNotIn..st deleted file mode 100644 index 1e6ae5d9a..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/addAsUnloadedFrom.thatAreNotIn..st +++ /dev/null @@ -1,9 +0,0 @@ -private -addAsUnloadedFrom: aVersion thatAreNotIn: previousVersionOrNil - "Some repositories add artifacts automatically. Add these to the unloaded objects." - | previousArtifactPaths added | - previousArtifactPaths := previousVersionOrNil ifNotNil: [:version | version artifacts keys] ifNil: [#()]. - "Artifacts that were removed from the working copy should not be readded!" - added := aVersion artifacts keys reject: [:each | previousArtifactPaths includes: each]. - (added reject: [:each | self includesObjectAt: each]) - do: [:each | self addUnloaded: (aVersion artifactAt: each)]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/addGlobalObjectsToStore..st b/src/Squot.package/SquotWorkingCopy.class/instance/addGlobalObjectsToStore..st deleted file mode 100644 index 8ee6c3298..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/addGlobalObjectsToStore..st +++ /dev/null @@ -1,3 +0,0 @@ -adding and removing -addGlobalObjectsToStore: aSnapshot - self registerPackagesInStore: aSnapshot. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/addLoadedPackageInfoNamed.at.serializer..st b/src/Squot.package/SquotWorkingCopy.class/instance/addLoadedPackageInfoNamed.at.serializer..st deleted file mode 100644 index f5758339b..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/addLoadedPackageInfoNamed.at.serializer..st +++ /dev/null @@ -1,20 +0,0 @@ -*Squot-Packages -addLoadedPackageInfoNamed: packageName at: path serializer: aSerializerClass - "Add PackageInfo artifact and get the environment from the working copy, if it exists." - | packageInfo storeInfo existingPackage artifact | - packageInfo := Environment current packageOrganizer packageNamed: packageName ifAbsent: [^ self]. - (packageInfo classes isEmpty and: [packageInfo methods isEmpty]) ifTrue: [^ self]. - existingPackage := self anyPackageOrNil. - storeInfo := SquotTrackedObjectMetadata new - id: SquotArtifact newId; - at: #path put: path; - at: #packageName put: packageName; "required in copySettingsFrom:to: below" - serializer: aSerializerClass; - yourself. - existingPackage ifNotNil: - [store copySettingsFrom: existingPackage to: storeInfo. - repository copySettingsFrom: existingPackage to: storeInfo]. - packageInfo squotInitializeStoreInfo: storeInfo. "Instead of SquotArtifact initializeDefaultStoreInfoFor: packageInfo" - artifact := self add: packageInfo withStoreInfo: storeInfo. - artifact liveStoreInfo removeKey: #packageName. "for now..." - ^ artifact \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/addPackage.at..st b/src/Squot.package/SquotWorkingCopy.class/instance/addPackage.at..st deleted file mode 100644 index e8f30f9d7..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/addPackage.at..st +++ /dev/null @@ -1,21 +0,0 @@ -*Squot-Packages -addPackage: aPackageInfo at: path - | existingPackage serializer storeInfo artifact | - "Use same format as existing package(s)." - existingPackage := self anyPackageOrNil. - existingPackage - ifNil: [serializer := SquotPackageShadow squotPreferredSerializer name] - ifNotNil: [serializer := existingPackage storeInfo serializer]. - storeInfo := SquotTrackedObjectMetadata new - id: SquotArtifact newId; - at: #path put: path; - at: #packageName put: aPackageInfo packageName; "required in copySettingsFrom:to: below" - serializer: (self environment valueOf: serializer); - yourself. - existingPackage ifNotNil: - [store copySettingsFrom: existingPackage to: storeInfo. - repository copySettingsFrom: existingPackage to: storeInfo]. - aPackageInfo squotInitializeStoreInfo: storeInfo. "Instead of SquotArtifact initializeDefaultStoreInfoFor: packageInfo" - artifact := self add: aPackageInfo withStoreInfo: storeInfo. - artifact liveStoreInfo removeKey: #packageName. "for now..." - ^ artifact \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/addPackageNamed.at..st b/src/Squot.package/SquotWorkingCopy.class/instance/addPackageNamed.at..st deleted file mode 100644 index 2ed513ed0..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/addPackageNamed.at..st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-Packages -addPackageNamed: packageName at: path - | packageInfo | - packageInfo := PackageInfo named: packageName. - ^ self addPackage: packageInfo at: path \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/addParentVersion..st b/src/Squot.package/SquotWorkingCopy.class/instance/addParentVersion..st deleted file mode 100644 index f64373c6f..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/addParentVersion..st +++ /dev/null @@ -1,8 +0,0 @@ -creating new versions -addParentVersion: aVersion - loadedHistorian version ifNil: - ["We are on a fresh branch, but we have just adopted a parent." - loadedHistorian version: aVersion. - ^ self loadedVersion: aVersion]. - (self additionalParents includes: aVersion) ifFalse: - [self additionalParents add: aVersion]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/addUnloaded..st b/src/Squot.package/SquotWorkingCopy.class/instance/addUnloaded..st deleted file mode 100644 index 19d8869f8..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/addUnloaded..st +++ /dev/null @@ -1,8 +0,0 @@ -adding and removing -addUnloaded: anArtifact - self assert: (store includesObjectAt: anArtifact path) not. - (self unloadedArtifacts includesKey: anArtifact path) - ifTrue: [self error: 'Artifact already in working copy' "Do not return to allow proceed in debugger."]. - self unloadedArtifacts at: anArtifact path put: anArtifact snapshot. - self appendToLoadOrder: anArtifact path. - ^ self artifactAt: anArtifact path \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/additionalParents..st b/src/Squot.package/SquotWorkingCopy.class/instance/additionalParents..st deleted file mode 100644 index 142c45e81..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/additionalParents..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -additionalParents: aCollectionOfVersions - - additionalParents := aCollectionOfVersions \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/additionalParents.st b/src/Squot.package/SquotWorkingCopy.class/instance/additionalParents.st deleted file mode 100644 index 4429778a5..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/additionalParents.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -additionalParents - - ^ additionalParents ifNil: [additionalParents := OrderedCollection new] \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/anyPackageOrNil.st b/src/Squot.package/SquotWorkingCopy.class/instance/anyPackageOrNil.st deleted file mode 100644 index 8a64acce0..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/anyPackageOrNil.st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-Packages -anyPackageOrNil - ^ self artifacts - detect: [:each | (each storeInfo at: #objectClassName ifAbsent: []) = #PackageInfo] - ifNone: [] \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/appendToLoadOrder..st b/src/Squot.package/SquotWorkingCopy.class/instance/appendToLoadOrder..st deleted file mode 100644 index 53f73b879..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/appendToLoadOrder..st +++ /dev/null @@ -1,3 +0,0 @@ -private -appendToLoadOrder: path - (loadOrder includes: path) ifFalse: [loadOrder add: path]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/applyDiff.toObjectAt..st b/src/Squot.package/SquotWorkingCopy.class/instance/applyDiff.toObjectAt..st deleted file mode 100644 index 7c3931bbb..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/applyDiff.toObjectAt..st +++ /dev/null @@ -1,21 +0,0 @@ -patching -applyDiff: aSquotArtifactModification toObjectAt: path - | artifact | - (store includesObjectAt: path) - ifTrue: [artifact := SquotLoadedArtifact - wrapping: - (aSquotArtifactModification hasChanges - ifTrue: [store applyDiff: aSquotArtifactModification] - ifFalse: [store artifactAt: path]) - in: self] - ifFalse: - [(self unloadedArtifacts includesKey: path) - ifFalse: [^ (KeyNotFound key: path) signal]. - artifact := SquotUnloadedArtifact - wrapping: (aSquotArtifactModification hasChanges - ifTrue: [self unloadedArtifacts at: path put: aSquotArtifactModification right] - ifFalse: [self unloadedArtifacts at: path]) - in: self. - "After patching the artifact, check whether it shall also be loaded now." - aSquotArtifactModification willBeLoaded ifTrue: [artifact := artifact load]]. - ^ artifact \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/applyPatch..st b/src/Squot.package/SquotWorkingCopy.class/instance/applyPatch..st deleted file mode 100644 index cc49666b3..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/applyPatch..st +++ /dev/null @@ -1,4 +0,0 @@ -patching -applyPatch: aPatch - aPatch applyTo: self displayingProgress: [:each | 'Updating working copy... ', each]. - self assertConsistentLoadOrder. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/artifactAt..st b/src/Squot.package/SquotWorkingCopy.class/instance/artifactAt..st deleted file mode 100644 index 8c23fb16f..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/artifactAt..st +++ /dev/null @@ -1,7 +0,0 @@ -accessing objects -artifactAt: path - | artifact | - artifact := store artifactAt: path ifAbsent: []. - ^ artifact - ifNotNil: [SquotLoadedArtifact wrapping: artifact in: self] - ifNil: [SquotUnloadedArtifact wrapping: (self unloadedArtifacts at: path) in: self] \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/artifacts.st b/src/Squot.package/SquotWorkingCopy.class/instance/artifacts.st deleted file mode 100644 index 4880cc860..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/artifacts.st +++ /dev/null @@ -1,7 +0,0 @@ -accessing objects -artifacts - | artifacts | - artifacts := Dictionary new. - artifacts addAll: (self unloadedArtifacts collect: [:each | SquotUnloadedArtifact wrapping: each in: self]). - artifacts addAll: (store artifacts collect: [:each | SquotLoadedArtifact wrapping: each in: self]). - ^ artifacts \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/artifactsInLoadOrder.st b/src/Squot.package/SquotWorkingCopy.class/instance/artifactsInLoadOrder.st deleted file mode 100644 index eff98b25b..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/artifactsInLoadOrder.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing objects -artifactsInLoadOrder - ^ loadOrder collect: [:each | self artifactAt: each] \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/asSquotVersionIn..st b/src/Squot.package/SquotWorkingCopy.class/instance/asSquotVersionIn..st deleted file mode 100644 index c3f63e967..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/asSquotVersionIn..st +++ /dev/null @@ -1,4 +0,0 @@ -converting -asSquotVersionIn: aRepository - aRepository = repository ifTrue: [^ self baseVersion]. - ^ self baseVersion asSquotVersionIn: aRepository \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/assertConsistentLoadOrder.st b/src/Squot.package/SquotWorkingCopy.class/instance/assertConsistentLoadOrder.st deleted file mode 100644 index 659f174e8..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/assertConsistentLoadOrder.st +++ /dev/null @@ -1,5 +0,0 @@ -private -assertConsistentLoadOrder - self assert: loadOrder asSet size = loadOrder size description: 'duplicates in load order'; - assert: (loadOrder select: [:each | store includesObjectAt: each]) = store loadOrder - description: 'different order in store'. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/baseSnapshot.st b/src/Squot.package/SquotWorkingCopy.class/instance/baseSnapshot.st deleted file mode 100644 index 5dc91f3ac..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/baseSnapshot.st +++ /dev/null @@ -1,11 +0,0 @@ -creating new versions -baseSnapshot - "Compose a lazy snapshot from caches and the baseVersion" - | baseVersionSnapshot | - baseVersionSnapshot := (self baseVersion ifNil: [^ SquotSnapshot empty]) lazySnapshot. - self loadedVersion ~= self baseVersion - ifTrue: [^ baseVersionSnapshot]. - ^ baseVersionSnapshot createNewBuilder - addAll: (self previouslySavedArtifacts - associationsSelect: [:each | baseVersionSnapshot includesObjectAt: each key]); - buildSnapshot \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/baseVersion.st b/src/Squot.package/SquotWorkingCopy.class/instance/baseVersion.st deleted file mode 100644 index 0fc6ffd98..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/baseVersion.st +++ /dev/null @@ -1,7 +0,0 @@ -accessing ancestry -baseVersion - "The baseVersion is the official HEAD version of this working copy. - New versions will have this version as a parent. - It is possible that the state in the working copy is not actually up-to-date with this version, - for example, in case of an unexpected shutdown of the system. See #loadedVersion." - ^ self loadedHistorian version \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/browse.st b/src/Squot.package/SquotWorkingCopy.class/instance/browse.st deleted file mode 100644 index 16fe66605..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/browse.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -browse - ^ ToolBuilder default open: (SquotWorkingCopyBrowser newOn: self) \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/cacheSavedArtifacts.in..st b/src/Squot.package/SquotWorkingCopy.class/instance/cacheSavedArtifacts.in..st deleted file mode 100644 index 71cfb6015..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/cacheSavedArtifacts.in..st +++ /dev/null @@ -1,7 +0,0 @@ -caching -cacheSavedArtifacts: aPatch in: aVersion - "Assume that all artifacts in aVersion that were patched in some way will already have been evaluated. Remember these snapshots for computing a baseSnapshot later." - aPatch diffsDo: - [:each | - each isRemoval not ifTrue: - [self previouslySavedArtifacts at: each path put: (aVersion artifactAt: each path)]]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/checkMergeBasesOf.with.ifNoCommonAncestor.ifAncestor.ifDescendant..st b/src/Squot.package/SquotWorkingCopy.class/instance/checkMergeBasesOf.with.ifNoCommonAncestor.ifAncestor.ifDescendant..st deleted file mode 100644 index dab9a1fa3..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/checkMergeBasesOf.with.ifNoCommonAncestor.ifAncestor.ifDescendant..st +++ /dev/null @@ -1,11 +0,0 @@ -loading and unloading -checkMergeBasesOf: myVersion with: otherVersion -ifNoCommonAncestor: noCommonAncestorBlock ifAncestor: ancestorBlock ifDescendant: descendantBlock - | mergeBases aVersionIsAncestor aVersionIsDescendant | - mergeBases := otherVersion mergeBasesWith: myVersion. - mergeBases ifEmpty: [^ noCommonAncestorBlock value]. - aVersionIsAncestor := mergeBases includes: otherVersion. - aVersionIsAncestor ifTrue: [ancestorBlock value]. - aVersionIsDescendant := mergeBases includes: myVersion. - aVersionIsDescendant ifTrue: [descendantBlock value]. - ^ mergeBases \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/checkMergeBasesOfHeadVersionWith.ifNoCommonAncestor.ifAncestor.ifDescendant..st b/src/Squot.package/SquotWorkingCopy.class/instance/checkMergeBasesOfHeadVersionWith.ifNoCommonAncestor.ifAncestor.ifDescendant..st deleted file mode 100644 index 45640d995..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/checkMergeBasesOfHeadVersionWith.ifNoCommonAncestor.ifAncestor.ifDescendant..st +++ /dev/null @@ -1,7 +0,0 @@ -loading and unloading -checkMergeBasesOfHeadVersionWith: aVersion ifNoCommonAncestor: noCommonAncestorBlock ifAncestor: ancestorBlock ifDescendant: descendantBlock - ^ self checkMergeBasesOf: self baseVersion - with: aVersion - ifNoCommonAncestor: noCommonAncestorBlock - ifAncestor: ancestorBlock - ifDescendant: descendantBlock \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/cherryPickTemporaryVersion..st b/src/Squot.package/SquotWorkingCopy.class/instance/cherryPickTemporaryVersion..st deleted file mode 100644 index 71dd80cf8..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/cherryPickTemporaryVersion..st +++ /dev/null @@ -1,17 +0,0 @@ -private switching historians -cherryPickTemporaryVersion: aVersion - self assert: aVersion parents size = 1 - description: 'Temporary version must have exactly one parent to restore'. - self restoreCurrentAncestryAfter: - [self mergeSilently: aVersion basedOn: aVersion parents first - onConflictsDo: - [:merge | | repeat | - self flag: #duplication. "with switchAndMoveUnsavedChangesOverTo:" - [repeat := false. - self selectFromMerge: merge - title: 'Merge conflicts with stashed changes on branch' - ifCancelled: - [(self confirm: 'Discard stashed changes of the branch?') - ifTrue: [^ self] - ifFalse: [repeat := false]]] - doWhileTrue: [repeat]]]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/confirm..st b/src/Squot.package/SquotWorkingCopy.class/instance/confirm..st deleted file mode 100644 index 60db2b7e3..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/confirm..st +++ /dev/null @@ -1,4 +0,0 @@ -user interface -confirm: aString - "Make sure the dialog is run in the UI process." - ^ SquotGUI confirm: aString. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/convertToCurrentVersion.refStream..st b/src/Squot.package/SquotWorkingCopy.class/instance/convertToCurrentVersion.refStream..st deleted file mode 100644 index 67bfb5fa5..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/convertToCurrentVersion.refStream..st +++ /dev/null @@ -1,5 +0,0 @@ -objects from disk -convertToCurrentVersion: varDict refStream: smartRefStrm - super convertToCurrentVersion: varDict refStream: smartRefStrm. - loadOrder ifNil: [loadOrder := store loadOrder asOrderedCollection]. - unloadedArtifacts ifNil: [unloadedArtifacts := Dictionary new]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/currentSnapshot.st b/src/Squot.package/SquotWorkingCopy.class/instance/currentSnapshot.st deleted file mode 100644 index f8aa1de82..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/currentSnapshot.st +++ /dev/null @@ -1,6 +0,0 @@ -private -currentSnapshot - "See #withCurrentSnapshot:" - ^ SquotCurrentWorkingCopySnapshotBlock value - ifNil: [self lazySnapshot] - ifNotNil: [SquotCurrentWorkingCopySnapshotBlock value value] \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/defaultAuthor.st b/src/Squot.package/SquotWorkingCopy.class/instance/defaultAuthor.st deleted file mode 100644 index 85d4e3a85..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/defaultAuthor.st +++ /dev/null @@ -1,6 +0,0 @@ -creating new versions -defaultAuthor - repository extension: #authorInformation - ifPresent: [:authorInformation | ^ authorInformation defaultAuthor] - ifAbsent: []. - ^ Utilities authorInitials \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/discardUnsavedChanges.st b/src/Squot.package/SquotWorkingCopy.class/instance/discardUnsavedChanges.st deleted file mode 100644 index 4248def3e..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/discardUnsavedChanges.st +++ /dev/null @@ -1,4 +0,0 @@ -loading and unloading -discardUnsavedChanges - repository withUnitOfWork: - [self loadVersion: self baseVersion interactive: false]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/flushPreviouslySavedArtifacts.st b/src/Squot.package/SquotWorkingCopy.class/instance/flushPreviouslySavedArtifacts.st deleted file mode 100644 index 9a2ef4a56..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/flushPreviouslySavedArtifacts.st +++ /dev/null @@ -1,3 +0,0 @@ -caching -flushPreviouslySavedArtifacts - self previouslySavedArtifacts removeAll. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/hasAdditionalParents.st b/src/Squot.package/SquotWorkingCopy.class/instance/hasAdditionalParents.st deleted file mode 100644 index 0313a2fd0..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/hasAdditionalParents.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasAdditionalParents - ^ additionalParents notNil and: [additionalParents notEmpty] \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/includesObject..st b/src/Squot.package/SquotWorkingCopy.class/instance/includesObject..st deleted file mode 100644 index 82a2b9c45..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/includesObject..st +++ /dev/null @@ -1,3 +0,0 @@ -testing stored objects -includesObject: anObject - ^ store includes: anObject \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/includesObjectAt..st b/src/Squot.package/SquotWorkingCopy.class/instance/includesObjectAt..st deleted file mode 100644 index 8b96db095..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/includesObjectAt..st +++ /dev/null @@ -1,3 +0,0 @@ -testing stored objects -includesObjectAt: path - ^ loadOrder includes: path \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/incomingPatchWhenLoading..st b/src/Squot.package/SquotWorkingCopy.class/instance/incomingPatchWhenLoading..st deleted file mode 100644 index fd2c69f21..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/incomingPatchWhenLoading..st +++ /dev/null @@ -1,3 +0,0 @@ -private -incomingPatchWhenLoading: aVersion - ^ aVersion patchRelativeToBase: self \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/inform..st b/src/Squot.package/SquotWorkingCopy.class/instance/inform..st deleted file mode 100644 index d1420024c..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/inform..st +++ /dev/null @@ -1,4 +0,0 @@ -user interface -inform: aString - "Make sure the dialog is run in the UI process." - SquotGUI inform: aString. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/initialize.st b/src/Squot.package/SquotWorkingCopy.class/instance/initialize.st deleted file mode 100644 index 0b6c0c06c..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/initialize.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -initialize - unloadedArtifacts := Dictionary new. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/initializeStoreInfo.forObject..st b/src/Squot.package/SquotWorkingCopy.class/instance/initializeStoreInfo.forObject..st deleted file mode 100644 index 48c2577e3..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/initializeStoreInfo.forObject..st +++ /dev/null @@ -1,5 +0,0 @@ -adding and removing -initializeStoreInfo: storeInfo forObject: anObject - | shadow | - shadow := store capture: anObject withMetadata: storeInfo. - ^ self initializeStoreInfo: storeInfo forObject: anObject shadow: shadow \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/initializeStoreInfo.forObject.shadow..st b/src/Squot.package/SquotWorkingCopy.class/instance/initializeStoreInfo.forObject.shadow..st deleted file mode 100644 index 87da03c7e..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/initializeStoreInfo.forObject.shadow..st +++ /dev/null @@ -1,6 +0,0 @@ -adding and removing -initializeStoreInfo: storeInfo forObject: anObject shadow: aShadow - store initializeStoreInfo: storeInfo forObject: anObject. - repository initializeStoreInfo: storeInfo forObject: aShadow. - (store supports: storeInfo forObject: anObject) - ifFalse: [self error: 'Incompatible store and repository.']. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/lazySnapshot.st b/src/Squot.package/SquotWorkingCopy.class/instance/lazySnapshot.st deleted file mode 100644 index c49f39c14..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/lazySnapshot.st +++ /dev/null @@ -1,7 +0,0 @@ -accessing objects -lazySnapshot - "Answer a new snapshot whose artifacts are captured on demand." - | builder | - builder := SquotSnapshot builder. - self loadOrder do: [:each | builder add: (self artifactAt: each)]. - ^ builder buildSnapshot \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/loadArtifact..st b/src/Squot.package/SquotWorkingCopy.class/instance/loadArtifact..st deleted file mode 100644 index fdc989c65..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/loadArtifact..st +++ /dev/null @@ -1,9 +0,0 @@ -loading and unloading -loadArtifact: anArtifact - "Load a single artifact, replacing the currently loaded one." - | patch | - patch := self newPatchBuilder - updateArtifactTo: anArtifact; - updateRightArtifacts; - buildPatch. - self applyPatch: patch \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/loadArtifactInteractively.ifCanceled..st b/src/Squot.package/SquotWorkingCopy.class/instance/loadArtifactInteractively.ifCanceled..st deleted file mode 100644 index b5f66d515..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/loadArtifactInteractively.ifCanceled..st +++ /dev/null @@ -1,10 +0,0 @@ -loading and unloading -loadArtifactInteractively: anArtifact ifCanceled: cancelBlock - "Load a single artifact, replacing the currently loaded one." - | patch | - self addGlobalObjectsToStore: (SquotSnapshot builder add: anArtifact; buildSnapshot). - patch := self newPatchBuilder - updateArtifactTo: anArtifact; - updateRightArtifacts; - buildPatch. - ^ self loadPatchInteractively: patch ifCanceled: [cancelBlock value] \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/loadOrder..st b/src/Squot.package/SquotWorkingCopy.class/instance/loadOrder..st deleted file mode 100644 index 57ec0e44b..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/loadOrder..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -loadOrder: aCollection - loadOrder := aCollection asOrderedCollection. - store loadOrder: (loadOrder intersection: store loadOrder). - self assertConsistentLoadOrder. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/loadOrder.st b/src/Squot.package/SquotWorkingCopy.class/instance/loadOrder.st deleted file mode 100644 index 4926e4857..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/loadOrder.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -loadOrder - ^ loadOrder ifNil: [loadOrder := store loadOrder asOrderedCollection] \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/loadPatchInteractively.ifCanceled..st b/src/Squot.package/SquotWorkingCopy.class/instance/loadPatchInteractively.ifCanceled..st deleted file mode 100644 index b4f33b4f1..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/loadPatchInteractively.ifCanceled..st +++ /dev/null @@ -1,10 +0,0 @@ -loading and unloading -loadPatchInteractively: aPatch ifCanceled: cancelBlock - "Let the user choose elements of the diff to load." - | effectivePatch | - effectivePatch := - (self selectFromPatch: aPatch - title: 'Selected changes to load' - ifCanceled: [^ cancelBlock value]). - self applyPatch: effectivePatch. - ^ effectivePatch \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/loadVersion.interactive..st b/src/Squot.package/SquotWorkingCopy.class/instance/loadVersion.interactive..st deleted file mode 100644 index 82dd6137e..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/loadVersion.interactive..st +++ /dev/null @@ -1,8 +0,0 @@ -loading and unloading -loadVersion: aVersion interactive: shouldBeInteractiveBoolean - "Let my store restore the snapshot of aVersion and update my historian to aVersion. - If there are unsaved changes in me and shouldBeInteractiveBoolean is true, - let the user confirm the operation." - shouldBeInteractiveBoolean ifTrue: [^ self loadVersionInteractively: aVersion ifCanceled: []]. - self privateLoadVersion: aVersion. - self loadedHistorian version: aVersion. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/loadVersionInteractively.ifCanceled..st b/src/Squot.package/SquotWorkingCopy.class/instance/loadVersionInteractively.ifCanceled..st deleted file mode 100644 index 5e32a2ef8..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/loadVersionInteractively.ifCanceled..st +++ /dev/null @@ -1,10 +0,0 @@ -loading and unloading -loadVersionInteractively: aVersion ifCanceled: cancelBlock - "Let the user choose artifact editions to load from aVersion. - Answer true if the load was accepted, false if it was canceled." - | patch | - self addGlobalObjectsToStore: aVersion lazySnapshot. - patch := self incomingPatchWhenLoading: aVersion. - self loadPatchInteractively: patch ifCanceled: [^ cancelBlock value]. - patch hasChanges ifTrue: - [self loadedVersion: aVersion]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/loadedHistorian..st b/src/Squot.package/SquotWorkingCopy.class/instance/loadedHistorian..st deleted file mode 100644 index 463995d80..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/loadedHistorian..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -loadedHistorian: anObject - - loadedHistorian := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/loadedHistorian.st b/src/Squot.package/SquotWorkingCopy.class/instance/loadedHistorian.st deleted file mode 100644 index 22588c030..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/loadedHistorian.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -loadedHistorian - - ^ loadedHistorian \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/loadedVersion..st b/src/Squot.package/SquotWorkingCopy.class/instance/loadedVersion..st deleted file mode 100644 index 9623e4cb0..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/loadedVersion..st +++ /dev/null @@ -1,5 +0,0 @@ -loading and unloading -loadedVersion: aVersion - "Remember this version as the one loaded into the image. All uncommitted changes are considered to be based on this version." - loadedVersion := aVersion. - self flushPreviouslySavedArtifacts. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/loadedVersion.st b/src/Squot.package/SquotWorkingCopy.class/instance/loadedVersion.st deleted file mode 100644 index 36cd0425e..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/loadedVersion.st +++ /dev/null @@ -1,6 +0,0 @@ -private accessing -loadedVersion - "The loaded version is the version that has evidently been loaded (or saved) - last in this working copy. This needs not be up-to-date with our loadedHistorian's version. - Thus, it is the inofficial (but more accurate) HEAD version of this working copy." - ^ loadedVersion \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/mergeArtifactInteractively.from.ifCanceled..st b/src/Squot.package/SquotWorkingCopy.class/instance/mergeArtifactInteractively.from.ifCanceled..st deleted file mode 100644 index 438b9caef..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/mergeArtifactInteractively.from.ifCanceled..st +++ /dev/null @@ -1,21 +0,0 @@ -loading and unloading -mergeArtifactInteractively: anArtifact from: aVersion ifCanceled: cancelBlock - "Merge a single artifact with the currently loaded one." - | mergeBases mergeBase base merge | - self temporarilySaveChangesDuring: - [mergeBases := self checkMergeBasesOf: self loadedVersion - with: aVersion - ifNoCommonAncestor: [{SquotSnapshot empty}] - ifAncestor: [^ self inform: 'The version already is an ancestor of the active branch tip.'] - ifDescendant: []. - self flag: 'TODO: if there are multiple merge-bases, resolve conflicts recursively below'. - mergeBase := mergeBases anyOne. - self addGlobalObjectsToStore: (SquotSnapshot builder add: anArtifact; buildSnapshot). - base := (mergeBase artifactAt: anArtifact path - ifPresent: [:baseArtifact | self newSnapshotBuilder add: baseArtifact; buildSnapshot] - ifAbsent: [self lazySnapshot]). - merge := SquotMerge - into: self - merge: (self newSnapshotBuilder add: anArtifact; buildSnapshot) - basedOn: base. - self mergeInteractively: merge ifCanceled: [^ cancelBlock value]]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/mergeInteractively.ifCanceled..st b/src/Squot.package/SquotWorkingCopy.class/instance/mergeInteractively.ifCanceled..st deleted file mode 100644 index 12f13bafc..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/mergeInteractively.ifCanceled..st +++ /dev/null @@ -1,9 +0,0 @@ -merging -mergeInteractively: aMerge ifCanceled: aBlock - | resolvedPatch | - self selectFromMerge: aMerge - title: 'Merge' - ifCancelled: [^ aBlock value]. - resolvedPatch := aMerge resolvedPatch. - self applyPatch: resolvedPatch. - ^ resolvedPatch \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/mergeSilently.basedOn.onConflictsDo..st b/src/Squot.package/SquotWorkingCopy.class/instance/mergeSilently.basedOn.onConflictsDo..st deleted file mode 100644 index fde9b5122..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/mergeSilently.basedOn.onConflictsDo..st +++ /dev/null @@ -1,9 +0,0 @@ -switching historians -mergeSilently: incomingObjectContainer basedOn: baseObjectContainer onConflictsDo: aBlock - | merge | - self withCurrentSnapshot: - [merge := SquotMerge into: self - merge: incomingObjectContainer - basedOn: baseObjectContainer. - merge hasConflicts ifTrue: [aBlock cull: merge]. - self applyPatch: merge resolvedPatch]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/mergeTemporaryVersionsOn..st b/src/Squot.package/SquotWorkingCopy.class/instance/mergeTemporaryVersionsOn..st deleted file mode 100644 index a84ef981c..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/mergeTemporaryVersionsOn..st +++ /dev/null @@ -1,7 +0,0 @@ -private switching historians -mergeTemporaryVersionsOn: aHistorian - | stashHistorian | - (self repository hasTemporaryVersionsOn: aHistorian) ifFalse: [^ self]. - SquotProgress displayStatus: 'Merging stashed changes of ', aHistorian shortName during: - [stashHistorian := self repository historianForTemporaryVersionsOn: aHistorian. - self cherryPickTemporaryVersion: stashHistorian version]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/mergeVersionInteractively.ifCanceled..st b/src/Squot.package/SquotWorkingCopy.class/instance/mergeVersionInteractively.ifCanceled..st deleted file mode 100644 index 5b44eb74c..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/mergeVersionInteractively.ifCanceled..st +++ /dev/null @@ -1,25 +0,0 @@ -loading and unloading -mergeVersionInteractively: aVersion ifCanceled: cancelBlock - "Let the user choose artifact editions to load from aVersion and add the version as parent version." - | mergeBases fastForwardPossible merge | - SquotToggles warnAboutUseOfDeprecatedMethods ifTrue: - [self deprecated: 'Use newMergeOperation instead.']. - fastForwardPossible := false. - mergeBases := self checkMergeBasesOfHeadVersionWith: aVersion - ifNoCommonAncestor: ["the versions have no common base version" - {SquotSnapshot empty}] - ifAncestor: - [self inform: 'Merge version already is an ancestor of the head of the active branch ', loadedHistorian name, '.'. - ^ cancelBlock value] - ifDescendant: [fastForwardPossible := true]. - self flag: 'TODO: if there are multiple merge-bases, resolve conflicts recursively below'. - self addGlobalObjectsToStore: aVersion. - merge := SquotMerge into: self - merge: aVersion - basedOn: mergeBases anyOne. - self mergeInteractively: merge ifCanceled: [^ cancelBlock value]. - fastForwardPossible - ifTrue: - [loadedHistorian version: aVersion. - self loadedVersion: aVersion] - ifFalse: [self addParentVersion: aVersion]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/mergeVersionWithLoadedObjects.ifCanceled..st b/src/Squot.package/SquotWorkingCopy.class/instance/mergeVersionWithLoadedObjects.ifCanceled..st deleted file mode 100644 index f63f583cd..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/mergeVersionWithLoadedObjects.ifCanceled..st +++ /dev/null @@ -1,19 +0,0 @@ -loading and unloading -mergeVersionWithLoadedObjects: aVersion ifCanceled: cancelBlock - "Merge objects with those from aVersion, but do not record the merge in history." - | mergeBases merge | - mergeBases := self checkMergeBasesOf: self loadedVersion - with: aVersion - ifNoCommonAncestor: ["the versions have no common base version" - {SquotSnapshot empty}] - ifAncestor: - [self inform: 'Your objects are descendants of this version already.'. - ^ cancelBlock value] - ifDescendant: ["fast forward"]. - self flag: 'TODO: if there are multiple merge-bases, resolve conflicts recursively below'. - self addGlobalObjectsToStore: aVersion. - merge := SquotMerge - into: self - merge: aVersion - basedOn: mergeBases anyOne. - self mergeInteractively: merge ifCanceled: [^ cancelBlock value]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/metadataForObjectAt..st b/src/Squot.package/SquotWorkingCopy.class/instance/metadataForObjectAt..st deleted file mode 100644 index 12a89ad8d..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/metadataForObjectAt..st +++ /dev/null @@ -1,6 +0,0 @@ -accessing objects -metadataForObjectAt: path - ^ (self unloadedArtifacts - at: path - ifAbsent: [^ store metadataForObjectAt: path]) - storeInfo \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/moveObjectAt.to..st b/src/Squot.package/SquotWorkingCopy.class/instance/moveObjectAt.to..st deleted file mode 100644 index 6125f3586..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/moveObjectAt.to..st +++ /dev/null @@ -1,10 +0,0 @@ -adding and removing -moveObjectAt: oldPath to: newPath - [store moveObjectAt: oldPath to: newPath] - on: KeyNotFound do: - [:e | | artifact | - artifact := self unloadedArtifacts at: oldPath. - self unloadedArtifacts - removeKey: oldPath; - at: newPath put: (artifact copy path: newPath; yourself)]. - loadOrder replaceAll: oldPath with: newPath. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/name..st b/src/Squot.package/SquotWorkingCopy.class/instance/name..st deleted file mode 100644 index e8cfe90d7..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/name..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name: aString - name := aString \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/name.st b/src/Squot.package/SquotWorkingCopy.class/instance/name.st deleted file mode 100644 index 22077c208..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ name \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/newCherryPickOperation.st b/src/Squot.package/SquotWorkingCopy.class/instance/newCherryPickOperation.st deleted file mode 100644 index cb5c57dbd..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/newCherryPickOperation.st +++ /dev/null @@ -1,5 +0,0 @@ -merging -newCherryPickOperation - ^ SquotCherryPickOperation new - workingCopy: self; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/newInteractiveCherryPickOperation.st b/src/Squot.package/SquotWorkingCopy.class/instance/newInteractiveCherryPickOperation.st deleted file mode 100644 index 056318a03..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/newInteractiveCherryPickOperation.st +++ /dev/null @@ -1,3 +0,0 @@ -merging -newInteractiveCherryPickOperation - ^ SquotInteractiveCherryPick newFrom: self newCherryPickOperation \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/newInteractiveMergeOperation.st b/src/Squot.package/SquotWorkingCopy.class/instance/newInteractiveMergeOperation.st deleted file mode 100644 index a6d64d97d..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/newInteractiveMergeOperation.st +++ /dev/null @@ -1,5 +0,0 @@ -merging -newInteractiveMergeOperation - ^ SquotInteractiveMerge new - workingCopy: self; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/newInteractiveRevertOperation.st b/src/Squot.package/SquotWorkingCopy.class/instance/newInteractiveRevertOperation.st deleted file mode 100644 index fad730113..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/newInteractiveRevertOperation.st +++ /dev/null @@ -1,3 +0,0 @@ -merging -newInteractiveRevertOperation - ^ SquotInteractiveRevert newFrom: self newRevertOperation \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/newInteractiveSaveOperation.st b/src/Squot.package/SquotWorkingCopy.class/instance/newInteractiveSaveOperation.st deleted file mode 100644 index f5e6ab834..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/newInteractiveSaveOperation.st +++ /dev/null @@ -1,3 +0,0 @@ -creating new versions -newInteractiveSaveOperation - ^ SquotInteractiveSave newFrom: self newSaveOperation \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/newMergeOperation.st b/src/Squot.package/SquotWorkingCopy.class/instance/newMergeOperation.st deleted file mode 100644 index ce8bbba89..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/newMergeOperation.st +++ /dev/null @@ -1,5 +0,0 @@ -merging -newMergeOperation - ^ SquotMergeOperation new - workingCopy: self; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/newRevertOperation.st b/src/Squot.package/SquotWorkingCopy.class/instance/newRevertOperation.st deleted file mode 100644 index 46bbd82bc..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/newRevertOperation.st +++ /dev/null @@ -1,5 +0,0 @@ -merging -newRevertOperation - ^ SquotRevertOperation new - workingCopy: self; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/newSaveOperation.st b/src/Squot.package/SquotWorkingCopy.class/instance/newSaveOperation.st deleted file mode 100644 index bec90588d..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/newSaveOperation.st +++ /dev/null @@ -1,10 +0,0 @@ -creating new versions -newSaveOperation - ^ SquotSaveOperation new - workingCopy: self; - historian: self loadedHistorian; - additionalParentVersions: self additionalParents; - message: self newVersionMessage; - shouldStoreMetadata: self shouldStoreMetadata; - workingCopySnapshot: self snapshot; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/newSnapshotBuilder.st b/src/Squot.package/SquotWorkingCopy.class/instance/newSnapshotBuilder.st deleted file mode 100644 index dd5cd6f6f..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/newSnapshotBuilder.st +++ /dev/null @@ -1,3 +0,0 @@ -patching -newSnapshotBuilder - ^ SquotSnapshot builder startingFrom: self \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/newVersionMessage..st b/src/Squot.package/SquotWorkingCopy.class/instance/newVersionMessage..st deleted file mode 100644 index 0c6d88aba..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/newVersionMessage..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -newVersionMessage: aString - newVersionMessage := aString. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/newVersionMessage.st b/src/Squot.package/SquotWorkingCopy.class/instance/newVersionMessage.st deleted file mode 100644 index f10ed8a2c..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/newVersionMessage.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -newVersionMessage - ^ newVersionMessage ifNil: [SquotInitialLogMessageRequested signal] \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/objectAt..st b/src/Squot.package/SquotWorkingCopy.class/instance/objectAt..st deleted file mode 100644 index 894dd5813..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/objectAt..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing objects -objectAt: path - ^ store objectAt: path \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/packageSerializer.st b/src/Squot.package/SquotWorkingCopy.class/instance/packageSerializer.st deleted file mode 100644 index f4df2f54b..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/packageSerializer.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-Packages -packageSerializer - "Answer the serializer used by the first encountered package." - ^ (self anyPackageOrNil ifNil: [^ nil]) storeInfo serializer \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/parentVersions.st b/src/Squot.package/SquotWorkingCopy.class/instance/parentVersions.st deleted file mode 100644 index 273d453e9..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/parentVersions.st +++ /dev/null @@ -1,8 +0,0 @@ -creating new versions -parentVersions - | mainParent | - mainParent := loadedHistorian version. - mainParent ifNil: [^ self additionalParents asArray]. - additionalParents ifNil: [^ Array with: mainParent]. - ^ {mainParent}, (additionalParents copyWithout: mainParent) - \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/patchRelativeToBase..st b/src/Squot.package/SquotWorkingCopy.class/instance/patchRelativeToBase..st deleted file mode 100644 index 96e28e1d7..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/patchRelativeToBase..st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -patchRelativeToBase: aVersion - ^ self currentSnapshot patchRelativeToBase: aVersion \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/previouslySavedArtifacts.st b/src/Squot.package/SquotWorkingCopy.class/instance/previouslySavedArtifacts.st deleted file mode 100644 index 240425489..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/previouslySavedArtifacts.st +++ /dev/null @@ -1,3 +0,0 @@ -caching -previouslySavedArtifacts - ^ previouslySavedArtifacts ifNil: [previouslySavedArtifacts := Dictionary new] \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/printOn..st b/src/Squot.package/SquotWorkingCopy.class/instance/printOn..st deleted file mode 100644 index 22aea8f7c..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/printOn..st +++ /dev/null @@ -1,3 +0,0 @@ -printing -printOn: aStream - aStream nextPutAll: (self name ifNil: '(Unnamed working copy)') \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/privateLoadVersion..st b/src/Squot.package/SquotWorkingCopy.class/instance/privateLoadVersion..st deleted file mode 100644 index a8ef55bf5..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/privateLoadVersion..st +++ /dev/null @@ -1,10 +0,0 @@ -private -privateLoadVersion: aVersion - "Restore the snapshot of aVersion. Do not update my historian or anything else." - | patch | - SquotProgress displayStatus: 'Loading ', (aVersion printStringLimitedTo: 100) during: - [self addGlobalObjectsToStore: aVersion. - patch := self incomingPatchWhenLoading: aVersion. - SquotProgress displayStatus: 'Loading objects' during: - [self applyPatch: patch]. - self loadedVersion: aVersion]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/register.st b/src/Squot.package/SquotWorkingCopy.class/instance/register.st deleted file mode 100644 index 40b3109df..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/register.st +++ /dev/null @@ -1,3 +0,0 @@ -working copy registry -register - self class register: self. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/registerPackagesInStore..st b/src/Squot.package/SquotWorkingCopy.class/instance/registerPackagesInStore..st deleted file mode 100644 index 22d2579e5..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/registerPackagesInStore..st +++ /dev/null @@ -1,19 +0,0 @@ -*Squot-Packages -registerPackagesInStore: aSnapshot - | packageArtifacts | - packageArtifacts := aSnapshot artifacts select: [:each | each isLoadable and: [each storeInfo objectClassName = #PackageInfo]]. - SquotProgress display: [:each | 'Searching for packages in ', each path] - for: packageArtifacts do: - [:each | | packageName storeInfo | - storeInfo := each storeInfo copy - at: #path put: each path; - yourself. - repository initializeStoreInfo: storeInfo forObject: each content. - self assert: (storeInfo at: #path) = each path - description: 'Paths in the snapshot must already be valid'. - packageName := each packageName. - (self includesObjectAt: each path) ifFalse: - [self - addLoadedPackageInfoNamed: packageName - at: each path - serializer: (Environment current valueOf: each storeInfo serializer)]]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/remove..st b/src/Squot.package/SquotWorkingCopy.class/instance/remove..st deleted file mode 100644 index d1a89a325..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/remove..st +++ /dev/null @@ -1,6 +0,0 @@ -adding and removing -remove: anObject - | paths | - paths := store pathsOf: anObject. - store remove: anObject. - loadOrder removeAll: paths. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/removeAt..st b/src/Squot.package/SquotWorkingCopy.class/instance/removeAt..st deleted file mode 100644 index 3b7964e63..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/removeAt..st +++ /dev/null @@ -1,5 +0,0 @@ -adding and removing -removeAt: path - store removeAt: path. - self unloadedArtifacts removeKey: path ifAbsent: []. - loadOrder remove: path ifAbsent: []. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/removePackageNamed..st b/src/Squot.package/SquotWorkingCopy.class/instance/removePackageNamed..st deleted file mode 100644 index 0d97c1d39..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/removePackageNamed..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Packages -removePackageNamed: packageName - ^ self remove: (PackageInfo named: packageName) \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/repository..st b/src/Squot.package/SquotWorkingCopy.class/instance/repository..st deleted file mode 100644 index f8aa265d2..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/repository..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -repository: anObject - - repository := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/repository.st b/src/Squot.package/SquotWorkingCopy.class/instance/repository.st deleted file mode 100644 index 6f5088a39..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/repository.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -repository - - ^ repository \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/resetAdditionalParents.st b/src/Squot.package/SquotWorkingCopy.class/instance/resetAdditionalParents.st deleted file mode 100644 index 0e48f61bd..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/resetAdditionalParents.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -resetAdditionalParents - additionalParents := nil. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/resetNewVersionMessage.st b/src/Squot.package/SquotWorkingCopy.class/instance/resetNewVersionMessage.st deleted file mode 100644 index c288311e6..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/resetNewVersionMessage.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -resetNewVersionMessage - newVersionMessage := nil. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/restoreCurrentAncestryAfter..st b/src/Squot.package/SquotWorkingCopy.class/instance/restoreCurrentAncestryAfter..st deleted file mode 100644 index da5091466..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/restoreCurrentAncestryAfter..st +++ /dev/null @@ -1,11 +0,0 @@ -private -restoreCurrentAncestryAfter: aBlock - | version headVersion preservedAdditionalParents | - version := self loadedVersion. - headVersion := self baseVersion. - preservedAdditionalParents := additionalParents. - aBlock ensure: - ["restore working copy state modified during the merge" - additionalParents := preservedAdditionalParents. - self loadedHistorian version: headVersion. - self loadedVersion: version]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/saveChanges.on.message..st b/src/Squot.package/SquotWorkingCopy.class/instance/saveChanges.on.message..st deleted file mode 100644 index 6f675eb3a..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/saveChanges.on.message..st +++ /dev/null @@ -1,11 +0,0 @@ -private switching historians -saveChanges: aPatch on: stashHistorian message: aString - "Create a new version on the given historian. - The given historian is modified to equal the loaded historian prior to saving the new version. - Do not use this if the given historian has unique versions that are relevant to you!" - | fromHistorian | - fromHistorian := self loadedHistorian. - stashHistorian version: fromHistorian version. - self loadedHistorian: stashHistorian. - [^ self saveVersionWithMessage: aString] - ensure: [self loadedHistorian: fromHistorian]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/saveVersionWithMessage..st b/src/Squot.package/SquotWorkingCopy.class/instance/saveVersionWithMessage..st deleted file mode 100644 index 11d10752f..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/saveVersionWithMessage..st +++ /dev/null @@ -1,6 +0,0 @@ -creating new versions -saveVersionWithMessage: aString - "Non-interactive save" - ^ self newSaveOperation - message: aString; - applyToWorkingCopy \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/selectFromMerge.title.ifCancelled..st b/src/Squot.package/SquotWorkingCopy.class/instance/selectFromMerge.title.ifCancelled..st deleted file mode 100644 index c82026c05..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/selectFromMerge.title.ifCancelled..st +++ /dev/null @@ -1,18 +0,0 @@ -merging -selectFromMerge: aMerge title: aString ifCancelled: aBlock - | mergeRequest tool | - mergeRequest := - SquotMergeRequested new - merge: aMerge; - title: aString; - signal; - yourself. - mergeRequest wasHandled ifTrue: [^ aMerge]. - tool := SquotMergeTool on: aMerge. - tool workingCopy: self; - "addIgnoredArtifacts: self ignoredArtifacts;" - controllerForIgnores: self; - requestSelectedChangesWithTitle: aString. - ^ tool accepted - ifTrue: [aMerge] - ifFalse: [aBlock value] \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/selectFromPatch.title.ifCanceled..st b/src/Squot.package/SquotWorkingCopy.class/instance/selectFromPatch.title.ifCanceled..st deleted file mode 100644 index 12668fee0..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/selectFromPatch.title.ifCanceled..st +++ /dev/null @@ -1,16 +0,0 @@ -private -selectFromPatch: aPatch title: titleString ifCanceled: cancelBlock - | tool | - (SquotSelectionOfChangesRequested new - patch: aPatch; - title: titleString; - signal) - ifNotNil: [:selectedPatch | ^ selectedPatch]. - tool := SquotChangesChooser on: aPatch. - tool workingCopy: self; - "addIgnoredArtifacts: self ignoredArtifacts;" - controllerForIgnores: self; - requestSelectedChangesWithTitle: titleString. - ^ tool accepted - ifTrue: [tool selectedPatch] - ifFalse: [cancelBlock value] \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/shouldStoreMetadata..st b/src/Squot.package/SquotWorkingCopy.class/instance/shouldStoreMetadata..st deleted file mode 100644 index 0ebd50db9..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/shouldStoreMetadata..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -shouldStoreMetadata: aBoolean - shouldStoreMetadata := aBoolean \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/shouldStoreMetadata.st b/src/Squot.package/SquotWorkingCopy.class/instance/shouldStoreMetadata.st deleted file mode 100644 index 22dbe305d..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/shouldStoreMetadata.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -shouldStoreMetadata - ^ shouldStoreMetadata ifNil: [true] \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/snapshot.st b/src/Squot.package/SquotWorkingCopy.class/instance/snapshot.st deleted file mode 100644 index 21a44ab7d..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/snapshot.st +++ /dev/null @@ -1,9 +0,0 @@ -creating new versions -snapshot - "Answer a snapshot where everything is already captured." - | builder | - builder := SquotSnapshot builder. - SquotProgress display: [:path | 'Snapshotting objects... ', path] - for: self loadOrder - do: [:each | builder add: (self artifactAt: each) snapshot]. - ^ builder buildSnapshot \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/store..st b/src/Squot.package/SquotWorkingCopy.class/instance/store..st deleted file mode 100644 index f5fb2867f..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/store..st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -store: anObject - - store := anObject. - loadOrder ifNil: [loadOrder := store loadOrder asOrderedCollection]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/store.st b/src/Squot.package/SquotWorkingCopy.class/instance/store.st deleted file mode 100644 index aed2ca5ea..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/store.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -store - - ^ store \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/switchAndMoveUnsavedChangesOverTo..st b/src/Squot.package/SquotWorkingCopy.class/instance/switchAndMoveUnsavedChangesOverTo..st deleted file mode 100644 index 01adb80d3..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/switchAndMoveUnsavedChangesOverTo..st +++ /dev/null @@ -1,37 +0,0 @@ -switching historians -switchAndMoveUnsavedChangesOverTo: aHistorian - | fromHistorian fromVersion temporarySnapshot | - fromHistorian := self loadedHistorian. - fromVersion := fromHistorian version ifNil: [SquotSnapshot empty]. - (fromHistorian version = aHistorian version - and: [(self repository hasTemporaryVersionsOn: aHistorian) not]) ifTrue: - ["nothing needs to be modified in the store" - self loadedHistorian: aHistorian. - ^ self]. - self withCurrentSnapshot: - [temporarySnapshot := self temporarilySaveChangesOn: fromHistorian]. - self withCurrentSnapshot: - ["The other branch may have packages that are already loaded (and changed)." - self addGlobalObjectsToStore: aHistorian version; - updateLoadOrderFromVersion: aHistorian version. - temporarySnapshot := temporarySnapshot createNewBuilder. - (self artifacts reject: [:each | temporarySnapshot includesObjectAt: each path]) - do: [:each | temporarySnapshot add: each snapshot]. - temporarySnapshot loadOrder: self loadOrder. - temporarySnapshot := temporarySnapshot buildSnapshot. - "Load other branch" - self loadedHistorian: aHistorian. - self privateLoadVersion: aHistorian version]. - self withCurrentSnapshot: [self mergeTemporaryVersionsOn: aHistorian]. - SquotProgress displayStatus: 'Restoring unsaved changes' during: - [self mergeSilently: temporarySnapshot basedOn: fromVersion - onConflictsDo: - [:merge | | accepted | - [accepted := true. - self selectFromMerge: merge - title: 'Merge conflicts with unsaved changes' - ifCancelled: - [self inform: 'Cannot abort this merge. But you could choose to exclude all changes to discard them.'. - accepted := false]] - doWhileFalse: [accepted]]]. - self repository clearTemporaryVersionsOn: fromHistorian. "changes have been moved over" \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/switchTo..st b/src/Squot.package/SquotWorkingCopy.class/instance/switchTo..st deleted file mode 100644 index fd4f7b78f..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/switchTo..st +++ /dev/null @@ -1,43 +0,0 @@ -switching historians -switchTo: aHistorian - | fromHistorian originVersion targetVersion temporarySnapshot addedObjects mergeReaddedObjects | - fromHistorian := self loadedHistorian. - originVersion := fromHistorian version. - originVersion ifNil: [originVersion := SquotSnapshot empty]. - targetVersion := aHistorian version. - self withCurrentSnapshot: [self temporarilySaveChangesOn: fromHistorian]. - SquotProgress displayStatus: 'Loading ', (targetVersion printStringLimitedTo: 100) during: - [self withCurrentSnapshot: - [| patch | - "The other branch may have packages that are already loaded (and changed)." - self addGlobalObjectsToStore: targetVersion; - updateLoadOrderFromVersion: targetVersion. - temporarySnapshot := targetVersion snapshot createNewBuilder. - addedObjects := self artifacts reject: [:each | originVersion includesObjectAt: each path]. - addedObjects do: [:each | temporarySnapshot add: each snapshot "overwrite"]. - temporarySnapshot := temporarySnapshot buildSnapshot. - "Load other branch. First without the added packages..." - self loadedHistorian: aHistorian. - patch := temporarySnapshot patchRelativeToBase: self lazySnapshot. - self assert: (patch diffs allSatisfy: [:each | addedObjects noneSatisfy: [:eachAdded | eachAdded path = each path]]). - self applyPatch: patch. - self loadedVersion: targetVersion]]. - addedObjects ifNotEmpty: - [SquotProgress displayStatus: 'Merging previously untracked objects' during: - [| workingCopyWithoutAddedObjects | - self withCurrentSnapshot: - [workingCopyWithoutAddedObjects := self newSnapshotBuilder. - addedObjects do: [:each | workingCopyWithoutAddedObjects removeAt: each path]. - mergeReaddedObjects := SquotMerge into: self merge: targetVersion basedOn: self. - mergeReaddedObjects hasChanges ifTrue: - [ | accepted | - [accepted := true. - self selectFromMerge: mergeReaddedObjects - title: 'Merge changes in previously untracked objects' - ifCancelled: - [self inform: 'Cannot abort this merge. But you could choose to exclude all changes to discard them.'. - accepted := false]. - accepted] whileFalse. - self applyPatch: mergeReaddedObjects resolvedPatch]]]]. - "Finally, also merge any changes stashed on the branch to which we switch." - self withCurrentSnapshot: [self mergeTemporaryVersionsOn: aHistorian]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/temporarilySaveChangesDuring..st b/src/Squot.package/SquotWorkingCopy.class/instance/temporarilySaveChangesDuring..st deleted file mode 100644 index c4f9ec054..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/temporarilySaveChangesDuring..st +++ /dev/null @@ -1,16 +0,0 @@ -loading and unloading -temporarilySaveChangesDuring: aBlock - "Create a temporary version that saves all unsaved changes on the lastLoadedHistorian, - perform aBlock and go back to the original historian without the temp version." - | previousLoadedVersion tempVersion | - previousLoadedVersion := self loadedVersion. - [self withCurrentSnapshot: - [tempVersion := SquotInMemoryVersion new - snapshot: self currentSnapshot; - parents: self parentVersions; - yourself. - self loadedVersion: tempVersion. - aBlock value]] - - ensure: - [self loadedVersion: previousLoadedVersion]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/temporarilySaveChangesOn..st b/src/Squot.package/SquotWorkingCopy.class/instance/temporarilySaveChangesOn..st deleted file mode 100644 index 5b7f1ceb0..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/temporarilySaveChangesOn..st +++ /dev/null @@ -1,15 +0,0 @@ -private switching historians -temporarilySaveChangesOn: aHistorian - "Saves currently unsaved changes on another historian for temporary versions on aHistorian. Answer the resulting snapshot." - | stashHistorian unsaved temporarySnapshot | - stashHistorian := self repository historianForTemporaryVersionsOn: aHistorian. - SquotProgress displayStatus: 'Computing unsaved changes' during: - [unsaved := self patchRelativeToBase: self baseSnapshot. - temporarySnapshot := self baseSnapshot createNewBuilder - applyPatch: unsaved; - buildSnapshot]. - "for added safety, also save a temporary version in the repository" - SquotProgress displayStatus: 'Saving yet-unsaved changes temporarily' during: - [self saveChanges: unsaved on: stashHistorian - message: 'Unsaved changes on ', aHistorian shortName]. - ^ temporarySnapshot \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/unload.st b/src/Squot.package/SquotWorkingCopy.class/instance/unload.st deleted file mode 100644 index da431e866..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/unload.st +++ /dev/null @@ -1,4 +0,0 @@ -loading and unloading -unload - "Unload all objects tracked by me." - self flag: #notYetImplemented. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/unloadedArtifacts.st b/src/Squot.package/SquotWorkingCopy.class/instance/unloadedArtifacts.st deleted file mode 100644 index 62dbe865d..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/unloadedArtifacts.st +++ /dev/null @@ -1,3 +0,0 @@ -private accessing -unloadedArtifacts - ^ unloadedArtifacts ifNil: [unloadedArtifacts := Dictionary new] \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/unregister.st b/src/Squot.package/SquotWorkingCopy.class/instance/unregister.st deleted file mode 100644 index 818e7828f..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/unregister.st +++ /dev/null @@ -1,3 +0,0 @@ -working copy registry -unregister - self class unregister: self \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/updateLoadOrderFromVersion..st b/src/Squot.package/SquotWorkingCopy.class/instance/updateLoadOrderFromVersion..st deleted file mode 100644 index 5a0e0fd9a..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/updateLoadOrderFromVersion..st +++ /dev/null @@ -1,12 +0,0 @@ -private -updateLoadOrderFromVersion: aVersion - "Update load order because some artifacts might move when stored in the repository. But do not remove added artifacts that were not saved yet, nor resurrect removed artifacts whose removal was not saved yet!" - | loadOrder | - loadOrder := self loadOrder. - self loadOrder: - ((SquotLoadOrderMerge - into: loadOrder - merge: (aVersion loadOrder intersection: loadOrder) - basedOn: (loadOrder intersection: aVersion loadOrder)) - resolvedPatch - applyTo: loadOrder). \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/withCurrentSnapshot..st b/src/Squot.package/SquotWorkingCopy.class/instance/withCurrentSnapshot..st deleted file mode 100644 index bcee7253a..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/withCurrentSnapshot..st +++ /dev/null @@ -1,9 +0,0 @@ -private -withCurrentSnapshot: aBlock - "Capture the current memory snapshot only once during aBlock" - | currentSnapshot | - currentSnapshot := nil. - SquotCurrentWorkingCopySnapshotBlock value ifNotNil: ["reentrant send" ^ aBlock value]. - SquotCurrentWorkingCopySnapshotBlock - value: [currentSnapshot ifNil: [currentSnapshot := self lazySnapshot]] - during: [aBlock value]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/instance/withCurrentSnapshot.do..st b/src/Squot.package/SquotWorkingCopy.class/instance/withCurrentSnapshot.do..st deleted file mode 100644 index 1cd91b95e..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/instance/withCurrentSnapshot.do..st +++ /dev/null @@ -1,6 +0,0 @@ -private -withCurrentSnapshot: aSnapshot do: aBlock - "Assume the current memory snapshot during aBlock" - ^ SquotCurrentWorkingCopySnapshotBlock - value: [aSnapshot] - during: aBlock \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopy.class/methodProperties.json b/src/Squot.package/SquotWorkingCopy.class/methodProperties.json deleted file mode 100644 index 0d63126fe..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/methodProperties.json +++ /dev/null @@ -1,120 +0,0 @@ -{ - "class" : { - "forTestInMemory" : "jr 12/22/2019 17:52", - "initialize" : "jr 5/24/2017 18:17", - "newOnObjectMemory" : "jr 4/9/2017 14:58", - "register:" : "fn 4/11/2017 11:35", - "registered" : "fn 4/11/2017 11:36", - "unregister:" : "jr 5/13/2017 14:46" }, - "instance" : { - "add:" : "jr 1/3/2021 22:24", - "add:at:" : "jr 5/27/2022 23:50", - "add:withStoreInfo:" : "jr 5/28/2022 00:41", - "addAsUnloadedFrom:thatAreNotIn:" : "jr 10/31/2020 16:09", - "addGlobalObjectsToStore:" : "jr 4/27/2017 13:15", - "addLoadedPackageInfoNamed:at:serializer:" : "jr 5/28/2022 00:08", - "addPackage:at:" : "jr 5/27/2022 23:58", - "addPackageNamed:at:" : "jr 5/27/2022 23:41", - "addParentVersion:" : "jr 11/17/2018 23:23", - "addUnloaded:" : "jr 1/3/2021 21:45", - "additionalParents" : "jr 4/28/2018 18:42", - "additionalParents:" : "TB 5/23/2017 17:57", - "anyPackageOrNil" : "jr 5/27/2022 22:59", - "appendToLoadOrder:" : "jr 10/4/2020 23:36", - "applyDiff:toObjectAt:" : "jr 12/29/2021 21:33", - "applyPatch:" : "jr 10/12/2020 23:05", - "artifactAt:" : "jr 10/4/2020 21:29", - "artifacts" : "jr 10/4/2020 21:13", - "artifactsInLoadOrder" : "jr 10/4/2020 23:36", - "asSquotVersionIn:" : "jr 2/8/2020 22:21", - "assertConsistentLoadOrder" : "jr 10/12/2020 23:14", - "baseSnapshot" : "jr 10/5/2020 22:02", - "baseVersion" : "jr 4/29/2018 13:20", - "browse" : "jr 8/14/2018 10:29", - "cacheSavedArtifacts:in:" : "jr 1/9/2021 18:03", - "checkMergeBasesOf:with:ifNoCommonAncestor:ifAncestor:ifDescendant:" : "jr 4/29/2018 12:06", - "checkMergeBasesOfHeadVersionWith:ifNoCommonAncestor:ifAncestor:ifDescendant:" : "jr 4/29/2018 12:08", - "cherryPickTemporaryVersion:" : "jr 8/29/2019 20:14", - "confirm:" : "jr 7/24/2020 11:34", - "convertToCurrentVersion:refStream:" : "jr 10/4/2020 22:10", - "currentSnapshot" : "jr 9/19/2019 06:04", - "defaultAuthor" : "jr 2/20/2017 11:36", - "discardUnsavedChanges" : "jr 3/2/2020 22:51", - "flushPreviouslySavedArtifacts" : "jr 5/31/2017 17:41", - "hasAdditionalParents" : "jr 12/20/2021 14:14", - "includesObject:" : "jr 6/30/2017 22:20", - "includesObjectAt:" : "jr 10/4/2020 21:48", - "incomingPatchWhenLoading:" : "jr 11/7/2020 00:04", - "inform:" : "jr 7/24/2020 11:34", - "initialize" : "jr 9/26/2020 17:05", - "initializeStoreInfo:forObject:" : "jr 5/28/2022 12:04", - "initializeStoreInfo:forObject:shadow:" : "jr 5/28/2022 12:04", - "lazySnapshot" : "jr 11/20/2020 23:02", - "loadArtifact:" : "jr 7/17/2021 20:43", - "loadArtifactInteractively:ifCanceled:" : "jr 7/17/2021 20:34", - "loadOrder" : "jr 10/4/2020 22:10", - "loadOrder:" : "jr 10/19/2020 00:00", - "loadPatchInteractively:ifCanceled:" : "jr 10/4/2020 21:07", - "loadVersion:interactive:" : "jr 4/28/2018 19:09", - "loadVersionInteractively:ifCanceled:" : "jr 11/5/2020 17:59", - "loadedHistorian" : "jr 1/26/2017 14:48", - "loadedHistorian:" : "jr 1/26/2017 14:48", - "loadedVersion" : "jr 5/29/2019 23:30", - "loadedVersion:" : "jr 5/29/2019 23:39", - "mergeArtifactInteractively:from:ifCanceled:" : "jr 2/8/2020 11:40", - "mergeInteractively:ifCanceled:" : "jr 10/4/2020 23:00", - "mergeSilently:basedOn:onConflictsDo:" : "jr 10/4/2020 23:00", - "mergeTemporaryVersionsOn:" : "jr 1/22/2022 13:57", - "mergeVersionInteractively:ifCanceled:" : "jr 9/21/2020 23:12", - "mergeVersionWithLoadedObjects:ifCanceled:" : "jr 2/8/2020 11:40", - "metadataForObjectAt:" : "jr 9/26/2020 16:48", - "moveObjectAt:to:" : "jr 10/4/2020 23:37", - "name" : "jr 4/9/2017 14:20", - "name:" : "jr 4/9/2017 14:20", - "newCherryPickOperation" : "jr 1/4/2020 19:14", - "newInteractiveCherryPickOperation" : "jr 1/26/2020 21:42", - "newInteractiveMergeOperation" : "jr 1/26/2020 23:13", - "newInteractiveRevertOperation" : "jr 1/22/2022 21:32", - "newInteractiveSaveOperation" : "jr 1/19/2020 02:45", - "newMergeOperation" : "jr 1/5/2020 00:28", - "newRevertOperation" : "jr 1/22/2022 21:32", - "newSaveOperation" : "jr 11/22/2020 17:37", - "newSnapshotBuilder" : "jr 9/23/2018 18:45", - "newVersionMessage" : "jr 5/22/2020 16:01", - "newVersionMessage:" : "jr 10/13/2018 23:39", - "objectAt:" : "jr 5/13/2017 18:27", - "packageSerializer" : "jr 5/27/2022 23:39", - "parentVersions" : "jr 4/28/2018 18:41", - "patchRelativeToBase:" : "jr 7/22/2017 20:02", - "previouslySavedArtifacts" : "jr 5/31/2017 17:41", - "printOn:" : "jr 4/15/2017 14:18", - "privateLoadVersion:" : "jr 3/13/2022 12:09", - "register" : "jr 4/9/2017 14:15", - "registerPackagesInStore:" : "jr 5/28/2022 00:35", - "remove:" : "jr 10/4/2020 23:37", - "removeAt:" : "jr 10/4/2020 23:37", - "removePackageNamed:" : "jr 5/6/2018 18:46", - "repository" : "jr 1/26/2017 14:48", - "repository:" : "TB 5/23/2017 17:40", - "resetAdditionalParents" : "jr 4/28/2018 18:42", - "resetNewVersionMessage" : "jr 10/13/2018 23:41", - "restoreCurrentAncestryAfter:" : "jr 6/27/2020 10:31", - "saveChanges:on:message:" : "jr 1/26/2020 23:01", - "saveVersionWithMessage:" : "jr 8/8/2020 16:16", - "selectFromMerge:title:ifCancelled:" : "jr 11/3/2019 12:01", - "selectFromPatch:title:ifCanceled:" : "jr 9/25/2020 19:12", - "shouldStoreMetadata" : "jr 3/7/2017 17:33", - "shouldStoreMetadata:" : "jr 3/7/2017 17:33", - "snapshot" : "jr 11/22/2020 17:55", - "store" : "jr 1/26/2017 14:48", - "store:" : "jr 10/5/2020 00:00", - "switchAndMoveUnsavedChangesOverTo:" : "jr 11/27/2022 18:54", - "switchTo:" : "jr 11/27/2022 18:45", - "temporarilySaveChangesDuring:" : "jr 5/30/2019 00:24", - "temporarilySaveChangesOn:" : "jr 9/13/2020 22:00", - "unload" : "jr 1/26/2017 17:38", - "unloadedArtifacts" : "jr 9/26/2020 16:40", - "unregister" : "fn 4/11/2017 11:57", - "updateLoadOrderFromVersion:" : "jr 10/31/2020 16:10", - "withCurrentSnapshot:" : "jr 9/19/2019 06:06", - "withCurrentSnapshot:do:" : "jr 1/5/2020 01:31" } } diff --git a/src/Squot.package/SquotWorkingCopy.class/properties.json b/src/Squot.package/SquotWorkingCopy.class/properties.json deleted file mode 100644 index ab7f81c38..000000000 --- a/src/Squot.package/SquotWorkingCopy.class/properties.json +++ /dev/null @@ -1,28 +0,0 @@ -{ - "category" : "Squot-Core", - "classinstvars" : [ - "registry" ], - "classtraitcomposition" : "TSquotMutableObjectContainer classTrait + TSquotConvertibleToVersion classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 6/22/2018 22:42", - "instvars" : [ - "name", - "store", - "repository", - "loadedHistorian", - "previousVersionId", - "previousSnapshot", - "previouslySavedArtifacts", - "shouldStoreMetadata", - "additionalParents", - "loadedVersion", - "newVersionMessage", - "unloadedArtifacts", - "loadOrder" ], - "name" : "SquotWorkingCopy", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "TSquotMutableObjectContainer + TSquotConvertibleToVersion", - "type" : "normal" } diff --git a/src/Squot.package/SquotWorkingCopyArtifact.class/README.md b/src/Squot.package/SquotWorkingCopyArtifact.class/README.md deleted file mode 100644 index 4f796ea8f..000000000 --- a/src/Squot.package/SquotWorkingCopyArtifact.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I wrap a SquotArtifact that belongs to my SquotWorkingCopy. Loaded objects actually live in the working copy's store (e. g. SquotImageStore), but as an object container, the working copy itself can as well be asked for artifacts. I allow to set how the objects will get serialized when stored to a file system store. This is used to switch packages between Cypress and Tonel formats, for example. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyArtifact.class/class/wrapping.in..st b/src/Squot.package/SquotWorkingCopyArtifact.class/class/wrapping.in..st deleted file mode 100644 index 9bc279e0c..000000000 --- a/src/Squot.package/SquotWorkingCopyArtifact.class/class/wrapping.in..st +++ /dev/null @@ -1,6 +0,0 @@ -instance creation -wrapping: anArtifact in: aWorkingCopy - ^ self new - setArtifact: anArtifact - workingCopy: aWorkingCopy; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/^equals.st b/src/Squot.package/SquotWorkingCopyArtifact.class/instance/^equals.st deleted file mode 100644 index c25102c63..000000000 --- a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/^equals.st +++ /dev/null @@ -1,4 +0,0 @@ -comparing -= anObject - anObject == self ifTrue: [^ true]. - ^ (anObject respondsTo: #workingCopy) and: [workingCopy = anObject workingCopy and: [artifact = anObject artifact]] \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/applyLoadStatusTo..st b/src/Squot.package/SquotWorkingCopyArtifact.class/instance/applyLoadStatusTo..st deleted file mode 100644 index 2ccec5a95..000000000 --- a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/applyLoadStatusTo..st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -applyLoadStatusTo: anArtifactDiff - self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/artifact..st b/src/Squot.package/SquotWorkingCopyArtifact.class/instance/artifact..st deleted file mode 100644 index fecd79cd9..000000000 --- a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/artifact..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -artifact: anObject - artifact := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/artifact.st b/src/Squot.package/SquotWorkingCopyArtifact.class/instance/artifact.st deleted file mode 100644 index 3efda9f8c..000000000 --- a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/artifact.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -artifact - ^ artifact \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/browse.st b/src/Squot.package/SquotWorkingCopyArtifact.class/instance/browse.st deleted file mode 100644 index 3f8920fec..000000000 --- a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/browse.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -browse - ^ artifact browse \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/capture.st b/src/Squot.package/SquotWorkingCopyArtifact.class/instance/capture.st deleted file mode 100644 index c9af875a8..000000000 --- a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/capture.st +++ /dev/null @@ -1,4 +0,0 @@ -converting -capture - "Answer a snapshot of the artifact." - ^ artifact capture \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/diffAgainst..st b/src/Squot.package/SquotWorkingCopyArtifact.class/instance/diffAgainst..st deleted file mode 100644 index a48ad535c..000000000 --- a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/diffAgainst..st +++ /dev/null @@ -1,6 +0,0 @@ -comparing -diffAgainst: anArtifact - | diff | - diff := artifact diffAgainst: anArtifact. - self applyLoadStatusTo: diff. - ^ diff \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/doesNotUnderstand..st b/src/Squot.package/SquotWorkingCopyArtifact.class/instance/doesNotUnderstand..st deleted file mode 100644 index cf214c751..000000000 --- a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/doesNotUnderstand..st +++ /dev/null @@ -1,10 +0,0 @@ -delegating -doesNotUnderstand: aMessage - "Forward other messages to the artifact." - | answer | - ^ (thisContext - object: (answer := aMessage sendTo: artifact) - eqeq: artifact) - - ifTrue: [self] - ifFalse: [answer] \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/hash.st b/src/Squot.package/SquotWorkingCopyArtifact.class/instance/hash.st deleted file mode 100644 index 31a2c85c9..000000000 --- a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/hash.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -hash - ^ workingCopy hash hashMultiply bitXor: artifact hash \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/isLoaded.st b/src/Squot.package/SquotWorkingCopyArtifact.class/instance/isLoaded.st deleted file mode 100644 index 7671b5f95..000000000 --- a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/isLoaded.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isLoaded - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/mergeDiffWith.basedOn..st b/src/Squot.package/SquotWorkingCopyArtifact.class/instance/mergeDiffWith.basedOn..st deleted file mode 100644 index 2af720c78..000000000 --- a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/mergeDiffWith.basedOn..st +++ /dev/null @@ -1,5 +0,0 @@ -merging -mergeDiffWith: otherArtifact basedOn: baseArtifact - "New name suggestions: - mergeWith: otherArtifact basedOn: baseArtifact" - ^ self mergeWith: otherArtifact basedOn: baseArtifact \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/mergeWith.basedOn..st b/src/Squot.package/SquotWorkingCopyArtifact.class/instance/mergeWith.basedOn..st deleted file mode 100644 index d0107e2ee..000000000 --- a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/mergeWith.basedOn..st +++ /dev/null @@ -1,6 +0,0 @@ -merging -mergeWith: incomingArtifact basedOn: baseArtifact - | merge | - merge := artifact mergeWith: incomingArtifact basedOn: baseArtifact. - merge working: self. - ^ merge \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/mergeWithoutBaseWith..st b/src/Squot.package/SquotWorkingCopyArtifact.class/instance/mergeWithoutBaseWith..st deleted file mode 100644 index 9db47af60..000000000 --- a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/mergeWithoutBaseWith..st +++ /dev/null @@ -1,6 +0,0 @@ -merging -mergeWithoutBaseWith: anArtifact - | merge | - merge := artifact mergeWithoutBaseWith: anArtifact. - self applyLoadStatusTo: merge. - ^ merge \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/serializer..st b/src/Squot.package/SquotWorkingCopyArtifact.class/instance/serializer..st deleted file mode 100644 index d1af22bbb..000000000 --- a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/serializer..st +++ /dev/null @@ -1,7 +0,0 @@ -accessing metadata -serializer: aSerializerFactory - "Set the serializer in the metadata and update the path of the artifact if necessary." - | oldPath | - oldPath := artifact path. - artifact serializer: aSerializerFactory. - self updatePath. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/setArtifact.workingCopy..st b/src/Squot.package/SquotWorkingCopyArtifact.class/instance/setArtifact.workingCopy..st deleted file mode 100644 index cfcc68745..000000000 --- a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/setArtifact.workingCopy..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -setArtifact: anArtifact workingCopy: aWorkingCopy - artifact := anArtifact. - workingCopy := aWorkingCopy. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/snapshot.st b/src/Squot.package/SquotWorkingCopyArtifact.class/instance/snapshot.st deleted file mode 100644 index 1ae7f398c..000000000 --- a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/snapshot.st +++ /dev/null @@ -1,4 +0,0 @@ -converting -snapshot - "Answer a snapshot of the artifact." - ^ artifact snapshot \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/updatePath.st b/src/Squot.package/SquotWorkingCopyArtifact.class/instance/updatePath.st deleted file mode 100644 index b29a34f8a..000000000 --- a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/updatePath.st +++ /dev/null @@ -1,4 +0,0 @@ -private -updatePath - "Check whether the path of this artifact is still valid, and move it to a new, valid path if it is not." - self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/workingCopy..st b/src/Squot.package/SquotWorkingCopyArtifact.class/instance/workingCopy..st deleted file mode 100644 index edbc52b75..000000000 --- a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/workingCopy..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -workingCopy: anObject - workingCopy := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/workingCopy.st b/src/Squot.package/SquotWorkingCopyArtifact.class/instance/workingCopy.st deleted file mode 100644 index 685b55241..000000000 --- a/src/Squot.package/SquotWorkingCopyArtifact.class/instance/workingCopy.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -workingCopy - ^ workingCopy \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyArtifact.class/methodProperties.json b/src/Squot.package/SquotWorkingCopyArtifact.class/methodProperties.json deleted file mode 100644 index 82f790057..000000000 --- a/src/Squot.package/SquotWorkingCopyArtifact.class/methodProperties.json +++ /dev/null @@ -1,23 +0,0 @@ -{ - "class" : { - "wrapping:in:" : "jr 9/26/2020 18:09" }, - "instance" : { - "=" : "jr 11/21/2020 01:16", - "applyLoadStatusTo:" : "jr 11/4/2020 12:16", - "artifact" : "jr 11/6/2020 23:14", - "artifact:" : "jr 11/6/2020 23:14", - "browse" : "jr 9/26/2020 18:04", - "capture" : "jr 11/20/2020 22:44", - "diffAgainst:" : "jr 11/4/2020 12:16", - "doesNotUnderstand:" : "jr 9/26/2020 18:04", - "hash" : "jr 11/6/2020 23:13", - "isLoaded" : "jr 9/26/2020 21:01", - "mergeDiffWith:basedOn:" : "jr 7/17/2021 22:12", - "mergeWith:basedOn:" : "jr 7/17/2021 22:16", - "mergeWithoutBaseWith:" : "jr 11/22/2020 22:34", - "serializer:" : "jr 9/26/2020 18:29", - "setArtifact:workingCopy:" : "jr 9/26/2020 18:09", - "snapshot" : "jr 11/22/2020 15:57", - "updatePath" : "jr 5/28/2022 00:56", - "workingCopy" : "jr 12/7/2019 22:00", - "workingCopy:" : "jr 12/7/2019 22:00" } } diff --git a/src/Squot.package/SquotWorkingCopyArtifact.class/properties.json b/src/Squot.package/SquotWorkingCopyArtifact.class/properties.json deleted file mode 100644 index 8a429c1ab..000000000 --- a/src/Squot.package/SquotWorkingCopyArtifact.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-WorkingCopies", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 9/26/2020 18:08", - "instvars" : [ - "workingCopy", - "artifact" ], - "name" : "SquotWorkingCopyArtifact", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotWorkingCopyBrowser.class/README.md b/src/Squot.package/SquotWorkingCopyBrowser.class/README.md deleted file mode 100644 index c9001c35f..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowser.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I display the artifacts in a working copy and allow to change their load order. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyBrowser.class/class/newOn..st b/src/Squot.package/SquotWorkingCopyBrowser.class/class/newOn..st deleted file mode 100644 index e805884c1..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowser.class/class/newOn..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -newOn: aWorkingCopy - ^ self new - workingCopy: aWorkingCopy; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/artifactsList.st b/src/Squot.package/SquotWorkingCopyBrowser.class/instance/artifactsList.st deleted file mode 100644 index ebc8cd86d..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/artifactsList.st +++ /dev/null @@ -1,3 +0,0 @@ -toolbuilder -artifactsList - ^ workingCopy artifactsInLoadOrder \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/buildWith..st b/src/Squot.package/SquotWorkingCopyBrowser.class/instance/buildWith..st deleted file mode 100644 index cc454bf31..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/buildWith..st +++ /dev/null @@ -1,34 +0,0 @@ -toolbuilder -buildWith: toolBuilder - ^ toolBuilder build: (toolBuilder pluggableWindowSpec new - model: self; - label: #labelString; - children: { - toolBuilder pluggableListSpec new - name: #objectList; - model: self; - list: #objectLabels; - getIndex: #selectedObjectIndex; - setIndex: #selectedObjectIndex:; - dragItem: #dragFromObjectList:; - dropItem: #dropOnObjectList:at:; - dropAccept: #wantsDropOnObjectList:dragTransferType:source:; - frame: (LayoutFrame fractions: (0@0 corner: 1@1) offsets: (0@0 corner: 0@(self buttonHeight negated))); - yourself. - toolBuilder pluggablePanelSpec new - layout: #horizontal; - frame: (LayoutFrame fractions: (0@1 corner: 1@1) offsets: (0@self buttonHeight negated corner: 0@0)); - children: - {toolBuilder pluggableButtonSpec new - name: #moveUpInLoadOrder; - model: self; - label: 'Move up'; - action: #moveUpInLoadOrder; - yourself. - toolBuilder pluggableButtonSpec new - name: #moveDownInLoadOrder; - model: self; - label: 'Move down'; - action: #moveDownInLoadOrder; - yourself.}; - yourself.}) \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/buttonHeight.st b/src/Squot.package/SquotWorkingCopyBrowser.class/instance/buttonHeight.st deleted file mode 100644 index 34c2656ca..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/buttonHeight.st +++ /dev/null @@ -1,3 +0,0 @@ -toolbuilder -buttonHeight - ^ SquotGUI buttonBarHeight \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/dragFromObjectList..st b/src/Squot.package/SquotWorkingCopyBrowser.class/instance/dragFromObjectList..st deleted file mode 100644 index b7b435494..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/dragFromObjectList..st +++ /dev/null @@ -1,3 +0,0 @@ -toolbuilder -dragFromObjectList: anInteger - ^ self artifactsList at: anInteger \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/dropOnObjectList.at..st b/src/Squot.package/SquotWorkingCopyBrowser.class/instance/dropOnObjectList.at..st deleted file mode 100644 index 8aa7b23d4..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/dropOnObjectList.at..st +++ /dev/null @@ -1,7 +0,0 @@ -toolbuilder -dropOnObjectList: anArtifact at: anInteger - anInteger = 0 ifTrue: [self inform: 'Index 0'. ^ self]. - self editLoadOrder: [:loadOrder | - loadOrder - remove: anArtifact path ifAbsent: []; - add: anArtifact path beforeIndex: anInteger]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/editLoadOrder..st b/src/Squot.package/SquotWorkingCopyBrowser.class/instance/editLoadOrder..st deleted file mode 100644 index 686b6e9c5..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/editLoadOrder..st +++ /dev/null @@ -1,7 +0,0 @@ -actions -editLoadOrder: aBlock - | loadOrder | - loadOrder := workingCopy loadOrder asOrderedCollection. - aBlock value: loadOrder. - workingCopy loadOrder: loadOrder. - self changed: #objectLabels. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/isFirstArtifactSelected.st b/src/Squot.package/SquotWorkingCopyBrowser.class/instance/isFirstArtifactSelected.st deleted file mode 100644 index 8e7784487..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/isFirstArtifactSelected.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isFirstArtifactSelected - ^ selectedObjectIndex = 1 \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/isLastArtifactSelected.st b/src/Squot.package/SquotWorkingCopyBrowser.class/instance/isLastArtifactSelected.st deleted file mode 100644 index 243d601b9..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/isLastArtifactSelected.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isLastArtifactSelected - ^ selectedObjectIndex = self artifactsList size \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/labelString.st b/src/Squot.package/SquotWorkingCopyBrowser.class/instance/labelString.st deleted file mode 100644 index 09db7b0ef..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/labelString.st +++ /dev/null @@ -1,3 +0,0 @@ -toolbuilder -labelString - ^ 'Working copy of ', workingCopy name \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/moveDownInLoadOrder.st b/src/Squot.package/SquotWorkingCopyBrowser.class/instance/moveDownInLoadOrder.st deleted file mode 100644 index 5686d86b9..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/moveDownInLoadOrder.st +++ /dev/null @@ -1,6 +0,0 @@ -actions -moveDownInLoadOrder - self isLastArtifactSelected ifTrue: [^ self]. - self editLoadOrder: [:loadOrder | - loadOrder swap: selectedObjectIndex with: selectedObjectIndex + 1. - selectedObjectIndex := selectedObjectIndex + 1]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/moveUpInLoadOrder.st b/src/Squot.package/SquotWorkingCopyBrowser.class/instance/moveUpInLoadOrder.st deleted file mode 100644 index 5d663ced8..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/moveUpInLoadOrder.st +++ /dev/null @@ -1,6 +0,0 @@ -actions -moveUpInLoadOrder - self isFirstArtifactSelected ifTrue: [^ self]. - self editLoadOrder: [:loadOrder | - loadOrder swap: selectedObjectIndex with: selectedObjectIndex - 1. - selectedObjectIndex := selectedObjectIndex - 1]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/objectLabels.st b/src/Squot.package/SquotWorkingCopyBrowser.class/instance/objectLabels.st deleted file mode 100644 index fb664e605..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/objectLabels.st +++ /dev/null @@ -1,3 +0,0 @@ -toolbuilder -objectLabels - ^ self artifactsList collect: [:each | each path] \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/selectedObject.st b/src/Squot.package/SquotWorkingCopyBrowser.class/instance/selectedObject.st deleted file mode 100644 index c44bd0896..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/selectedObject.st +++ /dev/null @@ -1,4 +0,0 @@ -toolbuilder -selectedObject - selectedObjectIndex > 0 ifFalse: [^ nil]. - ^ self artifactsList at: selectedObjectIndex \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/selectedObjectIndex..st b/src/Squot.package/SquotWorkingCopyBrowser.class/instance/selectedObjectIndex..st deleted file mode 100644 index 9f729ad44..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/selectedObjectIndex..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -selectedObjectIndex: anObject - - selectedObjectIndex := anObject. - self changed: #selectedObjectIndex. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/selectedObjectIndex.st b/src/Squot.package/SquotWorkingCopyBrowser.class/instance/selectedObjectIndex.st deleted file mode 100644 index 70378dca3..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/selectedObjectIndex.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -selectedObjectIndex - - ^ selectedObjectIndex ifNil: [0] \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/wantsDropOnObjectList.dragTransferType.source..st b/src/Squot.package/SquotWorkingCopyBrowser.class/instance/wantsDropOnObjectList.dragTransferType.source..st deleted file mode 100644 index 6b59a935e..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/wantsDropOnObjectList.dragTransferType.source..st +++ /dev/null @@ -1,3 +0,0 @@ -toolbuilder -wantsDropOnObjectList: aSquotLiveArtifact dragTransferType: anUndefinedObject source: aPluggableListMorphPlus - ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/workingCopy..st b/src/Squot.package/SquotWorkingCopyBrowser.class/instance/workingCopy..st deleted file mode 100644 index 240017aef..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/workingCopy..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -workingCopy: anObject - - workingCopy := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/workingCopy.st b/src/Squot.package/SquotWorkingCopyBrowser.class/instance/workingCopy.st deleted file mode 100644 index 725b545b8..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowser.class/instance/workingCopy.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -workingCopy - - ^ workingCopy \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyBrowser.class/methodProperties.json b/src/Squot.package/SquotWorkingCopyBrowser.class/methodProperties.json deleted file mode 100644 index 4f2652a67..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowser.class/methodProperties.json +++ /dev/null @@ -1,22 +0,0 @@ -{ - "class" : { - "newOn:" : "jr 8/14/2018 10:29" }, - "instance" : { - "artifactsList" : "jr 10/3/2018 01:27", - "buildWith:" : "jr 2/17/2022 23:43", - "buttonHeight" : "jr 2/20/2022 11:31", - "dragFromObjectList:" : "jr 8/14/2018 10:53", - "dropOnObjectList:at:" : "jr 10/17/2018 10:40", - "editLoadOrder:" : "jr 10/3/2018 01:31", - "isFirstArtifactSelected" : "jr 10/3/2018 01:26", - "isLastArtifactSelected" : "jr 10/3/2018 01:26", - "labelString" : "jr 8/14/2018 10:32", - "moveDownInLoadOrder" : "jr 10/3/2018 01:33", - "moveUpInLoadOrder" : "jr 10/3/2018 01:33", - "objectLabels" : "jr 8/14/2018 10:53", - "selectedObject" : "jr 8/14/2018 10:54", - "selectedObjectIndex" : "jr 8/14/2018 10:30", - "selectedObjectIndex:" : "jr 8/14/2018 10:24", - "wantsDropOnObjectList:dragTransferType:source:" : "jr 8/14/2018 11:20", - "workingCopy" : "jr 8/14/2018 10:24", - "workingCopy:" : "jr 8/14/2018 10:24" } } diff --git a/src/Squot.package/SquotWorkingCopyBrowser.class/properties.json b/src/Squot.package/SquotWorkingCopyBrowser.class/properties.json deleted file mode 100644 index b097214ef..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowser.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Tools", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 8/9/2020 21:06", - "instvars" : [ - "workingCopy", - "selectedObjectIndex", - "objectList" ], - "name" : "SquotWorkingCopyBrowser", - "pools" : [ - ], - "super" : "Model", - "type" : "normal" } diff --git a/src/Squot.package/SquotWorkingCopyBrowserTest.class/README.md b/src/Squot.package/SquotWorkingCopyBrowserTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotWorkingCopyBrowserTest.class/instance/setUp.st b/src/Squot.package/SquotWorkingCopyBrowserTest.class/instance/setUp.st deleted file mode 100644 index 482cb4761..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowserTest.class/instance/setUp.st +++ /dev/null @@ -1,4 +0,0 @@ -running -setUp - workingCopy := SquotWorkingCopy forTestInMemory. - browser := SquotWorkingCopyBrowser newOn: workingCopy. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyBrowserTest.class/instance/testCannotMoveDownLastObjectInLoadOrder.st b/src/Squot.package/SquotWorkingCopyBrowserTest.class/instance/testCannotMoveDownLastObjectInLoadOrder.st deleted file mode 100644 index 649654242..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowserTest.class/instance/testCannotMoveDownLastObjectInLoadOrder.st +++ /dev/null @@ -1,13 +0,0 @@ -tests -testCannotMoveDownLastObjectInLoadOrder - "given" - workingCopy - add: Object new at: '1'; - add: Object new at: '2'. - self assert: #('1' '2') equals: workingCopy loadOrder asArray. - browser selectedObjectIndex: 2. - "when" - browser moveDownInLoadOrder. - "then" - self assert: #('1' '2') equals: workingCopy loadOrder asArray; - assert: #('1' '2') equals: browser objectLabels asArray. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyBrowserTest.class/instance/testCannotMoveUpFirstObjectInLoadOrder.st b/src/Squot.package/SquotWorkingCopyBrowserTest.class/instance/testCannotMoveUpFirstObjectInLoadOrder.st deleted file mode 100644 index 28979e0f8..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowserTest.class/instance/testCannotMoveUpFirstObjectInLoadOrder.st +++ /dev/null @@ -1,13 +0,0 @@ -tests -testCannotMoveUpFirstObjectInLoadOrder - "given" - workingCopy - add: Object new at: '1'; - add: Object new at: '2'. - self assert: #('1' '2') equals: workingCopy loadOrder asArray. - browser selectedObjectIndex: 1. - "when" - browser moveUpInLoadOrder. - "then" - self assert: #('1' '2') equals: workingCopy loadOrder asArray; - assert: #('1' '2') equals: browser objectLabels asArray. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyBrowserTest.class/instance/testDisplaying.st b/src/Squot.package/SquotWorkingCopyBrowserTest.class/instance/testDisplaying.st deleted file mode 100644 index 7eaa0987b..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowserTest.class/instance/testDisplaying.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testDisplaying - | toolBuilder view | - "given" - workingCopy add: Object new at: 'an object'. - "when" - toolBuilder := ToolBuilder default. - view := toolBuilder build: browser. - "then do not signal errors" \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyBrowserTest.class/instance/testMoveDownInLoadOrder.st b/src/Squot.package/SquotWorkingCopyBrowserTest.class/instance/testMoveDownInLoadOrder.st deleted file mode 100644 index af3463d86..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowserTest.class/instance/testMoveDownInLoadOrder.st +++ /dev/null @@ -1,13 +0,0 @@ -tests -testMoveDownInLoadOrder - "given" - workingCopy - add: Object new at: '1'; - add: Object new at: '2'. - self assert: #('1' '2') equals: workingCopy loadOrder asArray. - browser selectedObjectIndex: 1. - "when" - browser moveDownInLoadOrder. - "then" - self assert: #('2' '1') equals: workingCopy loadOrder asArray; - assert: #('2' '1') equals: browser objectLabels asArray. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyBrowserTest.class/instance/testMoveUpInLoadOrder.st b/src/Squot.package/SquotWorkingCopyBrowserTest.class/instance/testMoveUpInLoadOrder.st deleted file mode 100644 index 43dbc49e5..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowserTest.class/instance/testMoveUpInLoadOrder.st +++ /dev/null @@ -1,13 +0,0 @@ -tests -testMoveUpInLoadOrder - "given" - workingCopy - add: Object new at: '1'; - add: Object new at: '2'. - self assert: #('1' '2') equals: workingCopy loadOrder asArray. - browser selectedObjectIndex: 2. - "when" - browser moveUpInLoadOrder. - "then" - self assert: #('2' '1') equals: workingCopy loadOrder asArray; - assert: #('2' '1') equals: browser objectLabels asArray. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyBrowserTest.class/methodProperties.json b/src/Squot.package/SquotWorkingCopyBrowserTest.class/methodProperties.json deleted file mode 100644 index dfdd1f83a..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowserTest.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "setUp" : "jr 12/8/2019 16:27", - "testCannotMoveDownLastObjectInLoadOrder" : "jr 10/3/2018 15:38", - "testCannotMoveUpFirstObjectInLoadOrder" : "jr 10/3/2018 15:37", - "testDisplaying" : "jr 10/3/2018 15:32", - "testMoveDownInLoadOrder" : "jr 10/3/2018 15:38", - "testMoveUpInLoadOrder" : "jr 10/3/2018 15:36" } } diff --git a/src/Squot.package/SquotWorkingCopyBrowserTest.class/properties.json b/src/Squot.package/SquotWorkingCopyBrowserTest.class/properties.json deleted file mode 100644 index 4b4abf1c2..000000000 --- a/src/Squot.package/SquotWorkingCopyBrowserTest.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-Tests-Tools", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "workingCopy", - "browser" ], - "name" : "SquotWorkingCopyBrowserTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotWorkingCopyHasAdditionalParents.class/README.md b/src/Squot.package/SquotWorkingCopyHasAdditionalParents.class/README.md deleted file mode 100644 index 954906df2..000000000 --- a/src/Squot.package/SquotWorkingCopyHasAdditionalParents.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am signalled when a new version is about to be saved, but the working copy has multiple parent versions. During merges this is natural, but if there has been some time between the addition of the additional parents and the saving of the new version, users may not desire to create a version with multiple parents anymore. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyHasAdditionalParents.class/class/workingCopy.operation..st b/src/Squot.package/SquotWorkingCopyHasAdditionalParents.class/class/workingCopy.operation..st deleted file mode 100644 index fbe062247..000000000 --- a/src/Squot.package/SquotWorkingCopyHasAdditionalParents.class/class/workingCopy.operation..st +++ /dev/null @@ -1,6 +0,0 @@ -instance creation -workingCopy: anObject1 operation: anObject2 - ^ self new - setWorkingCopy: anObject1 - operation: anObject2; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyHasAdditionalParents.class/instance/confirmAndProceed.st b/src/Squot.package/SquotWorkingCopyHasAdditionalParents.class/instance/confirmAndProceed.st deleted file mode 100644 index fa3b0e719..000000000 --- a/src/Squot.package/SquotWorkingCopyHasAdditionalParents.class/instance/confirmAndProceed.st +++ /dev/null @@ -1,4 +0,0 @@ -handling -confirmAndProceed - self resume: true. - \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyHasAdditionalParents.class/instance/setWorkingCopy.operation..st b/src/Squot.package/SquotWorkingCopyHasAdditionalParents.class/instance/setWorkingCopy.operation..st deleted file mode 100644 index c952644ff..000000000 --- a/src/Squot.package/SquotWorkingCopyHasAdditionalParents.class/instance/setWorkingCopy.operation..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -setWorkingCopy: anObject1 operation: anObject2 - workingCopy := anObject1. - operation := anObject2. diff --git a/src/Squot.package/SquotWorkingCopyHasAdditionalParents.class/methodProperties.json b/src/Squot.package/SquotWorkingCopyHasAdditionalParents.class/methodProperties.json deleted file mode 100644 index fb9e7f059..000000000 --- a/src/Squot.package/SquotWorkingCopyHasAdditionalParents.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - "workingCopy:operation:" : "jr 10/31/2022 19:16" }, - "instance" : { - "confirmAndProceed" : "jr 10/31/2022 19:19", - "setWorkingCopy:operation:" : "jr 10/31/2022 19:08" } } diff --git a/src/Squot.package/SquotWorkingCopyHasAdditionalParents.class/properties.json b/src/Squot.package/SquotWorkingCopyHasAdditionalParents.class/properties.json deleted file mode 100644 index 172a58d9a..000000000 --- a/src/Squot.package/SquotWorkingCopyHasAdditionalParents.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-Tools", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 10/31/2022 18:22", - "instvars" : [ - "workingCopy", - "operation" ], - "name" : "SquotWorkingCopyHasAdditionalParents", - "pools" : [ - ], - "super" : "Notification", - "type" : "normal" } diff --git a/src/Squot.package/SquotWorkingCopyOperation.class/README.md b/src/Squot.package/SquotWorkingCopyOperation.class/README.md deleted file mode 100644 index 51d72d53a..000000000 --- a/src/Squot.package/SquotWorkingCopyOperation.class/README.md +++ /dev/null @@ -1,5 +0,0 @@ -I am coordinate some kind of operation on the working copy. I keep transient state and provide a context for lazy operations and caching. - -Instance variables: - workingCopy SquotWorkingCopy The working copy to which this operation applies. - extensions Dictionary Generic store for properties used by extension methods. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyOperation.class/instance/applyToWorkingCopy.st b/src/Squot.package/SquotWorkingCopyOperation.class/instance/applyToWorkingCopy.st deleted file mode 100644 index 367247a25..000000000 --- a/src/Squot.package/SquotWorkingCopyOperation.class/instance/applyToWorkingCopy.st +++ /dev/null @@ -1,4 +0,0 @@ -applying -applyToWorkingCopy - "Perform the action coordinated by this operation." - self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyOperation.class/instance/createNewUnitOfWork.st b/src/Squot.package/SquotWorkingCopyOperation.class/instance/createNewUnitOfWork.st deleted file mode 100644 index 5afe2f89a..000000000 --- a/src/Squot.package/SquotWorkingCopyOperation.class/instance/createNewUnitOfWork.st +++ /dev/null @@ -1,3 +0,0 @@ -private -createNewUnitOfWork - unitOfWork := workingCopy repository unitOfWork. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyOperation.class/instance/extensions..st b/src/Squot.package/SquotWorkingCopyOperation.class/instance/extensions..st deleted file mode 100644 index 3caa97925..000000000 --- a/src/Squot.package/SquotWorkingCopyOperation.class/instance/extensions..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -extensions: anObject - extensions := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyOperation.class/instance/extensions.st b/src/Squot.package/SquotWorkingCopyOperation.class/instance/extensions.st deleted file mode 100644 index 95941987c..000000000 --- a/src/Squot.package/SquotWorkingCopyOperation.class/instance/extensions.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -extensions - ^ extensions \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyOperation.class/instance/finishUnitOfWork.st b/src/Squot.package/SquotWorkingCopyOperation.class/instance/finishUnitOfWork.st deleted file mode 100644 index 18bb876c3..000000000 --- a/src/Squot.package/SquotWorkingCopyOperation.class/instance/finishUnitOfWork.st +++ /dev/null @@ -1,3 +0,0 @@ -applying -finishUnitOfWork - unitOfWork finish. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyOperation.class/instance/initialize.st b/src/Squot.package/SquotWorkingCopyOperation.class/instance/initialize.st deleted file mode 100644 index 312d05f7b..000000000 --- a/src/Squot.package/SquotWorkingCopyOperation.class/instance/initialize.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -initialize - extensions := Dictionary new. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyOperation.class/instance/requestor..st b/src/Squot.package/SquotWorkingCopyOperation.class/instance/requestor..st deleted file mode 100644 index d728139c9..000000000 --- a/src/Squot.package/SquotWorkingCopyOperation.class/instance/requestor..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools accessing -requestor: anObject - extensions at: #requestor put: anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyOperation.class/instance/requestor.st b/src/Squot.package/SquotWorkingCopyOperation.class/instance/requestor.st deleted file mode 100644 index d0724716e..000000000 --- a/src/Squot.package/SquotWorkingCopyOperation.class/instance/requestor.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools accessing -requestor - ^ extensions at: #requestor ifAbsent: [] \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyOperation.class/instance/resultPromise.st b/src/Squot.package/SquotWorkingCopyOperation.class/instance/resultPromise.st deleted file mode 100644 index 9c56f4018..000000000 --- a/src/Squot.package/SquotWorkingCopyOperation.class/instance/resultPromise.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools accessing -resultPromise - ^ extensions at: #resultPromise ifAbsentPut: [Promise new] \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyOperation.class/instance/startUnitOfWork.st b/src/Squot.package/SquotWorkingCopyOperation.class/instance/startUnitOfWork.st deleted file mode 100644 index 6d7ac15fb..000000000 --- a/src/Squot.package/SquotWorkingCopyOperation.class/instance/startUnitOfWork.st +++ /dev/null @@ -1,3 +0,0 @@ -applying -startUnitOfWork - unitOfWork start. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyOperation.class/instance/title..st b/src/Squot.package/SquotWorkingCopyOperation.class/instance/title..st deleted file mode 100644 index e049f35f6..000000000 --- a/src/Squot.package/SquotWorkingCopyOperation.class/instance/title..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools accessing -title: aString - extensions at: #title put: aString. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyOperation.class/instance/title.st b/src/Squot.package/SquotWorkingCopyOperation.class/instance/title.st deleted file mode 100644 index 06923bd3f..000000000 --- a/src/Squot.package/SquotWorkingCopyOperation.class/instance/title.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools accessing -title - ^ extensions at: #title ifAbsent: [''] \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyOperation.class/instance/unitOfWork..st b/src/Squot.package/SquotWorkingCopyOperation.class/instance/unitOfWork..st deleted file mode 100644 index 0614b8a4c..000000000 --- a/src/Squot.package/SquotWorkingCopyOperation.class/instance/unitOfWork..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -unitOfWork: anObject - ^ unitOfWork := anObject \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyOperation.class/instance/unitOfWork.st b/src/Squot.package/SquotWorkingCopyOperation.class/instance/unitOfWork.st deleted file mode 100644 index c7e455547..000000000 --- a/src/Squot.package/SquotWorkingCopyOperation.class/instance/unitOfWork.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -unitOfWork - ^ unitOfWork \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyOperation.class/instance/withUnitOfWork..st b/src/Squot.package/SquotWorkingCopyOperation.class/instance/withUnitOfWork..st deleted file mode 100644 index 9f45a0428..000000000 --- a/src/Squot.package/SquotWorkingCopyOperation.class/instance/withUnitOfWork..st +++ /dev/null @@ -1,8 +0,0 @@ -applying -withUnitOfWork: aBlock - "Activate unit of work in the dynamic environment while evaluating the block. - Finish the unit of work after the block has been evaluated." - ^ [self withUnitOfWorkActive: - [self startUnitOfWork. - aBlock value]] - ensure: [self finishUnitOfWork] \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyOperation.class/instance/withUnitOfWorkActive..st b/src/Squot.package/SquotWorkingCopyOperation.class/instance/withUnitOfWorkActive..st deleted file mode 100644 index 47126f053..000000000 --- a/src/Squot.package/SquotWorkingCopyOperation.class/instance/withUnitOfWorkActive..st +++ /dev/null @@ -1,5 +0,0 @@ -applying -withUnitOfWorkActive: aBlock - "Activate unit of work in the dynamic environment while evaluating the block." - unitOfWork ifNil: [self createNewUnitOfWork]. - ^ unitOfWork activateDuring: aBlock \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyOperation.class/instance/workingCopy..st b/src/Squot.package/SquotWorkingCopyOperation.class/instance/workingCopy..st deleted file mode 100644 index 240017aef..000000000 --- a/src/Squot.package/SquotWorkingCopyOperation.class/instance/workingCopy..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -workingCopy: anObject - - workingCopy := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyOperation.class/instance/workingCopy.st b/src/Squot.package/SquotWorkingCopyOperation.class/instance/workingCopy.st deleted file mode 100644 index 725b545b8..000000000 --- a/src/Squot.package/SquotWorkingCopyOperation.class/instance/workingCopy.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -workingCopy - - ^ workingCopy \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyOperation.class/instance/workingCopySnapshot..st b/src/Squot.package/SquotWorkingCopyOperation.class/instance/workingCopySnapshot..st deleted file mode 100644 index 086c670d5..000000000 --- a/src/Squot.package/SquotWorkingCopyOperation.class/instance/workingCopySnapshot..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -workingCopySnapshot: anObject - - workingCopySnapshot := anObject. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyOperation.class/instance/workingCopySnapshot.st b/src/Squot.package/SquotWorkingCopyOperation.class/instance/workingCopySnapshot.st deleted file mode 100644 index a35f29ee4..000000000 --- a/src/Squot.package/SquotWorkingCopyOperation.class/instance/workingCopySnapshot.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -workingCopySnapshot - - ^ workingCopySnapshot ifNil: [workingCopySnapshot := workingCopy lazySnapshot] \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyOperation.class/methodProperties.json b/src/Squot.package/SquotWorkingCopyOperation.class/methodProperties.json deleted file mode 100644 index f92e0399f..000000000 --- a/src/Squot.package/SquotWorkingCopyOperation.class/methodProperties.json +++ /dev/null @@ -1,24 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "applyToWorkingCopy" : "jr 1/4/2020 19:20", - "createNewUnitOfWork" : "jr 4/17/2020 12:34", - "extensions" : "jr 1/4/2020 22:43", - "extensions:" : "jr 1/4/2020 22:43", - "finishUnitOfWork" : "jr 8/8/2020 16:35", - "initialize" : "jr 1/4/2020 22:43", - "requestor" : "jr 1/5/2020 00:12", - "requestor:" : "jr 1/5/2020 00:12", - "resultPromise" : "jr 1/5/2020 01:25", - "startUnitOfWork" : "jr 8/8/2020 16:35", - "title" : "jr 1/4/2020 22:52", - "title:" : "jr 1/4/2020 22:52", - "unitOfWork" : "jr 3/2/2020 22:50", - "unitOfWork:" : "jr 3/2/2020 22:50", - "withUnitOfWork:" : "jr 8/8/2020 16:35", - "withUnitOfWorkActive:" : "jr 8/8/2020 16:36", - "workingCopy" : "jr 1/4/2020 19:12", - "workingCopy:" : "jr 1/4/2020 19:12", - "workingCopySnapshot" : "jr 1/5/2020 01:34", - "workingCopySnapshot:" : "jr 1/5/2020 01:33" } } diff --git a/src/Squot.package/SquotWorkingCopyOperation.class/properties.json b/src/Squot.package/SquotWorkingCopyOperation.class/properties.json deleted file mode 100644 index 3423b7387..000000000 --- a/src/Squot.package/SquotWorkingCopyOperation.class/properties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "category" : "Squot-WorkingCopies", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 1/4/2020 22:45", - "instvars" : [ - "workingCopy", - "workingCopySnapshot", - "extensions", - "unitOfWork" ], - "name" : "SquotWorkingCopyOperation", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/SquotWorkingCopySaveTest.class/README.md b/src/Squot.package/SquotWorkingCopySaveTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotWorkingCopySaveTest.class/instance/testSaveSnapshotsBeforeTheDialogIsShown.st b/src/Squot.package/SquotWorkingCopySaveTest.class/instance/testSaveSnapshotsBeforeTheDialogIsShown.st deleted file mode 100644 index 034e763b6..000000000 --- a/src/Squot.package/SquotWorkingCopySaveTest.class/instance/testSaveSnapshotsBeforeTheDialogIsShown.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testSaveSnapshotsBeforeTheDialogIsShown - | save | - workingCopy add: ValueHolder new at: 'object'. - (workingCopy objectAt: 'object') contents: #beforeSave. - save := workingCopy newSaveOperation. - (workingCopy objectAt: 'object') contents: #afterSave. - save message: 'Add object'; applyToWorkingCopy. - workingCopy discardUnsavedChanges. - self assert: #beforeSave equals: (workingCopy objectAt: 'object') contents. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopySaveTest.class/methodProperties.json b/src/Squot.package/SquotWorkingCopySaveTest.class/methodProperties.json deleted file mode 100644 index b31583c3d..000000000 --- a/src/Squot.package/SquotWorkingCopySaveTest.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testSaveSnapshotsBeforeTheDialogIsShown" : "jr 11/22/2020 17:51" } } diff --git a/src/Squot.package/SquotWorkingCopySaveTest.class/properties.json b/src/Squot.package/SquotWorkingCopySaveTest.class/properties.json deleted file mode 100644 index 418c74c00..000000000 --- a/src/Squot.package/SquotWorkingCopySaveTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotWorkingCopySaveTest", - "pools" : [ - ], - "super" : "SquotWorkingCopyTestIndependentOfRepositoryType", - "type" : "normal" } diff --git a/src/Squot.package/SquotWorkingCopyTest.class/README.md b/src/Squot.package/SquotWorkingCopyTest.class/README.md deleted file mode 100644 index 8186fe7d5..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/README.md +++ /dev/null @@ -1,11 +0,0 @@ -I test that working copy operations work with a certain repository type. Subclass me. -See SquotWorkingCopyTest targetClass how you can name my subclasses or overwrite it in yours. -Also consider the trait TSquotWorkingCopyTestWithFileBasedRepository if your repository works -with files. - -Instance Variables - workingCopy SquotWorkingCopy on which the tests will be run, see #newWorkingCopy - classFactory used to create temporary classes during tests - repositoryDirectory reference to the directory where a repository is initialized, see #repositoryRootDirectory - repository repository created for the tests, see #newRepository - store Store that is used to create snapshots during tests, see #newStore \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/class/isAbstract.st b/src/Squot.package/SquotWorkingCopyTest.class/class/isAbstract.st deleted file mode 100644 index cf5304afa..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/class/isAbstract.st +++ /dev/null @@ -1,7 +0,0 @@ -Testing -isAbstract - "Override to true if a TestCase subclass is Abstract and should not have - TestCase instances built from it" - - ^self name = #SquotWorkingCopyTest - \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/addPackage.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/addPackage.st deleted file mode 100644 index d94e97714..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/addPackage.st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -addPackage - | packageInfo | - packageInfo := PackageInfo named: classFactory packageName. - workingCopy add: packageInfo at: packageInfo name, '.package'. - ^ packageInfo \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/assertVersion.containsMethod..st b/src/Squot.package/SquotWorkingCopyTest.class/instance/assertVersion.containsMethod..st deleted file mode 100644 index 875f28cfa..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/assertVersion.containsMethod..st +++ /dev/null @@ -1,9 +0,0 @@ -utilities -assertVersion: aVersion containsMethod: aCompiledMethod - | artifact | - artifact := self assertVersion: aVersion containsClass: aCompiledMethod methodClass. - artifact content startShadow definitions detect: [:each | each isMethodDefinition - and: [(each className = aCompiledMethod methodClass name) - and: [(each selector = aCompiledMethod selector) - and: [each source asString = aCompiledMethod getSource asString]]]] - ifNone: [self fail: 'Method not found']. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/changeLogSuppressor.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/changeLogSuppressor.st deleted file mode 100644 index 4d9314a20..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/changeLogSuppressor.st +++ /dev/null @@ -1,3 +0,0 @@ -private -changeLogSuppressor - ^ changeLogSuppressor \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/classFactory.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/classFactory.st deleted file mode 100644 index 71c5999ce..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/classFactory.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -classFactory - ^ classFactory \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/denyChangesInWorkingCopy.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/denyChangesInWorkingCopy.st deleted file mode 100644 index bc8e3e746..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/denyChangesInWorkingCopy.st +++ /dev/null @@ -1,6 +0,0 @@ -utilities -denyChangesInWorkingCopy - | patch | - repository withUnitOfWork: - [patch := workingCopy patchRelativeToBase: workingCopy baseVersion. - self deny: patch hasChanges]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/expectedFailures.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/expectedFailures.st deleted file mode 100644 index 113ca0412..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/expectedFailures.st +++ /dev/null @@ -1,6 +0,0 @@ -failures -expectedFailures - | bugs | - bugs := #(testTrackingWorkspaceMorph "Merging of objects is incomplete (e. g. support for value objects)"). - bugs flag: #todo. "Fix them" - ^ bugs \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/newRepository.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/newRepository.st deleted file mode 100644 index 5e2f70263..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/newRepository.st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -newRepository - ^ self repositoryClass new - initializeInDirectory: self repositoryRootDirectory; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/newStore.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/newStore.st deleted file mode 100644 index 7fdc5dc14..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/newStore.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -newStore - ^ SquotImageStore new \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/newWorkingCopy.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/newWorkingCopy.st deleted file mode 100644 index cf471c0ba..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/newWorkingCopy.st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -newWorkingCopy - ^ self newRepository createWorkingCopy - store: self newStore; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/performTest.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/performTest.st deleted file mode 100644 index 8e9b73ec5..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/performTest.st +++ /dev/null @@ -1,9 +0,0 @@ -private -performTest - ^ self suppressProgressDisplayDuring: - [[super performTest] - on: Deprecation do: - [:d | - (SquotToggles warnAboutUseOfDeprecatedMethods and: [self selector includesSubstring: 'Old']) - ifTrue: [d resume] - ifFalse: [d pass]]] \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/repositoryClass.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/repositoryClass.st deleted file mode 100644 index 10033888d..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/repositoryClass.st +++ /dev/null @@ -1,8 +0,0 @@ -private -repositoryClass - | testClassName className | - testClassName := self class name asText asString. - className := (testClassName endsWith: 'WorkingCopyTest') - ifTrue: [testClassName allButLast: 'WorkingCopyTest' size] - ifFalse: [testClassName allButLast: 'Test' size]. - ^ self class environment valueOf: (className asSymbol). diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/repositoryRootDirectory.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/repositoryRootDirectory.st deleted file mode 100644 index 20ee3f31d..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/repositoryRootDirectory.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -repositoryRootDirectory - ^ repositoryDirectory \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/setUp.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/setUp.st deleted file mode 100644 index 6fca72089..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/setUp.st +++ /dev/null @@ -1,8 +0,0 @@ -running -setUp - classFactory := ClassFactoryForTestCase new. - repositoryDirectory := FileSystem memory root. - workingCopy := self newWorkingCopy. - repository := workingCopy repository. - store := workingCopy store. - changeLogSuppressor := SUnitChangeLogSuppressor new. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/tearDown.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/tearDown.st deleted file mode 100644 index 8e0195f8c..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/tearDown.st +++ /dev/null @@ -1,15 +0,0 @@ -running -tearDown - scenario ifNotNil: [scenario tearDown]. - self suppressChangeNotificationsDuring: - [classFactory cleanUp. - workingCopy unload]. - (MCWorkingCopy allManagers - detect: [:each | each packageName = classFactory packageName] ifNone: []) - ifNotNil: [:createdWorkingCopy | createdWorkingCopy unregister]. - Environment current packageOrganizer unregisterPackageNamed: classFactory packageName. - ChangeSet removeChangeSetsNamedSuchThat: - [:each | each beginsWith: classFactory packageName]. - (repository respondsTo: #close) ifTrue: [repository close]. - (store respondsTo: #close) ifTrue: [store close]. - workingCopy repository delete: workingCopy loadedHistorian. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testAddMultipleObjectsSuccessively.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testAddMultipleObjectsSuccessively.st deleted file mode 100644 index d255109b4..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testAddMultipleObjectsSuccessively.st +++ /dev/null @@ -1,13 +0,0 @@ -tests -testAddMultipleObjectsSuccessively - "Some repositories impose constraints on the load order. Check that it does not introduce unnecessary differences." - | o1 o2 | - o1 := ValueHolder new contents: 'Text 1'. - o2 := ValueHolder new contents: 'Text 2'. - repository withUnitOfWork: - [workingCopy add: o1 at: 'object 1'. - workingCopy saveVersionWithMessage: 'Add object'. - self denyChangesInWorkingCopy. - workingCopy add: o2 at: 'object 2'. - workingCopy saveVersionWithMessage: 'Add another object'. - self denyChangesInWorkingCopy]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testAdditionNotLoaded.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testAdditionNotLoaded.st deleted file mode 100644 index f56132b24..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testAdditionNotLoaded.st +++ /dev/null @@ -1,19 +0,0 @@ -tests unloaded artifacts -testAdditionNotLoaded - | text snapshot patchBuilder patch | - text := Text fromString: 'Some text'. - snapshot := SquotImageStore new add: text at: 'text.txt'; captureSnapshot. - patchBuilder := (snapshot patchRelativeToBase: workingCopy) createNewBuilder. - (patchBuilder diffAt: 'text.txt') toggleWhetherToLoad. - patch := patchBuilder updateRightArtifacts; buildPatch. - self deny: (workingCopy includesObjectAt: 'text.txt'); - deny: (workingCopy loadOrder includes: 'text.txt'). - "when" - workingCopy applyPatch: patch. - "then" - self assert: (workingCopy includesObjectAt: 'text.txt'); - deny: (workingCopy artifactAt: 'text.txt') isLoaded; - deny: (store includesObjectAt: 'text.txt'); - deny: (workingCopy patchRelativeToBase: snapshot) hasChanges; - assert: (workingCopy loadOrder includes: 'text.txt'); - assert: (snapshot artifactAt: 'text.txt') id equals: (workingCopy artifactAt: 'text.txt') id. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testBaseSnapshotEqualsBaseVersionSnapshot.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testBaseSnapshotEqualsBaseVersionSnapshot.st deleted file mode 100644 index e7ec05cb5..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testBaseSnapshotEqualsBaseVersionSnapshot.st +++ /dev/null @@ -1,20 +0,0 @@ -tests caching -testBaseSnapshotEqualsBaseVersionSnapshot - | object version baseSnapshot | - object := ValueHolder new contents: 42. - repository withUnitOfWork: - [workingCopy add: object at: 'my object'. - version := workingCopy saveVersionWithMessage: 'Add object'. - baseSnapshot := workingCopy baseSnapshot. - self assert: version equals: workingCopy baseVersion; - assert: workingCopy baseVersion equals: workingCopy loadedVersion; - deny: (baseSnapshot patchRelativeToBase: version snapshot) hasChanges; - denyChangesInWorkingCopy]. - object contents: 13. - repository withUnitOfWork: - [version := workingCopy saveVersionWithMessage: 'Update object'. - baseSnapshot := workingCopy baseSnapshot. - self assert: version equals: workingCopy baseVersion; - assert: workingCopy baseVersion equals: workingCopy loadedVersion; - deny: (baseSnapshot patchRelativeToBase: version snapshot) hasChanges; - denyChangesInWorkingCopy]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testCherryPickDoesNotSaveUnrelatedChanges.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testCherryPickDoesNotSaveUnrelatedChanges.st deleted file mode 100644 index 37bd2a0ce..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testCherryPickDoesNotSaveUnrelatedChanges.st +++ /dev/null @@ -1,30 +0,0 @@ -tests cherry picking -testCherryPickDoesNotSaveUnrelatedChanges - | cherryPick merge | - "cherry pick the version of the other historian" - self suppressChangeNotificationsDuring: - [scenario := SquotSimpleMergeTestScenario forTestCase: self. - "introduce an unrelated, unsaved change" - scenario sampleClass compileSilently: 'firstMethod ^ #changed'. - cherryPick := workingCopy newCherryPickOperation - pickedVersion: scenario thirdVersion; - relevantParentOfPickedVersion: scenario firstVersion; - message: 'new version'. - merge := cherryPick prepareMerge. - self assert: ((merge resolvedPatch diffAt: scenario packagePath) - diffOfTrackedObject - operations - noneSatisfy: - [:each | each definition isMethodDefinition - and: [each definition selector = 'firstMethod']]) - description: 'unsaved change should be unaffected'. - cherryPick applyMerge. - self assert: scenario sampleClass new firstMethod = #changed - description: 'unsaved change should be unaffected by merge'. - cherryPick save]. - self assert: scenario sampleClass new firstMethod = #changed - description: 'unsaved change should be unaffected by save'. - self suppressChangeNotificationsDuring: - [workingCopy discardUnsavedChanges]. - self deny: scenario sampleClass new firstMethod = #changed - description: 'Changes should have been discarded'. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testCherryPickOfOrphanedVersion.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testCherryPickOfOrphanedVersion.st deleted file mode 100644 index d27e15748..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testCherryPickOfOrphanedVersion.st +++ /dev/null @@ -1,23 +0,0 @@ -tests cherry picking -testCherryPickOfOrphanedVersion - "When cherry-picking a version without ancestor, there is no base version. An empty snapshot should be assumed as the base, so nothing will be removed during the merge." - | cherryPick merge | - self suppressChangeNotificationsDuring: - [scenario := SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario forTestCase: self. - cherryPick := workingCopy newCherryPickOperation - pickedVersion: scenario firstVersion; - relevantParentOfPickedVersion: nil; "there is no parent version" - message: 'new version'. - merge := cherryPick prepareMerge. - self deny: merge hasConflicts - description: 'there should be no conflicts'. - self deny: (merge resolvedPatch diffs anySatisfy: [:each | each isRemoval]) - description: 'nothing should be removed'. - cherryPick applyMerge. - cherryPick save]. - "then" - self assert: - (workingCopy artifacts keys includesAllOf: - (scenario firstVersion artifacts keys, scenario secondVersion artifacts keys)); - assert: scenario firstVersionArtifact id equals: (workingCopy artifactAt: scenario firstVersionArtifact path) id; - assert: scenario secondVersionArtifact id equals: (workingCopy artifactAt: scenario secondVersionArtifact path) id. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testCherryPickWithConflicts.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testCherryPickWithConflicts.st deleted file mode 100644 index 2d2edfcd1..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testCherryPickWithConflicts.st +++ /dev/null @@ -1,24 +0,0 @@ -tests cherry picking -testCherryPickWithConflicts - | cherryPick merge | - self suppressChangeNotificationsDuring: - [scenario := SquotWorkingCopyTestMergeConflictScenario forTestCase: self. - cherryPick := workingCopy newCherryPickOperation - pickedVersion: scenario thirdVersion; - relevantParentOfPickedVersion: scenario firstVersion; - message: 'new version'. - merge := cherryPick prepareMerge. - scenario - assertConflictedMethodWorkingEditionPresentIn: merge; - assertConflictedMethodIncomingEditionPresentIn: merge; - assertThirdMethodWillBeAdded: merge; - chooseWorkingEditionOfConflictedMethodIn: merge. - cherryPick applyMerge. - scenario - assertConflictMethodHasNotChanged; - assertThirdMethodLoaded. - cherryPick save]. - repository withUnitOfWork: - [self assert: scenario secondVersion equals: workingCopy loadedVersion parents first; - deny: scenario thirdVersion = workingCopy loadedVersion; - assert: 'new version' equals: workingCopy loadedVersion message]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testCherryPickWithConflictsChooseRemote.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testCherryPickWithConflictsChooseRemote.st deleted file mode 100644 index d60c84d27..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testCherryPickWithConflictsChooseRemote.st +++ /dev/null @@ -1,23 +0,0 @@ -tests cherry picking -testCherryPickWithConflictsChooseRemote - | cherryPick merge | - self suppressChangeNotificationsDuring: - [scenario := SquotWorkingCopyTestMergeConflictScenario forTestCase: self. - cherryPick := workingCopy newCherryPickOperation - pickedVersion: scenario thirdVersion; - relevantParentOfPickedVersion: scenario firstVersion; - message: 'new version'. - merge := cherryPick prepareMerge. - scenario - assertConflictedMethodWorkingEditionPresentIn: merge; - assertConflictedMethodIncomingEditionPresentIn: merge; - assertThirdMethodWillBeAdded: merge; - chooseIncomingEditionOfConflictedMethodIn: merge. - cherryPick applyMerge. - scenario assertConflictMethodIncomingEditionLoaded; - assertThirdMethodLoaded. - cherryPick save]. - repository withUnitOfWork: - [self assert: scenario secondVersion equals: workingCopy loadedVersion parents first; - deny: scenario thirdVersion = workingCopy loadedVersion; - assert: 'new version' equals: workingCopy loadedVersion message]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testCherryPickWithoutConflicts.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testCherryPickWithoutConflicts.st deleted file mode 100644 index 9c2652a40..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testCherryPickWithoutConflicts.st +++ /dev/null @@ -1,23 +0,0 @@ -tests cherry picking -testCherryPickWithoutConflicts - | cherryPick merge | - "cherry pick the version of the other historian" - self suppressChangeNotificationsDuring: - [scenario := SquotSimpleMergeTestScenario forTestCase: self. - cherryPick := workingCopy newCherryPickOperation - pickedVersion: scenario thirdVersion; - relevantParentOfPickedVersion: scenario firstVersion; - message: 'new version'. - merge := cherryPick prepareMerge. - scenario - assertThirdMethodWillBeAdded: merge with: self; - assertSecondMethodUnmodifiedBy: merge with: self. - cherryPick applyMerge. - scenario - assertSecondMethodUnmodifiedWith: self; - assertThirdMethodLoadedWith: self. - cherryPick save]. - repository withUnitOfWork: - [self assert: scenario secondVersion equals: workingCopy loadedVersion parents first; - deny: scenario thirdVersion = workingCopy loadedVersion; - assert: 'new version' equals: workingCopy loadedVersion message]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testDiffWithParent.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testDiffWithParent.st deleted file mode 100644 index 2b4ad6d23..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testDiffWithParent.st +++ /dev/null @@ -1,17 +0,0 @@ -tests -testDiffWithParent - | sampleClass packageInfo anotherClass latestVersion patch | - self suppressChangeNotificationsDuring: [sampleClass := classFactory newClass]. - sampleClass compileSilently: 'firstMethod ^ self' classified: 'methods of first version'. - packageInfo := self addPackage. - - repository withUnitOfWork: - [workingCopy saveVersionWithMessage: 'first version'. - - self suppressChangeNotificationsDuring: [anotherClass := classFactory newClass]. - anotherClass compileSilently: 'addedMethod ^ self' classified: 'methods of second version'. - - workingCopy saveVersionWithMessage: 'second version'. - latestVersion := workingCopy baseVersion. - patch := (latestVersion patchRelativeToBase: latestVersion parents first). - self assert: patch hasChanges]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testDiscardUnsavedChangeToUnloadedArtifact.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testDiscardUnsavedChangeToUnloadedArtifact.st deleted file mode 100644 index d318e8eb4..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testDiscardUnsavedChangeToUnloadedArtifact.st +++ /dev/null @@ -1,20 +0,0 @@ -tests unloaded artifacts -testDiscardUnsavedChangeToUnloadedArtifact - | object firstSnapshot secondSnapshot patch | - object := ValueHolder new contents: 1; yourself. - firstSnapshot := SquotImageStore new add: object at: 'obj'; captureSnapshot. - workingCopy addUnloaded: (firstSnapshot artifactAt: 'obj'). - workingCopy saveVersionWithMessage: 'add obj'. - self denyChangesInWorkingCopy. - repository withUnitOfWork: - [firstSnapshot := workingCopy baseVersion snapshot. "Repository might add objects automatically."]. - object contents: 2. - secondSnapshot := SquotImageStore new add: object at: 'obj'; captureSnapshot. - patch := secondSnapshot patchRelativeToBase: workingCopy. - workingCopy applyPatch: patch. - "when" - workingCopy discardUnsavedChanges. - "then" - self deny: (workingCopy patchRelativeToBase: firstSnapshot) hasChanges; - deny: (workingCopy artifactAt: 'obj') isLoaded; - deny: (store includesObjectAt: 'obj'). \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testKeptObjectAfterMergeInIncmoingLoadOrderPosition.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testKeptObjectAfterMergeInIncmoingLoadOrderPosition.st deleted file mode 100644 index 518c86f0c..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testKeptObjectAfterMergeInIncmoingLoadOrderPosition.st +++ /dev/null @@ -1,5 +0,0 @@ -tests merging -testKeptObjectAfterMergeInIncmoingLoadOrderPosition - "The kept artifact should keep its position in the load order." - scenario := SquotMergeChangeAndRemovalWithReorderingTestScenario forTestCase: self. - scenario testKeepArtifact. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testKeptObjectAfterMergeInSameLoadOrderPosition.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testKeptObjectAfterMergeInSameLoadOrderPosition.st deleted file mode 100644 index 7decec422..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testKeptObjectAfterMergeInSameLoadOrderPosition.st +++ /dev/null @@ -1,5 +0,0 @@ -tests merging -testKeptObjectAfterMergeInSameLoadOrderPosition - "The kept artifact should keep its position in the load order." - scenario := SquotMergeChangeAndRemovalTestScenario forTestCase: self. - scenario testKeepArtifact. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeAndLoadUnloadedArtifact.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeAndLoadUnloadedArtifact.st deleted file mode 100644 index a3a596280..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeAndLoadUnloadedArtifact.st +++ /dev/null @@ -1,20 +0,0 @@ -tests unloaded artifacts -testMergeAndLoadUnloadedArtifact - | merge operation | - scenario := SquotSimpleMergeTestScenario forTestCase: self. - scenario unloadPackage. - self deny: (workingCopy artifactAt: scenario packagePath) isLoaded. - "merge the version of the other historian" - repository withUnitOfWork: - [self suppressChangeNotificationsDuring: - [merge := (operation := workingCopy newMergeOperation) - mergeVersion: scenario thirdVersion; - prepare. - (merge at: scenario packagePath) toggleWhetherToLoad. - operation applyToWorkingCopy]]. - "then" - self assert: (workingCopy artifactAt: scenario packagePath) isLoaded. - scenario - assertSecondMethodUnmodifiedWith: self; - assertThirdMethodLoadedWith: self. - self assert: scenario packageId equals: (workingCopy artifactAt: scenario packagePath) id. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeFastForward.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeFastForward.st deleted file mode 100644 index 5040d0335..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeFastForward.st +++ /dev/null @@ -1,22 +0,0 @@ -tests merging -testMergeFastForward - | advancedHistorian | - "given" - workingCopy add: (ValueHolder new contents: 'text') at: 'text.obj'. - repository withUnitOfWork: - [workingCopy saveVersionWithMessage: 'Add text'. - (workingCopy objectAt: 'text.obj') contents: 'bold text'. - workingCopy saveVersionWithMessage: 'Make text bold'. - (repository historianNamed: 'behind') version: workingCopy baseVersion parents first. - advancedHistorian := workingCopy loadedHistorian. - workingCopy switchTo: (repository historianNamed: 'behind')]. - "Merge the version of the advanced historian." - repository withUnitOfWork: - [workingCopy newMergeOperation - mergeVersion: advancedHistorian version; - prepare; - applyToWorkingCopy]. - "Branch could be fast-forwarded." - repository withUnitOfWork: - [self assert: advancedHistorian version equals: workingCopy loadedVersion; - assert: workingCopy additionalParents isEmpty]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeRemovalAndChange.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeRemovalAndChange.st deleted file mode 100644 index 0ff9002c1..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeRemovalAndChange.st +++ /dev/null @@ -1,32 +0,0 @@ -tests merging -testMergeRemovalAndChange - | text baseVersion leftVersion rightVersion operation merge conflict | - "given" - repository withUnitOfWork: - [self workingCopy add: (text := ValueHolder new contents: 'Base text') at: 'text'. - self workingCopy saveVersionWithMessage: 'base version'. - baseVersion := self workingCopy loadedHistorian version. - text contents: 'Changed text'. - self workingCopy saveVersionWithMessage: 'right-side version'. - rightVersion := self workingCopy loadedHistorian version. - self workingCopy loadedHistorian version: baseVersion. - self workingCopy - discardUnsavedChanges; - remove: text. - self workingCopy saveVersionWithMessage: 'left-side version'. - leftVersion := self workingCopy loadedHistorian version. - - "when" - merge := (operation := self workingCopy newMergeOperation) - mergeVersion: rightVersion; - prepare. - "then" - conflict := merge conflictAt: 'text'. - self assert: conflict isResolved not. - - "when" - conflict chooseIncoming. "the changed text" - operation applyToWorkingCopy. - "then" - self assert: 'Changed text' equals: (self workingCopy objectAt: 'text') contents]. - self assert: (baseVersion artifactAt: 'text') id equals: (workingCopy artifactAt: 'text') id. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeSingleArtifact.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeSingleArtifact.st deleted file mode 100644 index 0e437106b..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeSingleArtifact.st +++ /dev/null @@ -1,43 +0,0 @@ -tests merging -testMergeSingleArtifact - "When a merge is performed for a single artifact, only this loaded artifact should change in the process." - | class relevantObject unrelatedObject baseVersion leftVersion rightVersion rightArtifact | - "given" - repository withUnitOfWork: - ["base version" - self workingCopy add: (unrelatedObject := ValueHolder new contents: 'unrelated') at: 'unrelated'. - (self suppressChangeNotificationsDuring: [class := classFactory newClass]) - compileSilently: 'mergeMe ^ 1' classified: 'to-be-changed'. - self workingCopy - add: (relevantObject := PackageInfo new packageName: classFactory packageName) - at: 'to-be-merged'. - self workingCopy saveVersionWithMessage: 'base version'. - baseVersion := self workingCopy loadedHistorian version. - "right-side version" - unrelatedObject contents: 'unrelated1'. - self suppressChangeNotificationsDuring: - [class organization classify: #mergeMe under: 'something else' logged: false]. - self workingCopy saveVersionWithMessage: 'right-side version'. - rightVersion := self workingCopy loadedHistorian version. - rightArtifact := rightVersion artifacts at: - (rightVersion artifacts keys detect: [:each | each beginsWith: 'to-be-merged']). - "left-side version" - self workingCopy loadedHistorian version: baseVersion. - self suppressChangeNotificationsDuring: [self workingCopy discardUnsavedChanges]. - class compileSilently: 'addedMethod ^ self' classified: 'should be kept'. - unrelatedObject contents: 'unrelated2'. - self workingCopy saveVersionWithMessage: 'left-side version'. - leftVersion := self workingCopy loadedHistorian version. - "when" - self suppressChangeNotificationsDuring: - [[[self workingCopy mergeArtifactInteractively: rightArtifact from: rightVersion - ifCanceled: [self fail: 'This code should not be reached']] - on: SquotMergeRequested do: [:request | - "then" - self assert: (request merge modifies: rightArtifact). - self deny: (request merge includesModificationAt: 'unrelated'). - request resume] - ] valueSupplyingAnswers: {{'*'. #default}}]. - self assert: 'something else' = (class organization categoryOfElement: #mergeMe). - self assert: (class methodDictionary includesKey: #addedMethod). - self assert: 'unrelated2' equals: (self workingCopy objectAt: 'unrelated') contents]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeTwoOrphanedVersions.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeTwoOrphanedVersions.st deleted file mode 100644 index 96da4ef13..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeTwoOrphanedVersions.st +++ /dev/null @@ -1,25 +0,0 @@ -tests merging -testMergeTwoOrphanedVersions - "When merging two versions without ancestors, there is no base version. An empty snapshot should be assumed as the base, so nothing will be removed during the merge." - | operation merge | - self suppressChangeNotificationsDuring: - [scenario := SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario forTestCase: self. - - "when" - operation := scenario merge. - merge := operation merge. - "then" - self deny: merge hasConflicts - description: 'there should be no conflicts'. - self deny: (merge resolvedPatch diffs anySatisfy: [:each | each isRemoval]) - description: 'nothing should be removed'. - - "when" - operation applyToWorkingCopy]. - "then" - repository withUnitOfWork: - [self assert: - (workingCopy artifacts keys includesAllOf: - (scenario firstVersion artifacts keys, scenario secondVersion artifacts keys)); - assert: scenario firstVersionArtifact id equals: (workingCopy artifactAt: scenario firstVersionArtifact path) id; - assert: scenario secondVersionArtifact id equals: (workingCopy artifactAt: scenario secondVersionArtifact path) id]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeVersionWithLoadedObjects.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeVersionWithLoadedObjects.st deleted file mode 100644 index 3eb7599cb..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeVersionWithLoadedObjects.st +++ /dev/null @@ -1,47 +0,0 @@ -tests merging -testMergeVersionWithLoadedObjects - | sampleClass packagePath firstVersion addedMethod secondVersion packageInfo | - repository withUnitOfWork: - ["create a base version" - self suppressChangeNotificationsDuring: - [classFactory cleanUp. - sampleClass := classFactory newClass]. - sampleClass compileSilently: 'firstMethod ^ self' classified: 'methods of first version'. - packageInfo := self addPackage. - workingCopy saveVersionWithMessage: 'first version'. - packagePath := (workingCopy store pathsOf: packageInfo) anyOne. - firstVersion := workingCopy baseVersion. - "create unsaved changes" - addedMethod := sampleClass compileSilently: 'addedMethod ^ self' classified: 'unsaved methods'. - addedMethod := sampleClass >> addedMethod. - "create a yet unloaded followup version" - firstVersion snapshot in: [:firstSnapshot | | packageArtifact newSnapshot | - packageArtifact := firstSnapshot artifactAt: packagePath. - newSnapshot := firstSnapshot createNewBuilder - add: (packageArtifact copyWithDifferentContent: - ((MCSnapshot fromDefinitions: packageArtifact packageArtifactDefinitions, - {MCMethodDefinition className: sampleClass name - selector: #anotherMethod category: 'methods of second version' - timeStamp: 'whatever' source: 'anotherMethod ^ self'}) - asSquotArtifactForPackage: packageInfo) content); - buildSnapshot. - secondVersion := workingCopy loadedHistorian createNewVersion: newSnapshot - with: [:newVersion | newVersion message: 'second version']]. - "merge the second version - and assert that no attempt is made to discard the unsaved method" - self suppressChangeNotificationsDuring: - [[[workingCopy mergeVersionWithLoadedObjects: secondVersion - ifCanceled: [self fail: 'should not reach here']] - on: SquotMergeRequested do: [:request | | packageMerge packageDiff | - "make sure the unsaved method does not appear in the diff (will not be changed)" - packageMerge := request merge mergeAt: packagePath. - self deny: packageMerge hasConflicts. - packageDiff := packageMerge resolvedPatch. - self assert: (packageDiff diffOfTrackedObject operations - noneSatisfy: [:each | each definition isMethodDefinition and: [each definition selector = addedMethod selector]]). - request resume]] - valueSupplyingAnswers: {{'*'. #default}}]. - self assert: addedMethod - equals: sampleClass >> #addedMethod - description: 'unsaved method unchanged after merge'. - self assert: firstVersion equals: workingCopy loadedVersion]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeWithAddedArtifactOnBothSides.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeWithAddedArtifactOnBothSides.st deleted file mode 100644 index c042fc307..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeWithAddedArtifactOnBothSides.st +++ /dev/null @@ -1,36 +0,0 @@ -tests merging -testMergeWithAddedArtifactOnBothSides - | baseVersion leftVersion rightVersion leftName rightName operation versionMerge artifactMerge loadedArtifactId | - repository withUnitOfWork: - [self workingCopy saveVersionWithMessage: 'empty base version'. - baseVersion := self workingCopy loadedHistorian version. - self workingCopy add: (ValueHolder new contents: #right) at: 'added'; - saveVersionWithMessage: 'right-side version'. - rightVersion := self workingCopy loadedHistorian version. - rightName := store objectRegistry nameOf: (self workingCopy objectAt: 'added'). - self workingCopy loadedHistorian version: baseVersion. - self workingCopy discardUnsavedChanges. - self deny: (self workingCopy includesObjectAt: 'added'). - self workingCopy add: (ValueHolder new contents: #left) at: 'added'; - saveVersionWithMessage: 'left-side version'. - leftVersion := self workingCopy loadedHistorian version. - leftName := store objectRegistry nameOf: (self workingCopy objectAt: 'added'). - self assert: leftName ~= rightName. - self assert: (leftVersion artifactAt: 'added') id ~= (rightVersion artifactAt: 'added') id. - loadedArtifactId := (workingCopy artifactAt: 'added') id. - self assert: (leftVersion artifactAt: 'added') id equals: loadedArtifactId. - "merge the version of the other historian" - versionMerge := (operation := self workingCopy newMergeOperation) - mergeVersion: rightVersion; - prepare. - artifactMerge := versionMerge mergeAt: 'added'. - self assert: artifactMerge hasConflicts. - (artifactMerge graphMerge conflictAt: (self workingCopy artifactAt: 'added') content startName) chooseIncoming. - operation applyToWorkingCopy. - self assert: #right equals: (self workingCopy objectAt: 'added') contents; - assert: rightName equals: - (store objectRegistry nameOf: (self workingCopy objectAt: 'added')); - assert: loadedArtifactId equals: (workingCopy artifactAt: 'added') id. - "The loaded artifact id should also be the saved one." - workingCopy saveVersionWithMessage: 'merge commit'. - self assert: loadedArtifactId equals: (workingCopy baseVersion artifactAt: 'added') id]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeWithConflicts.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeWithConflicts.st deleted file mode 100644 index 2542e8ec6..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeWithConflicts.st +++ /dev/null @@ -1,16 +0,0 @@ -tests merging -testMergeWithConflicts - | operation | - self suppressChangeNotificationsDuring: - [scenario := SquotWorkingCopyTestMergeConflictScenario forTestCase: self. - operation := scenario merge. - scenario - assertConflictedMethodWorkingEditionPresentIn: operation merge; - assertConflictedMethodIncomingEditionPresentIn: operation merge; - assertThirdMethodWillBeAdded: operation merge; - chooseWorkingEditionOfConflictedMethodIn: operation merge. - operation applyToWorkingCopy]. - scenario assertConflictMethodHasNotChanged; - assertThirdMethodLoaded. - "not saved yet" - self assert: scenario secondVersion equals: workingCopy loadedVersion. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeWithConflictsChooseRemote.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeWithConflictsChooseRemote.st deleted file mode 100644 index 58dc39259..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeWithConflictsChooseRemote.st +++ /dev/null @@ -1,17 +0,0 @@ -tests merging -testMergeWithConflictsChooseRemote - | operation | - self suppressChangeNotificationsDuring: - [scenario := SquotWorkingCopyTestMergeConflictScenario forTestCase: self. - operation := scenario merge. - scenario - assertConflictedMethodWorkingEditionPresentIn: operation merge; - assertConflictedMethodIncomingEditionPresentIn: operation merge; - assertThirdMethodWillBeAdded: operation merge; - chooseIncomingEditionOfConflictedMethodIn: operation merge. - operation applyToWorkingCopy]. - scenario - assertConflictMethodIncomingEditionLoaded; - assertThirdMethodLoaded. - "not saved yet" - self assert: scenario secondVersion equals: workingCopy loadedVersion. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeWithRemovedArtifactOnBothSides.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeWithRemovedArtifactOnBothSides.st deleted file mode 100644 index 41579f711..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeWithRemovedArtifactOnBothSides.st +++ /dev/null @@ -1,33 +0,0 @@ -tests merging -testMergeWithRemovedArtifactOnBothSides - "When an artifact is removed in both branches, then merging them should let it stay removed without a conflict." - | baseVersion leftVersion rightVersion merge operation | - repository withUnitOfWork: - [self workingCopy - add: (ValueHolder new contents: #right) at: 'to-be-removed'; - saveVersionWithMessage: 'base version'. - baseVersion := self workingCopy loadedHistorian version. - self workingCopy - removeAt: 'to-be-removed'; - saveVersionWithMessage: 'right-side version'. - rightVersion := self workingCopy loadedHistorian version. - self deny: (rightVersion includesObjectAt: 'to-be-removed'). - self workingCopy loadedHistorian version: baseVersion. - self workingCopy discardUnsavedChanges. - self assert: (self workingCopy includesObjectAt: 'to-be-removed'). - self workingCopy - removeAt: 'to-be-removed'; - saveVersionWithMessage: 'left-side version'. - leftVersion := self workingCopy loadedHistorian version. - "when" - merge := (operation := self workingCopy newMergeOperation) - mergeVersion: rightVersion; - prepare. - "then" - self deny: (merge modifies: (baseVersion artifactAt: 'to-be-removed')). - self deny: merge hasConflicts. - - "when" - operation applyToWorkingCopy. - "then" - self deny: (self workingCopy includesObjectAt: 'to-be-removed')]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeWithoutConflicts.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeWithoutConflicts.st deleted file mode 100644 index 32d4b7dbc..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testMergeWithoutConflicts.st +++ /dev/null @@ -1,20 +0,0 @@ -tests merging -testMergeWithoutConflicts - | operation merge | - scenario := SquotSimpleMergeTestScenario forTestCase: self. - "merge the version of the other historian" - repository withUnitOfWork: - [self suppressChangeNotificationsDuring: - [merge := (operation := workingCopy newMergeOperation) - mergeVersion: scenario thirdVersion; - prepare. - scenario - assertThirdMethodWillBeAdded: merge with: self; - assertSecondMethodUnmodifiedBy: merge with: self. - operation applyToWorkingCopy]. - - scenario - assertSecondMethodUnmodifiedWith: self; - assertThirdMethodLoadedWith: self. - self assert: scenario secondVersion equals: workingCopy loadedVersion; - assert: (workingCopy additionalParents includes: scenario thirdVersion)]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeRemovalAndChange.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeRemovalAndChange.st deleted file mode 100644 index db141a71b..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeRemovalAndChange.st +++ /dev/null @@ -1,28 +0,0 @@ -tests merging deprecated -testOldMergeRemovalAndChange - | text baseVersion leftVersion rightVersion | - "given" - repository withUnitOfWork: - [self workingCopy add: (text := ValueHolder new contents: 'Base text') at: 'text'. - self workingCopy saveVersionWithMessage: 'base version'. - baseVersion := self workingCopy loadedHistorian version. - text contents: 'Changed text'. - self workingCopy saveVersionWithMessage: 'right-side version'. - rightVersion := self workingCopy loadedHistorian version. - self workingCopy loadedHistorian version: baseVersion. - self workingCopy - discardUnsavedChanges; - remove: text. - self workingCopy saveVersionWithMessage: 'left-side version'. - leftVersion := self workingCopy loadedHistorian version. - "when" - [[self workingCopy mergeVersionInteractively: rightVersion - ifCanceled: [self fail: 'This code should not be reached']] - on: SquotMergeRequested do: [:request | | conflict | - "then" - conflict := request merge conflictAt: 'text'. - self assert: conflict isResolved not. - conflict chooseIncoming. "the changed text" - request resume] - ] valueSupplyingAnswers: {{'*'. #default}}. - self assert: 'Changed text' equals: (self workingCopy objectAt: 'text') contents]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeTwoOrphanedVersions.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeTwoOrphanedVersions.st deleted file mode 100644 index ff01b6fb6..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeTwoOrphanedVersions.st +++ /dev/null @@ -1,19 +0,0 @@ -tests merging deprecated -testOldMergeTwoOrphanedVersions - "When merging two versions without ancestors, there is no base version. An empty snapshot should be assumed as the base, so nothing will be removed during the merge." - self suppressChangeNotificationsDuring: - [scenario := SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario forTestCase: self. - "when" - [[scenario oldMerge] - on: SquotMergeRequested do: [:request | | | - self deny: request merge hasConflicts - description: 'there should be no conflicts'. - self deny: (request merge resolvedPatch diffs anySatisfy: [:each | each isRemoval]) - description: 'nothing should be removed'. - request resume] - ] valueSupplyingAnswers: {{'*'. #default}}]. - "then" - repository withUnitOfWork: - [self assert: - (workingCopy artifacts keys includesAllOf: - (scenario firstVersion artifacts keys, scenario secondVersion artifacts keys))]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeWithAddedArtifactOnBothSides.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeWithAddedArtifactOnBothSides.st deleted file mode 100644 index 3f6e94305..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeWithAddedArtifactOnBothSides.st +++ /dev/null @@ -1,30 +0,0 @@ -tests merging deprecated -testOldMergeWithAddedArtifactOnBothSides - | baseVersion leftVersion rightVersion leftName rightName | - repository withUnitOfWork: - [self workingCopy saveVersionWithMessage: 'empty base version'. - baseVersion := self workingCopy loadedHistorian version. - self workingCopy add: (ValueHolder new contents: #right) at: 'added'; - saveVersionWithMessage: 'right-side version'. - rightVersion := self workingCopy loadedHistorian version. - rightName := store objectRegistry nameOf: (self workingCopy objectAt: 'added'). - self workingCopy loadedHistorian version: baseVersion. - self workingCopy discardUnsavedChanges. - self deny: (self workingCopy includesObjectAt: 'added'). - self workingCopy add: (ValueHolder new contents: #left) at: 'added'; - saveVersionWithMessage: 'left-side version'. - leftVersion := self workingCopy loadedHistorian version. - leftName := store objectRegistry nameOf: (self workingCopy objectAt: 'added'). - self assert: leftName ~= rightName. - "merge the version of the other historian" - [[self workingCopy mergeVersionInteractively: rightVersion - ifCanceled: [self fail: 'This code should not be reached']] - on: SquotMergeRequested do: [:request | | merge | - merge := request merge mergeAt: 'added'. - self assert: merge hasConflicts. - (merge graphMerge conflictAt: (self workingCopy artifactAt: 'added') content startName) chooseIncoming. - request resume] - ] valueSupplyingAnswers: {{'*'. #default}}. - self assert: #right equals: (self workingCopy objectAt: 'added') contents; - assert: rightName equals: - (store objectRegistry nameOf: (self workingCopy objectAt: 'added'))]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeWithConflicts.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeWithConflicts.st deleted file mode 100644 index 3998ee012..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeWithConflicts.st +++ /dev/null @@ -1,17 +0,0 @@ -tests merging deprecated -testOldMergeWithConflicts - self suppressChangeNotificationsDuring: - [scenario := SquotWorkingCopyTestMergeConflictScenario forTestCase: self. - [[scenario oldMerge] - on: SquotMergeRequested do: [:request | - scenario - assertConflictedMethodWorkingEditionPresentIn: request merge; - assertConflictedMethodIncomingEditionPresentIn: request merge; - assertThirdMethodWillBeAdded: request merge; - chooseWorkingEditionOfConflictedMethodIn: request merge. - request resume] - ] valueSupplyingAnswers: {{'*'. #default}}]. - scenario assertConflictMethodHasNotChanged; - assertThirdMethodLoaded. - "not saved yet" - self assert: scenario secondVersion equals: workingCopy loadedVersion. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeWithConflictsChooseRemote.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeWithConflictsChooseRemote.st deleted file mode 100644 index 347e6e005..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeWithConflictsChooseRemote.st +++ /dev/null @@ -1,18 +0,0 @@ -tests merging deprecated -testOldMergeWithConflictsChooseRemote - self suppressChangeNotificationsDuring: - [scenario := SquotWorkingCopyTestMergeConflictScenario forTestCase: self. - [[scenario oldMerge] - on: SquotMergeRequested do: [:request | - scenario - assertConflictedMethodWorkingEditionPresentIn: request merge; - assertConflictedMethodIncomingEditionPresentIn: request merge; - assertThirdMethodWillBeAdded: request merge; - chooseIncomingEditionOfConflictedMethodIn: request merge. - request resume]] - valueSupplyingAnswers: {{'*'. #default}}]. - scenario - assertConflictMethodIncomingEditionLoaded; - assertThirdMethodLoaded. - "not saved yet" - self assert: scenario secondVersion equals: workingCopy loadedVersion. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeWithRemovedArtifactOnBothSides.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeWithRemovedArtifactOnBothSides.st deleted file mode 100644 index cc973d602..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeWithRemovedArtifactOnBothSides.st +++ /dev/null @@ -1,31 +0,0 @@ -tests merging deprecated -testOldMergeWithRemovedArtifactOnBothSides - "When an artifact is removed in both branches, then merging them should let it stay removed without a conflict." - | baseVersion leftVersion rightVersion | - repository withUnitOfWork: - [self workingCopy - add: (ValueHolder new contents: #right) at: 'to-be-removed'; - saveVersionWithMessage: 'base version'. - baseVersion := self workingCopy loadedHistorian version. - self workingCopy - removeAt: 'to-be-removed'; - saveVersionWithMessage: 'right-side version'. - rightVersion := self workingCopy loadedHistorian version. - self deny: (rightVersion includesObjectAt: 'to-be-removed'). - self workingCopy loadedHistorian version: baseVersion. - self workingCopy discardUnsavedChanges. - self assert: (self workingCopy includesObjectAt: 'to-be-removed'). - self workingCopy - removeAt: 'to-be-removed'; - saveVersionWithMessage: 'left-side version'. - leftVersion := self workingCopy loadedHistorian version. - "when" - [[self workingCopy mergeVersionInteractively: rightVersion - ifCanceled: [self fail: 'This code should not be reached']] - on: SquotMergeRequested do: [:request | - "then" - self deny: (request merge modifies: (baseVersion artifactAt: 'to-be-removed')). - self deny: request merge hasConflicts. - request resume] - ] valueSupplyingAnswers: {{'*'. #default}}. - self deny: (self workingCopy includesObjectAt: 'to-be-removed')]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeWithoutConflicts.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeWithoutConflicts.st deleted file mode 100644 index d3abe508c..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testOldMergeWithoutConflicts.st +++ /dev/null @@ -1,21 +0,0 @@ -tests merging deprecated -testOldMergeWithoutConflicts - scenario := SquotSimpleMergeTestScenario forTestCase: self. - "merge the version of the other historian" - repository withUnitOfWork: - [self suppressChangeNotificationsDuring: - [[[workingCopy - mergeVersionInteractively: scenario thirdVersion - ifCanceled: [self fail: 'this code should not be reached']] - - on: SquotMergeRequested do: [:request | - scenario - assertThirdMethodWillBeAdded: request merge with: self; - assertSecondMethodUnmodifiedBy: request merge with: self. - request resume "accept all changes"]] - valueSupplyingAnswers: {{'*'. #default}}]. - - scenario - assertSecondMethodUnmodifiedWith: self; - assertThirdMethodLoadedWith: self. - self assert: scenario secondVersion equals: workingCopy loadedVersion]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testPatchAndLoadUnloadedArtifact.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testPatchAndLoadUnloadedArtifact.st deleted file mode 100644 index 165660002..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testPatchAndLoadUnloadedArtifact.st +++ /dev/null @@ -1,19 +0,0 @@ -tests unloaded artifacts -testPatchAndLoadUnloadedArtifact - | object snapshot store patch | - object := ValueHolder new contents: 1; yourself. - store := SquotImageStore new. - snapshot := store add: object at: 'obj'; captureSnapshot. - workingCopy addUnloaded: (snapshot artifactAt: 'obj'). - object contents: 2. - snapshot := store captureSnapshot. - patch := snapshot patchRelativeToBase: workingCopy. - (patch diffAt: 'obj') toggleWhetherToLoad. - "when" - workingCopy applyPatch: patch. - "then" - self deny: (snapshot patchRelativeToBase: workingCopy) hasChanges; - assert: (workingCopy artifactAt: 'obj') isLoaded; - assert: (store includesObjectAt: 'obj'); - assert: 2 equals: (store objectAt: 'obj') contents; - assert: (snapshot artifactAt: 'obj') id equals: (workingCopy artifactAt: 'obj') id. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testPatchUnloadedArtifact.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testPatchUnloadedArtifact.st deleted file mode 100644 index 20ad91b35..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testPatchUnloadedArtifact.st +++ /dev/null @@ -1,17 +0,0 @@ -tests unloaded artifacts -testPatchUnloadedArtifact - | object snapshot patch | - object := ValueHolder new contents: 1; yourself. - snapshot := SquotImageStore new add: object at: 'obj'; captureSnapshot. - workingCopy addUnloaded: (snapshot artifactAt: 'obj'). - self deny: (store includes: object); - deny: (workingCopy patchRelativeToBase: snapshot) hasChanges. - object contents: 2. - snapshot := SquotImageStore new add: object at: 'obj'; captureSnapshot. - patch := snapshot patchRelativeToBase: workingCopy. - "when" - workingCopy applyPatch: patch. - "then" - self deny: (snapshot patchRelativeToBase: workingCopy) hasChanges; - deny: (workingCopy artifactAt: 'obj') isLoaded; - deny: (store includesObjectAt: 'obj'). \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testReaddedObjectAfterMergeInIncomingLoadOrderPosition.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testReaddedObjectAfterMergeInIncomingLoadOrderPosition.st deleted file mode 100644 index 61ea24cf8..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testReaddedObjectAfterMergeInIncomingLoadOrderPosition.st +++ /dev/null @@ -1,4 +0,0 @@ -tests merging -testReaddedObjectAfterMergeInIncomingLoadOrderPosition - scenario := SquotMergeRemovalAndChangeWithReorderingTestScenario forTestCase: self. - scenario testReaddedArtifactInIncomingLoadOrderPosition. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testReaddedObjectAfterMergeInSameLoadOrderPosition.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testReaddedObjectAfterMergeInSameLoadOrderPosition.st deleted file mode 100644 index 3c57e3428..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testReaddedObjectAfterMergeInSameLoadOrderPosition.st +++ /dev/null @@ -1,6 +0,0 @@ -tests merging -testReaddedObjectAfterMergeInSameLoadOrderPosition - "Relates to testRemovalAndChange, but only focuses on the load order. - The readded artifact should be readded in the same place as in the incoming changes." - scenario := SquotMergeRemovalAndChangeTestScenario forTestCase: self. - scenario testReaddedArtifactInIncomingLoadOrderPosition. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testRemovePackage.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testRemovePackage.st deleted file mode 100644 index 479fe13b8..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testRemovePackage.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testRemovePackage - self deny: (workingCopy store includes: (PackageInfo named: classFactory packageName)). - - self addPackage. - self assert: (workingCopy store includes: (PackageInfo named: classFactory packageName)). - - workingCopy saveVersionWithMessage: 'add package'. - self assert: (workingCopy store includes: (PackageInfo named: classFactory packageName)). - - workingCopy remove: (PackageInfo named: classFactory packageName). - self deny: (workingCopy store includes: (PackageInfo named: classFactory packageName)). - - workingCopy saveVersionWithMessage: 'remove package'. - self deny: (workingCopy store includes: (PackageInfo named: classFactory packageName)). \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testRemovedUnsavedArtifactStaysRemoved.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testRemovedUnsavedArtifactStaysRemoved.st deleted file mode 100644 index ac84d84cd..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testRemovedUnsavedArtifactStaysRemoved.st +++ /dev/null @@ -1,23 +0,0 @@ -tests unloaded artifacts -testRemovedUnsavedArtifactStaysRemoved - "...and does not get readded as unloaded." - | object snapshot secondVersion | - object := ValueHolder new contents: 1; yourself. - snapshot := SquotImageStore new add: object at: 'obj'; captureSnapshot. - workingCopy add: (snapshot artifactAt: 'obj'); - saveVersionWithMessage: 'Add obj'; - removeAt: 'obj'; - add: object at: 'other path'. - "when" - repository withUnitOfWork: "to look up the baseVersion" - [secondVersion := workingCopy newSaveOperation - patch: (workingCopy baseVersion newPatchBuilder - addDiff: ((workingCopy patchRelativeToBase: workingCopy baseVersion) - diffAt: 'other path'); - updateRightArtifacts; - buildPatch); "Diff at 'obj' not included!" - message: 'Add at other path, but don''t remove at old path'; - applyToWorkingCopy]. - "then" - self deny: (workingCopy includesObjectAt: 'obj'); - assert: (secondVersion includesObjectAt: 'obj'). \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testRestoreClass.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testRestoreClass.st deleted file mode 100644 index ae327ba43..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testRestoreClass.st +++ /dev/null @@ -1,35 +0,0 @@ -tests -testRestoreClass - | sampleClass sampleClassName firstMethod addedMethod firstVersion latestVersion artifactId path | - self suppressChangeNotificationsDuring: [sampleClass := classFactory newClass]. - sampleClass compileSilently: 'firstMethod ^ self' classified: 'methods of first version'. - sampleClassName := sampleClass name. "when unloaded, the class is renamed" - firstMethod := sampleClass >> #firstMethod. - repository withUnitOfWork: - [workingCopy add: sampleClass at: sampleClass package name, '/', sampleClass name. - path := workingCopy artifacts anyOne path. - artifactId := (workingCopy artifactAt: path) id. - workingCopy saveVersionWithMessage: 'first version'. - firstVersion := workingCopy baseVersion. - sampleClass compileSilently: 'addedMethod ^ self' classified: 'methods of second version'. - addedMethod := sampleClass >> #addedMethod. - workingCopy saveVersionWithMessage: 'second version'. - latestVersion := workingCopy baseVersion. - - self suppressChangeNotificationsDuring: - [SquotChangeSetTestCleanup removeNewChangeSetsNamedLike: sampleClassName - after: [workingCopy loadVersion: firstVersion interactive: false]]. - self deny: sampleClass isObsolete. - self assert: firstMethod isInstalled description: 'keep firstMethod'. - self deny: addedMethod isInstalled description: 'remove addedMethod'. - self assert: artifactId equals: (workingCopy artifactAt: path) id. - - self suppressChangeNotificationsDuring: - [SquotChangeSetTestCleanup removeNewChangeSetsNamedLike: sampleClassName - after: [workingCopy loadVersion: latestVersion interactive: false]]. - self deny: sampleClass isObsolete. - self assert: firstMethod isInstalled description: 'keep firstMethod'. - self assert: addedMethod getSource asString - equals: (sampleClass >> addedMethod selector) getSource asString - description: 'restore addedMethod']. - self assert: artifactId equals: (workingCopy artifactAt: path) id. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testRestorePackage.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testRestorePackage.st deleted file mode 100644 index 377aa8dd6..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testRestorePackage.st +++ /dev/null @@ -1,40 +0,0 @@ -tests -testRestorePackage - | sampleClass sampleClassName firstMethod packageInfo anotherClass anotherClassName addedMethod firstVersion latestVersion artifactId path | - self suppressChangeNotificationsDuring: [sampleClass := classFactory newClass]. - sampleClass compileSilently: 'firstMethod ^ self' classified: 'methods of first version'. - sampleClassName := sampleClass name. "when unloaded, the class is renamed" - firstMethod := sampleClass >> #firstMethod. - repository withUnitOfWork: - [packageInfo := self addPackage. - path := workingCopy artifacts anyOne path. - artifactId := (workingCopy artifactAt: path) id. - workingCopy saveVersionWithMessage: 'first version'. - firstVersion := workingCopy baseVersion. - self suppressChangeNotificationsDuring: - [anotherClass := classFactory newClassInCategory: sampleClass category]. - sampleClass compileSilently: 'addedMethod ^ self' classified: 'methods of second version'. - anotherClassName := anotherClass name. "when unloaded, the class is renamed" - addedMethod := sampleClass >> #addedMethod. - workingCopy saveVersionWithMessage: 'second version'. - latestVersion := workingCopy baseVersion. - - self suppressChangeNotificationsDuring: - [workingCopy loadVersion: firstVersion interactive: false]. - self deny: (packageInfo includesClassNamed: anotherClassName) description: 'unregister new class'. - self assert: anotherClass isObsolete description: 'unloaded new class'. - self assert: (packageInfo includesClass: sampleClass) description: 'keep first class'. - self deny: sampleClass isObsolete. - self assert: firstMethod isInstalled description: 'keep firstMethod'. - self deny: addedMethod isInstalled description: 'remove addedMethod'. - self assert: artifactId equals: (workingCopy artifactAt: path) id. - - self suppressChangeNotificationsDuring: - [workingCopy loadVersion: latestVersion interactive: false]. - self assert: (packageInfo includesClassNamed: anotherClassName) description: 'restore new class'. - self assert: ((anotherClass := store environment at: anotherClassName) isKindOf: Class). - self deny: anotherClass isObsolete. - self assert: addedMethod getSource asString - equals: (sampleClass >> addedMethod selector) getSource asString - description: 'restore addedMethod']. - self assert: artifactId equals: (workingCopy artifactAt: path) id. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testRevertDoesNotSaveUnrelatedChanges.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testRevertDoesNotSaveUnrelatedChanges.st deleted file mode 100644 index ab08a3055..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testRevertDoesNotSaveUnrelatedChanges.st +++ /dev/null @@ -1,23 +0,0 @@ -tests reverting -testRevertDoesNotSaveUnrelatedChanges - | revert merge | - self suppressChangeNotificationsDuring: - [scenario := SquotLinearHistoryTestScenario forTestCase: self. - scenario makeUnrelatedChange. - revert := workingCopy newRevertOperation - revertedVersion: scenario versionB; - relevantParentOfRevertedVersion: (repository withUnitOfWork: [scenario versionB parents first]); - message: 'Revert b'. - merge := revert prepareMerge. - self deny: (scenario updatesUnrelatedChange: merge) - description: 'unsaved change should be unaffected'. - revert applyMerge. - self assert: scenario unrelatedChangeStillLoaded - description: 'unsaved change should be unaffected by merge'. - revert save]. - self assert: scenario unrelatedChangeStillLoaded - description: 'unsaved change should be unaffected by save'. - self suppressChangeNotificationsDuring: - [workingCopy discardUnsavedChanges]. - self deny: scenario unrelatedChangeStillLoaded - description: 'Changes should have been discarded'. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testRevertOfOrphanedVersion.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testRevertOfOrphanedVersion.st deleted file mode 100644 index 51df799fb..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testRevertOfOrphanedVersion.st +++ /dev/null @@ -1,20 +0,0 @@ -tests reverting -testRevertOfOrphanedVersion - "When reverting a version without ancestor, there is no base version. An empty snapshot should be assumed as the base, so everything introduced by the version will be removed during the merge." - | revert merge | - self suppressChangeNotificationsDuring: - [scenario := SquotLinearHistoryTestScenario forTestCase: self. - revert := workingCopy newRevertOperation - revertedVersion: scenario versionA1; - relevantParentOfRevertedVersion: nil; "there is no parent version" - message: 'Revert addition of a'. - merge := revert prepareMerge. - self assert: merge hasConflicts - description: 'there should be a conflict since the method was later changed again'. - merge conflicts do: [:each | each chooseIncoming]. - self assert: (merge resolvedPatch diffs allSatisfy: [:each | each isRemoval]) - description: 'removes everything'. - revert applyMerge. - revert save]. - "then" - self assert: scenario packageWasRemoved. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testRevertWithoutConflicts.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testRevertWithoutConflicts.st deleted file mode 100644 index 16b850721..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testRevertWithoutConflicts.st +++ /dev/null @@ -1,17 +0,0 @@ -tests reverting -testRevertWithoutConflicts - | revert merge | - "revert the addition of method b" - self suppressChangeNotificationsDuring: - [scenario := SquotLinearHistoryTestScenario forTestCase: self. - revert := workingCopy newRevertOperation - revertedVersion: scenario versionB; - relevantParentOfRevertedVersion: (repository withUnitOfWork: [scenario versionB parents first]); - message: 'Revert addition of b'. - merge := revert prepareMerge. - self assert: (scenario removesMethodB: merge). - revert applyMerge. - self assert: scenario methodBRemoved. - revert save]. - repository withUnitOfWork: - [self assert: scenario revertVersionAddedAtEndOfHistory]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testSaveTimestampIsNow.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testSaveTimestampIsNow.st deleted file mode 100644 index 2da8b5249..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testSaveTimestampIsNow.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testSaveTimestampIsNow - | trackedObject save version startOfSave | - "given" - repository withUnitOfWork: - [trackedObject := ValueHolder new contents: 'This is a test'. - workingCopy add: trackedObject at: 'tracked'. - "when" - save := workingCopy newSaveOperation message: 'initial version'; yourself. - startOfSave := DateAndTime now. - (Delay forSeconds: 1) wait. - version := save applyToWorkingCopy]. - "then" - repository withUnitOfWork: - [self assert: version timestamp > startOfSave]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testSaveWithoutAddedArtifact.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testSaveWithoutAddedArtifact.st deleted file mode 100644 index 32f6c9385..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testSaveWithoutAddedArtifact.st +++ /dev/null @@ -1,26 +0,0 @@ -tests -testSaveWithoutAddedArtifact - | save | - "Given" - workingCopy add: ValueHolder new at: 'object1'; - saveVersionWithMessage: 'Add object1'; - add: ValueHolder new at: 'object2'. - (workingCopy objectAt: 'object1') contents: #newContents. - "When" - save := workingCopy newSaveOperation. - save message: 'Update object1'; - withUnitOfWork: - [| patchBuilder | - patchBuilder := save computePatch createNewBuilder. - patchBuilder resetAt: 'object2'; - newLoadOrder: (patchBuilder newLoadOrder copyWithout: 'object2'). - save patch: patchBuilder buildPatch. - save applyToWorkingCopy]. - "Then" - repository withUnitOfWork: - [self deny: (workingCopy baseVersion includesObjectAt: 'object2'); - deny: (workingCopy baseVersion loadOrder includes: 'object2'); - assert: (workingCopy includesObjectAt: 'object2'); - assert: (workingCopy loadOrder includes: 'object2'); - assert: (workingCopy baseVersion includesObjectAt: 'object1'); - assert: (workingCopy baseVersion loadOrder includes: 'object1')]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchAndMoveOverToBranchAtSameVersion.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchAndMoveOverToBranchAtSameVersion.st deleted file mode 100644 index 467751e94..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchAndMoveOverToBranchAtSameVersion.st +++ /dev/null @@ -1,26 +0,0 @@ -tests branch switching -testSwitchAndMoveOverToBranchAtSameVersion - | trackedObject originalHistorian otherHistorian contentsBeforeSwitch | - "given" - repository withUnitOfWork: - [trackedObject := ValueHolder new contents: 'This is a test'. - workingCopy add: trackedObject at: 'tracked'. - workingCopy saveVersionWithMessage: 'initial version'. - trackedObject contents: 'Unsaved changes'. - originalHistorian := workingCopy loadedHistorian. - otherHistorian := repository historianNamed: 'other'. - otherHistorian version: workingCopy baseVersion. - "when" - workingCopy switchAndMoveUnsavedChangesOverTo: otherHistorian. - "then" - self assert: 'Unsaved changes' = trackedObject contents - description: 'Unsaved changes not preserved'. - "when" - trackedObject contents: 'Other changes'. - contentsBeforeSwitch := trackedObject contents. - workingCopy switchAndMoveUnsavedChangesOverTo: originalHistorian. - "then" - self assert: 'Other changes' = trackedObject contents - description: 'Unsaved changes not preserved'. - self assert: contentsBeforeSwitch == trackedObject contents - description: 'no patching should have occurred']. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchAwayFromOrphanedBranch.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchAwayFromOrphanedBranch.st deleted file mode 100644 index e19a7e43f..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchAwayFromOrphanedBranch.st +++ /dev/null @@ -1,28 +0,0 @@ -tests branch switching -testSwitchAwayFromOrphanedBranch - | class trackedObject existingHistorian orphanedHistorian | - "given" - repository withUnitOfWork: - [self suppressChangeNotificationsDuring: [class := classFactory newClass]. - class compileSilently: 'a ^ #originalReturnValue' classified: 'will not be changed'. - trackedObject := self addPackage. - workingCopy saveVersionWithMessage: 'initial version'. - existingHistorian := workingCopy loadedHistorian. - orphanedHistorian := repository historianNamed: 'newHistorian'. - workingCopy - loadedHistorian: orphanedHistorian; - loadedVersion: nil. - "when" - self suppressChangeNotificationsDuring: [workingCopy switchTo: existingHistorian]. - "then" - self assert: class new a == #originalReturnValue. - - - workingCopy - loadedHistorian: orphanedHistorian; - loadedVersion: nil. - "when" - self suppressChangeNotificationsDuring: - [workingCopy switchAndMoveUnsavedChangesOverTo: existingHistorian]. - "then" - self assert: class new a == #originalReturnValue]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchBranch.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchBranch.st deleted file mode 100644 index 698130c4b..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchBranch.st +++ /dev/null @@ -1,25 +0,0 @@ -tests branch switching -testSwitchBranch - | trackedObject class originalHistorian otherHistorian | - "given" - self suppressChangeNotificationsDuring: [class := classFactory newClass]. - class compileSilently: 'savedMethod ^ 1' classified: 'safe'. - class compileSilently: 'a ^ 1' classified: 'to be changed'. - repository withUnitOfWork: - [trackedObject := self addPackage. - workingCopy saveVersionWithMessage: 'initial version'. - originalHistorian := workingCopy loadedHistorian. - otherHistorian := repository historianNamed: 'other'. - otherHistorian version: originalHistorian version. - "change and save" - class compileSilently: 'a ^ 2' classified: 'to be changed'. - workingCopy saveVersionWithMessage: 'change a'. - "change but do not save" - class compileSilently: 'a ^ 3' classified: 'unsaved'. - "switch to otherHistorian" - self suppressChangeNotificationsDuring: [workingCopy switchTo: otherHistorian]. - self assert: 'a ^ 1' equals: ((class >> #a) getSource asString withLineEndings: ' ') withBlanksCondensed description: 'loaded other version'. - "switch back and assert that we got the uncommitted changes back" - self suppressChangeNotificationsDuring: [workingCopy switchTo: originalHistorian]. - self assert: 'a ^ 3' equals: ((class >> #a) getSource asString withLineEndings: ' ') withBlanksCondensed description: 'restored unsaved changes']. - \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchBranchAndMoveOverUnsavedChanges.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchBranchAndMoveOverUnsavedChanges.st deleted file mode 100644 index e14218dcb..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchBranchAndMoveOverUnsavedChanges.st +++ /dev/null @@ -1,25 +0,0 @@ -tests branch switching -testSwitchBranchAndMoveOverUnsavedChanges - | trackedObject class originalHistorian otherHistorian | - "given - initial version > #unsavedMethod) getSource asString withLineEndings: ' ') withBlanksCondensed description: 'should have moved over changes'. - self assert: 'a ^ 1' equals: ((class >> #a) getSource asString withBlanksCondensed withLineEndings: ' ') description: 'should have loaded other objects']. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchBranchAndMoveOverUnsavedChangesInAddedArtifact.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchBranchAndMoveOverUnsavedChangesInAddedArtifact.st deleted file mode 100644 index f8d30c9d5..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchBranchAndMoveOverUnsavedChangesInAddedArtifact.st +++ /dev/null @@ -1,24 +0,0 @@ -tests branch switching -testSwitchBranchAndMoveOverUnsavedChangesInAddedArtifact - | text originalHistorian otherHistorian hadConflicts | - "given" - repository withUnitOfWork: - [self workingCopy saveVersionWithMessage: 'empty base version'. - originalHistorian := workingCopy loadedHistorian. - otherHistorian := repository historianNamed: 'other'. - otherHistorian version: originalHistorian version. - self workingCopy loadedHistorian: otherHistorian. - self workingCopy saveVersionWithMessage: 'still empty other version'. - self workingCopy - loadedHistorian: originalHistorian; - add: (text := ValueHolder new contents: 'added text') at: 'text'; - saveVersionWithMessage: 'add text'. - text contents: 'changed text'. - hadConflicts := false. - [workingCopy switchAndMoveUnsavedChangesOverTo: otherHistorian] - on: SquotMergeRequested doAndResume: [:request | - hadConflicts := true. - self assert: request merge hasConflicts. - request merge conflicts do: #chooseIncoming]. - self assert: hadConflicts description: 'should have detected a conflict'. - self assert: 'changed text' equals: (workingCopy objectAt: 'text') contents]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchBranchAndMoveOverUnsavedChangesWithConflict.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchBranchAndMoveOverUnsavedChangesWithConflict.st deleted file mode 100644 index a8f8055e0..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchBranchAndMoveOverUnsavedChangesWithConflict.st +++ /dev/null @@ -1,36 +0,0 @@ -tests branch switching -testSwitchBranchAndMoveOverUnsavedChangesWithConflict - | trackedObject class originalHistorian otherHistorian hadConflict | - "given - initial version > #a) getSource asString withLineEndings: ' ') withBlanksCondensed description: 'moved over changes']. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchToBranchAtSameVersion.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchToBranchAtSameVersion.st deleted file mode 100644 index 7c561c7d0..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testSwitchToBranchAtSameVersion.st +++ /dev/null @@ -1,28 +0,0 @@ -tests branch switching -testSwitchToBranchAtSameVersion - | trackedObject originalHistorian otherHistorian | - "given" - trackedObject := ValueHolder new contents: 'This is a test'. - repository withUnitOfWork: - [workingCopy add: trackedObject at: 'tracked'. - workingCopy saveVersionWithMessage: 'initial version'. - trackedObject contents: 'Unsaved changes'. - originalHistorian := workingCopy loadedHistorian. - otherHistorian := repository historianNamed: 'other'. - otherHistorian version: workingCopy baseVersion. - "when" - workingCopy switchTo: otherHistorian. - "then" - self assert: 'This is a test' = trackedObject contents - description: 'Unsaved changes not put away'. - "when" - trackedObject contents: 'Other changes'. - workingCopy switchTo: originalHistorian. - "then" - self assert: 'Unsaved changes' = trackedObject contents - description: 'Unsaved changes not preserved automatically'. - "when" - workingCopy switchTo: otherHistorian. - "then" - self assert: 'Other changes' = trackedObject contents - description: 'Unsaved changes not preserved automatically']. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testTrackingAClass.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testTrackingAClass.st deleted file mode 100644 index dc3aec1e8..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testTrackingAClass.st +++ /dev/null @@ -1,38 +0,0 @@ -tests -testTrackingAClass - | class versionBeforeSave latestVersion artifactId path | - self suppressChangeNotificationsDuring: [class := classFactory newClass]. - class compileSilently: 'firstMethod ^ self' classified: 'methods of first version'. - repository withUnitOfWork: - [path := 'src/', class category, '.package/', class name, '.class'. - artifactId := (workingCopy add: class at: path) id. - versionBeforeSave := workingCopy loadedHistorian version. - self assert: versionBeforeSave isNil description: 'starting from empty history'. - - workingCopy saveVersionWithMessage: 'first version'. - self denyChangesInWorkingCopy. - latestVersion := workingCopy baseVersion. - self assert: versionBeforeSave ~= latestVersion description: 'new version'. - self assert: latestVersion parents isEmpty description: 'ancestry'. - self assert: latestVersion - equals: workingCopy loadedHistorian version - description: 'loaded historian'. - self assertVersion: latestVersion containsClass: class. - self assertVersion: latestVersion containsMethod: class >> #firstMethod. - self assert: artifactId equals: (latestVersion artifactAt: path) id. - - class compileSilently: 'addedMethod ^ self' classified: 'methods of second version'. - versionBeforeSave := workingCopy loadedHistorian version. - self assert: latestVersion equals: versionBeforeSave. - - workingCopy saveVersionWithMessage: 'second version'. - self denyChangesInWorkingCopy. - latestVersion := workingCopy baseVersion. - self assert: versionBeforeSave ~= latestVersion description: 'new version'. - self assert: (latestVersion parents includes: versionBeforeSave) description: 'ancestry'. - self assert: latestVersion - equals: workingCopy loadedHistorian version - description: 'loaded historian'. - self assertVersion: latestVersion containsMethod: class >> #addedMethod. - self assertVersion: latestVersion containsMethod: class >> #firstMethod. - self assert: artifactId equals: (latestVersion artifactAt: path) id]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testTrackingAPackage.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testTrackingAPackage.st deleted file mode 100644 index 452131dc0..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testTrackingAPackage.st +++ /dev/null @@ -1,45 +0,0 @@ -tests -testTrackingAPackage - | sampleClass packageInfo anotherClass versionBeforeSave latestVersion artifactId path | - self suppressChangeNotificationsDuring: [sampleClass := classFactory newClass]. - sampleClass compileSilently: 'firstMethod ^ self' classified: 'methods of first version'. - repository withUnitOfWork: - [packageInfo := self addPackage. - path := workingCopy artifacts anyOne path. - artifactId := (workingCopy artifactAt: path) id. - versionBeforeSave := workingCopy loadedHistorian version. - self assert: versionBeforeSave isNil description: 'starting from an empty history'. - - workingCopy saveVersionWithMessage: 'first version'. - self denyChangesInWorkingCopy. - latestVersion := workingCopy baseVersion. - self assert: versionBeforeSave ~= latestVersion description: 'new version'. - self assert: (latestVersion parents isEmpty) description: 'ancestry'. - self assert: latestVersion - equals: workingCopy loadedHistorian version - description: 'stable version'. - self assertVersion: latestVersion containsPackage: packageInfo. - self assertVersion: latestVersion containsClass: sampleClass. - self assertVersion: latestVersion containsMethod: sampleClass >> #firstMethod. - self assert: artifactId equals: (workingCopy artifactAt: path) id. - - self suppressChangeNotificationsDuring: - [anotherClass := classFactory newClassInCategory: sampleClass category]. - anotherClass compileSilently: 'addedMethod ^ self' classified: 'methods of second version'. - versionBeforeSave := workingCopy loadedHistorian version. - self assert: latestVersion equals: versionBeforeSave. - - workingCopy saveVersionWithMessage: 'second version'. - self denyChangesInWorkingCopy. - latestVersion := workingCopy baseVersion. - self assert: versionBeforeSave ~= latestVersion description: 'new version'. - self assert: (latestVersion parents includes: versionBeforeSave) description: 'ancestry'. - self assert: latestVersion - equals: workingCopy loadedHistorian version - description: 'stable version'. - self assertVersion: latestVersion containsPackage: packageInfo. - self assertVersion: latestVersion containsClass: anotherClass. - self assertVersion: latestVersion containsMethod: anotherClass >> #addedMethod. - self assertVersion: latestVersion containsClass: sampleClass. - self assertVersion: latestVersion containsMethod: sampleClass >> #firstMethod. - self assert: artifactId equals: (workingCopy artifactAt: path) id]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testTrackingObject.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testTrackingObject.st deleted file mode 100644 index ffced6ef0..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testTrackingObject.st +++ /dev/null @@ -1,32 +0,0 @@ -tests -testTrackingObject - | object firstVersion latestVersion artifactId | - object := ValueHolder new contents: 'Original text'. - repository withUnitOfWork: - [workingCopy add: object at: 'my object'. - artifactId := (workingCopy artifactAt: 'my object') id. - workingCopy saveVersionWithMessage: 'Add object'. - firstVersion := workingCopy baseVersion. - self deny: (workingCopy patchRelativeToBase: firstVersion) hasChanges; - assert: artifactId equals: (firstVersion artifactAt: 'my object') id. - object contents: 'New value'. - workingCopy saveVersionWithMessage: 'Update object'. - self denyChangesInWorkingCopy. - object contents: 'New, unsaved value'. - latestVersion := workingCopy baseVersion. - self assert: artifactId equals: (latestVersion artifactAt: 'my object') id. - - self assert: (latestVersion parents includes: firstVersion) description: 'ancestry'. - workingCopy loadVersion: firstVersion interactive: false. - self assert: (workingCopy baseVersion = firstVersion). - self assert: (workingCopy loadedHistorian version = firstVersion). - self assert: 'Original text' equals: object contents. - self deny: (workingCopy patchRelativeToBase: firstVersion) hasChanges. - self assert: artifactId equals: (workingCopy artifactAt: 'my object') id. - - workingCopy loadVersion: latestVersion interactive: false. - self assert: (workingCopy baseVersion = latestVersion). - self assert: (workingCopy loadedHistorian version = latestVersion). - self assert: 'New value' equals: object contents. - self deny: (workingCopy patchRelativeToBase: latestVersion) hasChanges. - self assert: artifactId equals: (workingCopy artifactAt: 'my object') id]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testTrackingText.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testTrackingText.st deleted file mode 100644 index e9fd7a792..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testTrackingText.st +++ /dev/null @@ -1,28 +0,0 @@ -tests -testTrackingText - | text firstVersion latestVersion artifactId | - text := Text fromString: 'Original text'. - repository withUnitOfWork: - [workingCopy add: text at: 'my text'. - artifactId := (workingCopy artifactAt: 'my text') id. - workingCopy saveVersionWithMessage: 'add text'. - firstVersion := workingCopy baseVersion. - self assert: artifactId equals: (firstVersion artifactAt: 'my text') id. - text replaceFrom: 1 to: text size with: 'New value'. - workingCopy saveVersionWithMessage: 'add text'. - text replaceFrom: 1 to: text size with: 'New, unsaved value'. - latestVersion := workingCopy baseVersion. - self assert: artifactId equals: (latestVersion artifactAt: 'my text') id. - - self assert: (latestVersion parents includes: firstVersion) description: 'ancestry'. - workingCopy loadVersion: firstVersion interactive: false. - self assert: (workingCopy baseVersion = firstVersion). - self assert: (workingCopy loadedHistorian version = firstVersion). - self assert: 'Original text' equals: text asString. - self assert: artifactId equals: (workingCopy artifactAt: 'my text') id. - - workingCopy loadVersion: latestVersion interactive: false. - self assert: (workingCopy baseVersion = latestVersion). - self assert: (workingCopy loadedHistorian version = latestVersion). - self assert: 'New value' equals: text asString. - self assert: artifactId equals: (workingCopy artifactAt: 'my text') id]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/testTrackingWorkspaceMorph.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/testTrackingWorkspaceMorph.st deleted file mode 100644 index 4f9c689e0..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/testTrackingWorkspaceMorph.st +++ /dev/null @@ -1,36 +0,0 @@ -tests -testTrackingWorkspaceMorph - - | workspace systemWindow bindings previousOwner artifactId | - workspace := Workspace new. - systemWindow := workspace openLabel: 'Workspace for ', self selector. - workspace contents: 'This is a sample.'. - bindings := Dictionary new. - bindings at: #This put: workspace. - bindings at: #toBeDeleted put: 'I will be deleted after saving'. - workspace setBindings: bindings. - "save" - repository withUnitOfWork: - [artifactId := (workingCopy add: systemWindow at: 'sample workspace.morph') id. - workingCopy saveVersionWithMessage: 'add workspace'. - self assert: artifactId equals: (workingCopy baseVersion artifactAt: 'sample workspace.morph') id. - "modify bindings and properties" - workspace contents: 'Changed contents'. - workspace bindings - at: #newVar put: 25; - removeKey: #toBeDeleted. - "restore" - previousOwner := systemWindow owner. - workingCopy loadVersion: workingCopy baseVersion interactive: false. - "assert equal to previous state" - systemWindow owner == previousOwner - ifFalse: [previousOwner privateRemove: systemWindow. "fix it!" - self fail: 'Top owner was changed, but should not have been.']. - self assert: 'Workspace for ', self selector equals: systemWindow label. - self assert: 'This is a sample.' equals: workspace contents. - self assert: workspace == systemWindow model. - self assert: workspace == (workspace bindingOf: #This) value. - self assert: 'I will be deleted after saving' equals: (workspace bindingOf: #toBeDeleted) value. - self deny: (workspace hasBindingOf: #newVar). - self assert: artifactId equals: (workingCopy artifactAt: 'sample workspace.morph') id. - systemWindow delete]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/instance/workingCopy.st b/src/Squot.package/SquotWorkingCopyTest.class/instance/workingCopy.st deleted file mode 100644 index 685b55241..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/instance/workingCopy.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -workingCopy - ^ workingCopy \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTest.class/methodProperties.json b/src/Squot.package/SquotWorkingCopyTest.class/methodProperties.json deleted file mode 100644 index 205a59f86..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/methodProperties.json +++ /dev/null @@ -1,74 +0,0 @@ -{ - "class" : { - "isAbstract" : "jr 1/26/2017 17:27" }, - "instance" : { - "addPackage" : "jr 1/26/2020 23:53", - "assertVersion:containsMethod:" : "jr 7/21/2017 02:59", - "changeLogSuppressor" : "jr 4/29/2018 16:50", - "classFactory" : "jr 10/1/2017 01:44", - "denyChangesInWorkingCopy" : "jr 1/1/2021 22:07", - "expectedFailures" : "jr 7/17/2021 21:58", - "newRepository" : "jr 6/18/2022 16:29", - "newStore" : "jr 1/29/2017 22:20", - "newWorkingCopy" : "jr 1/26/2017 17:05", - "performTest" : "jr 9/22/2020 00:41", - "repositoryClass" : "jr 6/18/2022 16:29", - "repositoryRootDirectory" : "jr 10/31/2017 23:46", - "setUp" : "jr 10/31/2017 23:46", - "tearDown" : "jr 9/20/2019 20:30", - "testAddMultipleObjectsSuccessively" : "jr 10/19/2020 20:51", - "testAdditionNotLoaded" : "jr 2/13/2022 18:46", - "testBaseSnapshotEqualsBaseVersionSnapshot" : "jr 1/3/2021 17:40", - "testCherryPickDoesNotSaveUnrelatedChanges" : "jr 10/24/2020 17:28", - "testCherryPickOfOrphanedVersion" : "jr 2/13/2022 21:38", - "testCherryPickWithConflicts" : "jr 4/12/2020 10:23", - "testCherryPickWithConflictsChooseRemote" : "jr 4/12/2020 10:23", - "testCherryPickWithoutConflicts" : "jr 4/12/2020 10:23", - "testDiffWithParent" : "jr 3/2/2020 22:55", - "testDiscardUnsavedChangeToUnloadedArtifact" : "jr 10/12/2020 22:48", - "testKeptObjectAfterMergeInIncmoingLoadOrderPosition" : "jr 10/31/2020 14:35", - "testKeptObjectAfterMergeInSameLoadOrderPosition" : "jr 10/31/2020 14:27", - "testMergeAndLoadUnloadedArtifact" : "jr 2/13/2022 18:49", - "testMergeFastForward" : "jr 9/22/2020 22:19", - "testMergeRemovalAndChange" : "jr 2/13/2022 20:55", - "testMergeSingleArtifact" : "jr 1/1/2021 23:56", - "testMergeTwoOrphanedVersions" : "jr 2/13/2022 21:08", - "testMergeVersionWithLoadedObjects" : "jr 3/2/2020 23:35", - "testMergeWithAddedArtifactOnBothSides" : "jr 2/13/2022 22:29", - "testMergeWithConflicts" : "jr 9/22/2020 00:33", - "testMergeWithConflictsChooseRemote" : "jr 9/22/2020 00:35", - "testMergeWithRemovedArtifactOnBothSides" : "jr 9/22/2020 00:29", - "testMergeWithoutConflicts" : "jr 9/22/2020 00:11", - "testOldMergeRemovalAndChange" : "jr 1/1/2021 23:57", - "testOldMergeTwoOrphanedVersions" : "jr 10/12/2020 21:58", - "testOldMergeWithAddedArtifactOnBothSides" : "jr 9/22/2020 00:23", - "testOldMergeWithConflicts" : "jr 9/22/2020 00:26", - "testOldMergeWithConflictsChooseRemote" : "jr 9/22/2020 00:34", - "testOldMergeWithRemovedArtifactOnBothSides" : "jr 9/22/2020 00:28", - "testOldMergeWithoutConflicts" : "jr 9/22/2020 00:14", - "testPatchAndLoadUnloadedArtifact" : "jr 2/13/2022 18:50", - "testPatchUnloadedArtifact" : "jr 10/4/2020 23:57", - "testReaddedObjectAfterMergeInIncomingLoadOrderPosition" : "jr 10/24/2020 18:10", - "testReaddedObjectAfterMergeInSameLoadOrderPosition" : "jr 10/24/2020 18:13", - "testRemovePackage" : "jr 1/26/2020 23:54", - "testRemovedUnsavedArtifactStaysRemoved" : "jr 7/17/2021 20:43", - "testRestoreClass" : "jr 2/13/2022 21:17", - "testRestorePackage" : "jr 2/13/2022 21:18", - "testRevertDoesNotSaveUnrelatedChanges" : "jr 1/23/2022 00:21", - "testRevertOfOrphanedVersion" : "jr 1/22/2022 22:13", - "testRevertWithoutConflicts" : "jr 1/23/2022 00:07", - "testSaveTimestampIsNow" : "jr 8/25/2020 19:13", - "testSaveWithoutAddedArtifact" : "jr 4/18/2022 16:48", - "testSwitchAndMoveOverToBranchAtSameVersion" : "jr 3/2/2020 23:23", - "testSwitchAwayFromOrphanedBranch" : "jr 11/27/2022 18:56", - "testSwitchBranch" : "jr 3/2/2020 23:23", - "testSwitchBranchAndMoveOverUnsavedChanges" : "jr 3/2/2020 23:37", - "testSwitchBranchAndMoveOverUnsavedChangesInAddedArtifact" : "jr 1/2/2021 00:31", - "testSwitchBranchAndMoveOverUnsavedChangesWithConflict" : "jr 3/2/2020 23:37", - "testSwitchToBranchAtSameVersion" : "jr 3/2/2020 23:38", - "testTrackingAClass" : "jr 2/13/2022 21:26", - "testTrackingAPackage" : "jr 2/13/2022 21:26", - "testTrackingObject" : "jr 2/13/2022 21:39", - "testTrackingText" : "jr 2/13/2022 21:26", - "testTrackingWorkspaceMorph" : "jr 2/13/2022 21:28", - "workingCopy" : "jr 9/21/2017 20:58" } } diff --git a/src/Squot.package/SquotWorkingCopyTest.class/properties.json b/src/Squot.package/SquotWorkingCopyTest.class/properties.json deleted file mode 100644 index bedf861e1..000000000 --- a/src/Squot.package/SquotWorkingCopyTest.class/properties.json +++ /dev/null @@ -1,22 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classtraitcomposition" : "TSnapshotAssertionsForMonticello classTrait + TTestCaseSuppressingProgressDisplay classTrait + TTestCaseThatCreatesClassesOrMethods classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 4/29/2018 16:46", - "instvars" : [ - "workingCopy", - "classFactory", - "repositoryDirectory", - "repository", - "store", - "changeLogSuppressor", - "scenario" ], - "name" : "SquotWorkingCopyTest", - "pools" : [ - ], - "super" : "TestCase", - "traitcomposition" : "TSnapshotAssertionsForMonticello + TTestCaseSuppressingProgressDisplay + TTestCaseThatCreatesClassesOrMethods", - "type" : "normal" } diff --git a/src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/README.md b/src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/README.md deleted file mode 100644 index 49751c0ed..000000000 --- a/src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/README.md +++ /dev/null @@ -1,6 +0,0 @@ -I test functionality of the working copy that should not depend on the repository type. - -Instance Variables - workingCopy SquotWorkingCopy on which the tests will be run - repository repository created for the tests - store Store that is used to create snapshots during tests \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/class/isAbstract.st b/src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/class/isAbstract.st deleted file mode 100644 index 255221e41..000000000 --- a/src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/class/isAbstract.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isAbstract - ^ self = SquotWorkingCopyTestIndependentOfRepositoryType \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/instance/newRepository.st b/src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/instance/newRepository.st deleted file mode 100644 index bb2ae20ab..000000000 --- a/src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/instance/newRepository.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -newRepository - ^ SquotInMemoryRepository new \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/instance/newStore.st b/src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/instance/newStore.st deleted file mode 100644 index 7fdc5dc14..000000000 --- a/src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/instance/newStore.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -newStore - ^ SquotImageStore new \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/instance/newWorkingCopy.st b/src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/instance/newWorkingCopy.st deleted file mode 100644 index cf471c0ba..000000000 --- a/src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/instance/newWorkingCopy.st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -newWorkingCopy - ^ self newRepository createWorkingCopy - store: self newStore; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/instance/setUp.st b/src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/instance/setUp.st deleted file mode 100644 index b4cdfa8bf..000000000 --- a/src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/instance/setUp.st +++ /dev/null @@ -1,5 +0,0 @@ -running -setUp - workingCopy := self newWorkingCopy. - repository := workingCopy repository. - store := workingCopy store. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/instance/tearDown.st b/src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/instance/tearDown.st deleted file mode 100644 index aef7e0fee..000000000 --- a/src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/instance/tearDown.st +++ /dev/null @@ -1,6 +0,0 @@ -running -tearDown - workingCopy unload. - (repository respondsTo: #close) ifTrue: [repository close]. - (store respondsTo: #close) ifTrue: [store close]. - repository delete: workingCopy loadedHistorian. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/methodProperties.json b/src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/methodProperties.json deleted file mode 100644 index e35a692df..000000000 --- a/src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - "isAbstract" : "jr 5/4/2019 00:53" }, - "instance" : { - "newRepository" : "jr 6/30/2017 22:14", - "newStore" : "jr 1/29/2017 22:20", - "newWorkingCopy" : "jr 1/26/2017 17:05", - "setUp" : "jr 6/30/2017 22:15", - "tearDown" : "jr 6/30/2017 22:16" } } diff --git a/src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/properties.json b/src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/properties.json deleted file mode 100644 index 3aecbe1e9..000000000 --- a/src/Squot.package/SquotWorkingCopyTestIndependentOfRepositoryType.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 20:02", - "instvars" : [ - "workingCopy", - "repository", - "store" ], - "name" : "SquotWorkingCopyTestIndependentOfRepositoryType", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/README.md b/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/assertConflictMethodHasNotChanged.st b/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/assertConflictMethodHasNotChanged.st deleted file mode 100644 index b609a9d7d..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/assertConflictMethodHasNotChanged.st +++ /dev/null @@ -1,5 +0,0 @@ -asserting -assertConflictMethodHasNotChanged - testCase assert: secondMethodSource - equals: (sampleClass >> #conflictMethod) getSource asString - description: 'conflict method unchanged after merge'. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/assertConflictMethodIncomingEditionLoaded.st b/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/assertConflictMethodIncomingEditionLoaded.st deleted file mode 100644 index 78957ab2c..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/assertConflictMethodIncomingEditionLoaded.st +++ /dev/null @@ -1,4 +0,0 @@ -asserting -assertConflictMethodIncomingEditionLoaded - testCase assert: sampleClass new conflictMethod = 2 - description: 'conflict method should have changed during merge'. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/assertConflictedMethodIncomingEditionPresentIn..st b/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/assertConflictedMethodIncomingEditionPresentIn..st deleted file mode 100644 index 917c43e13..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/assertConflictedMethodIncomingEditionPresentIn..st +++ /dev/null @@ -1,12 +0,0 @@ -asserting -assertConflictedMethodIncomingEditionPresentIn: aMerge - | packageMerge | - packageMerge := aMerge mergeAt: packagePath. - testCase - assert: - (packageMerge incoming packageArtifactDefinitions - anySatisfy: [:each | (each source beginsWith: 'conflictMethod') - and: [each source withBlanksTrimmed endsWith: '^ 2']]) - description: ['remote edition of conflictMethod not on the right side', String cr, - 'found only: ', (packageMerge working packageArtifactDefinitions - inject: String cr into: [:all :each | all, each source, String cr])]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/assertConflictedMethodWorkingEditionPresentIn..st b/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/assertConflictedMethodWorkingEditionPresentIn..st deleted file mode 100644 index ee78c5887..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/assertConflictedMethodWorkingEditionPresentIn..st +++ /dev/null @@ -1,12 +0,0 @@ -asserting -assertConflictedMethodWorkingEditionPresentIn: aMerge - | packageMerge | - packageMerge := aMerge mergeAt: packagePath. - testCase - assert: - (packageMerge working packageArtifactDefinitions - anySatisfy: [:each | (each source beginsWith: 'conflictMethod') - and: [each source withBlanksTrimmed endsWith: '^ 1']]) - description: ['loaded edition of conflictMethod not on the left side', String cr, - 'found only: ', (packageMerge working packageArtifactDefinitions - inject: String cr into: [:all :each | all, each source, String cr])]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/assertThirdMethodLoaded.st b/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/assertThirdMethodLoaded.st deleted file mode 100644 index f7ec39b21..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/assertThirdMethodLoaded.st +++ /dev/null @@ -1,4 +0,0 @@ -asserting -assertThirdMethodLoaded - testCase assert: (sampleClass includesSelector: #thirdMethod) - description: 'third method loaded'. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/assertThirdMethodWillBeAdded..st b/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/assertThirdMethodWillBeAdded..st deleted file mode 100644 index e2fb591ad..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/assertThirdMethodWillBeAdded..st +++ /dev/null @@ -1,11 +0,0 @@ -asserting -assertThirdMethodWillBeAdded: aMerge - | operation | - operation := (aMerge mergeAt: packagePath) mergeOfTrackedObject - modifications - detect: - [:each | - each definition isMethodDefinition - and: [each toSource asString = thirdMethodSource]] - ifNone: [testCase fail: 'third method not in the patch']. - self assert: operation isAddition description: 'third method not added'. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/chooseIncomingEditionOfConflictedMethodIn..st b/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/chooseIncomingEditionOfConflictedMethodIn..st deleted file mode 100644 index 399eb4f73..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/chooseIncomingEditionOfConflictedMethodIn..st +++ /dev/null @@ -1,11 +0,0 @@ -merging -chooseIncomingEditionOfConflictedMethodIn: aMerge - | packageMerge conflictNode | - packageMerge := aMerge mergeAt: packagePath. - testCase assert: - (packageMerge base packageArtifactDefinitions - noneSatisfy: [:each | each source beginsWith: 'conflictMethod']). - conflictNode := packageMerge asDiffTree children first children - detect: [:each | each title beginsWith: 'conflictMethod'] - ifNone: [testCase fail: 'No tree node for conflictMethod found']. - conflictNode chooseRight. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/chooseWorkingEditionOfConflictedMethodIn..st b/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/chooseWorkingEditionOfConflictedMethodIn..st deleted file mode 100644 index 559296f0a..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/chooseWorkingEditionOfConflictedMethodIn..st +++ /dev/null @@ -1,11 +0,0 @@ -merging -chooseWorkingEditionOfConflictedMethodIn: aMerge - | packageMerge conflictNode | - packageMerge := aMerge mergeAt: packagePath. - testCase assert: - (packageMerge base packageArtifactDefinitions - noneSatisfy: [:each | each source beginsWith: 'conflictMethod']). - conflictNode := packageMerge asDiffTree children first children - detect: [:each | each title beginsWith: 'conflictMethod'] - ifNone: [testCase fail: 'No tree node for conflictMethod found']. - conflictNode chooseLeft. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/classFactory.st b/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/classFactory.st deleted file mode 100644 index 89edda88c..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/classFactory.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -classFactory - - ^ classFactory diff --git a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/createBaseVersion.st b/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/createBaseVersion.st deleted file mode 100644 index c61019e19..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/createBaseVersion.st +++ /dev/null @@ -1,9 +0,0 @@ -setUp -createBaseVersion - SystemChangeNotifier uniqueInstance doSilently: [sampleClass := classFactory newClass]. - sampleClass compileSilently: 'firstMethod ^ self' classified: 'methods of first version'. - packageInfo := PackageInfo named: classFactory packageName. - packagePath := (MCSnapshot empty asSquotArtifactForPackage: packageInfo) path. - workingCopy add: packageInfo at: packagePath. - workingCopy saveVersionWithMessage: 'first version'. - firstVersion := workingCopy baseVersion. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/createFirstMergeParent.st b/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/createFirstMergeParent.st deleted file mode 100644 index e7f3fe479..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/createFirstMergeParent.st +++ /dev/null @@ -1,7 +0,0 @@ -setUp -createFirstMergeParent - sampleClass compileSilently: 'conflictMethod ^ 1' - classified: 'conflict methods'. - secondMethodSource := (sampleClass >> #conflictMethod) getSource asString. - workingCopy saveVersionWithMessage: 'second version'. - secondVersion := workingCopy baseVersion. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/createSecondMergeParent.st b/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/createSecondMergeParent.st deleted file mode 100644 index 7bd0f4295..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/createSecondMergeParent.st +++ /dev/null @@ -1,30 +0,0 @@ -setUp -createSecondMergeParent - firstVersion snapshot - in: [:firstSnapshot | - | packageArtifact newSnapshot | - packageArtifact := firstSnapshot artifactAt: packagePath. - newSnapshot := firstSnapshot createNewBuilder - add: ((MCSnapshot fromDefinitions: - packageArtifact packageArtifactDefinitions , - {MCMethodDefinition - className: sampleClass name - selector: #conflictMethod - category: 'conflict methods' - timeStamp: 'whatever' - source: ('conflictMethod ^ 2'). - MCMethodDefinition - className: sampleClass name - selector: #thirdMethod - category: 'methods of third version' - timeStamp: 'whatever' - source: (thirdMethodSource := 'thirdMethod ^ self')}) - asSquotArtifactForPackage: packageInfo); - buildSnapshot. - otherHistorian := repository historianNamed: 'other'. - otherHistorian version: firstVersion. - thirdVersion := otherHistorian - createNewVersion: newSnapshot - with: [:newVersion | - newVersion message: 'third version'; - author: workingCopy defaultAuthor]]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/firstVersion.st b/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/firstVersion.st deleted file mode 100644 index 408bbda3c..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/firstVersion.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -firstVersion - - ^ firstVersion diff --git a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/initializeForTestCase..st b/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/initializeForTestCase..st deleted file mode 100644 index 79fbf1e02..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/initializeForTestCase..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initializeForTestCase: aWorkingCopyTestCase - super initializeForTestCase: aWorkingCopyTestCase. - classFactory := aWorkingCopyTestCase classFactory. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/merge.st b/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/merge.st deleted file mode 100644 index 327cc0b70..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/merge.st +++ /dev/null @@ -1,10 +0,0 @@ -setUp -merge - "Initiate the merge of the prepared versions. - Senders should handle SquotSelectionOfChangesRequested" - | operation | - ^ self repository withUnitOfWork: - [(operation := self workingCopy newMergeOperation) - mergeVersion: thirdVersion; - prepare. - operation]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/oldMerge.st b/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/oldMerge.st deleted file mode 100644 index b64658e3e..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/oldMerge.st +++ /dev/null @@ -1,8 +0,0 @@ -setUp -oldMerge - "Initiate the merge of the prepared versions. - Senders should handle SquotSelectionOfChangesRequested" - self repository withUnitOfWork: - [self workingCopy - mergeVersionInteractively: thirdVersion - ifCanceled: [testCase fail: 'this code should not be reached']]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/packageInfo.st b/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/packageInfo.st deleted file mode 100644 index e30807cad..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/packageInfo.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -packageInfo - - ^ packageInfo diff --git a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/packagePath.st b/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/packagePath.st deleted file mode 100644 index c0240b9fe..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/packagePath.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -packagePath - - ^ packagePath diff --git a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/sampleClass.st b/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/sampleClass.st deleted file mode 100644 index e3b9cf5f0..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/sampleClass.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -sampleClass - ^ sampleClass \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/secondVersion.st b/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/secondVersion.st deleted file mode 100644 index d6888bb28..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/secondVersion.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -secondVersion - - ^ secondVersion diff --git a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/setUp.st b/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/setUp.st deleted file mode 100644 index 793d1a0f3..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/setUp.st +++ /dev/null @@ -1,6 +0,0 @@ -setUp -setUp - repository withUnitOfWork: - [self createBaseVersion; - createFirstMergeParent; - createSecondMergeParent]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/thirdVersion.st b/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/thirdVersion.st deleted file mode 100644 index 033d0ad67..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/instance/thirdVersion.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -thirdVersion - - ^ thirdVersion diff --git a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/methodProperties.json b/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/methodProperties.json deleted file mode 100644 index a25a2ec02..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/methodProperties.json +++ /dev/null @@ -1,26 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "assertConflictMethodHasNotChanged" : "jr 1/5/2020 20:14", - "assertConflictMethodIncomingEditionLoaded" : "jr 1/5/2020 20:04", - "assertConflictedMethodIncomingEditionPresentIn:" : "jr 1/5/2020 18:48", - "assertConflictedMethodWorkingEditionPresentIn:" : "jr 1/5/2020 18:46", - "assertThirdMethodLoaded" : "jr 1/5/2020 19:17", - "assertThirdMethodWillBeAdded:" : "jr 1/5/2020 19:25", - "chooseIncomingEditionOfConflictedMethodIn:" : "jr 1/5/2020 20:01", - "chooseWorkingEditionOfConflictedMethodIn:" : "jr 1/5/2020 19:26", - "classFactory" : "jr 10/24/2020 15:13", - "createBaseVersion" : "jr 1/28/2020 23:04", - "createFirstMergeParent" : "jr 1/28/2020 23:05", - "createSecondMergeParent" : "jr 2/1/2020 00:28", - "firstVersion" : "jr 10/1/2017 01:02", - "initializeForTestCase:" : "jr 10/24/2020 15:12", - "merge" : "jr 9/22/2020 00:31", - "oldMerge" : "jr 9/22/2020 00:18", - "packageInfo" : "jr 10/1/2017 01:02", - "packagePath" : "jr 10/1/2017 01:02", - "sampleClass" : "jr 1/5/2020 20:02", - "secondVersion" : "jr 10/1/2017 01:02", - "setUp" : "jr 3/2/2020 22:52", - "thirdVersion" : "jr 10/1/2017 01:02" } } diff --git a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/properties.json b/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/properties.json deleted file mode 100644 index 21425f102..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeConflictScenario.class/properties.json +++ /dev/null @@ -1,23 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "packageInfo", - "packagePath", - "firstVersion", - "secondVersion", - "thirdVersion", - "sampleClass", - "secondMethodSource", - "thirdMethodSource", - "otherHistorian", - "classFactory" ], - "name" : "SquotWorkingCopyTestMergeConflictScenario", - "pools" : [ - ], - "super" : "SquotWorkingCopyTestScenario", - "type" : "normal" } diff --git a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/README.md b/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/classFactory.st b/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/classFactory.st deleted file mode 100644 index 89edda88c..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/classFactory.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -classFactory - - ^ classFactory diff --git a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/createFirstMergeParent.st b/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/createFirstMergeParent.st deleted file mode 100644 index 746431629..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/createFirstMergeParent.st +++ /dev/null @@ -1,11 +0,0 @@ -running -createFirstMergeParent - SystemChangeNotifier uniqueInstance doSilently: [class1 := classFactory newClass]. - class1 compileSilently: 'firstMethod ^ self' classified: 'methods of first version'. - packageInfo1 := PackageInfo named: classFactory packageName. - packagePath1 := (MCSnapshot empty asSquotArtifactForPackage: packageInfo1) path. - workingCopy add: packageInfo1 at: packagePath1. - workingCopy saveVersionWithMessage: 'first version'. - firstVersion := workingCopy baseVersion. - Environment current packageOrganizer unregisterPackageNamed: classFactory packageName. - classFactory cleanUp. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/createSecondMergeParent.st b/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/createSecondMergeParent.st deleted file mode 100644 index 772deeb77..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/createSecondMergeParent.st +++ /dev/null @@ -1,12 +0,0 @@ -running -createSecondMergeParent - SystemChangeNotifier uniqueInstance doSilently: [class2 := classFactory2 newClass]. - class2 compileSilently: 'secondMethod ^ self' classified: 'methods of second version'. - packageInfo2 := PackageInfo named: classFactory2 packageName. - packagePath2 := (MCSnapshot empty asSquotArtifactForPackage: packageInfo2) path. - otherHistorian := (repository historianNamed: 'other'). - workingCopy loadedHistorian: otherHistorian. - workingCopy removeAt: packagePath1. - workingCopy add: packageInfo2 at: packagePath2. - workingCopy saveVersionWithMessage: 'second version'. - secondVersion := workingCopy baseVersion. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/firstVersion.st b/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/firstVersion.st deleted file mode 100644 index 408bbda3c..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/firstVersion.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -firstVersion - - ^ firstVersion diff --git a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/firstVersionArtifact.st b/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/firstVersionArtifact.st deleted file mode 100644 index 80a91c6df..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/firstVersionArtifact.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -firstVersionArtifact - ^ firstVersion artifactAt: packagePath1 \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/initializeForTestCase..st b/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/initializeForTestCase..st deleted file mode 100644 index 79fbf1e02..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/initializeForTestCase..st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initializeForTestCase: aWorkingCopyTestCase - super initializeForTestCase: aWorkingCopyTestCase. - classFactory := aWorkingCopyTestCase classFactory. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/merge.st b/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/merge.st deleted file mode 100644 index 13b2cbd0e..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/merge.st +++ /dev/null @@ -1,10 +0,0 @@ -running -merge - "Initiate the merge of the prepared versions. - Senders should handle SquotSelectionOfChangesRequested" - | operation | - ^ self repository withUnitOfWork: - [(operation := self workingCopy newMergeOperation) - mergeVersion: firstVersion; - prepare. - operation]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/oldMerge.st b/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/oldMerge.st deleted file mode 100644 index d69d095b3..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/oldMerge.st +++ /dev/null @@ -1,8 +0,0 @@ -running -oldMerge - "Initiate the merge of the prepared versions. - Senders should handle SquotSelectionOfChangesRequested" - self repository withUnitOfWork: - [self workingCopy - mergeVersionInteractively: firstVersion - ifCanceled: [testCase fail: 'this code should not be reached']]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/secondVersion.st b/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/secondVersion.st deleted file mode 100644 index d6888bb28..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/secondVersion.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -secondVersion - - ^ secondVersion diff --git a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/secondVersionArtifact.st b/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/secondVersionArtifact.st deleted file mode 100644 index cd9d4015d..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/secondVersionArtifact.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -secondVersionArtifact - ^ secondVersion artifactAt: packagePath2 \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/setUp.st b/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/setUp.st deleted file mode 100644 index 50c52e76a..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/setUp.st +++ /dev/null @@ -1,7 +0,0 @@ -running -setUp - classFactory2 := SquotClassFactoryForTestCase new - packageName: (classFactory packageName, '-2') asSymbol. - repository withUnitOfWork: - [self createFirstMergeParent; - createSecondMergeParent]. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/tearDown.st b/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/tearDown.st deleted file mode 100644 index db9e6b02c..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/instance/tearDown.st +++ /dev/null @@ -1,7 +0,0 @@ -running -tearDown - SystemChangeNotifier uniqueInstance doSilently: [classFactory2 cleanUp]. - (MCWorkingCopy allManagers - detect: [:each | each packageName = classFactory2 packageName] ifNone: []) - ifNotNil: [:createdWorkingCopy | createdWorkingCopy unregister]. - super tearDown. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/methodProperties.json b/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/methodProperties.json deleted file mode 100644 index e8a82e1f5..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/methodProperties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "classFactory" : "jr 10/24/2020 15:13", - "createFirstMergeParent" : "jr 1/28/2020 23:05", - "createSecondMergeParent" : "jr 10/19/2020 20:37", - "firstVersion" : "jr 10/1/2017 01:02", - "firstVersionArtifact" : "jr 2/13/2022 21:06", - "initializeForTestCase:" : "jr 10/24/2020 15:12", - "merge" : "jr 9/22/2020 00:31", - "oldMerge" : "jr 9/22/2020 00:19", - "secondVersion" : "jr 10/1/2017 01:02", - "secondVersionArtifact" : "jr 2/13/2022 21:07", - "setUp" : "jr 3/2/2020 22:52", - "tearDown" : "jr 4/8/2018 00:48" } } diff --git a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/properties.json b/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/properties.json deleted file mode 100644 index 160e27b98..000000000 --- a/src/Squot.package/SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario.class/properties.json +++ /dev/null @@ -1,25 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "packageInfo1", - "packageInfo2", - "packagePath1", - "packagePath2", - "firstVersion", - "secondVersion", - "class1", - "class2", - "secondMethodSource", - "otherHistorian", - "classFactory2", - "classFactory" ], - "name" : "SquotWorkingCopyTestMergeTwoOrphanedVersionsScenario", - "pools" : [ - ], - "super" : "SquotWorkingCopyTestScenario", - "type" : "normal" } diff --git a/src/Squot.package/SquotWorkingCopyTestScenario.class/README.md b/src/Squot.package/SquotWorkingCopyTestScenario.class/README.md deleted file mode 100644 index a9ca3fac9..000000000 --- a/src/Squot.package/SquotWorkingCopyTestScenario.class/README.md +++ /dev/null @@ -1,7 +0,0 @@ -I provide methods to make up a test scenario in Squot, to be used in different tests. - -Instance Variables - classFactory: - repository: - workingCopy: - store: the store of the workingCopy diff --git a/src/Squot.package/SquotWorkingCopyTestScenario.class/class/forTestCase..st b/src/Squot.package/SquotWorkingCopyTestScenario.class/class/forTestCase..st deleted file mode 100644 index 9a549766c..000000000 --- a/src/Squot.package/SquotWorkingCopyTestScenario.class/class/forTestCase..st +++ /dev/null @@ -1,6 +0,0 @@ -instance creation -forTestCase: aWorkingCopyTestCase - ^ self basicNew - initializeForTestCase: aWorkingCopyTestCase; - setUp; - yourself \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/assert..st b/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/assert..st deleted file mode 100644 index 519a889c8..000000000 --- a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/assert..st +++ /dev/null @@ -1,3 +0,0 @@ -asserting -assert: aBooleanOrBlock - ^ testCase assert: aBooleanOrBlock \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/assert.description..st b/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/assert.description..st deleted file mode 100644 index 6358cc008..000000000 --- a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/assert.description..st +++ /dev/null @@ -1,3 +0,0 @@ -asserting -assert: aBooleanOrBlock description: aStringOrBlock - ^ testCase assert: aBooleanOrBlock description: aStringOrBlock \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/assert.equals..st b/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/assert.equals..st deleted file mode 100644 index 393d935e3..000000000 --- a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/assert.equals..st +++ /dev/null @@ -1,3 +0,0 @@ -asserting -assert: expected equals: actual - ^ testCase assert: expected equals: actual \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/assert.equals.description..st b/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/assert.equals.description..st deleted file mode 100644 index 5f133b7ba..000000000 --- a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/assert.equals.description..st +++ /dev/null @@ -1,3 +0,0 @@ -asserting -assert: expected equals: actual description: aString - ^ testCase assert: expected equals: actual description: aString \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/deny..st b/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/deny..st deleted file mode 100644 index 2e34ca585..000000000 --- a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/deny..st +++ /dev/null @@ -1,3 +0,0 @@ -asserting -deny: aBooleanOrBlock - ^ testCase deny: aBooleanOrBlock \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/deny.description..st b/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/deny.description..st deleted file mode 100644 index 2c16e7547..000000000 --- a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/deny.description..st +++ /dev/null @@ -1,3 +0,0 @@ -asserting -deny: aBooleanOrBlock description: aString - ^ testCase deny: aBooleanOrBlock description: aString \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/initializeForTestCase..st b/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/initializeForTestCase..st deleted file mode 100644 index 0e0d70855..000000000 --- a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/initializeForTestCase..st +++ /dev/null @@ -1,6 +0,0 @@ -initialize-release -initializeForTestCase: aWorkingCopyTestCase - testCase := aWorkingCopyTestCase. - workingCopy := aWorkingCopyTestCase workingCopy. - repository := workingCopy repository. - store := workingCopy store. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/repository.st b/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/repository.st deleted file mode 100644 index 329f10902..000000000 --- a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/repository.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -repository - - ^ repository diff --git a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/setUp.st b/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/setUp.st deleted file mode 100644 index d045c24d9..000000000 --- a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/setUp.st +++ /dev/null @@ -1,3 +0,0 @@ -running -setUp - self subclassResponsibility. \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/should.raise..st b/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/should.raise..st deleted file mode 100644 index 72c7a6962..000000000 --- a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/should.raise..st +++ /dev/null @@ -1,3 +0,0 @@ -asserting -should: aBlock raise: anExceptionalEvent - ^ testCase should: aBlock raise: anExceptionalEvent \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/shouldnt.raise..st b/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/shouldnt.raise..st deleted file mode 100644 index c7a78d26d..000000000 --- a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/shouldnt.raise..st +++ /dev/null @@ -1,3 +0,0 @@ -asserting -shouldnt: aBlock raise: anExceptionalEvent - ^ testCase shouldnt: aBlock raise: anExceptionalEvent \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/store.st b/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/store.st deleted file mode 100644 index 41b4e6f32..000000000 --- a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/store.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -store - - ^ store diff --git a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/tearDown.st b/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/tearDown.st deleted file mode 100644 index 4f68eb48b..000000000 --- a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/tearDown.st +++ /dev/null @@ -1,3 +0,0 @@ -running -tearDown - "Subclasses may override, but they should not tear down what was supplied by the TestCase (e.g. the classFactory)." \ No newline at end of file diff --git a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/workingCopy.st b/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/workingCopy.st deleted file mode 100644 index ae8f3b005..000000000 --- a/src/Squot.package/SquotWorkingCopyTestScenario.class/instance/workingCopy.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -workingCopy - - ^ workingCopy diff --git a/src/Squot.package/SquotWorkingCopyTestScenario.class/methodProperties.json b/src/Squot.package/SquotWorkingCopyTestScenario.class/methodProperties.json deleted file mode 100644 index 192ee2ecf..000000000 --- a/src/Squot.package/SquotWorkingCopyTestScenario.class/methodProperties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "class" : { - "forTestCase:" : "jr 10/24/2020 15:11" }, - "instance" : { - "assert:" : "jr 10/24/2020 15:24", - "assert:description:" : "jr 10/24/2020 15:24", - "assert:equals:" : "jr 10/24/2020 15:24", - "assert:equals:description:" : "jr 10/24/2020 15:24", - "deny:" : "jr 10/24/2020 15:25", - "deny:description:" : "jr 10/24/2020 15:25", - "initializeForTestCase:" : "jr 10/24/2020 15:11", - "repository" : "jr 10/1/2017 00:57", - "setUp" : "jr 10/1/2017 01:42", - "should:raise:" : "jr 10/24/2020 15:25", - "shouldnt:raise:" : "jr 10/24/2020 15:25", - "store" : "jr 10/1/2017 00:57", - "tearDown" : "jr 4/7/2018 19:46", - "workingCopy" : "jr 10/1/2017 00:57" } } diff --git a/src/Squot.package/SquotWorkingCopyTestScenario.class/properties.json b/src/Squot.package/SquotWorkingCopyTestScenario.class/properties.json deleted file mode 100644 index 6cbed144a..000000000 --- a/src/Squot.package/SquotWorkingCopyTestScenario.class/properties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "category" : "Squot-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 20:04", - "instvars" : [ - "workingCopy", - "repository", - "store", - "testCase" ], - "name" : "SquotWorkingCopyTestScenario", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/Squot.package/String.extension/class/squotMirror.st b/src/Squot.package/String.extension/class/squotMirror.st deleted file mode 100644 index f88d58074..000000000 --- a/src/Squot.package/String.extension/class/squotMirror.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-trackable -squotMirror - ^ SquotStringMirror class: self \ No newline at end of file diff --git a/src/Squot.package/String.extension/class/squotTextFileSerializer.st b/src/Squot.package/String.extension/class/squotTextFileSerializer.st deleted file mode 100644 index 24ef75057..000000000 --- a/src/Squot.package/String.extension/class/squotTextFileSerializer.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-trackable -squotTextFileSerializer - - ^ SquotTextFileCodec \ No newline at end of file diff --git a/src/Squot.package/String.extension/instance/asSquotVersionIn..st b/src/Squot.package/String.extension/instance/asSquotVersionIn..st deleted file mode 100644 index 3a41be35a..000000000 --- a/src/Squot.package/String.extension/instance/asSquotVersionIn..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-enumerating versions -asSquotVersionIn: aRepository - ^ aRepository findVersionByString: self \ No newline at end of file diff --git a/src/Squot.package/String.extension/instance/squotPathSegments.st b/src/Squot.package/String.extension/instance/squotPathSegments.st deleted file mode 100644 index e7933736e..000000000 --- a/src/Squot.package/String.extension/instance/squotPathSegments.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot -squotPathSegments - ^ self findTokens: SquotPath delimiter asString \ No newline at end of file diff --git a/src/Squot.package/String.extension/methodProperties.json b/src/Squot.package/String.extension/methodProperties.json deleted file mode 100644 index 156165f2c..000000000 --- a/src/Squot.package/String.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - "squotMirror" : "jr 12/16/2020 01:53", - "squotTextFileSerializer" : "jr 3/17/2019 00:45" }, - "instance" : { - "asSquotVersionIn:" : "jr 2/8/2020 20:43", - "squotPathSegments" : "jr 5/8/2017 20:01" } } diff --git a/src/Squot.package/String.extension/properties.json b/src/Squot.package/String.extension/properties.json deleted file mode 100644 index c21385076..000000000 --- a/src/Squot.package/String.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "String" } diff --git a/src/Squot.package/Symbol.extension/class/squotMirror.st b/src/Squot.package/Symbol.extension/class/squotMirror.st deleted file mode 100644 index 53a5172cf..000000000 --- a/src/Squot.package/Symbol.extension/class/squotMirror.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-trackable -squotMirror - ^ SquotSystemSingletonMirror class: self \ No newline at end of file diff --git a/src/Squot.package/Symbol.extension/instance/canHaveNameAssignedBySquot.st b/src/Squot.package/Symbol.extension/instance/canHaveNameAssignedBySquot.st deleted file mode 100644 index ed95c7aaf..000000000 --- a/src/Squot.package/Symbol.extension/instance/canHaveNameAssignedBySquot.st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-shadow-capturing -canHaveNameAssignedBySquot - "Symbols should be treated like trivial objects, such as numbers, and must never get a - name to track their identity." - ^ false \ No newline at end of file diff --git a/src/Squot.package/Symbol.extension/instance/captureWithSquot..st b/src/Squot.package/Symbol.extension/instance/captureWithSquot..st deleted file mode 100644 index 549038e17..000000000 --- a/src/Squot.package/Symbol.extension/instance/captureWithSquot..st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-trackable-capturing -captureWithSquot: anObjectCapturer - "Symbols can be treated like numbers: each is trivially available everywhere." - self flag: #deprecated. "Ask the mirror instead." - ^ anObjectCapturer capturePrimitiveValue: self \ No newline at end of file diff --git a/src/Squot.package/Symbol.extension/instance/squotShadowFactory.st b/src/Squot.package/Symbol.extension/instance/squotShadowFactory.st deleted file mode 100644 index adf943109..000000000 --- a/src/Squot.package/Symbol.extension/instance/squotShadowFactory.st +++ /dev/null @@ -1,5 +0,0 @@ -*Squot-trackable-capturing -squotShadowFactory - "Symbols can be treated like numbers: each is trivially available everywhere." - self flag: #deprecated. "Ask the mirror instead." - ^ SquotPrimitiveValue \ No newline at end of file diff --git a/src/Squot.package/Symbol.extension/instance/squotShouldKeepIdentity.st b/src/Squot.package/Symbol.extension/instance/squotShouldKeepIdentity.st deleted file mode 100644 index 616492141..000000000 --- a/src/Squot.package/Symbol.extension/instance/squotShouldKeepIdentity.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-trackable-capturing -squotShouldKeepIdentity - ^ false "equal symbols are identical anyway, no need for Squot to keep track of it" \ No newline at end of file diff --git a/src/Squot.package/Symbol.extension/methodProperties.json b/src/Squot.package/Symbol.extension/methodProperties.json deleted file mode 100644 index 5a37cb51b..000000000 --- a/src/Squot.package/Symbol.extension/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - "squotMirror" : "jr 4/7/2021 22:07" }, - "instance" : { - "canHaveNameAssignedBySquot" : "jr 9/25/2019 14:35", - "captureWithSquot:" : "jr 1/11/2021 00:01", - "squotShadowFactory" : "jr 1/10/2021 23:57", - "squotShouldKeepIdentity" : "jr 7/16/2017 22:25" } } diff --git a/src/Squot.package/Symbol.extension/properties.json b/src/Squot.package/Symbol.extension/properties.json deleted file mode 100644 index 565e67b02..000000000 --- a/src/Squot.package/Symbol.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Symbol" } diff --git a/src/Squot.package/TSnapshotAssertionsForMonticello.trait/README.md b/src/Squot.package/TSnapshotAssertionsForMonticello.trait/README.md deleted file mode 100644 index 6a976f724..000000000 --- a/src/Squot.package/TSnapshotAssertionsForMonticello.trait/README.md +++ /dev/null @@ -1 +0,0 @@ -I can perform common assertions on Monticello versions. \ No newline at end of file diff --git a/src/Squot.package/TSnapshotAssertionsForMonticello.trait/instance/assertVersion.containsClass..st b/src/Squot.package/TSnapshotAssertionsForMonticello.trait/instance/assertVersion.containsClass..st deleted file mode 100644 index 8586d1c92..000000000 --- a/src/Squot.package/TSnapshotAssertionsForMonticello.trait/instance/assertVersion.containsClass..st +++ /dev/null @@ -1,12 +0,0 @@ -utilities -assertVersion: aVersion containsClass: aClass - aVersion snapshot artifactsDo: [:eachArtifact | - ((eachArtifact storeInfo at: #objectClassName ifAbsent: ['']) = #PackageInfo) - ifTrue: [eachArtifact packageArtifactDefinitions - detect: [:each | each isClassDefinition - and: [each className = aClass name]] ifFound: [:it | ^ eachArtifact] ifNone: []]. - ((eachArtifact storeInfo at: #objectClassName ifAbsent: ['']) endsWith: ' class') - ifTrue: [eachArtifact packageArtifactDefinitions - detect: [:each | each isClassDefinition - and: [each className = aClass name]] ifFound: [:it | ^ eachArtifact] ifNone: []]]. - self fail: 'Class not found'. \ No newline at end of file diff --git a/src/Squot.package/TSnapshotAssertionsForMonticello.trait/instance/assertVersion.containsMethod..st b/src/Squot.package/TSnapshotAssertionsForMonticello.trait/instance/assertVersion.containsMethod..st deleted file mode 100644 index 033d59bc2..000000000 --- a/src/Squot.package/TSnapshotAssertionsForMonticello.trait/instance/assertVersion.containsMethod..st +++ /dev/null @@ -1,9 +0,0 @@ -utilities -assertVersion: aVersion containsMethod: aCompiledMethod - | artifact | - artifact := self assertVersion: aVersion containsClass: aCompiledMethod methodClass. - artifact content definitions detect: [:each | each isMethodDefinition - and: [(each className = aCompiledMethod methodClass name) - and: [(each selector = aCompiledMethod selector) - and: [each source asString = aCompiledMethod getSource asString]]]] - ifNone: [self fail: 'Method not found']. \ No newline at end of file diff --git a/src/Squot.package/TSnapshotAssertionsForMonticello.trait/instance/assertVersion.containsPackage..st b/src/Squot.package/TSnapshotAssertionsForMonticello.trait/instance/assertVersion.containsPackage..st deleted file mode 100644 index df4437035..000000000 --- a/src/Squot.package/TSnapshotAssertionsForMonticello.trait/instance/assertVersion.containsPackage..st +++ /dev/null @@ -1,6 +0,0 @@ -utilities -assertVersion: aVersion containsPackage: packageInfo - aVersion snapshot artifactsDo: [:each | - ((each storeInfo at: #objectClassName ifAbsent: ['']) = packageInfo class name) - ifTrue: [^ true]]. - self fail: 'Package not found'. \ No newline at end of file diff --git a/src/Squot.package/TSnapshotAssertionsForMonticello.trait/instance/assertVersion.doesNotContainMethod..st b/src/Squot.package/TSnapshotAssertionsForMonticello.trait/instance/assertVersion.doesNotContainMethod..st deleted file mode 100644 index ded8e969f..000000000 --- a/src/Squot.package/TSnapshotAssertionsForMonticello.trait/instance/assertVersion.doesNotContainMethod..st +++ /dev/null @@ -1,9 +0,0 @@ -utilities -assertVersion: aVersion doesNotContainMethod: aCompiledMethod - | artifact | - artifact := self assertVersion: aVersion containsClass: aCompiledMethod methodClass. - artifact content definitions detect: [:each | each isMethodDefinition - and: [(each className = aCompiledMethod methodClass name) - and: [each selector = aCompiledMethod selector]]] - ifNone: [^ self]. - self fail: 'method present, but should be absent'. \ No newline at end of file diff --git a/src/Squot.package/TSnapshotAssertionsForMonticello.trait/methodProperties.json b/src/Squot.package/TSnapshotAssertionsForMonticello.trait/methodProperties.json deleted file mode 100644 index 58037dd60..000000000 --- a/src/Squot.package/TSnapshotAssertionsForMonticello.trait/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "assertVersion:containsClass:" : "jr 1/27/2020 00:01", - "assertVersion:containsMethod:" : "jr 2/4/2017 02:21", - "assertVersion:containsPackage:" : "jr 1/27/2020 00:00", - "assertVersion:doesNotContainMethod:" : "jr 2/8/2017 23:49" } } diff --git a/src/Squot.package/TSnapshotAssertionsForMonticello.trait/properties.json b/src/Squot.package/TSnapshotAssertionsForMonticello.trait/properties.json deleted file mode 100644 index 4a6df327f..000000000 --- a/src/Squot.package/TSnapshotAssertionsForMonticello.trait/properties.json +++ /dev/null @@ -1,4 +0,0 @@ -{ - "category" : "Squot-Tests", - "commentStamp" : "jr 3/17/2018 20:08", - "name" : "TSnapshotAssertionsForMonticello" } diff --git a/src/Squot.package/TSquotAddition.trait/README.md b/src/Squot.package/TSquotAddition.trait/README.md deleted file mode 100644 index 9138e7123..000000000 --- a/src/Squot.package/TSquotAddition.trait/README.md +++ /dev/null @@ -1 +0,0 @@ -My users are additions in diffs and patches. \ No newline at end of file diff --git a/src/Squot.package/TSquotAddition.trait/instance/isAddition.st b/src/Squot.package/TSquotAddition.trait/instance/isAddition.st deleted file mode 100644 index 03b0df536..000000000 --- a/src/Squot.package/TSquotAddition.trait/instance/isAddition.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isAddition - ^ true \ No newline at end of file diff --git a/src/Squot.package/TSquotAddition.trait/instance/isModification.st b/src/Squot.package/TSquotAddition.trait/instance/isModification.st deleted file mode 100644 index c39c76071..000000000 --- a/src/Squot.package/TSquotAddition.trait/instance/isModification.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isModification - ^ false \ No newline at end of file diff --git a/src/Squot.package/TSquotAddition.trait/instance/isRemoval.st b/src/Squot.package/TSquotAddition.trait/instance/isRemoval.st deleted file mode 100644 index 8f7f6d5ac..000000000 --- a/src/Squot.package/TSquotAddition.trait/instance/isRemoval.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isRemoval - ^ false \ No newline at end of file diff --git a/src/Squot.package/TSquotAddition.trait/instance/squotHasChanges.st b/src/Squot.package/TSquotAddition.trait/instance/squotHasChanges.st deleted file mode 100644 index 8cc45196a..000000000 --- a/src/Squot.package/TSquotAddition.trait/instance/squotHasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -squotHasChanges - ^ true \ No newline at end of file diff --git a/src/Squot.package/TSquotAddition.trait/methodProperties.json b/src/Squot.package/TSquotAddition.trait/methodProperties.json deleted file mode 100644 index b340b31ac..000000000 --- a/src/Squot.package/TSquotAddition.trait/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "isAddition" : "jr 9/13/2019 12:22", - "isModification" : "jr 9/21/2019 21:44", - "isRemoval" : "jr 9/21/2019 21:46", - "squotHasChanges" : "jr 12/7/2020 21:59" } } diff --git a/src/Squot.package/TSquotAddition.trait/properties.json b/src/Squot.package/TSquotAddition.trait/properties.json deleted file mode 100644 index 2b20e1192..000000000 --- a/src/Squot.package/TSquotAddition.trait/properties.json +++ /dev/null @@ -1,4 +0,0 @@ -{ - "category" : "Squot-Diffs", - "commentStamp" : "jr 9/20/2019 21:52", - "name" : "TSquotAddition" } diff --git a/src/Squot.package/TSquotArtifact.trait/README.md b/src/Squot.package/TSquotArtifact.trait/README.md deleted file mode 100644 index 1ea3fb263..000000000 --- a/src/Squot.package/TSquotArtifact.trait/README.md +++ /dev/null @@ -1 +0,0 @@ -An element of a TSquotObjectContainer that can be loaded into memory (or already is). Usually contains an object graph that is a module of the system tracked in a particular repository. But it could also be something different. \ No newline at end of file diff --git a/src/Squot.package/TSquotArtifact.trait/instance/asBaseDiff.against..st b/src/Squot.package/TSquotArtifact.trait/instance/asBaseDiff.against..st deleted file mode 100644 index 4b6545fd5..000000000 --- a/src/Squot.package/TSquotArtifact.trait/instance/asBaseDiff.against..st +++ /dev/null @@ -1,7 +0,0 @@ -private comparing -asBaseDiff: leftArtifactContent against: rightArtifactContent - "Triple dispatch with diffContentAgainstThatOf:withBase:" - "New name suggestions: - mergeGraphAsBaseOf: workingGraph with: incomingGraph - withGraphAsBaseMerge: workingGraph with: incomingGraph" - ^ leftArtifactContent squotDiffAgainst: rightArtifactContent withBase: self content \ No newline at end of file diff --git a/src/Squot.package/TSquotArtifact.trait/instance/browseFromSquotWorkingCopyArtifact..st b/src/Squot.package/TSquotArtifact.trait/instance/browseFromSquotWorkingCopyArtifact..st deleted file mode 100644 index e36ca0fae..000000000 --- a/src/Squot.package/TSquotArtifact.trait/instance/browseFromSquotWorkingCopyArtifact..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -browseFromSquotWorkingCopyArtifact: aSquotWorkingCopyArtifact - ^ aSquotWorkingCopyArtifact browse \ No newline at end of file diff --git a/src/Squot.package/TSquotArtifact.trait/instance/copyWithDiffApplied..st b/src/Squot.package/TSquotArtifact.trait/instance/copyWithDiffApplied..st deleted file mode 100644 index 8e4eac9a3..000000000 --- a/src/Squot.package/TSquotArtifact.trait/instance/copyWithDiffApplied..st +++ /dev/null @@ -1,3 +0,0 @@ -copying -copyWithDiffApplied: aDiff - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotArtifact.trait/instance/diffAgainst..st b/src/Squot.package/TSquotArtifact.trait/instance/diffAgainst..st deleted file mode 100644 index e14f1d48c..000000000 --- a/src/Squot.package/TSquotArtifact.trait/instance/diffAgainst..st +++ /dev/null @@ -1,6 +0,0 @@ -comparing -diffAgainst: anArtifact - ^ SquotArtifactModification left: self right: anArtifact - isLoadedInWorkingCopy: ((anArtifact respondsTo: #isLoaded) and: [anArtifact isLoaded]) - contentDiff: (self content squotDiffAgainst: anArtifact content) - metadataDiff: (self storeInfo squotDiffAgainst: anArtifact storeInfo). \ No newline at end of file diff --git a/src/Squot.package/TSquotArtifact.trait/instance/diffContentAgainstThatOf..st b/src/Squot.package/TSquotArtifact.trait/instance/diffContentAgainstThatOf..st deleted file mode 100644 index 667393a25..000000000 --- a/src/Squot.package/TSquotArtifact.trait/instance/diffContentAgainstThatOf..st +++ /dev/null @@ -1,4 +0,0 @@ -private comparing -diffContentAgainstThatOf: anArtifact - "Double dispatch with reverseDiffContentAgainst:" - ^ anArtifact reverseDiffContentAgainst: self content \ No newline at end of file diff --git a/src/Squot.package/TSquotArtifact.trait/instance/diffContentAgainstThatOf.withBase..st b/src/Squot.package/TSquotArtifact.trait/instance/diffContentAgainstThatOf.withBase..st deleted file mode 100644 index 02df03bb5..000000000 --- a/src/Squot.package/TSquotArtifact.trait/instance/diffContentAgainstThatOf.withBase..st +++ /dev/null @@ -1,6 +0,0 @@ -private comparing -diffContentAgainstThatOf: anArtifact withBase: baseArtifact - "Triple dispatch with reverseDiffContentAgainst:withBase:" - "New name suggestions: - mergeGraphWithThatOf: anArtifact basedOn: baseArtifact" - ^ anArtifact reverseDiffContentAgainst: self content withBase: baseArtifact \ No newline at end of file diff --git a/src/Squot.package/TSquotArtifact.trait/instance/isLoadable.st b/src/Squot.package/TSquotArtifact.trait/instance/isLoadable.st deleted file mode 100644 index f66b90be7..000000000 --- a/src/Squot.package/TSquotArtifact.trait/instance/isLoadable.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -isLoadable - "Answer whether this artifact is meant to be loaded into the Smalltalk memory." - ^ true \ No newline at end of file diff --git a/src/Squot.package/TSquotArtifact.trait/instance/mergeDiffWith.basedOn..st b/src/Squot.package/TSquotArtifact.trait/instance/mergeDiffWith.basedOn..st deleted file mode 100644 index 2af720c78..000000000 --- a/src/Squot.package/TSquotArtifact.trait/instance/mergeDiffWith.basedOn..st +++ /dev/null @@ -1,5 +0,0 @@ -merging -mergeDiffWith: otherArtifact basedOn: baseArtifact - "New name suggestions: - mergeWith: otherArtifact basedOn: baseArtifact" - ^ self mergeWith: otherArtifact basedOn: baseArtifact \ No newline at end of file diff --git a/src/Squot.package/TSquotArtifact.trait/instance/mergeWith.basedOn..st b/src/Squot.package/TSquotArtifact.trait/instance/mergeWith.basedOn..st deleted file mode 100644 index e1c9db8a6..000000000 --- a/src/Squot.package/TSquotArtifact.trait/instance/mergeWith.basedOn..st +++ /dev/null @@ -1,3 +0,0 @@ -merging -mergeWith: otherArtifact basedOn: baseArtifact - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotArtifact.trait/instance/mergeWithoutBaseWith..st b/src/Squot.package/TSquotArtifact.trait/instance/mergeWithoutBaseWith..st deleted file mode 100644 index e3f9390d7..000000000 --- a/src/Squot.package/TSquotArtifact.trait/instance/mergeWithoutBaseWith..st +++ /dev/null @@ -1,5 +0,0 @@ -merging -mergeWithoutBaseWith: anArtifact - | emptyBase | - emptyBase := SquotArtifact path: self path content: (SquotShadowGraph withSingleShadow: Object new captureWithSquot). - ^ self mergeWith: anArtifact basedOn: emptyBase \ No newline at end of file diff --git a/src/Squot.package/TSquotArtifact.trait/instance/packageArtifactDefinitions.st b/src/Squot.package/TSquotArtifact.trait/instance/packageArtifactDefinitions.st deleted file mode 100644 index 7eaa33b13..000000000 --- a/src/Squot.package/TSquotArtifact.trait/instance/packageArtifactDefinitions.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Packages -packageArtifactDefinitions - ^ self shadowOfTrackedObject definitions \ No newline at end of file diff --git a/src/Squot.package/TSquotArtifact.trait/instance/packageName.st b/src/Squot.package/TSquotArtifact.trait/instance/packageName.st deleted file mode 100644 index 6afebdf3d..000000000 --- a/src/Squot.package/TSquotArtifact.trait/instance/packageName.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -packageName - ^ self shadowOfTrackedObject packageName \ No newline at end of file diff --git a/src/Squot.package/TSquotArtifact.trait/instance/reverseDiffContentAgainst..st b/src/Squot.package/TSquotArtifact.trait/instance/reverseDiffContentAgainst..st deleted file mode 100644 index 3d1d5ff18..000000000 --- a/src/Squot.package/TSquotArtifact.trait/instance/reverseDiffContentAgainst..st +++ /dev/null @@ -1,4 +0,0 @@ -private comparing -reverseDiffContentAgainst: otherContent - "Double dispatch with diffContentAgainstThatOf:" - ^ otherContent squotDiffAgainst: self content \ No newline at end of file diff --git a/src/Squot.package/TSquotArtifact.trait/instance/reverseDiffContentAgainst.withBase..st b/src/Squot.package/TSquotArtifact.trait/instance/reverseDiffContentAgainst.withBase..st deleted file mode 100644 index 2457d7c54..000000000 --- a/src/Squot.package/TSquotArtifact.trait/instance/reverseDiffContentAgainst.withBase..st +++ /dev/null @@ -1,7 +0,0 @@ -private comparing -reverseDiffContentAgainst: otherContent withBase: baseArtifact - "Triple dispatch with diffContentAgainstThatOf:withBase:" - "New name suggestions: - graphMergedWith: otherGraph basedOn: baseArtifact - mergeGraphWith: otherGraph basedOn: baseArtifact" - ^ baseArtifact asBaseDiff: otherContent against: self content \ No newline at end of file diff --git a/src/Squot.package/TSquotArtifact.trait/instance/serializerName.st b/src/Squot.package/TSquotArtifact.trait/instance/serializerName.st deleted file mode 100644 index f29d4f99e..000000000 --- a/src/Squot.package/TSquotArtifact.trait/instance/serializerName.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-FileSystemStore -serializerName - ^ self storeInfo serializer \ No newline at end of file diff --git a/src/Squot.package/TSquotArtifact.trait/instance/shadowOfTrackedObject.st b/src/Squot.package/TSquotArtifact.trait/instance/shadowOfTrackedObject.st deleted file mode 100644 index 357a3b421..000000000 --- a/src/Squot.package/TSquotArtifact.trait/instance/shadowOfTrackedObject.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -shadowOfTrackedObject - "Answer the shadow of the object that is tracked by a store to produce editions such as me." - ^ self content startShadow \ No newline at end of file diff --git a/src/Squot.package/TSquotArtifact.trait/instance/squotSummaryText.st b/src/Squot.package/TSquotArtifact.trait/instance/squotSummaryText.st deleted file mode 100644 index 221337362..000000000 --- a/src/Squot.package/TSquotArtifact.trait/instance/squotSummaryText.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-Tools -squotSummaryText - ^ self content squotSummaryText \ No newline at end of file diff --git a/src/Squot.package/TSquotArtifact.trait/instance/storeWith..st b/src/Squot.package/TSquotArtifact.trait/instance/storeWith..st deleted file mode 100644 index 4c8494504..000000000 --- a/src/Squot.package/TSquotArtifact.trait/instance/storeWith..st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-FileSystemStore -storeWith: aStore - "double dispatch" - ^ aStore storeOrdinary: self \ No newline at end of file diff --git a/src/Squot.package/TSquotArtifact.trait/instance/wantsToBeInTableOfContents.st b/src/Squot.package/TSquotArtifact.trait/instance/wantsToBeInTableOfContents.st deleted file mode 100644 index 207f22528..000000000 --- a/src/Squot.package/TSquotArtifact.trait/instance/wantsToBeInTableOfContents.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-FileSystemStore -wantsToBeInTableOfContents - ^ true \ No newline at end of file diff --git a/src/Squot.package/TSquotArtifact.trait/instance/writeWith..st b/src/Squot.package/TSquotArtifact.trait/instance/writeWith..st deleted file mode 100644 index 1d15cab11..000000000 --- a/src/Squot.package/TSquotArtifact.trait/instance/writeWith..st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-FileSystemStore -writeWith: aSerializer - ^ self content squotWrite: self with: aSerializer \ No newline at end of file diff --git a/src/Squot.package/TSquotArtifact.trait/methodProperties.json b/src/Squot.package/TSquotArtifact.trait/methodProperties.json deleted file mode 100644 index f271d781b..000000000 --- a/src/Squot.package/TSquotArtifact.trait/methodProperties.json +++ /dev/null @@ -1,24 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "asBaseDiff:against:" : "jr 8/14/2019 22:01", - "browseFromSquotWorkingCopyArtifact:" : "jr 12/22/2019 23:58", - "copyWithDiffApplied:" : "jr 12/13/2020 13:06", - "diffAgainst:" : "jr 12/24/2020 00:38", - "diffContentAgainstThatOf:" : "jr 5/1/2017 20:36", - "diffContentAgainstThatOf:withBase:" : "jr 8/14/2019 22:02", - "isLoadable" : "jr 7/23/2017 00:13", - "mergeDiffWith:basedOn:" : "jr 12/13/2020 13:21", - "mergeWith:basedOn:" : "jr 12/23/2020 21:50", - "mergeWithoutBaseWith:" : "jr 12/23/2020 22:42", - "packageArtifactDefinitions" : "jr 7/27/2017 23:35", - "packageName" : "jr 4/19/2021 20:00", - "reverseDiffContentAgainst:" : "jr 5/28/2017 18:50", - "reverseDiffContentAgainst:withBase:" : "jr 8/14/2019 22:02", - "serializerName" : "jr 1/3/2021 15:53", - "shadowOfTrackedObject" : "jr 7/22/2017 00:57", - "squotSummaryText" : "jr 11/17/2018 22:29", - "storeWith:" : "jr 7/22/2017 02:27", - "wantsToBeInTableOfContents" : "jr 1/31/2017 13:34", - "writeWith:" : "jr 3/9/2019 11:07" } } diff --git a/src/Squot.package/TSquotArtifact.trait/properties.json b/src/Squot.package/TSquotArtifact.trait/properties.json deleted file mode 100644 index eceb492b9..000000000 --- a/src/Squot.package/TSquotArtifact.trait/properties.json +++ /dev/null @@ -1,4 +0,0 @@ -{ - "category" : "Squot-Interfaces", - "commentStamp" : "jr 3/17/2018 15:43", - "name" : "TSquotArtifact" } diff --git a/src/Squot.package/TSquotCodec.trait/README.md b/src/Squot.package/TSquotCodec.trait/README.md deleted file mode 100644 index e2da2e53a..000000000 --- a/src/Squot.package/TSquotCodec.trait/README.md +++ /dev/null @@ -1 +0,0 @@ -My users can fill the roles of both SquotSerializer and SquotDeserializer. \ No newline at end of file diff --git a/src/Squot.package/TSquotCodec.trait/class/canReadObjectSerializedBy..st b/src/Squot.package/TSquotCodec.trait/class/canReadObjectSerializedBy..st deleted file mode 100644 index 98f7b2481..000000000 --- a/src/Squot.package/TSquotCodec.trait/class/canReadObjectSerializedBy..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot deserialization -canReadObjectSerializedBy: serializerName - ^ serializerName = self theNonMetaClass name \ No newline at end of file diff --git a/src/Squot.package/TSquotCodec.trait/instance/canReadDiffs.st b/src/Squot.package/TSquotCodec.trait/instance/canReadDiffs.st deleted file mode 100644 index ae6536ce4..000000000 --- a/src/Squot.package/TSquotCodec.trait/instance/canReadDiffs.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -canReadDiffs - "Override to answer true if the class implements the deserialization of just differences (given the information which files and directories have changed) instead of reading all files that make up an artifact." - ^ false \ No newline at end of file diff --git a/src/Squot.package/TSquotCodec.trait/instance/canWriteDiffs.st b/src/Squot.package/TSquotCodec.trait/instance/canWriteDiffs.st deleted file mode 100644 index 98ff619a5..000000000 --- a/src/Squot.package/TSquotCodec.trait/instance/canWriteDiffs.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -canWriteDiffs - "Override to answer true if the class implements the serialization of just differences instead of whole snapshots." - ^ false \ No newline at end of file diff --git a/src/Squot.package/TSquotCodec.trait/methodProperties.json b/src/Squot.package/TSquotCodec.trait/methodProperties.json deleted file mode 100644 index 1cbe15573..000000000 --- a/src/Squot.package/TSquotCodec.trait/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - "canReadObjectSerializedBy:" : "jr 3/8/2017 17:23" }, - "instance" : { - "canReadDiffs" : "jr 11/19/2021 20:50", - "canWriteDiffs" : "jr 11/19/2021 20:48" } } diff --git a/src/Squot.package/TSquotCodec.trait/properties.json b/src/Squot.package/TSquotCodec.trait/properties.json deleted file mode 100644 index 2d0761fe2..000000000 --- a/src/Squot.package/TSquotCodec.trait/properties.json +++ /dev/null @@ -1,4 +0,0 @@ -{ - "category" : "Squot-Serialization", - "commentStamp" : "jr 3/17/2018 19:30", - "name" : "TSquotCodec" } diff --git a/src/Squot.package/TSquotConvertibleToVersion.trait/README.md b/src/Squot.package/TSquotConvertibleToVersion.trait/README.md deleted file mode 100644 index 57c4fbb8e..000000000 --- a/src/Squot.package/TSquotConvertibleToVersion.trait/README.md +++ /dev/null @@ -1,5 +0,0 @@ -I am associated with a version. Therefore I can be used in queries for a range of versions. - -Classes with this trait must understand the following messages: - repository Answer the repository to which the version belongs. - asSquotVersionIn: Answer the associated version, as resident in the given repository. \ No newline at end of file diff --git a/src/Squot.package/TSquotConvertibleToVersion.trait/instance/mergeBasesWith..st b/src/Squot.package/TSquotConvertibleToVersion.trait/instance/mergeBasesWith..st deleted file mode 100644 index ff62a9b5f..000000000 --- a/src/Squot.package/TSquotConvertibleToVersion.trait/instance/mergeBasesWith..st +++ /dev/null @@ -1,7 +0,0 @@ -accessing ancestry -mergeBasesWith: otherVersion - ^ (VersionsMergeBase - of: (self asSquotVersionIn: self repository) - and: (otherVersion asSquotVersionIn: self repository)) - - allVersions \ No newline at end of file diff --git a/src/Squot.package/TSquotConvertibleToVersion.trait/instance/versionsNotOn..st b/src/Squot.package/TSquotConvertibleToVersion.trait/instance/versionsNotOn..st deleted file mode 100644 index fc70c855f..000000000 --- a/src/Squot.package/TSquotConvertibleToVersion.trait/instance/versionsNotOn..st +++ /dev/null @@ -1,7 +0,0 @@ -enumerating versions -versionsNotOn: aHistorianOrVersion - "Answer all versions that are ancestors of me, but not of the argument. - The answer includes me and does not include the argument." - ^ self repository historyWalkClass new - nextPut: (self asSquotVersionIn: self repository); - upTo: (aHistorianOrVersion asSquotVersionIn: self repository) \ No newline at end of file diff --git a/src/Squot.package/TSquotConvertibleToVersion.trait/instance/versionsUniqueTo..st b/src/Squot.package/TSquotConvertibleToVersion.trait/instance/versionsUniqueTo..st deleted file mode 100644 index db1a5c631..000000000 --- a/src/Squot.package/TSquotConvertibleToVersion.trait/instance/versionsUniqueTo..st +++ /dev/null @@ -1,7 +0,0 @@ -enumerating versions -versionsUniqueTo: aHistorianOrVersion - "Answer all versions that are ancestors of the argument, but not of me. - The answer includes the argument and does not include me." - ^ self repository historyWalkClass new - nextPut: (aHistorianOrVersion asSquotVersionIn: self repository); - upTo: (self asSquotVersionIn: self repository) \ No newline at end of file diff --git a/src/Squot.package/TSquotConvertibleToVersion.trait/instance/versionsUnsharedWith..st b/src/Squot.package/TSquotConvertibleToVersion.trait/instance/versionsUnsharedWith..st deleted file mode 100644 index 2be186374..000000000 --- a/src/Squot.package/TSquotConvertibleToVersion.trait/instance/versionsUnsharedWith..st +++ /dev/null @@ -1,9 +0,0 @@ -enumerating versions -versionsUnsharedWith: aHistorianOrVersion - "Answer all versions that are ancestors of the argument or me, but not of both. - It is the symmetric difference of our ancestries. - The answer includes both the argument and me." - ^ self repository historyWalkClass new - nextPut: (self asSquotVersionIn: self repository); - nextPut: (aHistorianOrVersion asSquotVersionIn: self repository); - upToAnyOf: (self mergeBasesWith: aHistorianOrVersion) \ No newline at end of file diff --git a/src/Squot.package/TSquotConvertibleToVersion.trait/methodProperties.json b/src/Squot.package/TSquotConvertibleToVersion.trait/methodProperties.json deleted file mode 100644 index f1b5f38bf..000000000 --- a/src/Squot.package/TSquotConvertibleToVersion.trait/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "mergeBasesWith:" : "jr 2/8/2020 22:32", - "versionsNotOn:" : "jr 5/9/2020 16:14", - "versionsUniqueTo:" : "jr 5/9/2020 16:14", - "versionsUnsharedWith:" : "jr 5/9/2020 16:14" } } diff --git a/src/Squot.package/TSquotConvertibleToVersion.trait/properties.json b/src/Squot.package/TSquotConvertibleToVersion.trait/properties.json deleted file mode 100644 index 182b62eac..000000000 --- a/src/Squot.package/TSquotConvertibleToVersion.trait/properties.json +++ /dev/null @@ -1,4 +0,0 @@ -{ - "category" : "Squot-Interfaces", - "commentStamp" : "jr 2/8/2020 22:44", - "name" : "TSquotConvertibleToVersion" } diff --git a/src/Squot.package/TSquotDiff.trait/README.md b/src/Squot.package/TSquotDiff.trait/README.md deleted file mode 100644 index fc2395967..000000000 --- a/src/Squot.package/TSquotDiff.trait/README.md +++ /dev/null @@ -1,2 +0,0 @@ -My users are the #content of SquotArtifactDiffs, or intermediate objects during comparisons. -They understand methods to test if there are differences at all, and to retrieve a hierarchical diff. \ No newline at end of file diff --git a/src/Squot.package/TSquotDiff.trait/instance/addReferenceDiff..st b/src/Squot.package/TSquotDiff.trait/instance/addReferenceDiff..st deleted file mode 100644 index f87186e28..000000000 --- a/src/Squot.package/TSquotDiff.trait/instance/addReferenceDiff..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-diff-comparing -addReferenceDiff: aSquotReferenceDiff - self shouldBeImplemented. \ No newline at end of file diff --git a/src/Squot.package/TSquotDiff.trait/instance/applyToObjectNamed.inGraph.with..st b/src/Squot.package/TSquotDiff.trait/instance/applyToObjectNamed.inGraph.with..st deleted file mode 100644 index 9816c3e28..000000000 --- a/src/Squot.package/TSquotDiff.trait/instance/applyToObjectNamed.inGraph.with..st +++ /dev/null @@ -1,9 +0,0 @@ -Squot-diff-patching -applyToObjectNamed: name inGraph: anObjectGraph with: aPatcher - self isThisEverCalled. - ^ aPatcher - apply: self - toLoaded: (anObjectGraph - objectNamed: name - ifAbsent: [self error: 'Diff for a non-existing object, ', - 'diff does not fit the target graph']) \ No newline at end of file diff --git a/src/Squot.package/TSquotDiff.trait/instance/applyToShadowNamed.inGraph..st b/src/Squot.package/TSquotDiff.trait/instance/applyToShadowNamed.inGraph..st deleted file mode 100644 index fd7cea2e6..000000000 --- a/src/Squot.package/TSquotDiff.trait/instance/applyToShadowNamed.inGraph..st +++ /dev/null @@ -1,6 +0,0 @@ -Squot-diff-patching -applyToShadowNamed: name inGraph: anObjectGraph - | patched | - patched := self squotApplyTo: (anObjectGraph shadowNamed: name). - anObjectGraph assign: name toShadow: patched undecorated. - ^ patched \ No newline at end of file diff --git a/src/Squot.package/TSquotDiff.trait/instance/asSquotConflicts.st b/src/Squot.package/TSquotDiff.trait/instance/asSquotConflicts.st deleted file mode 100644 index 38db9fc66..000000000 --- a/src/Squot.package/TSquotDiff.trait/instance/asSquotConflicts.st +++ /dev/null @@ -1,4 +0,0 @@ -Squot-diff-converting -asSquotConflicts - "Answer a copy of me in which all differences are conflicts in a merge without a base object." - ^ self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotDiff.trait/instance/initializeSquotDiffNodes.with..st b/src/Squot.package/TSquotDiff.trait/instance/initializeSquotDiffNodes.with..st deleted file mode 100644 index 86f4b231f..000000000 --- a/src/Squot.package/TSquotDiff.trait/instance/initializeSquotDiffNodes.with..st +++ /dev/null @@ -1,9 +0,0 @@ -*Squot-Tools-Diffs -initializeSquotDiffNodes: aCollection with: aSquotDiffNodesBuilder - "Initialize the previously allocated diff nodes in aCollection, using the builder to convert - the diffs of related objects." - "Allocating the nodes and initializing them is separated to facilitate cycle breaking - when graphs of changed objects are converted to diff nodes. If all related diffs form - a tree structure and you chose to initialize all nodes upon their allocation already, - you may implement this method to do nothing." - self shouldBeImplemented. \ No newline at end of file diff --git a/src/Squot.package/TSquotDiff.trait/instance/newSquotDiffNodes.st b/src/Squot.package/TSquotDiff.trait/instance/newSquotDiffNodes.st deleted file mode 100644 index d4bb06582..000000000 --- a/src/Squot.package/TSquotDiff.trait/instance/newSquotDiffNodes.st +++ /dev/null @@ -1,8 +0,0 @@ -*Squot-Tools-Diffs -newSquotDiffNodes - "Answer new, uninitialized SquotDiffNodes that will later be initialized - in #initializeSquotDiffNodes:with:" - "Allocating the nodes and initializing them is separated to facilitate cycle breaking - when graphs of changed objects are converted to diff nodes. If all related diffs form - a tree structure, you may also fully initialize the nodes here already." - ^ self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotDiff.trait/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st b/src/Squot.package/TSquotDiff.trait/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st deleted file mode 100644 index 13bcba733..000000000 --- a/src/Squot.package/TSquotDiff.trait/instance/referenceDiffsWithDefaultOwners.reflectedIn.do..st +++ /dev/null @@ -1,5 +0,0 @@ -Squot-diff-enumerating -referenceDiffsWithDefaultOwners: leftAndRightShadows reflectedIn: aMirror do: aBlock - "If I know how to update the references of my target object, I should answer a collection of SquotReferenceDiffs that describe them. If I do not know my original and changed shadows, I shall use those from leftAndRightShadows to create those reference diffs. If I do not know how to reflect on the shadow of my target object, I shall use aMirror." - "This method converts object-focused diffs into reference-focused diffs." - ^ #() \ No newline at end of file diff --git a/src/Squot.package/TSquotDiff.trait/instance/rightName.st b/src/Squot.package/TSquotDiff.trait/instance/rightName.st deleted file mode 100644 index 405b52449..000000000 --- a/src/Squot.package/TSquotDiff.trait/instance/rightName.st +++ /dev/null @@ -1,4 +0,0 @@ -Squot-diff-patching -rightName - "Answer the name of the patched object or nil if it is not known." - ^ nil \ No newline at end of file diff --git a/src/Squot.package/TSquotDiff.trait/instance/squotApplyTo..st b/src/Squot.package/TSquotDiff.trait/instance/squotApplyTo..st deleted file mode 100644 index bfd2b4066..000000000 --- a/src/Squot.package/TSquotDiff.trait/instance/squotApplyTo..st +++ /dev/null @@ -1,5 +0,0 @@ -Squot-diff-patching -squotApplyTo: aShadow - "Apply my changes to aShadow (the captured representation of an object) and answer - the result." - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotDiff.trait/instance/squotApplyTo.with..st b/src/Squot.package/TSquotDiff.trait/instance/squotApplyTo.with..st deleted file mode 100644 index fad1065f6..000000000 --- a/src/Squot.package/TSquotDiff.trait/instance/squotApplyTo.with..st +++ /dev/null @@ -1,4 +0,0 @@ -Squot-diff-patching -squotApplyTo: aShadow with: aPatcher - "Apply my changes to aShadow (the representation of an object in a snapshot) and answer the result." - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotDiff.trait/instance/squotApplyToLoaded..st b/src/Squot.package/TSquotDiff.trait/instance/squotApplyToLoaded..st deleted file mode 100644 index c4d052e2b..000000000 --- a/src/Squot.package/TSquotDiff.trait/instance/squotApplyToLoaded..st +++ /dev/null @@ -1,5 +0,0 @@ -Squot-diff-patching -squotApplyToLoaded: anObject - "Modify anObject such that it matches what I model and answer the modified object, even if it was modified in-place." - self shouldBeImplemented. - ^ anObject \ No newline at end of file diff --git a/src/Squot.package/TSquotDiff.trait/instance/squotHasChanges.st b/src/Squot.package/TSquotDiff.trait/instance/squotHasChanges.st deleted file mode 100644 index ce579b029..000000000 --- a/src/Squot.package/TSquotDiff.trait/instance/squotHasChanges.st +++ /dev/null @@ -1,4 +0,0 @@ -Squot-diff-testing -squotHasChanges - "Answer false if the two compared objects were equal, answer true if there were diffs." - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotDiff.trait/instance/update.reflectedIn.asMaterializedFrom.reflectedIn..st b/src/Squot.package/TSquotDiff.trait/instance/update.reflectedIn.asMaterializedFrom.reflectedIn..st deleted file mode 100644 index 9eb0d3f23..000000000 --- a/src/Squot.package/TSquotDiff.trait/instance/update.reflectedIn.asMaterializedFrom.reflectedIn..st +++ /dev/null @@ -1,4 +0,0 @@ -Squot-diff-patching -update: anObject reflectedIn: aMirror asMaterializedFrom: aShadow reflectedIn: aShadowMirror - "If I know how to mutate my target object _except_ for changing its outgoing references, I shall do so here. Most diffs will only update references, which must not be done in this method!" - ^ anObject \ No newline at end of file diff --git a/src/Squot.package/TSquotDiff.trait/methodProperties.json b/src/Squot.package/TSquotDiff.trait/methodProperties.json deleted file mode 100644 index cce42f197..000000000 --- a/src/Squot.package/TSquotDiff.trait/methodProperties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "addReferenceDiff:" : "jr 7/18/2021 11:21", - "applyToObjectNamed:inGraph:with:" : "jr 7/17/2021 02:05", - "applyToShadowNamed:inGraph:" : "jr 7/4/2021 17:44", - "asSquotConflicts" : "jr 10/19/2017 19:20", - "initializeSquotDiffNodes:with:" : "jr 1/14/2018 23:10", - "newSquotDiffNodes" : "jr 1/14/2018 23:06", - "referenceDiffsWithDefaultOwners:reflectedIn:do:" : "jr 6/27/2021 22:53", - "rightName" : "jr 7/4/2021 18:42", - "squotApplyTo:" : "jr 9/25/2019 19:21", - "squotApplyTo:with:" : "jr 6/22/2017 14:04", - "squotApplyToLoaded:" : "jr 6/7/2017 14:44", - "squotHasChanges" : "jr 4/9/2017 22:42", - "update:reflectedIn:asMaterializedFrom:reflectedIn:" : "jr 6/13/2021 21:53" } } diff --git a/src/Squot.package/TSquotDiff.trait/properties.json b/src/Squot.package/TSquotDiff.trait/properties.json deleted file mode 100644 index 3e48cf718..000000000 --- a/src/Squot.package/TSquotDiff.trait/properties.json +++ /dev/null @@ -1,4 +0,0 @@ -{ - "category" : "Squot-Interfaces", - "commentStamp" : "jr 4/10/2017 23:35", - "name" : "TSquotDiff" } diff --git a/src/Squot.package/TSquotDiffable.trait/README.md b/src/Squot.package/TSquotDiffable.trait/README.md deleted file mode 100644 index 8aa037f59..000000000 --- a/src/Squot.package/TSquotDiffable.trait/README.md +++ /dev/null @@ -1 +0,0 @@ -Something that can be compared to other similar objects with Squot. \ No newline at end of file diff --git a/src/Squot.package/TSquotDiffable.trait/instance/squotDiffAgainst.with..st b/src/Squot.package/TSquotDiffable.trait/instance/squotDiffAgainst.with..st deleted file mode 100644 index c0c35f6bb..000000000 --- a/src/Squot.package/TSquotDiffable.trait/instance/squotDiffAgainst.with..st +++ /dev/null @@ -1,4 +0,0 @@ -Squot-diffing -squotDiffAgainst: otherContent with: aDiffBuilder - "Answer an object that describes the differences between me and otherContent." - self deprecated: 'Implement newDiffFrom:to: in the SquotMirror of self to create a new diff object. Implement initializeFrom:to: in that diff object. Do not compare objects referenced from self in these methods.' \ No newline at end of file diff --git a/src/Squot.package/TSquotDiffable.trait/methodProperties.json b/src/Squot.package/TSquotDiffable.trait/methodProperties.json deleted file mode 100644 index 51247603c..000000000 --- a/src/Squot.package/TSquotDiffable.trait/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "squotDiffAgainst:with:" : "jr 7/30/2021 19:49" } } diff --git a/src/Squot.package/TSquotDiffable.trait/properties.json b/src/Squot.package/TSquotDiffable.trait/properties.json deleted file mode 100644 index 0c6c4aac5..000000000 --- a/src/Squot.package/TSquotDiffable.trait/properties.json +++ /dev/null @@ -1,4 +0,0 @@ -{ - "category" : "Squot-Interfaces", - "commentStamp" : "jr 3/17/2018 15:44", - "name" : "TSquotDiffable" } diff --git a/src/Squot.package/TSquotDiffableShadow.trait/README.md b/src/Squot.package/TSquotDiffableShadow.trait/README.md deleted file mode 100644 index 14d03205d..000000000 --- a/src/Squot.package/TSquotDiffableShadow.trait/README.md +++ /dev/null @@ -1,2 +0,0 @@ -TSquotShadow that supports computing changes between itself and another one. -If the shadow of an object is not diffable, the captured live object can only be replaced altogether during patching operations, but it cannot be modified in-place. \ No newline at end of file diff --git a/src/Squot.package/TSquotDiffableShadow.trait/instance/squotDiffAgainst.with..st b/src/Squot.package/TSquotDiffableShadow.trait/instance/squotDiffAgainst.with..st deleted file mode 100644 index 0aed81690..000000000 --- a/src/Squot.package/TSquotDiffableShadow.trait/instance/squotDiffAgainst.with..st +++ /dev/null @@ -1,9 +0,0 @@ -Squot-shadow-diffing -squotDiffAgainst: otherShadow with: aDiffBuilder - "Answer an object that describes the differences between me and otherContent." - self deprecated: 'Implement newDiffFrom:to: in the SquotMirror of self to create a new diff object. Implement initializeFrom:to: in that diff object. Do not compare objects referenced from self in these methods.'. - ^ aDiffBuilder diffFrom: self to: otherShadow - ifNew: [self shouldBeImplemented] - andInitialize: [:diff | self shouldBeImplemented. - "for example:" - diff diff: self against: otherShadow with: aDiffBuilder] \ No newline at end of file diff --git a/src/Squot.package/TSquotDiffableShadow.trait/methodProperties.json b/src/Squot.package/TSquotDiffableShadow.trait/methodProperties.json deleted file mode 100644 index 51247603c..000000000 --- a/src/Squot.package/TSquotDiffableShadow.trait/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "squotDiffAgainst:with:" : "jr 7/30/2021 19:49" } } diff --git a/src/Squot.package/TSquotDiffableShadow.trait/properties.json b/src/Squot.package/TSquotDiffableShadow.trait/properties.json deleted file mode 100644 index 4b013fc5c..000000000 --- a/src/Squot.package/TSquotDiffableShadow.trait/properties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "category" : "Squot-Interfaces", - "classtraitcomposition" : "TSquotShadow classTrait + TSquotDiffable classTrait", - "commentStamp" : "jr 3/17/2018 15:55", - "name" : "TSquotDiffableShadow", - "traitcomposition" : "TSquotShadow + TSquotDiffable" } diff --git a/src/Squot.package/TSquotLocalHistorian.trait/README.md b/src/Squot.package/TSquotLocalHistorian.trait/README.md deleted file mode 100644 index ac5acd127..000000000 --- a/src/Squot.package/TSquotLocalHistorian.trait/README.md +++ /dev/null @@ -1 +0,0 @@ -A historian (think of the tip of a version control branch) to read and write history in a local repository. \ No newline at end of file diff --git a/src/Squot.package/TSquotLocalHistorian.trait/instance/asSquotVersionIn..st b/src/Squot.package/TSquotLocalHistorian.trait/instance/asSquotVersionIn..st deleted file mode 100644 index 178348fec..000000000 --- a/src/Squot.package/TSquotLocalHistorian.trait/instance/asSquotVersionIn..st +++ /dev/null @@ -1,4 +0,0 @@ -converting -asSquotVersionIn: aRepository - aRepository = self repository ifTrue: [^ self version]. - ^ (aRepository historianNamed: self name) version \ No newline at end of file diff --git a/src/Squot.package/TSquotLocalHistorian.trait/instance/createNewVersion.with..st b/src/Squot.package/TSquotLocalHistorian.trait/instance/createNewVersion.with..st deleted file mode 100644 index e7b6a0b22..000000000 --- a/src/Squot.package/TSquotLocalHistorian.trait/instance/createNewVersion.with..st +++ /dev/null @@ -1,15 +0,0 @@ -creating versions -createNewVersion: aSnapshot with: aBlock - "Build a new version with aSnapshot as its snapshot and my version as the first parent, - then supply the new version or a builder object for it to aBlock, during which additional - properties can be set up. When aBlock returns normally, store the new version and - update me to refer to it." - | newVersion | - newVersion := self repository createNewVersion: aSnapshot - with: [:aVersion | aVersion - parents: (self version - ifNil: [OrderedCollection new] - ifNotNil: [:it | OrderedCollection with: it]); - in: aBlock]. - self version: newVersion. - ^ newVersion \ No newline at end of file diff --git a/src/Squot.package/TSquotLocalHistorian.trait/instance/createNewVersionFromPatch.with..st b/src/Squot.package/TSquotLocalHistorian.trait/instance/createNewVersionFromPatch.with..st deleted file mode 100644 index ef89e3121..000000000 --- a/src/Squot.package/TSquotLocalHistorian.trait/instance/createNewVersionFromPatch.with..st +++ /dev/null @@ -1,16 +0,0 @@ -creating versions -createNewVersionFromPatch: aPatch with: aBlock - "Build a new version from aPatch applied to my current version's snapshot - and my version as the first parent, then supply the new version or a builder object for it - to aBlock, during which additional properties can be set up. - When aBlock returns normally, store the new version and update me to refer to it. - Answer what the repository would respond to the same message., which is the new version." - | newVersion | - newVersion := self repository createNewVersionFromPatch: aPatch - with: [:aVersion | aVersion - parents: (self version - ifNil: [OrderedCollection new] - ifNotNil: [:it | OrderedCollection with: it]); - in: aBlock]. - self version: newVersion. - ^ newVersion \ No newline at end of file diff --git a/src/Squot.package/TSquotLocalHistorian.trait/instance/name.st b/src/Squot.package/TSquotLocalHistorian.trait/instance/name.st deleted file mode 100644 index 5e1dd5078..000000000 --- a/src/Squot.package/TSquotLocalHistorian.trait/instance/name.st +++ /dev/null @@ -1,4 +0,0 @@ -Pur historian -name - "returns a string" - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotLocalHistorian.trait/instance/repository.st b/src/Squot.package/TSquotLocalHistorian.trait/instance/repository.st deleted file mode 100644 index 1c06739fd..000000000 --- a/src/Squot.package/TSquotLocalHistorian.trait/instance/repository.st +++ /dev/null @@ -1,4 +0,0 @@ -Pur historian -repository - "Answer my local repository" - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotLocalHistorian.trait/instance/shortName.st b/src/Squot.package/TSquotLocalHistorian.trait/instance/shortName.st deleted file mode 100644 index 7577696c8..000000000 --- a/src/Squot.package/TSquotLocalHistorian.trait/instance/shortName.st +++ /dev/null @@ -1,3 +0,0 @@ -Pur historian -shortName - ^ self name \ No newline at end of file diff --git a/src/Squot.package/TSquotLocalHistorian.trait/instance/version..st b/src/Squot.package/TSquotLocalHistorian.trait/instance/version..st deleted file mode 100644 index d528e687a..000000000 --- a/src/Squot.package/TSquotLocalHistorian.trait/instance/version..st +++ /dev/null @@ -1,3 +0,0 @@ -Pur historian -version: aVersion - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotLocalHistorian.trait/instance/version.st b/src/Squot.package/TSquotLocalHistorian.trait/instance/version.st deleted file mode 100644 index 653d3e37b..000000000 --- a/src/Squot.package/TSquotLocalHistorian.trait/instance/version.st +++ /dev/null @@ -1,4 +0,0 @@ -Pur historian -version - "returns a Version" - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotLocalHistorian.trait/methodProperties.json b/src/Squot.package/TSquotLocalHistorian.trait/methodProperties.json deleted file mode 100644 index 9a8d44fd8..000000000 --- a/src/Squot.package/TSquotLocalHistorian.trait/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "asSquotVersionIn:" : "jr 2/8/2020 20:37", - "createNewVersion:with:" : "jr 6/27/2020 10:37", - "createNewVersionFromPatch:with:" : "jr 1/3/2021 20:53", - "name" : "jr 2/5/2017 23:04", - "repository" : "jr 2/5/2017 23:04", - "shortName" : "jr 6/29/2017 15:53", - "version" : "jr 2/5/2017 23:04", - "version:" : "jr 2/5/2017 23:04" } } diff --git a/src/Squot.package/TSquotLocalHistorian.trait/properties.json b/src/Squot.package/TSquotLocalHistorian.trait/properties.json deleted file mode 100644 index aba56a31d..000000000 --- a/src/Squot.package/TSquotLocalHistorian.trait/properties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "category" : "Squot-Core", - "classtraitcomposition" : "TSquotConvertibleToVersion classTrait", - "commentStamp" : "jr 3/17/2018 17:43", - "name" : "TSquotLocalHistorian", - "traitcomposition" : "TSquotConvertibleToVersion" } diff --git a/src/Squot.package/TSquotLocalRepository.trait/README.md b/src/Squot.package/TSquotLocalRepository.trait/README.md deleted file mode 100644 index b59d30769..000000000 --- a/src/Squot.package/TSquotLocalRepository.trait/README.md +++ /dev/null @@ -1 +0,0 @@ -I define some messages that local repositores should understand and provide default implementations for some of them. \ No newline at end of file diff --git a/src/Squot.package/TSquotLocalRepository.trait/instance/clearTemporaryVersionsOn..st b/src/Squot.package/TSquotLocalRepository.trait/instance/clearTemporaryVersionsOn..st deleted file mode 100644 index 0e8d1b2a9..000000000 --- a/src/Squot.package/TSquotLocalRepository.trait/instance/clearTemporaryVersionsOn..st +++ /dev/null @@ -1,3 +0,0 @@ -temporary historians -clearTemporaryVersionsOn: aHistorian - self delete: (self historianForTemporaryVersionsOn: aHistorian). \ No newline at end of file diff --git a/src/Squot.package/TSquotLocalRepository.trait/instance/copySettingsFrom.to..st b/src/Squot.package/TSquotLocalRepository.trait/instance/copySettingsFrom.to..st deleted file mode 100644 index e9a1aae33..000000000 --- a/src/Squot.package/TSquotLocalRepository.trait/instance/copySettingsFrom.to..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot repository -copySettingsFrom: anArtifact to: newTrackedObjectMetadata - "Replace me to copy properties relevant to how the artifact will be stored from anArtifact to newTrackedObjectMetadata." \ No newline at end of file diff --git a/src/Squot.package/TSquotLocalRepository.trait/instance/createNewVersion.with..st b/src/Squot.package/TSquotLocalRepository.trait/instance/createNewVersion.with..st deleted file mode 100644 index 69eb0e7a5..000000000 --- a/src/Squot.package/TSquotLocalRepository.trait/instance/createNewVersion.with..st +++ /dev/null @@ -1,6 +0,0 @@ -Squot repository -createNewVersion: aSnapshot with: aBlock - "Build a new version with aSnapshot as its snapshot and supply the new version or a - builder object for it to aBlock, during which additional properties can be set up. - When aBlock returns here, store the new version permanently." - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotLocalRepository.trait/instance/createNewVersionFromPatch.with..st b/src/Squot.package/TSquotLocalRepository.trait/instance/createNewVersionFromPatch.with..st deleted file mode 100644 index 9076740da..000000000 --- a/src/Squot.package/TSquotLocalRepository.trait/instance/createNewVersionFromPatch.with..st +++ /dev/null @@ -1,7 +0,0 @@ -Squot repository -createNewVersionFromPatch: aPatch with: aBlock - "Build a new version with aPatch applied to the first parent version and supply the - new version or a builder object for it to aBlock, during which additional properties - can be set up. When aBlock returns here, store the new version permanently. - Answer the new version. Ideally the version object will have a snapshot with all patched artifacts already included (i. e. they need not be read again later)." - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotLocalRepository.trait/instance/createWorkingCopy.st b/src/Squot.package/TSquotLocalRepository.trait/instance/createWorkingCopy.st deleted file mode 100644 index a4bac93a4..000000000 --- a/src/Squot.package/TSquotLocalRepository.trait/instance/createWorkingCopy.st +++ /dev/null @@ -1,7 +0,0 @@ -Squot repository -createWorkingCopy - "Answer a new working copy that uses me as its local repository." - ^ self workingCopyClass new - repository: self; - loadedHistorian: self defaultHistorian; - yourself \ No newline at end of file diff --git a/src/Squot.package/TSquotLocalRepository.trait/instance/defaultHistorian.st b/src/Squot.package/TSquotLocalRepository.trait/instance/defaultHistorian.st deleted file mode 100644 index f72e8f1b5..000000000 --- a/src/Squot.package/TSquotLocalRepository.trait/instance/defaultHistorian.st +++ /dev/null @@ -1,4 +0,0 @@ -Squot repository -defaultHistorian - "Answer a canonical historian that should be at the tip version of my history." - ^ self historians anyOne \ No newline at end of file diff --git a/src/Squot.package/TSquotLocalRepository.trait/instance/extension..st b/src/Squot.package/TSquotLocalRepository.trait/instance/extension..st deleted file mode 100644 index 4881b9024..000000000 --- a/src/Squot.package/TSquotLocalRepository.trait/instance/extension..st +++ /dev/null @@ -1,6 +0,0 @@ -Squot repository extensions -extension: extensionId - self extension: extensionId - ifPresent: [:it | ^ it] - ifAbsent: []. - ^ (KeyNotFound key: extensionId) signal \ No newline at end of file diff --git a/src/Squot.package/TSquotLocalRepository.trait/instance/extension.ifPresent.ifAbsent..st b/src/Squot.package/TSquotLocalRepository.trait/instance/extension.ifPresent.ifAbsent..st deleted file mode 100644 index 034348348..000000000 --- a/src/Squot.package/TSquotLocalRepository.trait/instance/extension.ifPresent.ifAbsent..st +++ /dev/null @@ -1,6 +0,0 @@ -Squot repository extensions -extension: extensionId ifPresent: presentBlock ifAbsent: absentBlock - "Reposiotry implementations can provide extensions if the backend supports them. - Ref. extension object pattern." - "Default implementation when no extensions are supported." - ^ absentBlock value \ No newline at end of file diff --git a/src/Squot.package/TSquotLocalRepository.trait/instance/hasExtension..st b/src/Squot.package/TSquotLocalRepository.trait/instance/hasExtension..st deleted file mode 100644 index 824a2fa90..000000000 --- a/src/Squot.package/TSquotLocalRepository.trait/instance/hasExtension..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot repository extensions -hasExtension: extensionId - ^ self extension: extensionId ifPresent: [true] ifAbsent: [false] \ No newline at end of file diff --git a/src/Squot.package/TSquotLocalRepository.trait/instance/hasTemporaryVersionsOn..st b/src/Squot.package/TSquotLocalRepository.trait/instance/hasTemporaryVersionsOn..st deleted file mode 100644 index 1f7a5e98a..000000000 --- a/src/Squot.package/TSquotLocalRepository.trait/instance/hasTemporaryVersionsOn..st +++ /dev/null @@ -1,3 +0,0 @@ -temporary historians -hasTemporaryVersionsOn: aHistorian - ^ (self historianForTemporaryVersionsOn: aHistorian) version notNil \ No newline at end of file diff --git a/src/Squot.package/TSquotLocalRepository.trait/instance/historianForTemporaryVersions.st b/src/Squot.package/TSquotLocalRepository.trait/instance/historianForTemporaryVersions.st deleted file mode 100644 index cd01a4f9f..000000000 --- a/src/Squot.package/TSquotLocalRepository.trait/instance/historianForTemporaryVersions.st +++ /dev/null @@ -1,3 +0,0 @@ -temporary historians -historianForTemporaryVersions - ^ self historianNamed: 'meta/squot-stash' \ No newline at end of file diff --git a/src/Squot.package/TSquotLocalRepository.trait/instance/historianForTemporaryVersionsOn..st b/src/Squot.package/TSquotLocalRepository.trait/instance/historianForTemporaryVersionsOn..st deleted file mode 100644 index 8ef265c2c..000000000 --- a/src/Squot.package/TSquotLocalRepository.trait/instance/historianForTemporaryVersionsOn..st +++ /dev/null @@ -1,3 +0,0 @@ -temporary historians -historianForTemporaryVersionsOn: aHistorian - ^ self historianNamed: 'meta/squot-stash-', aHistorian name \ No newline at end of file diff --git a/src/Squot.package/TSquotLocalRepository.trait/instance/historyWalkClass.st b/src/Squot.package/TSquotLocalRepository.trait/instance/historyWalkClass.st deleted file mode 100644 index 489ea723d..000000000 --- a/src/Squot.package/TSquotLocalRepository.trait/instance/historyWalkClass.st +++ /dev/null @@ -1,3 +0,0 @@ -Squot repository -historyWalkClass - ^ SquotHistoryWalker \ No newline at end of file diff --git a/src/Squot.package/TSquotLocalRepository.trait/instance/initializeInDirectory..st b/src/Squot.package/TSquotLocalRepository.trait/instance/initializeInDirectory..st deleted file mode 100644 index 91f8d9c1e..000000000 --- a/src/Squot.package/TSquotLocalRepository.trait/instance/initializeInDirectory..st +++ /dev/null @@ -1,4 +0,0 @@ -Squot file-based repository -initializeInDirectory: aDirectoryReference - "Make sure the given directory is ready to be used as a repository of my kind." - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotLocalRepository.trait/instance/unitOfWork.st b/src/Squot.package/TSquotLocalRepository.trait/instance/unitOfWork.st deleted file mode 100644 index fc55f414d..000000000 --- a/src/Squot.package/TSquotLocalRepository.trait/instance/unitOfWork.st +++ /dev/null @@ -1,4 +0,0 @@ -Squot repository -unitOfWork - "Answer the currently active unit of work or create a new one." - ^ self \ No newline at end of file diff --git a/src/Squot.package/TSquotLocalRepository.trait/instance/withUnitOfWork..st b/src/Squot.package/TSquotLocalRepository.trait/instance/withUnitOfWork..st deleted file mode 100644 index 96f6b420b..000000000 --- a/src/Squot.package/TSquotLocalRepository.trait/instance/withUnitOfWork..st +++ /dev/null @@ -1,5 +0,0 @@ -Squot repository -withUnitOfWork: aBlock - "If no unit of work is currently in the dynamic scope, create one for the block. - Otherwise continue with the current unit of work." - ^ aBlock value \ No newline at end of file diff --git a/src/Squot.package/TSquotLocalRepository.trait/instance/workingCopyClass.st b/src/Squot.package/TSquotLocalRepository.trait/instance/workingCopyClass.st deleted file mode 100644 index b16d726a0..000000000 --- a/src/Squot.package/TSquotLocalRepository.trait/instance/workingCopyClass.st +++ /dev/null @@ -1,3 +0,0 @@ -Squot repository -workingCopyClass - ^ SquotWorkingCopy \ No newline at end of file diff --git a/src/Squot.package/TSquotLocalRepository.trait/methodProperties.json b/src/Squot.package/TSquotLocalRepository.trait/methodProperties.json deleted file mode 100644 index 809633baf..000000000 --- a/src/Squot.package/TSquotLocalRepository.trait/methodProperties.json +++ /dev/null @@ -1,21 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "clearTemporaryVersionsOn:" : "jr 4/29/2018 18:36", - "copySettingsFrom:to:" : "jr 5/27/2022 23:15", - "createNewVersion:with:" : "jr 2/5/2017 22:25", - "createNewVersionFromPatch:with:" : "jr 1/3/2021 20:52", - "createWorkingCopy" : "jr 1/26/2017 17:49", - "defaultHistorian" : "jr 1/26/2017 17:48", - "extension:" : "jr 2/20/2017 11:31", - "extension:ifPresent:ifAbsent:" : "jr 2/20/2017 11:29", - "hasExtension:" : "jr 2/20/2017 11:29", - "hasTemporaryVersionsOn:" : "jr 4/28/2018 18:07", - "historianForTemporaryVersions" : "jr 6/29/2017 17:13", - "historianForTemporaryVersionsOn:" : "jr 6/29/2017 17:45", - "historyWalkClass" : "jr 5/9/2020 16:14", - "initializeInDirectory:" : "jr 1/26/2017 17:16", - "unitOfWork" : "jr 2/26/2020 21:24", - "withUnitOfWork:" : "jr 8/8/2020 16:36", - "workingCopyClass" : "jr 1/26/2017 17:37" } } diff --git a/src/Squot.package/TSquotLocalRepository.trait/properties.json b/src/Squot.package/TSquotLocalRepository.trait/properties.json deleted file mode 100644 index d30228e81..000000000 --- a/src/Squot.package/TSquotLocalRepository.trait/properties.json +++ /dev/null @@ -1,4 +0,0 @@ -{ - "category" : "Squot-Core", - "commentStamp" : "jr 1/27/2017 15:26", - "name" : "TSquotLocalRepository" } diff --git a/src/Squot.package/TSquotModification.trait/README.md b/src/Squot.package/TSquotModification.trait/README.md deleted file mode 100644 index c58f9405c..000000000 --- a/src/Squot.package/TSquotModification.trait/README.md +++ /dev/null @@ -1 +0,0 @@ -My users capture modifications of objects. \ No newline at end of file diff --git a/src/Squot.package/TSquotModification.trait/instance/isAddition.st b/src/Squot.package/TSquotModification.trait/instance/isAddition.st deleted file mode 100644 index baeb145a3..000000000 --- a/src/Squot.package/TSquotModification.trait/instance/isAddition.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isAddition - ^ false \ No newline at end of file diff --git a/src/Squot.package/TSquotModification.trait/instance/isModification.st b/src/Squot.package/TSquotModification.trait/instance/isModification.st deleted file mode 100644 index 8c44007b5..000000000 --- a/src/Squot.package/TSquotModification.trait/instance/isModification.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isModification - ^ true \ No newline at end of file diff --git a/src/Squot.package/TSquotModification.trait/instance/isRemoval.st b/src/Squot.package/TSquotModification.trait/instance/isRemoval.st deleted file mode 100644 index 8f7f6d5ac..000000000 --- a/src/Squot.package/TSquotModification.trait/instance/isRemoval.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isRemoval - ^ false \ No newline at end of file diff --git a/src/Squot.package/TSquotModification.trait/methodProperties.json b/src/Squot.package/TSquotModification.trait/methodProperties.json deleted file mode 100644 index 146b378dd..000000000 --- a/src/Squot.package/TSquotModification.trait/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "isAddition" : "jr 9/21/2019 21:45", - "isModification" : "jr 9/21/2019 21:45", - "isRemoval" : "jr 9/21/2019 21:46" } } diff --git a/src/Squot.package/TSquotModification.trait/properties.json b/src/Squot.package/TSquotModification.trait/properties.json deleted file mode 100644 index 237184007..000000000 --- a/src/Squot.package/TSquotModification.trait/properties.json +++ /dev/null @@ -1,4 +0,0 @@ -{ - "category" : "Squot-Diffs", - "commentStamp" : "jr 9/21/2019 21:45", - "name" : "TSquotModification" } diff --git a/src/Squot.package/TSquotMutableObjectContainer.trait/README.md b/src/Squot.package/TSquotMutableObjectContainer.trait/README.md deleted file mode 100644 index 094091dd5..000000000 --- a/src/Squot.package/TSquotMutableObjectContainer.trait/README.md +++ /dev/null @@ -1 +0,0 @@ -TSquotObjectContainer that is open to amendments, such as adding or removing TSquotArtifacts or applying a patch. Typically, Squot Stores are mutable object containers. \ No newline at end of file diff --git a/src/Squot.package/TSquotMutableObjectContainer.trait/instance/add..st b/src/Squot.package/TSquotMutableObjectContainer.trait/instance/add..st deleted file mode 100644 index f22d2b54b..000000000 --- a/src/Squot.package/TSquotMutableObjectContainer.trait/instance/add..st +++ /dev/null @@ -1,3 +0,0 @@ -adding and removing -add: anArtifact - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotMutableObjectContainer.trait/instance/addUnloaded..st b/src/Squot.package/TSquotMutableObjectContainer.trait/instance/addUnloaded..st deleted file mode 100644 index 065610291..000000000 --- a/src/Squot.package/TSquotMutableObjectContainer.trait/instance/addUnloaded..st +++ /dev/null @@ -1,4 +0,0 @@ -adding and removing -addUnloaded: anArtifact - "Compatibility with working copy protocol." - ^ self add: anArtifact \ No newline at end of file diff --git a/src/Squot.package/TSquotMutableObjectContainer.trait/instance/applyDiff..st b/src/Squot.package/TSquotMutableObjectContainer.trait/instance/applyDiff..st deleted file mode 100644 index 51ca1a90d..000000000 --- a/src/Squot.package/TSquotMutableObjectContainer.trait/instance/applyDiff..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -applyDiff: anArtifactDiff - ^ anArtifactDiff applyToContainer: self \ No newline at end of file diff --git a/src/Squot.package/TSquotMutableObjectContainer.trait/instance/applyPatch..st b/src/Squot.package/TSquotMutableObjectContainer.trait/instance/applyPatch..st deleted file mode 100644 index d3e30b093..000000000 --- a/src/Squot.package/TSquotMutableObjectContainer.trait/instance/applyPatch..st +++ /dev/null @@ -1,3 +0,0 @@ -patching -applyPatch: aPatch - ^ aPatch applyTo: self. \ No newline at end of file diff --git a/src/Squot.package/TSquotMutableObjectContainer.trait/instance/removeAt..st b/src/Squot.package/TSquotMutableObjectContainer.trait/instance/removeAt..st deleted file mode 100644 index cb5695eba..000000000 --- a/src/Squot.package/TSquotMutableObjectContainer.trait/instance/removeAt..st +++ /dev/null @@ -1,4 +0,0 @@ -adding and removing -removeAt: path - "Remove the artifact accessible at the given path." - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotMutableObjectContainer.trait/methodProperties.json b/src/Squot.package/TSquotMutableObjectContainer.trait/methodProperties.json deleted file mode 100644 index f22d0d0ca..000000000 --- a/src/Squot.package/TSquotMutableObjectContainer.trait/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "add:" : "jr 3/17/2018 16:00", - "addUnloaded:" : "jr 11/20/2020 23:00", - "applyDiff:" : "jr 1/2/2021 17:52", - "applyPatch:" : "jr 1/3/2021 21:19", - "removeAt:" : "jr 3/17/2018 16:01" } } diff --git a/src/Squot.package/TSquotMutableObjectContainer.trait/properties.json b/src/Squot.package/TSquotMutableObjectContainer.trait/properties.json deleted file mode 100644 index 0ffdc84e6..000000000 --- a/src/Squot.package/TSquotMutableObjectContainer.trait/properties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "category" : "Squot-Interfaces", - "classtraitcomposition" : "TSquotObjectContainer classTrait", - "commentStamp" : "jr 3/17/2018 16:05", - "name" : "TSquotMutableObjectContainer", - "traitcomposition" : "TSquotObjectContainer" } diff --git a/src/Squot.package/TSquotObjectContainer.trait/README.md b/src/Squot.package/TSquotObjectContainer.trait/README.md deleted file mode 100644 index fb97dd15c..000000000 --- a/src/Squot.package/TSquotObjectContainer.trait/README.md +++ /dev/null @@ -1,3 +0,0 @@ -My users contain captured tracked objects and allow to access them via paths. - -My users must implement #artifacts and answer something that behaves like a dictionary from paths to the artifact with that path. \ No newline at end of file diff --git a/src/Squot.package/TSquotObjectContainer.trait/instance/artifactAt..st b/src/Squot.package/TSquotObjectContainer.trait/instance/artifactAt..st deleted file mode 100644 index f468f6d5b..000000000 --- a/src/Squot.package/TSquotObjectContainer.trait/instance/artifactAt..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing objects -artifactAt: path - ^ self artifacts at: path \ No newline at end of file diff --git a/src/Squot.package/TSquotObjectContainer.trait/instance/artifactAt.ifAbsent..st b/src/Squot.package/TSquotObjectContainer.trait/instance/artifactAt.ifAbsent..st deleted file mode 100644 index 375706518..000000000 --- a/src/Squot.package/TSquotObjectContainer.trait/instance/artifactAt.ifAbsent..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing objects -artifactAt: path ifAbsent: absentBlock - ^ self artifacts at: path ifAbsent: absentBlock \ No newline at end of file diff --git a/src/Squot.package/TSquotObjectContainer.trait/instance/artifactAt.ifPresent.ifAbsent..st b/src/Squot.package/TSquotObjectContainer.trait/instance/artifactAt.ifPresent.ifAbsent..st deleted file mode 100644 index ec7db2331..000000000 --- a/src/Squot.package/TSquotObjectContainer.trait/instance/artifactAt.ifPresent.ifAbsent..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing objects -artifactAt: path ifPresent: unaryBlock ifAbsent: absentBlock - ^ self artifacts at: path ifPresent: unaryBlock ifAbsent: absentBlock \ No newline at end of file diff --git a/src/Squot.package/TSquotObjectContainer.trait/instance/artifactsInLoadOrder.st b/src/Squot.package/TSquotObjectContainer.trait/instance/artifactsInLoadOrder.st deleted file mode 100644 index 421d6fec5..000000000 --- a/src/Squot.package/TSquotObjectContainer.trait/instance/artifactsInLoadOrder.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing objects -artifactsInLoadOrder - ^ self loadOrder collect: [:each | self artifactAt: each] \ No newline at end of file diff --git a/src/Squot.package/TSquotObjectContainer.trait/instance/includesObjectAt..st b/src/Squot.package/TSquotObjectContainer.trait/instance/includesObjectAt..st deleted file mode 100644 index 00d428747..000000000 --- a/src/Squot.package/TSquotObjectContainer.trait/instance/includesObjectAt..st +++ /dev/null @@ -1,3 +0,0 @@ -testing objects -includesObjectAt: path - ^ self artifacts includesKey: path \ No newline at end of file diff --git a/src/Squot.package/TSquotObjectContainer.trait/instance/newPatchBuilder.st b/src/Squot.package/TSquotObjectContainer.trait/instance/newPatchBuilder.st deleted file mode 100644 index eb0928945..000000000 --- a/src/Squot.package/TSquotObjectContainer.trait/instance/newPatchBuilder.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -newPatchBuilder - ^ SquotPatch builder startingFrom: self \ No newline at end of file diff --git a/src/Squot.package/TSquotObjectContainer.trait/instance/patchRelativeToBase..st b/src/Squot.package/TSquotObjectContainer.trait/instance/patchRelativeToBase..st deleted file mode 100644 index d8f8c63ff..000000000 --- a/src/Squot.package/TSquotObjectContainer.trait/instance/patchRelativeToBase..st +++ /dev/null @@ -1,5 +0,0 @@ -comparing -patchRelativeToBase: anObjectContainer - ^ SquotPatch builder - patchFrom: (anObjectContainer ifNil: [SquotSnapshot empty]) - to: self \ No newline at end of file diff --git a/src/Squot.package/TSquotObjectContainer.trait/methodProperties.json b/src/Squot.package/TSquotObjectContainer.trait/methodProperties.json deleted file mode 100644 index b86791f4a..000000000 --- a/src/Squot.package/TSquotObjectContainer.trait/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "artifactAt:" : "jr 7/15/2017 20:10", - "artifactAt:ifAbsent:" : "jr 7/15/2017 20:11", - "artifactAt:ifPresent:ifAbsent:" : "jr 7/16/2017 02:44", - "artifactsInLoadOrder" : "jr 10/3/2018 01:19", - "includesObjectAt:" : "jr 7/15/2017 20:11", - "newPatchBuilder" : "jr 9/17/2018 22:33", - "patchRelativeToBase:" : "jr 3/16/2019 18:27" } } diff --git a/src/Squot.package/TSquotObjectContainer.trait/properties.json b/src/Squot.package/TSquotObjectContainer.trait/properties.json deleted file mode 100644 index 0bfcc031b..000000000 --- a/src/Squot.package/TSquotObjectContainer.trait/properties.json +++ /dev/null @@ -1,4 +0,0 @@ -{ - "category" : "Squot-Interfaces", - "commentStamp" : "jr 7/15/2017 20:09", - "name" : "TSquotObjectContainer" } diff --git a/src/Squot.package/TSquotObjectReference.trait/README.md b/src/Squot.package/TSquotObjectReference.trait/README.md deleted file mode 100644 index 22d793f97..000000000 --- a/src/Squot.package/TSquotObjectReference.trait/README.md +++ /dev/null @@ -1 +0,0 @@ -My users capture references from one object to another in a graph. \ No newline at end of file diff --git a/src/Squot.package/TSquotObjectReference.trait/instance/inGraph..st b/src/Squot.package/TSquotObjectReference.trait/instance/inGraph..st deleted file mode 100644 index fca039d3b..000000000 --- a/src/Squot.package/TSquotObjectReference.trait/instance/inGraph..st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -inGraph: aObjectGraphOrShadowGraph - ^ SquotObjectReferenceInGraph new - squotDecoratorDecoratedObject: self; - graph: aObjectGraphOrShadowGraph; - yourself \ No newline at end of file diff --git a/src/Squot.package/TSquotObjectReference.trait/instance/value..st b/src/Squot.package/TSquotObjectReference.trait/instance/value..st deleted file mode 100644 index 98755ba29..000000000 --- a/src/Squot.package/TSquotObjectReference.trait/instance/value..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -value: anObject - "Update the reference in the owning object." - self subclassResponsibility. \ No newline at end of file diff --git a/src/Squot.package/TSquotObjectReference.trait/instance/value.st b/src/Squot.package/TSquotObjectReference.trait/instance/value.st deleted file mode 100644 index e53bc3cdf..000000000 --- a/src/Squot.package/TSquotObjectReference.trait/instance/value.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -value - "Answer the referenced object." - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Squot.package/TSquotObjectReference.trait/methodProperties.json b/src/Squot.package/TSquotObjectReference.trait/methodProperties.json deleted file mode 100644 index 3d00981a9..000000000 --- a/src/Squot.package/TSquotObjectReference.trait/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "inGraph:" : "jr 9/2/2019 19:15", - "value" : "jr 8/14/2019 15:57", - "value:" : "jr 8/14/2019 15:57" } } diff --git a/src/Squot.package/TSquotObjectReference.trait/properties.json b/src/Squot.package/TSquotObjectReference.trait/properties.json deleted file mode 100644 index 75dfc343e..000000000 --- a/src/Squot.package/TSquotObjectReference.trait/properties.json +++ /dev/null @@ -1,4 +0,0 @@ -{ - "category" : "Squot-Capturing", - "commentStamp" : "jr 9/20/2019 21:52", - "name" : "TSquotObjectReference" } diff --git a/src/Squot.package/TSquotRemoval.trait/README.md b/src/Squot.package/TSquotRemoval.trait/README.md deleted file mode 100644 index 56ce19cd6..000000000 --- a/src/Squot.package/TSquotRemoval.trait/README.md +++ /dev/null @@ -1 +0,0 @@ -My users are removals in diffs and patches. \ No newline at end of file diff --git a/src/Squot.package/TSquotRemoval.trait/instance/isAddition.st b/src/Squot.package/TSquotRemoval.trait/instance/isAddition.st deleted file mode 100644 index baeb145a3..000000000 --- a/src/Squot.package/TSquotRemoval.trait/instance/isAddition.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isAddition - ^ false \ No newline at end of file diff --git a/src/Squot.package/TSquotRemoval.trait/instance/isModification.st b/src/Squot.package/TSquotRemoval.trait/instance/isModification.st deleted file mode 100644 index c39c76071..000000000 --- a/src/Squot.package/TSquotRemoval.trait/instance/isModification.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isModification - ^ false \ No newline at end of file diff --git a/src/Squot.package/TSquotRemoval.trait/instance/isRemoval.st b/src/Squot.package/TSquotRemoval.trait/instance/isRemoval.st deleted file mode 100644 index d9855cb72..000000000 --- a/src/Squot.package/TSquotRemoval.trait/instance/isRemoval.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isRemoval - ^ true \ No newline at end of file diff --git a/src/Squot.package/TSquotRemoval.trait/instance/squotHasChanges.st b/src/Squot.package/TSquotRemoval.trait/instance/squotHasChanges.st deleted file mode 100644 index 8cc45196a..000000000 --- a/src/Squot.package/TSquotRemoval.trait/instance/squotHasChanges.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -squotHasChanges - ^ true \ No newline at end of file diff --git a/src/Squot.package/TSquotRemoval.trait/methodProperties.json b/src/Squot.package/TSquotRemoval.trait/methodProperties.json deleted file mode 100644 index 4ecea07a9..000000000 --- a/src/Squot.package/TSquotRemoval.trait/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "isAddition" : "jr 9/21/2019 21:46", - "isModification" : "jr 9/21/2019 21:44", - "isRemoval" : "jr 9/21/2019 21:46", - "squotHasChanges" : "jr 1/9/2022 21:01" } } diff --git a/src/Squot.package/TSquotRemoval.trait/properties.json b/src/Squot.package/TSquotRemoval.trait/properties.json deleted file mode 100644 index a8d995c4b..000000000 --- a/src/Squot.package/TSquotRemoval.trait/properties.json +++ /dev/null @@ -1,4 +0,0 @@ -{ - "category" : "Squot-Diffs", - "commentStamp" : "jr 9/21/2019 21:45", - "name" : "TSquotRemoval" } diff --git a/src/Squot.package/TSquotShadow.trait/README.md b/src/Squot.package/TSquotShadow.trait/README.md deleted file mode 100644 index 73c4788ad..000000000 --- a/src/Squot.package/TSquotShadow.trait/README.md +++ /dev/null @@ -1,4 +0,0 @@ -My users are the result of capturing objects with Squot. - -Additional messages implemented in Object: - squotWrite: anArtifact with: aSerializer "Double dispatch path." \ No newline at end of file diff --git a/src/Squot.package/TSquotShadow.trait/instance/canHaveNameAssignedBySquot.st b/src/Squot.package/TSquotShadow.trait/instance/canHaveNameAssignedBySquot.st deleted file mode 100644 index cbb0f54d4..000000000 --- a/src/Squot.package/TSquotShadow.trait/instance/canHaveNameAssignedBySquot.st +++ /dev/null @@ -1,3 +0,0 @@ -classification -canHaveNameAssignedBySquot - ^ true \ No newline at end of file diff --git a/src/Squot.package/TSquotShadow.trait/instance/sameIn.asIn.ifAbsent..st b/src/Squot.package/TSquotShadow.trait/instance/sameIn.asIn.ifAbsent..st deleted file mode 100644 index a5897e51a..000000000 --- a/src/Squot.package/TSquotShadow.trait/instance/sameIn.asIn.ifAbsent..st +++ /dev/null @@ -1,5 +0,0 @@ -Squot-shadow -sameIn: otherShadowGraph asIn: originShadowGraph ifAbsent: aBlock - ^ self sameIn: otherShadowGraph - withName: (originShadowGraph nameOf: self ifAbsent: []) - ifAbsent: [aBlock value] \ No newline at end of file diff --git a/src/Squot.package/TSquotShadow.trait/instance/squotMaterializeWith..st b/src/Squot.package/TSquotShadow.trait/instance/squotMaterializeWith..st deleted file mode 100644 index 3c05d838a..000000000 --- a/src/Squot.package/TSquotShadow.trait/instance/squotMaterializeWith..st +++ /dev/null @@ -1,4 +0,0 @@ -Squot-shadow -squotMaterializeWith: aMaterializer - "Answer the object restored from me. Double dispatch path" - self shouldBeImplemented. \ No newline at end of file diff --git a/src/Squot.package/TSquotShadow.trait/instance/squotPreferredSerializer.st b/src/Squot.package/TSquotShadow.trait/instance/squotPreferredSerializer.st deleted file mode 100644 index cc14845c1..000000000 --- a/src/Squot.package/TSquotShadow.trait/instance/squotPreferredSerializer.st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-shadow -squotPreferredSerializer - ^ SquotSmartRefStreamSerializer \ No newline at end of file diff --git a/src/Squot.package/TSquotShadow.trait/instance/squotShadowMarker.st b/src/Squot.package/TSquotShadow.trait/instance/squotShadowMarker.st deleted file mode 100644 index b2774f23a..000000000 --- a/src/Squot.package/TSquotShadow.trait/instance/squotShadowMarker.st +++ /dev/null @@ -1,3 +0,0 @@ -classification -squotShadowMarker - "I am here to ease the search for classes used as shadows, especially those that do not use this Trait, but implement the protocol nevertheless." \ No newline at end of file diff --git a/src/Squot.package/TSquotShadow.trait/instance/withSquotObjectName..st b/src/Squot.package/TSquotShadow.trait/instance/withSquotObjectName..st deleted file mode 100644 index 522c4f835..000000000 --- a/src/Squot.package/TSquotShadow.trait/instance/withSquotObjectName..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot-shadow -withSquotObjectName: aName - ^ SquotNameDecorator on: self withName: aName \ No newline at end of file diff --git a/src/Squot.package/TSquotShadow.trait/methodProperties.json b/src/Squot.package/TSquotShadow.trait/methodProperties.json deleted file mode 100644 index ebc378bb0..000000000 --- a/src/Squot.package/TSquotShadow.trait/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "canHaveNameAssignedBySquot" : "jr 9/25/2019 14:43", - "sameIn:asIn:ifAbsent:" : "jr 9/7/2019 11:53", - "squotMaterializeWith:" : "jr 7/20/2017 21:48", - "squotPreferredSerializer" : "jr 9/20/2017 19:38", - "squotShadowMarker" : "jr 6/17/2017 22:34", - "withSquotObjectName:" : "jr 4/7/2019 21:13" } } diff --git a/src/Squot.package/TSquotShadow.trait/properties.json b/src/Squot.package/TSquotShadow.trait/properties.json deleted file mode 100644 index e46249ad8..000000000 --- a/src/Squot.package/TSquotShadow.trait/properties.json +++ /dev/null @@ -1,4 +0,0 @@ -{ - "category" : "Squot-Interfaces", - "commentStamp" : "jr 7/20/2017 14:10", - "name" : "TSquotShadow" } diff --git a/src/Squot.package/TSquotSingleFileSerializer.trait/README.md b/src/Squot.package/TSquotSingleFileSerializer.trait/README.md deleted file mode 100644 index d2478f56a..000000000 --- a/src/Squot.package/TSquotSingleFileSerializer.trait/README.md +++ /dev/null @@ -1 +0,0 @@ -My users are SquotSerializers that write to a single file per artifact. \ No newline at end of file diff --git a/src/Squot.package/TSquotSingleFileSerializer.trait/instance/atPathOf.writeStreamDo..st b/src/Squot.package/TSquotSingleFileSerializer.trait/instance/atPathOf.writeStreamDo..st deleted file mode 100644 index d595f050c..000000000 --- a/src/Squot.package/TSquotSingleFileSerializer.trait/instance/atPathOf.writeStreamDo..st +++ /dev/null @@ -1,3 +0,0 @@ -private -atPathOf: anArtifact writeStreamDo: aBlock - ^ (self rootDirectory resolve: anArtifact path) writeStreamDo: aBlock \ No newline at end of file diff --git a/src/Squot.package/TSquotSingleFileSerializer.trait/methodProperties.json b/src/Squot.package/TSquotSingleFileSerializer.trait/methodProperties.json deleted file mode 100644 index 659f22256..000000000 --- a/src/Squot.package/TSquotSingleFileSerializer.trait/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "atPathOf:writeStreamDo:" : "jr 3/8/2017 17:12" } } diff --git a/src/Squot.package/TSquotSingleFileSerializer.trait/properties.json b/src/Squot.package/TSquotSingleFileSerializer.trait/properties.json deleted file mode 100644 index 271777b80..000000000 --- a/src/Squot.package/TSquotSingleFileSerializer.trait/properties.json +++ /dev/null @@ -1,4 +0,0 @@ -{ - "category" : "Squot-Serialization", - "commentStamp" : "jr 3/8/2017 17:21", - "name" : "TSquotSingleFileSerializer" } diff --git a/src/Squot.package/TSquotTrackableObject.trait/README.md b/src/Squot.package/TSquotTrackableObject.trait/README.md deleted file mode 100644 index 3efb07b6d..000000000 --- a/src/Squot.package/TSquotTrackableObject.trait/README.md +++ /dev/null @@ -1,13 +0,0 @@ -I document the messages that let objects control how Squot handles them. - -Object implements most of the messages defined here, so you do not need to use this Trait. -It suffices to override the appropriate methods. - -The following methods are additionally relevant for trackable Objects and can be redefined: - -captureWithSquot: anObjectCapturer - Converts a "living" object into a shadow with the help of the capturer. - The capturer must handle cycles in the object graph and to avoid endless computation. - -captureWithSquot - Converts a "living" object into a shadow. Should create an own capturer for the task and delegate to #captureWithSquot: if the object graph that must be captured can contain cycles. \ No newline at end of file diff --git a/src/Squot.package/TSquotTrackableObject.trait/instance/squotAddTransientStoreInfoTo..st b/src/Squot.package/TSquotTrackableObject.trait/instance/squotAddTransientStoreInfoTo..st deleted file mode 100644 index ca7e82d9d..000000000 --- a/src/Squot.package/TSquotTrackableObject.trait/instance/squotAddTransientStoreInfoTo..st +++ /dev/null @@ -1,6 +0,0 @@ -Squot-trackable -squotAddTransientStoreInfoTo: aDictionary - "Add properties to aDictionary that should not be stored in a repository - because this property is only relevant in the currently running object memory. - Don't forget to call super!" - super squotAddTransientStoreInfoTo: aDictionary. \ No newline at end of file diff --git a/src/Squot.package/TSquotTrackableObject.trait/instance/squotInitializeStoreInfo..st b/src/Squot.package/TSquotTrackableObject.trait/instance/squotInitializeStoreInfo..st deleted file mode 100644 index 5681f27a1..000000000 --- a/src/Squot.package/TSquotTrackableObject.trait/instance/squotInitializeStoreInfo..st +++ /dev/null @@ -1,5 +0,0 @@ -Squot-trackable -squotInitializeStoreInfo: aDictionary - "Initialize metadata about me when stored in an artifact. - Do not forget to call super!" - super squotInitializeStoreInfo: aDictionary. diff --git a/src/Squot.package/TSquotTrackableObject.trait/instance/squotRemoveTransientStoreInfoFrom..st b/src/Squot.package/TSquotTrackableObject.trait/instance/squotRemoveTransientStoreInfoFrom..st deleted file mode 100644 index f0149176b..000000000 --- a/src/Squot.package/TSquotTrackableObject.trait/instance/squotRemoveTransientStoreInfoFrom..st +++ /dev/null @@ -1,6 +0,0 @@ -Squot-trackable -squotRemoveTransientStoreInfoFrom: aDictionary - "Remove properties from aDictionary that should not be stored in a repository - because this property is only relevant in the currently running object memory. - Don't forget to call super!" - super squotRemoveTransientStoreInfoFrom: aDictionary. \ No newline at end of file diff --git a/src/Squot.package/TSquotTrackableObject.trait/methodProperties.json b/src/Squot.package/TSquotTrackableObject.trait/methodProperties.json deleted file mode 100644 index 091ea9d36..000000000 --- a/src/Squot.package/TSquotTrackableObject.trait/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "squotAddTransientStoreInfoTo:" : "jr 4/7/2017 16:40", - "squotInitializeStoreInfo:" : "jr 4/7/2017 16:41", - "squotRemoveTransientStoreInfoFrom:" : "jr 4/7/2017 16:40" } } diff --git a/src/Squot.package/TSquotTrackableObject.trait/properties.json b/src/Squot.package/TSquotTrackableObject.trait/properties.json deleted file mode 100644 index 791b733bf..000000000 --- a/src/Squot.package/TSquotTrackableObject.trait/properties.json +++ /dev/null @@ -1,4 +0,0 @@ -{ - "category" : "Squot-Interfaces", - "commentStamp" : "jr 6/17/2017 21:04", - "name" : "TSquotTrackableObject" } diff --git a/src/Squot.package/TSquotUnitOfWork.trait/README.md b/src/Squot.package/TSquotUnitOfWork.trait/README.md deleted file mode 100644 index 6fc945b8f..000000000 --- a/src/Squot.package/TSquotUnitOfWork.trait/README.md +++ /dev/null @@ -1,20 +0,0 @@ -A unit of work is an ongoing operation with a repository. Whether it has any transaction semantics depends on the concrete implementation supplied by the repository. The primary purpose is to group actions on a repository together such that optimizations can be applied. Units of work must be short-lived, contrary to repositories. - -If a repository receives #unitOfWork, it is expected to answer an object that implements my protocol. - -These notes were writting when units of work came into existence: - -How to reliably finish units of work? When are they finished? ---> When the business process says so, e. g. when a working copy operation is concluded (finished or aborted). - -Some units of works are activated multiple times. ---> Retire finished units of work explicitly, so their resources may be freed (open file handles). - -Finished ones may be reactivated when using a Git object. ---> Garbage collection? Are there more resources to be released next to the Git pack file handles? Currently there are not. - -Finished unit of work: How to prevent that a "quicker and later" process attaches to a unit of work and finishes it before the original "owner" of the unit of work, thereby releasing it before the real work is finished? ---> By strictly using only one unit of work per process, even if it means to open multiple pack handles in parallel. The object cache at the repository still ensures that objects are not read twice. ---> If there are still "nested" clients (e. g. the save during a cherry-pick) and an inner client wants to finish, one could implement a client counting (as in reference counting) scheme, and only once the last client has finished, the unit is released. This was realized in SquotBasicUnitOfWork. ---> In a draft, finished units of work would be replaced by zombie objects via become:. How could this look in an object-oriented system without become:? Instead one could have a wrapper object for the "current" unit of work that has a state object for an inactive or an active unit of work. Activity here refers to being in progress, not being active in the dynamic environment. --- Actually there is no dire need to zombify units of work. They will just be garbage collected along with operations and stack frames. But timely, explicit finishing could allow us to release more objects sooner. \ No newline at end of file diff --git a/src/Squot.package/TSquotUnitOfWork.trait/instance/activateDuring..st b/src/Squot.package/TSquotUnitOfWork.trait/instance/activateDuring..st deleted file mode 100644 index 872802896..000000000 --- a/src/Squot.package/TSquotUnitOfWork.trait/instance/activateDuring..st +++ /dev/null @@ -1,6 +0,0 @@ -unit of work -activateDuring: aBlock - "Activate the unit of work for the current process while the block is evaluated. - If the repository receives #unitOfWork during the block, it should answer me unless there is another nested unit of work going on. - Answer the result of evaluating aBlock." - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotUnitOfWork.trait/instance/finish.st b/src/Squot.package/TSquotUnitOfWork.trait/instance/finish.st deleted file mode 100644 index 9db4525da..000000000 --- a/src/Squot.package/TSquotUnitOfWork.trait/instance/finish.st +++ /dev/null @@ -1,4 +0,0 @@ -unit of work -finish - "Conclude unit of work. Can be used to release resources. - Can be called multiple times if there are multiplie clients collaborating on a transaction." \ No newline at end of file diff --git a/src/Squot.package/TSquotUnitOfWork.trait/instance/start.st b/src/Squot.package/TSquotUnitOfWork.trait/instance/start.st deleted file mode 100644 index 537b926d6..000000000 --- a/src/Squot.package/TSquotUnitOfWork.trait/instance/start.st +++ /dev/null @@ -1,4 +0,0 @@ -unit of work -start - "Begin unit of work. Can be used to allocate resources upfront. - Can be called multiple times if there are multiplie clients collaborating on a transaction." \ No newline at end of file diff --git a/src/Squot.package/TSquotUnitOfWork.trait/methodProperties.json b/src/Squot.package/TSquotUnitOfWork.trait/methodProperties.json deleted file mode 100644 index 0cc17980b..000000000 --- a/src/Squot.package/TSquotUnitOfWork.trait/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "activateDuring:" : "jr 8/8/2020 16:36", - "finish" : "jr 4/17/2020 14:31", - "start" : "jr 4/17/2020 14:31" } } diff --git a/src/Squot.package/TSquotUnitOfWork.trait/properties.json b/src/Squot.package/TSquotUnitOfWork.trait/properties.json deleted file mode 100644 index d30ca3d0d..000000000 --- a/src/Squot.package/TSquotUnitOfWork.trait/properties.json +++ /dev/null @@ -1,4 +0,0 @@ -{ - "category" : "Squot-Interfaces", - "commentStamp" : "jr 4/17/2020 16:31", - "name" : "TSquotUnitOfWork" } diff --git a/src/Squot.package/TSquotVersion.trait/README.md b/src/Squot.package/TSquotVersion.trait/README.md deleted file mode 100644 index 36630ea83..000000000 --- a/src/Squot.package/TSquotVersion.trait/README.md +++ /dev/null @@ -1 +0,0 @@ -A Version that supports accessing the artifacts contained in its snapshot and ancestry queries. \ No newline at end of file diff --git a/src/Squot.package/TSquotVersion.trait/instance/^equals.st b/src/Squot.package/TSquotVersion.trait/instance/^equals.st deleted file mode 100644 index 3a8b0f26d..000000000 --- a/src/Squot.package/TSquotVersion.trait/instance/^equals.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -= anObject - ^ (anObject respondsTo: #internalId) and: [anObject internalId = self internalId] \ No newline at end of file diff --git a/src/Squot.package/TSquotVersion.trait/instance/artifacts.st b/src/Squot.package/TSquotVersion.trait/instance/artifacts.st deleted file mode 100644 index 35bad778e..000000000 --- a/src/Squot.package/TSquotVersion.trait/instance/artifacts.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing snapshot -artifacts - ^ self snapshot artifacts \ No newline at end of file diff --git a/src/Squot.package/TSquotVersion.trait/instance/asSquotVersionIn..st b/src/Squot.package/TSquotVersion.trait/instance/asSquotVersionIn..st deleted file mode 100644 index 581c73da2..000000000 --- a/src/Squot.package/TSquotVersion.trait/instance/asSquotVersionIn..st +++ /dev/null @@ -1,4 +0,0 @@ -converting -asSquotVersionIn: aRepository - aRepository = self repository ifTrue: [^ self]. - ^ aRepository versionAt: self internalId \ No newline at end of file diff --git a/src/Squot.package/TSquotVersion.trait/instance/hash.st b/src/Squot.package/TSquotVersion.trait/instance/hash.st deleted file mode 100644 index 0fecd95d0..000000000 --- a/src/Squot.package/TSquotVersion.trait/instance/hash.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -hash - ^ self internalId hash \ No newline at end of file diff --git a/src/Squot.package/TSquotVersion.trait/instance/isAncestorOf..st b/src/Squot.package/TSquotVersion.trait/instance/isAncestorOf..st deleted file mode 100644 index 9a8ba8404..000000000 --- a/src/Squot.package/TSquotVersion.trait/instance/isAncestorOf..st +++ /dev/null @@ -1,3 +0,0 @@ -ancestry -isAncestorOf: aVersion - ^ (self mergeBasesWith: aVersion) includes: self \ No newline at end of file diff --git a/src/Squot.package/TSquotVersion.trait/instance/lazySnapshot.st b/src/Squot.package/TSquotVersion.trait/instance/lazySnapshot.st deleted file mode 100644 index f3f93d9b9..000000000 --- a/src/Squot.package/TSquotVersion.trait/instance/lazySnapshot.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing snapshot -lazySnapshot - ^ self snapshot \ No newline at end of file diff --git a/src/Squot.package/TSquotVersion.trait/instance/loadOrder.st b/src/Squot.package/TSquotVersion.trait/instance/loadOrder.st deleted file mode 100644 index 9fd9ea6b4..000000000 --- a/src/Squot.package/TSquotVersion.trait/instance/loadOrder.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing snapshot -loadOrder - ^ self snapshot loadOrder \ No newline at end of file diff --git a/src/Squot.package/TSquotVersion.trait/instance/mergeBasesWith..st b/src/Squot.package/TSquotVersion.trait/instance/mergeBasesWith..st deleted file mode 100644 index 1c5209872..000000000 --- a/src/Squot.package/TSquotVersion.trait/instance/mergeBasesWith..st +++ /dev/null @@ -1,3 +0,0 @@ -ancestry -mergeBasesWith: otherVersion - ^ (VersionsMergeBase of: self and: otherVersion) allVersions \ No newline at end of file diff --git a/src/Squot.package/TSquotVersion.trait/instance/parentSnapshot.st b/src/Squot.package/TSquotVersion.trait/instance/parentSnapshot.st deleted file mode 100644 index e8e2e9668..000000000 --- a/src/Squot.package/TSquotVersion.trait/instance/parentSnapshot.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing snapshot -parentSnapshot - "Answer the snapshot of the first parent, if there is one, or otherwise an empty snapshot" - ^ (self parents ifEmpty: [^ SquotSnapshot empty]) first snapshot \ No newline at end of file diff --git a/src/Squot.package/TSquotVersion.trait/instance/printOn..st b/src/Squot.package/TSquotVersion.trait/instance/printOn..st deleted file mode 100644 index ebe9ca32a..000000000 --- a/src/Squot.package/TSquotVersion.trait/instance/printOn..st +++ /dev/null @@ -1,10 +0,0 @@ -printing -printOn: aStream - aStream - nextPutAll: self class name asString; - space; - print: self internalId; - space; - nextPut: $"; - nextPutAll: self message; - nextPut: $". \ No newline at end of file diff --git a/src/Squot.package/TSquotVersion.trait/methodProperties.json b/src/Squot.package/TSquotVersion.trait/methodProperties.json deleted file mode 100644 index 7fdbdad0d..000000000 --- a/src/Squot.package/TSquotVersion.trait/methodProperties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "=" : "jr 3/16/2019 18:55", - "artifacts" : "jr 5/28/2017 16:09", - "asSquotVersionIn:" : "jr 2/8/2020 20:38", - "hash" : "jr 3/16/2019 18:55", - "isAncestorOf:" : "jr 6/30/2017 23:37", - "lazySnapshot" : "jr 3/16/2019 18:31", - "loadOrder" : "jr 8/18/2018 17:01", - "mergeBasesWith:" : "jr 6/30/2017 23:37", - "parentSnapshot" : "jr 5/31/2017 13:18", - "printOn:" : "jr 3/16/2019 18:13" } } diff --git a/src/Squot.package/TSquotVersion.trait/properties.json b/src/Squot.package/TSquotVersion.trait/properties.json deleted file mode 100644 index cd36bdaf3..000000000 --- a/src/Squot.package/TSquotVersion.trait/properties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "category" : "Squot-Core", - "classtraitcomposition" : "TSquotObjectContainer classTrait + TSquotConvertibleToVersion classTrait", - "commentStamp" : "jr 3/17/2018 17:47", - "name" : "TSquotVersion", - "traitcomposition" : "TSquotObjectContainer + TSquotConvertibleToVersion" } diff --git a/src/Squot.package/TSquotVersionBuilder.trait/README.md b/src/Squot.package/TSquotVersionBuilder.trait/README.md deleted file mode 100644 index 87762864a..000000000 --- a/src/Squot.package/TSquotVersionBuilder.trait/README.md +++ /dev/null @@ -1 +0,0 @@ -I define messages that a builder used to create a new Version should understand. \ No newline at end of file diff --git a/src/Squot.package/TSquotVersionBuilder.trait/instance/author..st b/src/Squot.package/TSquotVersionBuilder.trait/instance/author..st deleted file mode 100644 index 51b812691..000000000 --- a/src/Squot.package/TSquotVersionBuilder.trait/instance/author..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -author: anObject - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotVersionBuilder.trait/instance/author.st b/src/Squot.package/TSquotVersionBuilder.trait/instance/author.st deleted file mode 100644 index 26141ca84..000000000 --- a/src/Squot.package/TSquotVersionBuilder.trait/instance/author.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -author - - ^ self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotVersionBuilder.trait/instance/committer..st b/src/Squot.package/TSquotVersionBuilder.trait/instance/committer..st deleted file mode 100644 index 2c7f2f702..000000000 --- a/src/Squot.package/TSquotVersionBuilder.trait/instance/committer..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -committer: anObject - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotVersionBuilder.trait/instance/committer.st b/src/Squot.package/TSquotVersionBuilder.trait/instance/committer.st deleted file mode 100644 index df1f98aba..000000000 --- a/src/Squot.package/TSquotVersionBuilder.trait/instance/committer.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -committer - ^ self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotVersionBuilder.trait/instance/doNotStoreMetadata.st b/src/Squot.package/TSquotVersionBuilder.trait/instance/doNotStoreMetadata.st deleted file mode 100644 index f518f9614..000000000 --- a/src/Squot.package/TSquotVersionBuilder.trait/instance/doNotStoreMetadata.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -doNotStoreMetadata - "Advises this builder that no Squot metadata should be written to the repository." \ No newline at end of file diff --git a/src/Squot.package/TSquotVersionBuilder.trait/instance/initializeClean.st b/src/Squot.package/TSquotVersionBuilder.trait/instance/initializeClean.st deleted file mode 100644 index d494ce19a..000000000 --- a/src/Squot.package/TSquotVersionBuilder.trait/instance/initializeClean.st +++ /dev/null @@ -1,7 +0,0 @@ -initialize-release -initializeClean - "Clients that wish to have no defaults applied to the produced version should call this." - self author: ''. - self committer: ''. - self message: ''. - self parents: OrderedCollection new. \ No newline at end of file diff --git a/src/Squot.package/TSquotVersionBuilder.trait/instance/message..st b/src/Squot.package/TSquotVersionBuilder.trait/instance/message..st deleted file mode 100644 index ab64fe2b6..000000000 --- a/src/Squot.package/TSquotVersionBuilder.trait/instance/message..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -message: anObject - - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotVersionBuilder.trait/instance/message.st b/src/Squot.package/TSquotVersionBuilder.trait/instance/message.st deleted file mode 100644 index 64f980a49..000000000 --- a/src/Squot.package/TSquotVersionBuilder.trait/instance/message.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -message - - ^ self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotVersionBuilder.trait/instance/parents..st b/src/Squot.package/TSquotVersionBuilder.trait/instance/parents..st deleted file mode 100644 index 002bea013..000000000 --- a/src/Squot.package/TSquotVersionBuilder.trait/instance/parents..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -parents: anObject - - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotVersionBuilder.trait/instance/parents.st b/src/Squot.package/TSquotVersionBuilder.trait/instance/parents.st deleted file mode 100644 index 2f24e1dcd..000000000 --- a/src/Squot.package/TSquotVersionBuilder.trait/instance/parents.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -parents - - ^ self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotVersionBuilder.trait/instance/snapshot..st b/src/Squot.package/TSquotVersionBuilder.trait/instance/snapshot..st deleted file mode 100644 index a39d23f09..000000000 --- a/src/Squot.package/TSquotVersionBuilder.trait/instance/snapshot..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -snapshot: anObject - - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotVersionBuilder.trait/instance/snapshot.st b/src/Squot.package/TSquotVersionBuilder.trait/instance/snapshot.st deleted file mode 100644 index 8d10ef02e..000000000 --- a/src/Squot.package/TSquotVersionBuilder.trait/instance/snapshot.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -snapshot - - ^ self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotVersionBuilder.trait/instance/timestamp..st b/src/Squot.package/TSquotVersionBuilder.trait/instance/timestamp..st deleted file mode 100644 index 20bc2c803..000000000 --- a/src/Squot.package/TSquotVersionBuilder.trait/instance/timestamp..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -timestamp: anObject - - self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotVersionBuilder.trait/instance/timestamp.st b/src/Squot.package/TSquotVersionBuilder.trait/instance/timestamp.st deleted file mode 100644 index 8963efbab..000000000 --- a/src/Squot.package/TSquotVersionBuilder.trait/instance/timestamp.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -timestamp - - ^ self shouldBeImplemented \ No newline at end of file diff --git a/src/Squot.package/TSquotVersionBuilder.trait/methodProperties.json b/src/Squot.package/TSquotVersionBuilder.trait/methodProperties.json deleted file mode 100644 index 594678c8c..000000000 --- a/src/Squot.package/TSquotVersionBuilder.trait/methodProperties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "author" : "jr 2/9/2017 18:05", - "author:" : "jr 2/9/2017 18:05", - "committer" : "jr 2/9/2017 18:06", - "committer:" : "jr 2/9/2017 18:06", - "doNotStoreMetadata" : "jr 3/7/2017 17:35", - "initializeClean" : "jr 2/9/2017 18:06", - "message" : "jr 2/9/2017 18:07", - "message:" : "jr 2/9/2017 18:07", - "parents" : "jr 2/9/2017 18:07", - "parents:" : "jr 2/9/2017 18:07", - "snapshot" : "jr 2/9/2017 18:07", - "snapshot:" : "jr 2/9/2017 18:07", - "timestamp" : "jr 2/9/2017 18:07", - "timestamp:" : "jr 2/9/2017 18:07" } } diff --git a/src/Squot.package/TSquotVersionBuilder.trait/properties.json b/src/Squot.package/TSquotVersionBuilder.trait/properties.json deleted file mode 100644 index d4b17ce20..000000000 --- a/src/Squot.package/TSquotVersionBuilder.trait/properties.json +++ /dev/null @@ -1,4 +0,0 @@ -{ - "category" : "Squot-Core", - "commentStamp" : "jr 3/17/2018 19:37", - "name" : "TSquotVersionBuilder" } diff --git a/src/Squot.package/TSquotWorkingCopyTestWithFileBasedRepository.trait/README.md b/src/Squot.package/TSquotWorkingCopyTestWithFileBasedRepository.trait/README.md deleted file mode 100644 index 67b710275..000000000 --- a/src/Squot.package/TSquotWorkingCopyTestWithFileBasedRepository.trait/README.md +++ /dev/null @@ -1 +0,0 @@ -I supply tests for SquotWorkingCopyTest subclasses that use a file-based repository. \ No newline at end of file diff --git a/src/Squot.package/TSquotWorkingCopyTestWithFileBasedRepository.trait/instance/testAddMultiplePackagesToSameFolder.st b/src/Squot.package/TSquotWorkingCopyTestWithFileBasedRepository.trait/instance/testAddMultiplePackagesToSameFolder.st deleted file mode 100644 index c8d16877a..000000000 --- a/src/Squot.package/TSquotWorkingCopyTestWithFileBasedRepository.trait/instance/testAddMultiplePackagesToSameFolder.st +++ /dev/null @@ -1,26 +0,0 @@ -tests -testAddMultiplePackagesToSameFolder - "When multiple packages are added at the same folder, the automatic renaming must ensure that they get distinct paths and do not overwrite each other." - | package1 package2 encounteredWarning | - package1 := PackageInfo new packageName: self classFactory packageName, '-1'. - package2 := PackageInfo new packageName: self classFactory packageName, '-2'. - ["when" - [self workingCopy - add: package1 at: 'src'; - add: package2 at: 'src'] - on: Warning do: [:w | encounteredWarning := true. w resume]. - "then" - self assert: (self workingCopy includesObject: package1). - self assert: (self workingCopy includesObject: package2). - self assert: (self workingCopy includesObjectAt: 'src/', package1 packageName, '.package'). - self assert: (self workingCopy includesObjectAt: 'src/', package2 packageName, '.package'). - self assert: (self workingCopy objectAt: 'src/', package1 packageName, '.package') == package1. - self assert: (self workingCopy objectAt: 'src/', package2 packageName, '.package') == package2. - self deny: (self workingCopy includesObjectAt: 'src'). - self deny: encounteredWarning == true] - ensure: - [(MCWorkingCopy allManagers select: [:each | each packageName = package1 packageName or: [each packageName = package2 packageName]]) - do: [:each | each unregister]. - Environment current packageOrganizer - unregisterPackageNamed: package1 packageName; - unregisterPackageNamed: package2 packageName]. \ No newline at end of file diff --git a/src/Squot.package/TSquotWorkingCopyTestWithFileBasedRepository.trait/instance/testPathInImageStoreIsCorrected.st b/src/Squot.package/TSquotWorkingCopyTestWithFileBasedRepository.trait/instance/testPathInImageStoreIsCorrected.st deleted file mode 100644 index 0d5899f5a..000000000 --- a/src/Squot.package/TSquotWorkingCopyTestWithFileBasedRepository.trait/instance/testPathInImageStoreIsCorrected.st +++ /dev/null @@ -1,13 +0,0 @@ -tests -testPathInImageStoreIsCorrected - | class classPackageName | - class := self class. - classPackageName := class category. - self workingCopy add: class at: 'src'. - self workingCopy saveVersionWithMessage: ''. - self assert: (self - shouldnt: - [self workingCopy store - objectAt: 'src/', classPackageName, '.package/', class name, '.class'] - raise: KeyNotFound) == class. - self deny: (self workingCopy includesObjectAt: 'src'). \ No newline at end of file diff --git a/src/Squot.package/TSquotWorkingCopyTestWithFileBasedRepository.trait/instance/testPathInImageStoreIsCorrectedWithOldSave.st b/src/Squot.package/TSquotWorkingCopyTestWithFileBasedRepository.trait/instance/testPathInImageStoreIsCorrectedWithOldSave.st deleted file mode 100644 index 9d9a84a2b..000000000 --- a/src/Squot.package/TSquotWorkingCopyTestWithFileBasedRepository.trait/instance/testPathInImageStoreIsCorrectedWithOldSave.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testPathInImageStoreIsCorrectedWithOldSave - | class classPackageName | - class := self class. - classPackageName := class category. - self workingCopy add: class at: 'src'. - [self workingCopy saveVersionWithMessage: ''] - on: Deprecation do: [:e | e resume]. - self assert: (self - shouldnt: - [self workingCopy store - objectAt: 'src/', classPackageName, '.package/', class name, '.class'] - raise: KeyNotFound) == class. - self deny: (self workingCopy includesObjectAt: 'src'). \ No newline at end of file diff --git a/src/Squot.package/TSquotWorkingCopyTestWithFileBasedRepository.trait/methodProperties.json b/src/Squot.package/TSquotWorkingCopyTestWithFileBasedRepository.trait/methodProperties.json deleted file mode 100644 index 0d737db73..000000000 --- a/src/Squot.package/TSquotWorkingCopyTestWithFileBasedRepository.trait/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testAddMultiplePackagesToSameFolder" : "jr 8/7/2022 19:13", - "testPathInImageStoreIsCorrected" : "jr 1/26/2020 22:59", - "testPathInImageStoreIsCorrectedWithOldSave" : "jr 8/8/2020 16:04" } } diff --git a/src/Squot.package/TSquotWorkingCopyTestWithFileBasedRepository.trait/properties.json b/src/Squot.package/TSquotWorkingCopyTestWithFileBasedRepository.trait/properties.json deleted file mode 100644 index b6a31c020..000000000 --- a/src/Squot.package/TSquotWorkingCopyTestWithFileBasedRepository.trait/properties.json +++ /dev/null @@ -1,4 +0,0 @@ -{ - "category" : "Squot-Tests", - "commentStamp" : "jr 3/17/2018 20:09", - "name" : "TSquotWorkingCopyTestWithFileBasedRepository" } diff --git a/src/Squot.package/TTestCaseSuppressingProgressDisplay.trait/README.md b/src/Squot.package/TTestCaseSuppressingProgressDisplay.trait/README.md deleted file mode 100644 index 3df1cf08f..000000000 --- a/src/Squot.package/TTestCaseSuppressingProgressDisplay.trait/README.md +++ /dev/null @@ -1 +0,0 @@ -I suppress the display of progress (through progress notifications) to speed up tests. \ No newline at end of file diff --git a/src/Squot.package/TTestCaseSuppressingProgressDisplay.trait/instance/performTest.st b/src/Squot.package/TTestCaseSuppressingProgressDisplay.trait/instance/performTest.st deleted file mode 100644 index 2e8c74c65..000000000 --- a/src/Squot.package/TTestCaseSuppressingProgressDisplay.trait/instance/performTest.st +++ /dev/null @@ -1,3 +0,0 @@ -private -performTest - ^ self suppressProgressDisplayDuring: [super performTest] \ No newline at end of file diff --git a/src/Squot.package/TTestCaseSuppressingProgressDisplay.trait/instance/suppressProgressDisplayDuring..st b/src/Squot.package/TTestCaseSuppressingProgressDisplay.trait/instance/suppressProgressDisplayDuring..st deleted file mode 100644 index 16a62a924..000000000 --- a/src/Squot.package/TTestCaseSuppressingProgressDisplay.trait/instance/suppressProgressDisplayDuring..st +++ /dev/null @@ -1,13 +0,0 @@ -progress suppressing -suppressProgressDisplayDuring: aBlock - | newExceptionHandling | - newExceptionHandling := ProgressInitiationException canUnderstand: #resumeSuppressingProgress. - ^ SquotProgressOutput value: SquotNoProgressOutput during: - [aBlock - on: ProgressInitiationException do: [:e | - e rearmHandlerDuring: - [newExceptionHandling - ifTrue: [e resumeSuppressingProgress] - ifFalse: "Up to Squeak 5.3" - [[e sendNotificationsTo: [:min :max :current | "silence"]] - on: ProgressNotification do: [:notification | notification resume]]]]] \ No newline at end of file diff --git a/src/Squot.package/TTestCaseSuppressingProgressDisplay.trait/methodProperties.json b/src/Squot.package/TTestCaseSuppressingProgressDisplay.trait/methodProperties.json deleted file mode 100644 index e49c27cfa..000000000 --- a/src/Squot.package/TTestCaseSuppressingProgressDisplay.trait/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "performTest" : "jr 3/3/2020 23:26", - "suppressProgressDisplayDuring:" : "jr 5/14/2021 13:56" } } diff --git a/src/Squot.package/TTestCaseSuppressingProgressDisplay.trait/properties.json b/src/Squot.package/TTestCaseSuppressingProgressDisplay.trait/properties.json deleted file mode 100644 index 2d758bbfa..000000000 --- a/src/Squot.package/TTestCaseSuppressingProgressDisplay.trait/properties.json +++ /dev/null @@ -1,4 +0,0 @@ -{ - "category" : "Squot-Tests-Support", - "commentStamp" : "jr 3/17/2018 20:15", - "name" : "TTestCaseSuppressingProgressDisplay" } diff --git a/src/Squot.package/TTestCaseThatCreatesClassesOrMethods.trait/README.md b/src/Squot.package/TTestCaseThatCreatesClassesOrMethods.trait/README.md deleted file mode 100644 index 6d0b8028f..000000000 --- a/src/Squot.package/TTestCaseThatCreatesClassesOrMethods.trait/README.md +++ /dev/null @@ -1,4 +0,0 @@ -I provide a method to suppress writing to the changes file. -Use me for creating classes (also via ClassFactoryForTestCase) and -ClassOrganizer>>classify:under:logged: (even if logged is false!). -Also use me when you let a SquotWorkingCopy apply patches to packages. \ No newline at end of file diff --git a/src/Squot.package/TTestCaseThatCreatesClassesOrMethods.trait/instance/suppressChangeNotificationsDuring..st b/src/Squot.package/TTestCaseThatCreatesClassesOrMethods.trait/instance/suppressChangeNotificationsDuring..st deleted file mode 100644 index f0e3313f2..000000000 --- a/src/Squot.package/TTestCaseThatCreatesClassesOrMethods.trait/instance/suppressChangeNotificationsDuring..st +++ /dev/null @@ -1,3 +0,0 @@ -change log suppressing -suppressChangeNotificationsDuring: aBlock - ^ self changeLogSuppressor suppressChangeNotificationsDuring: aBlock \ No newline at end of file diff --git a/src/Squot.package/TTestCaseThatCreatesClassesOrMethods.trait/methodProperties.json b/src/Squot.package/TTestCaseThatCreatesClassesOrMethods.trait/methodProperties.json deleted file mode 100644 index b065a78bb..000000000 --- a/src/Squot.package/TTestCaseThatCreatesClassesOrMethods.trait/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "suppressChangeNotificationsDuring:" : "jr 4/29/2018 16:50" } } diff --git a/src/Squot.package/TTestCaseThatCreatesClassesOrMethods.trait/properties.json b/src/Squot.package/TTestCaseThatCreatesClassesOrMethods.trait/properties.json deleted file mode 100644 index 949c2f15d..000000000 --- a/src/Squot.package/TTestCaseThatCreatesClassesOrMethods.trait/properties.json +++ /dev/null @@ -1,4 +0,0 @@ -{ - "category" : "Squot-Tests", - "commentStamp" : "jr 4/29/2018 17:11", - "name" : "TTestCaseThatCreatesClassesOrMethods" } diff --git a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/README.md b/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/README.md deleted file mode 100644 index b615a036b..000000000 --- a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I test that the TTestCaseSuppressingProgressDisplay trait does not affect the outcome of tests. \ No newline at end of file diff --git a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/instance/subjectTestCase.st b/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/instance/subjectTestCase.st deleted file mode 100644 index 37c62cb5f..000000000 --- a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/instance/subjectTestCase.st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -subjectTestCase - ^ TestCaseSuppressingProgressDisplayTraitTestSubject \ No newline at end of file diff --git a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/instance/testErringTestStillErrs.st b/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/instance/testErringTestStillErrs.st deleted file mode 100644 index 1a7e2ef8b..000000000 --- a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/instance/testErringTestStillErrs.st +++ /dev/null @@ -1,5 +0,0 @@ -as yet unclassified -testErringTestStillErrs - testCase := self subjectTestCase selector: #testThatErrs. - result := testCase run. - self assert: (result errors includes: testCase). \ No newline at end of file diff --git a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/instance/testFailingTestStillFails.st b/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/instance/testFailingTestStillFails.st deleted file mode 100644 index ed0633783..000000000 --- a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/instance/testFailingTestStillFails.st +++ /dev/null @@ -1,5 +0,0 @@ -as yet unclassified -testFailingTestStillFails - testCase := self subjectTestCase selector: #testThatFails. - result := testCase run. - self assert: (result failures includes: testCase). \ No newline at end of file diff --git a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/instance/testPassingTestStillPasses.st b/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/instance/testPassingTestStillPasses.st deleted file mode 100644 index 6be2dc5bd..000000000 --- a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/instance/testPassingTestStillPasses.st +++ /dev/null @@ -1,5 +0,0 @@ -as yet unclassified -testPassingTestStillPasses - testCase := self subjectTestCase selector: #testThatPasses. - result := testCase run. - self assert: (result passed includes: testCase). \ No newline at end of file diff --git a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/instance/testProgressIsMuted.st b/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/instance/testProgressIsMuted.st deleted file mode 100644 index 3f0db461d..000000000 --- a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/instance/testProgressIsMuted.st +++ /dev/null @@ -1,4 +0,0 @@ -as yet unclassified -testProgressIsMuted - testCase := self subjectTestCase selector: #testThatPasses. - result := [testCase run] on: ProgressInitiationException do: [:e | self fail: 'Progress not muted']. \ No newline at end of file diff --git a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/methodProperties.json b/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/methodProperties.json deleted file mode 100644 index 232785e24..000000000 --- a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "subjectTestCase" : "jr 5/31/2017 15:01", - "testErringTestStillErrs" : "jr 5/31/2017 15:03", - "testFailingTestStillFails" : "jr 5/31/2017 15:03", - "testPassingTestStillPasses" : "jr 5/31/2017 15:03", - "testProgressIsMuted" : "jr 5/14/2021 13:41" } } diff --git a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/properties.json b/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/properties.json deleted file mode 100644 index c559e0473..000000000 --- a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTest.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Squot-Tests-Support", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 20:17", - "instvars" : [ - "testCase", - "result" ], - "name" : "TestCaseSuppressingProgressDisplayTraitTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/README.md b/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/README.md deleted file mode 100644 index 8dd26729d..000000000 --- a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I provide sample tests for TestCaseSuppressingProgressDisplayTraitTest. \ No newline at end of file diff --git a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/class/isAbstract.st b/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/class/isAbstract.st deleted file mode 100644 index 749a9c81a..000000000 --- a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/class/isAbstract.st +++ /dev/null @@ -1,4 +0,0 @@ -as yet unclassified -isAbstract - "This should only be run from another test case to test the results." - ^ true \ No newline at end of file diff --git a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/instance/testThatErrs.st b/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/instance/testThatErrs.st deleted file mode 100644 index c9d7c043b..000000000 --- a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/instance/testThatErrs.st +++ /dev/null @@ -1,8 +0,0 @@ -sample tests -testThatErrs - 'sequential' displaySequentialProgress: - [ProgressNotification signal: 0 extra: 'start'. - #(1) do: [:each | - 'inner sequential' displaySequentialProgress: [ProgressNotification signal: 0.5]. - self error: 'I want it that way'] displayingProgress: 'do progress'. - ProgressNotification signal: 1 extra: 'end']. diff --git a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/instance/testThatFails.st b/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/instance/testThatFails.st deleted file mode 100644 index c2a670920..000000000 --- a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/instance/testThatFails.st +++ /dev/null @@ -1,8 +0,0 @@ -sample tests -testThatFails - 'sequential' displaySequentialProgress: - [ProgressNotification signal: 0 extra: 'start'. - #(1) do: [:each | - 'inner sequential' displaySequentialProgress: [ProgressNotification signal: 0.5]. - self assert: false] displayingProgress: 'do progress'. - ProgressNotification signal: 1 extra: 'end']. \ No newline at end of file diff --git a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/instance/testThatPasses.st b/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/instance/testThatPasses.st deleted file mode 100644 index a562254ce..000000000 --- a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/instance/testThatPasses.st +++ /dev/null @@ -1,8 +0,0 @@ -sample tests -testThatPasses - 'sequential' displaySequentialProgress: - [ProgressNotification signal: 0 extra: 'start'. - #(1) do: [:each | - 'inner sequential' displaySequentialProgress: [ProgressNotification signal: 0.5]. - self assert: true] displayingProgress: 'do progress'. - ProgressNotification signal: 1 extra: 'end']. \ No newline at end of file diff --git a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/methodProperties.json b/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/methodProperties.json deleted file mode 100644 index 5a90142a1..000000000 --- a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - "isAbstract" : "jr 5/31/2017 15:04" }, - "instance" : { - "testThatErrs" : "jr 5/31/2017 15:13", - "testThatFails" : "jr 5/31/2017 15:13", - "testThatPasses" : "jr 5/31/2017 15:13" } } diff --git a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/properties.json b/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/properties.json deleted file mode 100644 index 0fef1e8ff..000000000 --- a/src/Squot.package/TestCaseSuppressingProgressDisplayTraitTestSubject.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Squot-Tests-Support", - "classinstvars" : [ - ], - "classtraitcomposition" : "TTestCaseSuppressingProgressDisplay classTrait", - "classvars" : [ - ], - "commentStamp" : "jr 3/17/2018 20:17", - "instvars" : [ - ], - "name" : "TestCaseSuppressingProgressDisplayTraitTestSubject", - "pools" : [ - ], - "super" : "TestCase", - "traitcomposition" : "TTestCaseSuppressingProgressDisplay", - "type" : "normal" } diff --git a/src/Squot.package/UUID.extension/class/squotMirror.st b/src/Squot.package/UUID.extension/class/squotMirror.st deleted file mode 100644 index cb0e062d8..000000000 --- a/src/Squot.package/UUID.extension/class/squotMirror.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot -squotMirror - "Do not introspect me like an array of bytes, but as a singular value, for the sake of object tracking and patching." - ^ SquotOpaqueValueMirror new \ No newline at end of file diff --git a/src/Squot.package/UUID.extension/methodProperties.json b/src/Squot.package/UUID.extension/methodProperties.json deleted file mode 100644 index 4b75b71b2..000000000 --- a/src/Squot.package/UUID.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "squotMirror" : "jr 2/13/2022 16:23" }, - "instance" : { - } } diff --git a/src/Squot.package/UUID.extension/properties.json b/src/Squot.package/UUID.extension/properties.json deleted file mode 100644 index 6c2628369..000000000 --- a/src/Squot.package/UUID.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "UUID" } diff --git a/src/Squot.package/UndefinedObject.extension/class/squotMirror.st b/src/Squot.package/UndefinedObject.extension/class/squotMirror.st deleted file mode 100644 index 53a5172cf..000000000 --- a/src/Squot.package/UndefinedObject.extension/class/squotMirror.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-trackable -squotMirror - ^ SquotSystemSingletonMirror class: self \ No newline at end of file diff --git a/src/Squot.package/UndefinedObject.extension/instance/canHaveNameAssignedBySquot.st b/src/Squot.package/UndefinedObject.extension/instance/canHaveNameAssignedBySquot.st deleted file mode 100644 index e8ea56f10..000000000 --- a/src/Squot.package/UndefinedObject.extension/instance/canHaveNameAssignedBySquot.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-shadow-capturing -canHaveNameAssignedBySquot - "nil is a trivial object, like numbers, and must never get a name to track its identity." - ^ false \ No newline at end of file diff --git a/src/Squot.package/UndefinedObject.extension/instance/captureWithSquot..st b/src/Squot.package/UndefinedObject.extension/instance/captureWithSquot..st deleted file mode 100644 index 9fc4c8792..000000000 --- a/src/Squot.package/UndefinedObject.extension/instance/captureWithSquot..st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-trackable -captureWithSquot: anObjectCapturer - self flag: #deprecated. "Ask the mirror instead." - ^ anObjectCapturer capturePrimitiveValue: self \ No newline at end of file diff --git a/src/Squot.package/UndefinedObject.extension/instance/captureWithSquot.st b/src/Squot.package/UndefinedObject.extension/instance/captureWithSquot.st deleted file mode 100644 index f8a446e82..000000000 --- a/src/Squot.package/UndefinedObject.extension/instance/captureWithSquot.st +++ /dev/null @@ -1,3 +0,0 @@ -*Squot-trackable -captureWithSquot - ^ SquotPrimitiveValue for: self \ No newline at end of file diff --git a/src/Squot.package/UndefinedObject.extension/instance/squotShadowFactory.st b/src/Squot.package/UndefinedObject.extension/instance/squotShadowFactory.st deleted file mode 100644 index 057a85176..000000000 --- a/src/Squot.package/UndefinedObject.extension/instance/squotShadowFactory.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-trackable -squotShadowFactory - self flag: #deprecated. "Ask the mirror instead." - ^ SquotPrimitiveValue \ No newline at end of file diff --git a/src/Squot.package/UndefinedObject.extension/instance/squotShouldKeepIdentity.st b/src/Squot.package/UndefinedObject.extension/instance/squotShouldKeepIdentity.st deleted file mode 100644 index f74f6d96f..000000000 --- a/src/Squot.package/UndefinedObject.extension/instance/squotShouldKeepIdentity.st +++ /dev/null @@ -1,4 +0,0 @@ -*Squot-trackable -squotShouldKeepIdentity - "Not necessary. There is only one instance of me anyway." - ^ false \ No newline at end of file diff --git a/src/Squot.package/UndefinedObject.extension/methodProperties.json b/src/Squot.package/UndefinedObject.extension/methodProperties.json deleted file mode 100644 index 8364a53ae..000000000 --- a/src/Squot.package/UndefinedObject.extension/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - "squotMirror" : "jr 1/17/2021 22:26" }, - "instance" : { - "canHaveNameAssignedBySquot" : "jr 9/25/2019 14:33", - "captureWithSquot" : "jr 6/17/2017 20:51", - "captureWithSquot:" : "jr 1/11/2021 00:01", - "squotShadowFactory" : "jr 1/10/2021 23:57", - "squotShouldKeepIdentity" : "jr 6/22/2017 15:23" } } diff --git a/src/Squot.package/UndefinedObject.extension/properties.json b/src/Squot.package/UndefinedObject.extension/properties.json deleted file mode 100644 index 508a24a85..000000000 --- a/src/Squot.package/UndefinedObject.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "UndefinedObject" } diff --git a/src/Squot.package/monticello.meta/categories.st b/src/Squot.package/monticello.meta/categories.st index 77f59ad2d..f7831ce2d 100644 --- a/src/Squot.package/monticello.meta/categories.st +++ b/src/Squot.package/monticello.meta/categories.st @@ -1,39 +1,4 @@ -SystemOrganization addCategory: #'Squot-Interfaces'! -SystemOrganization addCategory: #'Squot-Core'! -SystemOrganization addCategory: #'Squot-WorkingCopies'! -SystemOrganization addCategory: #'Squot-ImageStore'! -SystemOrganization addCategory: #'Squot-Exceptions'! -SystemOrganization addCategory: #'Squot-Reflection'! -SystemOrganization addCategory: #'Squot-Capturing'! -SystemOrganization addCategory: #'Squot-Shadows'! -SystemOrganization addCategory: #'Squot-Diffs'! -SystemOrganization addCategory: #'Squot-Diffs-Internal'! -SystemOrganization addCategory: #'Squot-Diffs-Generic'! -SystemOrganization addCategory: #'Squot-Merging'! -SystemOrganization addCategory: #'Squot-Packages'! -SystemOrganization addCategory: #'Squot-Internal'! -SystemOrganization addCategory: #'Squot-FileSystemStore'! -SystemOrganization addCategory: #'Squot-Serialization'! SystemOrganization addCategory: #'Squot-Serialization-Cypress'! -SystemOrganization addCategory: #'Squot-Tools'! -SystemOrganization addCategory: #'Squot-Tools-Packages'! -SystemOrganization addCategory: #'Squot-Tools-Support'! -SystemOrganization addCategory: #'Squot-Dev-Tools'! -SystemOrganization addCategory: #'Squot-Monticello-Converter'! -SystemOrganization addCategory: #'Squot-Deprecated'! -SystemOrganization addCategory: #'Squot-Tests'! -SystemOrganization addCategory: #'Squot-Tests-Shadows'! -SystemOrganization addCategory: #'Squot-Tests-Diffs'! -SystemOrganization addCategory: #'Squot-Tests-Merging'! -SystemOrganization addCategory: #'Squot-Tests-Support'! -SystemOrganization addCategory: #'Squot-Tests-Packages'! -SystemOrganization addCategory: #'Squot-Tests-Tools'! -SystemOrganization addCategory: #'Squot-Tests-Tools-Packages'! -SystemOrganization addCategory: #'Squot-Tests-Monticello-Converter'! -SystemOrganization addCategory: #'Squot-Tests-Files'! -SystemOrganization addCategory: #'Squot-Tests-Serialization'! -SystemOrganization addCategory: #'Squot-Help'! -SystemOrganization addCategory: #'Squot-CoAuthorsExtension'! SystemOrganization addCategory: #'Squot-Mapper'! SystemOrganization addCategory: #'Squot-Mapper-Metadata'! SystemOrganization addCategory: #'Squot-Mapper-Metadata-Mappers'! diff --git a/src/SquotCompatibility-Squeak50.package/.filetree b/src/SquotCompatibility-Squeak50.package/.filetree deleted file mode 100644 index 8998102c2..000000000 --- a/src/SquotCompatibility-Squeak50.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/src/SquotCompatibility-Squeak50.package/.squot-contents b/src/SquotCompatibility-Squeak50.package/.squot-contents deleted file mode 100644 index 018b83cec..000000000 --- a/src/SquotCompatibility-Squeak50.package/.squot-contents +++ /dev/null @@ -1,6 +0,0 @@ -SquotTrackedObjectMetadata { - #objectClassName : #PackageInfo, - #id : UUID [ 'd30235033c690e419a340f405fe93b24' ], - #objectsReplacedByNames : true, - #serializer : #SquotCypressCodeSerializer -} \ No newline at end of file diff --git a/src/SquotCompatibility-Squeak50.package/MCRepositoryGroup.extension/instance/cacheAllFileNamesDuring..st b/src/SquotCompatibility-Squeak50.package/MCRepositoryGroup.extension/instance/cacheAllFileNamesDuring..st deleted file mode 100644 index b8c98221c..000000000 --- a/src/SquotCompatibility-Squeak50.package/MCRepositoryGroup.extension/instance/cacheAllFileNamesDuring..st +++ /dev/null @@ -1,7 +0,0 @@ -*SquotCompatibility-Squeak50-private -cacheAllFileNamesDuring: aBlock - ^ (repositories - inject: aBlock - into: [ :innerBlock :repository | - [ repository cacheAllFileNamesDuring: innerBlock ] - ]) value \ No newline at end of file diff --git a/src/SquotCompatibility-Squeak50.package/MCRepositoryGroup.extension/instance/isValid.st b/src/SquotCompatibility-Squeak50.package/MCRepositoryGroup.extension/instance/isValid.st deleted file mode 100644 index 0da356566..000000000 --- a/src/SquotCompatibility-Squeak50.package/MCRepositoryGroup.extension/instance/isValid.st +++ /dev/null @@ -1,4 +0,0 @@ -*SquotCompatibility-Squeak50-testing -isValid - - ^ repositories allSatisfy: #isValid \ No newline at end of file diff --git a/src/SquotCompatibility-Squeak50.package/MCRepositoryGroup.extension/methodProperties.json b/src/SquotCompatibility-Squeak50.package/MCRepositoryGroup.extension/methodProperties.json deleted file mode 100644 index b01d0f124..000000000 --- a/src/SquotCompatibility-Squeak50.package/MCRepositoryGroup.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "cacheAllFileNamesDuring:" : "ct 10/26/2021 21:35", - "isValid" : "ct 10/26/2021 21:35" } } diff --git a/src/SquotCompatibility-Squeak50.package/MCRepositoryGroup.extension/properties.json b/src/SquotCompatibility-Squeak50.package/MCRepositoryGroup.extension/properties.json deleted file mode 100644 index 88a0526c9..000000000 --- a/src/SquotCompatibility-Squeak50.package/MCRepositoryGroup.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "MCRepositoryGroup" } diff --git a/src/SquotCompatibility-Squeak50.package/PackageOrganizer.extension/instance/packageNamed.ifPresent..st b/src/SquotCompatibility-Squeak50.package/PackageOrganizer.extension/instance/packageNamed.ifPresent..st deleted file mode 100644 index 36d41b172..000000000 --- a/src/SquotCompatibility-Squeak50.package/PackageOrganizer.extension/instance/packageNamed.ifPresent..st +++ /dev/null @@ -1,3 +0,0 @@ -*SquotCompatibility-Squeak50 -packageNamed: aString ifPresent: aBlock - ^ packages at: aString ifPresent: aBlock \ No newline at end of file diff --git a/src/SquotCompatibility-Squeak50.package/PackageOrganizer.extension/methodProperties.json b/src/SquotCompatibility-Squeak50.package/PackageOrganizer.extension/methodProperties.json deleted file mode 100644 index 5abde1604..000000000 --- a/src/SquotCompatibility-Squeak50.package/PackageOrganizer.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "packageNamed:ifPresent:" : "ct 7/30/2019 17:20" } } diff --git a/src/SquotCompatibility-Squeak50.package/PackageOrganizer.extension/properties.json b/src/SquotCompatibility-Squeak50.package/PackageOrganizer.extension/properties.json deleted file mode 100644 index ec7c959fd..000000000 --- a/src/SquotCompatibility-Squeak50.package/PackageOrganizer.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "PackageOrganizer" } diff --git a/src/SquotCompatibility-Squeak50.package/monticello.meta/categories.st b/src/SquotCompatibility-Squeak50.package/monticello.meta/categories.st deleted file mode 100644 index 5f6657b3e..000000000 --- a/src/SquotCompatibility-Squeak50.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'SquotCompatibility-Squeak50'! diff --git a/src/SquotCompatibility-Squeak50.package/monticello.meta/initializers.st b/src/SquotCompatibility-Squeak50.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/SquotCompatibility-Squeak50.package/properties.json b/src/SquotCompatibility-Squeak50.package/properties.json deleted file mode 100644 index f037444a7..000000000 --- a/src/SquotCompatibility-Squeak50.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } diff --git a/src/SquotCompatibility-SqueakCommon.package/.squot-contents b/src/SquotCompatibility-SqueakCommon.package/.squot-contents deleted file mode 100644 index c8d0fb816..000000000 --- a/src/SquotCompatibility-SqueakCommon.package/.squot-contents +++ /dev/null @@ -1,6 +0,0 @@ -SquotTrackedObjectMetadata { - #objectClassName : #PackageInfo, - #id : UUID [ '98e88f8dbb13c346876a1c05b63475ee' ], - #objectsReplacedByNames : true, - #serializer : #SquotCypressCodeSerializer -} \ No newline at end of file diff --git a/src/SquotCompatibility-SqueakCommon.package/Collection.extension/instance/asDictionary.st b/src/SquotCompatibility-SqueakCommon.package/Collection.extension/instance/asDictionary.st deleted file mode 100644 index a5266e7b4..000000000 --- a/src/SquotCompatibility-SqueakCommon.package/Collection.extension/instance/asDictionary.st +++ /dev/null @@ -1,3 +0,0 @@ -*SquotCompatibility-SqueakCommon -asDictionary - ^ self as: Dictionary \ No newline at end of file diff --git a/src/SquotCompatibility-SqueakCommon.package/Collection.extension/methodProperties.json b/src/SquotCompatibility-SqueakCommon.package/Collection.extension/methodProperties.json deleted file mode 100644 index d0860327d..000000000 --- a/src/SquotCompatibility-SqueakCommon.package/Collection.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "asDictionary" : "jr 1/6/2017 16:13" } } diff --git a/src/SquotCompatibility-SqueakCommon.package/Collection.extension/properties.json b/src/SquotCompatibility-SqueakCommon.package/Collection.extension/properties.json deleted file mode 100644 index 93b0dc328..000000000 --- a/src/SquotCompatibility-SqueakCommon.package/Collection.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Collection" } diff --git a/src/SquotCompatibility-SqueakCommon.package/README.md b/src/SquotCompatibility-SqueakCommon.package/README.md deleted file mode 100644 index 445d09744..000000000 --- a/src/SquotCompatibility-SqueakCommon.package/README.md +++ /dev/null @@ -1,2 +0,0 @@ -Adds compatibility extensions that are unavailable in plain Squeak. -Currently, most of these extensions is taken from Pharo. diff --git a/src/SquotTonel-Core.package/.filetree b/src/SquotTonel-Core.package/.filetree deleted file mode 100644 index 8998102c2..000000000 --- a/src/SquotTonel-Core.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/src/SquotTonel-Core.package/.squot-contents b/src/SquotTonel-Core.package/.squot-contents deleted file mode 100644 index 9c5e98baa..000000000 --- a/src/SquotTonel-Core.package/.squot-contents +++ /dev/null @@ -1,7 +0,0 @@ -SquotTrackedObjectMetadata { - #objectClassName : #PackageInfo, - #id : UUID [ 'bb46712d8562f14bbe0b9f0b66967b48' ], - #slotOverrides : { }, - #objectsReplacedByNames : true, - #serializer : #SquotCypressCodeSerializer -} \ No newline at end of file diff --git a/src/SquotTonel-Core.package/PackageInfo.extension/class/squotTonelSerializer.st b/src/SquotTonel-Core.package/PackageInfo.extension/class/squotTonelSerializer.st deleted file mode 100644 index 7c4f52147..000000000 --- a/src/SquotTonel-Core.package/PackageInfo.extension/class/squotTonelSerializer.st +++ /dev/null @@ -1,4 +0,0 @@ -*SquotTonel-Core-trackable -squotTonelSerializer - - ^ SquotTonelSerializer \ No newline at end of file diff --git a/src/SquotTonel-Core.package/PackageInfo.extension/methodProperties.json b/src/SquotTonel-Core.package/PackageInfo.extension/methodProperties.json deleted file mode 100644 index f90b78f65..000000000 --- a/src/SquotTonel-Core.package/PackageInfo.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "squotTonelSerializer" : "jr 3/17/2019 00:37" }, - "instance" : { - } } diff --git a/src/SquotTonel-Core.package/PackageInfo.extension/properties.json b/src/SquotTonel-Core.package/PackageInfo.extension/properties.json deleted file mode 100644 index 7da79deb3..000000000 --- a/src/SquotTonel-Core.package/PackageInfo.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "PackageInfo" } diff --git a/src/SquotTonel-Core.package/SquotFileSystemStore.extension/instance/isInsideCypressDirectory..st b/src/SquotTonel-Core.package/SquotFileSystemStore.extension/instance/isInsideCypressDirectory..st deleted file mode 100644 index 94b63c6b9..000000000 --- a/src/SquotTonel-Core.package/SquotFileSystemStore.extension/instance/isInsideCypressDirectory..st +++ /dev/null @@ -1,5 +0,0 @@ -*SquotTonel-Core-guessing -isInsideCypressDirectory: aFile - " guess if we are inside a Cypress directory right now which happens to contain a package.st file " - - ^ (aFile resolve: '../..') name endsWith: '.package' diff --git a/src/SquotTonel-Core.package/SquotFileSystemStore.extension/instance/tonelPackageLocator.st b/src/SquotTonel-Core.package/SquotFileSystemStore.extension/instance/tonelPackageLocator.st deleted file mode 100644 index 3af6b7b4a..000000000 --- a/src/SquotTonel-Core.package/SquotFileSystemStore.extension/instance/tonelPackageLocator.st +++ /dev/null @@ -1,18 +0,0 @@ -*SquotTonel-Core-guessing -tonelPackageLocator - - "Look for directories with package.st" - ^ SquotArtifactLocator new - detectBlock: [:fileOrDirectory :search :locator | - fileOrDirectory isDirectory - ifTrue: [(fileOrDirectory entries - anySatisfy: [:eachEntry | - eachEntry basename = 'package.st' and: - [eachEntry isFile and: [(self isInsideCypressDirectory: fileOrDirectory) not]]]) - ifTrue: [search addArtifact: - (self forgeLazyArtifactAt: fileOrDirectory - deserializerFactory: SquotTonelDeserializer - serializerFactory: SquotTonelSerializer - objectClass: PackageInfo)] - ifFalse: [search visitSubdirectories: fileOrDirectory with: locator]]]; - yourself \ No newline at end of file diff --git a/src/SquotTonel-Core.package/SquotFileSystemStore.extension/methodProperties.json b/src/SquotTonel-Core.package/SquotFileSystemStore.extension/methodProperties.json deleted file mode 100644 index 0f4e1c22c..000000000 --- a/src/SquotTonel-Core.package/SquotFileSystemStore.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "isInsideCypressDirectory:" : "tobe 1/6/2021 12:58", - "tonelPackageLocator" : "tobe 1/6/2021 12:58" } } diff --git a/src/SquotTonel-Core.package/SquotFileSystemStore.extension/properties.json b/src/SquotTonel-Core.package/SquotFileSystemStore.extension/properties.json deleted file mode 100644 index 053072453..000000000 --- a/src/SquotTonel-Core.package/SquotFileSystemStore.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "SquotFileSystemStore" } diff --git a/src/SquotTonel-Core.package/SquotTonelDeserializer.class/README.md b/src/SquotTonel-Core.package/SquotTonelDeserializer.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/SquotTonel-Core.package/SquotTonelDeserializer.class/class/canReadObjectSerializedBy..st b/src/SquotTonel-Core.package/SquotTonelDeserializer.class/class/canReadObjectSerializedBy..st deleted file mode 100644 index 98029d77b..000000000 --- a/src/SquotTonel-Core.package/SquotTonelDeserializer.class/class/canReadObjectSerializedBy..st +++ /dev/null @@ -1,3 +0,0 @@ -Squot deserialization -canReadObjectSerializedBy: serializerName - ^ serializerName beginsWith: 'SquotTonelSerializer' "version?" \ No newline at end of file diff --git a/src/SquotTonel-Core.package/SquotTonelDeserializer.class/class/initialize.st b/src/SquotTonel-Core.package/SquotTonelDeserializer.class/class/initialize.st deleted file mode 100644 index ce381df76..000000000 --- a/src/SquotTonel-Core.package/SquotTonelDeserializer.class/class/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -class initialization -initialize - "SquotTonelDeserializer initialize" - SquotFileSystemStore addDeserializerFactory: self. \ No newline at end of file diff --git a/src/SquotTonel-Core.package/SquotTonelDeserializer.class/class/unload.st b/src/SquotTonel-Core.package/SquotTonelDeserializer.class/class/unload.st deleted file mode 100644 index a90349574..000000000 --- a/src/SquotTonel-Core.package/SquotTonelDeserializer.class/class/unload.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -unload - SquotFileSystemStore removeDeserializerFactory: self. \ No newline at end of file diff --git a/src/SquotTonel-Core.package/SquotTonelDeserializer.class/instance/fillContentOf.from..st b/src/SquotTonel-Core.package/SquotTonelDeserializer.class/instance/fillContentOf.from..st deleted file mode 100644 index 1b527b445..000000000 --- a/src/SquotTonel-Core.package/SquotTonelDeserializer.class/instance/fillContentOf.from..st +++ /dev/null @@ -1,11 +0,0 @@ -Squot deserialization -fillContentOf: anArtifact from: aDirectory - | packageName snapshot packageShadow reader | - packageName := aDirectory basename. - reader := TonelReader on: aDirectory parent fileName: packageName. - snapshot := reader snapshot. - packageShadow := SquotPackageShadow - forPackageNamed: packageName - withSnapshot: snapshot - tonelProperties: reader currentPackageProperties. - anArtifact content: (SquotShadowGraph withSingleShadow: packageShadow). \ No newline at end of file diff --git a/src/SquotTonel-Core.package/SquotTonelDeserializer.class/methodProperties.json b/src/SquotTonel-Core.package/SquotTonelDeserializer.class/methodProperties.json deleted file mode 100644 index b9fbb629d..000000000 --- a/src/SquotTonel-Core.package/SquotTonelDeserializer.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - "canReadObjectSerializedBy:" : "jr 2/16/2019 18:04", - "initialize" : "jr 3/10/2019 22:18", - "unload" : "jr 8/9/2020 21:30" }, - "instance" : { - "fillContentOf:from:" : "jr 12/4/2020 23:38" } } diff --git a/src/SquotTonel-Core.package/SquotTonelDeserializer.class/properties.json b/src/SquotTonel-Core.package/SquotTonelDeserializer.class/properties.json deleted file mode 100644 index 1c289bc21..000000000 --- a/src/SquotTonel-Core.package/SquotTonelDeserializer.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "SquotTonel-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "directory" ], - "name" : "SquotTonelDeserializer", - "pools" : [ - ], - "super" : "SquotDeserializer", - "type" : "normal" } diff --git a/src/SquotTonel-Core.package/SquotTonelSerializer.class/README.md b/src/SquotTonel-Core.package/SquotTonelSerializer.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/SquotTonel-Core.package/SquotTonelSerializer.class/class/addUserSettingsOfAll.in.to..st b/src/SquotTonel-Core.package/SquotTonelSerializer.class/class/addUserSettingsOfAll.in.to..st deleted file mode 100644 index e9de71b27..000000000 --- a/src/SquotTonel-Core.package/SquotTonelSerializer.class/class/addUserSettingsOfAll.in.to..st +++ /dev/null @@ -1,8 +0,0 @@ -as yet unclassified -addUserSettingsOfAll: aCollection in: aSquotWorkingCopy to: aPluggableMenuSpec - "Add a toggle for the squeakchangestamp package property." - "Question: is the dictionary in SquotPackageInfoExtension ever cleaned up?" - | hasChangeStampsEnabled | - hasChangeStampsEnabled := aCollection allSatisfy: [:each | (SquotPackageInfoExtension of: (PackageInfo named: each packageName)) tonelProperties at: TonelWriter squeakChangestamp ifAbsent: [false]]. - aPluggableMenuSpec add: (hasChangeStampsEnabled ifTrue: [' '] ifFalse: [' ']), 'Store change stamps' translated target: aSquotWorkingCopy selector: #tonelToggleChangeStampsOfAll: argumentList: {aCollection}. - ^ aPluggableMenuSpec \ No newline at end of file diff --git a/src/SquotTonel-Core.package/SquotTonelSerializer.class/class/copySettingsFrom.to..st b/src/SquotTonel-Core.package/SquotTonelSerializer.class/class/copySettingsFrom.to..st deleted file mode 100644 index f8ed31e55..000000000 --- a/src/SquotTonel-Core.package/SquotTonelSerializer.class/class/copySettingsFrom.to..st +++ /dev/null @@ -1,12 +0,0 @@ -as yet unclassified -copySettingsFrom: anArtifact to: newTrackedObjectMetadata - "Use same setting for Squeak changestamps." - | existingProperties package newExtension | - existingProperties := (SquotPackageInfoExtension of: (PackageInfo named: anArtifact packageName)) tonelProperties. - package := PackageInfo named: (newTrackedObjectMetadata at: #packageName). - (existingProperties at: TonelWriter squeakChangestamp ifAbsent: [false]) ifTrue: - [newExtension := SquotPackageInfoExtension of: package. - newExtension tonelProperties: - (newExtension tonelProperties - at: TonelWriter squeakChangestamp put: true; - yourself)]. \ No newline at end of file diff --git a/src/SquotTonel-Core.package/SquotTonelSerializer.class/class/rewritePath.for..st b/src/SquotTonel-Core.package/SquotTonelSerializer.class/class/rewritePath.for..st deleted file mode 100644 index 0550e1536..000000000 --- a/src/SquotTonel-Core.package/SquotTonelSerializer.class/class/rewritePath.for..st +++ /dev/null @@ -1,12 +0,0 @@ -path rewriting -rewritePath: path for: anObjectGraph - "Append package directory if necessary." - | elements packageName | - elements := path squotPathSegments. - packageName := anObjectGraph startShadow packageName. - elements ifEmpty: [^ packageName]. - (elements last = packageName) ifTrue: [^ path]. - (elements last beginsWith: packageName) - ifTrue: [^ elements allButLast, {packageName} - joinSeparatedBy: SquotPath delimiter asString] - ifFalse: [^ path, SquotPath delimiter, packageName] \ No newline at end of file diff --git a/src/SquotTonel-Core.package/SquotTonelSerializer.class/class/userFriendlyTitle.st b/src/SquotTonel-Core.package/SquotTonelSerializer.class/class/userFriendlyTitle.st deleted file mode 100644 index eb54cef58..000000000 --- a/src/SquotTonel-Core.package/SquotTonelSerializer.class/class/userFriendlyTitle.st +++ /dev/null @@ -1,3 +0,0 @@ -user interface -userFriendlyTitle - ^ 'Tonel format' \ No newline at end of file diff --git a/src/SquotTonel-Core.package/SquotTonelSerializer.class/instance/propertiesFileContents.st b/src/SquotTonel-Core.package/SquotTonelSerializer.class/instance/propertiesFileContents.st deleted file mode 100644 index 0e3d2207a..000000000 --- a/src/SquotTonel-Core.package/SquotTonelSerializer.class/instance/propertiesFileContents.st +++ /dev/null @@ -1,7 +0,0 @@ -serializing -propertiesFileContents - "To mimic IceBerg repositories." - ^ '{ - #format : #tonel -} -' \ No newline at end of file diff --git a/src/SquotTonel-Core.package/SquotTonelSerializer.class/instance/version.st b/src/SquotTonel-Core.package/SquotTonelSerializer.class/instance/version.st deleted file mode 100644 index 27cb7b3ab..000000000 --- a/src/SquotTonel-Core.package/SquotTonelSerializer.class/instance/version.st +++ /dev/null @@ -1,3 +0,0 @@ -Squot serialization -version - ^ '1' \ No newline at end of file diff --git a/src/SquotTonel-Core.package/SquotTonelSerializer.class/instance/write..st b/src/SquotTonel-Core.package/SquotTonelSerializer.class/instance/write..st deleted file mode 100644 index fd2fd6cd6..000000000 --- a/src/SquotTonel-Core.package/SquotTonelSerializer.class/instance/write..st +++ /dev/null @@ -1,8 +0,0 @@ -Squot serialization -write: anArtifact - self assert: anArtifact storeInfo objectClassName = 'PackageInfo'. - directory := rootDirectory resolve: anArtifact path. - anArtifact shadowOfTrackedObject squotWrite: anArtifact asTonelWith: self. - (directory parent / '.properties') writeStreamDo: - [:stream | - stream truncate; nextPutAll: self propertiesFileContents]. \ No newline at end of file diff --git a/src/SquotTonel-Core.package/SquotTonelSerializer.class/instance/writeMCSnapshot.forPackageNamed.from..st b/src/SquotTonel-Core.package/SquotTonelSerializer.class/instance/writeMCSnapshot.forPackageNamed.from..st deleted file mode 100644 index 12b06d73d..000000000 --- a/src/SquotTonel-Core.package/SquotTonelSerializer.class/instance/writeMCSnapshot.forPackageNamed.from..st +++ /dev/null @@ -1,5 +0,0 @@ -serializing -writeMCSnapshot: aMonticelloSnapshot forPackageNamed: aString from: anArtifact - (TonelWriterForFileSystem on: directory parent "the writer creates the package directory") - packageName: aString; - writeSnapshot: aMonticelloSnapshot. \ No newline at end of file diff --git a/src/SquotTonel-Core.package/SquotTonelSerializer.class/instance/writeMCSnapshot.forPackageNamed.packageProperties.from..st b/src/SquotTonel-Core.package/SquotTonelSerializer.class/instance/writeMCSnapshot.forPackageNamed.packageProperties.from..st deleted file mode 100644 index 82c8135d7..000000000 --- a/src/SquotTonel-Core.package/SquotTonelSerializer.class/instance/writeMCSnapshot.forPackageNamed.packageProperties.from..st +++ /dev/null @@ -1,9 +0,0 @@ -serializing -writeMCSnapshot: aMonticelloSnapshot forPackageNamed: aString packageProperties: aDictionary from: anArtifact - directory ensureDirectory / 'package.st' writeStreamDo: - [:file | "Write package properties in advance, to the TonelWriter will pick up some settings." - file nextPutAll: 'Package '. - STON put: aDictionary onStream: file. - file cr. - self flag: #duplication. "TonelWriter>>writePackage:"]. - self writeMCSnapshot: aMonticelloSnapshot forPackageNamed: aString from: anArtifact. \ No newline at end of file diff --git a/src/SquotTonel-Core.package/SquotTonelSerializer.class/methodProperties.json b/src/SquotTonel-Core.package/SquotTonelSerializer.class/methodProperties.json deleted file mode 100644 index f9c7b62d5..000000000 --- a/src/SquotTonel-Core.package/SquotTonelSerializer.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - "addUserSettingsOfAll:in:to:" : "jr 5/16/2022 23:46", - "copySettingsFrom:to:" : "jr 5/27/2022 23:30", - "rewritePath:for:" : "jr 3/17/2019 00:15", - "userFriendlyTitle" : "jr 3/16/2019 15:52" }, - "instance" : { - "propertiesFileContents" : "jr 9/3/2020 22:47", - "version" : "jr 2/16/2019 16:30", - "write:" : "jr 12/4/2020 20:25", - "writeMCSnapshot:forPackageNamed:from:" : "jr 3/16/2019 23:35", - "writeMCSnapshot:forPackageNamed:packageProperties:from:" : "jr 12/4/2020 20:28" } } diff --git a/src/SquotTonel-Core.package/SquotTonelSerializer.class/properties.json b/src/SquotTonel-Core.package/SquotTonelSerializer.class/properties.json deleted file mode 100644 index 2684c19d4..000000000 --- a/src/SquotTonel-Core.package/SquotTonelSerializer.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "SquotTonel-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "directory" ], - "name" : "SquotTonelSerializer", - "pools" : [ - ], - "super" : "SquotSerializer", - "type" : "normal" } diff --git a/src/SquotTonel-Core.package/SquotWorkingCopy.extension/instance/tonelToggleChangeStampsOfAll..st b/src/SquotTonel-Core.package/SquotWorkingCopy.extension/instance/tonelToggleChangeStampsOfAll..st deleted file mode 100644 index 642f37389..000000000 --- a/src/SquotTonel-Core.package/SquotWorkingCopy.extension/instance/tonelToggleChangeStampsOfAll..st +++ /dev/null @@ -1,13 +0,0 @@ -*SquotTonel-Core -tonelToggleChangeStampsOfAll: aCollection - | allTonelProperties hasChangeStampsAlreadyEnabled | - allTonelProperties := aCollection collect: - [:each | | packageInfoExt | - packageInfoExt := SquotPackageInfoExtension of: (PackageInfo named: each packageName). - packageInfoExt -> packageInfoExt tonelProperties]. - hasChangeStampsAlreadyEnabled := allTonelProperties allSatisfy: [:each | each value at: TonelWriter squeakChangestamp ifAbsent: [false]]. - allTonelProperties do: - [:each | - each value at: TonelWriter squeakChangestamp put: hasChangeStampsAlreadyEnabled not. - each key tonelProperties: each value]. - \ No newline at end of file diff --git a/src/SquotTonel-Core.package/SquotWorkingCopy.extension/methodProperties.json b/src/SquotTonel-Core.package/SquotWorkingCopy.extension/methodProperties.json deleted file mode 100644 index ce9896117..000000000 --- a/src/SquotTonel-Core.package/SquotWorkingCopy.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "tonelToggleChangeStampsOfAll:" : "jr 5/16/2022 23:54" } } diff --git a/src/SquotTonel-Core.package/SquotWorkingCopy.extension/properties.json b/src/SquotTonel-Core.package/SquotWorkingCopy.extension/properties.json deleted file mode 100644 index b5406e048..000000000 --- a/src/SquotTonel-Core.package/SquotWorkingCopy.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "SquotWorkingCopy" } diff --git a/src/SquotTonel-Core.package/TonelReader.extension/instance/currentPackageProperties.st b/src/SquotTonel-Core.package/TonelReader.extension/instance/currentPackageProperties.st deleted file mode 100644 index 24488faaa..000000000 --- a/src/SquotTonel-Core.package/TonelReader.extension/instance/currentPackageProperties.st +++ /dev/null @@ -1,9 +0,0 @@ -*SquotTonel-Core -currentPackageProperties - ^ (self packageDirectory notNil and: [self fileUtils filePathExists: 'package.st' relativeTo: self packageDirectory]) - ifTrue: [ - (self packageDirectory / 'package.st') readStreamDo: [:stream | - ((stream upTo: Character space) = 'Package') - ifTrue: [STON fromStream: stream] - ifFalse: [Dictionary new]]] - ifFalse: [Dictionary new] \ No newline at end of file diff --git a/src/SquotTonel-Core.package/TonelReader.extension/methodProperties.json b/src/SquotTonel-Core.package/TonelReader.extension/methodProperties.json deleted file mode 100644 index b2836d9a7..000000000 --- a/src/SquotTonel-Core.package/TonelReader.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "currentPackageProperties" : "jr 12/5/2020 00:18" } } diff --git a/src/SquotTonel-Core.package/TonelReader.extension/properties.json b/src/SquotTonel-Core.package/TonelReader.extension/properties.json deleted file mode 100644 index 5b633f5ab..000000000 --- a/src/SquotTonel-Core.package/TonelReader.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "TonelReader" } diff --git a/src/SquotTonel-Core.package/TonelReaderForFileSystem.class/README.md b/src/SquotTonel-Core.package/TonelReaderForFileSystem.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/SquotTonel-Core.package/TonelReaderForFileSystem.class/instance/fileUtils.st b/src/SquotTonel-Core.package/TonelReaderForFileSystem.class/instance/fileUtils.st deleted file mode 100644 index b8c10ba1a..000000000 --- a/src/SquotTonel-Core.package/TonelReaderForFileSystem.class/instance/fileUtils.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -fileUtils - ^ TonelFileSystemUtils \ No newline at end of file diff --git a/src/SquotTonel-Core.package/TonelReaderForFileSystem.class/methodProperties.json b/src/SquotTonel-Core.package/TonelReaderForFileSystem.class/methodProperties.json deleted file mode 100644 index 7f70b98c0..000000000 --- a/src/SquotTonel-Core.package/TonelReaderForFileSystem.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "fileUtils" : "jr 2/16/2019 17:24" } } diff --git a/src/SquotTonel-Core.package/TonelReaderForFileSystem.class/properties.json b/src/SquotTonel-Core.package/TonelReaderForFileSystem.class/properties.json deleted file mode 100644 index 7762e3050..000000000 --- a/src/SquotTonel-Core.package/TonelReaderForFileSystem.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "SquotTonel-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "TonelReaderForFileSystem", - "pools" : [ - ], - "super" : "TonelReader", - "type" : "normal" } diff --git a/src/SquotTonel-Core.package/TonelWriterForFileSystem.class/README.md b/src/SquotTonel-Core.package/TonelWriterForFileSystem.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/SquotTonel-Core.package/TonelWriterForFileSystem.class/instance/fileUtils.st b/src/SquotTonel-Core.package/TonelWriterForFileSystem.class/instance/fileUtils.st deleted file mode 100644 index b8c10ba1a..000000000 --- a/src/SquotTonel-Core.package/TonelWriterForFileSystem.class/instance/fileUtils.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -fileUtils - ^ TonelFileSystemUtils \ No newline at end of file diff --git a/src/SquotTonel-Core.package/TonelWriterForFileSystem.class/methodProperties.json b/src/SquotTonel-Core.package/TonelWriterForFileSystem.class/methodProperties.json deleted file mode 100644 index f24c85347..000000000 --- a/src/SquotTonel-Core.package/TonelWriterForFileSystem.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "fileUtils" : "jr 2/16/2019 17:23" } } diff --git a/src/SquotTonel-Core.package/TonelWriterForFileSystem.class/properties.json b/src/SquotTonel-Core.package/TonelWriterForFileSystem.class/properties.json deleted file mode 100644 index 1319a8cb5..000000000 --- a/src/SquotTonel-Core.package/TonelWriterForFileSystem.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "SquotTonel-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "TonelWriterForFileSystem", - "pools" : [ - ], - "super" : "TonelWriter", - "type" : "normal" } diff --git a/src/SquotTonel-Core.package/monticello.meta/categories.st b/src/SquotTonel-Core.package/monticello.meta/categories.st deleted file mode 100644 index 81c3d9808..000000000 --- a/src/SquotTonel-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'SquotTonel-Core'! diff --git a/src/SquotTonel-Core.package/monticello.meta/initializers.st b/src/SquotTonel-Core.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/SquotTonel-Core.package/properties.json b/src/SquotTonel-Core.package/properties.json deleted file mode 100644 index f037444a7..000000000 --- a/src/SquotTonel-Core.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } diff --git a/src/SquotTonel-Tests.package/.filetree b/src/SquotTonel-Tests.package/.filetree deleted file mode 100644 index 8998102c2..000000000 --- a/src/SquotTonel-Tests.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/src/SquotTonel-Tests.package/.squot-contents b/src/SquotTonel-Tests.package/.squot-contents deleted file mode 100644 index 6557b3456..000000000 --- a/src/SquotTonel-Tests.package/.squot-contents +++ /dev/null @@ -1,7 +0,0 @@ -SquotTrackedObjectMetadata { - #objectClassName : #PackageInfo, - #id : UUID [ '61d97f30e2887446add1545a367e4569' ], - #objectsReplacedByNames : true, - #slotOverrides : { }, - #serializer : #SquotCypressCodeSerializer -} \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotFileStoreArtifactGuessingTest.extension/instance/testFindTonelPackage.st b/src/SquotTonel-Tests.package/SquotFileStoreArtifactGuessingTest.extension/instance/testFindTonelPackage.st deleted file mode 100644 index f289cdb44..000000000 --- a/src/SquotTonel-Tests.package/SquotFileStoreArtifactGuessingTest.extension/instance/testFindTonelPackage.st +++ /dev/null @@ -1,12 +0,0 @@ -*SquotTonel-Tests-tests -testFindTonelPackage - | packageDir snapshot | - packageDir := fileStore directory / 'src' / 'Test'. - packageDir ensureDirectory. - (packageDir / 'package.st') ensureFile. - self assert: ((snapshot := fileStore captureLazySnapshot) - includesObjectAt: 'src/Test'); - assert: SquotTonelSerializer name - equals: ((snapshot artifactAt: 'src/Test') storeInfo serializer); - assert: ((snapshot artifactAt: 'src/Test') shadowOfTrackedObject respondsTo: #packageName) - description: 'not a SquotPackageShadow'. \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotFileStoreArtifactGuessingTest.extension/methodProperties.json b/src/SquotTonel-Tests.package/SquotFileStoreArtifactGuessingTest.extension/methodProperties.json deleted file mode 100644 index 3580f0f6b..000000000 --- a/src/SquotTonel-Tests.package/SquotFileStoreArtifactGuessingTest.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testFindTonelPackage" : "jr 4/7/2019 21:39" } } diff --git a/src/SquotTonel-Tests.package/SquotFileStoreArtifactGuessingTest.extension/properties.json b/src/SquotTonel-Tests.package/SquotFileStoreArtifactGuessingTest.extension/properties.json deleted file mode 100644 index dc673c211..000000000 --- a/src/SquotTonel-Tests.package/SquotFileStoreArtifactGuessingTest.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "SquotFileStoreArtifactGuessingTest" } diff --git a/src/SquotTonel-Tests.package/SquotTonelAutotrackingTest.class/README.md b/src/SquotTonel-Tests.package/SquotTonelAutotrackingTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/SquotTonel-Tests.package/SquotTonelAutotrackingTest.class/instance/trackPackage.st b/src/SquotTonel-Tests.package/SquotTonelAutotrackingTest.class/instance/trackPackage.st deleted file mode 100644 index c930836f4..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelAutotrackingTest.class/instance/trackPackage.st +++ /dev/null @@ -1,5 +0,0 @@ -as yet unclassified -trackPackage - path := 'src/', package name. - workingCopy addPackageNamed: package name at: path. - (workingCopy artifactAt: self packagePath) serializer: SquotTonelSerializer. \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelAutotrackingTest.class/methodProperties.json b/src/SquotTonel-Tests.package/SquotTonelAutotrackingTest.class/methodProperties.json deleted file mode 100644 index e4d9963dc..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelAutotrackingTest.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "trackPackage" : "jr 1/20/2022 23:19" } } diff --git a/src/SquotTonel-Tests.package/SquotTonelAutotrackingTest.class/properties.json b/src/SquotTonel-Tests.package/SquotTonelAutotrackingTest.class/properties.json deleted file mode 100644 index 623394f82..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelAutotrackingTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "SquotTonel-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotTonelAutotrackingTest", - "pools" : [ - ], - "super" : "SquotPackageAutotrackingTest", - "type" : "normal" } diff --git a/src/SquotTonel-Tests.package/SquotTonelDeserializerTest.class/README.md b/src/SquotTonel-Tests.package/SquotTonelDeserializerTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/SquotTonel-Tests.package/SquotTonelDeserializerTest.class/instance/testCanReadFromTonelSerializer.st b/src/SquotTonel-Tests.package/SquotTonelDeserializerTest.class/instance/testCanReadFromTonelSerializer.st deleted file mode 100644 index 8ec04f910..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelDeserializerTest.class/instance/testCanReadFromTonelSerializer.st +++ /dev/null @@ -1,4 +0,0 @@ -tests -testCanReadFromTonelSerializer - self assert: - (SquotTonelDeserializer canReadObjectSerializedBy: SquotTonelSerializer new name). \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelDeserializerTest.class/methodProperties.json b/src/SquotTonel-Tests.package/SquotTonelDeserializerTest.class/methodProperties.json deleted file mode 100644 index 31d38b393..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelDeserializerTest.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testCanReadFromTonelSerializer" : "jr 2/16/2019 18:05" } } diff --git a/src/SquotTonel-Tests.package/SquotTonelDeserializerTest.class/properties.json b/src/SquotTonel-Tests.package/SquotTonelDeserializerTest.class/properties.json deleted file mode 100644 index 759bc3994..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelDeserializerTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "SquotTonel-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotTonelDeserializerTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/README.md b/src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/instance/package.st b/src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/instance/package.st deleted file mode 100644 index 15bb7f680..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/instance/package.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -package - ^ workingCopy artifacts detect: [:each | each isLoaded] \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/instance/setUp.st b/src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/instance/setUp.st deleted file mode 100644 index e5f48be09..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/instance/setUp.st +++ /dev/null @@ -1,12 +0,0 @@ -running -setUp - repository := SquotFileTestRepository new initializeInDirectory: FileSystem memory root. - workingCopy := - repository createWorkingCopy - store: SquotImageStore new; - yourself. - classFactory := ClassFactoryForTestCase new. - (SystemChangeNotifier uniqueInstance doSilently: [classFactory newClass]) - compileSilently: 'testMethod ^ 42'. - self suppressProgressDisplayDuring: - [workingCopy add: (PackageInfo named: classFactory packageName) at: 'src']. \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/instance/tearDown.st b/src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/instance/tearDown.st deleted file mode 100644 index 7a52eedf8..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/instance/tearDown.st +++ /dev/null @@ -1,3 +0,0 @@ -running -tearDown - SystemChangeNotifier uniqueInstance doSilently: [classFactory cleanUp]. \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/instance/testCypressToTonel.st b/src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/instance/testCypressToTonel.st deleted file mode 100644 index 661ae3f74..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/instance/testCypressToTonel.st +++ /dev/null @@ -1,24 +0,0 @@ -tests -testCypressToTonel - | originalPath newPath directoryDepth | - self package serializer: SquotCypressCodeSerializer. - originalPath := self package path. - directoryDepth := originalPath occurrencesOf: $/. - workingCopy saveVersionWithMessage: 'write as Cypress'. - self deny: ((workingCopy baseVersion snapshotDirectory / 'src') entries - includes: classFactory packageName) - description: 'Tonel directory exists'. - self package serializer: SquotTonelSerializer. - self assert: 1 equals: (workingCopy artifacts select: #isLoaded) size description: 'duplicate artifacts'. - newPath := self package path. - workingCopy saveVersionWithMessage: 'convert to Tonel'. - self deny: ((workingCopy baseVersion snapshotDirectory / 'src') entries - includes: classFactory packageName, '.package') - description: 'Cypress directory still exists'. - self deny: originalPath = newPath description: ['Package path should have changed']. - self assert: directoryDepth - equals: (newPath occurrencesOf: $/) - description: 'Profileration of subdirectories'. - self assert: 1 equals: directoryDepth description: 'Too many subdirectories'. - (workingCopy baseVersion snapshotDirectory / 'src' / '.properties') readStreamDo: - [:stream | self assert: (stream upToEnd includesSubstring: '#tonel')]. \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/instance/testTonelToCypress.st b/src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/instance/testTonelToCypress.st deleted file mode 100644 index 80dae8cc7..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/instance/testTonelToCypress.st +++ /dev/null @@ -1,24 +0,0 @@ -tests -testTonelToCypress - | originalPath newPath directoryDepth | - self package serializer: SquotTonelSerializer. - originalPath := self package path. - directoryDepth := originalPath occurrencesOf: $/. - workingCopy saveVersionWithMessage: 'write as Tonel'. - self deny: ((workingCopy baseVersion snapshotDirectory / 'src') entries - includes: classFactory packageName, '.package') - description: 'Cypress directory exists'. - self package serializer: SquotCypressCodeSerializer. - self assert: 1 equals: (workingCopy artifacts select: #isLoaded) size description: 'duplicate artifacts'. - newPath := self package path. - workingCopy saveVersionWithMessage: 'convert to Cypress'. - self deny: ((workingCopy baseVersion snapshotDirectory / 'src') entries - includes: classFactory packageName) - description: 'Tonel directory still exists'. - self deny: originalPath = newPath description: ['Package path should have changed']. - self assert: directoryDepth - equals: (newPath occurrencesOf: $/) - description: 'Profileration of subdirectories'. - self assert: 1 equals: directoryDepth description: 'Too many subdirectories'. - (workingCopy baseVersion snapshotDirectory / 'src' / '.properties') readStreamDo: - [:stream | self assert: (stream upToEnd includesSubstring: '#filetree')]. \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/methodProperties.json b/src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/methodProperties.json deleted file mode 100644 index 5e5a980f0..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "package" : "jr 10/12/2020 23:12", - "setUp" : "jr 9/13/2020 22:59", - "tearDown" : "jr 12/23/2019 17:11", - "testCypressToTonel" : "jr 10/12/2020 23:11", - "testTonelToCypress" : "jr 10/12/2020 23:11" } } diff --git a/src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/properties.json b/src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/properties.json deleted file mode 100644 index 322aac58d..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelFileTreeConversionTest.class/properties.json +++ /dev/null @@ -1,18 +0,0 @@ -{ - "category" : "SquotTonel-Tests", - "classinstvars" : [ - ], - "classtraitcomposition" : "TTestCaseSuppressingProgressDisplay classTrait", - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "repository", - "workingCopy", - "classFactory" ], - "name" : "SquotTonelFileTreeConversionTest", - "pools" : [ - ], - "super" : "TestCase", - "traitcomposition" : "TTestCaseSuppressingProgressDisplay", - "type" : "normal" } diff --git a/src/SquotTonel-Tests.package/SquotTonelPackageLocatorTest.class/README.md b/src/SquotTonel-Tests.package/SquotTonelPackageLocatorTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/SquotTonel-Tests.package/SquotTonelPackageLocatorTest.class/instance/testFindsMultiplePackages.st b/src/SquotTonel-Tests.package/SquotTonelPackageLocatorTest.class/instance/testFindsMultiplePackages.st deleted file mode 100644 index 38836ef88..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelPackageLocatorTest.class/instance/testFindsMultiplePackages.st +++ /dev/null @@ -1,18 +0,0 @@ -tests -testFindsMultiplePackages - | artifactsFound | - "given" - #('X' 'Y') - do: [:each | (rootDirectory / each) ensureDirectory. - (rootDirectory / each / 'package.st') ensureFile ]. - "decoys" - (rootDirectory / 'WithoutPackageSt') ensureDirectory. - "when" - artifactsFound := SquotFileSearchForArtifacts new - visit: rootDirectory with: fileStore tonelPackageLocator; - runSearch; - artifactsFound. - "then" - self assert: (artifactsFound anySatisfy: [:each | each path = 'X']); - assert: (artifactsFound anySatisfy: [:each | each path = 'Y']); - assert: artifactsFound size = 2. \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelPackageLocatorTest.class/instance/testFindsPackageInSubdirectory.st b/src/SquotTonel-Tests.package/SquotTonelPackageLocatorTest.class/instance/testFindsPackageInSubdirectory.st deleted file mode 100644 index 5dfdab0bc..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelPackageLocatorTest.class/instance/testFindsPackageInSubdirectory.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testFindsPackageInSubdirectory - | artifactsFound | - (rootDirectory / 'src' / 'Xyz') ensureDirectory. - (rootDirectory / 'src' / 'Xyz' / 'package.st') ensureFile. - artifactsFound := SquotFileSearchForArtifacts new - visit: rootDirectory with: fileStore tonelPackageLocator; - runSearch; - artifactsFound. - self assert: (artifactsFound anySatisfy: [:each | each path = 'src/Xyz']). \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelPackageLocatorTest.class/instance/testFindsPackageUnderRoot.st b/src/SquotTonel-Tests.package/SquotTonelPackageLocatorTest.class/instance/testFindsPackageUnderRoot.st deleted file mode 100644 index 517e31d5a..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelPackageLocatorTest.class/instance/testFindsPackageUnderRoot.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testFindsPackageUnderRoot - | artifactsFound | - (rootDirectory / 'Xyz') ensureDirectory. - (rootDirectory / 'Xyz' / 'package.st') ensureFile. - artifactsFound := SquotFileSearchForArtifacts new - visit: rootDirectory with: fileStore tonelPackageLocator; - runSearch; - artifactsFound. - self assert: (artifactsFound anySatisfy: [:each | each path = 'Xyz']). \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelPackageLocatorTest.class/instance/testIgnoresCypressPackagesWithMethodNamedPackage.st b/src/SquotTonel-Tests.package/SquotTonelPackageLocatorTest.class/instance/testIgnoresCypressPackagesWithMethodNamedPackage.st deleted file mode 100644 index ef747a93a..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelPackageLocatorTest.class/instance/testIgnoresCypressPackagesWithMethodNamedPackage.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testIgnoresCypressPackagesWithMethodNamedPackage - | artifactsFound | - (rootDirectory / 'Xyz.package' / 'A.class' / 'instance') ensureDirectory. - (rootDirectory / 'Xyz.package' / 'A.class' / 'instance' / 'package.st') ensureFile. - artifactsFound := SquotFileSearchForArtifacts new - visit: rootDirectory with: fileStore tonelPackageLocator; - runSearch; - artifactsFound. - self assert: artifactsFound isEmpty. \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelPackageLocatorTest.class/methodProperties.json b/src/SquotTonel-Tests.package/SquotTonelPackageLocatorTest.class/methodProperties.json deleted file mode 100644 index 2b853c2f7..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelPackageLocatorTest.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testFindsMultiplePackages" : "jr 3/10/2019 21:29", - "testFindsPackageInSubdirectory" : "jr 3/10/2019 21:30", - "testFindsPackageUnderRoot" : "jr 3/10/2019 21:30", - "testIgnoresCypressPackagesWithMethodNamedPackage" : "jr 1/9/2021 15:09" } } diff --git a/src/SquotTonel-Tests.package/SquotTonelPackageLocatorTest.class/properties.json b/src/SquotTonel-Tests.package/SquotTonelPackageLocatorTest.class/properties.json deleted file mode 100644 index d79345eb4..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelPackageLocatorTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "SquotTonel-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotTonelPackageLocatorTest", - "pools" : [ - ], - "super" : "SquotArtifactLocatorTest", - "type" : "normal" } diff --git a/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/README.md b/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/artifactWithoutTimestamps..st b/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/artifactWithoutTimestamps..st deleted file mode 100644 index 81b2469ca..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/artifactWithoutTimestamps..st +++ /dev/null @@ -1,9 +0,0 @@ -test data -artifactWithoutTimestamps: anArtifact - | packageShadow | - packageShadow := anArtifact shadowOfTrackedObject. - ^ anArtifact copyWithDifferentContent: - (SquotShadowGraph withSingleShadow: - (packageShadow copy - snapshot: (self withoutTimestamps: packageShadow asMCSnapshot); - yourself)) \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/sampleArtifact.st b/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/sampleArtifact.st deleted file mode 100644 index 18d6ce781..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/sampleArtifact.st +++ /dev/null @@ -1,17 +0,0 @@ -test data -sampleArtifact - | sampleMethod definitions | - (sampleClass isNil or: [sampleClass isObsolete]) ifTrue: - [sampleClass := classFactory newClass. - sampleClass compile: 'a ^ #a' classified: 'constants' withStamp: 'jr 12/4/2020 20:39' notifying: nil. - sampleClass classComment: 'This is a test class' stamp: 'jr 12/4/2020 20:39']. - sampleMethod := sampleClass >> #a. - samplePackage := PackageInfo named: sampleClass category. - definitions := {sampleClass asClassDefinition. - sampleMethod methodReference asMethodDefinition. - MCOrganizationDefinition categories: (Array with: sampleClass category)}. - ^ (((MCSnapshot fromDefinitions: definitions) - asSquotArtifactForPackage: samplePackage) - path: (sampleArtifactPath := 'src/', samplePackage name); - initializeDefaultStoreInfoFor: samplePackage; - yourself) \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/sampleArtifactWithoutTimestamps.st b/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/sampleArtifactWithoutTimestamps.st deleted file mode 100644 index 8be174b82..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/sampleArtifactWithoutTimestamps.st +++ /dev/null @@ -1,9 +0,0 @@ -test data -sampleArtifactWithoutTimestamps - | artifact | - artifact := self sampleArtifact. - artifact shadowOfTrackedObject - setPackageName: samplePackage name - snapshot: (self withoutTimestamps: artifact shadowOfTrackedObject asMCSnapshot) - tonelProperties: Dictionary new. - ^ artifact \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/setUp.st b/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/setUp.st deleted file mode 100644 index cf80ebd5e..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/setUp.st +++ /dev/null @@ -1,8 +0,0 @@ -running -setUp - rootDirectory := FileSystem memory root. - serializer := SquotTonelSerializer writingBelow: rootDirectory. - deserializer := SquotTonelDeserializer new. - classFactory := ClassFactoryForTestCase new. - changesFile := TemporarySystemChangeFile new. - changesFile useTemporaryChangesFile. \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/tearDown.st b/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/tearDown.st deleted file mode 100644 index 076920ec7..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/tearDown.st +++ /dev/null @@ -1,7 +0,0 @@ -running -tearDown - [classFactory cleanUp] - ensure: - [changesFile - useStandardChangesFile; - delete]. \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/testWriteAndReadOfPackage.st b/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/testWriteAndReadOfPackage.st deleted file mode 100644 index b2c672576..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/testWriteAndReadOfPackage.st +++ /dev/null @@ -1,21 +0,0 @@ -tests -testWriteAndReadOfPackage - | classFile original readArtifact | - original := self sampleArtifact. - serializer write: original. - classFile := rootDirectory - resolve: 'src/', samplePackage name, '/', sampleClass name, '.class.st'. - self assert: classFile exists description: 'class source not found'. - readArtifact := original copyWithDifferentContent: nil. - classFactory cleanUp. - deserializer - fillContentOf: readArtifact - from: (rootDirectory resolve: sampleArtifactPath). - self assert: (readArtifact shadowOfTrackedObject isKindOf: SquotPackageShadow); - assert: samplePackage name - equals: readArtifact shadowOfTrackedObject packageName; - assert: (readArtifact shadowOfTrackedObject asMCSnapshot - patchRelativeToBase: - (self artifactWithoutTimestamps: original) shadowOfTrackedObject asMCSnapshot) - isEmpty; - deny: (readArtifact diffAgainst: (self artifactWithoutTimestamps: original)) hasChanges. \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/testWriteAndReadOfPackageWithTimestamps.st b/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/testWriteAndReadOfPackageWithTimestamps.st deleted file mode 100644 index 7545add25..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/testWriteAndReadOfPackageWithTimestamps.st +++ /dev/null @@ -1,25 +0,0 @@ -tests -testWriteAndReadOfPackageWithTimestamps - | original shadow readArtifact | - original := self sampleArtifact. - classFactory cleanUp. - original := original copyWithDifferentContent: - (SquotShadowGraph withSingleShadow: - ((shadow := original shadowOfTrackedObject) copy - setPackageName: shadow packageName snapshot: shadow asMCSnapshot tonelProperties: (shadow tonelProperties at: TonelWriter squeakChangestamp put: true; yourself))). - "Full roundtrip: write-read-write-read." - serializer write: original. - readArtifact := original copyWithDifferentContent: nil. - deserializer - fillContentOf: readArtifact - from: (rootDirectory resolve: sampleArtifactPath). - serializer write: readArtifact. - readArtifact content: nil. - deserializer - fillContentOf: readArtifact - from: (rootDirectory resolve: sampleArtifactPath). - self assert: (readArtifact shadowOfTrackedObject asMCSnapshot - patchRelativeToBase: - original shadowOfTrackedObject asMCSnapshot) - isEmpty; - deny: (readArtifact diffAgainst: original) hasChanges. \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/withoutTimestamps..st b/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/withoutTimestamps..st deleted file mode 100644 index 03aa61c7a..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/instance/withoutTimestamps..st +++ /dev/null @@ -1,13 +0,0 @@ -tests -withoutTimestamps: aMCSnapshot - ^ MCSnapshot fromDefinitions: - (aMCSnapshot definitions collect: - [:each | each isMethodDefinition - ifTrue: [MCMethodDefinition - className: each className - classIsMeta: each classIsMeta - selector: each selector - category: each category - timeStamp: nil - source: each source] - ifFalse: [each]]) \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/methodProperties.json b/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/methodProperties.json deleted file mode 100644 index d566a7c93..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "artifactWithoutTimestamps:" : "jr 12/4/2020 22:26", - "sampleArtifact" : "jr 12/6/2020 19:49", - "sampleArtifactWithoutTimestamps" : "jr 12/4/2020 20:23", - "setUp" : "jr 12/4/2020 22:58", - "tearDown" : "jr 12/4/2020 23:49", - "testWriteAndReadOfPackage" : "jr 12/4/2020 22:24", - "testWriteAndReadOfPackageWithTimestamps" : "jr 12/4/2020 23:19", - "withoutTimestamps:" : "jr 2/16/2019 18:36" } } diff --git a/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/properties.json b/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/properties.json deleted file mode 100644 index 533c55e0b..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelReadWriteTest.class/properties.json +++ /dev/null @@ -1,21 +0,0 @@ -{ - "category" : "SquotTonel-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "jr 12/4/2020 20:42", - "instvars" : [ - "rootDirectory", - "serializer", - "sampleClass", - "samplePackage", - "sampleArtifactPath", - "deserializer", - "classFactory", - "changesFile" ], - "name" : "SquotTonelReadWriteTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/README.md b/src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/instance/testRewriteCypressPath.st b/src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/instance/testRewriteCypressPath.st deleted file mode 100644 index 0efd5f10e..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/instance/testRewriteCypressPath.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testRewriteCypressPath - | path serializerClass | - serializerClass := SquotTonelSerializer. - path := serializerClass rewritePath: 'src/test/Test.package' for: - (SquotShadowGraph withSingleShadow: - (PackageInfo new squotShadowFactory forPackageNamed: 'Test' withSnapshot: nil)). - self assert: 'src/test/Test' equals: path. \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/instance/testRewriteEmptyPathAddsPackageDirectory.st b/src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/instance/testRewriteEmptyPathAddsPackageDirectory.st deleted file mode 100644 index c68088bae..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/instance/testRewriteEmptyPathAddsPackageDirectory.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testRewriteEmptyPathAddsPackageDirectory - | path serializerClass | - serializerClass := SquotTonelSerializer. - path := serializerClass rewritePath: '' for: - (SquotShadowGraph withSingleShadow: - (PackageInfo new squotShadowFactory forPackageNamed: 'Test' withSnapshot: nil)). - self assert: 'Test' equals: path. \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/instance/testRewritePathAddsPackageDirectory.st b/src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/instance/testRewritePathAddsPackageDirectory.st deleted file mode 100644 index 26c9603b1..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/instance/testRewritePathAddsPackageDirectory.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testRewritePathAddsPackageDirectory - | path serializerClass | - serializerClass := SquotTonelSerializer. - path := serializerClass rewritePath: 'src/tests' for: - (SquotShadowGraph withSingleShadow: - (PackageInfo new squotShadowFactory forPackageNamed: 'Test' withSnapshot: nil)). - self assert: 'src/tests/Test' equals: path. \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/instance/testRewritePathWithPackageAlreadyIncluded.st b/src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/instance/testRewritePathWithPackageAlreadyIncluded.st deleted file mode 100644 index 0593214c4..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/instance/testRewritePathWithPackageAlreadyIncluded.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testRewritePathWithPackageAlreadyIncluded - | path serializerClass | - serializerClass := SquotTonelSerializer. - path := serializerClass rewritePath: 'src/test/Test' for: - (SquotShadowGraph withSingleShadow: - (PackageInfo new squotShadowFactory forPackageNamed: 'Test' withSnapshot: nil)). - self assert: 'src/test/Test' equals: path. \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/instance/testWritesPropertiesFile.st b/src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/instance/testWritesPropertiesFile.st deleted file mode 100644 index 5a9581778..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/instance/testWritesPropertiesFile.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testWritesPropertiesFile - | directory serializer artifact | - directory := FileSystem memory root. - serializer := SquotTonelSerializer writingBelow: directory. - artifact := (MCSnapshot fromDefinitions: {MCOrganizationDefinition categories: #('Empty')}) - asSquotArtifactForPackage: (PackageInfo new packageName: 'Empty'). - serializer write: artifact. - self assert: (directory / '.properties') exists. - directory / '.properties' readStreamDo: - [:stream | - (STON fromStream: stream) = (Dictionary new at: #format put: #tonel; yourself)]. \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/methodProperties.json b/src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/methodProperties.json deleted file mode 100644 index 257b46f75..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testRewriteCypressPath" : "jr 3/17/2019 00:09", - "testRewriteEmptyPathAddsPackageDirectory" : "jr 3/12/2019 22:09", - "testRewritePathAddsPackageDirectory" : "jr 3/12/2019 22:09", - "testRewritePathWithPackageAlreadyIncluded" : "jr 3/12/2019 22:09", - "testWritesPropertiesFile" : "jr 9/3/2020 22:10" } } diff --git a/src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/properties.json b/src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/properties.json deleted file mode 100644 index 76dc99396..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelSerializerTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "SquotTonel-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SquotTonelSerializerTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/src/SquotTonel-Tests.package/SquotTonelWorkingCopyTest.class/README.md b/src/SquotTonel-Tests.package/SquotTonelWorkingCopyTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/SquotTonel-Tests.package/SquotTonelWorkingCopyTest.class/instance/setUp.st b/src/SquotTonel-Tests.package/SquotTonelWorkingCopyTest.class/instance/setUp.st deleted file mode 100644 index b9f4368ea..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelWorkingCopyTest.class/instance/setUp.st +++ /dev/null @@ -1,7 +0,0 @@ -running -setUp - repository := SquotFileTestRepository new initializeInDirectory: FileSystem memory root. - workingCopy := - repository createWorkingCopy - store: SquotImageStore new; - yourself. \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelWorkingCopyTest.class/instance/testChangestampsAddedAfterTurningThemOn.st b/src/SquotTonel-Tests.package/SquotTonelWorkingCopyTest.class/instance/testChangestampsAddedAfterTurningThemOn.st deleted file mode 100644 index e0093ebed..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelWorkingCopyTest.class/instance/testChangestampsAddedAfterTurningThemOn.st +++ /dev/null @@ -1,17 +0,0 @@ -tests -testChangestampsAddedAfterTurningThemOn - "Tonel does not store change stamps by default. But when #'squeak_changestamp' is enabled in the package properties, they will be written as a custom property on methods for Squeak to use. When the image has stamps for the methods, which were not stored before, and then the squeak_changestamp is enabled, all stamps are added in the Tonel files." - | packageExtension loadedTimestamp savedTimestamp originalProperties | - "Given" - workingCopy addLoadedPackageInfoNamed: self class category at: 'src/', self class category serializer: SquotTonelSerializer. - workingCopy saveVersionWithMessage: 'Add package without stamps'. - "When" - packageExtension := SquotPackageInfoExtension of: (PackageInfo named: self class category). - originalProperties := packageExtension tonelProperties. - packageExtension tonelProperties: (packageExtension tonelProperties copy at: TonelWriter squeakChangestamp put: true; yourself). - [workingCopy saveVersionWithMessage: 'Add stamps'. - "Then" - savedTimestamp := ((workingCopy baseVersion snapshot artifactAt: 'src/', self class category) content startShadow asMCSnapshot definitions detect: [:each | each isMethodDefinition and: [each selector = self selector]]) timeStamp. - loadedTimestamp := (self class >> self selector) timeStamp. - self assert: loadedTimestamp equals: savedTimestamp] - ensure: [packageExtension tonelProperties: originalProperties]. \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelWorkingCopyTest.class/instance/testChangestampsEnabledInAddedPackageToo.st b/src/SquotTonel-Tests.package/SquotTonelWorkingCopyTest.class/instance/testChangestampsEnabledInAddedPackageToo.st deleted file mode 100644 index ad676ac0e..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelWorkingCopyTest.class/instance/testChangestampsEnabledInAddedPackageToo.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testChangestampsEnabledInAddedPackageToo - "Tonel does not store change stamps by default. But when #'squeak_changestamp' is enabled in the package properties, they will be written as a custom property on methods for Squeak to use. When a new package is tracked in the working copy and changestamps are already enabled in other packages, also enable them in the added package by default." - | packageExtension originalProperties | - "Given" - workingCopy addLoadedPackageInfoNamed: self class category at: 'src/', self class category serializer: SquotTonelSerializer. - packageExtension := SquotPackageInfoExtension of: (PackageInfo named: self class category). - originalProperties := packageExtension tonelProperties. - [packageExtension tonelProperties: (packageExtension tonelProperties copy at: TonelWriter squeakChangestamp put: true; yourself). - "When" - workingCopy addPackageNamed: 'SquotTonel-TestXyz' at: 'src/SquotTonel-TestXyz'. - "Then" - packageExtension := SquotPackageInfoExtension of: (PackageInfo named: 'SquotTonel-TestXyz'). - self assert: true equals: (packageExtension tonelProperties at: TonelWriter squeakChangestamp ifAbsent: [false])] - ensure: [(SquotPackageInfoExtension of: (PackageInfo named: self class category)) tonelProperties: originalProperties]. \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelWorkingCopyTest.class/instance/testPackagesAddedWithTonelPaths.st b/src/SquotTonel-Tests.package/SquotTonelWorkingCopyTest.class/instance/testPackagesAddedWithTonelPaths.st deleted file mode 100644 index 1ec08a9c1..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelWorkingCopyTest.class/instance/testPackagesAddedWithTonelPaths.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testPackagesAddedWithTonelPaths - | newArtifact | - workingCopy addLoadedPackageInfoNamed: self class category at: 'src/', self class category serializer: SquotTonelSerializer. - "When another package is added without an explicit serializer, Tonel should be used again." - workingCopy addPackageNamed: 'Kernel' at: 'src'. - newArtifact := workingCopy artifacts detect: [:each | each object name = 'Kernel']. - self assert: SquotTonelSerializer name equals: newArtifact storeInfo serializer. - self assert: 'src/Kernel' equals: newArtifact path. "Path adjusted according to Tonel conventions." \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/SquotTonelWorkingCopyTest.class/methodProperties.json b/src/SquotTonel-Tests.package/SquotTonelWorkingCopyTest.class/methodProperties.json deleted file mode 100644 index 1c5f7e448..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelWorkingCopyTest.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "setUp" : "jr 1/20/2022 19:41", - "testChangestampsAddedAfterTurningThemOn" : "jr 6/6/2022 17:47", - "testChangestampsEnabledInAddedPackageToo" : "jr 6/6/2022 17:52", - "testPackagesAddedWithTonelPaths" : "jr 1/20/2022 20:21" } } diff --git a/src/SquotTonel-Tests.package/SquotTonelWorkingCopyTest.class/properties.json b/src/SquotTonel-Tests.package/SquotTonelWorkingCopyTest.class/properties.json deleted file mode 100644 index 60aa0ff1f..000000000 --- a/src/SquotTonel-Tests.package/SquotTonelWorkingCopyTest.class/properties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "category" : "SquotTonel-Tests", - "classinstvars" : [ - ], - "classtraitcomposition" : "TTestCaseSuppressingProgressDisplay classTrait", - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "repository", - "workingCopy" ], - "name" : "SquotTonelWorkingCopyTest", - "pools" : [ - ], - "super" : "TestCase", - "traitcomposition" : "TTestCaseSuppressingProgressDisplay", - "type" : "normal" } diff --git a/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/README.md b/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/delete.st b/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/delete.st deleted file mode 100644 index 010afc6ba..000000000 --- a/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/delete.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -delete - tempChangesFile ifNotNil: - [self directory deleteFileNamed: tempChangesFile localName]. \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/directory.st b/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/directory.st deleted file mode 100644 index d71df2eaf..000000000 --- a/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/directory.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -directory - "Where we want to place the temporary changes file" - ^FileDirectory default \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/genericChangesName.st b/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/genericChangesName.st deleted file mode 100644 index 04faa7449..000000000 --- a/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/genericChangesName.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -genericChangesName - ^self prefixChangesName, self randomString, '.changes' \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/prefixChangesName.st b/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/prefixChangesName.st deleted file mode 100644 index b76f9db2a..000000000 --- a/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/prefixChangesName.st +++ /dev/null @@ -1,3 +0,0 @@ -private -prefixChangesName - ^self prefixGeneral \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/prefixGeneral.st b/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/prefixGeneral.st deleted file mode 100644 index 0a6a2b547..000000000 --- a/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/prefixGeneral.st +++ /dev/null @@ -1,3 +0,0 @@ -private -prefixGeneral - ^self class name select: [:each | each isUppercase] \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/randomString.st b/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/randomString.st deleted file mode 100644 index 2068ac5ca..000000000 --- a/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/randomString.st +++ /dev/null @@ -1,3 +0,0 @@ -private -randomString - ^Character alphabet shuffled \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/tempChangesName.st b/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/tempChangesName.st deleted file mode 100644 index b47e4792c..000000000 --- a/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/tempChangesName.st +++ /dev/null @@ -1,3 +0,0 @@ -private -tempChangesName - ^tempChangesName ifNil: [tempChangesName := self genericChangesName] \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/useStandardChangesFile.st b/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/useStandardChangesFile.st deleted file mode 100644 index aa705dc38..000000000 --- a/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/useStandardChangesFile.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -useStandardChangesFile - Smalltalk - closeSourceFiles; - openSourceFiles \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/useTemporaryChangesFile.st b/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/useTemporaryChangesFile.st deleted file mode 100644 index 1365cd448..000000000 --- a/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/instance/useTemporaryChangesFile.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -useTemporaryChangesFile - Smalltalk closeSourceFiles. - tempChangesFile := self directory forceNewFileNamed: self tempChangesName. - SourceFiles at: 2 put: tempChangesFile \ No newline at end of file diff --git a/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/methodProperties.json b/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/methodProperties.json deleted file mode 100644 index b13095e8c..000000000 --- a/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "delete" : "jr 12/4/2020 23:54", - "directory" : "laza 9/28/2011 07:22", - "genericChangesName" : "laza 11/21/2011 15:43", - "prefixChangesName" : "laza 11/21/2011 15:43", - "prefixGeneral" : "laza 11/2/2011 12:30", - "randomString" : "laza 11/1/2011 18:58", - "tempChangesName" : "laza 11/21/2011 15:44", - "useStandardChangesFile" : "laza 11/1/2011 21:26", - "useTemporaryChangesFile" : "laza 11/2/2011 10:17" } } diff --git a/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/properties.json b/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/properties.json deleted file mode 100644 index 92601df2f..000000000 --- a/src/SquotTonel-Tests.package/TemporarySystemChangeFile.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "SquotTonel-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "tempChangesFile", - "tempChangesName" ], - "name" : "TemporarySystemChangeFile", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/src/SquotTonel-Tests.package/monticello.meta/categories.st b/src/SquotTonel-Tests.package/monticello.meta/categories.st deleted file mode 100644 index dc7876dd3..000000000 --- a/src/SquotTonel-Tests.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'SquotTonel-Tests'! diff --git a/src/SquotTonel-Tests.package/monticello.meta/initializers.st b/src/SquotTonel-Tests.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/SquotTonel-Tests.package/properties.json b/src/SquotTonel-Tests.package/properties.json deleted file mode 100644 index f037444a7..000000000 --- a/src/SquotTonel-Tests.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } diff --git a/src/VersionControl.package/.squot-contents b/src/VersionControl.package/.squot-contents deleted file mode 100644 index 0e5b8254a..000000000 --- a/src/VersionControl.package/.squot-contents +++ /dev/null @@ -1,7 +0,0 @@ -SquotTrackedObjectMetadata { - #objectClassName : #PackageInfo, - #id : UUID [ 'fe5b516fea2e5f49b14656f6c609b721' ], - #slotOverrides : { }, - #objectsReplacedByNames : true, - #serializer : #SquotCypressCodeSerializer -} \ No newline at end of file