xo::Attribute method init (public)

 <instance of xo::Attribute> init

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

Constructor of the OpenACS specific attribute slot class

Testcases:

No testcase defined.

Source code:

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"
  }
}

XQL Not present:

Generic, PostgreSQL, Oracle