#!/bin/wish

group .top -side top -anc W
group .top.s -side top -anc w
slider .top.s.s1 -side left -anchor N -width 20 -height 200 -cmd vol 
button .top.q -text "Quit" -cmd evQuit -side top -anc W
tktoplevel .top

set xy [wm sizeof .top]
# Stupid RIO wont size window below some magic figure
wm resize 0 0 100 300
wm resize  0 0 [index $xy 0] [index $xy 1]

set data [system grep master /dev/volume]
cfg [wm id .top.s.s1] -value [index $data 1]

proc vol { val but val} {
	store /dev/volume "master $val"
}
store /dev/label "Volume"
eventloop 1000