Skip to content

Commit

Permalink
address deprecations in pharo12
Browse files Browse the repository at this point in the history
  • Loading branch information
jbrichau committed Jun 16, 2024
1 parent 3074c69 commit 52b1c97
Show file tree
Hide file tree
Showing 4 changed files with 4 additions and 7 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -4,7 +4,7 @@ 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 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+"
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
accessing
systemCategoryList
^ (self packages
collect: [ :each | each packageName ])
collect: [ :each | each name ])
sorted
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
accessing
systemCategoryListIndex: anInteger
selectedPackage := ((self packages
sorted: [ :a :b | a packageName <= b packageName ]) at: anInteger).
sorted: [ :a :b | a name <= b name ]) at: anInteger).
selectedClass := nil.
self clearMessageAndProtoclSelection.
self changed: #systemCategoryListIndex
Original file line number Diff line number Diff line change
@@ -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')!

0 comments on commit 52b1c97

Please sign in to comment.