icon for back button
This commit is contained in:
parent
ade0eb8f8b
commit
c27d1be1be
@ -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)
|
||||||
|
Loading…
Reference in New Issue
Block a user