#!/usr/bin/wish
#
# A SMALL DEMONSTRATION SCRIPT FOR THE ADVANTECH PCL726 DEVICE DRIVER
#
# written by Norman Feske

proc set_da_channel {channel {value 0}} {
#  set fh [open "/dev/pcl_da$channel" "r+"]
#  puts $fh $value
#  catch {close $fh}  
}

label .title -text "Advantch PCL726 control pannel" -font -*-*-*-*-*-*-18-*-*-*-*-*-*-*
label .credits -text "written by Norman Feske in 2001" -font -*-*-medium-*-*-*-12-*-*-*-*-*-*-*

set bgcols {#d7d7c0 #d7d7c7 #d7d7d0 #d7d7d7 #d7d7e0 #d7d7e7}
set fgcols {#c7c7b0 #c7c7b7 #c7c7c0 #c7c7c7 #c7c7d0 #c7c7d7}

frame .sf -relief raised -borderwidth 2
foreach channel {0 1 2 3 4 5} {
  set da_$channel 2048
  label .sf.l$channel -text "Channel $channel"
  scale .sf.da$channel -orient vertical \
                       -from 4095 -to 0 \
	               -variable da_$channel \
	               -command "set_da_channel $channel" \
		       -length 200 \
		       -relief sunken \
		       -borderwidth 1 \
		       -bg [lindex $bgcols $channel] \
		       -troughcolor [lindex $fgcols $channel]
  grid .sf.l$channel -row 0 -column $channel
  grid .sf.da$channel -row 1 -column $channel -sticky ns -pady 5
  grid columnconfigure .sf $channel -weight 1	      
}
  grid rowconfigure .sf 1 -weight 1	      

frame .bf
pack [button .bf.exit -text "Exit" -command exit] -side left -pady 5

pack .title .credits -side top
pack .sf -side top -expand yes -fill both
pack .bf -side bottom
