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!"