Posted to tcl by schelte at Thu Dec 16 15:08:06 GMT 2010view pretty

#!/usr/bin/tclsh

load [file join [file dirname [info script]] libdbus-tcl1.0.so] dbustcl
dbus connect
puts [dbus info name]
vwait forever

# Next, run 'qdbus :1.579' or whatever dbus name is reported