[WJG] (17/03/11) I don't like bloatware. I like things simple, like me. The media players that ship with our Distros are just too complicated and well, annoying. I wanted to listen to my favourite audio tracks whilst working this morning and was so fed up of fiddling with apps that I thought - it's always easier to to it Tcl! So, seeing as Gnocl has its own built-in audio playback functionality I thought: "Lets build a custom jukebox". So, here it is. ====== #--------------- # playOGG.tcl #--------------- #!/bin/sh #\ exec tclsh "$0" "$@" package require Gnocl set box [gnocl::box -orientation vertical] set i 0 foreach track [lsort [glob *.ogg]] { set b($i) [gnocl::button \ -icon %#Cdrom \ -text $track \ -onClicked "gnocl::sound \"$track\""] $box add $b($i) incr i } gnocl::window -child $box gnocl::mainLoop ======