Index: openacs-4/packages/acs-templating/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/widget-procs.tcl,v
diff -u -r1.63.2.10 -r1.63.2.11
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	2 Mar 2021 14:44:35 -0000	1.63.2.10
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	9 Mar 2021 10:11:53 -0000	1.63.2.11
@@ -48,6 +48,7 @@
     @see template::widget::submit
     @see template::widget::text
     @see template::widget::textarea
+    @see template::widget::url
     @see template::widget::block
     @see template::element::create
     @see template::widget::select_text
@@ -1384,6 +1385,23 @@
     return [input number element $tag_attributes]
 }
 
+ad_proc -public template::widget::url {
+    element_reference
+    tag_attributes
+} {
+    Render a url input widget.
+
+    @param element_reference Reference variable to the form element
+    @param tag_attributes HTML attributes to add to the tag
+
+    @return Form HTML for widget
+} {
+
+    upvar $element_reference element
+
+    return [input url element $tag_attributes]
+}
+
 #
 # Local variables:
 #    mode: tcl