Merge pull request #1247 from jamesdbrock/replaceOutput

replaceOutput runs without flickering the GUI

ihaskell-display/ihaskell-widgets/src/IHaskell/Display/Widgets.hs

@@ -77,4 +77,6 @@ import           IHaskell.Display.Widgets.Common as X
 import           IHaskell.Display.Widgets.Types as X (setField, getField, properties, triggerDisplay,
                                                       triggerChange, triggerClick, triggerSelection,
                                                       triggerSubmit, ChildWidget(..), StyleWidget(..),
-                                                      WidgetFieldPair(..), Date(..), unlink, JSONByteString(..))
+                                                      WidgetFieldPair(..), Date(..), unlink,
+                                                      JSONByteString(..), OutputMsg(..))
+

ihaskell-display/ihaskell-widgets/src/IHaskell/Display/Widgets/Output.hs

@@ -107,8 +107,8 @@ clearOutput_ widget = widgetClearOutput True >> clearOutput' widget
 -- | Replace the currently displayed output for output widget
 replaceOutput :: IHaskellDisplay a => OutputWidget -> a -> IO ()
 replaceOutput widget d = do
-    clearOutput_ widget
-    appendDisplay widget d
+    disp <- display d
+    setField widget Outputs [OutputData disp]
 
 instance IHaskellWidget OutputWidget where
   getCommUUID = uuid