'From Squeak3.4alpha of 6 November 2002 [latest update: #5109] on 15 November 2002 at 1:23:11 pm'! "Change Set: browserFix-sw Date: 15 November 2002 Author: Scott Wallace Corrects the bug that issuing cmd-x when the class-list, system-category-list, or package-list pane has keyboard focus in a browser that has no class selected would drop the user into a debugger"! !CodeHolder methodsFor: 'commands' stamp: 'sw 11/15/2002 13:16'! removeClass "Remove the selected class from the system, at interactive user request. Make certain the user really wants to do this, since it is not reversible. Answer true if removal actually happened." | message className classToRemove result | self okToChange ifFalse: [^ false]. classToRemove _ self selectedClassOrMetaClass ifNil: [self beep. ^ false]. classToRemove _ classToRemove theNonMetaClass. className _ classToRemove name. message _ 'Are you certain that you want to REMOVE the class ', className, ' from the system?'. (result _ self confirm: message) ifTrue: [classToRemove subclasses size > 0 ifTrue: [(self confirm: 'class has subclasses: ' , message) ifFalse: [^ false]]. classToRemove removeFromSystem. self changed: #classList. true]. ^ result! !