Dialog migration glitch in debugger
Closed this issue · 1 comments
Ducasse commented
an s in missing so that we get items: and not item:
requestSuperclassOf: aClass to: aSuperclass
| classes |
classes := OrderedCollection with: aClass.
classes addAll: (aClass allSuperclassesIncluding: aSuperclass).
classes addAll:
(aClass traits sort: [ :t1 :t2 | t1 asString < t2 asString ]).
classes size = 1 ifTrue: [ ^ classes first ].
^ (self application newSelect
display: [ :each | each name ];
items: classes;
title: 'Define selector in:';
openModal) ifNil: [ Abort signal ]