2022-12-19 18:19:13 +00:00
|
|
|
(local lgi (require :lgi))
|
|
|
|
|
(local { : Gtk : Gdk : WebKit2 : cairo } lgi)
|
|
|
|
|
|
2022-12-19 18:48:51 +00:00
|
|
|
(local frame (require :frame))
|
2022-12-20 10:34:37 +00:00
|
|
|
(local buffer (require :buffer))
|
2022-12-19 18:19:13 +00:00
|
|
|
|
2022-12-20 10:34:37 +00:00
|
|
|
(let [f (frame.new)
|
|
|
|
|
b (buffer.new "main")]
|
|
|
|
|
(f:show-buffer b)
|
|
|
|
|
(b:visit "file:///home/dan/src/dunlin/doc/index.html"))
|
2022-12-19 18:19:13 +00:00
|
|
|
|
|
|
|
|
(Gtk.main)
|
