; ch_param
;
; change the parameters for the current project

dialogbox "change parameters" \
  "Peak displacement tolerances" message \
  "Tolerance for peak alignement" real tol_align $tol_align \
  noreturn "ppm" message \
  "Tolerance for finding peaks" real tol_click $tol_click \
  noreturn "ppm" message \
  separator \
  "Display parameters" message \
  sign enum "1,0,-1" ss $sign \
  "Number of levels" integer lv $level \
  *
sign $ss
level $lv
open parameters
fprint parameters ("set tol_align :="; $tol_align)
fprint parameters ("set tol_click :="; $tol_click)
fprint parameters ("sign"; $ss)
fprint parameters ("level"; $lv)
close parameters
