DBus binding for Tcl

list apply {{name info str} {if {$str eq $name} exit}} $name

Login

list apply {{name info str} {if {$str eq $name} exit}} $name