let button = annotation_window#annotation_hints.(buttonno) in
sig_ids :=
(button#connect#clicked
- (fun () -> (annotation_window#annotation : GEdit.text)#insert hint)
+ ~callback:(fun () -> (annotation_window#annotation : GEdit.text)#insert hint)
) :: !sig_ids ;
button#misc#show () ;
match button#children with