#!/home/paul/bin/kaptain start "Play Message" -> descr msglist; descr :horizontal -> title pic; title -> @text ("Phone Message player."); pic -> @icon("/usr/share/icons/large/kvoice.xpm"); msglist :framed :horizontal -> msg buttons; msg -> @list(`ls /var/spool/voice/incoming`); buttons -> play close; play -> @action(play_rmd)="Play"; close -> @close="Dismiss"; play_rmd -> "rmdtopvf /var/spool/voice/incoming/"msg" | pvftowav | play -t wav - ";