[New Experimental Functionality]: Added the functionality of terminating the wire-draw mode when the user clicks a component endpoint. This feature is currently on by default (if the user has the 'Display snap cursor' option enabled.
This commit is contained in:
parent
248596f81c
commit
4b8a3c653b
|
|
@ -4272,7 +4272,14 @@ int rstate; /* (reduced state, without ShiftMask) */
|
||||||
xctx->drag_elements = 0;
|
xctx->drag_elements = 0;
|
||||||
if(tclgetboolvar("persistent_command") && xctx->last_command) {
|
if(tclgetboolvar("persistent_command") && xctx->last_command) {
|
||||||
if(xctx->last_command == STARTLINE) start_line(xctx->mousex_snap, xctx->mousey_snap);
|
if(xctx->last_command == STARTLINE) start_line(xctx->mousex_snap, xctx->mousey_snap);
|
||||||
if(xctx->last_command == STARTWIRE) start_wire(xctx->mousex_snap, xctx->mousey_snap);
|
if(xctx->last_command == STARTWIRE){
|
||||||
|
if(tclgetboolvar("snap_cursor") && (xctx->prev_snapx == xctx->mousex_snap && xctx->prev_snapy == xctx->mousey_snap)){
|
||||||
|
new_wire(PLACE|END, xctx->mousex_snap, xctx->mousey_snap);
|
||||||
|
xctx->last_command &= ~STARTWIRE;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
start_wire(xctx->mousex_snap, xctx->mousey_snap);
|
||||||
|
}
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
/* handle all object insertions started from Tools/Edit menu */
|
/* handle all object insertions started from Tools/Edit menu */
|
||||||
|
|
|
||||||
|
|
@ -8200,7 +8200,7 @@ proc build_widgets { {topwin {} } } {
|
||||||
-selectcolor $selectcolor -accelerator Y
|
-selectcolor $selectcolor -accelerator Y
|
||||||
$topwin.menubar.option add checkbutton -label "Enable infix-interface" -variable infix_interface \
|
$topwin.menubar.option add checkbutton -label "Enable infix-interface" -variable infix_interface \
|
||||||
-selectcolor $selectcolor
|
-selectcolor $selectcolor
|
||||||
$topwin.menubar.option add checkbutton -label "Enable snap cursor" -variable snap_cursor \
|
$topwin.menubar.option add checkbutton -label "Display snap cursor" -variable snap_cursor \
|
||||||
-selectcolor $selectcolor
|
-selectcolor $selectcolor
|
||||||
$topwin.menubar.option add checkbutton -label "Enable orthogonal wiring" -variable orthogonal_wiring \
|
$topwin.menubar.option add checkbutton -label "Enable orthogonal wiring" -variable orthogonal_wiring \
|
||||||
-selectcolor $selectcolor -accelerator Shift+L
|
-selectcolor $selectcolor -accelerator Shift+L
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue