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