#!/bin/sh
#
# einfaches Beispiel zum Abspielen von MP3 oder OGG 
# mit Snack
# \
exec tclsh $0 $@

# Erweiterung des Suchpfads wenn notwendig
lappend auto_path /home/cz/Projekte/LinuxMagazin/XXVIII/snack2.2

# Anforderung von Tk und Snack Erweiterung
package require Tk
package require snack 

# Hauptfenster verbergen
wm withdraw .

# Datei wählen
set datei ""
while {[string length $datei] == 0} {
    set datei [ tk_getOpenFile -defaultextension mp3 \
		    -title "Musikdatei auswählen" \
		    -filetypes {{MP3 .mp3} { WAV .wav} {OGG .ogg} {Alles *}} ]

    if {! [ file exists $datei]}  {
	set antwort [tk_messageBox -icon error \
			 -message "Datei $file existiert nicht, Abbrechen ?" \
			 -title "Fehler" -type okcancel ]
	if {[string match cancel $antwort ]} {
	    exit ;# Abbrechen
	}
	set datei ""
    }
}
    
# Tonobjekt erzeugen
snack::sound ton

# ,mit Datei verbinden
ton configure -file $datei

# und abspielen
ton play -blocking false \
    -command "exit" ; # beendet Skript nach Ende der Wiedergabe

# Vorher Stoppen ?
set anhalten [ tk_messageBox -icon question -message "Anhalten ?" \
		   -type ok ]
ton stop


exit