Better mouse emulation in GUI

Author: vi

virtual_touchscreen.clj

@@ -62,6 +62,7 @@
 (defn create-touchscreen-window [events]
  (def tracking-id (atom 1))
  (def currently-pressed (atom 0))
+ (def master-slot (atom nil)) ;; the slot that it pressed first and used for mouse emulation
 
  (defn send-string! [s]
    (locking events
@@ -70,9 +71,12 @@
 
  (defn toucher-moved [i x y]
   ;; Send select-slot, touch-x, touch-y, x and y for mouse emulation   and sync messages
-  (send-string! (format 
-     "s %d\nX %d\nY %d\nx %d\ny %d\nS 0\n"
-    i, x, y, x, y)))
+  (send-string! 
+   (if (or (= i @master-slot) (= nil @master-slot))
+    (format "s %d\nX %d\nY %d\nx %d\ny %d\nS 0\n" i, x, y, x, y)
+    (format "s %d\nX %d\nY %d\nS 0\n" i, x, y)
+    )
+   ))
 
  (defn toucher-active [i flag]
   ;; Send select-slot, tracking-id, touch-major-axis, pressure, trigger-mouse-emu and sync messages
@@ -81,14 +85,20 @@
         part1 (format "s %d\nT %d\n0 10\n: 100\ne 0\n", i, @tracking-id)
         _     (swap! tracking-id (fn[i] (if (> i 10000) 1 (inc i))))
         part2 (if (= @currently-pressed 0)
-          "d 0\nS 0\n"
+          (do
+            (swap! master-slot (fn[_] i))
+            "d 0\nS 0\n"
+          )
           "S 0\n")
         _     (swap! currently-pressed inc)
         ] (str part1 part2)))
    (do (let [
         part1 (format "s %d\nT -1\n0 0\n: 0\ne 0\n", i)
         part2 (if (= @currently-pressed 1)
-          "u 0\nS 0\n"
+          (do
+           (swap! master-slot (fn[_] nil))
+           "u 0\nS 0\n"
+          )
           "S 0\n")
         _ (swap! currently-pressed dec)
        ] (str part1 part2))))))