Hi Anthony,
I tried your change but I am seeing the same problem occurring post patch.
In my debugging the element array has the html attribute which is where the classes are specified. tag_attributes is empty.
Something like this works although there is probably a simpler way
if {[info exists element(html)]} {
# Get the named list from the html attribute
set html_val $element(html)
# Find if there is a class attribute in the html_value
set class_index [string first "class" $html_val]
# If class_index is > -1, then get the class value from the list and append prevent-double-click
if {$class_index > -1} {
set class_list [lindex $html_val [expr $class_index + 1]]
lappend class_list "prevent-double-click"
set classes [list class $class_list]
return [input submit element [concat $tag_attributes $classes]]
}
}
return [input submit element [concat $tag_attributes {class prevent-double-click}]]
