--- html.tcl.org	2005-02-22 18:47:47.000000000 +0300
+++ html.tcl	2005-02-22 19:09:56.000000000 +0300
@@ -861,13 +861,14 @@
 # Arguments:
 #	label		The string to appear in the submit button.
 #	name		The name for the submit button element
+#	title		The string to appear on the submit button
 #
 # Results:
 #	The html fragment
 
 
-proc ::html::submit {label {name submit}} {
-    ::set html "<input type=\"submit\" name=\"$name\" value=\"$label\">\n"
+proc ::html::submit {label {name submit} {title {}}} {
+    ::set html "<input type=\"submit\" name=\"$name\" value=\"$label\" title=\"$title\">\n"
 }
 
 # ::html::varEmpty --
