From 0f1301622b10cd8c4c3ff8301e12b1cfa95d0098 Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@hasufell.de>
Date: Thu, 17 Dec 2015 14:47:30 +0100
Subject: [PATCH] GTK: add statusBar

No text yet. Probably needs to be reflected in mygui or myview state.
---
 data/Gtk/builder.xml | 19 +++++++++++++++++++
 src/GUI/Gtk/Gui.hs   | 14 +++++++++++++-
 2 files changed, 32 insertions(+), 1 deletion(-)

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 @@
             <property name="position">2</property>
           </packing>
         </child>
+        <child>
+          <object class="GtkStatusbar" id="statusBar">
+            <property name="visible">True</property>
+            <property name="can_focus">False</property>
+            <property name="margin_left">10</property>
+            <property name="margin_right">10</property>
+            <property name="margin_start">10</property>
+            <property name="margin_end">10</property>
+            <property name="margin_top">6</property>
+            <property name="margin_bottom">6</property>
+            <property name="orientation">vertical</property>
+            <property name="spacing">2</property>
+          </object>
+          <packing>
+            <property name="expand">False</property>
+            <property name="fill">True</property>
+            <property name="position">3</property>
+          </packing>
+        </child>
       </object>
     </child>
   </object>
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