16 lines
202 B
Plaintext
16 lines
202 B
Plaintext
|
(local lgi (require :lgi))
|
||
|
|
(local { : Gtk : Gdk : WebKit2 : cairo } lgi)
|
||
|
|
|
||
|
|
(fn invoke-command [command]
|
||
|
|
)
|
||
|
|
|
||
|
|
(set _G.invoke-commad invoke-command)
|
||
|
|
|
||
|
|
(local pane (require :pane))
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
(pane.new)
|
||
|
|
(Gtk.main)
|