diff --git a/src/Squot.package/SqueakWorkingCopy.class/instance/replaceMapper.with..st b/src/Squot.package/SqueakWorkingCopy.class/instance/replaceMapper.with..st new file mode 100644 index 000000000..7ee3303b7 --- /dev/null +++ b/src/Squot.package/SqueakWorkingCopy.class/instance/replaceMapper.with..st @@ -0,0 +1,4 @@ +mappers +replaceMapper: aMapper with: anotherMapper + self mappers at: (self mappers indexOf: aMapper) put: anotherMapper. + self changed: #mappers. \ No newline at end of file diff --git a/src/Squot.package/SqueakWorkingCopy.class/methodProperties.json b/src/Squot.package/SqueakWorkingCopy.class/methodProperties.json index 9d302fb6a..92f589e2f 100644 --- a/src/Squot.package/SqueakWorkingCopy.class/methodProperties.json +++ b/src/Squot.package/SqueakWorkingCopy.class/methodProperties.json @@ -141,6 +141,7 @@ "removeCredentialsFor:" : "mad 10/17/2023 12:01", "removeMapper:" : "mad 9/20/2023 17:30", "rename" : "mad 12/8/2023 20:04", + "replaceMapper:with:" : "mad 4/18/2024 18:22", "repository" : "mad 11/30/2023 17:02", "repositoryExists" : "mad 11/30/2023 17:03", "requestAndMoveToNewRepositoryLocation" : "mad 12/22/2023 17:49", diff --git a/src/Squot.package/SquotCodeMapper.class/class/projectListMenu.for..st b/src/Squot.package/SquotCodeMapper.class/class/projectListMenu.for..st index 02cbd813c..3b23b5d0c 100644 --- a/src/Squot.package/SquotCodeMapper.class/class/projectListMenu.for..st +++ b/src/Squot.package/SquotCodeMapper.class/class/projectListMenu.for..st @@ -1,8 +1,8 @@ -as yet unclassified +menu projectListMenu: aMenu for: aWorkingCopy aWorkingCopy ifNil: [^ self]. aMenu add: 'Manage packages' - target: SquotTonelPackageBrowser + target: SquotCodePackageBrowser selector: #openOnWorkingCopy: argument: aWorkingCopy. \ No newline at end of file diff --git a/src/Squot.package/SquotCodeMapper.class/methodProperties.json b/src/Squot.package/SquotCodeMapper.class/methodProperties.json index 0e42702f6..7e980a880 100644 --- a/src/Squot.package/SquotCodeMapper.class/methodProperties.json +++ b/src/Squot.package/SquotCodeMapper.class/methodProperties.json @@ -4,7 +4,7 @@ "encodingName" : "mad 4/18/2024 18:11", "package:" : "mad 4/21/2023 23:40", "package:path:" : "mad 4/21/2023 23:41", - "projectListMenu:for:" : "mad 11/3/2023 15:10" }, + "projectListMenu:for:" : "mad 4/15/2024 20:27" }, "instance" : { "=" : "mad 9/26/2023 15:20", "aboutToStyle:with:requestor:at:" : "mad 11/7/2023 12:09", diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/README.md b/src/Squot.package/SquotCodePackageBrowser.class/README.md similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/README.md rename to src/Squot.package/SquotCodePackageBrowser.class/README.md diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/class/onWorkingCopy..st b/src/Squot.package/SquotCodePackageBrowser.class/class/onWorkingCopy..st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/class/onWorkingCopy..st rename to src/Squot.package/SquotCodePackageBrowser.class/class/onWorkingCopy..st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/class/openOnWorkingCopy..st b/src/Squot.package/SquotCodePackageBrowser.class/class/openOnWorkingCopy..st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/class/openOnWorkingCopy..st rename to src/Squot.package/SquotCodePackageBrowser.class/class/openOnWorkingCopy..st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/actionAddPackage.st b/src/Squot.package/SquotCodePackageBrowser.class/instance/actionAddPackage.st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/actionAddPackage.st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/actionAddPackage.st diff --git a/src/Squot.package/SquotCodePackageBrowser.class/instance/actionChangeEncoding.st b/src/Squot.package/SquotCodePackageBrowser.class/instance/actionChangeEncoding.st new file mode 100644 index 000000000..e0465b5fd --- /dev/null +++ b/src/Squot.package/SquotCodePackageBrowser.class/instance/actionChangeEncoding.st @@ -0,0 +1,6 @@ +actions +actionChangeEncoding + | mapper newMapper | + mapper := self selectedMapper. + newMapper := mapper changeEncoding ifNil: [^ self]. + self workingCopy replaceMapper: mapper with: newMapper. \ No newline at end of file diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/actionEditPackagePath.st b/src/Squot.package/SquotCodePackageBrowser.class/instance/actionEditPackagePath.st similarity index 88% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/actionEditPackagePath.st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/actionEditPackagePath.st index 682c8e3d8..fbd5493ef 100644 --- a/src/Squot.package/SquotTonelPackageBrowser.class/instance/actionEditPackagePath.st +++ b/src/Squot.package/SquotCodePackageBrowser.class/instance/actionEditPackagePath.st @@ -8,7 +8,7 @@ actionEditPackagePath ('The package will be stored in a subdirectory of the path below, named ''{1}''. ', 'Thus, the package is currently stored in the directory ''{2}''.' format: { packageName. - SquotPathUtilities asString: mapper pathWithPackage. + SquotPathUtilities asString: mapper packagePath. }) initialAnswer: mapper path) ifNil: [^ self]. diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/actionRemovePackage.st b/src/Squot.package/SquotCodePackageBrowser.class/instance/actionRemovePackage.st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/actionRemovePackage.st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/actionRemovePackage.st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/buildAddPackageButton..st b/src/Squot.package/SquotCodePackageBrowser.class/instance/buildAddPackageButton..st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/buildAddPackageButton..st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/buildAddPackageButton..st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/buildAutoSaveNote..st b/src/Squot.package/SquotCodePackageBrowser.class/instance/buildAutoSaveNote..st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/buildAutoSaveNote..st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/buildAutoSaveNote..st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/buildButtons..st b/src/Squot.package/SquotCodePackageBrowser.class/instance/buildButtons..st similarity index 83% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/buildButtons..st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/buildButtons..st index cac6a8da3..3900f32b6 100644 --- a/src/Squot.package/SquotTonelPackageBrowser.class/instance/buildButtons..st +++ b/src/Squot.package/SquotCodePackageBrowser.class/instance/buildButtons..st @@ -3,5 +3,6 @@ buildButtons: builder ^ SquotGUIUtilities buildButtons: { self buildAddPackageButton: builder. self buildEditPackagePathButton: builder. + self buildChangeEncodingButton: builder. self buildRemovePackageButton: builder. } with: builder \ No newline at end of file diff --git a/src/Squot.package/SquotCodePackageBrowser.class/instance/buildChangeEncodingButton..st b/src/Squot.package/SquotCodePackageBrowser.class/instance/buildChangeEncodingButton..st new file mode 100644 index 000000000..a22f1b3f3 --- /dev/null +++ b/src/Squot.package/SquotCodePackageBrowser.class/instance/buildChangeEncodingButton..st @@ -0,0 +1,9 @@ +toolbuilder +buildChangeEncodingButton: builder + ^ builder pluggableActionButtonSpec new + model: self; + action: #actionChangeEncoding; + enabled: #isSelectedPackageMapped; + label: 'Change package encoding'; + help: 'Change which encoding is used to serialize the package to the repository.'; + yourself \ No newline at end of file diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/buildEditPackagePathButton..st b/src/Squot.package/SquotCodePackageBrowser.class/instance/buildEditPackagePathButton..st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/buildEditPackagePathButton..st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/buildEditPackagePathButton..st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/buildLayout..st b/src/Squot.package/SquotCodePackageBrowser.class/instance/buildLayout..st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/buildLayout..st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/buildLayout..st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/buildMainLayout..st b/src/Squot.package/SquotCodePackageBrowser.class/instance/buildMainLayout..st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/buildMainLayout..st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/buildMainLayout..st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/buildMappedPackageList..st b/src/Squot.package/SquotCodePackageBrowser.class/instance/buildMappedPackageList..st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/buildMappedPackageList..st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/buildMappedPackageList..st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/buildRemovePackageButton..st b/src/Squot.package/SquotCodePackageBrowser.class/instance/buildRemovePackageButton..st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/buildRemovePackageButton..st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/buildRemovePackageButton..st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/buildUnmappedPackageList..st b/src/Squot.package/SquotCodePackageBrowser.class/instance/buildUnmappedPackageList..st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/buildUnmappedPackageList..st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/buildUnmappedPackageList..st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/buildWindow..st b/src/Squot.package/SquotCodePackageBrowser.class/instance/buildWindow..st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/buildWindow..st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/buildWindow..st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/buildWith..st b/src/Squot.package/SquotCodePackageBrowser.class/instance/buildWith..st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/buildWith..st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/buildWith..st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/categoriesChanged.st b/src/Squot.package/SquotCodePackageBrowser.class/instance/categoriesChanged.st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/categoriesChanged.st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/categoriesChanged.st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/categoriesPlusPrefixes.st b/src/Squot.package/SquotCodePackageBrowser.class/instance/categoriesPlusPrefixes.st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/categoriesPlusPrefixes.st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/categoriesPlusPrefixes.st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/commonPackagePathPrefix.st b/src/Squot.package/SquotCodePackageBrowser.class/instance/commonPackagePathPrefix.st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/commonPackagePathPrefix.st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/commonPackagePathPrefix.st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/defaultPackagePath.st b/src/Squot.package/SquotCodePackageBrowser.class/instance/defaultPackagePath.st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/defaultPackagePath.st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/defaultPackagePath.st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/initialize.st b/src/Squot.package/SquotCodePackageBrowser.class/instance/initialize.st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/initialize.st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/initialize.st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/isSelectedPackageMapped.st b/src/Squot.package/SquotCodePackageBrowser.class/instance/isSelectedPackageMapped.st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/isSelectedPackageMapped.st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/isSelectedPackageMapped.st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/isSelectedPackageUnmapped.st b/src/Squot.package/SquotCodePackageBrowser.class/instance/isSelectedPackageUnmapped.st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/isSelectedPackageUnmapped.st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/isSelectedPackageUnmapped.st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/mappedPackageList.st b/src/Squot.package/SquotCodePackageBrowser.class/instance/mappedPackageList.st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/mappedPackageList.st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/mappedPackageList.st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/mapperFor..st b/src/Squot.package/SquotCodePackageBrowser.class/instance/mapperFor..st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/mapperFor..st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/mapperFor..st diff --git a/src/Squot.package/SquotCodePackageBrowser.class/instance/mappers.st b/src/Squot.package/SquotCodePackageBrowser.class/instance/mappers.st new file mode 100644 index 000000000..d5594aa40 --- /dev/null +++ b/src/Squot.package/SquotCodePackageBrowser.class/instance/mappers.st @@ -0,0 +1,3 @@ +accessing +mappers + ^ self workingCopy mappersOfKind: SquotCodeMapper \ No newline at end of file diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/mappersChanged.st b/src/Squot.package/SquotCodePackageBrowser.class/instance/mappersChanged.st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/mappersChanged.st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/mappersChanged.st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/open.st b/src/Squot.package/SquotCodePackageBrowser.class/instance/open.st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/open.st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/open.st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/packageOrganizer..st b/src/Squot.package/SquotCodePackageBrowser.class/instance/packageOrganizer..st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/packageOrganizer..st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/packageOrganizer..st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/packageOrganizer.st b/src/Squot.package/SquotCodePackageBrowser.class/instance/packageOrganizer.st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/packageOrganizer.st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/packageOrganizer.st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/removePackage..st b/src/Squot.package/SquotCodePackageBrowser.class/instance/removePackage..st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/removePackage..st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/removePackage..st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/selectedMapper.st b/src/Squot.package/SquotCodePackageBrowser.class/instance/selectedMapper.st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/selectedMapper.st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/selectedMapper.st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/selectedPackageName..st b/src/Squot.package/SquotCodePackageBrowser.class/instance/selectedPackageName..st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/selectedPackageName..st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/selectedPackageName..st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/selectedPackageName.st b/src/Squot.package/SquotCodePackageBrowser.class/instance/selectedPackageName.st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/selectedPackageName.st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/selectedPackageName.st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/unmappedPackageList.st b/src/Squot.package/SquotCodePackageBrowser.class/instance/unmappedPackageList.st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/unmappedPackageList.st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/unmappedPackageList.st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/update..st b/src/Squot.package/SquotCodePackageBrowser.class/instance/update..st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/update..st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/update..st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/workingCopy..st b/src/Squot.package/SquotCodePackageBrowser.class/instance/workingCopy..st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/workingCopy..st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/workingCopy..st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/workingCopy.st b/src/Squot.package/SquotCodePackageBrowser.class/instance/workingCopy.st similarity index 100% rename from src/Squot.package/SquotTonelPackageBrowser.class/instance/workingCopy.st rename to src/Squot.package/SquotCodePackageBrowser.class/instance/workingCopy.st diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/methodProperties.json b/src/Squot.package/SquotCodePackageBrowser.class/methodProperties.json similarity index 87% rename from src/Squot.package/SquotTonelPackageBrowser.class/methodProperties.json rename to src/Squot.package/SquotCodePackageBrowser.class/methodProperties.json index 6cc85689b..ac6bdb648 100644 --- a/src/Squot.package/SquotTonelPackageBrowser.class/methodProperties.json +++ b/src/Squot.package/SquotCodePackageBrowser.class/methodProperties.json @@ -4,11 +4,13 @@ "openOnWorkingCopy:" : "mad 9/19/2023 15:47" }, "instance" : { "actionAddPackage" : "mad 11/27/2023 11:37", - "actionEditPackagePath" : "mad 11/14/2023 19:00", + "actionChangeEncoding" : "mad 4/18/2024 18:25", + "actionEditPackagePath" : "mad 10/21/2023 22:54", "actionRemovePackage" : "mad 11/27/2023 11:39", "buildAddPackageButton:" : "mad 9/19/2023 16:23", "buildAutoSaveNote:" : "mad 10/1/2023 17:58", - "buildButtons:" : "mad 9/19/2023 16:22", + "buildButtons:" : "mad 4/18/2024 18:23", + "buildChangeEncodingButton:" : "mad 4/18/2024 18:23", "buildEditPackagePathButton:" : "mad 9/19/2023 16:24", "buildLayout:" : "mad 10/1/2023 17:57", "buildMainLayout:" : "mad 9/19/2023 15:51", @@ -26,7 +28,7 @@ "isSelectedPackageUnmapped" : "mad 9/19/2023 16:23", "mappedPackageList" : "mad 9/19/2023 15:55", "mapperFor:" : "mad 11/27/2023 11:31", - "mappers" : "mad 9/20/2023 18:12", + "mappers" : "mad 4/18/2024 18:24", "mappersChanged" : "mad 9/19/2023 16:18", "open" : "mad 9/19/2023 15:47", "packageOrganizer" : "mad 9/19/2023 15:45", diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/properties.json b/src/Squot.package/SquotCodePackageBrowser.class/properties.json similarity index 86% rename from src/Squot.package/SquotTonelPackageBrowser.class/properties.json rename to src/Squot.package/SquotCodePackageBrowser.class/properties.json index 43935e09d..34cb5e91f 100644 --- a/src/Squot.package/SquotTonelPackageBrowser.class/properties.json +++ b/src/Squot.package/SquotCodePackageBrowser.class/properties.json @@ -9,7 +9,7 @@ "workingCopy", "packageOrganizer", "selectedPackageName" ], - "name" : "SquotTonelPackageBrowser", + "name" : "SquotCodePackageBrowser", "pools" : [ ], "super" : "Model", diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/mappers.st b/src/Squot.package/SquotTonelPackageBrowser.class/instance/mappers.st deleted file mode 100644 index d2249a89f..000000000 --- a/src/Squot.package/SquotTonelPackageBrowser.class/instance/mappers.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -mappers - ^ self workingCopy mappersOfKind: SquotTonelMapper \ No newline at end of file