eufon

commit c27d1be1be5acf26fd5ca665c86bec58b0bf76a2
parent ade0eb8f8bf03290dc46687cf62b2c3bb1c4826f
Author: Daniel Barlow <dan@telent.net>
Date:   Sat,  5 Feb 2022 12:45:50 +0000

icon for back button

Diffstat:
M
just/just.fnl
 | 
22
++++++++++++----------

1 file changed, 12 insertions(+), 10 deletions(-)
diff --git a/just/just.fnl b/just/just.fnl
@@ -29,16 +29,18 @@
                                        (.. self.title " - Just browsing"))
                                       ))
                                 })
-      back (Gtk.Button {
-                        :label "<-"
-                        :on_clicked (fn [s]
-                                      (if (webview:can_go_back)
-                                          (webview:go_back)))
-                        })]
-
-
-  (nav-bar:pack_start back false false 5)
-  (nav-bar:pack_start url  true true 5)
+      back (doto
+               (Gtk.Button {
+;;                            :label "<-"
+                            :on_clicked (fn [s]
+                                          (if (webview:can_go_back)
+                                              (webview:go_back)))
+                            })
+             (: :set_image
+                (Gtk.Image.new_from_icon_name "go-previous"  Gtk.IconSize.LARGE_TOOLBAR)))]
+
+  (nav-bar:pack_start back false false 2)
+  (nav-bar:pack_start url  true true 2)
 
   (container:pack_start nav-bar false false 5)
   (container:pack_start webview true true 5)