From ccc2f6f3319b5cc3a92941fb0e570d4bdc7f217b Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@hasufell.de>
Date: Mon, 28 Dec 2015 03:20:29 +0100
Subject: [PATCH] GTK: clear the Statusbar before pushing to it

Since we only show the most recent operationBuffer we only want
one item on the stack.
---
 src/GUI/Gtk/Callbacks.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/GUI/Gtk/Callbacks.hs b/src/GUI/Gtk/Callbacks.hs
index 739dac6..33272d1 100644
--- a/src/GUI/Gtk/Callbacks.hs
+++ b/src/GUI/Gtk/Callbacks.hs
@@ -244,6 +244,7 @@ moveInit :: [Row] -> MyGUI -> MyView -> IO ()
 moveInit [row] mygui myview = do
   writeTVarIO (operationBuffer myview) (FMove . MP1 $ row)
   let sbmsg = "Move buffer: " ++ fullPath row
+  popStatusbar mygui
   void $ pushStatusBar mygui sbmsg
 moveInit _ _ _ = withErrorDialog
                    . throw $ InvalidOperation
@@ -258,6 +259,7 @@ copyInit :: [Row] -> MyGUI -> MyView -> IO ()
 copyInit [row] mygui myview = do
   writeTVarIO (operationBuffer myview) (FCopy . CP1 $ row)
   let sbmsg = "Copy buffer: " ++ fullPath row
+  popStatusbar mygui
   void $ pushStatusBar mygui sbmsg
 copyInit _ _ _ = withErrorDialog
                    . throw $ InvalidOperation