From fdc5b42646770ae4bfdddc93f016d8ff0caa43bd Mon Sep 17 00:00:00 2001
From: Chris Cranford <chris@hibernate.org>
Date: Sat, 4 May 2024 18:50:04 -0400
Subject: [PATCH] Add default implementation of
 `ScriptLanguageExtension::preferred_file_name_casing`.

---
 core/object/script_language_extension.h | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/core/object/script_language_extension.h b/core/object/script_language_extension.h
index cc6b729ae8e..8fd26c3d2c8 100644
--- a/core/object/script_language_extension.h
+++ b/core/object/script_language_extension.h
@@ -389,7 +389,16 @@ public:
 	EXBIND0RC(bool, can_make_function)
 	EXBIND3R(Error, open_in_external_editor, const Ref<Script> &, int, int)
 	EXBIND0R(bool, overrides_external_editor)
-	EXBIND0RC(ScriptNameCasing, preferred_file_name_casing)
+
+	GDVIRTUAL0RC(ScriptNameCasing, _preferred_file_name_casing);
+
+	virtual ScriptNameCasing preferred_file_name_casing() const override {
+		ScriptNameCasing ret;
+		if (GDVIRTUAL_CALL(_preferred_file_name_casing, ret)) {
+			return ret;
+		}
+		return ScriptNameCasing::SCRIPT_NAME_CASING_SNAKE_CASE;
+	}
 
 	GDVIRTUAL3RC(Dictionary, _complete_code, const String &, const String &, Object *)