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