Destroy the progress bar window after the file is loaded.

1 files changed, 1 insertions, 0 deletions

diff --git a/tools/resolver-visualize/Main.hs b/tools/resolver-visualize/Main.hs
index 650b6905..4b882496 100755
--- a/tools/resolver-visualize/Main.hs
+++ b/tools/resolver-visualize/Main.hs
@@ -298,6 +298,7 @@ load fn = do loadedFile <- liftIO $ do (xml, win)  <- loadLoadingProgressXML
                                        h   <- openFile fn ReadMode
                                        lastTime <- newIORef Nothing
                                        log <- loadLogFile h fn (showProgress progressBar lastTime)
+                                       widgetDestroy win
                                        return log
              (xml, ctx) <- newMainWindow
              liftIO $ runVis (setLog loadedFile) ctx