lib/tcl/bparams.tcl

   1 #--------------------------------------------------------------------------
   2 # bparams.tcl
   3 #
   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
   7 # selected objects).
   8 #--------------------------------------------------------------------------
   9
  10 bind .xcircuit.mainframe.mainarea.drawing <ButtonPress-3> { \
  11    if {[eventmode] == "normal" && [select get] == {} \
  12                 && [select here] != {}} {
  13       xcircuit::prompteditparams
  14    } else {
  15       standardaction %b down %s
  16    }
  17 }