---

Class ::xowiki::formfield::workflow_definition

::xowiki::formfield::workflow_definition create ... \
           [ -cols (default "80") ] \
           [ -dpi (default "120") ] \
           [ -rows (default "20") ]

Class Relations

• class: ::xotcl::Class
• superclass: ::xowiki::formfield::textarea

::xotcl::Class create ::xowiki::formfield::workflow_definition \
     -superclass ::xowiki::formfield::textarea

Methods (to be applied on instances)

• as_graph (scripted)

  set ctx [::xowf::Context new -object ${:object}  -all_roles true -in_role none  -workflow_definition [:value]  -destroy_on_cleanup ]
  return [$ctx as_graph -dpi ${:dpi} -style "max-width: 20%;"]

• check=workflow (scripted)

  # Do we have a syntax error in the workflow definition?
  if {![catch {set ctx [::xowf::Context new  -object ${:object}  -all_roles true  -workflow_definition [:value]  -destroy_on_cleanup ]} errorMsg]} {
    $ctx initialize_context ${:object}
    ${:object} wf_context $ctx
    unset errorMsg
    set info [$ctx check]
    if {[dict get $info rc] == 1} {
      set errorMsg [dict get $info errorMsg]
    }
  }
  
  if {[info exists errorMsg]} {
    #:msg errorMsg=$errorMsg
    :uplevel [list set errorMsg $errorMsg]
    return 0
  }
  return 1

• cols (setter)

• dpi (setter)

• pretty_value (scripted)

  ${:object} do_substitutions 0
  set text [string map [list & "&amp;" < "&lt;" > "&gt;" \" "&quot;" ' "&apos;" @ "&#64;"] [:value]]
  return "<div style='width: 65%; overflow:auto;float: left;'>
  <pre class='code'>$text</pre></div>
  <div>[:as_graph]</div><div class='visual-clear'></div>
      [${:object} include my-refers]
     "

• rows (setter)

• validator (setter)

---