-- * methods to create the local menus of the different nodetypes

titleNormal :: ValueTitle (String, t)
titleNormal = ValueTitle $ return . fst
titleNormal :: ValueTitle (String, t)
titleNormal = ValueTitle $ return . fst
titleNormal = ValueTitle $ return . fst