From e14805dccecff26174cdd5b8ad08ce7b7147d0d0 Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@hasufell.de>
Date: Thu, 2 Oct 2014 20:57:49 +0200
Subject: [PATCH] Fix drawing area when other windows overlap

---
 Gtk.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Gtk.hs b/Gtk.hs
index 780266d..7307b0b 100644
--- a/Gtk.hs
+++ b/Gtk.hs
@@ -79,7 +79,11 @@ onClickedDrawButton fcb da scale' = do
   filename <- fileChooserGetFilename fcb
   case filename of
     Just x -> do
+      cId <- onExpose da (\x' -> do
+                          drawDiag' x da scale'
+                          return True)
       drawDiag' x da scale'
+      _ <- on fcb fileActivated (signalDisconnect cId)
     Nothing -> do
       showErrorDialog "No valid Mesh file!"