use commit version for description of Pharo Launcher version
MODIFY
src/PharoLauncher-Core.package/PhLAboutCommand.class/instance/aboutText.st
src/PharoLauncher-Core.package/PhLAboutCommand.class/instance/aboutText.st
@@ -7,10 +7,5 @@ aboutText
<< 'If you find a bug, please open an issue at https://github.com/pharo-project/pharo-launcher/issues.';
cr; cr;
<< 'Pharo Launcher version: ';
- << self launcherVersion;
- cr;
- << 'Packages :';
- cr;
- << '- ';
- << ((String cr , '- ') join: self launcherPackageList) ]
+ << self launcherVersion ]
\ No newline at end of file

DELETE
src/PharoLauncher-Core.package/PhLAboutCommand.class/instance/areLoadedPackagesIdenticalToPackagesDescribedInMetacelloCurrentVersion.st
-querying
-areLoadedPackagesIdenticalToPackagesDescribedInMetacelloCurrentVersion
- ^ self launcherMTProject packages allSatisfy:
- [ :package |
- package workingCopy needsSaving
- ifTrue: [ false ]
- ifFalse: [ package version = (MTVersion fromVersionName: package workingCopy ancestors first name) ] ]
\ No newline at end of file

DELETE
src/PharoLauncher-Core.package/PhLAboutCommand.class/instance/launcherPackageList.st
-querying
-launcherPackageList
- ^ (self launcherMTProject packages collect: [ :package | package workingCopy ancestors first name ])
- "join: "
\ No newline at end of file

MODIFY
src/PharoLauncher-Core.package/PhLAboutCommand.class/instance/launcherVersion.st
src/PharoLauncher-Core.package/PhLAboutCommand.class/instance/launcherVersion.st
querying
launcherVersion
- ^ self areLoadedPackagesIdenticalToPackagesDescribedInMetacelloCurrentVersion
- ifTrue: [ self launcherCurrentMetacalloVersion versionString ]
- ifFalse: [ 'N/A' ]
\ No newline at end of file
+
+ ^ [ self class package mcWorkingCopy ancestry ancestors first commit id asString ]
+ on: Error do: [ 'N/A' ]
\ No newline at end of file

MODIFY
src/PharoLauncher-Core.package/PhLCreateImageFromTemplateCommand.class/class/icon.st
src/PharoLauncher-Core.package/PhLCreateImageFromTemplateCommand.class/class/icon.st
accessing
icon
- ^ #smallNewIcon asIcon
\ No newline at end of file
+ ^ self iconNamed: #smallNewIcon
\ No newline at end of file

MODIFY
src/PharoLauncher-Core.package/PhLDeleteImageCommand.class/class/icon.st
src/PharoLauncher-Core.package/PhLDeleteImageCommand.class/class/icon.st
accessing
icon
- ^ #smallDeleteIcon asIcon
\ No newline at end of file
+ ^ self iconNamed: #smallDeleteIcon
\ No newline at end of file

MODIFY
src/PharoLauncher-Core.package/PhLLaunchImageCommand.class/class/icon.st
src/PharoLauncher-Core.package/PhLLaunchImageCommand.class/class/icon.st
accessing
icon
- ^ #smallDoItIcon asIcon
\ No newline at end of file
+ ^ self iconNamed: #smallDoItIcon
\ No newline at end of file

MODIFY
src/PharoLauncher-Core.package/PhLOpenSettingsCommand.class/class/icon.st
src/PharoLauncher-Core.package/PhLOpenSettingsCommand.class/class/icon.st
accessing
icon
- ^ #configurationIcon asIcon
\ No newline at end of file
+ ^ self iconNamed: #configurationIcon
\ No newline at end of file

MODIFY
src/PharoLauncher-Core.package/PhLQuitCommand.class/class/icon.st
src/PharoLauncher-Core.package/PhLQuitCommand.class/class/icon.st
accessing
icon
- ^ #smallQuitIcon asIcon
\ No newline at end of file
+ ^ self iconNamed: #smallQuitIcon
\ No newline at end of file

MODIFY
src/PharoLauncher-Core.package/PhLRefreshImageRepositoryCommand.class/class/icon.st
src/PharoLauncher-Core.package/PhLRefreshImageRepositoryCommand.class/class/icon.st
accessing
icon
- ^ #smallUpdateIcon asIcon
\ No newline at end of file
+ ^ self iconNamed: #smallUpdateIcon
\ No newline at end of file

MODIFY
src/PharoLauncher-Core.package/PhLRefreshTemplateRepositoryCommand.class/class/icon.st
src/PharoLauncher-Core.package/PhLRefreshTemplateRepositoryCommand.class/class/icon.st
accessing
icon
- ^ #smallUpdateIcon asIcon
\ No newline at end of file
+ ^ self iconNamed: #smallUpdateIcon
\ No newline at end of file

MODIFY
src/PharoLauncher-Core.package/monticello.meta/categories.st
src/PharoLauncher-Core.package/monticello.meta/categories.st
@@ -2,3 +2,5 @@ SystemOrganization addCategory: #'PharoLauncher-Core'!
SystemOrganization addCategory: 'PharoLauncher-Core-Commands'!
SystemOrganization addCategory: 'PharoLauncher-Core-Model'!
SystemOrganization addCategory: 'PharoLauncher-Core-Settings'!
+el'!
+SystemOrganization addCategory: #'PharoLauncher-Core-Settings'!

DELETE
src/PharoLauncher-Tests-Core.package/PhLAboutCommandTest.class/README.md
src/PharoLauncher-Tests-Core.package/PhLAboutCommandTest.class/README.md
DELETE
src/PharoLauncher-Tests-Core.package/PhLAboutCommandTest.class/instance/testCanListIntalledPackages.st
-tests
-testCanListIntalledPackages
- | list |
- list := PhLAboutCommand new launcherPackageList.
- self
- assert: list size
- equals: 5.
- self
- assertCollection: (PhLAboutCommand new launcherPackageList collect: [ :s | s copyUpToLast: $- ])
- hasSameElements: #( 'PharoLauncher-Core'
- 'PharoLauncher-Download'
- 'PharoLauncher-Spec'
- 'PharoLauncher-Tests-Core'
- 'PharoLauncher-Tests-Download' )
\ No newline at end of file

DELETE
src/PharoLauncher-Tests-Core.package/PhLAboutCommandTest.class/properties.json
-{
- "commentStamp" : "",
- "super" : "TestCase",
- "category" : "PharoLauncher-Tests-Core",
- "classinstvars" : [ ],
- "pools" : [ ],
- "classvars" : [ ],
- "instvars" : [ ],
- "name" : "PhLAboutCommandTest",
- "type" : "normal"
-}
\ No newline at end of file

use commit version for description of Pharo Launcher version