#!/bin/sh 
# \
exec wish "$0" "$@"

label .lab0 -text "CD infos"

frame .fram0 -relief groove -borderwidth 2

set list [ exec "pcd" "i" ]

label .fram0.lab1 -text "$list" -justify left

pack .fram0.lab1

button .but0 -text "Quit" -command { exit }

pack .lab0 .fram0 .but0

bind all <KeyPress> { exit }