---

Class ::xowiki::formfield::current_state

::xowiki::formfield::current_state create ... \
           [ -as_graph (default "true") ]

Class Relations

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

::xotcl::Class create ::xowiki::formfield::current_state \
     -superclass ::xowiki::formfield::label

Methods (to be applied on instances)

• as_graph (setter)

• pretty_value (scripted)

  set g ""
  if {[:as_graph]} {
    set ctx   [::xowf::Context require ${:object}]
    set graph [$ctx as_graph -current_state $v -visited [${:object} visited_states]]
    set g "<div style='width: 35%; float: right;'>$graph</div>"
  }
  return "[next]$g"

• render_input (scripted)

  next
  if {[:as_graph]} {
    set ctx [::xowf::Context new -object ${:object}  -all_roles true -in_role none  -workflow_definition [${:object} wf_property workflow_definition]  -destroy_on_cleanup ]
    #set ctx   [::xowf::Context require ${:object}]
    set graph [$ctx as_graph -current_state [:value] -visited [${:object} visited_states]  -style "max-height: 250px;"]
    ::html::div -style "width: 35%; float: right;" {
      ::html::t -disableOutputEscaping $graph
    }
  }

---