icon for back button

This commit is contained in:
Daniel Barlow 2022-02-05 12:45:50 +00:00
parent ade0eb8f8b
commit c27d1be1be

View File

@ -29,16 +29,18 @@
(.. self.title " - Just browsing")) (.. self.title " - Just browsing"))
)) ))
}) })
back (Gtk.Button { back (doto
:label "<-" (Gtk.Button {
:on_clicked (fn [s] ;; :label "<-"
(if (webview:can_go_back) :on_clicked (fn [s]
(webview:go_back))) (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 back false false 5) (nav-bar:pack_start url true true 2)
(nav-bar:pack_start url true true 5)
(container:pack_start nav-bar false false 5) (container:pack_start nav-bar false false 5)
(container:pack_start webview true true 5) (container:pack_start webview true true 5)