Replace focused by isFocused in BlSpace, BlElement and BlElementVisuals.

Deprecate with transform rule the old name.

src/Bloc/BlCustomVisuals.class.st

@@ -126,11 +126,6 @@ BlCustomVisuals >> focusability: aBlFocusability [
 	focusability := aBlFocusability
 ]
 
-{ #category : 'accessing' }
-BlCustomVisuals >> focused [
-	^ focused ifNil: [ self defaultFocused ]
-]
-
 { #category : 'accessing' }
 BlCustomVisuals >> focused: aBoolean [
 	"Change focused state and return new visuals to be used instead of the previous one (not necessarily a new instance)"
@@ -152,6 +147,12 @@ BlCustomVisuals >> geometry: aBlElementGeometry [
 	geometry := aBlElementGeometry
 ]
 
+{ #category : 'testing' }
+BlCustomVisuals >> isFocused [
+
+	^ focused ifNil: [ self defaultFocused ]
+]
+
 { #category : 'accessing' }
 BlCustomVisuals >> mouseCursor [
 	^ mouseCursor ifNil: [ self defaultMouseCursor ]

src/Bloc/BlDefaultVisuals.class.st

@@ -157,11 +157,6 @@ BlDefaultVisuals >> focusability: aBlFocusability [
 	^ BlCustomVisuals new focusability: aBlFocusability
 ]
 
-{ #category : 'accessing' }
-BlDefaultVisuals >> focused [
-	^ self defaultFocused
-]
-
 { #category : 'accessing' }
 BlDefaultVisuals >> focused: aBoolean [
 	"Change focused state and return new visuals to be used instead of the previous one (not necessarily a new instance)"
@@ -183,6 +178,12 @@ BlDefaultVisuals >> geometry: aBlElementGeometry [
 	^ BlCustomVisuals new geometry: aBlElementGeometry
 ]
 
+{ #category : 'testing' }
+BlDefaultVisuals >> isFocused [
+
+	^ self defaultFocused
+]
+
 { #category : 'accessing' }
 BlDefaultVisuals >> mouseCursor [
 	^ self defaultMouseCursor

src/Bloc/BlElement.class.st

@@ -2221,12 +2221,12 @@ BlElement >> isFocusable [
 				and: [ self focusability ~= BlFocusability ignore ] ] ]
 ]
 
-{ #category : 'focus testing' }
+{ #category : 'private - accessing' }
 BlElement >> isFocused [
 	"Returns true if I am focused, false otherwise.
-	Note: It is possible that an element has focus but is not focused by itself"
+	Note: It is possible that an element has focus but is not focused by itself."
 
-	^ self focused
+	^ visuals isFocused
 ]
 
 { #category : 'testing' }

src/Bloc/BlElementVisuals.class.st

@@ -215,7 +215,12 @@ BlElementVisuals >> focusability: aBlFocusability [
 
 { #category : 'accessing' }
 BlElementVisuals >> focused [
-	^ self subclassResponsibility
+
+	self
+		deprecated: 'Use isFocused instead of current one'
+		transformWith: '`@rcv focused' -> '`@rcv isFocused'.
+
+	^ self isFocused
 ]
 
 { #category : 'accessing' }
@@ -239,6 +244,12 @@ BlElementVisuals >> geometry: aBlElementGeometry [
 	^ self subclassResponsibility
 ]
 
+{ #category : 'testing' }
+BlElementVisuals >> isFocused [
+
+	^ self subclassResponsibility
+]
+
 { #category : 'accessing' }
 BlElementVisuals >> mouseCursor [
 	^ self subclassResponsibility

src/Bloc/BlSpace.class.st

@@ -967,11 +967,16 @@ BlSpace >> focusProcessor: aFocusProcessor [
 { #category : 'window - properties' }
 BlSpace >> focused [
 
+	self
+		deprecated: 'Use isFocused instead of current one'
+		transformWith: '`@rcv focused' -> '`@rcv isFocused'.
+
 	^ focused
 ]
 
 { #category : 'window - properties' }
 BlSpace >> focused: aBoolean [
+
 	focused := aBoolean
 ]
 
@@ -1023,6 +1028,7 @@ BlSpace >> fullsize: aBoolean [
 
 { #category : 'focus managing' }
 BlSpace >> grabFocus [
+
 	self focused: true
 ]
 
@@ -1278,9 +1284,10 @@ BlSpace >> isBorderless [
 		  ifAbsent: [ borderless ]
 ]
 
-{ #category : 'testing' }
+{ #category : 'window - properties' }
 BlSpace >> isFocused [
-	^ self focused
+
+	^ focused
 ]
 
 { #category : 'window - properties' }
@@ -1732,6 +1739,7 @@ BlSpace >> topMostParent [
 
 { #category : 'focus managing' }
 BlSpace >> ungrabFocus [
+
 	self focused: false
 ]
 

src/Bloc/BlSpaceEventListener.class.st

@@ -128,6 +128,7 @@ BlSpaceEventListener >> spaceEventsProcessedEvent: anEvent [
 
 { #category : 'window handlers' }
 BlSpaceEventListener >> spaceFocusInEvent: anEvent [
+
 	self focusProcessor processWindowFocusIn: anEvent
 ]