Artifact
ad38d8b0e7c6f6bc6d72c72debddfdd7ee9eb25c:
Attachment "html-submit-title.patch" to
ticket [1146362fff]
added by
yuray
2005-02-22 23:16:16.
--- 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 --
