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

delete some debugging prints

Browse Source
This commit is contained in:
Daniel Barlow 2022-02-11 23:32:56 +00:00
parent ee3ee99680
commit 7f9b1f1f34
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
crier/crier.fnl
View File

@ -88,7 +88,6 @@
(fn update-window [] (fn update-window []
(each [id widget (pairs notifications)] (each [id widget (pairs notifications)]
(print id (widget:get_parent))
(if (not (widget:get_parent)) (if (not (widget:get_parent))
(window.box:pack_start widget false false 5))) (window.box:pack_start widget false false 5)))
(if (next notifications) (if (next notifications)
@ -103,7 +102,6 @@
(fn delete-notification [id] (fn delete-notification [id]
(let [widget (. notifications id)] (let [widget (. notifications id)]
(tset notifications id nil) (tset notifications id nil)
(print "delete " id widget (inspect notifications))
(window.box:remove widget) (window.box:remove widget)
(update-window) (update-window)
)) ))
@ -139,7 +137,6 @@
(set body.label value)) (set body.label value))
:set-icon (fn [self value] :set-icon (fn [self value]
(when value (when value
(print value)
(icon:set_from_icon_name (icon:set_from_icon_name
value value
Gtk.IconSize.DND Gtk.IconSize.DND