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