library(gmkin)

app <- gmkin(script = "~/git/gmkin/inst/GUI/gmkin.R")
s <- gmkin:::get_current_session(app)

s$show_fit_option_widgets(TRUE)
s$f.run$call_Ext("enable")

names(s)
s$ftmp$reweight.max.iter
s$ftmp$maxit
names(s$ftmp)

s$ws$ftmp$maxit
s$f.run$call_Ext("enable")
s$f.gg.parms[,]
s$show_fit_option_widgets
svalue(s$f.gg.opts.reweight.tol) <-
svalue(s$f.gg.opts.error_model)
svalue(s$f.gg.opts.error_model_algorithm)
visible(s$f.gg.opts.g) <- TRUE