Class ::xowiki::includelet::chat (public)

 ::xowiki::IncludeletClass ::xowiki::includelet::chat

Defined in /var/www/openacs.org/packages/xowiki/tcl/includelet-procs.tcl

Include a chat in the current page

Testcases:

No testcase defined.

Source code:

namespace eval ::xowiki::includelet {}
::nsf::object::alloc ::xowiki::IncludeletClass ::xowiki::includelet::chat {set :__default_metaclass ::xotcl::Class
   set :__default_superclass ::xotcl::Object
   set :aggregating false
   set :cacheable false
   set :localized true
   set :personalized true}
::xowiki::includelet::chat instproc render {} {
    :get_parameters
    if {$chat_id eq ""} {
      # make the chat just for including page
      set chat_id [${:__including_page} item_id]
    }
    set chat_cmd [list  ::xowiki::Chat login  -chat_id $chat_id  -mode $mode  -path $path]
    # We don't want to override Chat class default with our own and
    # therefore we build the command dynamically depending if these
    # variables are there or not.
    set optional_vars [list login_messages_p logout_messages_p timewindow skin avatar_p]
    foreach var $optional_vars {
      if {[info exists $var]} {
        lappend chat_cmd -${var} [set $var]
      }
    }
    set r [{*}$chat_cmd]

    #ns_log notice chat=>$r

    return $r
  }
::xowiki::includelet::chat instparametercmd parameter_declaration
::nsf::relation::set ::xowiki::includelet::chat superclass ::xowiki::Includelet

::nx::slotObj -container slot ::xowiki::includelet::chat
::xowiki::includelet::chat::slot eval {set :__parameter {
        {parameter_declaration {
          {-title ""}
          {-chat_id ""}
          {-mode ""}
          {-path ""}
          -skin
          -login_messages_p
          -logout_messages_p
          -avatar_p
          -timewindow
        }}
      }}

::nsf::object::alloc ::xotcl::Attribute ::xowiki::includelet::chat::slot::parameter_declaration {set :accessor public
   set :configurable true
   set :convert false
   set :default {
          {-title ""}
          {-chat_id ""}
          {-mode ""}
          {-path ""}
          -skin
          -login_messages_p
          -logout_messages_p
          -avatar_p
          -timewindow
        }
   set :defaultmethods {}
   set :disposition alias
   set :domain ::xowiki::includelet::chat
   set :incremental 0
   set :manager ::xowiki::includelet::chat::slot::parameter_declaration
   set :methodname parameter_declaration
   set :multiplicity 1..1
   set :name parameter_declaration
   set :per-object false
   set :position 0
   set :required false
   set :substdefault 0b111
   set :trace none
   : init}

XQL Not present:

Generic, PostgreSQL, Oracle