%3 ::xotcl::Object ::xotcl::Object ::xowf::Context ::xowf::Context → require ::xowf::Context->::xotcl::Object

Class ::xowf::Context

::xowf::Context[i] create ... \
           [ -all_roles (default "false") ] \
           [ -current_state (default "[self]::initial") ] \
           [ -default_definition (default "") ] \
           [ -in_role in_role ] \
           [ -object object ] \
           [ -wf_container wf_container ] \
           [ -workflow_definition workflow_definition ]

Class Relations

  • class: ::xotcl::Class[i]
  • superclass: ::xotcl::Object[i]
::xotcl::Class create ::xowf::Context \
     -superclass ::xotcl::Object

Methods (to be applied on the object)

  • require (scripted)

     xowf::Context[i] require

    Partial Call Graph (max 5 caller/called nodes):
    %3 test_create_workflow_with_instance create_workflow_with_instance (test ) xowf::Context proc require xowf::Context proc require test_create_workflow_with_instance->xowf::Context proc require test_xowf xowf (test ) test_xowf->xowf::Context proc require

    Testcases:
    create_workflow_with_instance, xowf
    #
# Make sure, the context object for workflow '$obj exists. The
# flag "-new" can be used to make sure, a new and fresh context is
# available.
#
#:log "START-require"
#
set ctx $obj-wfctx
if {$new && [nsf::is object $ctx]} {
  $ctx destroy
}

if {![nsf::is object $ctx]} {
  set wfContextClass [$obj wf_property workflow_context_class [self]]

  regsub -all \r\n [$obj wf_property workflow_definition] \n workflow_definition
  $wfContextClass create $ctx  -object $obj  -destroy_on_cleanup  -workflow_definition $workflow_definition
  $ctx initialize_context $obj
}

#:log "END-require ctx <$ctx>"
return $ctx