diff --git a/data/Gtk/builder.xml b/data/Gtk/builder.xml
index 5ac6548..73c2613 100644
--- a/data/Gtk/builder.xml
+++ b/data/Gtk/builder.xml
@@ -182,6 +182,25 @@
2
+
+
+
+ False
+ True
+ 3
+
+
diff --git a/src/GUI/Gtk/Gui.hs b/src/GUI/Gtk/Gui.hs
index 749777e..55a7e4c 100644
--- a/src/GUI/Gtk/Gui.hs
+++ b/src/GUI/Gtk/Gui.hs
@@ -105,6 +105,7 @@ data MyGUI = MkMyGUI {
, menubarFileDelete :: ImageMenuItem
, menubarHelpAbout :: ImageMenuItem
, urlBar :: Entry
+ , statusBar :: Statusbar
-- |tree view
, treeView :: TreeView
-- |first column
@@ -297,6 +298,14 @@ updateTreeView mygui myview = do
dirtreePix (Failed {}) = errorPix mygui
+pushStatusBar :: MyGUI -> String -> IO (ContextId, MessageId)
+pushStatusBar mygui str = do
+ let sb = statusBar mygui
+ cid <- statusbarGetContextId sb "FM Status"
+ mid <- statusbarPush sb cid str
+ return (cid, mid)
+
+
-- |Pops up an error Dialog with the given String.
showErrorDialog :: String -> IO ()
showErrorDialog str = do
@@ -355,7 +364,10 @@ startMainWindow = do
"menubarFileDelete"
menubarHelpAbout <- builderGetObject builder castToImageMenuItem
"menubarHelpAbout"
- urlBar <- builderGetObject builder castToEntry "urlBar"
+ urlBar <- builderGetObject builder castToEntry
+ "urlBar"
+ statusBar <- builderGetObject builder castToStatusbar
+ "statusBar"
-- create initial list store model with unsorted data
rawModel <- newTVarIO =<< listStoreNew . goAllDown =<< readTVarIO fsState