From c27d1be1be5acf26fd5ca665c86bec58b0bf76a2 Mon Sep 17 00:00:00 2001 From: Daniel Barlow Date: Sat, 5 Feb 2022 12:45:50 +0000 Subject: [PATCH] icon for back button --- just/just.fnl | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/just/just.fnl b/just/just.fnl index b6ba4b2..4eead55 100644 --- 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))) - })] + 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 5) - (nav-bar:pack_start url true true 5) + (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)