Element $+ html.Snippet("gui/snippets/input-combo", "name=disprad@element", "items=spy.disprad.element_list()", "value=GetVar('disprad_el','')", "onchange=setvar('disprad_el', html.GetValue('~name~'))>>html.Update()") $- Correct $+ html.Snippet("gui/snippets/input-checkbox", "name=disprad_on", "checked=spy.disprad.is_on(GetVar('disprad_el',''))", "onclick=spy.disprad.toggle(GetVar('disprad_el',''),html.GetState('~name~'))>>html.Update()") $- Terms $+ html.Snippet("gui/snippets/input-combo", "name=disprad@terms", "items=1;2;3;4", "value=spy.GetParam('snum.DispRadial.n_terms')", "onchange=spy.disprad.set_terms(html.GetValue('~name~'))>>html.Update()") $- Refine $+ html.Snippet("gui/snippets/input-checkbox", "name=disprad_refine", "checked=spy.GetParam('snum.DispRadial.refine')", "onclick=spy.disprad.set_refine(html.GetState('~name~'))>>html.Update()") $- $+ html.Snippet(GetVar(default_link), "value=Dispersion Plot", "name=DISPRAD_PLOT", "hint=The tabulated constants and the refined curves against sin(theta)/lambda", "onclick=spy.disprad.plot", "td1=" ) $- $+ html.Snippet(GetVar(default_link), "value=Report", "name=DISPRAD_REPORT", "hint=The coefficients and what they do to R, in the console", "onclick=spy.disprad.print_current", "td1=" ) $- $+ html.Snippet(GetVar(default_link), "value=Off", "name=DISPRAD_OFF", "hint=Switch the correction off and forget the coefficients", "onclick=spy.disprad.remove>>html.Update()", "td1=" ) $- $spy.disprad.coefficient_table()