Posted to tcl by colin at Tue Apr 05 14:15:52 GMT 2011view pretty
constructor {args} { set realm "Tub [self] Realm" set permissive 0 set key user set cookie tub set emptypass 0 variable {*}[Site var? Tub] ;# allow .ini file to modify defaults dict for {n v} $args { set $n $v } # create the data view if {[llength $view] > 1} { if {[llength $view]%2} { set view [View create {*}$view] } else { set view [View new {*}$view] } }