gui, fixes tall messages that get truncated.

ogri-la · Mar 4, 2023 · 7716a95 · 7716a95
1 parent b660555
commit 7716a95
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 5 deletions.
diff --git a/TODO.md b/TODO.md
@@ -11,6 +11,9 @@ see CHANGELOG.md for a more formal list of changes by release
     - embedded an older, smaller, lighter fontawesome and switched the glyphs
     - done
 
+* log pane, bug, the text 'catalogue' is being truncated in multi-line messages
+    - see screenshot Screenshot at 2022-09-24 08-56-35.png
+
 ## todo
 
 * add support for cloning git repositories
@@ -30,9 +33,6 @@ see CHANGELOG.md for a more formal list of changes by release
         - just the files are cloned to a directory
 
 
-* log pane, bug, the text 'catalogue' is being truncated in multi-line messages
-    - see screenshot Screenshot at 2022-09-24 08-56-35.png
-
 * dark theme, 'wow' column text is black on black for some reason
 
 ## todo bucket (no particular order)

diff --git a/src/strongbox/jfx.clj b/src/strongbox/jfx.clj
@@ -472,7 +472,10 @@
                  {:-fx-alignment "center"}
 
                  "#message.column-header .label"
-                 {:-fx-alignment "center-left"}}
+                 {:-fx-alignment "center-left"}
+
+                 ".table-row-cell .message-text"
+                 {:-fx-fill "-fx-text-background-color"}}
 
                ;;
                ;; notice-logger-nav
@@ -1791,7 +1794,13 @@
         column-list [{:id "source" :text "source" :pref-width source-width :max-width source-width :min-width source-width :cell-value-factory source-label}
                      {:id "level" :text "level" :max-width 80 :cell-value-factory (comp name :level)}
                      {:id "time" :text "time" :max-width 100 :cell-value-factory :time}
-                     {:id "message" :text "message" :pref-width 500 :cell-value-factory :message}]
+                     {:id "message" :text "message" :pref-width 500
+                      :cell-factory {:fx/cell-type :table-cell
+                                     :describe (fn [row]
+                                                 {:graphic {:fx/type :text
+                                                            :style-class ["message-text"]
+                                                            :text (get row :message "")}})}
+                      :cell-value-factory identity}]
 
         log-level-list [:debug :info :warn :error] ;; :report] ;; 'reports' won't be interesting, no need to filter by them right now.
         log-level-list (if-not (contains? level-occurances :debug)