hasufell/cga
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix drawing area when other windows overlap

Browse Source
This commit is contained in:
hasufell 2014-10-02 20:57:49 +02:00
parent 0ab6a15d4e
commit e14805dcce
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Gtk.hs
View File

@ -79,7 +79,11 @@ onClickedDrawButton fcb da scale' = do
filename <- fileChooserGetFilename fcb filename <- fileChooserGetFilename fcb
case filename of case filename of
Just x -> do Just x -> do
cId <- onExpose da (\x' -> do
drawDiag' x da scale' drawDiag' x da scale'
return True)
drawDiag' x da scale'
_ <- on fcb fileActivated (signalDisconnect cId)
Nothing -> do Nothing -> do
showErrorDialog "No valid Mesh file!" showErrorDialog "No valid Mesh file!"