lib/tcl/bparams.tcl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#--------------------------------------------------------------------------
# bparams.tcl
#
# This Tcl script re-binds Button-3 to bring up the parameter edit
# popup window when the right mouse button is clicked over a (non-selected)
# object instance.  Otherwise, Button-3 behaves as usual (e.g., deselects
# selected objects).
#--------------------------------------------------------------------------

bind .xcircuit.mainframe.mainarea.drawing <ButtonPress-3> { \
   if {[eventmode] == "normal" && [select get] == {} \
                && [select here] != {}} {
      xcircuit::prompteditparams {substring numeric expression}
   } else {
      standardaction %b down %s
   }
}