'From Squeak3.6beta of ''4 July 2003'' [latest update: #5373] on 2 August 2003 at 9:00:20 pm'! "Change Set: FCBMsgRemovalFix-ar Date: 2 August 2003 Author: Andreas Raab FileContentsBrowser must NOT use SystemNavigation for certain operations."! !FileContentsBrowser methodsFor: 'removing' stamp: 'ar 8/2/2003 21:00'! removeMessage | messageName | messageListIndex = 0 ifTrue: [^ self]. self okToChange ifFalse: [^ self]. messageName _ self selectedMessageName. (self selectedClass confirmRemovalOf: messageName) ifFalse: [^ false]. self selectedClassOrMetaClass removeMethod: self selectedMessageName. self messageListIndex: 0. self setClassOrganizer. "In case organization not cached" self changed: #messageList! !