From 10dc97b01cda5bb347f2ca5741da7a82f02b37a4 Mon Sep 17 00:00:00 2001
From: Xie Qingtian <xqtxyz@gmail.com>
Date: Wed, 24 Jan 2024 12:14:00 +0800
Subject: [PATCH] FIX: issue #5470 (A CRASH when calling offset-to-caret inside
 a face actor)

---
 modules/view/backends/platform.red | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/modules/view/backends/platform.red b/modules/view/backends/platform.red
index f61a715391..a324c69bfe 100644
--- a/modules/view/backends/platform.red
+++ b/modules/view/backends/platform.red
@@ -796,10 +796,18 @@ system/view/platform: context [
 			bool	[red-logic!]
 			values	[red-value!]
 			txt		[red-string!]
+			word	[red-word!]
+			sym		[integer!]
 			layout? [logic!]
 	][
 		layout?: yes
 		values: object/get-values box
+		word: as red-word! values + gui/FACE_OBJ_TYPE
+		sym: symbol/resolve word/symbol
+		if sym <> gui/rich-text [
+			fire [TO_ERROR(script face-type) word]
+		]
+
 		txt: as red-string! values + gui/FACE_OBJ_TEXT
 		if TYPE_OF(txt) <> TYPE_STRING [
 			stack/set-last none-value