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

package require dbus-tcl

set id 0
set timeout 4000
set icon ""
set s "Hello, World!"

dbus connect
set id [dbus call -signature susssasa{sv}i -dest org.freedesktop.Notifications \
  /org/freedesktop/Notifications org.freedesktop.Notifications Notify \
  "Quod Libet" $id $icon "Now Playing" $s {} {} $timeout]