method
save = gui
#
on_current (
fun
fb
->
fb
#
save ()) ()