Merge pull request #1373 from SeasideSt/fixcontentsnotifying

Fix class browser example in Pharo12 and also update the correct version number...

repository/Seaside-Core.package/GRPlatform.extension/instance/seasideVersion.st

@@ -2,5 +2,5 @@
 seasideVersion
 	"Answer the Seaside version"
 
-	^ (GRVersion major: 3 minor: 5 revision: 0)
+	^ (GRVersion major: 3 minor: 5 revision: 3)
 		yourself

repository/Seaside-Pharo-Development.package/WAPharoInspector.class/instance/evaluate.st

@@ -2,6 +2,5 @@ actions
 evaluate
 	^ self object class compilerClass new
 		source: input;
-		context: thisContext;
 		receiver: self object;
 		evaluate

repository/Seaside-Pharo-Development.package/WARPackageBasedBrowser.class/instance/messageCategoryList.st

@@ -1,21 +1,16 @@
 accessing
 messageCategoryList
+
 	| all categories unclassified |
 	all := #'-- all --'. "AllProtocol defaultName is fucked in Pharo 2.0"
-	self selectedClass isNil
-		ifTrue: [ ^ Array with: all ].
+	self selectedClass ifNil: [ ^ Array with: all ].
 	categories := self selectedClass organization categories.
 	(categories notEmpty and: [ categories first = all ]) ifFalse: [ "all is only in 3.0+"
-		categories := (Array with: all), categories ].
-	unclassified := (Smalltalk at: #Protocol) defaultName. "#unclassified only in 3.0+"
+		categories := (Array with: all) , categories ].
+	unclassified := Protocol unclassified. "#unclassified only in 3.0+"
 	^ (categories includes: unclassified)
-		ifTrue: [
-			"'-- all --', 'as yet unclassified', rest sorted alphabetically"
-			(Array
-				with: categories first
-				with: unclassified),
-			(categories allButFirst copyWithout: unclassified) sorted ]
-		ifFalse: [
-			"'-- all --', rest sorted alphabetically"
-			(Array with: categories first),
-			categories allButFirst sorted ]
+		  ifTrue: [ "'-- all --', 'as yet unclassified', rest sorted alphabetically"
+			  (Array with: categories first with: unclassified)
+			  , (categories allButFirst copyWithout: unclassified) sorted ]
+		  ifFalse: [ "'-- all --', rest sorted alphabetically"
+			  (Array with: categories first) , categories allButFirst sorted ]