1#!/bin/sh
2# the next line restarts using wish \
3exec wish8.4 "$0" "$@"
4
5package require -exact snack 2.2
6
7pack [canvas .c -width 400 -height 100]
8
9snack::sound s -load ex1.wav
10
11.c create waveform 0 0 -sound s -width 400
12
13pack [button .bClose -text Close -command exit]
14