SycCmInsertSubclassCommand.class.st

"
I am a command to insert new subclass into my target class hierarchy.
All current subclasses of targetClass will become subclasses of new created class
"
Class {
	#name : #SycCmInsertSubclassCommand,
	#superclass : #SycCmNewClassCreationCommand,
	#category : #'SystemCommands-ClassCommands'
}

{ #category : #testing }
SycCmInsertSubclassCommand >> executeRefactoring [
	
	| refactoring |
	refactoring := RBAddClassRefactoring
		addClass: newClassName
		superclass: targetClass
		subclasses: targetClass subclasses
		category: targetClass category.
	refactoring execute
]

{ #category : #testing }
SycCmInsertSubclassCommand >> icon [
	^ self iconNamed: #smallLoadProject
]

{ #category : #testing }
SycCmInsertSubclassCommand >> isApplicable [
	
	^ true
]

{ #category : #testing }
SycCmInsertSubclassCommand >> name [
	^'Insert subclass'
]

{ #category : #testing }
SycCmInsertSubclassCommand >> order [ 
	^ 20
]