examples/test_dschan.tcl

   1 #!/usr/bin/tclsh
   2
   3 set auto_path   [concat [list ..] $auto_path]
   4
   5 package require TLC 0.45
   6
   7 wm withdraw .
   8
   9 namespace eval crypto {
  10         variable devmode        1
  11 }
  12
  13 package require Authenticator
  14 authenticator::Authenticator auth -ip localhost -pbkey authenticator.pub
  15
  16 auth waitfor login_allowed
  17
  18 if {![auth login "cyan@nett" "foo"]} {
  19         if {![auth login "user@cf" "user"]} {
  20                 puts stderr "Cannot login: [auth last_login_message]"
  21                 exit -1
  22         }
  23 }
  24
  25 set conn        [auth connect_svc "test"]
  26
  27 tlc::DSchan ds -connector $conn -tag "testds"
  28 tlc::Datasource_filter dsf -ds ::ds
  29
  30 set tlc::Baselog::classmap(::tlc::DSchan)       10
  31
  32 tlc::Browse_tktreectrl .list -datasource dsf
  33
  34 pack .list -fill both -expand true
  35
  36 wm deiconify .