Posted to tcl by colin at Tue Apr 05 14:15:52 GMT 2011view raw

  1. constructor {args} {
  2. set realm "Tub [self] Realm"
  3. set permissive 0
  4. set key user
  5. set cookie tub
  6. set emptypass 0
  7. variable {*}[Site var? Tub] ;# allow .ini file to modify defaults
  8.  
  9. dict for {n v} $args {
  10. set $n $v
  11. }
  12.  
  13. # create the data view
  14. if {[llength $view] > 1} {
  15. if {[llength $view]%2} {
  16. set view [View create {*}$view]
  17. } else {
  18. set view [View new {*}$view]
  19. }
  20. }