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

Add TODO note

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

1
Gtk.hs
View File

@ -146,6 +146,7 @@ onClickedDrawButton mygui = do
Just x -> do Just x -> do
cId <- onExpose (da mygui) (\_ -> drawDiag' x mygui >>= cId <- onExpose (da mygui) (\_ -> drawDiag' x mygui >>=
(\_ -> return True)) (\_ -> return True))
-- TODO: does not work properly
_ <- on fcb fileActivated (signalDisconnect cId) _ <- on fcb fileActivated (signalDisconnect cId)
ret <- drawDiag' x mygui ret <- drawDiag' x mygui
case ret of case ret of