From 10759bb88331141b1586c9e6fa6cf6ce1683b964 Mon Sep 17 00:00:00 2001
From: Joe Carstairs <me@joeac.net>
Date: Sun, 22 Dec 2024 19:30:35 +0000
Subject: Histogram

---
 schist_gtk4_gui/resources/resources.gresource.xml  |  1 +
 schist_gtk4_gui/resources/ui/balances_histogram.ui | 28 ++++++++++
 schist_gtk4_gui/resources/ui/balances_view.ui      |  6 +--
 schist_gtk4_gui/src/balances_histogram.rs          | 59 ++++++++++++++++++++++
 schist_gtk4_gui/src/balances_view.rs               | 12 ++++-
 schist_gtk4_gui/src/lib.rs                         |  1 +
 6 files changed, 100 insertions(+), 7 deletions(-)
 create mode 100644 schist_gtk4_gui/resources/ui/balances_histogram.ui
 create mode 100644 schist_gtk4_gui/src/balances_histogram.rs

diff --git a/schist_gtk4_gui/resources/resources.gresource.xml b/schist_gtk4_gui/resources/resources.gresource.xml
index 350a77d..c4b9e10 100644
--- a/schist_gtk4_gui/resources/resources.gresource.xml
+++ b/schist_gtk4_gui/resources/resources.gresource.xml
@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <gresources>
   <gresource prefix="/net/joeac/schist/">
+    <file compressed="true" preprocess="xml-stripblanks">ui/balances_histogram.ui</file>
     <file compressed="true" preprocess="xml-stripblanks">ui/balances_view.ui</file>
     <file compressed="true" preprocess="xml-stripblanks">ui/categories_view.ui</file>
     <file compressed="true" preprocess="xml-stripblanks">ui/category_transfers_view.ui</file>
diff --git a/schist_gtk4_gui/resources/ui/balances_histogram.ui b/schist_gtk4_gui/resources/ui/balances_histogram.ui
new file mode 100644
index 0000000..b6306b9
--- /dev/null
+++ b/schist_gtk4_gui/resources/ui/balances_histogram.ui
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<interface>
+    <template class="SchistBalancesHistogram" parent="GtkBox">
+        <child>
+            <object class="GtkListBox" id="balances_list">
+                <child>
+                    <object class="GtkListBoxRow">
+                        <child>
+                            <object class="GtkLabel">
+                                <property name="label">I am a balance</property>
+                            </object>
+                        </child>
+                    </object>
+                </child>
+
+                <child>
+                    <object class="GtkListBoxRow">
+                        <child>
+                            <object class="GtkLabel">
+                                <property name="label">I am another balance</property>
+                            </object>
+                        </child>
+                    </object>
+                </child>
+            </object>
+        </child>
+    </template>
+</interface>
diff --git a/schist_gtk4_gui/resources/ui/balances_view.ui b/schist_gtk4_gui/resources/ui/balances_view.ui
index 7c329f7..a8f7d7e 100644
--- a/schist_gtk4_gui/resources/ui/balances_view.ui
+++ b/schist_gtk4_gui/resources/ui/balances_view.ui
@@ -18,11 +18,7 @@
                         <property name="name">overview</property>
                         <property name="title">Overview</property>
                         <property name="child">
-                            <object class="GtkLabel">
-                                <property name="label">
-                                    Hello, balances overview!
-                                </property>
-                            </object>
+                            <object class="SchistBalancesHistogram" id="balances_histogram" />
                         </property>
                     </object>
                 </child>
diff --git a/schist_gtk4_gui/src/balances_histogram.rs b/schist_gtk4_gui/src/balances_histogram.rs
new file mode 100644
index 0000000..d258ae4
--- /dev/null
+++ b/schist_gtk4_gui/src/balances_histogram.rs
@@ -0,0 +1,59 @@
+use gtk::{
+    glib::{
+        self,
+        subclass::{
+            object::{ObjectImpl, ObjectImplExt},
+            types::ObjectSubclass,
+            InitializingObject,
+        },
+        Object,
+    },
+    subclass::{box_::BoxImpl, widget::{
+        CompositeTemplateClass, CompositeTemplateInitializingExt, WidgetClassExt, WidgetImpl,
+    }},
+    TemplateChild,
+};
+
+glib::wrapper! {
+    pub struct SchistBalancesHistogram(ObjectSubclass<SchistBalancesHistogramImpl>)
+        @extends gtk::Box, gtk::Widget,
+        @implements gtk::Accessible, gtk::Buildable, gtk::ConstraintTarget;
+}
+
+impl SchistBalancesHistogram {
+    pub fn new() -> Self {
+        Object::builder().build()
+    }
+}
+
+#[derive(gtk::CompositeTemplate, Default)]
+#[template(resource = "/net/joeac/schist/ui/balances_histogram.ui")]
+pub struct SchistBalancesHistogramImpl {
+    #[template_child]
+    balances_list: TemplateChild<gtk::ListBox>,
+}
+
+#[glib::object_subclass]
+impl ObjectSubclass for SchistBalancesHistogramImpl {
+    const NAME: &'static str = "SchistBalancesHistogram";
+    type Type = SchistBalancesHistogram;
+    type ParentType = gtk::Box;
+
+    fn class_init(klass: &mut Self::Class) {
+        klass.bind_template();
+    }
+
+    fn instance_init(obj: &InitializingObject<Self>) {
+        obj.init_template();
+    }
+}
+
+impl ObjectImpl for SchistBalancesHistogramImpl {
+    fn constructed(&self) {
+        self.parent_constructed();
+    }
+}
+
+impl WidgetImpl for SchistBalancesHistogramImpl {}
+
+impl BoxImpl for SchistBalancesHistogramImpl {}
diff --git a/schist_gtk4_gui/src/balances_view.rs b/schist_gtk4_gui/src/balances_view.rs
index 5afb192..28dfba1 100644
--- a/schist_gtk4_gui/src/balances_view.rs
+++ b/schist_gtk4_gui/src/balances_view.rs
@@ -10,10 +10,15 @@ use gtk::{
     },
     subclass::{
         box_::BoxImpl,
-        widget::{CompositeTemplateClass, CompositeTemplateInitializingExt, WidgetImpl},
+        widget::{
+            CompositeTemplateClass, CompositeTemplateInitializingExt, WidgetClassExt, WidgetImpl,
+        },
     },
+    TemplateChild,
 };
 
+use crate::balances_histogram::SchistBalancesHistogram;
+
 glib::wrapper! {
     pub struct SchistBalancesView(ObjectSubclass<SchistBalancesViewImpl>)
         @extends gtk::Box, gtk::Widget,
@@ -28,7 +33,10 @@ impl SchistBalancesView {
 
 #[derive(gtk::CompositeTemplate, Default)]
 #[template(resource = "/net/joeac/schist/ui/balances_view.ui")]
-pub struct SchistBalancesViewImpl {}
+pub struct SchistBalancesViewImpl {
+    #[template_child]
+    balances_histogram: TemplateChild<SchistBalancesHistogram>,
+}
 
 #[glib::object_subclass]
 impl ObjectSubclass for SchistBalancesViewImpl {
diff --git a/schist_gtk4_gui/src/lib.rs b/schist_gtk4_gui/src/lib.rs
index 10240b0..d418ba0 100644
--- a/schist_gtk4_gui/src/lib.rs
+++ b/schist_gtk4_gui/src/lib.rs
@@ -1,3 +1,4 @@
+mod balances_histogram;
 mod balances_view;
 mod categories_view;
 mod category_transfers_view;
-- 
cgit v1.2.3