---

Class ::xo::ical::VCALENDAR

::xo::ical::VCALENDAR create ... \
           [ -method method ] \
           [ -prodid prodid ] \
           [ -version version ]

Class Relations

• class: ::xotcl::Class
• superclass: ::xotcl::Object

::xotcl::Class create ::xo::ical::VCALENDAR \
     -superclass ::xotcl::Object

Methods (to be applied on instances)

• as_ical (scripted)

  if {[info exists :prodid]}  {set prodid  "PRODID:[:prodid]\n"} {set prodid ""}
  if {[info exists :method]}  {set method  "METHOD:[string toupper [:method]]\n"} {set method ""}
  if {[info exists :version]} {set version "VERSION:[:version]\n"} {set version "VERSION:2.0\n"}
  set t ""
  append t "BEGIN:VCALENDAR\n" $prodid $version $method
  foreach i [:children] {
    append t [$i as_ical]
  }
  append t "END:VCALENDAR\n"
  return $t

• method (setter)

• prodid (setter)

• version (setter)

---