Posted to tcl by schelte at Thu Dec 16 15:08:06 GMT 2010view raw
- #!/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