From 4e4cc2ba96b7f7daf054dbe038ffaec488f49c87 Mon Sep 17 00:00:00 2001
From: CyrilFerlicot <cyril@ferlicot.me>
Date: Thu, 18 Jan 2024 13:43:08 +0100
Subject: [PATCH 1/2] Add back BLCursor as deprecated

Fixes #403

Sorry for the inconvenance
---
 src/Bloc/BLCursor.class.st | 90 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 90 insertions(+)
 create mode 100644 src/Bloc/BLCursor.class.st

diff --git a/src/Bloc/BLCursor.class.st b/src/Bloc/BLCursor.class.st
new file mode 100644
index 000000000..8ab3c2962
--- /dev/null
+++ b/src/Bloc/BLCursor.class.st
@@ -0,0 +1,90 @@
+Class {
+	#name : 'BLCursor',
+	#superclass : 'Object',
+	#category : 'Bloc-Utilities - Selection',
+	#package : 'Bloc',
+	#tag : 'Utilities - Selection'
+}
+
+{ #category : 'accessing' }
+BLCursor class >> crosshair [
+
+	self deprecated: 'Use Cursor instead.' transformWith: '`@rcv crosshair' -> 'Cursor crosshair'.
+	^ Cursor crossHair
+]
+
+{ #category : 'accessing' }
+BLCursor class >> default [
+
+	self deprecated: 'Use Cursor instead.' transformWith: '`@rcv default' -> 'Cursor normal'.
+	^ Cursor normal
+]
+
+{ #category : 'accessing' }
+BLCursor class >> hand [
+
+	self deprecated: 'Use Cursor instead.' transformWith: '`@rcv hand' -> 'Cursor webLink'.
+	^ Cursor webLink
+]
+
+{ #category : 'testing' }
+BLCursor class >> isDeprecated [
+
+	^ true
+]
+
+{ #category : 'accessing' }
+BLCursor class >> overEditableText [
+
+	self deprecated: 'Use Cursor instead.' transformWith: '`@rcv overEditableText' -> 'Cursor overEditableText'.
+	^ Cursor overEditableText
+]
+
+{ #category : 'accessing' }
+BLCursor class >> resizeBottom [
+
+	self deprecated: 'Use Cursor instead.' transformWith: '`@rcv resizeBottom' -> 'Cursor resizeBottom'.
+	^ Cursor resizeBottom
+]
+
+{ #category : 'accessing' }
+BLCursor class >> resizeBottomLeft [
+
+	self deprecated: 'Use Cursor instead.' transformWith: '`@rcv resizeBottomLeft' -> 'Cursor resizeBottomLeft'.
+	^ Cursor resizeBottomLeft
+]
+
+{ #category : 'accessing' }
+BLCursor class >> resizeBottomRight [
+
+	self deprecated: 'Use Cursor instead.' transformWith: '`@rcv resizeBottomRight' -> 'Cursor resizeBottomRight'.
+	^ Cursor resizeBottomRight
+]
+
+{ #category : 'accessing' }
+BLCursor class >> resizeTop [
+
+	self deprecated: 'Use Cursor instead.' transformWith: '`@rcv resizeTop' -> 'Cursor resizeTop'.
+	^ Cursor resizeTop
+]
+
+{ #category : 'accessing' }
+BLCursor class >> resizeTopLeft [
+
+	self deprecated: 'Use Cursor instead.' transformWith: '`@rcv resizeTopLeft' -> 'Cursor resizeTopLeft'.
+	^ Cursor resizeTopLeft
+]
+
+{ #category : 'accessing' }
+BLCursor class >> resizeTopRight [
+
+	self deprecated: 'Use Cursor instead.' transformWith: '`@rcv resizeTopRight' -> 'Cursor resizeTopRight'.
+	^ Cursor resizeTopRight
+]
+
+{ #category : 'accessing' }
+BLCursor class >> wait [
+
+	self deprecated: 'Use Cursor instead.' transformWith: '`@rcv wait' -> 'Cursor wait'.
+	^ Cursor wait
+]

From 398f720f7c86fd9b98d6bde36e138ee980064150 Mon Sep 17 00:00:00 2001
From: CyrilFerlicot <cyril@ferlicot.me>
Date: Thu, 18 Jan 2024 14:20:21 +0100
Subject: [PATCH 2/2] FIx deprecation

---
 src/Bloc/BLCursor.class.st | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Bloc/BLCursor.class.st b/src/Bloc/BLCursor.class.st
index 8ab3c2962..047219342 100644
--- a/src/Bloc/BLCursor.class.st
+++ b/src/Bloc/BLCursor.class.st
@@ -9,7 +9,7 @@ Class {
 { #category : 'accessing' }
 BLCursor class >> crosshair [
 
-	self deprecated: 'Use Cursor instead.' transformWith: '`@rcv crosshair' -> 'Cursor crosshair'.
+	self deprecated: 'Use Cursor instead.' transformWith: '`@rcv crosshair' -> 'Cursor crossHair'.
 	^ Cursor crossHair
 ]