From 1799334a430721e442da5df26a2c498cee27443d Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Sun, 16 Nov 2025 15:58:21 +0100
Subject: [PATCH] proc key_binding: add Button=Press-4 and Button-Press-5 in
 $state variable

---
 src/xschem.tcl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index fe593034..f2c2e472 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -1143,6 +1143,8 @@ proc key_binding {  s  d { win_path {.drw} } } {
   if { [regexp ButtonPress-1 $d] } { set state [expr {$state +0x100}] }
   if { [regexp ButtonPress-2 $d] } { set state [expr {$state +0x200}] }
   if { [regexp ButtonPress-3 $d] } { set state [expr {$state +0x400}] }
+  if { [regexp ButtonPress-4 $d] } { set state [expr {$state +0x800}] }
+  if { [regexp ButtonPress-5 $d] } { set state [expr {$state +0x1000}] }
   # puts "$state $key <${s}>"
   if {[regexp ButtonPress- $d]} {
     bind $win_path "<${s}>" "xschem callback %W %T %x %y 0 $key 0 $state"