Tools__NewSystemBrowser.st
branchjv
changeset 19590 1174a5072a18
parent 18226 346376844040
child 19591 a93aab0bd02d
--- 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