--- a/Tools__NewSystemBrowser.st Tue Jun 09 11:02:53 2020 +0100
+++ b/Tools__NewSystemBrowser.st Fri Jul 03 13:45:03 2020 +0100
@@ -1,6 +1,7 @@
"
COPYRIGHT (c) 2000 by eXept Software AG
COPYRIGHT (c) 2015-2018 Jan Vrany
+ COPYRIGHT (c) 2020 LabWare
All Rights Reserved
This software is furnished under a license and may be used
@@ -83,6 +84,7 @@
"
COPYRIGHT (c) 2000 by eXept Software AG
COPYRIGHT (c) 2015-2018 Jan Vrany
+ COPYRIGHT (c) 2020 LabWare
All Rights Reserved
This software is furnished under a license and may be used
@@ -44576,12 +44578,14 @@
|selectedProjects allProjects|
selectedProjects := self selectedProjects value ? #().
- (selectedProjects includes:(BrowserList nameListEntryForALL)) ifTrue:[
+ (selectedProjects includes:BrowserList nameListEntryForALL) ifTrue:[
allProjects := environment allClasses collect:[:eachClass | eachClass package] as:Set.
selectedProjects := allProjects select:[:each| each notNil].
- ].
- selectedProjects := selectedProjects asOrderedCollection.
+ ].
+ selectedProjects := selectedProjects collect: [ :pkg | pkg string ] as: OrderedCollection.
selectedProjects sort do:aBlock
+
+ "Modified: / 03-07-2020 / 13:42:04 / Jan Vrany <jan.vrany@labware.com>"
!
spawnProjectAllPrerequisitesFor:someProjects in:how