luke
/
xschem
mirror of https://github.com/StefanSchippers/xschem.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

proc key_binding: add Button=Press-4 and Button-Press-5 in $state variable

This commit is contained in:
stefan schippers 2025-11-16 15:58:21 +01:00
parent 58c33e48aa
commit 1799334a43
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/xschem.tcl
View File

@ -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-1 $d] } { set state [expr {$state +0x100}] }
if { [regexp ButtonPress-2 $d] } { set state [expr {$state +0x200}] } if { [regexp ButtonPress-2 $d] } { set state [expr {$state +0x200}] }
if { [regexp ButtonPress-3 $d] } { set state [expr {$state +0x400}] } 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}>" # puts "$state $key <${s}>"
if {[regexp ButtonPress- $d]} { if {[regexp ButtonPress- $d]} {
bind $win_path "<${s}>" "xschem callback %W %T %x %y 0 $key 0 $state" bind $win_path "<${s}>" "xschem callback %W %T %x %y 0 $key 0 $state"