%3 ::xowiki::ObjectForm ::xowiki::ObjectForm edit_data edit_request init new_request ::xowiki::PlainWikiForm ::xowiki::PlainWikiForm tidy ::xowiki::ObjectForm->::xowiki::PlainWikiForm ::xowiki::WikiForm ::xowiki::WikiForm after_submit data_from_form edit_data edit_request mkFields new_data new_request on_submit tidy update_references ::xowiki::PlainWikiForm->::xowiki::WikiForm ::Generic::Form ::Generic::Form ::xowiki::WikiForm->::Generic::Form

Class ::xowiki::ObjectForm

::xowiki::ObjectForm[i] create ... \
           [ -f.text (default "= textarea,cols=80,rows=15") ] \
           [ -with_categories (default "false") ]

Class Relations

  • class: ::xotcl::Class[i]
  • superclass: ::xowiki::PlainWikiForm[i]
::xotcl::Class create ::xowiki::ObjectForm \
     -superclass ::xowiki::PlainWikiForm

Methods (to be applied on instances)

  • edit_data (scripted)

    [:data] initialize_loaded_object
    next
  • edit_request (scripted)

    #:f.name {{name:text {label #xowiki.Page-name#}}}
    permission::require_permission  -party_id [ad_conn user_id] -object_id [${:data} set parent_id]  -privilege "admin"
    next
  • f.text (setter)

  • init (scripted)

    if {[${:data} exists name]} {
      # don't call validate on the folder object, don't let people change its name
      set name [${:data} set name]
      if {$name eq "::[${:data} set parent_id]"} {
        :f.name  "= inform,help_text="
        :validate {{name {1} {dummy}} }
        #:log "--e don't validate folder id - parent_id = [${:data} set parent_id]"
      }
    }
    next
  • new_request (scripted)

    permission::require_permission  -party_id [ad_conn user_id] -object_id [${:data} set parent_id]  -privilege "admin"
    next
  • with_categories (setter)