GTK: add statusBar

No text yet. Probably needs to be reflected in mygui or myview state.

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>

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