1
#--------------------------------------------------------------------------
4
# This Tcl script re-binds Button-3 to bring up the parameter edit
5
# popup window when the right mouse button is clicked over a (non-selected)
6
# object instance. Otherwise, Button-3 behaves as usual (e.g., deselects
8
#--------------------------------------------------------------------------
10
bind .xcircuit.mainframe.mainarea.drawing <ButtonPress-3> { \
11
if {[eventmode] == "normal" && [select get] == {} \
12
&& [select here] != {}} {
13
xcircuit::prompteditparams {substring numeric expression}
15
standardaction %b down %s