method on_button3_press x y =
      let entries = List.map
        (fun z ->
           let t = Printf.sprintf "%d%%" z in
           `I (t, fun () -> wcombo#entry#set_text t)
        )
          zooms
      in
      GToolbox.popup_menu ~entries ~button: 3 ~time: Int32.zero