Index: openacs-4/packages/xowf/tcl/xowf-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/xowf-procs.tcl,v diff -u -N -r1.1.2.2 -r1.1.2.3 --- openacs-4/packages/xowf/tcl/xowf-procs.tcl 1 Sep 2014 18:00:17 -0000 1.1.2.2 +++ openacs-4/packages/xowf/tcl/xowf-procs.tcl 2 Sep 2014 09:35:39 -0000 1.1.2.3 @@ -822,20 +822,27 @@ Render the defined actions in the current state with submit buttons } { if {[my is_wf_instance]} { - ::html::div -class form-button { - set ctx [::xowf::Context require [self]] - foreach action [$ctx get_actions] { - set success 0 - foreach role [$action roles] { - set success [my check_role $role] - if {$success} break - } - if {$success} { - set f [::xowiki::formfield::submit_button new -destroy_on_cleanup \ - -name __action_[namespace tail $action] -CSSclass $CSSclass] - if {[$action exists title]} {$f title [$action title]} - #my msg action=$action - $f value [$action label] + + set ctx [::xowf::Context require [self]] + set buttons {} + foreach action [$ctx get_actions] { + set success 0 + foreach role [$action roles] { + set success [my check_role $role] + if {$success} break + } + if {$success} { + set f [::xowiki::formfield::submit_button new -destroy_on_cleanup \ + -name __action_[namespace tail $action] -CSSclass $CSSclass] + if {[$action exists title]} {$f title [$action title]} + $f value [$action label] + lappend buttons $f + } + } + if {[llength $buttons] > 0} { + # take the form_button_wrapper_CSSclass from the first form field + ::html::div -class [[lindex $buttons 0] form_button_wrapper_CSSclass] { + foreach f $buttons { $f render_input } }