Fix drawing area when other windows overlap

2014-10-02 20:57:49 +02:00 · 2014-10-02 20:57:49 +02:00 · e14805dcce
parent 0ab6a15d4e
commit e14805dcce
1 changed files with 4 additions and 0 deletions
--- 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!"