3 set auto_path
[concat [list ..
] $auto_path]
5 package require TLC
0.45
9 namespace eval crypto
{
13 package require Authenticator
14 authenticator
::Authenticator auth
-ip localhost
-pbkey authenticator.pub
16 auth waitfor login_allowed
18 if {![auth login
"cyan@cf" "foo"]} {
19 if {![auth login
"user@cf" "user"]} {
20 puts stderr
"Cannot login: [auth last_login_message]"
25 set conn
[auth connect_svc
"test"]
27 tlc
::DSchan ds
-connector $conn -tag "testds"
28 tlc
::Datasource_filter dsf
-ds ::ds -filter {
29 [string range
$row(Foo
) 0 4] != "Only " ||
$row(Foo
) == "Only A"
32 tlc
::Datasource_filter dsf2
-ds ::ds -filter {
33 [string range
$row(Foo
) 0 4] != "Only " ||
$row(Foo
) == "Only B"
36 set tlc
::Baselog::classmap(::tlc::DSchan) 10
38 tlc
::Browse_tktreectrl .
list -datasource dsf
39 tlc
::Browse_tktreectrl .list2
-datasource dsf2
41 pack .
list .list2
-fill both
-expand true
-side left