#!/bin/sh
# the next line restarts using wish \
exec wish "$0" "$@"

#- volume --
#-	Control audio volume in OpenBSD.
#-
# Copyright (c) 2008 Gordon D. Carrie
# All rights reserved
#
# $Revision: 1.5 $ $Date: 2009/09/25 21:33:12 $

proc adjust {v} {
    exec mixerctl outputs.master=${v},${v}
}

set outputs_master [exec mixerctl outputs.master]
if {[scan $outputs_master "outputs.master=%d" v] != 1} {
    error "Could not get current volume"
    exit 1
}

label .l -text "mixerctl
outputs.master"
scale .s -variable v -from 0 -to 250 -orient vertical \
        -tickinterval 100 -resolution 10 -length 120 -command adjust

button .close -text close -command exit

pack .l
pack .s -fill both -expand true
pack .close