Index: openacs-4/packages/xowiki/xowiki.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/xowiki.info,v
diff -u -r1.180.2.56 -r1.180.2.57
--- openacs-4/packages/xowiki/xowiki.info	4 Feb 2021 13:18:51 -0000	1.180.2.56
+++ openacs-4/packages/xowiki/xowiki.info	9 Feb 2021 11:16:22 -0000	1.180.2.57
@@ -10,7 +10,7 @@
     <inherit-templates-p>t</inherit-templates-p>
     <auto-mount>xowiki</auto-mount>
 
-    <version name="5.10.0d72" url="http://openacs.org/repository/download/apm/xowiki-5.10.0d72.apm">
+    <version name="5.10.0d73" url="http://openacs.org/repository/download/apm/xowiki-5.10.0d73.apm">
 	<owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
 	<summary>A xotcl-based enterprise wiki system with multiple object types</summary>
 	<release-date>2017-08-06</release-date>
@@ -55,7 +55,7 @@
 	<license>BSD-Style</license>
 	<maturity>2</maturity>
 
-	<provides url="xowiki" version="5.10.0d72"/>
+	<provides url="xowiki" version="5.10.0d73"/>
 	<requires url="xotcl-core" version="5.10.0d38"/>
 	<requires url="acs-datetime" version="5.9.1"/>
 	<requires url="acs-kernel" version="5.9.1"/>
Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.284.2.146 -r1.284.2.147
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	5 Feb 2021 14:00:01 -0000	1.284.2.146
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	9 Feb 2021 11:16:22 -0000	1.284.2.147
@@ -2570,15 +2570,44 @@
   ###########################################################
 
   Class create range -superclass FormField -parameter {
-    min max step value
+    min max step value with_output:boolean {output_prefix ""} {output_suffix ""}
+  } -ad_doc {
+
+    HTML5 range input field. The range input is rendered as a slider
+    by the actual browsers.
+
+    @param min minimum value of the value range
+    @param max maximum value of the value range
+    @param step increment steps when moving the slider
+    @param with_output add an output box with show the actual slider value
+           (requires JavaScript)
+    @param output_prefix prepend string value to the actual slider value
+           in the output display
+    @param output_suffix append string value to the actual slider value
+           in the output display
   }
+  
   range instproc initialize {} {
     :type range
     set :widget_type text
   }
   range instproc render_input {} {
     ::html::input [:get_attributes type id name value disabled {CSSclass class} min max step value \
                        autofocus autocomplete formnovalidate multiple pattern placeholder readonly required] {}
+    if {${:with_output}} {
+      set :for ${:id}
+      set :outputID ${:id}-output
+      :CSSclass_list_add CSSclass ${:name}
+      ::html::output [:get_attributes for {outputID id} {CSSclass class}] {
+        ::html::t "${:output_prefix}${:value}${:output_suffix}"
+      }
+      set output_value [subst {'${:output_prefix}' + event.srcElement.value + '${:output_suffix}'}]
+      template::add_event_listener \
+          -id ${:id} \
+          -event input \
+          -preventdefault=false \
+          -script "document.getElementById('${:outputID}').value = $output_value;"
+    }
   }
 
   ###########################################################