Posted to tcl by schelte at Sat Oct 30 11:53:13 GMT 2010view raw

  1. package require dbus-tcl
  2.  
  3. set id 0
  4. set timeout 4000
  5. set icon ""
  6. set s "Hello, World!"
  7.  
  8. dbus connect
  9. set id [dbus call -signature susssasa{sv}i -dest org.freedesktop.Notifications \
  10. /org/freedesktop/Notifications org.freedesktop.Notifications Notify \
  11. "Quod Libet" $id $icon "Now Playing" $s {} {} $timeout]