Add TODO note

2014-10-09 03:10:52 +02:00
parent 1fd0b9f27f
commit f230738e08
1 changed files with 1 additions and 0 deletions
--- a/Gtk.hs
+++ b/Gtk.hs
@@ -146,6 +146,7 @@ onClickedDrawButton mygui = do
    Just x -> do
      cId <- onExpose (da mygui) (\_ -> drawDiag' x mygui >>=
                                        (\_ -> return True))
+      -- TODO: does not work properly
      _   <- on fcb fileActivated (signalDisconnect cId)
      ret <- drawDiag' x mygui
      case ret of