destructUnitImage :: GTKUnit -> IO ()
destructUnitImage gunit = do
  let evbox = gunitEventBox gunit

  Gtk.widgetDestroy evbox


-- | Destroy gtk units's widgets
destructUnitImage :: GTKUnit -> IO ()
destructUnitImage gunit = do
  let evbox = gunitEventBox gunit

  Gtk.widgetDestroy evbox


-- | Destroy gtk units's widgets
destructUnitImage gunit = do
  let evbox = gunitEventBox gunit

  Gtk.widgetDestroy evbox


-- | Destroy gtk units's widgets