51 lines
1.8 KiB
Fennel
51 lines
1.8 KiB
Fennel
(local { : Gtk : Gdk : WebKit2 : cairo } (require :lgi))
|
|
|
|
(local Listeners (require :listeners))
|
|
|
|
{
|
|
:new
|
|
#(let [listeners (Listeners.new)
|
|
relay-events []
|
|
widget (Gtk.Notebook {
|
|
:show_tabs false
|
|
;;# :on_switch_page
|
|
})
|
|
views {}]
|
|
(var foreground-view nil)
|
|
{
|
|
:listen (fn [_ name fun]
|
|
(if (not (. relay-events name))
|
|
(each [_ v (pairs views)]
|
|
(v:listen name #(if (= v foreground-view)
|
|
(listeners:notify name $1)))))
|
|
(table.insert relay-events name)
|
|
(listeners:add name fun))
|
|
|
|
:widget widget
|
|
|
|
:add-view (fn [self webview]
|
|
(set foreground-view webview)
|
|
(webview.widget:show)
|
|
(each [_ event-name (ipairs relay-events)]
|
|
(webview:listen event-name
|
|
#(listeners:notify event-name $1)))
|
|
(let [page (widget:append_page webview.widget)]
|
|
(tset views page webview)
|
|
(set widget.page page)
|
|
page))
|
|
|
|
:focus (fn [_ page]
|
|
(let [view (. views page)]
|
|
(set foreground-view view)
|
|
(each [_ prop (ipairs relay-events)]
|
|
(listeners:notify :uri (. view.properties prop)))
|
|
(set widget.page page)))
|
|
|
|
:visit #(and foreground-view (foreground-view:visit $2))
|
|
:stop-loading #(and foreground-view
|
|
(foreground-view:stop-loading))
|
|
:refresh #(and foreground-view (foreground-view:refresh))
|
|
:go-back #(and foreground-view (foreground-view:go-back))
|
|
}
|
|
)}
|