sig val umake : GrbGraphs.DG.t -> 'a -> (GrbGraphs.DG.t, string) GrbCommons.either val puttomenu : GrbUDraw.appmenutype list -> GrbUDraw.appmenutype list end