method menus : (string * GToolbox.menu_entry list) list =
let com com () =
Cam_commands.eval_command (Printf.sprintf "%s_%s" Ed_tdl_rc.factory_name com)
in
[
"Todo",
[
`I ("Add item", com "add_item") ;
`I ("Add group", com "add_group") ;
`I ("Edit selected", com "edit_selected") ;
]
]