1#!/bin/sh 2# the next line restarts using wish \ 3exec wish8.4 "$0" "$@" 4 5# 'info sharedlibext' returns '.dll' on Windows and '.so' on most Unix systems 6 7load libsquare[info sharedlibext] 8 9# Create a sound object 10 11snack::sound s 12 13# Set its length to 10000 samples 14 15s length 10000 16 17# Apply the command defined in the square package 18 19s square 20 21pack [button .b -text Play -command {s play}] 22