---

Class ::xo::Attribute

::xo::Attribute create ... \
           [ -constraint_values constraint_values ] \
           [ -datatype:substdefault (default "text") ] \
           [ -help_text help_text ] \
           [ -multivalued multivalued ] \
           [ -pretty_name pretty_name ] \
           [ -pretty_plural:substdefault (default "") ] \
           [ -required:substdefault (default "false") ] \
           [ -spec spec ] \
           [ -substdefault substdefault ] \
           [ -validator validator ]

OpenACS specific attribute slot class, which can be further refined. Contains meta data based on the OpenACS meta-data conventions.

Defined in packages/xotcl-core/tcl/01-debug-procs.tcl

Class Relations

• class: ::xotcl::MetaSlot
• superclass: ::xotcl::Attribute
• subclass: ::xo::db::Attribute

::xotcl::MetaSlot create ::xo::Attribute \
     -superclass ::xotcl::Attribute

Methods (to be applied on instances)

• init (scripted, public)

   <instance of xo::Attribute> init

  Constructor of the OpenACS specific attribute slot class

  Testcases:

  No testcase defined.

  next
  # provide a default pretty name for the attribute based on message keys
  if {![info exists :pretty_name]} {
    set object_type ${:domain}
    if {[regexp {^::([^:]+)::} $object_type _ head]} {
      set tail [namespace tail $object_type]
      set :pretty_name "#$head.$tail-${:name}#"
      #:log "--created pretty_name = ${:pretty_name}"
    } else {
      error "Cannot determine automatically message key for pretty name.  Use namespaces for classes"
    }
  }

---