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