Show the current progress as a percent on the load progress bar, and make the UI more responsive by dispatching *all* events on each iteration.

1 files changed, 4 insertions, 1 deletions

diff --git a/tools/resolver-visualize/Main.hs b/tools/resolver-visualize/Main.hs
index 23f6ab79..d864c593 100755
--- a/tools/resolver-visualize/Main.hs
+++ b/tools/resolver-visualize/Main.hs
@@ -9,6 +9,7 @@ import Data.ByteString.Char8 as ByteString(ByteString, empty, readFile, unpack)
 import Graphics.UI.Gtk
 import Graphics.UI.Gtk.Glade
 import Graphics.UI.Gtk.SourceView
+import Numeric
 import System.Environment(getArgs)
 import System.Glib.MainLoop
 import System.Glib.Types
@@ -18,6 +19,7 @@ import qualified Data.Set as Set
 import Data.Tree
 import Resolver.Log
 import Resolver.Types
+import Resolver.Util
 import System.IO
 import System.Time
 
@@ -318,7 +320,8 @@ load fn = do loadedFile <- liftIO $ do (xml, win)  <- loadLoadingProgressXML
                                         Just time -> diffClockTimes currTime time >= updateInterval
                      shouldUpdate   = bigUpdate || longUpdate
                  when shouldUpdate (do progressBarSetFraction pb newf
-                                       mainContextIteration mainContextDefault False
+                                       progressBarSetText pb (showFFloat (Just 1) (100 * newf) "" ++ "%")
+                                       while (mainContextIteration mainContextDefault False) (return ()) ()
                                        return ())
 
 main :: IO ()