Index: openacs-4/packages/richtext-tinymce/tcl/richtext-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/richtext-tinymce/tcl/richtext-init.tcl,v
diff -u -r1.2.2.1 -r1.2.2.2
--- openacs-4/packages/richtext-tinymce/tcl/richtext-init.tcl	9 Feb 2020 15:48:57 -0000	1.2.2.1
+++ openacs-4/packages/richtext-tinymce/tcl/richtext-init.tcl	19 Jul 2024 11:46:20 -0000	1.2.2.2
@@ -1,5 +1,21 @@
 template::util::richtext::register_editor tinymce
 
+if {[apm_package_installed_p xowiki]} {
+    #
+    # We become the preferred richtext editor for xowiki, if none was
+    # chosen so far.
+    #
+    set preferred_editor [::parameter::get_global_value \
+                              -package_key xowiki \
+                              -parameter PreferredRichtextEditor]
+    if {$preferred_editor eq ""} {
+        ::parameter::set_global_value \
+            -package_key xowiki \
+            -parameter PreferredRichtextEditor \
+            -value "tinymce"
+    }
+}
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4