dan/eufon
1
0
Fork 0
Code Issues Pull Requests Releases Activity

label size tracks image size

Browse Source
This commit is contained in:
Daniel Barlow 2022-03-21 20:46:26 +00:00
parent 772da57476
commit 0eb694f511
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
saturn/main.fnl
View File

@ -240,20 +240,20 @@
(-> (: :get_style_context) (: :add_class "appbutton")) (-> (: :get_style_context) (: :add_class "appbutton"))
(: :add (: :add
(doto (Gtk.Box {:orientation Gtk.Orientation.VERTICAL}) (doto (Gtk.Box {:orientation Gtk.Orientation.VERTICAL})
(: :add app.IconImage) (: :pack_start app.IconImage false false 0)
(: :add (doto (: :pack_start
(Gtk.Label { (doto
:label app.Name (Gtk.Label {
:halign Gtk.Align.CENTER ;; https://stackoverflow.com/questions/27462926/how-to-set-max-width-of-gtklabel-properly
:justify Gtk.Justification.CENTER :label app.Name
:wrap true :justify Gtk.Justification.CENTER
}) :ellipsize Pango.EllipsizeMode.END
(: :set_line_wrap true) :hexpand true
(: :set_max_width_chars 10) })
(tset :expand false))) (: :set_max_width_chars 1))
true true 0)
)))) ))))
(fn handle-dbus-method-call [conn sender path interface method params invocation] (fn handle-dbus-method-call [conn sender path interface method params invocation]
(when (and (= path dbus-service-attrs.path) (when (and (= path dbus-service-attrs.path)
(= interface dbus-service-attrs.interface)) (= interface dbus-service-attrs.interface))