saturn: prevent buttons from expanding vertically when few apps

On my phone there are only five apps installed, and FlowBox
stretches the buttons in weird ways unless told not to

Also delete unused local
phoen
Daniel Barlow 2022-01-18 20:20:34 +00:00
parent c4af9e0599
commit e822df5f17
1 changed files with 6 additions and 6 deletions

View File

@ -131,15 +131,15 @@
(lgi.GObject.Closure (fn [a] (print "get")))
(lgi.GObject.Closure (fn [a] (print "set"))))
(local grid-columns 4)
(let [grid (Gtk.FlowBox {
:column_spacing 2
:row_spacing 5
})
:orientation Gtk.Orientation.HORIZONTAL
:valign Gtk.Align.START
:column_spacing 2
:row_spacing 5
})
scrolled-window (Gtk.ScrolledWindow {})]
(each [_ app (pairs (all-apps))]
(grid:insert (button-for app) -1))
(grid:insert (button-for app) -1))
(scrolled-window:add grid)
(window:add scrolled-window))