Posted to tcl by colin at Tue Apr 05 14:15:52 GMT 2011view raw
- 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]
- }
- }