added a sorting method for iceberg repositories based on status and name

pharo-vcs · Mar 9, 2022 · a28f9ee · a28f9ee
1 parent bc910fc
commit a28f9ee
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/Iceberg-TipUI/IceTipRepositoriesBrowser.class.st b/Iceberg-TipUI/IceTipRepositoriesBrowser.class.st
@@ -164,8 +164,15 @@ IceTipRepositoriesBrowser >> openManagePackagesWindow [
 
 { #category : #private }
 IceTipRepositoriesBrowser >> refresh [
-
-	repositoryList items: self model repositories
+	repositoryList items: (self model repositories
+		sorted: [ :a :b | 
+			| status1 status2 |
+			status1 := a status.
+			status2 := b status.
+			status1 string = status2 string
+				ifTrue: [ a name < b name ]
+				ifFalse: [ status1 string > status2 string ]
+	 	])
 ]
 
 { #category : #accessing }