38 lines
1.3 KiB
Plaintext
38 lines
1.3 KiB
Plaintext
|
(local { : Gtk : Gdk : WebKit2 : cairo } (require :lgi))
|
||
|
|
||
|
(fn new-pane []
|
||
|
(let [hpad 2
|
||
|
vpad 2
|
||
|
window (Gtk.Window {
|
||
|
:title "Dunlin"
|
||
|
:default_width 800
|
||
|
:default_height 720
|
||
|
:on_destroy Gtk.main_quit
|
||
|
})
|
||
|
container (Gtk.Box {
|
||
|
:orientation Gtk.Orientation.VERTICAL
|
||
|
})
|
||
|
commander (Gtk.Entry {
|
||
|
:on_activate
|
||
|
(fn [event]
|
||
|
(_G.invoke-command event.text))
|
||
|
})
|
||
|
progress-bar (Gtk.ProgressBar {
|
||
|
:orientation Gtk.Orientation.HORIZONTAL
|
||
|
:fraction 1.0
|
||
|
:margin 0
|
||
|
})
|
||
|
contentwidget (Gtk.Button {
|
||
|
:label "paceholder"
|
||
|
})
|
||
|
]
|
||
|
(doto container
|
||
|
(: :pack_start commander false false vpad)
|
||
|
(: :pack_start progress-bar false false vpad)
|
||
|
(: :pack_start contentwidget true true vpad))
|
||
|
(window:add container)
|
||
|
(window:show_all)
|
||
|
window))
|
||
|
|
||
|
{ :new new-pane }
|