---

Class ::xowiki::ObjectForm

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

Class Relations

• class: ::xotcl::Class
• superclass: ::xowiki::PlainWikiForm

::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)

---