-- | Returns the close-function
createClose :: GInfo -> IO Bool
createClose gi = do
   let oGrRef = openGraphs gi
   updateWindowCount gi pred
   oGraphs <- readIORef oGrRef
   writeIORef oGrRef $ Map.delete (libName gi) oGraphs
   return True

-- | Creates the global menu
createClose :: GInfo -> IO Bool
createClose gi = do
   let oGrRef = openGraphs gi
   updateWindowCount gi pred
   oGraphs <- readIORef oGrRef
   writeIORef oGrRef $ Map.delete (libName gi) oGraphs
   return True

-- | Creates the global menu
createClose gi = do
   let oGrRef = openGraphs gi
   updateWindowCount gi pred
   oGraphs <- readIORef oGrRef
   writeIORef oGrRef $ Map.delete (libName gi) oGraphs
   return True

-- | Creates the global menu