Fix browser deprecations in Pharo 11

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

@@ -16,7 +16,9 @@ contents
 							selectedMessageCategory isNil
 								ifTrue: [
 									"class definition"
-									self selectedClass definition ]
+									(self selectedClass respondsTo: #definitionString)
+										ifTrue: [ self selectedClass definitionString ]
+										ifFalse: [ self selectedClass definition ] ]
 								ifFalse: [
 									"method template"
 									self selectedClass sourceCodeTemplate ] ] ]

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

@@ -4,7 +4,9 @@ messageCategoryList
 	| all categories unclassified |
 	all := #'-- all --'. "AllProtocol defaultName is fucked in Pharo 2.0"
 	self selectedClass ifNil: [ ^ Array with: all ].
-	categories := self selectedClass organization categories.
+	categories := (self selectedClass respondsTo: #protocolNames)
+		ifTrue: [ self selectedClass protocolNames ]
+		ifFalse: [ self selectedClass organization categories ].
 	(categories notEmpty and: [ categories first = all ]) ifFalse: [ "all is only in 3.0+"
 		categories := (Array with: all) , categories ].
 	unclassified := Protocol unclassified. "#unclassified only in 3.0+"

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

@@ -6,12 +6,15 @@ messageList
 				ifTrue: [ #() ]
 				ifFalse: [ self selectedClass selectors ] ]
 		ifFalse: [
-			| organization organizer |
-			organization := self selectedClass organization.
-			organizer := (organization respondsTo: #protocolOrganizer) "Only in Pharo 3.0+"
-				ifTrue: [ organization protocolOrganizer ]
-				ifFalse: [
-					| classOrganization |
-					classOrganization := Smalltalk globals class name hasClassNamed: 'ClassOrganization'.
-					(classOrganization importFrom: self selectedClass organization) protocolOrganizer ].
-			organizer methodsInProtocolNamed: selectedMessageCategory ]) sorted
+			(self selectedClass respondsTo: #selectorsInProtocol:)
+				ifTrue: [ self selectedClass selectorsInProtocol: selectedMessageCategory ]
+				ifFalse: [ 
+					| organization organizer |
+					organization := self selectedClass organization.
+					organizer := (organization respondsTo: #protocolOrganizer) "Only in Pharo 3.0+"
+						ifTrue: [ organization protocolOrganizer ]
+						ifFalse: [
+							| classOrganization |
+							classOrganization := Smalltalk globals class name classNamed: 'ClassOrganization'.
+							(classOrganization importFrom: self selectedClass organization) protocolOrganizer ].
+					organizer methodsInProtocolNamed: selectedMessageCategory ] ]) sorted

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

@@ -0,0 +1,5 @@
+private
+packageNameOf: aPackage
+	^ (aPackage respondsTo: #name)
+		ifTrue: [ aPackage name ]
+		ifFalse: [ aPackage packageName ]

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

@@ -1,3 +1,7 @@
 private
 packages
-	^ (Smalltalk at: #RPackage) organizer packages
+	| rPackage |
+	rPackage := Smalltalk at: #RPackage.
+	^ ((rPackage respondsTo: #packageOrganizer)
+		ifTrue: [ rPackage packageOrganizer ]
+		ifFalse: [ rPackage organizer ]) packages

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

@@ -3,5 +3,7 @@ selectedClass
 	| class |
 	class := selectedClass.
 	(class notNil and: [ showInstance not ]) ifTrue: [ 
-		class := class theMetaClass ].
+		class := (class respondsTo: #classSide)
+			ifTrue: [ class classSide ]
+			ifFalse: [ class theMetaClass ] ].
 	^ class

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

@@ -1,5 +1,4 @@
 accessing
 systemCategoryList
-	^ (self packages
-		collect: [ :each | each packageName ])
-		sorted
+
+	^ (self packages collect: [ :each | (self packageNameOf: each) ]) sorted

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

@@ -1,7 +1,7 @@
 accessing
 systemCategoryListIndex: anInteger
 	selectedPackage := ((self packages
-		sorted: [ :a :b | a packageName <= b packageName ]) at: anInteger).
+		sorted: [ :a :b | (self packageNameOf: a) <= (self packageNameOf: b) ]) at: anInteger).
 	selectedClass := nil.
 	self clearMessageAndProtoclSelection.
 	self changed: #systemCategoryListIndex

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

@@ -1,5 +1,5 @@
 accessing
 systemCategoryListIndex
 	^ (self packages
-		sorted: [ :a :b | a packageName <= b packageName ])
+		sorted: [ :a :b | (self packageNameOf: a) <= (self packageNameOf: b) ])
 		indexOf: selectedPackage

repository/Seaside-Pharo-Development.package/monticello.meta/categories.st

@@ -1,4 +1 @@
-SystemOrganization addCategory: #'Seaside-Pharo-Development'!
-SystemOrganization addCategory: #'Seaside-Pharo-Development-Core'!
-SystemOrganization addCategory: #'Seaside-Pharo-Development-Core-Plugins'!
-SystemOrganization addCategory: #'Seaside-Pharo-Development-Core-Profiler'!
+self packageOrganizer ensurePackage: #'Seaside-Pharo-Development' withTags: #(#Core #'Core-Plugins' #'Core-Profiler')!