From e4f59f50abeb9c5b0bf52f2deeedaff7bb8a7a35 Mon Sep 17 00:00:00 2001 From: "Robert C. Martin" Date: Tue, 7 Feb 2023 15:49:45 -0600 Subject: [PATCH] mukadr's fix for "JTree" showing up as the root object in some platforms. --- src/more_speech/config.clj | 2 +- src/more_speech/ui/swing/article_tree.clj | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/src/more_speech/config.clj b/src/more_speech/config.clj index 78c0948..2f64f59 100644 --- a/src/more_speech/config.clj +++ b/src/more_speech/config.clj @@ -9,7 +9,7 @@ (def article-width 120) -(def days-to-read 0.5) ;how far back in time to load old messages from the database. +(def days-to-read 1) ;how far back in time to load old messages from the database. (def read-contact-lists-days-ago 0.5) (def migration-level 10) diff --git a/src/more_speech/ui/swing/article_tree.clj b/src/more_speech/ui/swing/article_tree.clj index 240ff24..059e9d3 100644 --- a/src/more_speech/ui/swing/article_tree.clj +++ b/src/more_speech/ui/swing/article_tree.clj @@ -114,6 +114,7 @@ (text! widget "Articles") (let [node (:value info) event-id (.getUserObject node) + event-id (if (number? event-id) event-id 0) ;dummy event-idi event (gateway/get-event (get-db) event-id) read? (:read event) font (if read? (uconfig/get-default-font) (uconfig/get-bold-font))