update url bar when links clicked
This commit is contained in:
parent
a137495482
commit
4c94b2164b
@ -4,7 +4,7 @@
|
||||
(local Gtk lgi.Gtk)
|
||||
(local WebKit2 lgi.WebKit2)
|
||||
|
||||
(let [current-url "about:blank"
|
||||
(let [current-url "https://terse.telent.net"
|
||||
window (Gtk.Window {
|
||||
:title "Just browsing"
|
||||
:default_width 800
|
||||
@ -17,11 +17,18 @@
|
||||
nav-bar (Gtk.Box {
|
||||
:orientation Gtk.Orientation.HORIZONTAL
|
||||
})
|
||||
webview (WebKit2.WebView)
|
||||
url (doto (Gtk.Entry) (: :set_text current-url))
|
||||
webview (WebKit2.WebView {
|
||||
:on_notify
|
||||
(fn [self pspec c]
|
||||
(if (= pspec.name "uri")
|
||||
(url:set_text self.uri)
|
||||
))
|
||||
})
|
||||
back (Gtk.Button {
|
||||
:label "<-"
|
||||
})
|
||||
url (doto (Gtk.Entry) (: :set_text current-url))]
|
||||
})]
|
||||
|
||||
|
||||
(nav-bar:pack_start back false false 5)
|
||||
(nav-bar:pack_start url true true 5)
|
||||
@ -29,7 +36,6 @@
|
||||
(container:pack_start nav-bar false false 5)
|
||||
(container:pack_start webview true true 5)
|
||||
|
||||
|
||||
(webview:load_uri current-url)
|
||||
|
||||
(window:add container)
|
||||
|
Loading…
Reference in New Issue
Block a user