- move extentions from Slot-Core to Behavior/Class/ClassDescription

- make sure that we never call methods only defined in the subclass 

fixes pharo-project#6504

src/Kernel/Behavior.class.st

@@ -538,6 +538,23 @@ Behavior >> classDepth [
 	^ self superclass classDepth + 1
 ]
 
+{ #category : #accessing }
+Behavior >> classLayout [
+	^ layout
+		ifNil: [ 
+			| superLayout scope |
+			superLayout := superclass 
+				ifNil: [ FixedLayout new slotScope: LayoutEmptyScope instance] "happened in the bootrap"
+				ifNotNil: [:sl | sl classLayout].
+			scope := superLayout slotScope extend.
+			layout := superLayout class extending: superLayout scope: scope host: self ]
+]
+
+{ #category : #accessing }
+Behavior >> classLayout: aClassLayout [
+	layout := aClassLayout
+]
+
 { #category : #'accessing instances and variables' }
 Behavior >> classVarNames [
 	"Answer a collection of the receiver's class variable names."
@@ -835,6 +852,17 @@ Behavior >> hasSelectorReferringTo: literal [
 	^self methods anySatisfy: [ :method | method hasLiteral: literal ]
 ]
 
+{ #category : #testing }
+Behavior >> hasSpecificLayout [
+	"Return true whether the receiver has a layout that is not a fixed one (which is the default linear layout for default classes."
+	"Point hasSpecificLayout >>> false"
+	"Array hasSpecificLayout >>> true"
+
+	^ (self classLayout isKindOf: FixedLayout) not
+
+
+]
+
 { #category : #'testing class hierarchy' }
 Behavior >> includesBehavior: aClass [
 

src/Kernel/Class.class.st

@@ -363,6 +363,12 @@ Class >> classVariables [
 	^self classPool associations
 ]
 
+{ #category : #slots }
+Class >> classVariablesNeedFullDefinition [
+
+	^ self classVariables anySatisfy: [ :each | each needsFullDefinition ]
+]
+
 { #category : #'accessing class hierarchy' }
 Class >> commonSuperclassWith: aClass [
 	"return the next common superclass between me and aClass. If I am the superclass of aClass, that is me"
@@ -711,6 +717,13 @@ Class >> name [
 	^ name ifNil: [ super name ]
 ]
 
+{ #category : #slots }
+Class >> needsSlotClassDefinition [
+    "return true if we define something else than InstanceVariableSlots or normal class variables"
+
+    ^ super needsSlotClassDefinition or: [ self classVariablesNeedFullDefinition ]
+]
+
 { #category : #'subclass creation' }
 Class >> newAnonymousSubclass [
 

src/Kernel/ClassDescription.class.st

@@ -320,12 +320,6 @@ ClassDescription >> classThatDefinesInstVarNamed: instVarName [
 		 ifNone: nil
 ]
 
-{ #category : #slots }
-ClassDescription >> classVariablesNeedFullDefinition [
-
-	^ self classVariables anySatisfy: [ :each | each needsFullDefinition ]
-]
-
 { #category : #printing }
 ClassDescription >> classVariablesString [
 	"Answer a string of my class variable names separated by spaces."
@@ -563,6 +557,20 @@ ClassDescription >> copyCategory: cat from: aClass classified: newCat [
 		classified: newCat
 ]
 
+{ #category : #slots }
+ClassDescription >> definesSlot: aSlot [
+	"Return true whether the receiver defines an instance variable named aString"
+
+	^ self slots identityIncludes: aSlot
+]
+
+{ #category : #slots }
+ClassDescription >> definesSlotNamed: aString [
+	"Return true whether the receiver defines an instance variable named aString."
+
+	^ self slotNames includes: aString
+]
+
 { #category : #'file in/out' }
 ClassDescription >> definition [
 	"Answer a String that defines the receiver."
@@ -884,9 +892,7 @@ ClassDescription >> methodsTaggedWith: aSymbol [
 ClassDescription >> needsSlotClassDefinition [
     "return true if we define something else than InstanceVariableSlots or normal class variables"
 
-    ^ self slotsNeedFullDefinition 
-		or: [ self class slotsNeedFullDefinition 
-		or: [ self classVariablesNeedFullDefinition ] ]
+    ^ self slotsNeedFullDefinition or: [ self class slotsNeedFullDefinition ]
 ]
 
 { #category : #private }
@@ -1230,7 +1236,7 @@ ClassDescription >> slotNames [
 	^self slots collect: [ :each | each name ]
 ]
 
-{ #category : #slots }
+{ #category : #accessing }
 ClassDescription >> slots [
 	^self classLayout visibleSlots
 ]