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

  1. #!/usr/bin/tclsh
  2.  
  3. load [file join [file dirname [info script]] libdbus-tcl1.0.so] dbustcl
  4. dbus connect
  5. puts [dbus info name]
  6. vwait forever
  7.  
  8. # Next, run 'qdbus :1.579' or whatever dbus name is reported