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

# Copyright 1996

# Authors

# Lakshmi Sastry
# Computing and Information Systems Department
# Rutherford Appleton Laboratory, Chilton, Didcot. OX11 0QX
# lakshmi.sastry@rl.ac.uk

#                         and

# Venkat VSS Sastry
# Department of Applied Mathematics and Operational Research
# Cranfield University, RMCS Shrivenham, Swindon, SN6 8LA
# sastry@rmcs.cran.ac.uk

# Permission to use, copy, modify, and distribute this
# software and its documentation for any purpose and without
# fee is hereby granted, provided that this copyright
# notice appears in all copies.
  
# The authors, RAL, RMCS Shrivenham, Cranfield University and AGOCG
# make no representations about the suitability of this
# software for any purpose.  It is provided "as is" without
# express or implied warranty. Likewise they accept no responsibility
# whatsoever for any public domain software modules used (which are
# hereby acknowledged) in this software 




global aList vList
set aList {}
set vList {}
set maxl 0

frame .rc -bd 2
wm title . "Resources"
pack .rc
button .rc.b -text "Press Me to Quit"  -command {exit}
pack .rc.b
# printout all attribute-value pairs
set maxl 0
set b [.rc.b config]            ;# obtain default settings


foreach e $b {
	lappend aList [lindex $e 0]
	lappend vList [lindex $e 4]
	set a [lindex $e 0]
	if { [string length $a] > $maxl } {
		set maxl [string length $a]
		}
}
set aList
set vList
set i 0
frame .rc.fff -height 40 

pack .rc.fff
foreach a $aList {
	set ff [frame .rc.fff.sub$i]
	pack $ff
	label $ff.lab -text $a -width $maxl -anchor e
	entry $ff.ent
	bind $ff.ent <Return> [list reJig .rc.b $a]
	$ff.ent insert 0 [lindex $vList $i]
	pack $ff.lab $ff.ent -side left -in $ff
	incr i
	}


proc reJig { w a} {
	 global aList vList
	 ;# get current value for a
	 set idx [lsearch $aList $a]
	 set va [.rc.fff.sub$idx.ent get]
	 .rc.b config $a $va
	}