Make tooltips have a 400ms delay instead of default 1000ms

Author: jpmonettas

CHANGELOG.md

@@ -6,6 +6,8 @@
 
 ### Changes
 
+    - Make tooltips have a 400ms delay instead of default 1000ms
+    
 ### Bugs fixed
 
 ## 3.9.1 (12-01-2024)

src-dbg/flow_storm/debugger/ui/utils.clj

@@ -16,6 +16,7 @@
            [javafx.beans.value ObservableValue]
            [javafx.scene Node]
            [javafx.scene.layout HBox Priority VBox Region]
+           [javafx.util Duration]
            [java.util.function Predicate]
            [org.kordamp.ikonli.javafx FontIcon]
            [javafx.collections FXCollections ObservableList]
@@ -127,6 +128,10 @@
 (defn icon [^String icon-name]
   (FontIcon. icon-name))
 
+(defn- tool-tip [text]
+  (doto (Tooltip. text)
+    (.setShowDelay (Duration. 400))))
+
 (defn button [& {:keys [label classes on-click disable tooltip]}]
   (let [b (Button. label)]
 
@@ -140,15 +145,15 @@
     (when disable
       (.setDisable b true))
 
-    (when tooltip (.setTooltip b (Tooltip. tooltip)))
+    (when tooltip (.setTooltip b (tool-tip tooltip)))
 
     b))
 
 (defn icon-button [& {:keys [icon-name classes on-click disable tooltip]}]
   (let [b (doto (Button.)
             (.setGraphic (FontIcon. icon-name)))]
 
-    (when tooltip (.setTooltip b (Tooltip. tooltip)))
+    (when tooltip (.setTooltip b (tool-tip tooltip)))
     (when on-click
       (.setOnAction b (event-handler [_] (on-click))))
 
@@ -291,7 +296,7 @@
     (when on-selection-changed
       (.setOnSelectionChanged t on-selection-changed))
 
-    (when tooltip (.setTooltip t (Tooltip. tooltip)))
+    (when tooltip (.setTooltip t (tool-tip tooltip)))
 
     t))