fix + refactor dialogs; reintroduce overview pyramid morph

* use #containingWindow instead of preserving toolbuilder outputs
* fix multiselection by adding observer updates required in newer Squeak versions
* use accessors for more variables
* UIManager default -> Project uiManager
* dump descriptionCollection

Author: LinqLover

packages/SwaLint-Core.package/SLDefaultDialog.class/instance/autoLint.st

@@ -2,5 +2,9 @@ actions
 autoLint
 
 	self runnable ifFalse: [^ self].
-	SLTestAutoRunner on: classesSelected with: testsSelected calledBy: (self dependents first) reopens: self.
+	SLTestAutoRunner
+		on: self classesSelected
+		with: self testsSelected
+		calledBy: self containingWindow
+		reopens: self.
 	self close.

packages/SwaLint-Core.package/SLDefaultDialog.class/instance/buildWith..st

@@ -12,5 +12,4 @@ buildWith: aBuilder
 		self testsFrame -> [self buildTestListWith: aBuilder].
 	}.
 
-	window := aBuilder build: windowSpec.
-	^window
+	^ aBuilder build: windowSpec

packages/SwaLint-Core.package/SLDefaultDialog.class/instance/categoriesSelected..st

@@ -0,0 +1,5 @@
+accessing
+categoriesSelected: aSet
+
+	categoriesSelected := aSet.
+	self changed: #categoriesSelected; updateClasses.

packages/SwaLint-Core.package/SLDefaultDialog.class/instance/categoriesSelected.st

@@ -0,0 +1,4 @@
+accessing
+categoriesSelected
+
+	^ categoriesSelected

packages/SwaLint-Core.package/SLDefaultDialog.class/instance/categoryAt..st

@@ -1,4 +1,5 @@
 accessing-categories
 categoryAt: anIndex
 
-	^ categoriesSelected includes: (self categories at: anIndex ifAbsent: [ ^ false ])
+	^ self categoriesSelected includes:
+		(self categories at: anIndex ifAbsent: [ ^ false ])

packages/SwaLint-Core.package/SLDefaultDialog.class/instance/categoryAt.put..st

@@ -1,15 +1,16 @@
 accessing-categories
 categoryAt: anInteger put: aBoolean
+
 	| target |
 	target := self categories at: anInteger ifAbsent: [^ self].
-	self selectByCategory
-		ifTrue: [categoriesSelected := aBoolean
-			ifTrue: [ categoriesSelected copyWith: target ]
-			ifFalse: [ categoriesSelected copyWithout: target ]]
-		ifFalse: [| categoryList package |
-			package := self environment packageForCategory: target.
-			categoryList := self getCategoriesFor: package.
-			categoriesSelected := aBoolean
-				ifTrue: [ categoriesSelected, categoryList ]
-				ifFalse: [ categoriesSelected copyWithoutAll: categoryList ]].
-	self changed: #categorySelected; updateClasses.
+	self categoriesSelected:
+		(self selectByCategory
+			ifTrue: [aBoolean
+				ifTrue: [ self categoriesSelected copyWith: target ]
+				ifFalse: [ self categoriesSelected copyWithout: target ]]
+			ifFalse: [| categoryList package |
+				package := self environment packageForCategory: target.
+				categoryList := self getCategoriesFor: package.
+				aBoolean
+					ifTrue: [ self categoriesSelected, categoryList ]
+					ifFalse: [ self categoriesSelected copyWithoutAll: categoryList ]]).

packages/SwaLint-Core.package/SLDefaultDialog.class/instance/classAt..st

@@ -1,4 +1,5 @@
 accessing-classes
 classAt: anInteger
 
-	^ classesSelected includes: (classes at: anInteger ifAbsent: [ ^ false ])
+	^ self classesSelected includes:
+		(self classes at: anInteger ifAbsent: [ ^ false ])

packages/SwaLint-Core.package/SLDefaultDialog.class/instance/classAt.put..st

@@ -1,7 +1,9 @@
 accessing-classes
 classAt: anInteger put: aBoolean
 
-	classesSelected := classesSelected
-		perform: (aBoolean ifTrue: [ #copyWith: ] ifFalse: [ #copyWithout: ])
-		with: (classes at: anInteger ifAbsent: [ ^ self ]).
-	self changed: #classSelected; changed: #runnable.
+	| target |
+	target := self classes at: anInteger ifAbsent: [ ^ self ].
+	self classesSelected:
+		(self classesSelected
+			perform: (aBoolean ifTrue: [ #copyWith: ] ifFalse: [ #copyWithout: ])
+			with: target).

packages/SwaLint-Core.package/SLDefaultDialog.class/instance/classesSelected.st

@@ -0,0 +1,4 @@
+accessing
+classesSelected
+
+	^ classesSelected

packages/SwaLint-Core.package/SLDefaultDialog.class/instance/filterCategories.st

@@ -1,15 +1,16 @@
 accessing-categories
 filterCategories
+
 	| pattern |
-	pattern := UIManager default 
+	pattern := Project uiManager
 		request: 'Pattern(s) to select categories:\    (separate patterns with '';'')' withCRs
 		initialAnswer: (categoryPattern ifNil: ['*']).
 	(pattern isNil or: [pattern isEmpty]) ifTrue:
 		[^self].
-	categoriesSelected := ((categoryPattern := pattern) subStrings: ';')
-		inject: Set new
-		into: [:matches :subPattern|
-			matches
-			addAll: (self categories select: [ :each | subPattern match: each]);
-			yourself].
-	self changed: #categorySelected; update.
+	self categoriesSelected:
+		(((categoryPattern := pattern) subStrings: ';')
+			inject: Set new
+			into: [:matches :subPattern|
+				matches
+				addAll: (self categories select: [ :each | subPattern match: each]);
+				yourself]).