sig val format_value : ([> `scale ], float -> string) GtkSignal.t end