load_file("VarList.hoc")
objref p 
a = 5
p = new DoubleVar("a")
p.printf()

strdef s 
s = "bla"
objref p1 
p1 = new StringVar("s")
p1.printf()

objref vec
vec = new Vector(10)
vec.indgen()
objref p2
p2 = new VectorVar("vec")
p2.printf()

objref mat
mat = new Matrix(10,5)

objref null

objref l
l = new List()
l.append(vec)
l.append(mat)

objref pl
pl = new VarList()
b = 2
pl.appendDouble("a")
pl.appendDouble("b")
pl.appendString("s")
pl.appendSetDouble("c", 7.3846,"print c")
pl.appendSetString("y", "hello","print y")
pl.appendVector("vec")
pl.appendVector("null")
pl.appendMatrix("mat")
pl.appendVector("vec")                  // Duplicate; should replace previous
pl.appendList("l")  
pl.printf()

objref f
f = new FormatFile("test_VarList-out","hoc")
f.wopen()
pl.fprint(f)
pl.fprint_actions(f)
f.close()

f = new FormatFile("test_VarList-out","R")
f.wopen()
pl.fprint(f)
f.close()

f = new FormatFile("test_VarList-out-s","R", "s")
f.wopen()
pl.fprint(f)
f.close()

pl.printf_actions()
pl.execute_actions()

// pl.save()

xpanel("Parameters")
pl.xstatebutton("A variable","a")
pl.xvalue("Another variable","b")
xpanel()

xpanel("Parameters")
pl.xstatebutton("A variable","sdkh")
pl.xvalue("Another variable","b")
xpanel()